' gambas module file
Public Const LISTAR_COSAS As Integer = 0
Public Const LISTAR_MAS As Integer = 1
Public Const LISTAR_VACIO_MENOS As Integer = 2
Public Const LISTAR_FILTRO_EN_COSAS As Integer = 3
modulo ac
Public Sub GuardarUltimaAccion(accion As Integer, Optional sql As String, Optional filtro As String, Optional datos As Variant[])
Settings["UltimaAccion/EstaAccion"] = Accion
Settings["UltimaAccion/sql"] = sql
Settings["UltimaAccion/filtro"] = filtro
Settings["UltimaAccion/datos"] = datos
Settings.Save()
End
Public Sub EjecutarUltimaAccion()
Select Case Settings["UltimaAccion/EstaAccion", 0]
Case 0 'Public Const LISTAR_COSAS As Integer = 0
Almacen.ListarTodo()
Case 1 'Public Const LISTAR_MAS As Integer = 1
Almacen.cbxEstado.Index = 4
Case 2 'Public Const LISTAR_VACIO_MENOS As Integer = 2
Almacen.cbxEstado.Index = 5
Case 3 'Public Const LISTAR_FILTRO_EN_COSAS As Integer = 3
Almacen.ListarEsto(Consultas.ListarFiltroEnCosas(Settings["UltimaAccion/filtro", ""]))
Case 4
Case 5
End Select
End
Public Const LISTAR_COSAS As Integer = 0
Public Const LISTAR_MAS As Integer = 1
Public Const LISTAR_VACIO_MENOS As Integer = 2
Public Const LISTAR_FILTRO_EN_COSAS As Integer = 3
modulo ac
Public Sub GuardarUltimaAccion(accion As Integer, Optional sql As String, Optional filtro As String, Optional datos As Variant[])
Settings["UltimaAccion/EstaAccion"] = Accion
Settings["UltimaAccion/sql"] = sql
Settings["UltimaAccion/filtro"] = filtro
Settings["UltimaAccion/datos"] = datos
Settings.Save()
End
Public Sub EjecutarUltimaAccion()
Select Case Settings["UltimaAccion/EstaAccion", 0]
Case 0 'Public Const LISTAR_COSAS As Integer = 0
Almacen.ListarTodo()
Case 1 'Public Const LISTAR_MAS As Integer = 1
Almacen.cbxEstado.Index = 4
Case 2 'Public Const LISTAR_VACIO_MENOS As Integer = 2
Almacen.cbxEstado.Index = 5
Case 3 'Public Const LISTAR_FILTRO_EN_COSAS As Integer = 3
Almacen.ListarEsto(Consultas.ListarFiltroEnCosas(Settings["UltimaAccion/filtro", ""]))
Case 4
Case 5
End Select
End
guardar última acción
ejecutar ultima accion ahora...
Public Sub btnGuardar_Click()
Dim Campos, Valores As String
If AccionModificar Then 'Modificacion de proveedor
Campos = "nombre=&1, datos=&2,correo=&3,web=&4"
Try Almacen.CX_Inventario.Exec("Update proveedores set " & Campos & " where idproveedor = &5", UCase$(txtNomProv.Text),
txtaDetallesProv.Text, txtCorreo.Text, txtWeb.Text, CInteger(LabIdNuevoProv.Text))
If Error Then
MsgvProv.Open(Error.Text & " (" & Error.Where & " : " & Error.Code)
Return
Else
ListarProveedores()
ActivarBotones(False)
btnGuardar.Enabled = False
Balloon.Info("Cambios guardados correctamente", btnGuardar)
Endif
Else
'Ingreso de nuevo proveedor
Campos = "idproveedor,ingreso,nombre,datos,correo,web"
Valores = "&1,&2,&3,&4,&5,&6"
Try Almacen.CX_Inventario.Exec("insert into proveedores (" & Campos & ") values (" & Valores & ")",
CInteger(LabIdNuevoProv.Text), Now, UCase$(txtNomProv.Text), txtaDetallesProv.Text, txtCorreo.Text, txtWeb.Text)
If Error Then
MsgvProv.Open(Error.Text & " (" & Error.Where & " : " & Error.Code)
txtNomProv.Clear()
' txtNomProv.SetFocus()
Return
Else
ListarProveedores()
Limpiar(True)
Endif
Endif
ac.EjecutarUltimaAccion()
End
Dim Campos, Valores As String
If AccionModificar Then 'Modificacion de proveedor
Campos = "nombre=&1, datos=&2,correo=&3,web=&4"
Try Almacen.CX_Inventario.Exec("Update proveedores set " & Campos & " where idproveedor = &5", UCase$(txtNomProv.Text),
txtaDetallesProv.Text, txtCorreo.Text, txtWeb.Text, CInteger(LabIdNuevoProv.Text))
If Error Then
MsgvProv.Open(Error.Text & " (" & Error.Where & " : " & Error.Code)
Return
Else
ListarProveedores()
ActivarBotones(False)
btnGuardar.Enabled = False
Balloon.Info("Cambios guardados correctamente", btnGuardar)
Endif
Else
'Ingreso de nuevo proveedor
Campos = "idproveedor,ingreso,nombre,datos,correo,web"
Valores = "&1,&2,&3,&4,&5,&6"
Try Almacen.CX_Inventario.Exec("insert into proveedores (" & Campos & ") values (" & Valores & ")",
CInteger(LabIdNuevoProv.Text), Now, UCase$(txtNomProv.Text), txtaDetallesProv.Text, txtCorreo.Text, txtWeb.Text)
If Error Then
MsgvProv.Open(Error.Text & " (" & Error.Where & " : " & Error.Code)
txtNomProv.Clear()
' txtNomProv.SetFocus()
Return
Else
ListarProveedores()
Limpiar(True)
Endif
Endif
ac.EjecutarUltimaAccion()
End
que opinan de este código...
