Histórico da Página

A Rotina The CTBA276 - Grupos de Rateio atualmente não possui funcionalidade disponível para ser utilizado através do Acelerador Routine - Apportionment Groups currently does not have available functionality to be used through the Accelerator - MILE.

Do not pass the branch value as a parameterNão passar por parâmetro o valor da filial.

/*
Üܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ
¿±±±±³Programa¿±±±±³Program  ³MyACTBA276³ AutorAuthor ³ 										 ³
±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³
Descri‡…oDescription ³Exemplo³Example deof chamada docalling CTBA276 pelavia MSExecAuto()             ³
±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³
Uso       ³SIGACTB                                                     
³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function MyCTBA276()
Local   aDadosAuto 	:= {}	// Array comwith osdata dadosto abe seremsent enviados pelaby MsExecAuto() parafor gravacaoautomatic automaticarecording.  
Local aItens	 	:= {}	// Array comwith osdata dadosto abe seremsent enviadosby pela MsExecAuto() parafor gravacaoautomatic automaticarecording.
Private lMsHelpAuto := .F.	// DeterminaDetermine se as mensagens de whether help devemmessages sermust direcionadasbe paradirected oto arq. de loglog file
Private lMsErroAuto := .F.	// DeterminaDetermine sewhether houveany algumainconsistency inconsistenciaoccurred nawhen execucaorunning dathe rotinaroutine emin relacaorelation aosto
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//³ Do Nãonot passarpass porthe parametrobranch ovalue valoras daa filialparameter.         ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
aDadosAuto:= 	{{'CW1_CODIGO'	, "900001"							, Nil},;	// CódigoApportionment GrupoGroup RateioCode
               	 {'CW1_DESCRI'	, "DESCRICAOAPPORTIONMENT GRUPOGROUP RATEIODESCRIPTION 000001"	, Nil},;	// DescriçãoApportionment GrupoGroup de RateioDescription               	 
                 {'CW1_TIPO'	, "1"								, Nil},;	// TipooType               	 
                 {'CW1_INDICE'	, ""								, Nil},;	// indiceindex               	 
                 {'CW1_ENTID'	, "1"								, Nil}} 	// entidadeentity                
                 //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//³ NãoDo passarnot porpass parametrothe obranch valorand dacode filialvalues eas codigoparameters.³ 
                 //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
                 aAdd(aItens,	{{'CW1_SEQUEN'	, "001"			, Nil},;	// sequenciasequence				 
                 {'CW1_CONTA'	, "101010100"	, Nil},;	// ContaAccount                 
                 {'CW1_CCUSTO'	, ""			, Nil},;	// CentroCost de CustoCenter                 
                 {'CW1_ITEM'	, ""			, Nil},;   	// Accounting Item Contabil                  
                 {'CW1_CLVL'	, ""			, Nil},;   	// ClasseValue ValorClass                 
                 {'CW1_PERCEN'	, 50			, Nil},;   	// PercentualPercentage                 
                 {'CW1_FATOR'	, 0				, Nil},;   	// FatorFactor                 
                 {'CW1_FORMUL'	, ""			, Nil},;   	// Formula                 
                 {'CW1_STATUS'	, "1"			, Nil}})   	// Status

                 aAdd(aItens,	{{'CW1_SEQUEN'	, "002"			, Nil},;	// sequenciasequence				 
                 {'CW1_CONTA'	, "101010200"	, Nil},;	// ContaAccount                 
                 {'CW1_CCUSTO'	, ""			, Nil},;	// CentroCost deCenter Custo                 
                 {'CW1_ITEM'	, ""			, Nil},;   	// Accounting Item Contabil                  
                 {'CW1_CLVL'	, ""			, Nil},;   	// ClasseValue ValorClass                 
                 {'CW1_PERCEN'	, 50			, Nil},;   	// PercentualPercentage                 
                 {'CW1_FATOR'	, 0				, Nil},;   	// FatorFactor                 
                 {'CW1_FORMUL'	, ""			, Nil},;   	// Formula                 
                 {'CW1_STATUS'	, "1"			, Nil}})   	// Status

                 MSExecAuto({|X, Y, Z| CTBA276(X, Y, Z)}, aDadosAuto, aItens, 3)
                 If lMsErroAuto	
                    lRetorno := .F.	
                    MostraErro()
                 Else	
                    lRetorno:=.T.	
                    MsgAlert("RegistroRecord Incluido"Add," Aviso"Alert!")	
                EndIf               
Return