¿Nombre de archivo en un TextBox?
Hola querido Víctor, se me ocurrió un idea que no puedo llevar a cabo y la misma consiste en ponerle el nombre a un archivo "DBF" según el titulo que yo ingrese en un TextBox. Por ej. Yo exporto una tabla con la siguiente instrucción:
SE LE afiliación
set filter to
set order to dep
COPY TO d:\visual\mutualts\export\Desc_cod505-altas.dbf FOR afiliacion.fech_alta = CTOD(THISFORM.PAGEFRAME1.PAGE1.TEXT1.VALUE) FIELDS afiliacion.dep,afiliacion.legajo,afiliacion.cod,afiliacion.importe,afiliacion.nombre
¿Cuál sería la instrucción o código para que el archivo "Desc_cod505-altas.dbf" tome el nombre del valor que yo introduzca en un TextBox?
Desde ya gracias por tu ayuda que descuento será excepcional como siempre.
Alejandro Merlo
SE LE afiliación
set filter to
set order to dep
COPY TO d:\visual\mutualts\export\Desc_cod505-altas.dbf FOR afiliacion.fech_alta = CTOD(THISFORM.PAGEFRAME1.PAGE1.TEXT1.VALUE) FIELDS afiliacion.dep,afiliacion.legajo,afiliacion.cod,afiliacion.importe,afiliacion.nombre
¿Cuál sería la instrucción o código para que el archivo "Desc_cod505-altas.dbf" tome el nombre del valor que yo introduzca en un TextBox?
Desde ya gracias por tu ayuda que descuento será excepcional como siempre.
Alejandro Merlo
1 Respuesta
Respuesta de Víctor Arturo Mercado Fernández
1
Intenta:
m.cArchivo = "d:\visual\mutualts\export" + ALLTRIM( THISFORM.txtTexto.VALUE ) + ".dbf"
COPY TO (m.cArchivo) FOR afiliacion.fech_alta = CTOD(THISFORM.PAGEFRAME1.PAGE1.TEXT1.VALUE) FIELDS afiliacion.dep,afiliacion.legajo,afiliacion.cod,afiliacion.importe,afiliacion.nombre
Bueno, eso digo yo...
m.cArchivo = "d:\visual\mutualts\export" + ALLTRIM( THISFORM.txtTexto.VALUE ) + ".dbf"
COPY TO (m.cArchivo) FOR afiliacion.fech_alta = CTOD(THISFORM.PAGEFRAME1.PAGE1.TEXT1.VALUE) FIELDS afiliacion.dep,afiliacion.legajo,afiliacion.cod,afiliacion.importe,afiliacion.nombre
Bueno, eso digo yo...
