F050TMP1 - Rateio Customizado

Descrição

O ponto de entrada F050TMP1 permite efetuar o rateio customizado. Este ponto de entrada substituiu o uso dos pontos de entrada F050TMP2 e F050TMP3.

Observações

O Ponto de Entrada está presente nas funções F050EscRat (definindo se é rateio ou pré-configurado) e CtbRatFin (rateio de Contas a Pagar no Contabilidade Gerencial(SIGACTB). Entre as variáveis que irão pelo parâmetro, a última variável nOpRat é muito importante na utilização correta para este Ponto. Ao executar pela função F050EscRat a variável nOpRat contém 1 e ao executar pela função CtbRatFin a variável nOpRat contém 2.
Caso o Ponto de entrada seja executado pela função F050EscRat e seja necessário abrir a tela de opções de rateio, ao incluir manualmente este deve retornar a posição 2, ou seja, um valor maior ou igual a 1. para que nao abra a tela, e retorne o valor zero na posição 2 do array de retorno é a função aRet .
Caso o ponto de entrada não for compilado, a tela de opção de rateio sempre é executada, caso a inclusão tenha sido manual.
 
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.)//Alteraçã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}\

Idioma

Português(Brasil)

Versões

Microsiga_Protheus10_e_Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

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

Programa Fonte

FINA050.PRX