/*/ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Programa  ³MyACTBA115³ Autor ³ Felipe c. Cunha       ³ Data ³ 10/01/12 ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descri‡…o ³Exemplo de chamada do CTBA115 pela MSExecAuto()             ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³Uso       ³SIGACTB                                                     ³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß/*/User Function MyCTBA115()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//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//³ Não passar por parametro o valor da filial.         ³//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙaDadosAuto:= 	{{'CVQ_CODIGO'	, "003"				, Nil},;	// Código               	 {'CVQ_DESCRI'	, "Q. Contab. 003"	, Nil},;	// Descrição               	 {'CVQ_IMPTOT'	, "1"				, Nil}} 	// Imprime Totais                //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//³ Não passar por parametro o valor da filial e codigo.³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙaAdd(aItens,	{{'CVQ_ITEM'	, "001"			, Nil},;	// Codigo Item                 {'CVQ_DESCIT'	, "QC Item 01"	, Nil},;	// Descrição Item                 {'CVQ_CDVGIT'	, "003"			, Nil},;   	// Cod. Config Livros                 {'CVQ_FORMPA'	, ""			, Nil},;   	// Form. periodo anterior                    {'CVQ_FORMPC'	, ""			, Nil}})   	// Form. periodo corrente                   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