Necesito un Ejemplo de Fast Report

[remtec]

Hola Amigos

Necesito poder imprimir una Ficha Medica, me han recomendado usar Fast Report, si alguien me puede facilitar un ejemplo de como crear un informe en Fast Report, o si alguien tiene alguna sugerencia diferente, me ayudaria mucho.

Desde ya muchas Gracias.

Muchos Saludos

Antonio.

[cnavarro]

Antonio, evidentemente FastReport es una grandísima herramienta, pero al igual que con EasyReport ( salvando las distancias, claro ) que viene incluido con Fivewin, necesitarás dedicarle el tiempo suficiente para dominarlo y obtener los resultados que necesitas. Mi experiencia: no ha habido hasta ahora ningún report, documento o informe que no haya podido hacer simplemente con la clase PRINTER de Fw o en su caso con REPORT.
Cualquier cosa ya sabes por donde estamos para ayudarte.

[remtec]

Hola CNavarro

Como siempre te haces presente a mis requerimientos, muchas gracias por tu intervención.

En mi caso, siempre busco la opinión y la ayuda de los que saben y como lo indique arriba, Fast Report me lo recomendaron algunos colegas por su potencial y resultados, conociendo tu recomendación y teniendo mas a mano REPORT, vere de que forma puedo dar respuesta a los requerimientos para este programa, ya que las exigencias me obligan a dar formato de los datos tipo FACTURA, distribuir muchos datos en una hoja tamaño carta, ahora si esto no lo pudiera hacer con REPORT de FiveWin, favor me lo indican, así busco otra alternativa.

Que atento a los comentarios.

Muchos Saludos

Antonio

[cmsoft]

Antonio:
Por lo que dices, yo me inclinaria mas por PRINTER que por REPORT
Con printer puedes imprimir en cualquier parte de la hora, con distintos tipos de letra. Incluso con un fondo hecho con un JPG, que para el caso de una factura, queda muy bien.
Como recomendación te diria que utilices la impresion en centimetros porque si cambias de impresora, se va a respetar las posiciones (no asi si trabajas en pixeles porque depende de la resolocion de la impresora)
Te dejo un ejemplo sencillo para que arranques
Saludos

Code: Select all  Expand view

PRINT oPrn NAME "Adelanto" PREVIEW MODAL
   oPrn:SetPortrait() // Horizontal
   oPrn:SetPage(9) // A4
   PAGE           
       @ .8, 01.15 PRINT TO oPrn TEXT IF(x=1,"ORIGINAL","DUPLICADO")  SIZE 18,.9 CM FONT oFont1 ALIGN "C"     
       @ 2, 01 PRINT TO oPrn TEXT cNom_emp SIZE 9,1 CM FONT oFont1 ALIGN "C" LASTROW nRow
       @ nRow, 01 PRINT TO oPrn TEXT cDire_emp  SIZE 9,1 CM FONT oFont LASTROW nRow ALIGN "C"         
       
       @ 5.5, 1   PRINT TO oPrn TEXT "Legajo Nro:" SIZE 3,.5 CM FONT oFont3 ALIGN "L"
       @ 5.5, 4.1 PRINT TO oPrn TEXT STR(oRs:Fields("legajo"):value,8) + " D.N.I.:" + STR(oQry:dni,8) + " C.B.U.:"+oQry:cbu SIZE 14,.5 CM FONT oFont ALIGN "L"
       @ 6, 1     PRINT TO oPrn TEXT "Apellido y Nombres:"  SIZE 3,.5 CM FONT oFont3  ALIGN "L"
       @ 6, 4.1   PRINT TO oPrn TEXT ALLTRIM(oRs:Fields("apellido"):value) + " " + ALLTRIM(oRs:Fields("nombres"):value)  SIZE 6,.5 CM FONT oFont ALIGN "L" 
       @ 6.5, 1     PRINT TO oPrn TEXT "Jurisdiccion:"  SIZE 3,.5 CM FONT oFont3  ALIGN "L"
       @ 6.5, 4.1   PRINT TO oPrn TEXT cJurisdiccion    SIZE 6,.5 CM FONT oFont ALIGN "L"
   
       @ 8.2, 01 PRINT TO oPrn TEXT "Concepto"              SIZE 5,.5 CM FONT oFont3 ALIGN "L"      
       @ 8.2, 11 PRINT TO oPrn TEXT "Importe $"              SIZE 2,.5 CM FONT oFont3 ALIGN "R"
             
        y := 9.2       
    mtotal := 0
    FOR i := 1 TO LEN(aConceptos)
           @ y, 01 PRINT TO oPrn TEXT PADR(ALLTRIM(aConceptos[i,1]),200,".")           SIZE 9,.5 CM FONT oFont ALIGN "L"          
           @ y, 11 PRINT TO oPrn TEXT STR(aConceptos[i,2],12,2)            SIZE 2,.5 CM FONT oFont ALIGN "R"          
           y := y + .5
       mTotal := mTotal + aConceptos[i,2]          
       NEXT i
       
       @ y, 01 PRINT TO oPrn TEXT "Total:"               SIZE 9,.5 CM FONT oFont3 ALIGN "L"
       @ y, 11 PRINT TO oPrn TEXT STR(mTotal,12,2)     SIZE 2,.5 CM FONT oFont3 ALIGN "R"          
       @ 22.5, 12 PRINT TO oPrn TEXT REPLICATE("_",45)        SIZE 9,.5 CM FONT oFont3 ALIGN "L"
       @ 23, 12 PRINT TO oPrn TEXT "Firma Responsable"     SIZE 9,.5 CM FONT oFont3 ALIGN "L"
       y := y + 1
       @ 21, 01 PRINT TO oPrn TEXT "Son pesos " + Letra(mtotal) + " ($"+STR(mTotal)+")"    SIZE 10.8,3 CM FONT oFont        
  ENDPAGE
ENDPRINT
 

[remtec]

Hola Cesar

Muchas gracias por tu ayuda, siempre dispuesto a estar presente cada ves que necesito de ayuda, te lo agradezco de corazón.

Tomare tu recomendación y tu ejemplo y tratare de adaptarlo a mi necesidad, si lo logro, haré todos mis informes con esta opción.

Muchas gracias y muchos saludos.

Antonio.