Ponto de Entrada
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. | ||||||
Localização: | Atualizações \ Mov Oficina \ Fechamento OS Mod 2 | ||||||
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 ... | ||||||
Programa Fonte: | OFIXX100.PRW | ||||||
Função: | OX100GERNF() | ||||||
Parâmetros: |
| ||||||
Retorno: |
|
Exemplo:
Include totvs.ch
// 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.
User Function OX100TIT()
Local aTitulo := ParamIXB[1]
Local nRecVS9 := ParamIXB[2]
MsgInfo("Ponto de entrada OX100TIT executado com sucesso!")
Return aClone(aTitulo)