Ejemplo de rutina automática para inclusión de asientos contables en el entorno Contabilidad de Gestión (SigaCTB).
/// RUTINA AUTOMÁTICA - INCLUSIÓN DE ASIENTO CONTABLE 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('¡Inclusión con éxito!')
EndIf
Else
_lOk := .F.
If !IsBlind()
MsgAlert('¡Error en la inclusión!')
Endif
EndIf
EndIf
Return