Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Propriedades de página

CONTEÚDO

  1. Visão Geral
  2. Exemplo de utilização
    1. InclusãoAlteração
    2. Inclusão com mais de um Lançamento
  3. Tabelas utilizada


01. VISÃO GERAL

...

Aviso
titleAviso

A Execução automática está disponível apenas para Inclusão e Alteração de lançamentos contábeis.

Informações
titleImportante

Na utilização de execAuto ExecAuto considerar os seguintes critérios:

 - Passar o campo CT2_CONVER como 15555, demais moedas devem ser feitos pela inclusão de um novo aItens

 - Passar o campo CT2_CRITER, para as demais moedas apenas inclui como conversão, não permitindo a inclusão do CT2_VALOR zerado.

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



Inclusão:


Bloco de código
languagepy
themeEclipseMidnight
titlemyctba102inc
linenumberstrue
collapsetrue
#INCLUDE "PROTHEUS.CH"
 
//-------------------------------------------------------------------
/*/{Protheus.doc} MyCTBA102Inc   MyCTBA102Inc    
 
 Inclusão Inclusão de Lançamento Automático CTBA102
 
@author Totvs
@since 29/11/2013
@version 1@author Totvs
@since 23/06/2022
@version 2.0
 
/*/
//-------------------------------------------------------------------
 
User Function MyCTBA102Inc()

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


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

PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "    RpcSetType(3)
    RpcSetEnv( 'T1', 'D MG 01 " MODULO "CTB" TABLES "CT2"

    aCab := {}
    aItem := {}



    aAdd(aCab, ',,,'CTB')

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

    aAdd    aAdd(aItens,{   {'CT2_FILIAL'          ,xFilial('0101   '     CT2'), NIL},;
                                     {'CT2_LINHA'          , nLinha        , '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         
 
    MSExecAuto({|x, y,z| CTBA102(x,y,z)}, aCab ,aItens, 3)
 
       IfIf 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
languagepy
titlethememyctba102AltMidnight
linenumberstitletrueMyCTBA102Inc()
collapsetrue
#INCLUDE "PROTHEUS.CH"
 
//-------------------------------------------------------------------
/*/{Protheus.doc} MyCTBA102Alt    
 InclusãoMyCTBA102Inc   
  
 Inclusão de Lançamento Automático CTBA102
  
@author Totvs
@since 29/11/2013
@version 1@author Totvs
@since 23/06/2022
@version 2.0
  
/*/
//-------------------------------------------------------------------

User Function MyCTBA102AltMyCTBA102Inc()

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

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

PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01 " MODULO "CTB" TABLES "CT2"

	aCab     := {}
    aItens     := {}
    aLinha := {}

    aAdd(aCab,  RpcSetType(3)
    RpcSetEnv( 'T1', 'D MG 01 ',,,'CTB')

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

   

    aAdd(aItens,{      

    For nX := 1 To nLinha
        aAdd(aItens,  {;
            {'CT2_FILIAL'      ,'0101   '           , xFilial('CT2')                       , NIL},;
                                   {'CT2_LINHA'     ,  , nLinha              StrZero(nX,3)                        , NIL},;
                                   {'CT2_MOEDLC'      ,'01'                                                 , NIL},;
                                   {'CT2_DC'            ,'3'                                                  , NIL},;
                                   {'CT2_DEBITO'      ,'101010100'                                    , NIL},;
                                   {'CT2_CREDIT'      ,'201010100'                                    , NIL},;
                                   {'CT2_VALOR'      , 6000              , 3000                                 , NIL},;
                                   {'CT2_ORIGEM'     ,'MSEXECAUT'                                   , NIL},;
                                   {'CT2_HP'            ,''                                                       , NIL},;
                                   {'CT2_EMPORICONVER'     ,'01'                 , NIL},;
                       {'CT2_FILORI'      ,'0101001'            , NIL},;                       
                       {'CT2_HIST'       ,'MSEXECCT2-1'    11'                                  , NIL},;
                       {'LINPOS'            ,'CT2_LINHA'        ,nLinha}})  
                   

    MSExecAuto            {'CT2_HIST'   ,'MSEXECCT LANCAMENTO '+cValtoChar(nX) , NIL} })
    Next nX
 
    MSExecAuto({|x, y,z| CTBA102(x,y,z)}, aCab ,aItens, 43)



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

RestArea(aArea)
RESET ENVIRONMENT
Return

 

...



03TABELAS UTILIZADAS

  • CT2- Lançamentos Contábeis

...