Informix - Principiante en Reportes en 4gl

 
Vista:

Principiante en Reportes en 4gl

Publicado por XW (3 intervenciones) el 06/09/2005 03:33:06
Hola!
Debo realizar unos reportes en 4gl; lo unico que he hecho en informix hasta ahora han sido procedimientos almacenados y crecaion de tablas con sql y la verdad no se ni por donde empezar a hacer los reportes, no se que interface usan para crearlos y correrlos y si tienen un manualillo de como se programan pues lo agradecere mucho.

Ojala puedan ayudarme.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Principiante en Reportes en 4gl

Publicado por luis rivadlo (126 intervenciones) el 06/09/2005 16:45:01
Mira este Pequeño Ejemplo
Es una de las tantas formas que puedes hacer.

database TU_BASE_DE_DATOS_DEBE_IR_AQUI
Globals
define
tecla char(1),
Variable_LlenarNulos,
Variable_Tabla_Registro record
cliente char(10),
nombre char(40)
end record,
cmd char(20)

end globals
main
clear screen
initialize Variable_LlenarNulos.* to null

create temp table tmpdatos
( cliente char(10),
nombre char(40)
);
load from "datos.unl" insert into tmpdatos ;

declare cursor_1 cursor for
select * from tmpdatos
order by cliente

let cmd = "lp -dimpresora "
start report Funcion_Reporte to pipe cmd

foreach cursor_1 into Variable_Tabla_Registro.*
display Variable_Tabla_Registro.cliente," ",
Variable_Tabla_Registro.nombre
output to report Funcion_Reporte(Variable_Tabla_Registro.* )
let Variable_Tabla_Registro.* = Variable_LlenarNulos.*
end foreach

finish report Funcion_Reporte

end main

report Funcion_Reporte( VTR )
Define VTR record
cliente char(10),
nombre char(40)
end record,
line1 char(100)

output

left margin 0

order external by VTR.cliente

format

page header

let line1 = date clipped, 10 spaces, "EMPRESA DE PRUEBA S.A.",10 spaces,
"Pag : ", pageno using "&&&#"

print column line1
print column 1, "----------------------------------------",
"----------------------------------------",
"------------"

before group of VTR.cliente
print column 1, "----------------------------------------",
"----------------------------------------",
"------------"

on every row

print column 1, VTR.cliente,
column 15, VTR.nombre

after group of VTR.cliente
skip to top of page

on last row
print "Fin Reporte"

end report

Aprovecha Esta Gran Oportunidad Te Invita (RIVAlDO)
http://www.lideresubi.com/informate
Recuerda Entrar como DT-RIVALDO-TUNOMBRE-PAIS
5:00pm colombia, mexico, peru

ver http://www.horariomundial.com
http://www.ubifone.clubcaebiz.net/grabaciones.html

www.cyberoficina.com/rivaldo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Principiante en Reportes en 4gl

Publicado por Espe (5 intervenciones) el 15/06/2010 14:30:40
Hola:

Me podrias decir como puedo desde 4GL llamar a funciones y procedimientos almacendos.

Gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Principiante en Reportes en 4gl

Publicado por Andrea (1 intervención) el 19/09/2012 19:44:49
Hola,

Estoy haciendo un reporte con salida por pantalla y tengo un problema cuando saldo con q y es muy grande. Genera el error 1324 ya que intenta seguir imprimiendo.

Espero su respuesta.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar