Visual Basic - Consulta sobre colecciones

Life is soft - evento anual de software empresarial
   
Vista:

Consulta sobre colecciones

Publicado por visualman2001 (1 intervención) el 01/07/2008 15:28:46
Consulta gente del mundillo de la programación: yo tengo una clase definida por mi y le quiero agregar una Colección (específicamente la clase hace referencia a la cabecera de factura y quiero agregar una colección de tipo clase detalle_factura que contenga tantos item del tipo detalle_factura como items contenga la factura).

¿ Como puedo hacer eso en visual basic 6 ?

Si alguien tiene la respuesta o más o menos un hilo de donde pueda ir buscando por favor si no es mucho molestia de tirarme dicho hilito así averiguo algo,porque todos los ejemplos que he averiguado en la red hacen referencia a .net que es mucho más fácil realizarlo, pero necesito hacerlo en 6.0, ya que la aplicación que tengo que modificar está hecha en ese lenguaje y o quiero morir en usar un arrar.

Desde ya, 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

RE:Consulta sobre colecciones

Publicado por Juan Urrutia (16 intervenciones) el 01/07/2008 18:16:02
hola

aver una idea

supon que tu clsDetalle tiene solo las propiedades del detalle de factura

Public lngRenglon ...
Public dblImporte ...
Public dblIva ...
Public dblDescto ...

entonces

tu clase clsEncabezado tendria lo siguiente

'declaras variables para almacenar los datos del encabezado

Public strNoFactura ....
Public strIdCliente ...
Public dtFechaFact ...

Public colDetalle as New Collection

'haces una funcion para obtener los datos de tu factura
Public sub GetFactura ()
'Select * from Factura where IdFactura = strNoFactura
....
' se me ocurre que dentro de esta funcion crees otra que te jale el detalle
GetDetalleFactura ()
....
End Function

Private Sub GetDetalleFactura ()
'no se como estes haciendo tu conexion asi que supondre que no estas en 3 capas y que estas manejando las conexiones en esta misma clase

' entonces lees el detalle de tu factura (mandas llamar un SELECT para obtener un RecordSet)

'ahora supongamos que si traes datos en el RecordSet
Dim auxclsDetalle as clsDetalle
Do while not rsRecordSet.EOF
set auxclsDetalle as new clsDetalle
auxclsDetalle.dblImporte = rsRecordSet!Importe
auxclsDetalle.dblIva = rsRecordSet!Iva
auxclsDetalle.dblDescto = rsRecordSet!Descuento
auxclsDetale.lngRenglon = rsRecordSet!Renglon
colDetalle.Add auxclsDetalle.lngRenglon, auxclsDetalle
rsRecordSet.MoveNext
Loop

End Sub

---------------------------------------------------------------------------
dentro de tu programa principal

Dim Factura as new clsfactura

Private Sub cmbGetFactura_Click ()
Factura.strNoFactura = NumeroDeFacturaQueDeseas
Factura.GetFactura ()
'ahora tendras tu Factura en Factura
' y el detalle de esa factura en Factura.colDetalle
End Sub

espero que te sirva...eso se me ocurrio a mi

saludos
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