Histórico da Página

CONTEÚDO

Visão Geral
Exemplo de utilização

01. VISÃO GERAL

Composition Setup
import.css=/download/attachments/327912/newLayout.css

...

Função: CTBA276 - Rotina Automática Grupos de Rateio

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

...

Exemplo de utilização da rotina automática no cadastro de Grupos de Rateio.

02. EXEMPLO DE UTILIZAÇÃO

Array of Record

Bloco de código

language	py
theme	Midnight
title	MyCTBA276
linenumbers	true
collapse	true

/*
ÜÜ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ
¿±±±±³Programa

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

										 ³
±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³
Descri‡…o ³Exemplo de chamada do CTBA276 pela MSExecAuto()

³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³Uso

³
±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³
Uso       ³SIGACTB

³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß/


³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function MyCTBA276()
Local   aDadosAuto 	:= {}	// Array com os dados a serem enviados pela MsExecAuto() para gravacao

automaticaLocal

automatica  
Local aItens	 	:= {}	// Array com os dados a serem enviados pela MsExecAuto() para gravacao

automaticaPrivate

automatica
Private lMsHelpAuto := .F.	// Determina se as mensagens de help devem ser direcionadas para o arq. de

logPrivate

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

ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
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


                 //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
                 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

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}})   	//

StatusMSExecAuto

 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

Parâmetros:

Nome

Tipo

Descrição

Default

Obrigatório

Referência

05. TABELAS UTILIZADAS

CW1

Árvore de páginas

Versões comparadas

Versão antiga 3

Nova versão 4

Chave

CONTEÚDO

01. VISÃO GERAL

02. EXEMPLO DE UTILIZAÇÃO

05. TABELAS UTILIZADAS