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
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
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
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
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
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
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
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
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
Private Sub txtImpuesto_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Call CalcularImpuesto
txtPrecioCImp.SetFocus
End If
End Sub
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
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
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
If KeyCode = 13 Then
Call PorcentajeUtilidad(txtPrecioV1, txtProcV1, txtUtilidadP1)
txtProcV2.SetFocus
End If
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
También te podría interesar:
Parte 3 - Colocando la imagen de fondo creada en el Formulario de Intro
Curso de Software de Ventas Parte 31, Ventana de Ventas 6 – Precios de Venta
Curso de Software de Ventas Parte 39, Listado de Ventas 3 Ver Factura - Devolución
Curso de Software de Ventas Parte 32, Ventana de Ventas 7 – Ingresar Productos
Total Page Visits: 5724 - Today Page Visits: 1
(2) Comments