2 Formas !UUUURGE!
Publicado por ZAMORA (77 intervenciones) el 23/04/2007 17:11:09
Tengo un problemita, tengo un programa que hace una verificación en un cursor en este tengo cuatro columnas hago la busqueda si no existe necesito darla de alta en la marcha para obviar tiempos pido los datos restantes en otra formita.
El problema que tengo es que llamo a la otra forma pero el codigo sigue corriendo.
Ya tengo la primera " Como formulario de nivel superior " y la segunda como " en formulario de nivel superior"
Que podria hacer para que espero los datos de la segunda forma y siga el codigo.
Ej.
SELECT Cursor1
GO TOP
SEEK SUBSTR(ALLTRIM(CAMPO11),2,25)
IF FOUND()
CAMPO12 = UPPER(ALLTRIM(CAMPO2))
CAMPO13 = UPPER(ALLTRIM(CAMPO3))
CAMPO14 = UPPER(ALLTRIM(CAMPO4))
ELSE
DO FORM FORMA2
FARMA2.TEXT1.SETFOCUS
&& AQUI SIME MANDA A LA FORMA 2
&& NECESITO QUE ESPERE LOS DATOS DE LA FORMA (ESTO ESTA DENTRO DE UN DO WHILE) PUEDE ESTAR EN CUALQUIER MOMENTO DE EL RECORRIDO DE OTRO CURSOR.
ENDIF
&& EL PROGRAMA SIGUE CORRIENDO
SELECT DBF_1
APPEND BLANK
REPLACE CAMPO21 WITH ALLTRIM(CAMPO11)
REPLACE CAMPO22 WITH ALLTRIM(CAMPO12)
REPLACE CAMPO23 WITH ALLTRIM(CAMPO13)
REPLACE CAMPO24 WITH ALLTRIM(CAMPO14)
&& ESTOS CAMPOS PUEDEN ESTAR EN EL CURSOR1 O VENIR DE LA FORMA DE CAPTURA
DE ANTEMANO MIL GRACIAS
El problema que tengo es que llamo a la otra forma pero el codigo sigue corriendo.
Ya tengo la primera " Como formulario de nivel superior " y la segunda como " en formulario de nivel superior"
Que podria hacer para que espero los datos de la segunda forma y siga el codigo.
Ej.
SELECT Cursor1
GO TOP
SEEK SUBSTR(ALLTRIM(CAMPO11),2,25)
IF FOUND()
CAMPO12 = UPPER(ALLTRIM(CAMPO2))
CAMPO13 = UPPER(ALLTRIM(CAMPO3))
CAMPO14 = UPPER(ALLTRIM(CAMPO4))
ELSE
DO FORM FORMA2
FARMA2.TEXT1.SETFOCUS
&& AQUI SIME MANDA A LA FORMA 2
&& NECESITO QUE ESPERE LOS DATOS DE LA FORMA (ESTO ESTA DENTRO DE UN DO WHILE) PUEDE ESTAR EN CUALQUIER MOMENTO DE EL RECORRIDO DE OTRO CURSOR.
ENDIF
&& EL PROGRAMA SIGUE CORRIENDO
SELECT DBF_1
APPEND BLANK
REPLACE CAMPO21 WITH ALLTRIM(CAMPO11)
REPLACE CAMPO22 WITH ALLTRIM(CAMPO12)
REPLACE CAMPO23 WITH ALLTRIM(CAMPO13)
REPLACE CAMPO24 WITH ALLTRIM(CAMPO14)
&& ESTOS CAMPOS PUEDEN ESTAR EN EL CURSOR1 O VENIR DE LA FORMA DE CAPTURA
DE ANTEMANO MIL GRACIAS
Valora esta pregunta


0