Função: Rotina Automática CTBA055 - Arquivo de Índice de Acerto por Inflação
Abrangências: | Microsiga Protheus 11 , Protheus 10 |
Versões: | Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Nível de Acesso: | Nível 1 (Acesso Clientes) |
Idiomas: | Português (Brasil) , Português (Portugal) , Espanhol , Inglês |
Descrição:
Esta rotina permite a inclusão de Arquivo de Índice de Acerto por Inflação de forma automática.
Programa Fonte:
CTBA055.PRW
Sintaxe:
Rotina Automática CTBA055 - Arquivo de Índice de Acerto por Inflação ( [ ] ) --> {}
Retorno:
-
{}()
Observações
MSExecAuto({|x, y| CTBA055(x, y)},aDadosAuto, 3)
Exemplos
/*/ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Programa ³MyACTBA055³ Autor ³ Felipe c. Cunha ³ Data ³ 10/01/12 ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descri‡…o ³Exemplo de chamada do CTBA055 pela MSExecAuto() ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³Uso ³SIGACTB ³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß/*/User Function MyCTBA055()Local aDadosAuto := {} // 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 aosDbSelectArea('SIE')DbSetOrder(1)aDadosAuto:= { {'IE_FILIAL' , SIE->(XFILIAL("SIE")) , Nil},; // Filial {'IE_MES' , "03" , Nil},; // Mes {'IE_EXERCIC' , "2012", Nil},; // Exercício {'IE_INDICE' , 2 , Nil} },; // Indice {'IE_DTAJUS' , "" , Nil},; // Data Ajuste {'IE_MOEDA' , "" , Nil},; // Moeda {'IE_SEQ' , "" , Nil}} // SequenciaMSExecAuto({|x, y| CTBA055(x, y)},aDadosAuto, 3)If lMsErroAuto lRetorno := .F. MostraErro()Else lRetorno:=.T. MsgAlert("Registro Incluido"," Aviso!") EndIf Return
Parâmetros:
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
Array of Record |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas