DT PE EICLC100 - Permite a Customização da Rotina de Carta de Crédito

01. DADOS GERAIS

02. SITUAÇÃO/REQUISITO

• Este Ponto de Entrada pertence ao fonte EICLC100.PRW. Ele deve ser utilizado para a customização da Rotina Carta de Crédito.

03. LOCALIZAÇÃO

• Localizado no fonte EICLC100.PRW. Uso na rotina de Carta de Crédito que pode ser acessada através do menu Atualizações > Financeiro > Carta de Crédito

04. PARÂMETROS

• INCLUI_BOTAO permite adicionar um botão na EnchoiceBar no momento da inclusão de uma Carta de Crédito.
• ALTERA_BOTAO Permite adicionar um botão na EnchoiceBar no momento da alteração de uma Carta de Crédito
• EXCLUI_BOTAO Permite adicionar um botão na EnchoiceBar no momento da exclusão de uma Carta de Crédito
• VISUAL_BOTAO Permite adicionar um botão na EnchoiceBar no momento da visualização de uma Carta de Crédito
• INCLUI_TELA Permite customizar a tela de Inclusão da Carta de Crédito
• ALTERA_TELA Permite customizar a tela de Alteração da Carta de Crédito
• VISUAL_TELA Permite customizar a tela de Visualização da Carta de Crédito
• EXCLUI_TELA Permite customizar a tela de Exclusão da Carta de Crédito
• INCLUI_VALID Permite validar a gravação da Inclusão de uma Carta de Crédito
• ALTERA_VALID Permite validar a gravação da Alteração de uma Carta de Crédito
• "COLUNAS" Permite adicionar novas colunas no grid(detalhes) de visualização da Rotina de Carta de Crédito.
• "GRAVA_TRB" Permite customizar o preenchimento da Work "TRB" fazendo assim que seja possível visualizar o conteúdo preenchido nas colunas do grid(detalhes) da Carta de Crédito.
• "GRAVA_CARTA" Permite customizar a gravação da carta de crédito para os campos da tabela SWC(Carta de crédito).

05. RETORNO

• Não há Retorno

06. EXEMPLO

USER FUNCTION EICLC100() 
Local cParam := ""

If ValType(ParamIXB) == "C"      
   cParam:= ParamIXB
EndIf

If cParam == "INCLUI_BOTAO"   
	AAdd (aBotao,{ "PESQUISA" ,{|| MsgInfo("Botão Inclusão")} , "Botão Inclui" ,"Botão Novo" })
ElseIf cParam == "ALTERA_BOTAO"   
	AAdd (aBotao,{ "PESQUISA" ,{|| MsgInfo("Botão Altera")} , "Botão Altera" ,"Botão Novo" })
ElseIf cParam == "EXCLUI_BOTAO"   
	AAdd (aBotao,{ "PESQUISA" ,{|| MsgInfo("Botão Exclusão")} , "Botão Exclui" ,"Botão Novo" })
ElseIf cParam == "VISUAL_BOTAO"   
	AAdd (aBotao,{ "PESQUISA" ,{|| MsgInfo("Botão Visualiza")} , "Botão Visualiza" ,"Botão Novo" })
ElseIf cParam == "INCLUI_TELA"   
--Instruções--
ElseIf cParam == "INCLUI_VALID"  
	--Instruções--
ElseIf cParam == "ALTERA_TELA"   
	--Instruções--
ElseIf cParam == "ALTERA_VALID"  
	--Instruções--
ElseIf cParam == "VISUAL_TELA"   
	--Instruções--
ElseIf cParam == "EXCLUI_TELA"   
	--Instruções--
ElseIf cParam == "COLUNAS"
   If aScan(aCampos,"WC_VLRCLI") == 0         
      AADD(aHeader,{"WC_VLRCLI",,10,0})
      AADD(aCampos,"WC_VLRCLI")
   EndIf
ElseIf cParam == "GRAVA_TRB"
   TRB->WC_VLRCLI := IF(!lAltera, M->WC_VLRCLI,SWC->WC_VLRCLI) 
ElseIf cParam == "GRAVA_CARTA"
   //SWC->WC_VLRCLI := 10.00 //Exemplo de gravação de algum campo customizado na Carta de crédito
Endif

RETURN Nil