CONTEÚDO

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

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

Na utilização de 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

#INCLUDE "PROTHEUS.CH"
 
//

||Descrição|| Rotina automática para inclusão de lançamentos contábeis no ambiente Contabilidade Gerencial (SigaCTB).  
||Observações|| 
||Exemplos||#INCLUDE "PROTHEUS.CH"

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma  ³CargaCT2     ºAutor  ³Felipe Cunha     º Data ³  29/11/2013 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc.     ³ Inclusão Lanc Contabil Execauto                            º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso       ³ AP                                                         º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function CargaCT2()
Local oRegua
Local lEnd := .T.

// --------------------------------------------------------------------------
/*/{Protheus.doc} NaMyCTBA102Inc utilização de execAuto considerar
 os
 seguintes critérios:
// 1 - Passar o campo CT2_CONVER como 15555. As demais moedas 
	   devem ser feitas pela inclusão de um novo item.
// 2 - Na alteração de registro passe novamente o ACab.
// Inclusão de Lançamento Automático CTBA102
 
@author Totvs
@since 23/06/2022
@version 2.0
 
/*/
//--------------------------------------------------------------------------
 
IfUser Function MsgYesNoMyCTBA102Inc("Deseja realizar a carga dos dados ?")
	oRegua)
 
Local aArea  := GetArea()
Local aCab   := MsNewProcess():New({|lEnd| GravaCTB(oRegua,@lEnd) },"Processando","",.T.)
	oRegua:Activate()
	MsgAlert("Carga Finalizada")
EndIf

Return

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma  ³ GravaCTB     ºAutor  ³Felipe Cunha    º Data ³  29/11/2013 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc.     ³ Programa para base de teste de Pedido de compras, NFE      º±±
±±º          ³               {}
Local aItens := {}

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

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

    aAdd(aCab,  {'DDATALANC'     ,dDataBase        ,NIL} )
    aAdd(aCab,  {'CLOTE'         ,'333333'                     º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso,NIL} )
    aAdd(aCab,  {'CSUBLOTE' ³ AP    ,'001'            ,NIL} )
    aAdd(aCab,  {'CPADRAO'       ,''                           º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
Static Function GravaCTB(oObj,lEnd)
Local nX
Local aArea 	:= GetArea()
Local nDoc		:= 1
Local lRet		:= .T.
Local aCab		:= {}
Local aItens	:= {}
Local dDataLanc := ctod("28/11/2013")  
lOCAL nLinha	:= '001'

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

oObj:SetRegua1(5)
oObj:IncRegua1("Gerando Documentos")

oObj:SetRegua1(nDoc)
For nX:=1 To nDoc
	If lEnd
		Exit
	EndIf
	oObj:IncRegua2("Documento " + cValToChar(nX) + " de "+ cValToChar(nDoc))
	aCab := {}
	aItem := {}

	//Inclusão de Lançamento Contábil para teste de atualização via execauto
	aAdd(aCab,  {'DDATALANC' 	,dDataBase 	,NIL} )
    aAdd(aCab,  {'NTOTINF'       ,0                ,NIL} )
	aAdd(aCab,  {'CLOTE' 		,'008800' 	,NIL} )
	aAdd(aCab,  {'CSUBLOTENTOTINFLOT' 	,'001' 		,NIL} )
	aAdd(aCab,  {'CDOC' 		, "000033"  ,NIL} )
	aAdd(aCab,  {'CPADRAO' 		,'' 		,NIL} )
	aAdd(aCab,  {'NTOTINF' 		,0 			   ,0                ,NIL} )
	aAdd(aCab, 
 {'NTOTINFLOT' 	,0 			,NIL} )
	
	aAdd(aItens,{  {'CT2_FILIAL'  	,'0101    '   	,xFilial('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'  	    , 10003000          		, NIL},;
	                   {'CT2_ORIGEM'    	 ,'MSEXECAUT'	    , NIL},;
	                   {'CT2_HP'    		       ,''          			 , NIL},;
	                   {'CT2_CONVER'	    ,'1511'            , NIL},;
	                   {'CT2_HIST'       	,'MSEXECCT2'	    , NIL} } ) 		
	         
 
    MSExecAuto({|x, y,z| CTBA102(x,y,z)}, aCab ,aItens, 3)
	
	//ExecAuto de teste da atualização de registro  
	aCab 	 
    If lMsErroAuto
        lMsErroAuto := .F.
        MostraErro()
    Endif
    
RestArea(aArea)

 
Return

#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()


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.
 

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

    aAdd(aCab,  {'DDATALANC' 	,dDataBase 	,NIL} )
	    aAdd(aCab,  {'CLOTE' 		,'008800333333' 	,NIL} )
	    aAdd(aCab,  {'CSUBLOTE' 	,'001' 		,NIL} )
	aAdd(aCab,  {'CDOC' 		,"000033"   ,NIL} )
	aAdd(aCab,  {'CPADRAO' 		,'' 		,NIL} )
	    aAdd(aCab,  {'NTOTINF' 		,0 			,NIL} )
	    aAdd(aCab,  {'NTOTINFLOT' 	,0 			,NIL} )

   
	 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'  	, 1000  		, 3000                                 , NIL},;
	               	{'CT2_ORIGEM' 	,'MSEXECAUT'	                           , NIL},;
	               	{'CT2_HP'  		   ,''   			, NIL},;
      	                {'CT2_CONVER'	,'15'           , NIL},;
  	          {'CT2_CONVER' ,'11'     	               	    	               	
	, NIL},;
               	{'CT2_HIST'   	,'MSEXECCT2-A'	MSEXECCT LANCAMENTO '+cValtoChar(nX) , NIL} })
	    Next nX
 
    MSExecAuto({|x, y,z| CTBA102(x,y,z)}, aCab ,aItens, 43)

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

Next nX


cFileLog := NomeAutoLog()
cPath := ""
If !Empty(cFileLog) .And. !lRet
	MostraErro(cPath,cFileLog)
Endif

RestArea(aArea)
Return
||Preview|| 
||Veja também|| 
||Idioma|| Português(Brasil)
||Versões|| Microsiga_Protheus10_e_Microsiga_Protheus11
||Sistemas Operacionais Suportados||Todos
||Compatível com as Bases de Dados||Todas
||Updates|| 
||Parâmetros|| 
||Retorno|| 
||Eventos de chamada do Ponto de Entrada|| 
||Variáveis|| 
||Programa Fonte|| CTBA102.PRW        MostraErro()
    EndIf


RestArea(aArea)
 
Return 

<!-- esconder o menu --> 


<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>