NFENTVEI - Efetua impressão de nota fiscal de retorno

O ponto de entrada NFENTVEI esta localizado na rotina de Ret. Remess/Consig, para que possa ser efetuada a impressão da Nota Fiscal de Retorno.

Function FS_IMPRESSR()
Local lEstErro := lMsHelpAuto
nOpc1   := 0
DEFINE MSDIALOG oDlgPerg TITLE OemtoAnsi(STR0080) FROM  02,04 TO 8,28 OF oMainWnd   //Tipo de Inclusao

 nCkPerg1 := 1
 @ 005,005 RADIO oRadio1 VAR nCkPerg1 3D SIZE 70,10 PROMPT;
 OemToAnsi(STR0081), OemToAnsi(STR0082); //NF de Saida - NF de Retorno
 OF oDlgPerg PIXEL

  @ 028,005 BUTTON oOk  PROMPT OemToAnsi(STR0068) OF oDlgPerg SIZE 43,11 PIXEL ACTION (nOpc1 := 1,oDlgPerg:End())//confirma
  @ 028,048 BUTTON oNo  PROMPT OemToAnsi(STR0069)  OF oDlgPerg SIZE 43,11 PIXEL ACTION (nOpc1 := 2,oDlgPerg:End())//cancela
  
   oOk:SetFocus()

ACTIVATE MSDIALOG oDlgPerg CENTER
lMsHelpAuto := .f.
if nOpc1 == 1
   if nCkPerg1 == 1
    If ExistBlock("NFSAIVEI")
       dbSelectArea("SF2")
       dbSetOrder(1)
       if dbSeek(xFilial("SF2")+VV0->VV0_NUMNFI+VV0->VV0_SERNFI)
          ExecBlock("NFSAIVEI",.f.,.f.,{SF2->F2_DOC,SF2->F2_SERIE,"SN"}) // SN - NF Saida (Normal)
       Endif
    else
         Help(1," ","NOWINDOWS",,"O Nome do RDMAKE padrao é NFSAIVEI",4,1)  //O Nome do RDMAKE padrao eh NFSAIVEI 
    Endif
 Else  
  If ExistBlock("NFENTVEI")
      dbSelectArea("VVF")
      dbSetOrder(1)
      if dbSeek(xFilial("VVF")+VV0->VV0_TRADEV)
          ExecBlock("NFENTVEI",.f.,.f.,{VVF->VVF_NUMNFI,VVF->VVF_SERNFI,VVF_CODFOR,VVF_LOJA})
        Endif  
     else
         Help(1," ","NOWINDOWS",,"O Nome do RDMAKE padrao é NFENTVEI",4,1)  //O Nome do RDMAKE padrao eh NFENTVEI 
     Endif
 Endif
Endif
lMsHelpAuto := lEstErro
Return

VEIVM015, NFENTVEI

NFENTVEI - Efetua impressão de nota fiscal de retorno ( [ ] )

()

/*ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Fun‡„o    ³ NFENTVEI    ³ Autor ³ Rafael Goncalves      ³ Data ³ 10/10/09 ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descri‡„o ³ Ponto de entrada que permite a impressao da NF Retorno     ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³Sintaxe   ³                                                            ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³Uso       ³                                                            ³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß*/User Function NFENTVEI()MsgAlert("O Ponto de Entrada NFENTVEI' foi executado!","Sucesso!")Return