Reporte - Factura con oReport

[Mauricio]

Hola

estoy generando un reporte desde mySql con TMySql

bueno vamos al grano como dijo el pollo

tengo 2 arreglos con la informacion a imprimir en uno estan los encabezados de las facturas y en otro el detalle.
pero no doy con bola para armar que despues de cada encabezado me imprima el datalle completo de esa factura es decir, todos los renglones que tiene

Ejemplo:
FOLIO FECHA IMPORTE
2 02-10-02 99.99

// Aqui irian los rengloes de esa nota, que estan en otro arreglo.



pongo una parte del codigo para que os den una mejor idea.

Code: Select all  Expand view

   REPORT oReport TITLE cTexto   PREVIEW

      COLUMN TITLE "Folio"                              DATA aRegistros[nRegistro,1] PICTURE '99999' RIGHT
      COLUMN TITLE "Fecha"                              DATA aRegistros[nRegistro,2]
      COLUMN TITLE "Or"                                 DATA aRegistros[nRegistro,3] PICTURE '99'
      COLUMN TITLE "Origen"                             DATA substr(NombreRutas(aRegistros[nRegistro,3]),1,15)
      COLUMN TITLE "De"                                 DATA aRegistros[nRegistro,4] PICTURE '99'
      COLUMN TITLE "Destino"                            DATA substr(NombreRutas(aRegistros[nRegistro,4]),1,15)
      COLUMN TITLE "Comentarios"                        DATA aRegistros[nRegistro,5]
      COLUMN TITLE "Unidades"                           DATA aRegistros[nRegistro,6] PICTURE '9,999' RIGHT

      // EN ESTA PARTE DE AQUI, QUIERO PONER EL DETALLE QUE ESTA EN OTRO ARREGLO
     

      oReport:bSkip := {|| nRegistro++}
   END REPORT

   ACTIVATE REPORT oReport WHILE nRegistro <= len(aRegistros)

 

Saludos,
Mauricio

[joseluisysturiz]

???

[Armando]

José Luis: (disculpa Mauricio)

Sin intención de molestar ! , entiendo que tus ??? son para estar pendiente del tema.

Haz lo siguiente y así no dejas mensajes regados con puros ???:

En la esquina superior izquierda, abajo de los botones NUEVO TEMA y PUBLICAR RESPUESTA encuentras un link que dice SUSCRIBIR TEMA, das un clic ahí y listo el pollo, cuando haya alguna respuesta en el tema te será enviado un correo a la dirección que tienes registrada.

Saludos

[Mauricio]

Armando,
Gracias.


a lo mejor no me explique en lo que quiero hacer con el reporte, por eso los " ???? "


Saludos,
Mauricio

[Armando]

Mauricio:

No, tu pregunta esta muy clara, desafortunadamente no uso TMySql por eso no puedo ayudarte.

La sugerencia es para José Luis quien acostumbra colocar ese tipo de mensajes (???) para que cundo haya alguna respuesta al tema sea notificado en su correo y así esta pendiente de lo que se responde.

Saludos

[Mauricio]

Gracias,

no importa si es en codigo de DBF yo lo ajusto a MySql,

como imprimes con TReport

de una dbf con los encabezados y en otra el detalle

imprimir en el primer renglon el encabezado despues el detalle.

si tienes un ejemplo en DBF te lo agradeceria mucho,

saludos,
Mauricio

[Armando]

Mauricio:

Ahi te va un ejemplo con DBFs

De acuerdo al código que muestras solo te falta poder imprimir el detalle de la factura, mira este trozo de código.

Como deduzco que la información la tienes en dos DBFs, antes de imprimir la parte superior de la factura filtras la DBF que contiene el detalle para que solo te queden los registros de la factura que estas imprimiendo.

Code: Select all  Expand view

ACTIVATE REPORT oReporte;
    ON STARTPAGE (Alinea(oReporte,1,3),Alinea(oReporte,2,3));
    ON STARTLINE Sombra(oReporte);
    ON CHANGE Detalle(oReporte,nTot,nSub);
    ON END MessageBeep()
 

