Rotina Automatica CTBA270 - Rateio Off-Line -- 115517

/*/ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Programa  ³MyACTBA115³ Autor ³ Felipe c. Cunha       ³ Data ³ 10/01/12 ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descri‡…o ³Exemplo de chamada do CTBA115 pela MSExecAuto()             ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³Uso       ³SIGACTB                                                     ³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß/*/User Function MyCTBA270()Local   aDadosAuto 	:= {}	// Array com os dados a serem enviados pela MsExecAuto() para gravacao automaticaLocal   aItens	 	:= {}	// Array com os dados a serem enviados pela MsExecAuto() para gravacao automaticaPrivate lMsHelpAuto := .F.	// Determina se as mensagens de help devem ser direcionadas para o arq. de logPrivate lMsErroAuto := .F.	// Determina se houve alguma inconsistencia na execucao da rotina em relacao aos//Nao passar por parametro o valor da filial.                  //Dados RateioaDadosAuto:= 	{{'CTQ_RATEIO'	, "002"			, Nil},; //Código Rateio               	 {'CTQ_DESC'	, "RATEIO 002"	, Nil},; //Descrição               	 {'CTQ_TIPO'	, "1"			, Nil},; //Tipo				 {'CTQ_CTPAR'	, "11101"		, Nil},; // Conta Contabil             	                	 {'CTQ_CCPAR'	, ""			, Nil},; // Centro de Custo               	 {'CTQ_ITPAR'	, ""			, Nil},; // Item Contabil            	                	 {'CTQ_CLPAR'	, ""			, Nil},; // Classe de Valor                   	 {'CTQ_CTORI'	, "31101"		, Nil},; // Conta Contabil               	 {'CTQ_CCORI'	, ""			, Nil},; // Centro de Custo               	 {'CTQ_ITORI'	, ""			, Nil},; // Item Contabil              	                	 {'CTQ_CLORI'	, ""			, Nil},; // Classe de Valor              	                	                	 {'CTQ_PERBAS'	, 100			, Nil},; //Perc. Base               	 {'CTQ_MSBLQL'  , "2"           , Nil}}  //Bloqueado 					               	                	                				//Dados ItemaAdd(aItens,	{{'CTQ_SEQUEN'	, "001"			, Nil},; // Sequencial   				 {'CTQ_CTCPAR'	, "11301" 		, Nil},; // Conta CPar                 {'CTQ_CCCPAR'	, ""			, Nil},; // CCusto cPar                 {'CTQ_ITCPAR'	, ""			, Nil},; // Item Conta                 {'CTQ_CLCPAR'	, ""			, Nil},; // Cod Cl Val                 {'CTQ_UM'		, "AR"			, Nil},; // Unidade                 {'CTQ_VALOR'	, 1000			, Nil},; // Valor                                  {'CTQ_PERCEN'	, 100			, Nil},; // Percen Ratei                 {'CTQ_INTERC'	, "2"			, Nil},; // Intercompany                 {'CTQ_STATUS'	, "1"			, Nil}}) // Status                                  MSExecAuto({|X, Y, Z| CTBA270(X, Y, Z)}, aDadosAuto, aItens, 3)If lMsErroAuto	lRetorno := .F.	MostraErro()Else	lRetorno:=.T.	MsgAlert("Registro Incluido"," Aviso!")	EndIf               Return