Este Ponto de Entrada pertence à rotina de Embarque/Desembaraço (EICDI501). Ele deve ser utilizado para customizar a rotina de Embarque/Desembaraço.
Programa Fonte: EICDI501.PRW
User function EICDI500()
cParam :=IIF(TYPE("PARAMIXB")=="A",PARAMIXB[1],PARAMIXB)
Do Case
Case cParam == "GRAVA_SW8_A"
MsgInfo("Entrou no ponto de entrada da gravação da tabela SW8 da invoice do embarque.")
Case cParam == "DESP_EXCLUI1"
lExclui700 := .t.
Case cParam == "DESP_ALTERA1"
lAltera700 := .t.
Case cParam == "501VALDI"
lSair := .T.
Case cParam == "WOR_ESTR1"
AAdd(aDbf_Str1, {"NOVO_CAMPO" ,"C" ,9,0})
lExibe:=.T.
Case cParam == "WOR_GRAV1"
Work_Rel->NOVO_CAMPO:="CONTEÚDO"
EndCase
Return |
| Nome | Tipo | Descrição |
|---|---|---|
| GRAVA_SW8_A | Inclua a descrição relacionada | |
| DESP_EXCLUI1 | Inclua a descrição relacionada | |
| DESP_ALTERA1 | Inclua a descrição relacionada | |
| 501VALDI | ||
| WOR_GRAV1 |
Principais Campos e Parâmetros
| Campo | Descrição |
|---|---|
| Inclua o campo | Inclua a descrição relacionada |
| Inclua o campo | Inclua a descrição relacionada |
| Inclua o campo | Inclua a descrição relacionada |