Power Builder - SECUENCIAL URGENTE 2

 
Vista:
sin imagen de perfil

SECUENCIAL URGENTE 2

Publicado por Edgar (87 intervenciones) el 23/03/2006 21:12:45
Amigos del foro tengo un pedido urgente para ustedes miren amigos tengo una ventana maestro detalle (2 detalles)
ejemplo:
Cabecera PLan
Codigo (secuencial)

Detalle
Proyecto Tab1 Periodo Tab2
Codigo (Secuencial) Codigo(secuencial)
PROBLEMA

Cabecera
Codigo 1

Detalle

Proyecto Tab1 Periodo Tab2
Codigo 1 Codigo 1
Codigo 2
Codigo 3
Cuando inserto un nuevo registro en periodo el codigo de uno de los proyectos cambia por ejemplo si esta 3 al insertar se pone 4

AYUDENME URGENTE POR FAVOR
ESTE ES LE SCRIPT

integer li_secuencial,li_secuencia,li_periodo
string ls_codpro
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)
SELECT MAX(convert(int,pit_codpro))
INTO :li_secuencia
from dbo.pit_proyecto_institucional
WHERE convert(int,pop_codpla) = :li_secuencial;

if isnull(li_secuencia) then li_secuencia=0
li_secuencia++
carpeta.pagina_1.dw_boton1.setitem(carpeta.pagina_1.dw_boton1.getrow(),"pit_codpro",string(li_secuencia))

next

//SECUENCIAL DETALLE TAB2 EN BASE A LA CABECERA
for ll_cont= 1 to rowcount(carpeta.pagina_2.dw_boton2)
SELECT MAX(convert(int,pev_codper))
INTO :li_periodo
from dbo.pev_periodo_evaluacion
WHERE convert(int,pop_codpla) = :li_secuencial;

if isnull(li_periodo) then li_periodo=0
li_periodo++
carpeta.pagina_2.dw_boton2.setitem(carpeta.pagina_2.dw_boton2.getrow(),"pev_codper",string(li_periodo))

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

RE:SECUENCIAL URGENTE 2

Publicado por gabriel (8 intervenciones) el 13/04/2006 14:38:09
en primer lugar con que gestor de base de datos estas trabajando, es sql, acces u otro
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