Rotina Automática CTBA055 - Arquivo de Índice de Acerto por Inflação -- 115438

/*/ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Programa  ³MyACTBA055³ Autor ³ Felipe c. Cunha       ³ Data ³ 10/01/12 ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descri‡…o ³Exemplo de chamada do CTBA055 pela MSExecAuto()             ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³Uso       ³SIGACTB                                                     ³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß/*/User Function MyCTBA055()Local   aDadosAuto 	:= {}	// 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 aosDbSelectArea('SIE')DbSetOrder(1)aDadosAuto:= {	{'IE_FILIAL'	, SIE->(XFILIAL("SIE"))	, Nil},;	// Filial				{'IE_MES'		, "03"	, Nil},;	// Mes                {'IE_EXERCIC'	, "2012", Nil},;	// Exercício                {'IE_INDICE'	, 2	, Nil} },;	    // Indice                {'IE_DTAJUS'	, ""	, Nil},;	// Data Ajuste                {'IE_MOEDA'		, ""	, Nil},;	// Moeda                {'IE_SEQ'		, ""	, Nil}}	    // SequenciaMSExecAuto({|x, y| CTBA055(x, y)},aDadosAuto, 3)If lMsErroAuto	lRetorno := .F.	MostraErro()Else	lRetorno:=.T.	MsgAlert("Registro Incluido"," Aviso!")	EndIf               Return