||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 |