Tiempo aproximado para lectura: 00:05:00 min
Duda
Rutina automática para inclusión de Asientos contables ExecAuto
Ambiente
Cross Segmentos - TOTVS BackOffice (Línea Protheus) - MI - Contabilidad de Gestión (SIGACTB) - Todas las versiones 12.
Todos los países.
Solución
Ejemplo de ejecución vía rutina automática en la rutina de asiento contable automático (CTBA102).
La Ejecución Automática sólo está disponible para Inclusión de asientos contables.
Ejemplo
#INCLUDE "PROTHEUS.CH"
//-------------------------------------------------------------------
/*/{Protheus.doc} MyCTBA102Inc
Inclusão de Lançamento Automático CTBA102
@author Totvs
@since 23/06/2022
@version 2.0
/*/
//-------------------------------------------------------------------
User Function U_MyCTBA102Inc()
Local aArea := GetArea()
Local aCab := {}
Local aItens := {}
Private lMsErroAuto := .F.
Private lMsHelpAuto := .T.
Private CTF_LOCK := 0
Private lSubLote := .T.
RpcSetType(3)
// RpcSetEnv( 'T1', 'D MG 01 ',,,'CTB')
msgInfo("Inclusion de Asiento por ExecAuto")
aAdd(aCab, {'DDATALANC' ,dDataBase ,NIL} )
aAdd(aCab, {'CLOTE' ,'01' ,NIL} )
aAdd(aCab, {'CSUBLOTE' ,'001' ,NIL} )
aAdd(aCab, {'CPADRAO' ,'' ,NIL} )
aAdd(aCab, {'NTOTINF' ,0 ,NIL} )
aAdd(aCab, {'NTOTINFLOT' ,0 ,NIL} )
aAdd(aItens,{ {'CT2_FILIAL' ,xFilial('CT2'), NIL},;
{'CT2_LINHA' , '001' , NIL},;
{'CT2_MOEDLC' ,'01' , NIL},;
{'CT2_DC' ,'3' , NIL},;
{'CT2_DEBITO' ,'1100101' , NIL},;
{'CT2_CREDIT' ,'1100201' , NIL},;
{'CT2_VALOR' , 2 , NIL},;
{'CT2_ORIGEM' ,'MSEXECAUT' , NIL},;
{'CT2_HP' ,'' , NIL},;
{'CT2_CONVER' ,'11' , NIL},;
{'CT2_HIST' ,'MSEXECCT2' , NIL} } )
MSExecAuto({|x, y,z| CTBA102(x,y,z)}, aCab ,aItens, 3)
If lMsErroAuto
lMsErroAuto := .F.
MsgStop("Error en la grabación del asiento!")
MostraErro()
Else
msgInfo("Asiento contable incluido con exito!")
Endif
RestArea(aArea)
Return
Conozca Más
0 Comentarios