Observa el método ON CHANGE, por cada registro de la factura iras a la función Detalle() y en la función Detalle() es donde imprimes el detalle de la factura

Code: Select all  Expand view

STATIC FUNCTION Detalle(oReporte,gCuenta,oDbf,oLby)
(cPagos)->(DBGOTOP())
DO WHILE ! (cPagos)->(EOF())
    oReporte:ENDLINE()
    oReporte:STARTLINE()

    oReporte:SAY( 2,TRANSFORM((cPagos)->PAG_GUI,"999999"),,RPT_RIGHT)
    oReporte:SAY( 3,(cPagos)->PAG_CLI,,RPT_LEFT)
    oReporte:SAY( 4,IF((cPagos)->PAG_PAR,"P","T"),,RPT_CENTER)
    oReporte:SAY( 5,TRANSFORM((cPagos)->PAG_PAG,"@Z 9,999,999.99"),,RPT_RIGHT)

    (cPagos)->(DBSKIP())
ENDDO
RETURN(.T.)
 

Ojalá me haya explicado bien y si no es así por aqui nos vemos.

Saludos

[Mauricio]

Gracias,

esa era la solucion

ahora mismo la paso a MySql,

usas algun cliente de mensajeria, yahoo ... etc

saludos cordiales,
Mauricio

[joseluisysturiz]

José Luis: (disculpa Mauricio)

Sin intención de molestar ! , entiendo que tus ??? son para estar pendiente del tema.

Haz lo siguiente y así no dejas mensajes regados con puros ???:

En la esquina superior izquierda, abajo de los botones NUEVO TEMA y PUBLICAR RESPUESTA encuentras un link que dice SUSCRIBIR TEMA, das un clic ahí y listo el pollo, cuando haya alguna respuesta en el tema te será enviado un correo a la dirección que tienes registrada.

Saludos

Armando, he buscado hacer lo que me dices muchas veces, pero no he hallado otra manera, lo que me dices de PARTE SUPERIOR IZQUIERDA, es decir, ARRIBA Y A LA IZQUIERDA, no veo lo que me dices, por eso es que he usado los benditos ???, claro que la forma que me dices es mejor y menos molestosa ya que al alguien le llega que hay algo sobre su tema que haya anunciado y es....JOSE LUIS con sus ??? , jejjee, de verdad disculpa a lo que esto incomodo, igual no veo lo que me dices de SEGUIR EL TEMA, o es que la vista me esta fallando, gracias, saludos...

[joseluisysturiz]

Mauricio:

No, tu pregunta esta muy clara, desafortunadamente no uso TMySql por eso no puedo ayudarte.

La sugerencia es para José Luis quien acostumbra colocar ese tipo de mensajes (???) para que cundo haya alguna respuesta al tema sea notificado en su correo y así esta pendiente de lo que se responde.

Saludos

Muchas gracias por tu sugerencia y es bienvenida, ya encontre lo que me dijistes de SUSCRIBIRME AL TEMA, pero PARTE INFERIOR IZQUIERDA, por eso no lo veia, como dijo, Armando tu pregunta esta bien hecha, pero como estoy en lo mismo haciendo reporte de facturacion pero con DBF fue que segui el tema, pero bueno, agua pasada no mueve molino, muchas gracias Armando por tu respuesta al colega ya que tanbien me sirve y la voy a poner en uso, espero me ayude en mis reportes, gracias, saludos...

[Armando]

Mauricio:

Me alegra que casí hayas resuelto el problema, sin embargo te recomiendo que le eches un ojo a la clase TDosPrn (es al estilo del viejo clipper), te da más libertad para imprimir en cualquier parte de la factura, te he agregado al messenger !.


José Luis:

Tambien me alegra haber sido de ayuda y que hayas encontrado la forma de suscribirte a los temas de interés, solo por claridad te adjunto una imágen para ubicar el link que te había recomendado.



Saludos a ambos