PEGERNFT - Manipulação do Vetor

Descrição

Este Ponto de Entrada é utilizado para manipular o vetor. Contém os campos referente ao Título a ser gerado na integração com a rotina Contas a Receber (FINA040). Cada título é executado antes da integração.

Observações

Exemplos

User Function PEGERNFT()
Local aParcela := ParamIxb01 // Parametro 1 - Título a ser manipulado
MsgInfo("Ponto de Entrada PEGERNFT executado com sucesso!","Atenção")
Return(aParcela)

Preview

Veja também

Idioma

Português(Brasil)

Versões

Todas

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

aParc - ARRAY contendo os campos e conteúdos referente ao Título (Contas a Receber) que será gerado.

Retorno

aParcela - ARRAY contendo os campos e conteúdos referente ao Título (Contas a Receber) que será gerado.

Eventos de chamada do Ponto de Entrada

aParc := \{\}
aAdd(aParc,\{"E1_PREFIXO",SF2->F2_PREFIXO,nil\})
aAdd(aParc,\{"E1_NUM" ,SF2->F2_DUPL ,nil\})
aAdd(aParc,\{"E1_PARCELA",cParc ,nil\})
If !Empty(aVetCb[5])
aAdd(aParc,\{"E1_NATUREZ",aVetCb[5] ,nil\})
EndIf
aAdd(aParc,\{"E1_CLIENTE",SF2->F2_CLIENTE,nil\})
aAdd(aParc,\{"E1_LOJA" ,SF2->F2_LOJA ,nil\})
aAdd(aParc,\{"E1_TIPO" ,"NF" ,nil\})
aAdd(aParc,\{"E1_PREFORI",SF2->F2_PREFORI,nil\})
aAdd(aParc,\{"E1_PEDIDO" ,cNumPed ,nil\})
aAdd(aParc,\{"E1_NUMNOTA",SF2->F2_DOC ,nil\})
aAdd(aParc,\{"E1_SERIE" ,SF2->F2_SERIE ,nil\})
aAdd(aParc,\{"E1_EMISSAO",dDataBase ,nil\})
aAdd(aParc,\{"E1_VEND1" ,SF2->F2_VEND1 ,nil\})
If !Empty(aVetCb[6])
aAdd(aParc,\{"E1_PORTADO",aVetCb[6] ,nil\})
EndIf
aAdd(aParc,\{"E1_ORIGEM" ,"MATA460" ,nil\})
...
If lExistPET
aAuxParc := ExecBlock("PEGERNFT",.f.,.f.,\{ aClone(aParc) \})
If ValType(aAuxParc) == "A"
aParc := aClone(aAuxParc)
EndIf
EndIf
If len(aParc) > 0
Pergunte("FIN040",.f.)
lMsErroAuto := .f.
MSExecAuto(\{|x| FINA040(x)\},aParc)
If lMsErroAuto
MostraErro()
EndIf
EndIf

Variáveis

Programa Fonte

OFIXFUNA