Ayuda con error URGENTE
Publicado por JULIO JUNGBLUTH (13 intervenciones) el 03/10/2005 16:28:58
Tengo un error en los datawindos, son 4 ventanas c/u con DW relacionados. Es una aplicacio que presenta una ventana con la especialidad de los libros, cuando el usuario seleccione una especialidad, en otra ventana se debe mostrar todos los libros pertenecientes a dicha especialidad. Si el usuario selecciona un libro en otra ventana se debe de presentar los detalles de dicho libro y ademas imprimir la informacion presentada
PRIMERA VENTANA
En la ventana especialidad tengo 3 botones: 1) El que me recupera las especialidades en el DataWindows (ese boton trabaja bien). 2) Al hacer clik en el segundo debe enlazarme a la otra ventana y mostrame los libros de dicha especialidad pero me muestra todos los libros de las diferentes especialidades 3) El 3 boton es para salir
"Codigo para el 1er boton"
dw_especialidad.setTransObject(sqlca)
dw_especialidad.Retrieve()
"Codigo para el 2do boton"
integer nfila
nfila = dw_especialidad.GetRow()
if nfila > 0 then
scodigo = trim(dw_especialidad.GetItemString(nfila,"n_nombre_especialidad"))
OpenWithParm(w_prueba3,scodigo)
else
dw_especialidad.Reset()
end if
SEGUNDA VENTANA
"Evento Open" DE LA VENTANA
string ls_codigo_especialidad
//ls_codigo_especialidad = MessageBox.StringParm OJO ACA TAMBIEN TENGO ERROR
this.Title = This.Title + "Especialidad del Libro" +ls_codigo_especialidad
dw_libro.SetTransObject(sqlca)
dw_libro.Retrieve(ls_codigo_especialidad)
En la ventana LIBROS tengo 3 botones: 1) El que me refresca el DataWindows . 2) Al hacer clik en el segundo debe enlazarme a la otra ventana y mostrame el DETALLE de dicho LIBRO pero me muestra todos los DETTALLES de los diferentes LIBROS 3) El 3 boton es para salir
"Codigo para el 1er boton"
dw_libro.Reset()
"Codigo para el 2do boton"
Integer nFila
nFila = dw_libro.GetRow()
If nFila > 0 then
scodigo1 = trim(dw_libro.GetItemString(nFila,"n_titulo"))
openWithParm(w_prueba3b,scodigo1)
else
dw_libro.Reset()
end if
TERCERA VENTANA
"Evento Open" DE LA VENTANA
string ls_codigo_especialidad
//ls_codigo_especialidad=MessageBox.StringParm ACA TAMBIEN ME SALE WARNIG
this.title=this.title+"Detalle del Libro" +ls_codigo_especialidad
dw_libros.SetTransObject(sqlca)
dw_libros.Retrieve(ls_codigo_especialidad)
En la ventana DETALLE tengo 2 botones: 1) el que sirve para inprimir . 2) El 2 boton es para salir
"Codigo para el 1er boton"
integer nFila
nFila = dw_libros.GetRow()
if nFila > 0 then
scodigo = trim(dw_libros.GetItemString(nFila,"n_titulo"))
OpenWithParm(w_prueba3c,scodigo)
else
dw_libros.reset()
end if
CUARTA VENTANA
"Evento Open" DE LA VENTANA
string ls_codigo_especialidad
//ls_codigo_especialidad=MessageBox.StringParm //WARNIG
dw_reporte.SetTransObject(sqlca)
dw_reporte.Retrieve(ls_codigo_especialidad)
"Codigo para el 1er boton"
dw_reporte.print() //QUISIERA QE ME IMPRIMA SOLO EL DETALLE DEL
//LIBRO ESPECIFICO
POR FAVOR ESPERO SU AYUDA GRACIAS DE ANTEMANO
PRIMERA VENTANA
En la ventana especialidad tengo 3 botones: 1) El que me recupera las especialidades en el DataWindows (ese boton trabaja bien). 2) Al hacer clik en el segundo debe enlazarme a la otra ventana y mostrame los libros de dicha especialidad pero me muestra todos los libros de las diferentes especialidades 3) El 3 boton es para salir
"Codigo para el 1er boton"
dw_especialidad.setTransObject(sqlca)
dw_especialidad.Retrieve()
"Codigo para el 2do boton"
integer nfila
nfila = dw_especialidad.GetRow()
if nfila > 0 then
scodigo = trim(dw_especialidad.GetItemString(nfila,"n_nombre_especialidad"))
OpenWithParm(w_prueba3,scodigo)
else
dw_especialidad.Reset()
end if
SEGUNDA VENTANA
"Evento Open" DE LA VENTANA
string ls_codigo_especialidad
//ls_codigo_especialidad = MessageBox.StringParm OJO ACA TAMBIEN TENGO ERROR
this.Title = This.Title + "Especialidad del Libro" +ls_codigo_especialidad
dw_libro.SetTransObject(sqlca)
dw_libro.Retrieve(ls_codigo_especialidad)
En la ventana LIBROS tengo 3 botones: 1) El que me refresca el DataWindows . 2) Al hacer clik en el segundo debe enlazarme a la otra ventana y mostrame el DETALLE de dicho LIBRO pero me muestra todos los DETTALLES de los diferentes LIBROS 3) El 3 boton es para salir
"Codigo para el 1er boton"
dw_libro.Reset()
"Codigo para el 2do boton"
Integer nFila
nFila = dw_libro.GetRow()
If nFila > 0 then
scodigo1 = trim(dw_libro.GetItemString(nFila,"n_titulo"))
openWithParm(w_prueba3b,scodigo1)
else
dw_libro.Reset()
end if
TERCERA VENTANA
"Evento Open" DE LA VENTANA
string ls_codigo_especialidad
//ls_codigo_especialidad=MessageBox.StringParm ACA TAMBIEN ME SALE WARNIG
this.title=this.title+"Detalle del Libro" +ls_codigo_especialidad
dw_libros.SetTransObject(sqlca)
dw_libros.Retrieve(ls_codigo_especialidad)
En la ventana DETALLE tengo 2 botones: 1) el que sirve para inprimir . 2) El 2 boton es para salir
"Codigo para el 1er boton"
integer nFila
nFila = dw_libros.GetRow()
if nFila > 0 then
scodigo = trim(dw_libros.GetItemString(nFila,"n_titulo"))
OpenWithParm(w_prueba3c,scodigo)
else
dw_libros.reset()
end if
CUARTA VENTANA
"Evento Open" DE LA VENTANA
string ls_codigo_especialidad
//ls_codigo_especialidad=MessageBox.StringParm //WARNIG
dw_reporte.SetTransObject(sqlca)
dw_reporte.Retrieve(ls_codigo_especialidad)
"Codigo para el 1er boton"
dw_reporte.print() //QUISIERA QE ME IMPRIMA SOLO EL DETALLE DEL
//LIBRO ESPECIFICO
POR FAVOR ESPERO SU AYUDA GRACIAS DE ANTEMANO
Valora esta pregunta


0