Histórico da Página

/*/ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Programa  ³MyACTBA276³ Autor ³ Paulo Carnelossi      ³ Data ³ 13/01/12 ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descri‡…o ³Exemplo de chamada do CTBA276 pela MSExecAuto()             ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³Uso       ³SIGACTB                                                     ³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß/*/User Function MyCTBA276()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:= 	{{'CW1_CODIGO'	, "900001"							, Nil},;	// Código Grupo Rateio               	 {'CW1_DESCRI'	, "DESCRICAO GRUPO RATEIO 000001"	, Nil},;	// Descrição Grupo de Rateio               	 {'CW1_TIPO'	, "1"								, Nil},;	// Tipoo               	 {'CW1_INDICE'	, ""								, Nil},;	// indice               	 {'CW1_ENTID'	, "1"								, Nil}} 	// entidade                //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//³ Não passar por parametro o valor da filial e codigo.³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙaAdd(aItens,	{{'CW1_SEQUEN'	, "001"			, Nil},;	// sequencia				 {'CW1_CONTA'	, "101010100"	, Nil},;	// Conta                 {'CW1_CCUSTO'	, ""			, Nil},;	// Centro de Custo                 {'CW1_ITEM'	, ""			, Nil},;   	// Item Contabil                  {'CW1_CLVL'	, ""			, Nil},;   	// Classe Valor                 {'CW1_PERCEN'	, 50			, Nil},;   	// Percentual                 {'CW1_FATOR'	, 0				, Nil},;   	// Fator                 {'CW1_FORMUL'	, ""			, Nil},;   	// Formula                 {'CW1_STATUS'	, "1"			, Nil}})   	// StatusaAdd(aItens,	{{'CW1_SEQUEN'	, "002"			, Nil},;	// sequencia				 {'CW1_CONTA'	, "101010200"	, Nil},;	// Conta                 {'CW1_CCUSTO'	, ""			, Nil},;	// Centro de Custo                 {'CW1_ITEM'	, ""			, Nil},;   	// Item Contabil                  {'CW1_CLVL'	, ""			, Nil},;   	// Classe Valor                 {'CW1_PERCEN'	, 50			, Nil},;   	// Percentual                 {'CW1_FATOR'	, 0				, Nil},;   	// Fator                 {'CW1_FORMUL'	, ""			, Nil},;   	// Formula                 {'CW1_STATUS'	, "1"			, Nil}})   	// StatusMSExecAuto({|X, Y, Z| CTBA276(X, Y, Z)}, aDadosAuto, aItens, 3)If lMsErroAuto	lRetorno := .F.	MostraErro()Else	lRetorno:=.T.	MsgAlert("Registro Incluido"," Aviso!")	EndIf               Return