No sé, si es porque es la hora de comer ahora mismo y tengo la azotea hambrienta, o por otra causa (que ya estoy ciego).
Veamos, he tomado uno de los reports que tengo en uno de mis módulos de contabilidad, y lo he pasado a otro módulo cambiando los títulos de las columnas y las datas,(ahora quiero hacer el report con un array) y me explota el verce al compilarlo dando un error de sintaxis, primero en el oReport, y luego en todos los titulos de las columnas.
Mientras que ese report en el otro módulo no da error alguno.
¿Alguien me enciende una vela a ver si lo veo?
Este es el código
- Code: Select all Expand view
DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-9 BOLD
DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,-9
DEFINE PEN oPen1 WIDTH 3 COLOR CLR_HGREEN
DEFINE PEN oPen2 WIDTH 1 COLOR CLR_HMAGENTA
PrinterSetup()
REPORT oReport TITLE cTexto1,"", ;
cTexto2,"";
FONT oFont1, oFont2 ;
PEN oPen1, oPen2 ;
HEADER "Fecha: "+dtoc(aCuentas[4]),"","Página:"+Str(oReport:nPage,3) RIGHT ;
PREVIEW
COLUMN TITLE "MES" ;
DATA aMeses[n] ;
FONT 2 ;
GRID 2
COLUMN TITLE "ACUM.DEBE" ;
DATA aAcumDebe[n] ;
PICTURE "999,999,999.99" ;
FONT 2 ;
GRID 2
COLUMN TITLE "ACUM.HABER" ;
DATA aAcumHaber[n] ;
PICTURE "999,999,999.99" ;
FONT 2 ;
GRID 2
COLUMN TITLE "SALDO DEBE" ;
DATA aSaldosDebe[n] ;
PICTURE "999,999,999.99" ;
FONT 2 ;
GRID 2
COLUMN TITLE "SALDO HABER" ;
DATA aSaldosHaber[n] ;
PICTURE "999,999,999.99";
FONT 2 ;
GRID 2
END REPORT
IF oReport:lCreated
oReport:CELLVIEW()
ENDIF
oReport:bWhile := { || n <= nHasta }
oReport:bSkip := { | | n++}
ACTIVATE REPORT oReport
oFont1:End()
oFont2:End()
oPen1:End()
oPen2:End()
Aprovecho para un par de cosillas para Antonio.
En el preview y con el cambio que se hizo para las ventanas MDI, los reportes dan un pantallazo y se bajan a la barra de tareas, dejando un mal efecto, ¿No hay forma de solucionar ese mal efecto que hace?
Por otro lado en los butonbmp cuando pinchas el boton y mandas ejecutar el Action, el bmp que tiene desaparece, la única forma de que ese efecto se minimize es colocar al principio de la funcion donde va un sysrefresh() pero aún asi se nota que el bitmap ha desaparecido para volver a reaparecer.