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 | Caracter | Possibilita a manipulação dos dados a serem gravados na SW8 |
| DESP_EXCLUI1 | Caracter | Permite ou não a exclusão das despesas de variação cambial 701, 702 e 703 |
| DESP_ALTERA1 | Caracter | Permite ou não a alteração das despesas de variação cambial 701, 702 e 703 |
| 501VALDI | Caracter | Possibilita Desabilitar a chamada da Atualização da Aba "Valores DI" |
| WOR_ESTR1 | Caracter | Possibilita criar novos campo na tabela temporária, os quais aparecerão no relatório e permite controlar a variável lExibe para geração de todas as despesas. |
| WOR_GRAV1 | Caracter | Permite informar o conteúdo do novo campo criado na Tabela temporária |
| Nome | Tipo | Escopo | Permite Alterar | Descrição |
|---|---|---|---|---|
| cInvoice | Caracter | Private | Sim | Variável que armazena o número da invoice. |
| cForn | Caracter | Private | Sim | Variável que armazena o fornecedor da invoice |
| lExclui700 | Lógico | Private | Sim | Quando .T. permite a exclusão das despesas de variação cambial 701, 702 e 703 |
| lAltera700 | Lógico | Private | Sim | Quando .T. permite a alteração das despesas de variação cambial 701, 702 e 703 |
| lSair | Lógico | Private | Sim | Habilitado (.T.) permite desviar(desabilitar) a chamada da Atualização da Aba "Valores DI" |
| aDbf_Str1 | Array | Private | Sim | Array contendo os campos que serão criados na tabela temporária |
| lExibe | Lógico | Private | Sim | Se habilitado (.T.) serão exibidas no relatório ou geração do arquivo todas as despesas, sem restrição do filtro selecionado. |
| Work_Rel | Work | Private | Sim | Work com os dados que serão gerados no arquivo ou relatório. |
Work_Rel (Tabela temporária que contém os campos do relatório e é modificada pelos PE WOR_ESTR1 e Wor_GRAV1)