FoxPro/Visual FoxPro - Vfp 8. Como grabar los datos de un txtbox a todos los registros.

 
Vista:
sin imagen de perfil

Vfp 8. Como grabar los datos de un txtbox a todos los registros.

Publicado por luis (6 intervenciones) el 15/10/2016 22:31:27
Hola. Agradezco su ayuda .
Tengo un txtbox y un grin con casi 200 registros. Uno de los campos es afiliacion.
y el monto de afiliacion es el que deseo cambiar pero que todos los registro tomen el valor nuevo introducido.


En el formulario tengo

Textafiliacion tipo numerico
Grigregistro.

Soy nuevo y agradezco su ayuda
Dios los bendiga y le de mucha mas sabiduria
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 1.372
Oro
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Vfp 8. Como grabar los datos de un txtbox a todos los registros.

Publicado por Fidel José (642 intervenciones) el 16/10/2016 15:11:39
Lo más simple:

* Objeto txtAfiliacion
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
* Evento Valid
IF !EMPTY(this.value)
	SELECT (thisform.griRegistro.REcordSource)
	lnRecord_Actual = RECNO()
	replace ALL Monto WITH this.value
	IF m.lnRecord_Actual # 0
		GO m.lnRecord_Actual
	ELSE
		GO top
	ENDIF
	thisform.griRegistro.refresh
ENDIF
 
O también
* Evento Valid
IF !EMPTY(this.value)
	SELECT (thisform.griRegistro.REcordSource)
	lnRecord_Actual = RECNO()
	lcCursor = thisform.griRegistro.RecordSource
	lnMonto = this.value
	UPDATE (lcCursor) SET monto = lnMonto WHERE .t.
	IF m.lnRecord_Actual # 0
		GO m.lnRecord_Actual
	ELSE
		GO top
	ENDIF
	thisform.griRegistro.refresh
ENDIF
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
sin imagen de perfil

Vfp 8. Como grabar los datos de un txtbox a todos los registros.

Publicado por luis (6 intervenciones) el 17/10/2016 05:52:24
Gracias fidel. Funciono. Agradecido. Dios lo bendiga.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar