Histórico da Página

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