FiveTech Support Forums

con cGetFile elegimos un fichero para abrir.

Pero ¿cómo se hace para hacer un "guardar como"?. Lo que quiero dar es a elegir el nombre con el que se grabará una DBF que es el resultado de un cálculo sin tener que hacer un dialogo propio con un get.

Hola,

Si lo que quieres el copiar el archivo completo se me ocurre que puedes usar el COPY FILE y, si lo que deseas es copiar la DBF abierta en otra DBF con otro nombre, puedes usar COPY TO.

Saludos.

Rolando

Verhoven wrote:Pero ¿cómo se hace para hacer un "guardar como"?. Lo que quiero dar es a elegir el nombre con el que se grabará una DBF que es el resultado de un cálculo sin tener que hacer un dialogo propio con un get.

#include "FiveWin.ch"

Function Main()

   Local cNewName, ;
         cFilter   := "Bases de datos (*.dbf)|*.dbf|Todos los archivos (*.*)|*.*", ;
         cFolder   := "c:\fhw\samples", ;
         cFilename := "Customer.dbf", ;
         lSaveAs   := .T.

   cNewName := cGetFile( cFilter,, cFolder,, lSaveAs,,, cFileName )
   ?cNewName

Return Nil

Me devuelve el siguiente error:

hb_xfree() Invalid Pointer 005A0EF2 Select the file

Verhoven wrote:Me devuelve el siguiente error:hb_xfree() Invalid Pointer 005A0EF2 Select the file

#include "FiveWin.ch"

Function Main()

   Local cNewName, ;
         cFilter   := "Bases de datos (*.dbf)|*.dbf|Todos los archivos (*.*)|*.*", ;
         cTitle    := "Selecciona la base de datos", ;
         cFolder   := "c:\fwh\samples", ;
         cFilename := "customer.dbf", ;
         lSaveAs   := .T.

   cNewName := cGetFile( cFilter, cTitle,, cFolder, lSaveAs,,, cFileName )
   ?cNewName

Return Nil