Error al guardar e imprimir
Hola experto, soy nuevo programando en visual foxpro, uso la version 8, tengo un formulario factura y tengo algunos botones, uno de ellos es "guardar en tabla" y el otro es "imprimir". Uso una tabla libre, si presiono imprimir y luego guardar no hay problema, pero si mando guardar y luego imprimir me dice "el valor, tipo o numero de argumentos no es válido para la función" estos son mis botones:
--------------------Imprimir
folio=THISFORM.TEXT1.VALUE
dia=THISFORM.TEXT2.VALUE
mes=THISFORM.TEXT3.VALUE
anio=THISFORM.TEXT4.VALUE
.
.
SET DEVICE TO PRINTER
SET PRINTER TO
&& ??? "" && EVADIR CONTROLADOR DE WINDOWS
SET PRINTER FONT "Arial",8
@8,108 SAY dia
@8,118 SAY mes
@8,129 SAY anio
..............................guardar
USE C:\CTO\TABLA1
APPEND BLANK
REPLACE folio with VAL(thisform.text1.Value)
REPLACE dia with thisform.text2.Value
REPLACE mes with thisform.text3.Value
REPLACE anio with thisform.text4.Value
&&REPLACE nombre with thisform.text5.Value
MESSAGEBOX("registro grabado")
--------------------Imprimir
folio=THISFORM.TEXT1.VALUE
dia=THISFORM.TEXT2.VALUE
mes=THISFORM.TEXT3.VALUE
anio=THISFORM.TEXT4.VALUE
.
.
SET DEVICE TO PRINTER
SET PRINTER TO
&& ??? "" && EVADIR CONTROLADOR DE WINDOWS
SET PRINTER FONT "Arial",8
@8,108 SAY dia
@8,118 SAY mes
@8,129 SAY anio
..............................guardar
USE C:\CTO\TABLA1
APPEND BLANK
REPLACE folio with VAL(thisform.text1.Value)
REPLACE dia with thisform.text2.Value
REPLACE mes with thisform.text3.Value
REPLACE anio with thisform.text4.Value
&&REPLACE nombre with thisform.text5.Value
MESSAGEBOX("registro grabado")
2 Respuestas
Respuesta de davsoft
1
Respuesta de renehs
1