
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
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


0