Power Builder - ERROR SECUENCIAL AYUDA URGENTE

 
Vista:
sin imagen de perfil

ERROR SECUENCIAL AYUDA URGENTE

Publicado por Edgar (87 intervenciones) el 28/03/2006 20:59:09
Amigos del foro necesito su ayuda con error que me tengo al generar un secuencial en una ventana maestro detalle.
La ventana mestro detalle en su cabecera me recupera todos los planes opertivos en su detalle todos los proyectos atados a ese plan .

PROBLEMA.-
Resulta que por un plan operativo tengo n proyectos ej:
CABECERA PLAN 1

DETALLE
PROYECTO 1
PROYECTO 2
PROYECTO 3
PROYECTO 4
PROYECTO 5
PROYECTO 6
PROYECTO 1.1
PROYECTO 1.2
PROYECTO 1.3

ES AQUI EN DONDE ME DA UN ERROR PUES EN EL SCRIPT ME RECUPERA EL MAXIMO VALOR , PERO AL SEGUIR SE ENCUENTRA CON 1,1, 1.2, 1.3 ENTONCES EL MAXIMO DE ESTE LE PONE EL 2 ENTONCES ME PUEDEN AYUDAR CON ESTE ERROR COMO LE SOLUCIONO MUCHAS GRACIAS
SCRIPT:

integer li_secuencial,li_secuencia,li_periodo
string ls_codpro,ls_codper
long ll_aux,ll_cont

//SECUENCIAL CABECERA

if isnull(dw_mandat.getitemstring(dw_mandat.getrow(),"pop_codpla"))then
SELECT MAX(convert(int,pop_codpla))
into :li_secuencial
from dbo.pop_plan_operativo
using sqlca;

li_secuencial ++
dw_mandat.setitem(dw_mandat.getrow(),"pop_codpla",string(li_secuencial))
ELSE
li_secuencial=integer(dw_mandat.getitemstring(dw_mandat.getrow(),"pop_codpla"))
end if

//SECUENCIAL DETALLE TAB1 EN BASE A LA CABECERA
for ll_aux = 1 to rowcount(carpeta.pagina_1.dw_boton1)
ls_codpro = carpeta.pagina_1.dw_boton1.getitemstring(ll_aux,"pit_codpro")
if isnull(ls_codpro)or ls_codpro='0' then
if ll_aux = 1 then
SELECT max(convert(int,substring(pit_codpro,charindex(',',pit_codpro) +1,100)))
INTO :li_secuencia
from dbo.pit_proyecto_institucional
WHERE convert(int,pop_codpla) = :li_secuencial;
if isnull(li_secuencia) then
li_secuencia = 0
end if
else
li_secuencia = integer(carpeta.pagina_1.dw_boton1.getitemstring(ll_aux -1 ,"pit_codpro"))
end if
li_secuencia++
carpeta.pagina_1.dw_boton1.setitem(ll_aux,"pit_codpro",string(li_secuencia))
ELSE
li_secuencia=integer(carpeta.pagina_1.dw_boton1.getitemstring(carpeta.pagina_1.dw_boton1.getrow(),"pit_codpro"))
end if
next
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