Parte 17 – Creación de la Ventana Proveedores y Producto

En este vídeo implementamos las funcionalidades de la ventana de proveedores, en ella ya guardamos proveedores para poder poder ingresar productos, ya que productos va relacionado con dos tablas Categorías y Proveedores.  Para poder ingresar un Producto se necesita tener ya Categorías y Proveedores por esta razón se organizo estas dos ventanas.

Se dejo lista para implementar funcionalidades la ventana de Producto donde ingresaran los productos del inventario.

Los códigos que se implementaron son las siguientes:

Dim CodigoProveedor 'variable que controla la edición del proveedor

Sub GuardarProveedor()

    If txtNombreEmpresa = "" Then
       MsgBox "Debe llenar el nombre de la Nombre de la Empresa", vbExclamation, "Error"
       txtNombreEmpresa.SetFocus
       Exit Sub
    End If
    If txtNit = "" Then
       MsgBox "Debe llenar el campo Nit", vbExclamation, "Error"
       txtNit.SetFocus
       Exit Sub
    End If
    If txtNombreContacto = "" Then
       MsgBox "Debe llenar el nombre de Nombre de Contacto", vbExclamation, "Error"
       txtNombreContacto.SetFocus
       Exit Sub
    End If
    If txtTelefono = "" Then
       MsgBox "Debe llenar el nombre de Teléfono", vbExclamation, "Error"
       txtTelefono.SetFocus
       Exit Sub
    End If
    If txtDireccion = "" Then
       MsgBox "Debe llenar el nombre de Dirección", vbExclamation, "Error"
       txtDireccion.SetFocus
       Exit Sub
    End If
    If txtEmail = "" Then
       MsgBox "Debe llenar el nombre de E-Mail", vbExclamation, "Error"
       txtEmail.SetFocus
       Exit Sub
    End If
    If CodigoProveedor = 0 Then
        IdProveedor = UltimoIdTabla("tblProveedores", "IdProveedor")
        Sql = "Insert Into tblProveedores (IdProveedor, NombreEmpresaPro, NitEmpresaPro, NombrePro, TelefonoPro, DireccionPro, EmailPro) Values (" & IdProveedor & ",'" & txtNombreEmpresa & "','" & txtNit & "','" & txtNombreContacto & "','" & txtTelefono & "','" & txtDireccion & "','" & txtEmail & "') "
    Else
        Sql = "Update tblProveedores SET NombreEmpresaPro = '" & txtNombreEmpresa & "',NitEmpresaPro = '" & txtNit & "',NombrePro = '" & txtNombreContacto & "',TelefonoPro = '" & txtTelefono & "',DireccionPro = '" & txtDireccion & "',EmailPro = '" & txtEmail & "' Where tblProveedores = " & CodigoProveedor
    End If
    ConexionADO.Execute Sql
    MsgBox "Proveedor Guardado", vbInformation, "Guardar"
    Call Limpiar
End Sub

El Procedimiento de GuardarProveedor Valida los campos y segun el CodigoProveedor guarda o actualiza un proveedor

Sub Limpiar()
    txtNombreEmpresa.Text = ""
    txtNit.Text = ""
    txtNombreContacto.Text = ""
    txtTelefono.Text = ""
    txtDireccion.Text = ""
    txtEmail.Text = ""
    txtNombreEmpresa.SetFocus
End Sub

El procedimiento de Limpiar() Inicializa los campos del formulario por si se va a guardar un nuevo proveedor

Private Sub cmdGuardar_Click()
    Call GuardarProveedor
End Sub

Private Sub cmdNuevo_Click()
    Call Limpiar
End Sub

Private Sub Form_Load()
    CodigoProveedor = 0
End Sub

Eventos de los botones y el load del formulario.

El Evento Load del formulario se usa cuando queremos que al abrir el formulario se cargue alguna función en este caso estamos inicializando la variable de CodigoProveedor a Cero.

Siguiente Lección Parte 18 – 1 Ventana de Producto