Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Função: CTBA276 - Rotina Automática Grupos de Rateio
Descrição: Exemplo de utilização da rotina automática no cadastro de Grupos de Rateio. Programa Fonte: CTBA276.PRW Sintaxe: CTBA276 - Rotina Automática Grupos de Rateio ( [ ] ) Retorno:
Observações Exemplos /*/ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Programa ³MyACTBA276³ Autor ³ Paulo Carnelossi ³ Data ³ 13/01/12 ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³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 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//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//³ 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}}) // StatusaAdd(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}}) // StatusMSExecAuto({|X, Y, Z| CTBA276(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