Produto:

Microsiga Protheus

Ocorrência:

Exemplo de rotina automática para inclusão de títulos a pagar com rateio contábil

Passo a passo:

USER FUNCTION F050RatCTB()
LOCAL aCab := {} // array que recebera as informações do titulo
Local aDadosCTB := {}
Local aAux := {}

PRIVATE lMsErroAuto := .F.

aadd( aCab ,{"E2_PREFIXO" , 'MAN', Nil })
aadd( aCab ,{"E2_NUM" ,"TSTR002", Nil })
aadd( aCab ,{"E2_PARCELA" , '1', Nil })
aadd( aCab ,{"E2_TIPO" , 'NF ', Nil })
aadd( aCab ,{"E2_NATUREZ" , '000 ', Nil })
aadd( aCab ,{"E2_FORNECE" , 'FSIMPL', Nil })
aadd( aCab ,{"E2_LOJA" , '01', Nil })
aadd( aCab ,{"E2_EMISSAO" , dDataBase, Nil })
aadd( aCab ,{"E2_VENCTO" , dDataBase, Nil })
aadd( aCab ,{"E2_VALOR" , 10000, Nil })
aadd( aCab ,{"E2_RATEIO" , 'S', Nil })

aDadosCTB := {{"CTJ_DEBITO", "100", NIL },;
{"CTJ_CREDIT", "200", NIL },;
{"CTJ_PERCEN", 60, NIL },;
{"CTJ_VALOR", 6000, NIL }}


Aadd(aAux,aDadosCTB)

aDadosCTB := {}
aDadosCTB := {{"CTJ_DEBITO", "200", NIL },;
{"CTJ_CREDIT", "100", NIL },;
{"CTJ_PERCEN", 40 , NIL},;
{"CTJ_VALOR", 4000, NIL }}

Aadd(aAux,aDadosCTB)

MsExecAuto( { |a,b,c,d,e,f,g,h| FINA050(a,b,c,d,e,f,g,h)}, aCab,, 3,,,,,aAux,,)// 3 - Inclusao, 4 - Alteração, 5 - Exclusão
If lMsErroAuto
MostraErro()
Else
Alert("Título incluído com sucesso!")
Endif

Return