Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » Ayuda al crear un programa

Visual Basic - Ayuda al crear un programa

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:

Ayuda al crear un programa

Publicado por Locker (1 intervención) el 01/11/2015 11:05:17
Hola a todos!

Necesito su ayuda para crear este programa en Visual Basic para la escuela. Estamos trabajanto con bases de datos por Access y Visual Basic 6.0.

La consigna es la siguiente:

"Construir un procedimiento que permita agregar, eliminar, modificar y moverse entre artículos para la venta. Los importes correspondientes a IVA y Precio de Venta se calculan automáticamente. El recargo es el 21% del precio de compra más IVA. Ejemplo:

http://www.subeimagenes.com/img/ejemplo-1510164.html

Recuerden que el IVA, el Recargo y el Precio de Venta se tienen que calcular automáticamente al cambiar de producto en producto".


Espero que puedan ayudarme, muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

Ayuda al crear un programa

Publicado por Marcelo (226 intervenciones) el 04/11/2015 08:15:32
Hola Locker,
Basándome en la imagen que publicaste en: http://www.subeimagenes.com/img/ejemplo-1510164.html
he creado algo parecido a lo que necesitas. Lee los comentarios y el código para que te des una mejor idea.

Espero que te sea de ayuda...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
Option Explicit
'Agregar referencia de MS Activex Data Objects 2.6 o superior...

Private mConn As ADODB.Connection 'Coneccion

Private WithEvents mRecordset As ADODB.Recordset 'Recordset

Private mSQL As String 'Cadena para almacenar la Consulta Select

 
'Aqui es donde se hacen los calculos

'y se presenta la informacion.

Private Sub LoadMeData()
 
      Dim dPrecioCompra As Double
      Dim dIVA As Double
      Dim dRecargo As Double
      Dim dPrecioVenta As Double
 
      'Calculos

      dPrecioCompra = mRecordset.Fields("PrecioDeCompra").Value
      dIVA = dPrecioCompra * 0.21 '0.21 = 21%

      dRecargo = (dPrecioCompra + dIVA) * 0.21 '0.21 = 21%

      dPrecioVenta = dPrecioCompra + dIVA + dRecargo
 
      'Asignacion de Valores a los Campos

      Me.txtCodigo.Text = mRecordset.Fields("CodigoID").Value
      Me.txtProducto.Text = mRecordset.Fields("Producto").Value
      Me.txtPrecio.Text = mRecordset.Fields("PrecioDeCompra").Value
      Me.txtIVA.Text = FormatCurrency(dIVA, 2)
      Me.txtRecargo.Text = FormatCurrency(dRecargo, 2)
      Me.txtPrecioVenta.Text = FormatCurrency(dPrecioVenta, 2)
 
End Sub
 
Private Sub Form_Load()
'Coneccion + Select Command

mSQL = "Select * From Productos"
Set mConn = New ADODB.Connection
mConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\MyProductos.mdb;User Id=admin;Password=;"
If mConn.State = adStateClosed Then
    mConn.Open
End If
Set mRecordset = New ADODB.Recordset
mRecordset.Open mSQL, mConn, adOpenStatic, adLockOptimistic
 
LoadMeData
 
End Sub
 
'Si se ha concluido el movimiento entre registros

'se revisa si estamos al principio o al final del recordset

'Si es asi, no nos movemos. De lo contrario se muestra la informacion.

Private Sub mRecordset_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
    If mRecordset.BOF = False And mRecordset.EOF = False Then
        LoadMeData
    End If
End Sub
 
'Cerramos la aplicacion

Private Sub cmdExit_Click()
    Unload Me
End Sub
 
'Ir al principio del recordset

Private Sub cmdMoveFirst_Click()
    mRecordset.MoveFirst
End Sub
 
Private Sub cmdMovePrevious_Click()
    'Moverse al registro anterior

    If mRecordset.BOF = False Then
        mRecordset.MovePrevious
    End If
End Sub
 
Private Sub cmdMoveNext_Click()
    'Moverse al registro siguiente

    If mRecordset.EOF = False Then
        mRecordset.MoveNext
    End If
End Sub
 
'Ir al final del recordset

Private Sub cmdMoveLast_Click()
    mRecordset.MoveLast
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar