• Domingo 22 de Diciembre de 2024, 07:21

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - truo

Páginas: [1]
1
Visual Basic 6.0 e inferiores / vb consultar archivo secuencial por fecha
« en: Sábado 14 de Marzo de 2015, 23:58 »
Hola soy Truo

El codigo que tengo hasta ahora me guarda los datos correctamente, pero no se como se hace un resumen de la venta de un dia con fecha, por ejemplo introduciendo una fecha 13\03\2015 que salga el resumen de dicho dia.

Código: [Seleccionar]

Dim fecha As date
Dim nombre As String
Dim apellido As String
Dim producto As String
Dim cantidad As Integer
Dim precio As Integer
Dim total As Integer
Dim archivo As String

Private Sub Command1_Click()
'nuevo
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text2.SetFocus
End Sub

Private Sub Command2_Click()
' guarda los datos
fecha = Text1.Text
nombre = Text2.Text
apellido = Text3.Text
producto = Text4.Text
cantidad = Text5.Text
precio = Text6.Text
total = Val(Text5.Text) * Val(Text6.Text)
archivo = App.Path & "\ventas.txt"
Open archivo For Append As #1
Write #1, fecha, nombre, apellido, producto, cantidad, precio, total
Close #1
End Sub


Private Sub Form_Load()
Text1.Text = Date
End Sub



Gracias

Páginas: [1]