ÍNDICE

Índice

...

CONTEÚDO

...

Inclusão
Inclusão com Mais de um Lançamento
Alteração

...

01.

...

VISIÓN GENERAL

Ejemplos de ejecución por medio de la rutina automática en la rutina de asientos contables

...

Exemplos de execução via rotina automática na rotina de lançamentos contábeis automáticos(CTBA102), mostrando exemplos de utilização e tabelas ejemplos de utilización y tablas relacionadas.

02.

...

EJEMPLO DE

...

UTILIZACIÓN

Abaixo A continuación mostraremos exemplos ejemplos de utilizaçãoutilización.

Aviso

title	Aviso

A Execução La ejecución automática está disponível apenas para Inclusão e Alteração de lançamentos contábeisdisponible solamente para la inclusión de asientos contables.

Informações

title	Importante

Na utilização En la utilización de execAuto considerar os seguintes considere los siguientes critérios:

-

Passar o

Pasar el campo CT2_CONVER como 15555,

demais moedas devem ser feitos pela inclusão de um novo aItens

- Para alteração de registro passe novamente o aCab

Inclusão:

demás monedas se deben hacer por la inclusión de un nuevo aItens
- Pasar el campo CT2_CRITER, a las otras monedas solamente incluye como conversión, no permitiendo la inclusión de CT2_VALOR en cero.
- Para modificación del registro pase nuevamente el aCab.
- El sistema no bloquea el asiento por medio del execauto cuando el débito y el crédito están diferentes, respetando los parámetros MV_CONTBAT = S y MV_CONTSB = N, cuando esto ocurre, este genera los asientos como tipo 9 Asiento previo para que ocurra posteriormente una verificación.
En la cumplimentación del campo CT2_FILIAL, la ejecución considera automáticamente la sucursal definida en la preparación del entorno (RpcSetEnv). Aunque se atribuya un valor para CT2_FILIAL en el array aItens, esta información no se considerará, pues la ejecución siempre utilizará la sucursal abierta en la thread en el momento de la ejecución.

Dica

title	Importante

Para garantizar la grabación correcta de los campos Logs y Auditoría (CT2_USERGI y CT2_USERGA) al utilizarlos, esw necesario informar el Usuario y la Contraseña del Protheus durante la preparación del entorno, para saber más, acceda a:

Logs y Auditoría

RpcSetEnv

Prepare Environment

02.1. Inclusión:

02.1.1. Asiento sin AE:

Bloco de código

language	py
theme	Midnight
title	MyCTBA102Inc()
linenumbers	true
collapse	true

#INCLUDE "PROTHEUS.CH"
 
//--

Bloco de código

language	py
theme	Midnight
title	myctba102inc
linenumbers	true
collapse	true

#INCLUDE "PROTHEUS.CH"

//-------------------------------------------------------------------
/*/{Protheus.doc} MyCTBA102Inc    

 Inclusão de Lançamento Automático CTBA102

@author Totvs
@since 29/11/2013
@version 1.0

/*/
//-------------------------------------------------------------------

User Function MyCTBA102Inc()

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     /*/{Protheus.doc} MyCTBA102Inc    
 
 Inclusión de Asiento automático CTBA102
 
@author Totvs
@since 23/06/2022
@version 2.0
 
/*/
//-------------------------------------------------------------------
 
User Function MyCTBA102Inc()
 
Local aArea  := GetArea()
Local aCab   := {}
Local aItens := {}

Private lMsErroAuto     := .F.
Private lMsHelpAuto        := .T.
Private CTF_LOCK        LOCK        := 0
Private lSubLote              := .T.
 

