FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour error rpreview FWH 10.12 (Solucionado)
JoseLuis
Posts: 428
Joined: Thu Oct 19, 2006 12:28 PM
error rpreview FWH 10.12 (Solucionado)
Posted: Thu Jan 20, 2011 07:58 PM
Buenas

Estoy haciendo pruebas con el nuevo rpreview, y en todas las impresiones va bien, excepto en el fuente que indico a continuaci贸n.

Code (fw): Select all Collapse
#include "FiveWin.ch"
#include "Report.ch"
#include "Ord.ch"
memvar publicas
function busquedas()
local aAlias
local oDlg,oboton,oboton1
local continua:=.F.
local afich:={},fichero:={}
local ipdf:=.F.
local fpdf:=2
local oRadio1,i,osay
local ofich1,ofich2,ofich3,ofich4,ofich5,ofich6,ofich7
Publicas:aini:=space(5)
aAlias:= cargaAlias()
dbUseArea(.T.,,Publicas:cUnidad+Publicas:cSubd+"\ALBARAN",aAlias[24],.T.)
(aAlias[24])->(OrdSetFocus("Factura"))
(aAlias[24])->( dbGotop() )
for i = 1 to 6
聽aadd(afich,0)
next i
for i = 1 to 6
聽aadd(fichero,space(11))
next i
DEFINE DIALOG oDlg RESOURCE "BUSQUEDAS" BRUSH Publicas:oBrush1 TRANSPARENT Font Publicas:oWPpal:ofont
REDEFINE SAY osay ID 10 OF oDlg COLOR CLR_GREEN
REDEFINE RADIO oRadio1 聽VAR fpdf 聽 聽ID 200 , 201 OF oDlg;
聽 聽 聽 聽 聽on change(iif(fpdf=1,(oFich1:Show(),oFich1:Setfocus(),ofich2:hide(),ofich3:hide(),ofich4:hide(),ofich5:hide(),ofich6:hide(),ofich7:hide(),oDlg:Update()),;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 (oFich1:Hide(),oFich2:Setfocus(),ofich2:Show(),ofich3:Show(),ofich4:Show(),ofich5:Show(),ofich6:Show(),ofich7:Show(),oDlg:Update())))
REDEFINE get ofich1 VAR Publicas:aini ID 100 OF oDlg Update ; 聽
聽 聽 聽 聽 聽Valid ((Publicas:aIni:= Padl(alltrim(Publicas:aIni),5,"0")),;
聽 聽 聽 聽 聽IIf ((!(aAlias[24])->(dbseek(Publicas:aIni)) .or. Publicas:aIni='00000') .and. fpdf=1,;
聽 聽 聽 聽 聽(MsgStop(OemToAnsi("El Numero de Factura no es valido"),"ERROR"),.F.),(.T.)))

REDEFINE GET ofich2 VAR afich[1] ID 101 OF oDlg Update;
聽 聽 聽 聽 聽Valid (IIf (!file (Publicas:eimagen+str(afich[1],7)+".jpg") .and. fpdf=2,;
聽 聽 聽 聽 聽(msginfo("No encuentro el fichero","ATENCION"),.F.),;
聽 聽 聽 聽 聽(fichero[1]:=str(afich[1],7)+".jpg",oDlg:Update(),.T. )))
聽
REDEFINE GET ofich3 VAR afich[2] ID 102 OF oDlg Update;
聽 聽 聽 聽 聽Valid (IIf (!file (Publicas:eimagen+str(afich[2],7)+".jpg") .and. fpdf=2,;
聽 聽 聽 聽 聽(msginfo("No encuentro el fichero","ATENCION"),.F.),;
聽 聽 聽 聽 聽(fichero[2]:=str(afich[2],7)+".jpg",oDlg:Update(),.T. )))

REDEFINE GET ofich4 VAR afich[3] ID 103 OF oDlg Update;
聽 聽 聽 聽 聽Valid (IIf (!file (Publicas:eimagen+str(afich[3],7)+".jpg") .and. fpdf=2,;
聽 聽 聽 聽 聽(msginfo("No encuentro el fichero","ATENCION"),.F.),;
聽 聽 聽 聽 聽(fichero[3]:=str(afich[3],7)+".jpg",oDlg:Update(),.T. )))

REDEFINE GET ofich5 VAR afich[4] ID 104 OF oDlg Update;
聽 聽 聽 聽 聽Valid (IIf (!file (Publicas:eimagen+str(afich[4],7)+".jpg") .and. fpdf=2,;
聽 聽 聽 聽 聽(msginfo("No encuentro el fichero","ATENCION"),.F.),;
聽 聽 聽 聽 聽(fichero[4]:=str(afich[4],7)+".jpg",oDlg:Update(),.T. )))
聽 
REDEFINE GET ofich6 VAR afich[5] ID 105 OF oDlg Update;
聽 聽 聽 聽 聽Valid (IIf (!file (Publicas:eimagen+str(afich[5],7)+".jpg") .and. fpdf=2,;
聽 聽 聽 聽 聽(msginfo("No encuentro el fichero","ATENCION"),oDlg:Update(),.F.),;
聽 聽 聽 聽 聽(fichero[5]:=str(afich[5],7)+".jpg",oDlg:Update(),.T. )))

