   Mensagem("")
   DbCloseAll()
   Abra("1",R_siga,"Si_semaf","Si_semaf")
   dbGoto(3)
   M_fnum := numero + 1
   dbCloseArea()
   if QuickDialog('si_sema3', "Numero da Proxima Nota", { {"Numero da Proxima NF:", "m_fnum", m_fnum, "999999", "", ""} })
      if UpDated() .AND. simnao(24,0,"Confirma Numero da Proxima Nota Fiscal "+Str(m_fnum,6)+" ? ", " Sim ", " Nao ", 2, 80)
         Abra("1",R_siga,"Si_semaf","Si_semaf")
         dbGoto(3)
         Reglock()
         _FIELD->numero := M_fnum-1
      Endif
      DbCloseAll()
   endif
