|
Mostrar Temas
|
Páginas: 1 2 [3]
|
21
|
Programación / Programación Visual Basic / pasar informacion de list1 a list2
|
en: 26 Febrero 2019, 19:27 pm
|
hola soy corlo tengo un pequeño problema a la hora de pasar informacion de un archivo de texto de list1, y que vaya leyendo cada dia en list2. en list1 hay lo siguiente: list1 11/12/2018 12/12/2018 13/12/2018 en el list2 hay losiguiente: en el dia 11/12/2018 1 11/12/2018 a 1 11/12/2018 b 1 11/12/2018 c 4 11/12/2018 d 5 11/12/2018 e en dia 12/12/2018 5 12/12/2018 f 7 12/12/2018 g 8 12/12/2018 h 9 12/12/2018 i en dia 13/12/2018 10 13/12/2018 o 11 13/12/2018 p 12 13/12/2018 s Option Explicit Dim n As Integer Dim c As Integer
Private Sub Command1_Click() Unload Me Form1.Show End Sub
Private Sub Form_Load() List1.Clear Open App.Path & "\database.txt" For Random As 1 Len = Len(file) n = LOF(1) / Len(file) c = 1 For c = 1 To n
Get #1, , file
List1.AddItem file.date QuitaDup Next Close #1 End Sub Private Sub QuitaDup() Dim i As Long, X As Long X = List1.ListCount - 1 For i = 0 To List1.ListCount - 2 If List1.List(i) = List1.List(X) Then List1.RemoveItem X Exit For End If Next i End Sub
Private Sub List1_Click() Dim i As Integer Dim ind As Integer List2.Clear Form1.Text1.Text = file.id Form1.Text2.Text = file.date Form1.Text3.Text = file.name ind = List1.ListIndex Open App.Path & "\database.txt" For Random As 1 Len = Len(file) n = LOF(1) / Len(file) For i = 0 To List1.ListCount + 1 If ind <= 0 Then Get #1, i + 1, file
List2.AddItem file.id & " " & file.date & " " & file.name End If Next Close #1 End Sub
y en list2 solamente me lee el primer dia que la rutina es en list1_click y quisiera que me lea el primer dia el segundo dia y el tercer dia. gracias.
|
|
|
22
|
Programación / Programación Visual Basic / archivo secuencial de texto a archivo for random aleatorio
|
en: 8 Enero 2016, 15:56 pm
|
Hola soy Corlo hola quisiera pasar el codigo archivo secuencial de texto a archivo for random aleatorio el codigo que tengo es este Dim i As Integer mes = Text8.Text 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) Text7.Text = Val(Text5.Text) * Val(Text6.Text) archivo = App.Path & "\ventas.txt" Open archivo For Append As #1 Write #1, mes, fecha, nombre, apellido, producto, cantidad, precio, total For i = 0 To List1.ListCount - 1
Print #1, List1.List(i) Next i Close #1
Gracias
|
|
|
23
|
Programación / Programación Visual Basic / sumar datos list1
|
en: 7 Enero 2016, 19:16 pm
|
Hola soy Corlo Tengo una duda en sumar el datos.subtotal del list1 el codigo que tengo hasta ahora es:
dim gh as string gh = App.Path & "\facturas" & "\" & Prefix_Facturas & Text3.Text & ".TXT" Open gh For Random As #1 Len = Len(datos) Get #1, (List1.ListIndex + 1), datos Text7.Text = datos.producto Text8.Text = datos.precio Text9.Text = datos.existencias Text10.Text = datos.subtotal Close #1
gracias
|
|
|
24
|
Programación / Programación Visual Basic / vb modificar datos list1 a archivo random txt
|
en: 8 Septiembre 2015, 14:23 pm
|
Hola soy Corlo Estoy intentando modificar los datos de la factura en el list1 en la opcion modificar datos, cuando guardo los datos de la factura lo ha bien, cuando leo la factura lo hace bien, cuando selecciono un elemento del list1 pasa a los text4, text5, text6, lo hace bien, pero cuando cambio los datos de los text4, text5, text6, no me guarda en archivo random los datos cambiados en Guardar_Factura porque tiene que estar guardados en el list1, no se que hago mal. Si alquien me puede ayudar, gracias. 'DEFININMOS LOS ELEMENTOS DE LA FACTURA Private Type Type_Articulos_Factura codigo_articulo As String nombre_articulo As String precio_articulo As String End Type
Private Type Type_Datos_Factura Codigo_Factura As String Nombre_Cliente_Factura As String Fecha_Factura As String Articulos_Factura() As Type_Articulos_Factura End Type Dim factura As Type_Datos_Factura
Private Type Type_Indices Codigo_Facturas As Integer Codigo_Albaranes As Integer End Type
Dim detalle As Integer Const Prefix_Facturas = "Fact" 'Asignamos un prefijo a las facturas para cuandos se guarden Private Indices As Type_Indices
Private Sub Agregar_Articulo(nombre_articulo, codigo_articulo, precio_articulo) List1.AddItem nombre_articulo & Space(14) & codigo_articulo & Space(27) & precio_articulo factura.Articulos_Factura(UBound(factura.Articulos_Factura)).codigo_articulo = codigo_articulo factura.Articulos_Factura(UBound(factura.Articulos_Factura)).nombre_articulo = nombre_articulo factura.Articulos_Factura(UBound(factura.Articulos_Factura)).precio_articulo = precio_articulo ReDim Preserve factura.Articulos_Factura(0 To UBound(factura.Articulos_Factura) + 1) End Sub
Private Sub Crear_Factura(Codigo_Factura, Nombre_Cliente, Fecha_Factura) factura.Codigo_Factura = Codigo_Factura factura.Nombre_Cliente_Factura = Nombre_Cliente factura.Fecha_Factura = Fecha_Factura ReDim Preserve factura.Articulos_Factura(0 To 0) End Sub
Private Sub Command1_Click() 'Nueva Factura Text4.SetFocus List1.Clear Indices.Codigo_Facturas = Indices.Codigo_Facturas + 1 Label1.Caption = Indices.Codigo_Facturas 'GUARDAMOS EL CODIGO DE LA NUEVA FACTURA Open App.Path & "\Indices.txt" For Binary As #1 Put #1, , Indices Close #1 Label4.Caption = "Factura:" Text1.Text = "Pedro" Text2.Text = Date Crear_Factura Indices.Codigo_Facturas, Text1.Text, Text2.Text
'Iniciamos la nueva Factura Command5.Enabled = True Command6.Enabled = True End Sub
Private Sub Command2_Click() End End Sub
Private Sub GUARDAR_FACTURA() factura.Nombre_Cliente_Factura = Text1.Text factura.Fecha_Factura = Text2.Text
Open App.Path & "\" & Prefix_Facturas & Indices.Codigo_Facturas & ".TXT" For Binary As #1 Put #1, , factura Close #1 End Sub
Private Sub Command3_Click() ' modificar datos If List1.ListIndex < 0 Then MsgBox "Ningún elemento ha sido seleccionado", vbInformation Exit Sub End If
List1.AddItem Text4.Text & Space(14) & Text5.Text & Space(27) & Text6.Text List1.RemoveItem List1.ListIndex
GUARDAR_FACTURA
Call Command7_Click
End Sub
Private Sub Command5_Click() GUARDAR_FACTURA End Sub
Private Sub Command6_Click() ' Agregar articulo al list1 Agregar_Articulo Text4.Text, Text5.Text, Text6.Text End Sub
Private Sub Command7_Click() 'leer los datos de la factura Dim gh As String, lp As String
Text1.Text = "" Text2.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" List1.Clear On Error GoTo err:
If Len(Dir(gh)) <> 0 Then gh = App.Path & "\" & Prefix_Facturas & Text3.Text & ".TXT" Open gh For Binary Access Read Lock Read As #1 Get #1, , factura Close #1 Label1.Caption = factura.Codigo_Factura Text1.Text = factura.Nombre_Cliente_Factura Text2.Text = factura.Fecha_Factura For total_articulos = 0 To UBound(factura.Articulos_Factura) - 1 nombre_articulo = factura.Articulos_Factura(total_articulos).nombre_articulo codigo_articulo = factura.Articulos_Factura(total_articulos).codigo_articulo precio_articulo = factura.Articulos_Factura(total_articulos).precio_articulo List1.AddItem nombre_articulo & Space(12) & codigo_articulo & Space(31) & precio_articulo Next End If Exit Sub err: MsgBox "Factura no Existe", vbCritical, "ERROR" Kill gh End Sub
Private Sub Form_Load() ' leer el numero de la ultima factura Open App.Path & "\Indices.txt" For Binary As #1 Get #1, , Indices Close #1 Label1.Caption = Indices.Codigo_Facturas Command1.Enabled = True Command5.Enabled = True End Sub
Private Sub List1_Click() ' leer los datos del list1 a text4.text, text5.text, text6.text Dim gh As String Dim total_articulos As Integer If List1.ListIndex < 0 Then MsgBox "Ningún elemento ha sido seleccionado", vbInformation Exit Sub End If
gh = App.Path & "\" & Prefix_Facturas & Text3.Text & ".TXT" Open gh For Binary Access Read Lock Read As #1 Get #1, , factura For total_articulos = 0 To List1.ListIndex Text4.Text = factura.Articulos_Factura(total_articulos).nombre_articulo Text5.Text = factura.Articulos_Factura(total_articulos).codigo_articulo Text6.Text = factura.Articulos_Factura(total_articulos).precio_articulo Next Close #1
End Sub
|
|
|
25
|
Programación / Programación Visual Basic / vb consultar por fecha archivo secuencial
|
en: 21 Marzo 2015, 13:40 pm
|
Hola soy corlo tengo un problema a la hora de consultar por fecha en archivo secuencial, me lee todo el fichero, solo tiene que leer por fecha. Guardar los datos lo hace bien Este formulario es el de grabar datos lo hace perfecto.
Dim fecha As String 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() Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text2.SetFocus End Sub
Private Sub Command2_Click() Dim i As Integer 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) Text7.Text = 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 For i = 0 To List1.ListCount - 1
Print #1, List1.List(i) Next i Close #1
End Sub
Este formulario es el de consula
Dim fe As String Dim nom As String Dim apel As String Dim prod As String Dim cant As Integer Dim prec As Integer Dim tot As Integer Dim archivo As String Private Sub Command1_Click() Unload Me Form1.Show End Sub Private Sub Command2_Click() Text1.Text = "" List1.Clear Text1.SetFocus End Sub
Private Sub Command3_Click() List1.Clear List2.Clear Dim k As Integer If Text1.Text = "" Then Exit Sub fe = Format(Text1.Text, Date) Text1.Text = fe Text2.Text = nom Text3.Text = apel Text4.Text = prod Text5.Text = cant Text6.Text = prec Text7.Text = tot archivo = App.Path & "\ventas.txt" Open archivo For Input As #1 If fe = Date Then While Not EOF(1) Input #1, fe, nom, apel, prod, cant, prec, tot List1.AddItem fe & " " & nom & " " & apel & " " & prod & " " & cant & " " & prec & " " & tot
Wend End If Close #1
End Sub
Gracias
|
|
|
|
|
|
|