Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Ponto de entrada chamado antes da geração do titulo no financeiro, para que seja possível manipular as informações antes de salvar.

Localização:

Atualização / Mov Oficina / Orc Por Fases

Eventos:

//PE para permitir a manipulação do vetor aTitulo

If ExistBlock("OX004TIT")

aTitulo := ExecBlock("OX004TIT",.f.,.f.,{aTitulo})

EndIf


lMsErroAuto := .f.

MSExecAuto({|x| FINA040(x)},aTitulo)

Programa Fonte:

OFIXX004.PRW

Função:

OX004GERFIN()

Parâmetros:
NomeTipoDescrição
PARAMIXB[1]MatrizArray com os dados do título


Estrutura do array:

{Nome do Campo, Valor, NIL}


Posições:

1 - E1_PREFIXO

2 - E1_NUM

3 - E1_PARCELA

4 - E1_TIPO

5 - E1_NATUREZ

6 - E1_SITUACA

7 - E1_CLIENTE

8 - E1_LOJA

9 - E1_EMISSAO

10 - E1_VENCTO

11 - E1_VENCREA

12 - E1_VALOR

13 - E1_NUMBOR

14 - E1_DATABOR

15 - E1_PORTADO

16 - E1_PREFORI

17 - E1_VEND1

18 - E1_COMIS1

19 - E1_BASCOM1

20 - E1_PEDIDO

21 - E1_NUMNOTA

22 - E1_ORIGEM

23 - E1_SERIE


Retorno:
NomeTipoDescrição

aTitulos

Matriz

retorna o array modificado, que será utilizado na chamada do execAuto

Exemplo:

Include totvs.ch

#include "protheus.ch"


User Function OX004TIT()


Local aTitulos := PARAMIXB[1]


MsgInfo("Passou pelo ponto de entrada","PE OX004TIT")


Return aTitulos