Árvore de páginas


CONTEÚDO

  1. Visão Geral
  2. Exemplo de utilização
  3. Parâmetros
  4. Variáveis
  5. Tabelas utilizadas


01. VISÃO GERAL

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


02. EXEMPLO DE UTILIZAÇÃO


EICDI501
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

03. Parâmetros


NomeTipoDescrição
GRAVA_SW8_ACaracterPossibilita 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_ALTERA1CaracterPermite ou não a alteração das despesas de variação cambial 701, 702 e 703
501VALDICaracterPossibilita Desabilitar a chamada da Atualização da Aba "Valores DI"
WOR_ESTR1CaracterPossibilita 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_GRAV1CaracterPermite informar o conteúdo do novo campo criado na Tabela temporária

04. Variáveis


NomeTipoEscopoPermite AlterarDescrição
cInvoiceCaracterPrivateSimVariável que armazena o número da invoice.
cFornCaracterPrivateSimVariável que armazena o fornecedor da invoice
lExclui700LógicoPrivateSimQuando .T. permite a exclusão das despesas de variação cambial 701, 702 e 703
lAltera700LógicoPrivateSimQuando .T. permite a alteração das despesas de variação cambial 701, 702 e 703
lSairLógicoPrivateSimHabilitado (.T.) permite desviar(desabilitar) a chamada da Atualização da Aba "Valores DI"
aDbf_Str1ArrayPrivateSimArray contendo os campos que serão criados na tabela temporária
lExibeLógicoPrivateSimSe habilitado (.T.) serão exibidas no relatório ou geração do arquivo todas  as despesas, sem restrição do filtro selecionado.
Work_RelWorkPrivateSimWork com os dados que serão gerados no arquivo ou relatório.




05. TABELAS UTILIZADAS

  • Work_Rel (Tabela temporária que contém os campos do relatório e é modificada pelos PE WOR_ESTR1 e Wor_GRAV1)