Visual Basic - ¿QUE CONTROL USAR?

Life is soft - evento anual de software empresarial
   
Vista:

¿QUE CONTROL USAR?

Publicado por Patricia (5 intervenciones) el 16/07/2009 21:48:15
Hola ...necesito hacer un formulario (tipo factura) donde realice una venta, pero que se pueda ingresar varios articulos y solo tenga que dar clic en guardar una vez. Gracias, por favor es Urgente
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

RE:¿QUE CONTROL USAR?

Publicado por juan carlos (14 intervenciones) el 17/07/2009 07:52:52
Aqui esta la posible solucion a tu problema, tengo un zip con el cofigo fuente con su forma, pero no me se tu email para mandartelo.

' constantes para asemejar los codigos de los articulos
Const a = 10
Const b = 20
Const c = 30
Const d = 40
Const e = 50

Rem constantes para asemejar los articulos
Const g = "camiza"
Const h = "pantalon"
Const i = "zapatos"
Const j = "short"
Const k = "corbata"

Rem para almacenar el valor de loa articulos
Dim f As Double

Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
Rem proceso del conteo de los articulos
contar
Rem meter todo en el archivo de texto
guardar
Case 1
End
End Select
End Sub

Sub guardar()
Rem saltar de linea
l = Chr(13) & Chr(10)

Rem meter al archivo de texto
Open "c:pruebas.txt" For Output As #1
Print #1, "Nombre: " & Text1(0)
Print #1, "Direccion: " & Text1(1)
Print #1, "Telefono: " & Text1(2)
Print #1, ""
Print #1, "Articulo: " & g & " = $" & a & " pesos"
Print #1, "Articulo: " & h & " = $" & b & " pesos"
Print #1, "Articulo: " & i & " = $" & c & " pesos"
Print #1, "Articulo: " & j & " = $" & d & " pesos"
Print #1, "Articulo: " & k & " = $" & e & " pesos"
Print #1, "_________________"
Print #1, "total = " & f & " pesos"
Close #1
End Sub

Sub contar()
Rem asociar las constantes con los textos de los codigos
Text1(3) = a
Text1(4) = b
Text1(5) = c
Text1(6) = d
Text1(7) = e

Rem sumar los articulos
f = a + b + c + d + e

Rem poner el valor de los articulos
Label9.Caption = f
List1.AddItem "Nombre: " & Text1(0)
List1.AddItem "Direccion: " & Text1(1)
List1.AddItem "Telefono: " & Text1(2)
List1.AddItem "Articulo: " & g & " = $" & a & " pesos"
List1.AddItem "Articulo: " & h & " = $" & b & " pesos"
List1.AddItem "Articulo: " & i & " = $" & c & " pesos"
List1.AddItem "Articulo: " & j & " = $" & d & " pesos"
List1.AddItem "Articulo: " & k & " = $" & e & " pesos"
List1.AddItem "________________________"
List1.AddItem "total = " & f
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

RE:¿QUE CONTROL USAR?

Publicado por JaImE GuErReRo (361 intervenciones) el 17/07/2009 16:40:33
que control usar, pues varios

primero label para las etiquetas de la cabecera y textboxt para ingresar los valores de la cabecera. esto valores serian: numero factura, fecha, ruc cliente, nombre cliente, direccion cliente, importe total, impuesto total, base imponible total. si hay mas datos para la cabecera los pones

para el detalle pones una grilla, al costado tres botones nuevo, modificar, eliminar.

ahora para llenar el detalle te creas un formulario con los datos que necesitas registrar en el detalle. este form es invocado por los botones que estan al costado de la grilla de la factura

para grabar, debes manejar transacciones, para que si se cae la grabacion el el primer item del detalle no grabe nada.

el codigo seria

insert into cabecera ().......

for i=0 to detalle.count
insert into detalle ().........
next i
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