Produto: | |
---|---|
Linha de Produto: | |
Segmento: | |
Módulo: | SIGAEIC |
Função: | EICLC100.PRW - Carta de Crédito |
País: | Brasil |
Ticket: | 11433936 |
Requisito/Story/Issue (informe o requisito relacionado) : | DTRADE-6341 |
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 |