/*
Üܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ
¿±±±±³Programa ³MyACTBA276³ Autor ³ ³
±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³
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 automatica
Local aItens := {} // Array com os dados a serem enviados pela MsExecAuto() para gravacao automatica
Private lMsHelpAuto := .F. // Determina se as mensagens de help devem ser direcionadas para o arq. de log
Private 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}}) // Status
aAdd(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}}) // Status
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
