RE: [vfp] Problema con Boton de Comando
calf...@yahoo.com.ar
El mensaje dice que el error está en el método click de cmdacepta y me parece que el código que estas mostrando esta en el init del form que has llamado.
De: publice...@googlegroups.com <publice...@googlegroups.com> En nombre de integral
Enviado el: martes, 24 de febrero de 2026 03:10
Para: Comunidad de Visual Foxpro en Español <publice...@googlegroups.com>
Asunto: Re: [vfp] Problema con Boton de Comando
Buenas Tardes
Colega Daniel
Te comento, lo que indicas es justamente como lo estoy haciendo ahora, pero igual me marca error..Ver imagen adjunta.
DO CASE
CASE oCmdButton = "Cmd1" <--- Error
WAIT WINDOW "BOTON 1" TIMEOUT 1
SELECT Cur_Trabajador
SCATTER MEMVAR
APPEND BLANK
m.moda_pago2 = Thisform.OptionGroup1.Value
...
GATHER MEMVAR
SELECT Cur_Trabajador
BROWSE
CASE oCmdButton.Name = "Cmd2" <--- Error
WAIT WINDOW "BOTON 2" TIMEOUT 1
SELECT Cur_Trabajador
SCATTER MEMVAR
APPEND BLANK
m.moda_pago3 = Thisform.OptionGroup1.Value
m.med_pago3 = Thisform.Cbo_Medio.DisplayValue
...
GATHER MEMVAR
SELECT Cur_Trabajador
BROWSE
Atte,
Integral
El martes, 24 de febrero de 2026 a la(s) 2:23:37 p.m. UTC-5, Daniel Sánchez escribió:
Buenas al enviar poner THIS.Name que es un texto que va el nombre del boton por lo que llega "Cmd1".
a lo que en tu case solo seria asi
case oCmdButton = "Cmd1"
nada más sin el .name ya que es un texto y no un objeto.
Saludos
El mié, 18 feb 2026 a las 10:11, integral (<integral...@hotmail.com>) escribió:
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 READWRITEDO 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 READWRITEDO 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
BROWSEAqui muestro el error presentado...
Agradezco sus comentarios y sugerencias.
Saludos,
Integral
--
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.
--
Daniel Sánchez Escobar
Investigación y Desarrollo
Reset Software SAC
Móvil y WhatsApp +051-949398047 / Móvil 948615385
Trujillo - Perú
P Sugerimos no imprimir este e-mail a menos que sea absolutamente necesario. Protejamos el medio ambiente.
--
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/149e8391-685e-4aea-b87b-bc8f0ebcf1ben%40googlegroups.com.
integral
Daniel Sánchez
Atte,Integral
