01. VISÃO GERAL

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 relacionadas.

02. EXEMPLO DE UTILIZAÇÃO

Abaixo mostraremos exemplos de utilização.

Inclusão:

...

#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

...

MyCTBA102Inc()

...

 
LocalaArea  :=

...

GetArea()

...

Inclusão com Mais de um Lançamento :

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:

...

...

LocalaCab   := {}
LocalaItens := {}

...

PrivatelMsErroAuto     := .F.
PrivatelMsHelpAuto     := .T.
PrivateCTF_LOCK        := 0
PrivatelSubLote        := .T.
 

    RpcSetType(3)
    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_FILIAL'      ,xFilial('CT2'),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} } )        
 
    MSExecAuto({|x,y,z|

CTBA102(x,y,z)},

...

aCab

...

,aItens,

...

03. TABELAS UTILIZADAS

• CT2- Lançamentos Contábeis

...

3)
 
    IflMsErroAuto
        lMsErroAuto := .F.
        MostraErro()
    Endif
   
RestArea(aArea)

 
Return