REDEFINE GET ofich7 VAR afich[6] ID 106 OF oDlg Update;
聽 聽 聽 聽 聽Valid (IIf (!file (Publicas:eimagen+str(afich[6],7)+".jpg") .and. fpdf=2,;
聽 聽 聽 聽 聽(msginfo("No encuentro el fichero","ATENCION"),.F.),;
聽 聽 聽 聽 聽(fichero[6]:=str(afich[6],7)+".jpg",oDlg:Update(),.T. )))

REDEFINE CHECKBOX ipdf ID 300 OF oDlg Update
REDEFINE BUTTON oboton ID 550 OF oDlg PROMPT "Aceptar" ;
聽 聽 聽 聽 聽 聽 聽 聽 ACTION (Continua := .T., oDlg:End())
REDEFINE BUTTON oboton1 ID 551 OF oDlg PROMPT "Cancelar" ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ACTION (oDlg:End()) CANCEL
ACTIVATE DIALOG oDlg CENTERED ON INIT( Tget():lClrFocus:=.T.,ofich1:hide())

if continua 
聽 聽Rascayu(aAlias,fpdf,ipdf,fichero,afich)
endif
聽 (aAlias[24])->(Dbclosearea())
聽 Dbcloseall()
Return nil

Static Function Rascayu(aAlias,fpdf,ipdf,fichero,afich)
local oFont1
local oFont2
local oPrn
local open1
local hoja 聽 聽 := 1
local swp 聽 聽 聽:= 0
local liz
local atamano
local nwidth
local nheight,i
local ai,ad
local osay
local oimagen[6]
local li:=1,co:=1,aEn,aTam
local page:=0,n,imagen,numero
Do case 
聽Case fpdf=1 
聽 (aAlias[24])->(Ordscope(0,Publicas:aIni))
聽 (aAlias[24])->(Ordscope(1,Publicas:aIni))
聽 (aAlias[24])->(Dbgotop())
聽 if ipdf=.T.
聽 聽MsgWait( " Albaranes 聽", "GENERANDO PDF", 1 )
聽 聽PRINT oPrn NAME "Copias" TO "PDFCreator" 聽// FROM USER //PREVIEW
聽 else
聽 聽PRINT oPrn NAME "Liquida" from USER PREVIEW
聽 endif 
聽 if empty(oPrn:hDC) 
聽 聽MsgStop("Impresora no preparada !")
聽 聽return nil
聽 endif 
聽 DEFINE FONT oFont1 NAME "Courier New" SIZE 0,- 10 OF oPrn 
聽 DEFINE FONT oFont2 NAME "Courier New" SIZE 0,- 12 BOLD OF oPrn
聽 DEFINE PEN oPen1 WIDTH 8
聽 DEFINE IMAGE oImagen[1]
聽 oPrn:SetPage(1)
聽 do while !(aAlias[24])->(Eof())
聽 聽li:=1
聽 聽co:=1
聽 聽PAGE
聽 聽 oPrn:cmSay(0.5,1,'Fra : 聽'+Publicas:aIni,oFont2 聽) 聽 聽 聽 聽 
聽 聽 FOR I =1 TO 3
聽 聽 聽fichero:=str((aAlias[24])->orden,7)+".jpg"
聽 聽 聽aEn:=oPrn:Cmtr2Pix(li,1)
聽 聽 聽aTam:=oPrn:Cmtr2Pix(20,9)
聽 聽 聽if file(Publicas:eimagen+fichero) .or. (aAlias[24])->(Eof()) //5
聽 聽 聽 oImagen[1]:LoadImage(,Publicas:eimagen+fichero)
聽 聽 聽 oPrn:SayImage(aEn[1],aEn[2],oImagen[1],aTam[1],aTam[2] 聽) 
聽 聽 聽else
聽 聽 聽 oPrn:cmSay(aEn[1]+4,aEn[2]+4,"IMAGEN NO DISPONIBLE",oFont2 聽) 聽 聽 聽 聽 聽 聽
聽 聽 聽endif 
聽 聽 聽 li+=9.1
聽 聽 聽 ai:=oPrn:Cmtr2Pix(li,co+1)
聽 聽 聽 ad:=oPrn:Cmtr2Pix(li,co+19)
聽 聽 聽 oPrn:line( ai[1], ai[2],ad[1],ad[2],open1 )
聽 聽 聽 li+=0.2
聽 聽 聽 (aAlias[24])->(Dbskip())
聽 聽 聽 if (aAlias[24])->(Eof())
聽 聽 聽 聽exit
聽 聽 聽 endif
聽 聽 NEXT
聽 聽ENDPAGE 
聽 enddo
聽 ENDPRINT
聽 oFont2:End()
聽 oFont1:End()
聽 oPen1:End()
聽 oImagen[1]:End()
聽 oPrn:End()
聽 (aAlias[24])->(Ordscope(0,Nil))
聽 (aAlias[24])->(Ordscope(1,Nil))
聽
聽Case fpdf=2
聽 聽if ipdf=.T. 
聽 聽 MsgWait( " Albaranes 聽", "GENERANDO PDF", 1 )
聽 聽 PRINT oPrn NAME "Copias" TO "PDFCreator" 
聽 聽else
聽 聽 PRINT oPrn NAME "Liquida" from USER PREVIEW
聽 聽endif 
聽 聽if empty(oPrn:hDC)
聽 聽 MsgStop("Impresora no preparada !")
聽 聽 return nil
聽 聽endif
聽 聽DEFINE FONT oFont1 NAME "Courier New" SIZE 0,- 10 OF oPrn
聽 聽DEFINE FONT oFont2 NAME "Courier Nes" SIZE 0,- 12 BOLD OF oPrn
聽 聽DEFINE PEN oPen1 WIDTH 8
聽 聽DEFINE IMAGE oImagen[1]
聽 聽DEFINE IMAGE oImagen[2]
聽 聽DEFINE IMAGE oImagen[3]
聽 聽DEFINE IMAGE oImagen[4]
聽 聽DEFINE IMAGE oImagen[5]
聽 聽DEFINE IMAGE oImagen[6]
聽 聽oPrn:SetPage(1)
聽 聽if afich[1] == 0
聽 聽 聽msgAlert("NO HAY DATOS","ATENCION")
聽 聽else
聽 聽 n:=1
聽 聽PAGE
聽 聽 do while .t.
聽 聽 聽numero:=alltrim(str(n),1)
聽 聽 聽aEn:=oPrn:Cmtr2Pix(li,1)
聽 聽 聽aTam:=oPrn:Cmtr2Pix(20,9)
聽 聽 聽oImagen[n]:LoadImage(,Publicas:eimagen+fichero[n])
聽 聽 聽oPrn:SayImage(aEn[1],aEn[2],oImagen[n],aTam[1],aTam[2] 聽) 
聽 聽 聽li+=9.1
聽 聽 聽if n <> 3 .or. n <> 6
聽 聽 聽 ai:=oPrn:Cmtr2Pix(li,co+1)
聽 聽 聽 ad:=oPrn:Cmtr2Pix(li,co+19)
聽 聽 聽 oPrn:line( ai[1], ai[2],ad[1],ad[2],open1 )
聽 聽 聽 li+=0.2
聽 聽 聽endif
聽 聽 聽if afich[n+1] == 0 .or. n == 6
聽 聽 聽 聽 exit
聽 聽 聽endif
聽 聽 聽if n = 3
聽 聽 聽 li:=1
聽 聽 聽 ENDPAGE
聽 聽 聽endif
聽 聽 聽n+=1
聽 聽 enddo
聽 聽 ENDPAGE
聽 聽 endif
聽 聽 ENDPRINT
聽 聽 oFont2:End()
聽 聽 oFont1:End()
聽 聽 oPen1:End()
聽 聽 oImagen[1]:End()
聽 聽 oImagen[2]:End()
聽 聽 oImagen[3]:End()
聽 聽 oImagen[4]:End()
聽 聽 oImagen[5]:End()
聽 聽 oImagen[6]:End()
聽 聽 oPrn:End()
end case
return nil


