Exemplo de execução automáticas das operações de inclusão, exclusão e alteração de títulos a pagar.
Aviso | ||
---|---|---|
| ||
A função Fa050Inclu() não pode ser usada em customizações por se tratar de um função de menu existem algumas dependências de variáveis privates declaradas no FINA050. |
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#INCLUDE "Protheus.ch" USER FUNCTION FIN050INC() LOCAL aArray := {} PRIVATE lMsErroAuto := .F. //Estrutura para PA ( Pagamento Antecipado ) aArray := { { "E2_PREFIXO" , "PAG" , NIL },; { "E2_NUM" , "0001" , NIL },; { "E2_TIPO" , "PA" , NIL },; { "E2_NATUREZ" , "001" , NIL },; { "E2_FORNECE" , "0001" , NIL },; { "E2_EMISSAO" , CtoD("17/02/2012"), NIL },; { "E2_VENCTO" , CtoD("17/02/2012"), NIL },; { "E2_VENCREA" , CtoD("17/02/2012"), NIL },; { "E2_VALOR" , 5000 , NIL },; { "AUTBANCO" , "001" , NIL },; { "AUTAGENCIA" , "1234" , NIL },; { "AUTCONTA" , "123456" , NIL } } //Estrutura para demais títulos aArray := { { "E2_PREFIXO" , "PAG" , NIL },; { "E2_NUM" , "0001" , NIL },; { "E2_TIPO" , "NF" , NIL },; { "E2_NATUREZ" , "001" , NIL },; { "E2_FORNECE" , "0001" , NIL },; { "E2_EMISSAO" , CtoD("17/02/2012"), NIL },; { "E2_VENCTO" , CtoD("17/02/2012"), NIL },; { "E2_VENCREA" , CtoD("17/02/2012"), NIL },; { "E2_VALOR" , 5000 , NIL } } MsExecAuto( { |x,y,z| FINA050(x,y,z)}, aArray,, 3) // 3 - Inclusao, 4 - Alteração, 5 - Exclusão If lMsErroAuto MostraErro() Else Alert("Título incluído com sucesso!") Endif Return |
...
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#INCLUDE "Protheus.ch" /* Exemplo: Inclusão de título a pagar com cálculo de IR, preenchendo a natureza de rendimento (FKF_NATREN) no complemento do título (FKF). */ User Function A050Inc1() Local aArray := {} Local aFKF := {} Local cNatRen := "13002" PRIVATE lMsErroAuto := .F. //Dados da SE2 aArray := { { "E2_PREFIXO" , "BOL" , NIL },; { "E2_NUM" , "BOL00110" , NIL },; { "E2_TIPO" , "BOL" , NIL },; { "E2_NATUREZ" , "RNF000002" , NIL },; { "E2_FORNECE" , "RNF017" , NIL },; { "E2_LOJA" , "01" , NIL },; { "E2_EMISSAO" , CtoD("09/02/2023") , NIL },; { "E2_VENCTO" , CtoD("09/02/2023") , NIL },; { "E2_VENCREA" , CtoD("09/02/2023") , NIL },; { "E2_VALOR" , 5000 , NIL }} //Dados da FKF - Complemento do titulo aFKF := { { "FKF_NATREN", cNatRen , NIL }} aAdd(aArray, {"AUTCMTIT", aFKF, Nil}) MsExecAuto( { |x,y,z| FINA050(x,y,z)}, aArray,, 3) // 3 - Inclusao, 4 - Alteração, 5 - Exclusão If lMsErroAuto MostraErro() Else Conout("Titulo incluso com sucesso!") Endif Return |
Não há.
Documento de referencia FINA050
...