User Function EECAP101() Local cParam := If(Type("ParamIxb") = "A",ParamIxb[1],If(Type("ParamIxb") = "C",ParamIxb,""))
If cParam == "NOT_DIALOG" MsgInfo("Entrou no ponto de entrada 'NOT_DIALOG. Variavel 'nOpcPE' = " + cValToChar(nOpcPE)) EndIf If cParam == "TROCA_FILIAL_NOTA" cFilFatNf := EE9->EE9_MSFIL MSGINFO("Entrou no ponto de entrada 'TROCA_FILIAL_NOTA'") Endif IF cParam == "TROCA_PERCOM_VLCOM" MSGINFO("Entrou no ponto de entrada 'TROCA_PERCOM_VLCOM'") Endif If cParam == "COMIS_TOT" /*Exemplo de uso do ponto de entrada para alterar o campo de valor a ser considerado na apuração da comissão*/ cAlias1:= ParamIXB[2] cAlias2:= ParamIXB[3] //Informe o novo campo a ser usado na apuração do comissão. O campo abaixo é apenas um exemplo. cFobItem:= cAlias2 + "->" + cAlias1 + "_PRECO" //este bloco deve ser retirado MsgInfo("Campo: " + cFobItem)
EndIf
Return Nil
|