Me da errores tanto al imprimir, como al pasar de p谩gina, como al grabar como .doc etc,

Que puede ser?
--------------------------

Saludos



Jose Luis
JoseLuis
Posts: 428
Joined: Thu Oct 19, 2006 12:28 PM
Re: error rpreview FWH 10.12
Posted: Thu Jan 20, 2011 11:12 PM
A帽ado informaci贸n:

Si en lugar de
Code (fw): Select all Collapse
 聽 PRINT oPrn NAME "Liquida" from USER PREVIEW


Pongo
Code (fw): Select all Collapse
 聽 PRINT oPrn NAME "Liquida" from USER PREVIEW MODAL


Ya no me da errores, pero claro, el preview se sale de la ventana MDI, adem谩s de que incluso cuando cierras la aplicaci贸n, queda el proceso abierto en el administrador de tareas, aunque al salir de la aplicaci贸n pongamos:
Code (fw): Select all Collapse
SET RESOURCES TO
DBCLOSEALL()
resallfree() //por si quedan recursos en memoria....
memory(-1)


Es algun error?
--------------------------

Saludos



Jose Luis
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: error rpreview FWH 10.12
Posted: Fri Jan 21, 2011 08:32 AM

Jose Luis,

Que error es el que te aparece ?

Por favor copia aqui el error.log, gracias

regards, saludos

Antonio Linares
www.fivetechsoft.com
JoseLuis
Posts: 428
Joined: Thu Oct 19, 2006 12:28 PM
Re: error rpreview FWH 10.12
Posted: Fri Jan 21, 2011 10:47 AM
Si pincho en el icono imprimir, simplemente no imprime, no da error.

