Quedo en el pasado SKIP FOR !WEXIST("miVentana")

[ZeRoberto]

Antes cuando empece a programar en Fpd26 el profesor me decía que en el menú se debía poner SKIP FOR !WEXIST("miVentana"), eso por que en esos tiempos solo se podía abrir la tabla una vez, luego en los entornos Visuales aparece la Session Privada de Datos y ahora en VFP9 se ha vuelto mas innecesario aun porque si trabajas con MySQL este crea cursores independientes por cada consulta.

Ahora como puedo hacer para que cuando abra una ventana digamos Ventas a la siguiente que abra me aparezca Ventas (1) y así sucesivamente.

Saludos

--

btnMyVideo.Click()

[Daniel Sánchez]

Yo utilizo este código para revisar si tengo algún form modal para así evitar abrir alguna opción de menú de manera indebida, pero en si se aplica para lo que necesitas, realizando un ligero cambio.

If _Screen.FormCount>1

NTOTALFORMS = _Screen.FormCount

OFORMSCREEN = _Screen.Forms

For NCUENTAFORMS = 1 To NTOTALFORMS

If OFORMSCREEN.Forms(NCUENTAFORMS).WindowType=1

LMODAL = .T.

Exit

Endif

Endfor

Endif

Saludos

--

Daniel Sánchez Escobar
Investigación y Desarrollo
Reset Software & Sistemas
Móvil +051-949398047
Trujillo - Perú

P  Sugerimos no imprimir este e-mail a menos que sea absolutamente necesario. Protejamos el medio ambiente.

[ZeRoberto]

Gracias amigo Daniel voy a revisarlo y luego te cuento como me fue.

Saludos

--

btnMyVideo.Click()

[ZeRoberto]

Ya esta, acá les dejo por si alguien lo necesita

Procedure NuevoNombre

Local lnCounter

   lnCounter = 0

   For Each loForm In _Screen.Forms

      If loForm.Name = This.Name

         lnCounter = lnCounter + 1

      EndIf

   EndFor

   If lnCounter > 1

      This.Caption = This.Caption + " (" + Transform(lnCounter - 1) + ")"

   EndIf

EndProc

Poner esto en el Evento Load

Saludos

--

btnMyVideo.Click()