Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Função: Rotina Automatica CTBA270 - Rateio Off-Line
Descrição: Exemplo de utilização da rotina automática no cadastro de Rateio Off-Line Programa Fonte: CTBA270.PRW Sintaxe: Rotina Automatica CTBA270 - Rateio Off-Line ( [ ] ) Retorno:
Observações Exemplos /*/ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Programa ³MyACTBA115³ Autor ³ Felipe c. Cunha ³ Data ³ 10/01/12 ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descri‡…o ³Exemplo de chamada do CTBA115 pela MSExecAuto() ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³Uso ³SIGACTB ³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß/*/User Function MyCTBA270()Local aDadosAuto := {} // Array com os dados a serem enviados pela MsExecAuto() para gravacao automaticaLocal aItens := {} // 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 aos//Nao passar por parametro o valor da filial. //Dados RateioaDadosAuto:= {{'CTQ_RATEIO' , "002" , Nil},; //Código Rateio {'CTQ_DESC' , "RATEIO 002" , Nil},; //Descrição {'CTQ_TIPO' , "1" , Nil},; //Tipo {'CTQ_CTPAR' , "11101" , Nil},; // Conta Contabil {'CTQ_CCPAR' , "" , Nil},; // Centro de Custo {'CTQ_ITPAR' , "" , Nil},; // Item Contabil {'CTQ_CLPAR' , "" , Nil},; // Classe de Valor {'CTQ_CTORI' , "31101" , Nil},; // Conta Contabil {'CTQ_CCORI' , "" , Nil},; // Centro de Custo {'CTQ_ITORI' , "" , Nil},; // Item Contabil {'CTQ_CLORI' , "" , Nil},; // Classe de Valor {'CTQ_PERBAS' , 100 , Nil},; //Perc. Base {'CTQ_MSBLQL' , "2" , Nil}} //Bloqueado //Dados ItemaAdd(aItens, {{'CTQ_SEQUEN' , "001" , Nil},; // Sequencial {'CTQ_CTCPAR' , "11301" , Nil},; // Conta CPar {'CTQ_CCCPAR' , "" , Nil},; // CCusto cPar {'CTQ_ITCPAR' , "" , Nil},; // Item Conta {'CTQ_CLCPAR' , "" , Nil},; // Cod Cl Val {'CTQ_UM' , "AR" , Nil},; // Unidade {'CTQ_VALOR' , 1000 , Nil},; // Valor {'CTQ_PERCEN' , 100 , Nil},; // Percen Ratei {'CTQ_INTERC' , "2" , Nil},; // Intercompany {'CTQ_STATUS' , "1" , Nil}}) // Status MSExecAuto({|X, Y, Z| CTBA270(X, Y, Z)}, aDadosAuto, aItens, 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