Si pincho en ir a la ultima pagina:

Code (fw): Select all Collapse
Application
===========
聽 聽Path and name: C:\five\fuentes\GESPAQ08\gespaqn.Exe (32 bits)
聽 聽Size: 1,324,544 bytes
聽 聽Time from start: 0 hours 1 mins 4 secs 
聽 聽Error occurred at: 21/01/11, 11:02:31
聽 聽Error description: Error BASE/1132 聽Bound error: array access
聽 聽Args:
聽 聽 聽[ 聽 1] = A 聽 { ... }
聽 聽 聽[ 聽 2] = N 聽 0

Stack Calls
===========
聽 聽Called from: C:\five\fuentes\GESPAQ08\PRG\rpreview.prg => TPREVIEW:BOTTOMPAGE(857)
聽 聽Called from: C:\five\fuentes\GESPAQ08\PRG\rpreview.prg => (b)TPREVIEW:BUILDBUTTONBAR(231)
聽 聽Called from: .\source\classes\TOOLBAR.PRG => TTOOLBAR:COMMAND(219)
聽 聽Called from: .\source\classes\WINDOW.PRG => TMDICHILD:COMMAND(1046)
聽 聽Called from: 聽=> TWINDOW:HANDLEEVENT(0)
聽 聽Called from: .\source\classes\MDICHILD.PRG => TMDICHILD:HANDLEEVENT(319)
聽 聽Called from: .\source\classes\WINDOW.PRG => _FWH(3408)
聽 聽Called from: 聽=> NOGPF(0)
聽 聽Called from: C:\five\fuentes\GESPAQ08\PRG\menu2003.prg => WINRUN(734)
聽 聽Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE(992)
聽 聽Called from: C:\five\fuentes\GESPAQ08\PRG\gespaqn.prg => MAIN(70)

System
======
聽 聽CPU type: Intel(R) Core(TM)2 Quad CPU 聽 聽Q9400 聽@ 2.66GHz 2666 Mhz
聽 聽Hardware memory: 2048 megs

聽 聽Free System resources: 90 %
聽 聽 聽 聽 GDI 聽 聽resources: 90 %
聽 聽 聽 聽 User 聽 resources: 90 %

聽 聽Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6715)
聽 聽Windows version: 5.1, Build 2600 Service Pack 2



