TSaveDialog
Publicado: Mié Ene 12, 2011 8:53 pm
Antes este código me generaba el form para guardar un archivo .PDF al cual le sugería el nombre en :cFileName, pero ahora con la 2.x.x ya no me corre, si elimino la linea de asignación a cFileName me corre bien,
WITH OBJECT TFileSaveDlg():New( ::oParent )
:cInitialDir := AppData:DIR_Imagenes + "Documentos"
:cFileName := CharRem(" ", ::oForm:cText + ".pdf") <--- Asigna "FacturaA000010.PDF"
:cFilter := "Fichero Adobe (*.PDF)|*.PDF"
:cDefaultExt := "PDF"
logdebug("GenPDF", :cFileName)
IF !:Run() <---Si :cFileName lleva un valor regresa .f.
RETURN .F.
ELSE
cOutput := :cFilename
ENDIF
END WITH
La modificación anterior no la había tocado por un tiempo, y me genera un GPF en MakePDF, por lo que opte por incluirle el GenPDF() nuevamente de la Clase XPreviewControl y me manda este error:
Construyendo librería ZeaSoftware.lib...
Warning: library was too large for page size, rebuilt with page size 32
0 Files, 1 Warnings, 0 Errors
Tiempo de compilación: 0.23s Tiempo de enlazado: 0.26s Tiempo total: 0.49s
Elimino la función GENPDF() o la dejo a como lo tenia antes y no arroja el mensaje anterior.
Gracias de antemano.
--
Ramón Zea
01.993.231-62-29
Provisional: 01.993.239.30.25
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
--
WITH OBJECT TFileSaveDlg():New( ::oParent )
:cInitialDir := AppData:DIR_Imagenes + "Documentos"
:cFileName := CharRem(" ", ::oForm:cText + ".pdf") <--- Asigna "FacturaA000010.PDF"
:cFilter := "Fichero Adobe (*.PDF)|*.PDF"
:cDefaultExt := "PDF"
logdebug("GenPDF", :cFileName)
IF !:Run() <---Si :cFileName lleva un valor regresa .f.
RETURN .F.
ELSE
cOutput := :cFilename
ENDIF
END WITH
La modificación anterior no la había tocado por un tiempo, y me genera un GPF en MakePDF, por lo que opte por incluirle el GenPDF() nuevamente de la Clase XPreviewControl y me manda este error:
Construyendo librería ZeaSoftware.lib...
Warning: library was too large for page size, rebuilt with page size 32
0 Files, 1 Warnings, 0 Errors
Tiempo de compilación: 0.23s Tiempo de enlazado: 0.26s Tiempo total: 0.49s
Elimino la función GENPDF() o la dejo a como lo tenia antes y no arroja el mensaje anterior.
Gracias de antemano.
--
Ramón Zea
01.993.231-62-29
Provisional: 01.993.239.30.25
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
--