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.
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.
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
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
ENDPRINTHola 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.