...
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
...
| Bloco de código | ||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||||
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 |
...
