Histórico da Página

||Descrição|| PontoO ponto de Entradaentrada queF050TMP1 permite efetuar o rateio customizado. Este ponto de entrada substituiu o uso dos pontos de entrada F050TMP2 e F050TMP3, antes utilizados com a mesma finalidade.  
||Observações|| O Ponto de Entrada está presente nas funções F050EscRat (escolhedefinindo se digitaé rateio ou escolhe pré-configurado) e CtbRatFin (rateio de Contas a Pagar -no >Contabilidade Gerencial(SIGACTB). Entre as variáveis que irão porpelo parâmetro para o Ponto de Entrada, a última variável "nOpRat" temé grandemuito importânciaimportante na utilização correta destepara este Ponto,. quandoAo for chamadoexecutar pela função F050EscRat  a variável "nOpRat" irácontém conter "1" e  quandoao forexecutar chamado pela função CtbRatFin a variável "nOpRat" irácontém conter "2".

 
NoCaso casoo do Ponto de Entradaentrada serseja chamadoexecutado pela função F050EscRat e seja desejarnecessário abrir a tela de opções de rateio, quandoao aincluir inclusãomanualmente foreste realizada manualmente, deve retornar naa posição 2, ou seja, um valor maior ou igual a 1. Parapara que nãonao abrirabra a tela, retornare retorne o valor zero na posição 2 do array de retorno "aRet"é a função aRet .
QuandoCaso o Pontoponto de Entradaentrada não for compilado, a tela de opçõesopção de rateio sempre é sempre chamadaexecutada, quandocaso a inclusão fortenha realizadasido manualmentemanual.
 
Realizada alteracao do alias "TMP1" para "TMP" para a rotina de rateio.	
||Exemplos||#include "protheus.ch"
#include "rwmake.ch"
User Function F050TMP1()
Local nOrig := ParamIxb[9]
If nOrig == 2 //Chamada pela CTBRATFIN  	
Reclock("TMP",.T.)//AlteracaoAlteração do alias "TMP1" para "TMP" para a rotina de rateio	
CTJ_DEBITO:="1"                        	
CTJ_PERCEN:=100      	
CTJ_VALOR:=3000	
CTJ_HIST:="PONTO DE ENTRADA F050TMP1, ITEM001!"+TIME()  	
CTJ_FLAG:=.F.	
MSUNLOCK()
ElseIf nOrig == 1 //Chamada pela função F050ESCRAT	//Codigo customizado		
EndIf       
Return({3000,1}) //{Valor do Rateio,Flag com a tela de opções do rateio}
||Preview|| 
||Veja também|| 
||Idioma|| Português(Brasil)
||Versões|| Microsiga_Protheus10_e_Microsiga_Protheus11
||Sistemas Operacionais Suportados||Todos
||Compatível com as Bases de Dados||Todas
||Updates|| 
||Parâmetros|| ParamIxb	:= Array contendo a seguinte 
estrutura [1] = Tipo Digitado/Pré-configurado 
(numérico)[2] = Cód. Rateio 
(caracter)[3] = Programa/Rotina 
(caracter)[4] = Lançamento padrão 
(caracter)[5] = Conta débito 
(caracter)[6] = Conta crédito 
(caracter)[7] = Histórico 
(caracter)[8] = Rotina automática 
(lógico)  [9] = Origem se igual 1 - F050ESCRAT, se igual 2 - CTBRATFIN (numérico)
||Retorno|| aRet(array_of_record)
Retorno em forma de array no seguinte esquema:
aRet[1] = Valor de rateio customizado.
aRet[2] = Flag para abrir a tela de opções de rateio (maior que zero exibe tela de rateio).
||Eventos de chamada do Ponto de Entrada|| 
||Variáveis|| 
||Programa Fonte|| FINA050.PRX