Variables in use
================
聽 聽Procedure 聽 聽 Type 聽 Value
聽 聽==========================
聽 聽TPREVIEW:BOTTOMPAGE
聽 聽 聽Local 聽 1: 聽 聽O 聽 聽Class: TPREVIEW
聽 聽 聽Local 聽 2: 聽 聽N 聽 聽4194304
聽 聽 聽Local 聽 3: 聽 聽A 聽 聽Len: 聽 聽0
聽 聽 聽Local 聽 4: 聽 聽U 聽 聽
聽 聽 聽Local 聽 5: 聽 聽O 聽 聽Class: TMETAFILE
聽 聽 聽Local 聽 6: 聽 聽A 聽 聽Len: 聽 聽0
聽 聽 聽Local 聽 7: 聽 聽N 聽 聽0
聽 聽 聽Local 聽 8: 聽 聽U 聽 聽
聽 聽 聽Local 聽 9: 聽 聽U 聽 聽
聽 聽(b)TPREVIEW:BUILDBUTTONBAR
聽 聽 聽Param 聽 1: 聽 聽O 聽 聽Class: TTOOLBAR
聽 聽 聽Param 聽 2: 聽 聽N 聽 聽4
聽 聽TTOOLBAR:COMMAND
聽 聽 聽Param 聽 1: 聽 聽N 聽 聽4
聽 聽 聽Param 聽 2: 聽 聽N 聽 聽17958298
聽 聽 聽Local 聽 1: 聽 聽O 聽 聽Class: TTOOLBAR
聽 聽 聽Local 聽 2: 聽 聽N 聽 聽0
聽 聽 聽Local 聽 3: 聽 聽N 聽 聽4
聽 聽 聽Local 聽 4: 聽 聽N 聽 聽17958298
聽 聽 聽Local 聽 5: 聽 聽B 聽 聽{|| ... }
聽 聽TMDICHILD:COMMAND
聽 聽 聽Param 聽 1: 聽 聽N 聽 聽4
聽 聽 聽Param 聽 2: 聽 聽N 聽 聽17958298
聽 聽 聽Local 聽 1: 聽 聽O 聽 聽Class: TMDICHILD
聽 聽 聽Local 聽 2: 聽 聽N 聽 聽0
聽 聽 聽Local 聽 3: 聽 聽N 聽 聽4
聽 聽 聽Local 聽 4: 聽 聽N 聽 聽17958298
聽 聽TWINDOW:HANDLEEVENT
聽 聽 聽Param 聽 1: 聽 聽N 聽 聽273
聽 聽 聽Param 聽 2: 聽 聽N 聽 聽4
聽 聽 聽Param 聽 3: 聽 聽N 聽 聽17958298
聽 聽TMDICHILD:HANDLEEVENT
聽 聽 聽Param 聽 1: 聽 聽N 聽 聽273
聽 聽 聽Param 聽 2: 聽 聽N 聽 聽4
聽 聽 聽Param 聽 3: 聽 聽N 聽 聽17958298
聽 聽 聽Local 聽 1: 聽 聽O 聽 聽Class: TMDICHILD
聽 聽_FWH
聽 聽 聽Param 聽 1: 聽 聽N 聽 聽17958298
聽 聽 聽Param 聽 2: 聽 聽N 聽 聽273
聽 聽 聽Param 聽 3: 聽 聽N 聽 聽4
聽 聽 聽Param 聽 4: 聽 聽N 聽 聽17958298
聽 聽 聽Param 聽 5: 聽 聽N 聽 聽24
聽 聽 聽Local 聽 1: 聽 聽O 聽 聽Class: TMDICHILD
聽 聽NOGPF
聽 聽WINRUN
聽 聽 聽Param 聽 1: 聽 聽N 聽 聽16451106
聽 聽TMDIFRAME:ACTIVATE
聽 聽 聽Param 聽 1: 聽 聽C 聽 聽"MAXIMIZED"
聽 聽 聽Param 聽 2: 聽 聽U 聽 聽
聽 聽 聽Param 聽 3: 聽 聽U 聽 聽
聽 聽 聽Param 聽 4: 聽 聽U 聽 聽
聽 聽 聽Param 聽 5: 聽 聽U 聽 聽
聽 聽 聽Param 聽 6: 聽 聽B 聽 聽{|| ... }
聽 聽 聽Param 聽 7: 聽 聽U 聽 聽
聽 聽 聽Param 聽 8: 聽 聽B 聽 聽{|| ... }
聽 聽 聽Param 聽 9: 聽 聽U 聽 聽
聽 聽 聽Param 聽10: 聽 聽U 聽 聽
聽 聽 聽Param 聽11: 聽 聽U 聽 聽
聽 聽 聽Param 聽12: 聽 聽U 聽 聽
聽 聽 聽Param 聽13: 聽 聽U 聽 聽
聽 聽 聽Param 聽14: 聽 聽U 聽 聽
聽 聽 聽Param 聽15: 聽 聽U 聽 聽
聽 聽 聽Param 聽16: 聽 聽U 聽 聽
聽 聽 聽Param 聽17: 聽 聽B 聽 聽{|| ... }
聽 聽 聽Param 聽18: 聽 聽U 聽 聽
聽 聽 聽Param 聽19: 聽 聽U 聽 聽
聽 聽 聽Local 聽 1: 聽 聽O 聽 聽Class: TMDIFRAME
聽 聽 聽Local 聽 2: 聽 聽U 聽 聽
聽 聽 聽Local 聽 3: 聽 聽U 聽 聽
聽 聽MAIN
聽 聽 聽Local 聽 1: 聽 聽U 聽 聽
聽 聽 聽Local 聽 2: 聽 聽U 聽 聽
聽 聽 聽Local 聽 3: 聽 聽O 聽 聽Class: TBITMAP
聽 聽 聽Local 聽 4: 聽 聽U 聽 聽
聽 聽 聽Local 聽 5: 聽 聽O 聽 聽Class: TBITMAP

Linked RDDs
===========
聽 聽DBF
聽 聽DBFFPT
聽 聽DBFCDX
聽 聽DBFNTX
聽 聽DBFBLOB
聽 聽ADORDD

DataBases in use
================

Classes in use:
===============
聽 聽 聽1 ERROR
聽 聽 聽2 HASHENTRY
聽 聽 聽3 HBCLASS
聽 聽 聽4 HBOBJECT
聽 聽 聽5 MICLASE
聽 聽 聽6 TBRUSH
聽 聽 聽7 TWINDOW
聽 聽 聽8 TCONTROL
聽 聽 聽9 TICON
聽 聽 10 TFONT
聽 聽 11 TMDIFRAME
聽 聽 12 TMENU
聽 聽 13 TMENUITEM
聽 聽 14 TMDICLIENT
聽 聽 15 TMSGBAR
聽 聽 16 TRECT
聽 聽 17 TBITMAP
聽 聽 18 TINI
聽 聽 19 TDIALOG
聽 聽 20 TCURSOR
聽 聽 21 TSAY
聽 聽 22 TWBROWSE
聽 聽 23 TGET
聽 聽 24 GET
聽 聽 25 TCLIPGET
聽 聽 26 TBUTTON
聽 聽 27 TBUTTONBMP
聽 聽 28 TSCROLLBAR
聽 聽 29 TBAR
聽 聽 30 TBTNBMP
聽 聽 31 TMSGITEM
聽 聽 32 TTIMER
聽 聽 33 TRADMENU
聽 聽 34 TRADIO
聽 聽 35 TCHECKBOX
聽 聽 36 TPRINTER
聽 聽 37 TPEN
聽 聽 38 TIMAGE
聽 聽 39 TPREVIEW
聽 聽 40 TMDICHILD
聽 聽 41 TIMAGELIST
聽 聽 42 TREBAR
聽 聽 43 TTOOLBAR
聽 聽 44 TSTATUSBAR
聽 聽 45 TMETAFILE
聽 聽 46 TCOMBOBOX
聽 聽 47 TREG32

