NFSAIVEI - Efetua impressão da nota fiscal de saída

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

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, NFSAIVEI

NFSAIVEI - Efetua impressão da nota fiscal de saída ( [ ] )

()

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