OX100TIT Ponto de Entrada executado antes da geração do titulo no financeiro, para que seja possível manipular as informações antes de gravar o SE1

Descrição:

Ponto de Entrada na rotina de Fechamento de Ordem de Serviço. Executado antes da geração do titulo no financeiro, para que seja possível manipular as informações antes de gravar o SE1.

Eventos:

...

aFINA040 := {;

{"E1_PREFIXO",SF2->F2_PREFIXO , NIL },;

{"E1_NUM" ,SF2->F2_DOC , NIL },;

{"E1_PARCELA",cParcela , NIL },;

{"E1_TIPO" ,(cAliasVS9)->VS9_TIPPAG , NIL },;

{"E1_NATUREZ",cNatureza , NIL },;

{"E1_CLIENTE",VE4->VE4_CODFAB , NIL },;

{"E1_LOJA" ,VE4->VE4_LOJA , NIL },;

{"E1_EMISSAO",dDataBase , NIL },;

{"E1_VENCTO" ,StoD((cAliasVS9)->VS9_DATPAG) , NIL },;

{"E1_VENCREA",DataValida(StoD((cAliasVS9)->VS9_DATPAG)) , NIL },;

{"E1_VALOR" ,(cAliasVS9)->VS9_VALPAG , NIL },;

{"E1_PREFORI",cDMSPrefOri , NIL },;

{"E1_PEDIDO" ,cNumPed , NIL },;

{"E1_NUMNOTA",SF2->F2_DOC , NIL },;

{"E1_SERIE" ,SF2->F2_SERIE , NIL },;

{"E1_ORIGEM" ,"MATA460" , NIL },;

{"E1_VEND1" ,SF2->F2_VEND1 , NIL }}

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

If ExistBlock("OX100TIT")

aFINA040 := ExecBlock("OX100TIT",.f.,.f.,{ aFINA040 , (cAliasVS9)->RECVS9 })

EndIf

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

SA1->(Dbgoto(_nRecSA1))

If lMsErroAuto

DisarmTransaction()

RollbackSx8()

MsUnlockAll()

MostraErro()

MaFisEnd()

MaFisRestore()

Return .f.

EndIf

...

Função:

OX100GERNF()