Tiempo aproximado para lectura: 00:05:00 min
Duda
Rutina automática para modificació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).
Ejemplo
#INCLUDE "PROTHEUS.CH"
//-------------------------------------------------------------------
/*/{Protheus.doc} MyCTBA102Alt
Inclusão de Lançamento Automático CTBA102
@author Totvs
@since 29/11/2013
@version 1.0
/*/
//-------------------------------------------------------------------
User Function U_MyCTBA102Alt()
//Local nX
Local aArea := GetArea()
//Local nDoc := 1
//Local lRet := .T.
Local aCab := {}
Local aItens := {}
Local aLinha := {}
//Local dDataLanc := ctod("28/11/2013")
Local nLinha := '001'
Private lMsErroAuto := .F.
Private lMsHelpAuto := .T.
Private CTF_LOCK := 0
Private lSubLote := .T.
//PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01 " MODULO "CTB" TABLES "CT2"
aCab := {}
aItens := {}
aLinha := {}
aAdd(aCab, {'DDATALANC' ,dDataBase ,NIL} )
aAdd(aCab, {'CLOTE' ,'01' ,NIL} )
aAdd(aCab, {'CSUBLOTE' ,'001' ,NIL} )
aAdd(aCab, {'CDOC' ,'000004' ,NIL} )
aAdd(aCab, {'CPADRAO' ,'' ,NIL} )
aAdd(aCab, {'NTOTINF' ,0 ,NIL} )
aAdd(aCab, {'NTOTINFLOT' ,0 ,NIL} )
aAdd(aItens,{ {'CT2_FILIAL' ,'0101 ' , NIL},;
{'CT2_LINHA' , nLinha , NIL},;
{'CT2_MOEDLC' ,'01' , NIL},;
{'CT2_DC' ,'3' , NIL},;
{'CT2_DEBITO' ,'1100101' , NIL},;
{'CT2_CREDIT' ,'1100201' , NIL},;
{'CT2_VALOR' , 500 , NIL},;
{'CT2_ORIGEM' ,'MSEXECAUT' , NIL},;
{'CT2_HP' ,'' , NIL},;
{'CT2_EMPORI' ,'01' , NIL},;
{'CT2_FILORI' ,'0101' , NIL},;
{'CT2_HIST' ,'MSEXECCT2' , NIL},;
{'LINPOS' ,'CT2_LINHA' ,nLinha}})
MSExecAuto({|x, y,z| CTBA102(x,y,z)}, aCab ,aItens, 4)
If lMsErroAuto
lMsErroAuto := .F.
MsgStop("Error en la Modificación del asiento!")
MostraErro()
Else
msgInfo("Asiento contable modificado con exito!")
Endif
RestArea(aArea)
Return
Conozca Más
0 Comentarios