Memory Analysis
===============
聽 聽 聽 307 Static variables

聽 聽Dynamic memory consume:
聽 聽 聽 Actual 聽Value: 聽 聽 聽 聽 聽0 bytes
聽 聽 聽 Highest Value: 聽 聽 聽 聽 聽0 bytes



P谩gina anterior, Siguiente y primera p谩gina funcionan perfectamente.

Si intento grabar como doc, el error es:

Code (fw): Select all Collapse
Application
===========
聽 聽Path and name: C:\five\fuentes\GESPAQ08\gespaqn.Exe (32 bits)
聽 聽Size: 1,324,544 bytes
聽 聽Time from start: 0 hours 1 mins 9 secs 
聽 聽Error occurred at: 21/01/11, 11:17:36
聽 聽Error description: Error BASE/1004 聽Class: 'NIL' has no exported method: SAVEAS
聽 聽Args:
聽 聽 聽[ 聽 1] = U 聽 
聽 聽 聽[ 聽 2] = C 聽 C:\DOCUMENTS AND SETTINGS\JOSE\MIS DOCUMENTOS\JUANITO.docx
聽 聽 聽[ 聽 3] = N 聽 16

Stack Calls
===========
聽 聽Called from: 聽=> SAVEAS(0)
聽 聽Called from: C:\five\fuentes\GESPAQ08\PRG\rpreview.prg => TPREVIEW:SAVEAS(1576)
聽 聽Called from: C:\five\fuentes\GESPAQ08\PRG\rpreview.prg => (b)TPREVIEW:SAVEASMENU(1519)
聽 聽Called from: .\source\classes\MENU.PRG => TMENU:ACTIVATE(470)
聽 聽Called from: .\source\classes\TOOLBAR.PRG => TTOOLBAR:NOTIFY(263)
聽 聽Called from: .\source\classes\WINDOW.PRG => TREBAR:NOTIFY(1468)
聽 聽Called from: 聽=> TWINDOW:HANDLEEVENT(0)
聽 聽Called from: .\source\classes\CONTROL.PRG => TREBAR:HANDLEEVENT(1499)
聽 聽Called from: .\source\classes\WINDOW.PRG => _FWH(3408)
聽 聽Called from: 聽=> NOGPF(0)
聽 聽Called from: C:\five\fuentes\GESPAQ08\PRG\menu2003.prg => WINRUN(734)
聽 聽Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE(992)
聽 聽Called from: C:\five\fuentes\GESPAQ08\PRG\gespaqn.prg => MAIN(70)

System
======
聽 聽CPU type: Intel(R) Core(TM)2 Quad CPU 聽 聽Q9400 聽@ 2.66GHz 2666 Mhz
聽 聽Hardware memory: 2048 megs

聽 聽Free System resources: 90 %
聽 聽 聽 聽 GDI 聽 聽resources: 90 %
聽 聽 聽 聽 User 聽 resources: 90 %

聽 聽Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6715)
聽 聽Windows version: 5.1, Build 2600 Service Pack 2

聽

