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: |
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: |
|
Exemplo:
Include totvs.ch
#include "protheus.ch"
User Function OX004TIT()
Local aTitulos := PARAMIXB[1]
MsgInfo("Passou pelo ponto de entrada","PE OX004TIT")
Return aTitulos