Error description: Error BASE/1005 Message not found: TRFILE:_LPRVMODAL
y el codigo es el siquiente:
- Code: Select all Expand view
**************************
*IMPRESION REPORTE WINDOWS
**************************
PROC pRewiMed()
LOCAL oFont1,oFont2,oFont3,oReport
LOCAL oPen1,oPen2
LOCAL cEmpresa,cTitle,nBrinco := 1,x,cWeb
cWeb := "http://incos...net"
cEmpresa := "Ingeniería en Comunicaciones y Sistemas"
cTitle := "Estadisticas 1.1.0"
DEFINE FONT oFont1 NAME "Tahoma" SIZE 0,-08
DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,-08 BOLD
DEFINE FONT oFont3 NAME "ARIAL" SIZE 0,-12 BOLD
DEFINE PEN oPen1 WIDTH 3 COLOR CLR_HBLUE
DEFINE PEN oPen2 WIDTH 1 COLOR CLR_HMAGENTA
REPORT oReport TO FILE "C:\estaditi.txt" CAPTION cTitle+" - INCOS (c) 2006" ;
HEADER cEmpresa," ",cTitle,"Fecha: "+DTOC(date()),"Hora: "+time()," " CENTER ;
FOOTER cWeb+" | INCOS (c) 2006 | Pagina: "+str(oReport:nPage,3) CENTER ;
FONT oFont1,oFont2,oFont3 ;
PEN open1,oPen2
COLUMN TITLE "Medida" DATA aBrw[nBrinco,01] SIZE 30
COLUMN TITLE "Nombre" DATA aBrw[nBrinco,02] SIZE 70
COLUMN TITLE "Siglas" DATA aBrw[nBrinco,03] SIZE 30
oReport:oDevice:lPrvModal := .f.
oReport:oDevice:SetCopies(1)
oReport:nTitleUpLine := RPT_SINGLELINE
oReport:nTotalLine := RPT_SINGLELINE
oReport:bSkip := {|| (nBrinco++,SYSREFRESH()) }
END REPORT
ACTIVATE REPORT oReport WHILE nBrinco <= LEN( aBrw )
oFont1:End()
oFont2:End()
oFont3:End()
oPen1:End()
oPen2:End()
RETURN .t.
De antemano gracias
