Parte 18 – Ventana de Producto

En este vídeo Trabajamos la parte de configurar las opciones de algunos de los campos de la ventana de Productos como son:

• Código: Se verifica que el código digitado no lo tengo otro Producto para eso se consultado el código
• Impuesto: En este campo se hace el calculo para sumarle el impuesto al Precio Costo
• Porcentajes: En esta campo se calcula el precio Venta y la utilidad basado en el porcentaje Digitado en ese campo, igual para los otros campos de porcentaje
• Precios  de Venta:  En estos campos se hace el calculo del Porcentaje de Incremento y de la utilidad basado en el Precio de venta Digitado.

Función para validar si el código Digitado existe:

Function ValidarCodigoProducto() As Boolean
    Dim RecorsetTempo As New ADODB.Recordset
    Dim Sql As String
    
    Sql = "Select NombrePro from tblProductos where CodigoPro = '" & txtCodigoPro & "'"
    
    Set RecorsetTempo = ConexionADO.Execute(Sql)
    
    If RecorsetTempo.RecordCount > 0 Then
       NombrePro = RecorsetTempo("NombrePro")
       MsgBox "El codigo " & txtCodigoPro.Text & " ya existe en el producto " & NombrePro & ", verifique. ", vbExclamation, "Error"
       txtCodigoPro.SetFocus
       ValidarCodigoProducto = True
    Else
       ValidarCodigoProducto = False
    End If
    
    
End Function

Calcular Impuesto: Calcula el precio de costo con impuesto dependiendo del Campo Impuesto

Sub CalcularImpuesto()
    
    PrecioCosto = CCur(txtPrecioCosto.Text)
    Impuesto = txtImpuesto.Text
    If PrecioCosto <> "" And Impuesto <> "" Then
       PrecioImpuesto = PrecioCosto + ((PrecioCosto * Impuesto) / 100)
    Else
       PrecioImpuesto = 0
    End If
    txtPrecioCImp.Text = PrecioImpuesto
End Sub

Procedimiento PrecioPublico: Calculo el precio de Venta del Producto tomando el campo Procentaje

Sub PrecioPublico(PrecioCosto As MaskEdBox, Porcentaje As TextBox, PrecioVenta As MaskEdBox, campUtilidad As TextBox)
    
    If PrecioCosto > 0 Then
       
       PorcenGan = (Porcentaje / 100)
    
       PrecioVenta = PrecioCosto + (PrecioCosto * PorcenGan)
       
       Utilidad = PrecioVenta - PrecioCosto
       
       campUtilidad = Format(Utilidad, "Currency")
    End If
    
End Sub

Procedimiento ProcentajeUtilidad calcula el porcentaje utilizado para el precio de venta

Sub PorcentajeUtilidad(PrecioVenta As MaskEdBox, Porcentaje As TextBox, campUtilidad As TextBox)
    If PrecioVenta.Text > 0 Then
       'calculamos la utilidad
       CalPorcentaje = ((CCur(PrecioVenta) / CCur(txtPrecioCImp)) - 1) * 100
    
       campUtilidad.Text = Round(CalPorcentaje, 2)
    End If
End Sub

Evento KeyUp del campo Impuesto:

Private Sub txtImpuesto_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
       Call CalcularImpuesto
       txtPrecioCImp.SetFocus
    End If
End Sub

Evento KeyUp del campo Porcentaje 1:

Private Sub txtProcV1_KeyUp(KeyCode As Integer, Shift As Integer)
     If KeyCode = 13 Then
        Call PrecioPublico(txtPrecioCImp, txtProcV1, txtPrecioV1, txtUtilidadP1)
       txtPrecioV1.SetFocus
    End If
End Sub

Evento KeyUp del Campo Precio Venta 1:

 If KeyCode = 13 Then
    Call PorcentajeUtilidad(txtPrecioV1, txtProcV1, txtUtilidadP1)
    txtProcV2.SetFocus
End If

Estos mismo eventos se repiten en cada uno de los campos de Porcentaje y de Precios de Venta como se ve en el vídeo.

Siguiente Lección Parte 18-2 Ventana De Producto Validación