Variables in use
================
聽 聽Procedure 聽 聽 Type 聽 Value
聽 聽==========================
聽 聽SAVEAS
聽 聽 聽Param 聽 1: 聽 聽C 聽 聽"C:\DOCUMENTS AND SETTINGS\JOSE\MIS DOCUMENTOS\JUANITO.docx"
聽 聽 聽Param 聽 2: 聽 聽N 聽 聽16
聽 聽 聽Local 聽 1: 聽 聽A 聽 聽Len: 聽 聽2
聽 聽 聽Local 聽 2: 聽 聽U 聽 聽
聽 聽 聽Local 聽 3: 聽 聽U 聽 聽
聽 聽TPREVIEW:SAVEAS
聽 聽 聽Param 聽 1: 聽 聽L 聽 聽.F.
聽 聽 聽Local 聽 1: 聽 聽O 聽 聽Class: TPREVIEW
聽 聽 聽Local 聽 2: 聽 聽O 聽 聽Class: TOLEAUTO
聽 聽 聽Local 聽 3: 聽 聽N 聽 聽12.0
聽 聽 聽Local 聽 4: 聽 聽U 聽 聽
聽 聽 聽Local 聽 5: 聽 聽C 聽 聽"C:\DOCUMENTS AND SETTINGS\JOSE\MIS DOCUMENTOS\JUANITO.docx"
聽 聽 聽Local 聽 6: 聽 聽C 聽 聽"*.docx; *.doc"
聽 聽 聽Local 聽 7: 聽 聽C 聽 聽"Doc File to Save( *.docx; *.doc) |*.docx; *.doc|"
聽 聽 聽Local 聽 8: 聽 聽L 聽 聽.F.
聽 聽 聽Local 聽 9: 聽 聽U 聽 聽
聽 聽(b)TPREVIEW:SAVEASMENU
聽 聽 聽Param 聽 1: 聽 聽O 聽 聽Class: TMENUITEM
聽 聽TMENU:ACTIVATE
聽 聽 聽Param 聽 1: 聽 聽N 聽 聽27
聽 聽 聽Param 聽 2: 聽 聽N 聽 聽193
聽 聽 聽Param 聽 3: 聽 聽O 聽 聽Class: TREBAR
聽 聽 聽Param 聽 4: 聽 聽L 聽 聽.T.
聽 聽 聽Param 聽 5: 聽 聽N 聽 聽0
聽 聽 聽Local 聽 1: 聽 聽O 聽 聽Class: TMENU
聽 聽 聽Local 聽 2: 聽 聽A 聽 聽Len: 聽 聽2
聽 聽TTOOLBAR:NOTIFY
聽 聽 聽Param 聽 1: 聽 聽N 聽 聽123
聽 聽 聽Param 聽 2: 聽 聽N 聽 聽1241848
聽 聽 聽Local 聽 1: 聽 聽O 聽 聽Class: TTOOLBAR
聽 聽 聽Local 聽 2: 聽 聽N 聽 聽-710
聽 聽 聽Local 聽 3: 聽 聽U 聽 聽
聽 聽 聽Local 聽 4: 聽 聽U 聽 聽
聽 聽 聽Local 聽 5: 聽 聽U 聽 聽
聽 聽 聽Local 聽 6: 聽 聽A 聽 聽Len: 聽 聽3
聽 聽 聽Local 聽 7: 聽 聽U 聽 聽
聽 聽 聽Local 聽 8: 聽 聽O 聽 聽Class: TMENU
聽 聽TREBAR:NOTIFY
聽 聽 聽Param 聽 1: 聽 聽N 聽 聽123
聽 聽 聽Param 聽 2: 聽 聽N 聽 聽1241848
聽 聽 聽Local 聽 1: 聽 聽O 聽 聽Class: TREBAR
聽 聽 聽Local 聽 2: 聽 聽N 聽 聽-710
聽 聽 聽Local 聽 3: 聽 聽N 聽 聽14550460
聽 聽 聽Local 聽 4: 聽 聽O 聽 聽Class: TTOOLBAR
聽 聽TWINDOW:HANDLEEVENT
聽 聽 聽Param 聽 1: 聽 聽N 聽 聽78
聽 聽 聽Param 聽 2: 聽 聽N 聽 聽123
聽 聽 聽Param 聽 3: 聽 聽N 聽 聽1241848
聽 聽TREBAR:HANDLEEVENT
聽 聽 聽Param 聽 1: 聽 聽N 聽 聽78
聽 聽 聽Param 聽 2: 聽 聽N 聽 聽123
聽 聽 聽Param 聽 3: 聽 聽N 聽 聽1241848
聽 聽 聽Local 聽 1: 聽 聽O 聽 聽Class: TREBAR
聽 聽 聽Local 聽 2: 聽 聽U 聽 聽
聽 聽_FWH
聽 聽 聽Param 聽 1: 聽 聽N 聽 聽1241848
聽 聽 聽Param 聽 2: 聽 聽N 聽 聽78
聽 聽 聽Param 聽 3: 聽 聽N 聽 聽123
聽 聽 聽Param 聽 4: 聽 聽N 聽 聽1241848
聽 聽 聽Param 聽 5: 聽 聽N 聽 聽25
聽 聽 聽Local 聽 1: 聽 聽O 聽 聽Class: TREBAR
聽 聽NOGPF
聽 聽WINRUN
聽 聽 聽Param 聽 1: 聽 聽N 聽 聽18876012
聽 聽TMDIFRAME:ACTIVATE
聽 聽 聽Param 聽 1: 聽 聽C 聽 聽"MAXIMIZED"
聽 聽 聽Param 聽 2: 聽 聽U 聽 聽
聽 聽 聽Param 聽 3: 聽 聽U 聽 聽
聽 聽 聽Param 聽 4: 聽 聽U 聽 聽
聽 聽 聽Param 聽 5: 聽 聽U 聽 聽
聽 聽 聽Param 聽 6: 聽 聽B 聽 聽{|| ... }
聽 聽 聽Param 聽 7: 聽 聽U 聽 聽
聽 聽 聽Param 聽 8: 聽 聽B 聽 聽{|| ... }
聽 聽 聽Param 聽 9: 聽 聽U 聽 聽
聽 聽 聽Param 聽10: 聽 聽U 聽 聽
聽 聽 聽Param 聽11: 聽 聽U 聽 聽
聽 聽 聽Param 聽12: 聽 聽U 聽 聽
聽 聽 聽Param 聽13: 聽 聽U 聽 聽
聽 聽 聽Param 聽14: 聽 聽U 聽 聽
聽 聽 聽Param 聽15: 聽 聽U 聽 聽
聽 聽 聽Param 聽16: 聽 聽U 聽 聽
聽 聽 聽Param 聽17: 聽 聽B 聽 聽{|| ... }
聽 聽 聽Param 聽18: 聽 聽U 聽 聽
聽 聽 聽Param 聽19: 聽 聽U 聽 聽
聽 聽 聽Local 聽 1: 聽 聽O 聽 聽Class: TMDIFRAME
聽 聽 聽Local 聽 2: 聽 聽U 聽 聽
聽 聽 聽Local 聽 3: 聽 聽U 聽 聽
聽 聽MAIN
聽 聽 聽Local 聽 1: 聽 聽U 聽 聽
聽 聽 聽Local 聽 2: 聽 聽U 聽 聽
聽 聽 聽Local 聽 3: 聽 聽O 聽 聽Class: TBITMAP
聽 聽 聽Local 聽 4: 聽 聽U 聽 聽
聽 聽 聽Local 聽 5: 聽 聽O 聽 聽Class: TBITMAP