PREPARE   ENVIRONMENT EMPRESARpcSetEnv( "'T1" FILIAL "', 'D MG 01 " MODULO "CTB" TABLES "CT2"

    aCab := {}
    aItem := {}



    aAdd(aCab,  {'DDATALANC'     ,dDataBase        ',,,'CTB')

    aAdd(aCab,  {'DDATALANC'     ,dDataBase        ,NIL} )
       aAddaAdd(aCab,   {'CLOTE'               ,'333333'               ,NIL} )
       aAddaAdd(aCab,   {'CSUBLOTE'            ,'001'                     ,NIL} )
       aAddaAdd(aCab,   {'CDOCCPADRAO'                ,'000001'         '               ,NIL} )
       aAddaAdd(aCab,   {'CPADRAONTOTINF'         ,''             ,NIL} )
    aAdd(aCab,  {'NTOTINF'         ,0                 ,0                ,NIL} )
       aAddaAdd(aCab,   {'NTOTINFLOT'       ,0                                 ,NIL} )
 
    

    aAdd    aAdd(aItens,{   {'CT2_FILIALLINHA'          ,'0101   '      '001'         , NIL},;
                   {'CT2_LINHA'      , nLinha        , NIL},;
                                     {'CT2_MOEDLC'          ,'01'                   , NIL},;
                                     {'CT2_DC'                      ,'3'                   , NIL},;
                    {'CT2_DEBITO'                     {'CT2_DEBITO'      ,'101010100'     , NIL},;
                                     {'CT2_CREDIT'          ,'201010100'     , NIL},;
                     {'                {'CT2_VALOR'          , 3000                 , NIL},;
                                     {'CT2_ORIGEM'        ,'MSEXECAUT'       , NIL},;
                                     {'CT2_HP'                      ,''                      , NIL},;
                                     {'CT2_CONVER'       ,'11'         	            , NIL},;
                                     {'CT2_HIST'            ,'MSEXECCT2'       , NIL} } )               
 
       MSExecAutoMSExecAuto({|x, y,z| CTBA102(x,y,z)}, aCab ,aItens, 3)
 
    If   If lMsErroAuto
        lMsErroAuto        lMsErroAuto := .F.
         MsgAlert("ERRO Lançamento" , "Teste Carga CT2")
		mostraErro MostraErro()
          ExitEndif
       Endif
RestArea(aArea)

RESET ENVIRONMENT

Return

Inclusão com Mais de um Lançamento :

Bloco de código

language	py
theme	Midnight
title	MyCTBA102Inc()
collapse	true

User Function MyCTBA102Inc() 

Local nX
Local aArea := GetArea()
Local nDoc := 1
Local lRet := .T.
Local aCab := {}
Local aItens := {}
Local aLinha := {}
Local dDataLanc := ctod("28/11/2013") 


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 := {}


aAdd(aCab, {'DDATALANC' ,dDataBase ,NIL} )
aAdd(aCab, {'CLOTE' ,'333333' ,NIL} )
aAdd(aCab, {'CSUBLOTE' ,'001' ,NIL} )
aAdd(aCab, {'CDOC' ,'000001' ,NIL} )
aAdd(aCab, {'CPADRAO' ,'' ,NIL} )
aAdd(aCab, {'NTOTINF' ,0 ,NIL} )
aAdd(aCab, {'NTOTINFLOT' ,0 ,NIL} )

//lançamento 1
aAdd(aItens,  { {'CT2_FILIAL' ,'0101 ' , NIL},;
{'CT2_LINHA' , '001' , NIL},;
{'CT2_MOEDLC' ,'01' , NIL},;
{'CT2_DC' ,'3' , NIL},;
{'CT2_DEBITO' ,'101010100' , NIL},;
{'CT2_CREDIT' ,'201010100' , NIL},;
{'CT2_VALOR' , 3000 , NIL},;
{'CT2_ORIGEM' ,'MSEXECAUT' , NIL},;
{'CT2_HP' ,'' , NIL},;
{'CT2_CONVER' ,'11' , NIL},;
{'CT2_HIST' ,'MSEXECCT2' , NIL} } )

//lançamento 2
aAdd(aItens, { {'CT2_FILIAL' ,'0101 ' , NIL},;
{'CT2_LINHA' , '002' , NIL},;
{'CT2_MOEDLC' ,'01' , NIL},;
{'CT2_DC' ,'3' , NIL},;
{'CT2_DEBITO' ,'101010100' , NIL},;
{'CT2_CREDIT' ,'201010100' , NIL},;
{'CT2_VALOR' , 4000 , NIL},;
{'CT2_ORIGEM' ,'MSEXECAUT' , NIL},;
{'CT2_HP' ,'' , NIL},;
{'CT2_CONVER' ,'11' , NIL},;
{'CT2_HIST' ,'MSEXECCT2LINHA2' , NIL} })

//adicionar ao array aItens a quantidade necessária de lançamentos que deseja efetuar

MSExecAuto({|x, y,z| CTBA102(x,y,z)}, aCab ,aItens, 3)

If lMsErroAuto
lMsErroAuto := .F.
MsgAlert("ERRO Lançamento" , "Teste Carga CT2")
mostraErro()
Exit
Endif
RestArea(aArea)

RESET ENVIRONMENT

Return

Alteração:

Bloco de código

language	py
theme	Midnight
title	myctba102Alt
linenumbers	true
collapse	true

#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 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'         ,'333333'         ,NIL} )
    aAdd(aCab,  {'CSUBLOTE'         ,'001'         ,NIL} )
    aAdd(aCab,  {'CDOC'             ,'000001'         ,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'      ,'101010100'         , NIL},;
                       {'CT2_CREDIT'      ,'201010100'         , NIL},;
                       {'CT2_VALOR'      , 6000              , NIL},;
                       {'CT2_ORIGEM'     ,'MSEXECAUT'        , NIL},;
                       {'CT2_HP'          ,''                   , NIL},;
                       {'CT2_EMPORI'     ,'01'                 , NIL},;
                       {'CT2_FILORI'      ,'0101001'            , NIL},;                       
                       {'CT2_HIST'       ,'MSEXECCT2-1'    , NIL},;
                       {'LINPOS'            ,'CT2_LINHA'        ,nLinha}})  
                   

    MSExecAuto({|x, y,z| CTBA102(x,y,z)}, aCab ,aItens, 4)



    If lMsErroAuto
        lMsErroAuto := .F.
        MsgAlert("ERRO Lançamento" , "Teste Carga CT2")
        Exit
    Endif

RestArea(aArea)
RESET ENVIRONMENT
Return

03. TABELAS UTILIZADAS

CT2- Lançamentos Contábeis

...

02.1.2. Asiento con AE:

Informações

title	Informaciones útiles

El ítem CPADRAO del encabezado (aCab) se utiliza para alimentar la variable cPadrao.
Esta variable es responsable por vincular y validar el Asiento estándar (AE) utilizado en la rutina automática.

Al informar, el sistema valida el Asiento estándar y completa automáticamente los campos previstos en su configuración, si no fueran informados en ExecAuto.
Entre los principales campos completados de manera automática están:

Cuentas contables.
Centro de costos.
Valores.
Historial.
Entre outras informaciones configuradas en el Asiento estándar.

⚠️ IMPORTANTE

Si alguna información obligatoria no estuviera configurada en el AE, esta debe informarse en aItens.
Ejemplo: los campos CT2_DEBITO y CT2_CREDIT.
Si estas cuentas no estuvieran definidas en el AE y tampoco se transfieran a ExecAuto, la rutina devolverá error, pues no habrá estos datos obligatorios para formar parte del asiento.

Cumplimentación del campo CT2_LP

El campo CT2_LP necesaariamente debe estar marcado como “usado” en el diccionario de datos.
Para que su grabación ocurra en la tabla, este debe informarse en el array aItens en el momento de la activación de ExecAuto.

Importante:
La información transferida al campo CT2_LP de aItens solamente se grabará en el asiento.
El sistema validará solamente si el AE informado existiera y estuviera activo.
La cumplimentación automática de cuentas, centros de costo o valores no se realizará a partir de este campo. Para este propósito, debe utilizarse CPADRAO.
Resaltamos la necesidad de atención a la cumplimentación de este campo con relación al encabezado CPADRAO, pues el sistema permite que las informaciones sean diferentes. Si no quisiera esta diferencia, el mismo valor debe informarse en ambos arrays (aCab y aItens).

OBS: En el siguiente ejemplo, los campos CT2_DEBITO, CT2_CREDIT y CT2_HIST se retiraron, pues serán completados automáticamente por el Asiento estándar 001.

Bloco de código

language	py
theme	Midnight
title	myctba102inc
linenumbers	true
collapse	true

#INCLUDE "PROTHEUS.CH"
 
//-------------------------------------------------------------------
/*/{Protheus.doc} MyCTBA102Inc    
 
 Inclusión de asiento automático CTBA102
 
@author Totvs
@since 23/06/2022
@version 2.0
 
/*/
//-------------------------------------------------------------------
 
User Function MyCTBA102Inc()
 
Local aArea  := GetArea()
Local aCab   := {}
Local aItens := {}

Private lMsErroAuto     := .F.
Private lMsHelpAuto     := .T.
Private CTF_LOCK        := 0
Private lSubLote        := .T.
 

    RpcSetEnv( 'T1', 'D MG 01 ',,,'CTB')

    aAdd(aCab,  {'DDATALANC'     ,dDataBase        ,NIL} )
    aAdd(aCab,  {'CLOTE'         ,'333333'         ,NIL} )
    aAdd(aCab,  {'CSUBLOTE'      ,'001'            ,NIL} )
    aAdd(aCab,  {'CPADRAO'       ,''               ,NIL} )
    aAdd(aCab,  {'NTOTINF'       ,0                ,NIL} )
    aAdd(aCab,  {'NTOTINFLOT'    ,0                ,NIL} )
 
    aAdd(aItens,{  {'CT2_LINHA'      , '001'         , NIL},;
                   {'CT2_MOEDLC'      ,'01'          , NIL},;
                   {'CT2_DC'           ,'3'          , NIL},;
                   {'CT2_DEBITO'      ,'101010100'   , NIL},;
                   {'CT2_CREDIT'      ,'201010100'   , NIL},;
                   {'CT2_VALOR'      , 3000          , 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.
        MostraErro()
    Endif
    
RestArea(aArea)

 
Return

02.2. Inclusión con más de un asiento:

Bloco de código

language	py
theme	Midnight
title	MyCTBA102Inc()
collapse	true

#INCLUDE "PROTHEUS.CH"
 
//-------------------------------------------------------------------
/*/{Protheus.doc} MyCTBA102Inc   
  
 Inclusión de asiento automático CTBA102
  
@author Totvs
@since 23/06/2022
@version 2.0
  
/*/
//-------------------------------------------------------------------

User Function MyCTBA102Inc()


Local aArea  := GetArea()
Local aCab   := {}
Local aItens := {}
Local nLinha := 2
Local nX     := 0
 
Private lMsErroAuto := .F.
Private lMsHelpAuto := .T.
Private CTF_LOCK    := 0
Private lSubLote    := .T.
 

    RpcSetEnv( 'T1', 'D MG 01 ',,,'CTB')

    aAdd(aCab, {'DDATALANC' ,dDataBase ,NIL} )
    aAdd(aCab, {'CLOTE' ,'333333' ,NIL} )
    aAdd(aCab, {'CSUBLOTE' ,'001' ,NIL} )
    aAdd(aCab, {'CPADRAO' ,'' ,NIL} )
    aAdd(aCab, {'NTOTINF' ,0 ,NIL} )
    aAdd(aCab, {'NTOTINFLOT' ,0 ,NIL} )

    For nX := 1 To nLinha
        aAdd(aItens,  {;
            {'CT2_LINHA'  , StrZero(nX,3)                        , NIL},;
            {'CT2_MOEDLC' ,'01'                                  , NIL},;
            {'CT2_DC'     ,'3'                                   , NIL},;
            {'CT2_DEBITO' ,'101010100'                           , NIL},;
            {'CT2_CREDIT' ,'201010100'                           , NIL},;
            {'CT2_VALOR'  , 3000                                 , NIL},;
            {'CT2_ORIGEM' ,'MSEXECAUT'                           , NIL},;
            {'CT2_HP'     ,''                                    , NIL},;
            {'CT2_CONVER' ,'11'                                  , NIL},;
            {'CT2_HIST'   ,'MSEXECCT LANCAMENTO '+cValtoChar(nX) , NIL} })
    Next nX
 
    MSExecAuto({|x, y,z| CTBA102(x,y,z)}, aCab ,aItens, 3)
    
    If lMsErroAuto
        lMsErroAuto := .F.
        MostraErro()
    EndIf


RestArea(aArea)
 
Return

03. TABLAS UTILIZADAS

CT2- Asientos contables

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave

01.

VISIÓN GENERAL

02.

EJEMPLO DE

UTILIZACIÓN

Inclusão:

02.1. Inclusión:

02.1.1. Asiento sin AE:

Inclusão com Mais de um Lançamento :

Alteração:

03. TABELAS UTILIZADAS

02.1.2. Asiento con AE:

02.2. Inclusión con más de un asiento:

03. TABLAS UTILIZADAS

Atalhos

Árvore de páginas

Histórico da Página

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave

01.

VISIÓN GENERAL

02.

EJEMPLO DE

UTILIZACIÓN

Inclusão:

02.1. Inclusión:

02.1.1. Asiento sin AE:

Inclusão com Mais de um Lançamento :

Alteração:

03. TABELAS UTILIZADAS

02.1.2. Asiento con AE:

02.2. Inclusión con más de un asiento:

03. TABLAS UTILIZADAS