/*
Üܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ
¿±±±±³Programa ³MyACTBA276³ Autor ³ ³
±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³
Descri‡…o ³Exemplo de chamada do CTBA276 pela MSExecAuto() ³
±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³
Uso ³SIGACTB
³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function MyCTBA276()
Local aDadosAuto := {} // Array con los datos que se enviarán por la MsExecAuto() para grabación automática
Local aItens := {} // Array con los datos que se enviarán por la MsExecAuto() para grabación automática
Private lMsHelpAuto := .F. // Determina si los mensajes de help deben orientarse al arch. de log
Private lMsErroAuto := .F. // Determina si hubo alguna inconsistencia en la ejecución de la rutina con relación a los
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//³ No informar por parámetro el valor de la sucursal. ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
aDadosAuto:= {{'CW1_CODIGO' , "900001" , Nil},; // Código Grupo prorrateo
{'CW1_DESCRI' , "DESCRICAO GRUPO RATEIO 000001" , Nil},; // Descripción Grupo de prorrateo
{'CW1_TIPO' , "1" , Nil},; // Tipo
{'CW1_INDICE' , "" , Nil},; // Índice
{'CW1_ENTID' , "1" , Nil}} // Ente
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//³ No informar por parámetro el valor de la sucursal y código.³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
aAdd(aItens, {{'CW1_SEQUEN' , "001" , Nil},; // secuencia
{'CW1_CONTA' , "101010100" , Nil},; // Conta
{'CW1_CCUSTO' , "" , Nil},; // Centro de costo
{'CW1_ITEM' , "" , Nil},; // Ítem contable
{'CW1_CLVL' , "" , Nil},; // Clase valor
{'CW1_PERCEN' , 50 , Nil},; // Porcentaje
{'CW1_FATOR' , 0 , Nil},; // Factor
{'CW1_FORMUL' , "" , Nil},; // Fórmula
{'CW1_STATUS' , "1" , Nil}}) // Estatus
aAdd(aItens, {{'CW1_SEQUEN' , "002" , Nil},; // secuencia
{'CW1_CONTA' , "101010200" , Nil},; // Cuenta
{'CW1_CCUSTO' , "" , Nil},; // Centro de costo
{'CW1_ITEM' , "" , Nil},; // Ítem contable
{'CW1_CLVL' , "" , Nil},; // Clase valor
{'CW1_PERCEN' , 50 , Nil},; // Porcentaje
{'CW1_FATOR' , 0 , Nil},; // Factor
{'CW1_FORMUL' , "" , Nil},; // Fórmula
{'CW1_STATUS' , "1" , Nil}}) // Estatus
MSExecAuto({|X, Y, Z| CTBA276(X, Y, Z)}, aDadosAuto, aItens, 3)
If lMsErroAuto
lRetorno := .F.
MostraErro()
Else
lRetorno:=.T.
MsgAlert("Registro incluido"," ¡Aviso!")
EndIf
Return
