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!
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
0