Page 1 of 1
Necesito un Ejemplo de Fast Report
Posted: Wed Oct 02, 2019 8:57 pm
by 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.
Re: Necesito un Ejemplo de Fast Report
Posted: Thu Oct 03, 2019 10:14 am
by 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.
Re: Necesito un Ejemplo de Fast Report
Posted: Thu Oct 03, 2019 2:51 pm
by 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
Re: Necesito un Ejemplo de Fast Report
Posted: Thu Oct 03, 2019 3:18 pm
by 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
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
Re: Necesito un Ejemplo de Fast Report
Posted: Thu Oct 03, 2019 3:53 pm
by 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.