FoxPro/Visual FoxPro - Alguien puede explicarme esta codificacion?

   
Vista:

Alguien puede explicarme esta codificacion?

Publicado por Claudio (4 intervenciones) el 11/03/2010 17:05:41
Hola amigos queria preguntarles si alguien puede explicarme esta parte de una codificacion:

IF BANDA=2
Select Caja
vMontoExtraido=Montoext
vMontoIngresado=Thisform.Pageframe1.Page1.TxtMontoing.Value
vMontoaretirar=Thisform.Pageframe1.Page1.Txtretiro.Value

Replace MontoExt With MontoExt+(vMontoaRetirar)
Replace Saldo with vMontoIngresado-(vMontoExtraido)-vMontoaRetirar

Select Detacaja
append blank
Replace Retirosid With Thisform.Pageframe1.Page1.TxtidRet.Value
Replace Fecha With datetime()
Replace MontoReti With vMontoaRetirar
Replace Detalle With Thisform.Pageframe1.Page1.TxtDeta.Value

Thisform.Pageframe1.Page1.Txtretiro.Enabled = .f.
Thisform.Pageframe1.Page1.TxtDeta.Enabled = .f.
THISFORM.PAGEFRAME1.PAGE1.COMMANDGROUP2.COMMAND1.CAPTION="\<Nuevo"
THISFORM.PAGEFRAME1.PAGE1.COMMANDGROUP2.COMMAND2.CAPTION="\<Editar"
THISFORM.PAGEFRAME1.PAGE1.COMMANDGROUP2.COMMAND2.Enabled = .f.

Espero que me puedan ayudar.
Saludos!
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

RE:Alguien puede explicarme esta codificacion?

Publicado por Saul -Guatemalteco.. (676 intervenciones) el 11/03/2010 20:19:08
Eso es.. Suerte

** Condicion
IF BANDA=2
*- Tabla Cabera
Select Caja

vMontoExtraido = Montoext &&le da el valor del campo a una variable
vMontoIngresado = Thisform.Pageframe1.Page1.TxtMontoing.Value &&Valor de Caja Texto
vMontoaretirar = Thisform.Pageframe1.Page1.Txtretiro.Value &&Valor de Caja Texto

Replace MontoExt With MontoExt+(vMontoaRetirar) &&Aqui Actualizas en la tabla
Replace Saldo with vMontoIngresado-(vMontoExtraido)-vMontoaRetirar &&Aqui Actulizas

*- Tabla Detalle
Select Detacaja

*-Ingresar Registros
*-Que bienen de tus campos y tus cajas de texto
append blank
Replace Retirosid With Thisform.Pageframe1.Page1.TxtidRet.Value
Replace Fecha With datetime()
Replace MontoReti With vMontoaRetirar
Replace Detalle With Thisform.Pageframe1.Page1.TxtDeta.Value

*- Se desabhilitan unos campos textos
Thisform.Pageframe1.Page1.Txtretiro.Enabled = .f.
Thisform.Pageframe1.Page1.TxtDeta.Enabled = .f.

*- Le cambias el nombre a los botones
THISFORM.PAGEFRAME1.PAGE1.COMMANDGROUP2.COMMAND1.CAPTION="\<Nuevo"
THISFORM.PAGEFRAME1.PAGE1.COMMANDGROUP2.COMMAND2.CAPTION="\<Editar"
THISFORM.PAGEFRAME1.PAGE1.COMMANDGROUP2.COMMAND2.Enabled = .f.

ENDIF
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

RE:Alguien puede explicarme esta codificacion?

Publicado por Claudio (4 intervenciones) el 12/03/2010 02:47:25
Muchas gracias amigo te lo agradesco muchisimo!
Me has ayudado y ahora lo entiendo :)
Saludos y gracias!
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