Linked RDDs
===========
聽 聽DBF
聽 聽DBFFPT
聽 聽DBFCDX
聽 聽DBFNTX
聽 聽DBFBLOB
聽 聽ADORDD

DataBases in use
================

Classes in use:
===============
聽 聽 聽1 ERROR
聽 聽 聽2 HASHENTRY
聽 聽 聽3 HBCLASS
聽 聽 聽4 HBOBJECT
聽 聽 聽5 MICLASE
聽 聽 聽6 TBRUSH
聽 聽 聽7 TWINDOW
聽 聽 聽8 TCONTROL
聽 聽 聽9 TICON
聽 聽 10 TFONT
聽 聽 11 TMDIFRAME
聽 聽 12 TMENU
聽 聽 13 TMENUITEM
聽 聽 14 TMDICLIENT
聽 聽 15 TMSGBAR
聽 聽 16 TRECT
聽 聽 17 TBITMAP
聽 聽 18 TINI
聽 聽 19 TDIALOG
聽 聽 20 TCURSOR
聽 聽 21 TSAY
聽 聽 22 TWBROWSE
聽 聽 23 TGET
聽 聽 24 GET
聽 聽 25 TCLIPGET
聽 聽 26 TBUTTON
聽 聽 27 TBUTTONBMP
聽 聽 28 TSCROLLBAR
聽 聽 29 TBAR
聽 聽 30 TBTNBMP
聽 聽 31 TMSGITEM
聽 聽 32 TTIMER
聽 聽 33 TRADMENU
聽 聽 34 TRADIO
聽 聽 35 TCHECKBOX
聽 聽 36 TPRINTER
聽 聽 37 TPEN
聽 聽 38 TIMAGE
聽 聽 39 TPREVIEW
聽 聽 40 TMDICHILD
聽 聽 41 TIMAGELIST
聽 聽 42 TREBAR
聽 聽 43 TTOOLBAR
聽 聽 44 TSTATUSBAR
聽 聽 45 TMETAFILE
聽 聽 46 TCOMBOBOX
聽 聽 47 TOLEAUTO
聽 聽 48 TREG32

Memory Analysis
===============
聽 聽 聽 307 Static variables

聽 聽Dynamic memory consume:
聽 聽 聽 Actual 聽Value: 聽 聽 聽 聽 聽0 bytes
聽 聽 聽 Highest Value: 聽 聽 聽 聽 聽0 bytes

--------------------------

Saludos



Jose Luis
JoseLuis
Posts: 428
Joined: Thu Oct 19, 2006 12:28 PM
Re: error rpreview FWH 10.12
Posted: Fri Jan 21, 2011 08:59 PM

He comprobado en rpreview.prg,, en el m茅todo Bottompage, que si imprimimos en MODAL, para una impresi贸n de una p谩gina, le llegan unos valores de ::npage=1, y len(afiles)=0, y como en la l铆nea 853 ::npage se iguala a len(afiles), pues se iguala a 0, por lo que en la linea 857 da el error de array que he indicado anteriormente.

Sin embargo si quitamos la indicaci贸n MODAL a la hora de imprimir, los valores que llegan son 1 a ambas variables, por lo que no da ning煤n error.

Es correcto esto?

--------------------------

Saludos



Jose Luis
JoseLuis
Posts: 428
Joined: Thu Oct 19, 2006 12:28 PM
Re: error rpreview FWH 10.12 (Solucionado)
Posted: Sat Jan 22, 2011 10:32 AM

Error mio

Como veis en el fuente, antes de salir hago un oPrn:End().

Pues eso era, no me daba cuenta por mas que miraba y remiraba.

Saludos

--------------------------

Saludos



Jose Luis

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions