DUPLICAR TABLA PRINCIPAL Y 2 RELACIONADAS (PORTAL)
Publicado por Benkenoby (8 intervenciones) el 06/01/2010 18:40:20
Hola, estoy mirando la manera de duplicar un registro principal con 2 relacionados a través de portal, he conseguido duplicarlo con 1 relac. pero no veo la manera de hacerlo con 2.
Mi guión es el siguiente
Congelar ventana
Ir al registro relacionado [ Desde la tabla: “enlace”; Usando la presentación: “tab2” (tab2) ]
[ Mostrar sólo registros relacionados ]
Ir a la presentación [ “Prueba” (tab1) ]
Duplicar registro/petición
Establecer variable [ $Duplicador; Valor:tab1::id_tab1]
Consignar registros/peticiones
Ir a la presentación [ “tab2” (tab2) ]
Reemplazar contenido del campo [ tab2::estado; Reemplazar por cálculo: "" ]
[ Sin diálogo ]
Loop
Ir al registro/petición/página
[ Primero ]
If [ IsEmpty(tab2::estado) ]
Establecer campo [ tab2::estado; "ok" ]
Duplicar registro/petición
Establecer campo [tab2::id_tab2; $duplicador ]
Omitir registro
Else
Omitir registro
End If
Exit Loop If [ Get(FoundCount) = 0 ]
End Loop
Ir a la presentación [ “Prueba” (tab1) ]
Refrescar ventana
Seleccionar ventana [ Ventana actual ]
Quizá me esté complicando demasiado para hacer poca cosa, lo he ido sacando de webs, pero como ya digo sólo consigo duplicar 1 reg. relac pero cuando me pongo a intentar duplicar el segundo que sería la tab3 no puedo.
Un Saludo y gracias
Mi guión es el siguiente
Congelar ventana
Ir al registro relacionado [ Desde la tabla: “enlace”; Usando la presentación: “tab2” (tab2) ]
[ Mostrar sólo registros relacionados ]
Ir a la presentación [ “Prueba” (tab1) ]
Duplicar registro/petición
Establecer variable [ $Duplicador; Valor:tab1::id_tab1]
Consignar registros/peticiones
Ir a la presentación [ “tab2” (tab2) ]
Reemplazar contenido del campo [ tab2::estado; Reemplazar por cálculo: "" ]
[ Sin diálogo ]
Loop
Ir al registro/petición/página
[ Primero ]
If [ IsEmpty(tab2::estado) ]
Establecer campo [ tab2::estado; "ok" ]
Duplicar registro/petición
Establecer campo [tab2::id_tab2; $duplicador ]
Omitir registro
Else
Omitir registro
End If
Exit Loop If [ Get(FoundCount) = 0 ]
End Loop
Ir a la presentación [ “Prueba” (tab1) ]
Refrescar ventana
Seleccionar ventana [ Ventana actual ]
Quizá me esté complicando demasiado para hacer poca cosa, lo he ido sacando de webs, pero como ya digo sólo consigo duplicar 1 reg. relac pero cuando me pongo a intentar duplicar el segundo que sería la tab3 no puedo.
Un Saludo y gracias
Valora esta pregunta


0