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
Total Page Visits: 5591 - Today Page Visits: 1
(2) Comments