Histórico da Página

||Descrição|| Exemplo de rotinaRotina 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.

// --------------------------------------------------------------------------
// Na utilização de execAuto considerar os seguintes critérios:
// 1 - Passar o campo CT2_CONVER como 15555,. As demais moedas devem
	 ser feitos 
//devem ser   feitas pela inclusão de um novo aItensitem.
// 2 - naNa alteração de registro passe novamente o ACab.
// --------------------------------------------------------------------------

If MsgYesNo("Deseja realizar a carga dos dados ?")
	oRegua := 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      º±±
±±º          ³                                                            º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso       ³ AP                                                         º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
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,  {'CLOTE' 		,'008800' 	,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} )
	
	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'  	, 1000  		, NIL},;
	               {'CT2_ORIGEM' 	,'MSEXECAUT'	, NIL},;
	               {'CT2_HP'   		,''   			, NIL},;
	               {'CT2_CONVER'	,'15'           , 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 	:= {}
	aItens 	:= {}
	aAdd(aCab,  {'DDATALANC' 	,dDataBase 	,NIL} )
	aAdd(aCab,  {'CLOTE' 		,'008800' 	,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} )
   
	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'  	, 1000  		, NIL},;
	               	{'CT2_ORIGEM' 	,'MSEXECAUT'	, NIL},;
	               	{'CT2_HP'  		,''   			, NIL},;
  	                {'CT2_CONVER'	,'15'           , NIL},;  	                	               	    	               	
	               	{'CT2_HIST'   	,'MSEXECCT2-A'	, NIL}})
	MSExecAuto({|x, y,z| CTBA102(x,y,z)}, aCab ,aItens, 4)

	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