||Descrição|| Ponto de Entrada que 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 (escolhe se digita rateio ou escolhe pré-configurado) e CtbRatFin (rateio de Contas a Pagar - > SIGACTB). Entre as variáveis que irão por parâmetro para o Ponto de Entrada, a última variável "nOpRat" tem grande importância na utilização correta deste Ponto, quando for chamado pela função F050EscRat a variável "nOpRat" irá conter "1" e quando for chamado pela função CtbRatFin a variável "nOpRat" irá conter "2".
No caso do Ponto de Entrada ser chamado pela função F050EscRat e desejar abrir a tela de opções de rateio, quando a inclusão for realizada manualmente, deve retornar na posição 2, um valor maior ou igual a 1. Para não abrir a tela, retornar o valor zero na posição 2 do array de retorno "aRet".
Quando o Ponto de Entrada não for compilado, a tela de opções de rateio é sempre chamada, quando a inclusão for realizada manualmente .
||Exemplos||
#include "protheus.ch"
#include "rwmake.ch"
User Function F050TMP1()
Local nOrig := ParamIxb[9]
If nOrig == 2 //Chamada pela CTBRATFIN
Reclock("TMP1",.T.)
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,0}) //{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 | 