topic-33260

Posts: 198

Joined: Fri Nov 18, 2005 07:34 PM

Ruta definida en cGetFile32
Posted: Wed Nov 30, 2016 11:57 PM

Hola. como puedo pre definir la ruta de busqueda en cGetFile32, por ejemplo que mi carpeta de inicio de busqueda de archivos sea:
C:\Datos\Importar*.Mod

Gracias

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Ruta definida en cGetFile32
Posted: Thu Dec 01, 2016 01:53 AM

Servicomver:

Mira este trozo de código:

Code (fw): Select all Collapse

cHasta := cGetFile32("*.Dbf","Seleccione el archivo actual de expedientes",1,".\Archivos")

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

servicomver

Posts: 198

Joined: Fri Nov 18, 2005 07:34 PM

Re: Ruta definida en cGetFile32
Posted: Fri Dec 02, 2016 05:09 PM

Gracias por responder, no fija la ruta. He notado que al seleccionar un archivo la primera vez, esta ultima ruta queda ya por default.
No he podido hacer que desde el primer intento salga en la ruta definida. Por otro lado puedo obtener solo el nombre del archivo ???, es decir sin la ruta.

Gracias

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Ruta definida en cGetFile32
Posted: Fri Dec 02, 2016 05:18 PM

Mira se ayuda:

Code (fw): Select all Collapse

function FWSavePreviewToPDF( oDevice, cPDF, lOpen )   // oDevice can be oPrinter or oPreview

   local cOrient, oPDF
   local hWnd

   if oDevice:IsKindOf( "TPREVIEW" )
      hWnd    := oDevice:oWnd:hWnd
      oDevice := oDevice:oDevice
   endif
#ifndef USEGDI
   if LoadFreeImage() <= 32
      MsgAlert( FWString( "freeimage.dll not found" ), FWString( "Alert" ) )
      return nil
   endif
#endif

   // MODIFICADO EM: 14/03/2016 PARA SALVAR O PDF NA PASTA: C:\NFEPDF
   cPRGPATH := cFILEPATH( "C:\NFEPDF\" )

   lCHDIR(cPRGPATH)

   // ? hb_CurDrive() + ":\" + CurDir() + "\"

   DEFAULT cPDF   := cGetFile( FWString( "PDF files | *.pdf |" ),;
                               FWString( "Select PDF File to Save" ),, ;
                               CurDir(), .T.,,,;
                               hb_CurDrive() + ":\" + CurDir() + "\" + ;
                               If( oDevice:IsKindOf( "TPreview" ),;
                               oDevice:cName, oDevice:cDocument ) + ".pdf"  )
   if ! Empty( cPDF )
      cPDF = cFileSetExt( cPDF, "pdf" )
      CursorWait()
      cOrient = If( oDevice:nHorzSize() > oDevice:nVertSize(), 'L', 'P' )
      oPdf = fwPdf():New( cPdf, cOrient )
      AEval( oDevice:aMeta, { | cMeta | oPdf:AddMeta( cMeta ) } )
      oPdf:Close()
      CursorArrow()

      DEFAULT lOpen := MsgYesNo( If( FWLanguageID() == 2, FWString( "¿" ) + " ", "" ) + ;
                       FWString( "View" ) + ;
                       " " + cPDF + " " + FWString( "(Y/N)" ) + " ?",;
                       FWString( "Please select" ) )

      if lOpen
         ShellExecute( IfNil( hWnd, GetWndDefault() ), "open", cPDF )
      endif
   else
      cPDF  := nil
   endif

   // VOLTO AO DIRETORIO DO PLENO PARA NAO QUEBRAR OS BANCOS. 14/03/2016 Joao
   lCHDIR( cDirPleno )

   // ? hb_CurDrive() + ":\" + CurDir() + "\"

return cPDF

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

servicomver

Posts: 198

Joined: Fri Nov 18, 2005 07:34 PM

Re: Ruta definida en cGetFile32
Posted: Fri Dec 02, 2016 06:29 PM

Listo !!! si quedo, gracias. solo me falta como saber el nombre del Archivo seleccionado, sin la Ruta.

Gracias

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Ruta definida en cGetFile32
Posted: Fri Dec 02, 2016 08:34 PM

Mira el manual de harbour, porfa:

http://wiki.fivetechsoft.com/doku.php?id=fivewin_funciones_ordenadas_alfabeticamente

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: Ruta definida en cGetFile32
Posted: Mon Dec 05, 2016 12:55 PM

Probaste estas funciones de FWH?

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Ruta definida en cGetFile32
Posted: Mon Dec 05, 2016 01:22 PM

Code (fw): Select all Collapse

   LOCAL cNombreSinPath, cNombreSinExte

   cNombreSinPath := cFileNoPath( cDbfNombre ) - cFileNoExt( cDbfNombre )
   cNombreSinExte := cFileNoExt( cNombreSinPath )

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion