FiveTech Software tech support forums

... + " " + AllTrim(oRsDet:Fields("PRO_DES"):Value)}  El footer los defini hasta tener el objeto oReporte creado:       oReporte:bEndGroup         := { |oGroup| MiFuncion(oReporte,oGroup) }    ENDIF  Y la función MiFuncion qudó ...

...  ACTIVATE REPORT oReport ...//Funcion para cuando termina un grupoSTATIC Function MiFuncion(oGroup)if oGroup:nOrder = 1   oReporte:Say( 02,"Totales por proyecto:",nFont,RPT_RIGHT,oReporte:nRow + (oReporte:nStdLineHeight() / 2) ) ENDIFif ...

Modifica el código de esta forma:

ON ENDGROUP MiFuncion( oReporte, oGrp )

y asi recibes el grupo en tu función

... por proyecto:", los espacios los determino a prueba y error, la solicitud, si es posible, que se pueda definir como el siguiente ejemplo con oReporte:SAY(nCol,cTexto,nFont,nAlineación) STATIC FUNCTION Totales(oReporte)    oReporte:BackLine()    oReporte:SAY(2,"Total ...

Has probado

oReporte:lTotal:=.f.

... Total por Grupo, y esta perfecto. Lo que necesito es que no me imprima el Total General del Reporte al final del informe. Aun cuando tengo "oReporte:lPageTotal:=.f. ", igual se imprime el valor total acumulado. Muchos Saludos Antonio Codigo:    REPORT oReporte;                    TITLE ...

... buen dia. Como siempre muchas gracias por tu ayuda. Creo que no entendi. Mira en REPORT, con esta linea se habilita el boton de Excel en Preview : oReporte:bInit := { || b->( DBGOTOP() ) } // Habilita Boton Excel en Preview. Pero en PRINT, al estar en Preview no se puede habilitar el boton excel? ...

In the command DEFINE PEN .... OF oReporte  remove "OF oReporte" Mr Roa, Muy buen dia. Muchas gracias por responder. Tu solución funciono perfecto, el programa ya no se cae. Solo me falta saber como poner la cantidad de registros ...

In the command

Code: Select all  Expand view

DEFINE PEN .... OF oReporte
 

remove "OF oReporte"

... ... oPict:LoadFromString( HB_Base64Decode( oQuery:FieldGet( "ENTRADA" ) ) ) // Se lee desde la tabla MySql con TDolphin ... oReporte:SayBitmap( aCoors[ 1 ], aCoors[ 2 ] + 1.0, oPict, 1.2, 1.2, RPT_CMETERS, , 1 ) // Se imprime la imagen Efectivamente estaba funcionando todo ...

... en algunos lo imprime bien aunque lImageLegacy este en .F. Alguna idea de como solucionar este problema? La impresion de la imagen la hago con oReporte:SayBitmap( ... ) FWH 1905 Saludos! Eduardo Borondón Muñiz

Hola Antonio,

Prueba a poner ANTES de ACTIVATE REPORT lo siguiente:

oReporte:nSeparator := 0


Espero te funcione

Saludos!

Eduardo Borondón Muñiz

... *#include "Pdf.ch" si libero el "Pdf.ch" me dá 84 errores del tipo; Syntax Error: At 'FONT' Syntax Error: At 'OREPORTE' Invalid lvalue: '()' poniendolo como comentario corre, asi que pude agrear el codigo de ejemplo para correrlo desde mi aplicacion Function ...

Armando,

Si varías 210 en oReporte:nRow()/210 imagino que puedes corregir la posición del bitmap.

Por otra parte puedes usar los métodos Pix2Cmtr(), Pix2Mmtr() y Pix2Inch() de oReporte:oDevice para cambiar al tipo de escala que necesites.

Marcelo: Agradecido con tu respuesta, he intentado con oReporte:SayBitMap() pero la verdad es que es muy complicado, al menos para mi, calcular la ubicación del bitmap en el reporte pues las coordenadas que se indican están en CMS o INCHES, yo esperaba ...