Formulario para ingreso de gastos(lll)

Vamos a terminar el formulario de gastos añadiendo la funcionalidad para restar los materiales gastados. En anteriores proyectos, guiado por el libro de Gambas , habría un nuevo formulario para editar los datos. Tratando siempre de ir mejorando,busqué la manera de hacerlo en el mismo formulario donde ingresamos los datos, luego de varias pruebas, ensayo y error mediante, lo conseguí. Además de estudiar con atención la ayuda emergente de Gambas 3 para la función edit. Al principio del formulario vamos a agregar cuatro variables para poder llamarlas desde cualquier lugar del formulario. Fundamental prestar atención al tipo de dato que representa cada uno.

 Private Clave As Integer
Private Clave2 As String
  Private Clave3 As Integer
  Private Clave4 As Integer

Hecho esto, vamos a crear el procedimiento editar. Para usarlo, en el código descrito en el post anterior, vamos a agregar la llamada al procedimiento debajo de la línea siguiente:

DateBox1.Mode = 0
editar        ‘llamada al procedimiento       

Si ejecutamos el programa ahora, nos dará un error, pues estamos llamando al procedimiento sin haberlo creado. Por tanto, hay que hacerlo de la siguiente manera:

Public Sub editar()
Dim hresul As Result     ‘declaramos variables locales
Dim filtro As String
Dim filtro2 As Integer
Dim sCriteria As String

hconn = Modcon.ConectarBase() ‘nos conectamos a la base

filtro = Txtmaterial.Text    ‘asignamos valor a la variable filtro

hresul = hconn.Exec(“Select * from materiales where nombre like ‘” & filtro & “‘”) ‘ejecutamos la consulta
 
If hresul.Available                         ‘si hay resultados     

Clave = hresul[“id”]               ‘asignamos valores a las variables
Clave2 = hresul[“nombre”]
Clave3 = hresul[“cantidad”]
Clave4 = Vbxcantidad.Value
sCriteria = “id=&1”                     ‘campo clave

hresul = hconn.Edit(“materiales”, sCriteria, Clave)  ‘*ver ampliación
runedit(hresul)                 ‘llamamos al runedit

Endif
End

*Vamos a explicar la línea marcada. Aquí llamamos al procedimiento Edit y le pasamos como parámetros la base de datos,el campo clave y por último el valor de dicho campo,que sería el id del material seleccionado. Esto es equivalente o similar a hacer un Select from (Nombretabla) where id=Clave.  Nos falta ahora crear el runedit, que es muy simple.

Public Sub runedit(data As Result)

hresul = data

Try hresul[“cantidad”] = Clave3 – Clave4
Try hresul.Update

End

Como el campo a actualizar es  cantidad, es el único que llamamos y actualizamos, restando los valores almacenados en las variables Clave3 y Clave4.

Con esto tenemos pronto el formulario para ingresar los gastos. En el próximo post vamos a empezar a mostrarlos.

Anuncios
Esta entrada fue publicada en programación y etiquetada , . Guarda el enlace permanente.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s