The CTBA276 Routine - Apportionment Groups currently does not have available functionality to be used through the Accelerator - MILE.

Do not pass the branch value as a parameter.

/*
Üܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ
¿±±±±³Program  ³MyACTBA276³ Author ³ 										 ³
±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³
Description ³Example of calling CTBA276 via MSExecAuto()             ³
±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³
Uso       ³SIGACTB                                                     
³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function MyCTBA276()
Local   aDadosAuto 	:= {}	// Array with data to be sent by MsExecAuto() for automatic recording.  
Local aItens	 	:= {}	// Array with data to be sent by MsExecAuto() for automatic recording.
Private lMsHelpAuto := .F.	// Determine whether help messages must be directed to log file
Private lMsErroAuto := .F.	// Determine whether any inconsistency occurred when running the routine in relation to
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//³ Do not pass the branch value as a parameter.         ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
aDadosAuto:= 	{{'CW1_CODIGO'	, "900001"							, Nil},;	// Apportionment Group Code
               	 {'CW1_DESCRI'	, "APPORTIONMENT GROUP DESCRIPTION 000001"	, Nil},;	// Apportionment Group Description               	 
                 {'CW1_TIPO'	, "1"								, Nil},;	// Type               	 
                 {'CW1_INDICE'	, ""								, Nil},;	// index               	 
                 {'CW1_ENTID'	, "1"								, Nil}} 	// entity                
                 //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//³ Do not pass the branch and code values as parameters.³ 
                 //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
                 aAdd(aItens,	{{'CW1_SEQUEN'	, "001"			, Nil},;	// sequence				 
                 {'CW1_CONTA'	, "101010100"	, Nil},;	// Account                 
                 {'CW1_CCUSTO'	, ""			, Nil},;	// Cost Center                 
                 {'CW1_ITEM'	, ""			, Nil},;   	// Accounting Item                  
                 {'CW1_CLVL'	, ""			, Nil},;   	// Value Class                 
                 {'CW1_PERCEN'	, 50			, Nil},;   	// Percentage                 
                 {'CW1_FATOR'	, 0				, Nil},;   	// Factor                 
                 {'CW1_FORMUL'	, ""			, Nil},;   	// Formula                 
                 {'CW1_STATUS'	, "1"			, Nil}})   	// Status

                 aAdd(aItens,	{{'CW1_SEQUEN'	, "002"			, Nil},;	// sequence				 
                 {'CW1_CONTA'	, "101010200"	, Nil},;	// Account                 
                 {'CW1_CCUSTO'	, ""			, Nil},;	// Cost Center                 
                 {'CW1_ITEM'	, ""			, Nil},;   	// Accounting Item                  
                 {'CW1_CLVL'	, ""			, Nil},;   	// Value Class                 
                 {'CW1_PERCEN'	, 50			, Nil},;   	// Percentage                 
                 {'CW1_FATOR'	, 0				, Nil},;   	// Factor                 
                 {'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("Record Add," "Alert!")	
                EndIf               
Return