CONTEÚDO
- Visão Geral
- Exemplo de utilização
- Parâmetros
- Variáveis
- Tabelas utilizadas
01. VISÃO GERAL
Cadastro de invoice antecipada.
...
02. EXEMPLO DE UTILIZAÇÃO
Bloco de código |
---|
title | Exemplo de utilização |
---|
|
User Function EICEV100()
Local cParamIXB
If ValType(ParamIXB) == "A"
cParamIXB:= ParamIXB[1]
Else
cParamIXB:= ParamIXB
EndIf
Do Case
Case cParamIXB == "ANTES_EXCLUI_EW4"
IF EW4->EW4_HAWB == 'XPTO'
lVldExcPE :=.T. // retorna .t. para continuar com a exclusão
lVldExcPrd:=.F. //não executa a validação padrão
EndIf
Case cParamIXB == "CRIA_BOTAO"
MsgInfo("Entrou no ponto de entrada 'CRIA_BOTAO'.")
aAdd(aRotina,{"Botão Customizado", "MsgInfo('Botão Customizado')", 0,2})
Case cParamIXB == "AJUSTA_BROWSE"
MsgInfo("Entrou no ponto de entrada 'AJUSTA_BROWSE'.")
Case cParamIXB == "ANTES_GRAVA_EW4"
MsgInfo("Entrou no ponto de entrada 'ANTES_GRAVA_EW4'.")
Case cParamIXB == "DEPOIS_GRAVA_EW4"
MsgInfo("Entrou no ponto de entrada 'DEPOIS_GRAVA_EW4'.")
Case cParamIXB == "GRVWORK"
MsgInfo("Entrou no ponto de entrada 'GRVWORK'.")
Case cParamIXB == "ANTES_GRAVA_EW5"
MsgInfo("Entrou no ponto de entrada 'ANTES_GRAVA_EW5'.")
Case cParamIXB == "DEPOIS_GRAVA_EW5"
MsgInfo("Entrou no ponto de entrada 'DEPOIS_GRAVA_EW5'.")
Case cParamIXB == "VALIDA_CAMPOS"
MsgInfo("Entrou no ponto de entrada 'VALIDA_CAMPOS'.")
lSair := .F.
EndCase
Return Nil |
...
...
...
03. SOLUÇÃO
Totvs custom tabs box |
---|
tabs | Passo 01, Passo 02, Passo 03, Passo 04 |
---|
ids | passo1,passo2 |
---|
|
Totvs custom tabs box items |
---|
default | yes |
---|
referencia | passo1 |
---|
| |
Totvs custom tabs box items |
---|
default | no |
---|
referencia | passo2 |
---|
| |
|
...