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

 

 

Comentarios de Facebook
Total Page Visits: 3940 - Today Page Visits: 2

(2) Comments

  • DarkRSM 27 julio, 2019 @ 12:21 am

    Buenas Noches mi nombre es Renzo y soy de Perú, increíbles todos los vídeos me han estado ayudando mucho, pero en este video encontré una pequeña observación al momento de calcular la utilidad no la esta calculando de forma correcta el 30% de ganancia de los 4640.00 debería ser 6032.00 siendo la utilidad 1392.00 logre corregir el procedimiento modificando la formula de calculo del Porcentaje de Ganancia copio el codigo de como calcule la utilidad correcta. Sub Preciopublico(PrecioCosto As MaskEdBox, Porcentaje As TextBox, PrecioVenta As MaskEdBox, campUtilidad As TextBox)
    Dim PorcenGan as Double

    If PrecioCosto > 0 Then
    PrecioVenta = Round((PrecioCosto * PorcenGan), 2)
    PrecioVenta = PrecioCosto * PorcenGan
    utilidad = PrecioVenta – PrecioCosto
    campUtilidad = FormatNumber(utilidad, 2)
    End If
    End Sub

    Otra observación adicional es con respecto al calculo del Porcentaje de Utilidad
    el porcentaje de utilidad se halla de la siguiente forma:
    (utilidad / PrecioCosto)*100 ——-> Da el Porcentaje de Utilidad Real ya que la utilidad se calcula en base al Precio Costo
    El Codigo Seria el Siguiente

    Sub ProcentajeUtilidad(PrecioVenta As MaskEdBox, Porcentaje As TextBox, utilidad As TextBox)
    If PrecioVenta > 0 Then
    ‘Calculamos Utilidad
    utilidad = CDbl(PrecioVenta) – CDbl(txtPrecioCImp)
    ‘Calculamos el porcentaje de Utilidad
    Porcent = ((utilidad / CDbl(txtPrecioCImp)) * 100)
    Porcentaje.Text = Round(Porcent, 2)
    End If
    End Sub

    si te das cuenta en el video el TextBox de utilidad no se actualiza ya que la variable utilidad no esta reverenciada a ningún textbox que seria txtUtilidadP1 es por eso que no se actualiza el monto de Utilidad

    espero poder ayudar en mas cosas en el lapso que voy viendo sus vídeo y muchas gracias por este tutorial me esta ayudando mucho a mejorar mis conocimientos en mas herramientas con visual basic 6

Deja una respuesta