Rutina automática CTBA115 - Registro de cuadros contables configurables

/*/ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Programa  ³MyACTBA115³ Autor ³ Felipe c. Cunha       ³ Data ³ 10/01/12 ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descri‡…o ³Ejemplo de ticket de CTBA115 pela MSExecAuto()             ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³Uso       ³SIGACTB                                                     ³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß/*/User Function MyCTBA115()Local   aDadosAuto 	:= {}	// Array con los datos que se enviarán por MsExecAuto() para grabación automaticaLocal   aItens	 	:= {}	// Array con los datos que se enviarán por MsExecAuto() para grabación automaticaPrivate lMsHelpAuto := .F.	// Determina si los mensajes de help se deben dirigir al arq. de logPrivate lMsErroAuto := .F.	// Determina si hubo alguna inconsistencia al ejecutar la rutina con relación a los//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//³ No pasar por parámetro el valor de la sucursal.         ³//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙaDadosAuto:= 	{{'CVQ_CODIGO'	, "003"				, Nil},;	// Código               	 {'CVQ_DESCRI'	, "Q. Contab. 003"	, Nil},;	// Descripción               	 {'CVQ_IMPTOT'	, "1"				, Nil}} 	// Imprime Totales                //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//³ No passar por parámetro el valor de la sucursal y codigo.³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙaAdd(aItens,	{{'CVQ_ITEM'	, "001"			, Nil},;	// Código Ítem                 {'CVQ_DESCIT'	, "QC Item 01"	, Nil},;	// Descripción Ítem                 {'CVQ_CDVGIT'	, "003"			, Nil},;   	// Cód. Config Libros                 {'CVQ_FORMPA'	, ""			, Nil},;   	// Form. período anterior                    {'CVQ_FORMPC'	, ""			, Nil}})   	// Form. período actual                   MSExecAuto({|X, Y, Z| CTBA115(X, Y, Z)}, aDadosAuto, aItens, 3)If lMsErroAuto	lRetorno := .F.	MostraErro()Else	lRetorno:=.T.	MsgAlert("Registro Incluido"," Aviso!")	EndIf               Return