CTBA102 - Rotina Automatica
Exemplo de rotina automática para inclusão de lançamentos contábeis no ambiente Contabilidade Gerencial (SigaCTB).
/// ROTINA AUTOMATICA - INCLUSAO DE LANCAMENTO CONTABIL CTB
User Function IncluiCT2()
Local _lOk := .T.
Local aItens := {}
Local aCab := { {'DDATALANC' ,dDataBase ,NIL},;
{'CLOTE' ,'008800' ,NIL},;
{'CSUBLOTE' ,'001' ,NIL},;
{'CDOC' , STRZERO( seconds() ,6) ,NIL},;
{'CPADRAO' ,'' ,NIL},;
{'NTOTINF' ,0 ,NIL},;
{'NTOTINFLOT' ,0 ,NIL} }
PRIVATE lMsErroAuto
aAdd(aItens,{ {'CT2_FILIAL' ,'01' , NIL},;
{'CT2_LINHA' ,'001' , NIL},;
{'CT2_MOEDLC' ,'01' , NIL},;
{'CT2_DC' ,'3' , NIL},;
{'CT2_DEBITO' ,'41101' , NIL},;
{'CT2_CREDIT' ,'21101' , NIL},;
{'CT2_VALOR' , 100 , NIL},;
{'CT2_ORIGEM' ,'MSEXECAUT', NIL},;
{'CT2_HP' ,'' , NIL},;
{'CT2_HIST' ,'MSEXECCT2', NIL} } )
MSExecAuto( {|X,Y,Z| CTBA102(X,Y,Z)} ,aCab ,aItens, 3)
If lMsErroAuto <> Nil
If !lMsErroAuto
_lOk := .T.
If !IsBlind()
MsgInfo('Inclusão com sucesso!')
EndIf
Else
_lOk := .F.
If !IsBlind()
MsgAlert('Erro na inclusao!')
Endif
EndIf
EndIf
Return