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