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