Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Aviso
titleImportante - MILE

A rotina Rotina CTBA276 - Grupos de Rateio atualmente não está preparada possui funcionalidade disponível para ser utilizada via o utilizado através do Acelerador - MILE.


02. EXEMPLO DE UTILIZAÇÃO

Informações
titleObservação

Não passar por parâmetro o valor da filial.

Bloco de código
languagepygroovy
themeMidnight
titleMyCTBA276
linenumberstrue
collapsetrue
/*
Üܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ
¿±±±±³Programa  ³MyACTBA276³ Autor ³ 										 ³
±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³
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 automatica  
Local aItens	 	:= {}	// Array com os dados a serem enviados pela MsExecAuto() para gravacao automatica
Private lMsHelpAuto := .F.	// Determina se as mensagens de help devem ser direcionadas para o arq. de 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:= 	{{'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}})   	// 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}})   	// 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

...