Excepción de valor fuera de rango en Powerbuilder
Buen día expertos, estoy programando en powerbuilder 12.1 y tengo el siguiente codigo en el evento open de una ventana, al momento de cargar me sale el siguiente error que dice: "Exception thrown has not been handled: System.ArgumentOutOfRangeException in event open of object w_inicio2"
el codigo es el siguiente y esta marcada en negrita la parte en la que salta el error o se detiene la aplicación:
EVENTO OPEN
//Recibe el parámetro enviado desde la opción de menú
string ls_titulo, ls_rutaimagen
string usuar, clave, pass, usuabd, ls_error, cod, ls_servidor, ls_perfil
stringls_filtro, ls_sqlsyntax, ls_nuevo_select, ls_comando, ls_quinquenio
Integer respuesta, k, ll_pase, ll_NewItem, li_ano, li_mes, li_dia
integer li_nivel1, li_nivel2, li_nivel3, li_nivel4, li_level1, li_level2, li_level3, li_level4 ,li_sw,li_cont
decimal{2} ld_itbm = 0
datetime ldt_fecha
TreeViewItemltvi_Item
istr_parametro = Message.PowerObjectParm
istr_parametro.ss_modo = "A"
ls_rutaimagen = "Z:\FuncionamientoFuentes PB11.5\images\"
f_conectar_transaccion("C")
// Opciones del menú
ids_mopciones = Create datastore
ids_mopciones.dataobject = "ds_mopciones"
ids_mopciones.settransobject(sqlca)
// Opciones del menu por funcionario
ids_fmopciones = Create datastore
ids_fmopciones.dataobject = "d_fmopciones"
ids_fmopciones.settransobject(sqlca)
ids_parametros = Create datastore
ids_parametros.dataobject = "ds_parametros"
ids_parametros.SetTransObject(sqlca)
ls_sqlsyntax = ids_parametros.Object.DataWindow.Table.Select
messagebox("3","creado los datastore")
// Parámetro
select fp_quinquenio.descripcion, fp_quinquenio.quinquenio
into :is_quinquenio_param, :ls_quinquenio
from fp_quinquenio
where fp_quinquenio.estado in ('AB','VI') ;
messagebox("3.5","quinquenio: " + ls_quinquenio )
//parte del codigo que da error
select fp_quinquenio.descripcion, fp_quinquenio.quinquenio, fp_parametros.impuesto_itbms
into :is_quinquenio_param, :ls_quinquenio, :ld_itbm
from fp_quinquenio, fp_parametros
where (fp_quinquenio.quinquenio = fp_parametros.quinquenio )
and (fp_quinquenio.estado in ("AB","VI") )
and (fp_parametros.fecha_grabacion in (select max( p.fecha_grabacion) from fp_parametros p where p.quinquenio = :ls_quinquenio))
USING SQLCA ;
messagebox("4","se consulta opcioes")
Declare fmop_cur cursor for
select nivel1, nivel2, nivel3, nivel4
from fp_funcionario_opciones
where fp_funcionario_opciones.funcionario = :gdbl_funcionario
order by nivel1, nivel2, nivel3, nivel4 ;
messagebox("5","cursor funcionario opciones")
//....//
Si alguien puede ayudarme o darme una pista sobre la causa de este error se lo agradeceria mucho.
el codigo es el siguiente y esta marcada en negrita la parte en la que salta el error o se detiene la aplicación:
EVENTO OPEN
//Recibe el parámetro enviado desde la opción de menú
string ls_titulo, ls_rutaimagen
string usuar, clave, pass, usuabd, ls_error, cod, ls_servidor, ls_perfil
stringls_filtro, ls_sqlsyntax, ls_nuevo_select, ls_comando, ls_quinquenio
Integer respuesta, k, ll_pase, ll_NewItem, li_ano, li_mes, li_dia
integer li_nivel1, li_nivel2, li_nivel3, li_nivel4, li_level1, li_level2, li_level3, li_level4 ,li_sw,li_cont
decimal{2} ld_itbm = 0
datetime ldt_fecha
TreeViewItemltvi_Item
istr_parametro = Message.PowerObjectParm
istr_parametro.ss_modo = "A"
ls_rutaimagen = "Z:\FuncionamientoFuentes PB11.5\images\"
f_conectar_transaccion("C")
// Opciones del menú
ids_mopciones = Create datastore
ids_mopciones.dataobject = "ds_mopciones"
ids_mopciones.settransobject(sqlca)
// Opciones del menu por funcionario
ids_fmopciones = Create datastore
ids_fmopciones.dataobject = "d_fmopciones"
ids_fmopciones.settransobject(sqlca)
ids_parametros = Create datastore
ids_parametros.dataobject = "ds_parametros"
ids_parametros.SetTransObject(sqlca)
ls_sqlsyntax = ids_parametros.Object.DataWindow.Table.Select
messagebox("3","creado los datastore")
// Parámetro
select fp_quinquenio.descripcion, fp_quinquenio.quinquenio
into :is_quinquenio_param, :ls_quinquenio
from fp_quinquenio
where fp_quinquenio.estado in ('AB','VI') ;
messagebox("3.5","quinquenio: " + ls_quinquenio )
//parte del codigo que da error
select fp_quinquenio.descripcion, fp_quinquenio.quinquenio, fp_parametros.impuesto_itbms
into :is_quinquenio_param, :ls_quinquenio, :ld_itbm
from fp_quinquenio, fp_parametros
where (fp_quinquenio.quinquenio = fp_parametros.quinquenio )
and (fp_quinquenio.estado in ("AB","VI") )
and (fp_parametros.fecha_grabacion in (select max( p.fecha_grabacion) from fp_parametros p where p.quinquenio = :ls_quinquenio))
USING SQLCA ;
messagebox("4","se consulta opcioes")
Declare fmop_cur cursor for
select nivel1, nivel2, nivel3, nivel4
from fp_funcionario_opciones
where fp_funcionario_opciones.funcionario = :gdbl_funcionario
order by nivel1, nivel2, nivel3, nivel4 ;
messagebox("5","cursor funcionario opciones")
//....//
Si alguien puede ayudarme o darme una pista sobre la causa de este error se lo agradeceria mucho.
