Árvore de páginas

Ponto de Entrada

Descrição:

Ponto de entrada executado depois da gravação da nota fiscal do processo de remessa para atendimento em campo. Está posicionado fora da Transação.

Parametros:

cNota = Numero da Nota Fiscal

cSerie = Serie da nota fiscal

Eventos:


End Transaction

dbSelectArea("SF2")
dbSetOrder(1)
if dbSeek(xFilial("SF2")+cNota+cSerie)
reclock("SF2",.f.)
SF2->F2_PREFORI := GetNewPar("MV_PREFOFI","OFI")
msunlock()
Endif
// Por algum motivo o cliente permanece bloqueado
SA1->(MsUnLock())
//

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ TEMPORARIO - Desbloqueia SX6 pois a MAPVLNFS esta na dentro da Transacao ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
dbSelectArea("SX6")
MsRUnLock()
//

If ExistBlock("OM020GREM")
ExecBlock("OM020GREM",.f.,.f.,{cNota,cSerie})
EndIf

FMX_TELAINF( "1", aInfNF )

Return .t.

Programa Fonte:

OFIOM020.PRW    

Função:

OM020PREM   

Retorno:

N/A

 

Exemplo:

User Function OM020GREM()

cNota := ParamIxb[01] // Numero da Nota Fiscal

cSerie := ParamIxb[02] // Serie

 

MsgInfo("Ponto de entrada OM020GREM executado com sucesso!")

 

 

Return