topic-23342

Board index FiveWin para Harbour/xHarbour Elegir donde guardar un archivo

Posts: 196

Joined: Fri May 15, 2009 01:25 AM

Elegir donde guardar un archivo
Posted: Wed Jan 25, 2012 02:55 AM

Amigos del foro

Encontré por ahí en el foro un trozo de codigo para abrir un archivo

function GetArchivo( cArchivo )
    LOCAL gcFile := ""
   gcFile := cGetFile( "Texto (*.txt)| *.txt|" +    ;
                       "All Files (*.*)| *.*"         ;
                       ,"Por favor seleccione un archivo de texto", 4 )

   if ! Empty( gcFile ) .and. File( gcFile )
      cArchivo := gcFile
   endif

return nil

Lo que pretendo hacer ahora es crear un archivo con la instruccion COPY TO ARCHIVO.TXT y poder elegir en que carpeta guardarlo

De antemano muchas gracias

Saludos

Juan Arroyo
México
FWH 7.12 VERCE 5.3 xHarbour 1.1.0
juan_arroyo_t@hotmail.com

Willi Quintana

Posts: 1054

Joined: Sun Oct 09, 2005 10:41 PM

Re: Elegir donde guardar un archivo
Posted: Wed Jan 25, 2012 03:43 AM

Prueba asi:
Salu2

Code (fw): Select all Collapse

local cTitRep := "Archivo PDF"

cDestino := cGetFile( "Documento de Adobe Acrobat   | *.PDF", "Guardar Reporte Exportado a PDF", 1, , .T., .T.,,ALLTRIM(cTitRep))
cDestino := ALLTRIM(cDestino)

juan_arroyo_t

Posts: 196

Joined: Fri May 15, 2009 01:25 AM

Re: Elegir donde guardar un archivo (SOLUCIONADO)
Posted: Wed Jan 25, 2012 05:25 AM

Willi

Muchisimas gracias por atender mi peticion

Lo que sucede es que el archivo que quiero generar debe estar en formato txt porque así me lo pide una aplicacion comercial de inventarios y lo que quiero es que el usuario en mi aplicacion pueda seleccionar en que carpeta guardarlo

Viendo aqui y alla dentro del foro, lo resolvi de esta manera

Code (fw): Select all Collapse

/* -------------------------------------------------------------------------
PROGRAMA : ------------------------------       FISTXT.PRG
PROPOSITO : -----------------------------       GENERA ARCHIVO FISICO.TXT PARA 
                                                            EL AJUSTE AUTOMATICO DE INVENTARIO
                                                            FISICO EN EL SAE
APLICACION : ----------------------------       INVENTARIOS FISICOS
FECHA : ---------------------------------       22/01/12 J.A.T.
-----------------------------------------------------------------------------*/

# include "fivewin.ch"

FUNCTION FisTxt()
    local cDirName
    
    IF ! MsgYesNo( "Generacion de Fisico.txt" + CRLF + CRLF + ;
                     "Desea continuar ?", oApp:cEmpresa )
        RETURN NIL
    ENDIF
    
    cDirName := cGetDir( "Seleccione un directorio",;
                              CurDrive() + ":\" + GetCurDir() )

   GeneraTxt( cDirName )
   
   dbCloseAll()
   
RETURN NIL

// -------------------------------------------------------------------------- //

STATIC FUNCTION GeneraTxt( cDirName )
    local cArchivo := "FISICO.TXT"
    LOCAL cRuta := cDirName + "\" + cArchivo
    
    IF ! net_use( "cat",,,oApp:xDatos )
        dbCloseAll(); RETURN NIL
    ENDIF
    
    IF File( @cRuta )
        IF ! MsgYesNo( "El archivo ya existe, lo sobreescribe ?", oApp:cEmpresa )
            RETURN NIL
        ENDIF
    ENDIF
    
    COPY TO &cRuta FIELDS cat->id, cat->cant_fis DELIMITED WITH '"'
    
    MsgInfo( "Proceso de generacion de Fisico.txt terminado, pulse cualquier tecla", oApp:cEmpresa )
    
RETURN NIL

// -------------------------------------------------------------------------- //

// FIN DE : FISTXT.PRG

Saludos

Juan Arroyo
México
FWH 7.12 VERCE 5.3 xHarbour 1.1.0
juan_arroyo_t@hotmail.com

FiveTech Support Forums

Continue the discussion