Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Função: Rotina Automática CTBA055 - Arquivo de Índice de Acerto por Inflação
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:
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas