Problema con Boton de Comando

[integral]

Que tal amigos del Foro

Muy Buenos Dias

Tengo un formulario de Cuotas que contiene 2 botones de comando que llaman a un mismo formulario modal para 2 procesos diferentes.

DO FORM Adicional WITH lnLeft, lnTop, THIS.Name NAME oForm_Adicion LINKED

Con ello paso el Name de cada boton de comando.

En el form hijo en el evento INIT indico la variable de parametro, pero al ejecutarlo me marca el error mostrado en la imagen.

  

A continuacion el codigo que estoy utilizando...

FORM : Cuotas
****************
CommandBoton_1 : ( Name: Cmd1 )                          Click

SELECT moda_pago2, med_pago2, time_pago2, num_oper2, tipo_oper2 FROM Cursor_Temp_Filtro WHERE .F. INTO CURSOR Cur_Trabajador READWRITE

DO FORM Adicional WITH lnLeft, lnTop, THIS.Name NAME oForm_Adicion LINKED

CommandBoton_2 : ( Name: Cmd2 )                          Click

SELECT moda_pago3, med_pago3, time_pago3, num_oper3, tipo_oper3 FROM Cursor_Temp_Filtro WHERE .F. INTO CURSOR Cur_Trabajador READWRITE

DO FORM Adicional WITH lnLeft, lnTop, THIS.Name NAME oForm_Adicion LINKED

FORM : Adicional

******************
LPARAMETERS lnLeft, lnTop, oCmdButton

SELECT Cur_Trabajador
SCATTER MEMVAR BLANK                
APPEND BLANK

DO CASE
   CASE oCmdButton.Name = "Cmd1"         <--- Error
       WAIT WINDOW "BOTON 1" TIMEOUT 1
       m.moda_pago2 = Thisform.moda_pago2.Value   ?
       m.med_pago2  = Thisform.Cbo_Medio.DisplayValue
       m.time_pago2 = Thisform.txtHora.Value
       m.num_oper2  = Thisform.txtNum_Oper.Value
       m.tipo_oper2 = Thisform.Cbo_Opera.DisplayValue
   
   CASE oCmdButton.Name = "Cmd2"         <--- Error
       WAIT WINDOW "BOTON 2" TIMEOUT 1
       m.moda_pago3 = Thisform.moda_pago2.Value   ?
       m.med_pago3  = Thisform.Cbo_Medio.DisplayValue
       m.time_pago3 = Thisform.txtHora.Value
       m.num_oper3  = Thisform.txtNum_Oper.Value
       m.tipo_oper3 = Thisform.Cbo_Opera.DisplayValue

GATHER MEMVAR                      

SELECT Cur_Trabajador
BROWSE  

Aqui muestro el error presentado...

Agradezco sus comentarios y sugerencias.

Saludos,

Integral

[iamrdb]

Hola integral, buen día

Te falta el "Thisform." en cada Case

Saludos

Daniel Burgos 

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/1e741272-197c-470d-8490-1cc32bcce714n%40googlegroups.com.

[Edwin Duran]

Saludos  Integral, una sugerencias, en vez de crear formularios Separados,  por que no creas PageFrame sin pestañas 

[Zarlu]

Buenos días Integral!

No me parece que " oCmdButton" se este recibiendo como un objeto. Por eso no responde a la propiedad "NAME"

Creo que al llamar al formulario hijo con "....With This.Name..." bastaría para validar

y en el INIT del formulario hijo:

...

Case  lower(oCmdButton) = "cmd1"

...

Suerte

zarlu

Chetumal, Quintana Roo, México