Visual Basic Foro

Buenas tardes, vengo con una nueva solicitud de ayuda, resulta que me han pedido que re-diseñe una aplicación para gestionar Requisiciones de Compras, Solicitudes de Cotizaciones y Ordenes de Compras.

Para lo cual tengo una base de datos la cual he modificado de la siguiente forma creando las siguientes tablas:
Proveedores, ContactosProv, Productos, Grupos, Requisicion, DetalleRequisicion, OrdenCompras, DetalleOrden,Orden_Datos.

Bueno mi confusión reside en que cuando se realiza la requisicion de productos o materiales, se deben solicitud del precio de cada uno los materiales a tres proveedores diferentes y los mismos deben ser guardados en la base de datos para su posterior consulta, ahora bien resulta que no he encontrado la forma de hacer este ultimo proceso de forma efectiva, es decir, guardar los precios de los proveedores.  Dejo imagenes de la interfaz que estoy diseñando, del archivo excel que uso como base y de la relaciones de la base de datos.







Preguntas: ¿Como se debe estructurar la tabla donde se guardan los datos de los precios de los productos por proveedores?,
¿Como se debe relacionar con las otras tablas?
¿Que campos la componen?.

Espero haberme sabido explicar... gracias de antemano por su ayuda.

Probe con el nuevo codigo de Waldo y el error sigue igual.. he utilizado esta forma y me funciono..

   Dim m, n, x, y As Integer
        m = 1
        n = Msh.Rows - 1
        Do Until m > n
            For x = 1 To Msh.Rows - 1
               For y = (x) To Msh.Rows - 1
                  If (Msh.TextMatrix(x, 9) = Cond1) Then
                     Msh.RemoveItem (x)
                  End If
               Next
            Next
          m = m + 1
        Loop

Igual que el amigo Yvan le tengo idea al resume next.. estoy seguro que podria funcionar si usamos el loop hacia arriba, cuando pruebe dare la respuesta...
gracias a todos por su colaboracion.

Si existe la configuración del Mshflexgrid coloco:

Public Sub Init_Grid(Grd As mshflexgrid)       
    With Grd
        .Cols = 10
        .FixedRows = 1
        .TextArray(0) = ""
        .TextArray(1) = "Item"
        .TextArray(2) = "Especificaciones"
        .TextArray(3) = "Observaciones"
        .TextArray(4) = "Precio"
        .TextArray(5) = "IdProd"
        .TextArray(6) = "Unidad"
        .TextArray(7) = "CantSol"
        .TextArray(8) = "CantPend"
        .TextArray(9) = "IdProv"
   end with


Para utilizar el código se hace el llamado de la función.

call  Init_Grid(grdprov1)

Bueno amigo Raul creo que no te queda otra alternativa que  subclasearlo, por que yo le eche un buscaita en google y no vi nada, solo el codigo para el scroll. suerte.

Muchas gracias al amigo Acosta por tu siempre oportuna respuesta.

1.- Format no existe en el standard SQL. En todo caso en Firebird con seguridad no existe. Usa Cast o Convert para formatear, (He tratado de hacerlo con el cast pero no me  funciona, si tienes un ejemplo y no es mucho abuso......)
 o hazlo en el control.  (si en verdad que es mas fácil y factible, pero tenia la duda como hacerlo en sql)

2.- Firebird es sensible a la mayúsculas y minúsculas, ten cuidado con eso en el nombre de tus tablas.  (lo tendre en cuenta...)

3.- Tienes que cambiar PV por toda la formula que da el resultado de PV. Ciertamente el SQL se hace mas grande, ahora, si armas tus cadenas sql en varias variables alli se hace mas legible y pequeño el codigo.
ni idea de como hacer sql en varias variables sencillas...

Saludos

En verdad que vas a tener que publicar un tutorial de como utilizar el firebird... claro si te es posible..

Muchas gracias al amigo yvan por sus acertadas respuestas. en cuanto a sus preguntas sobre mis preguntas (valga la rebusnacia) aclaro.

¿A que lenguaje evolucionar teniendo como base VB6? Lo mismo, depende a donde te quieras ir....
 solo programo a nivel empresarial y como ya dije en vb6.0 entonces quería saber que lenguaje recomiendan, por que he leido !!que el delphi¡¡ !!que visual.net¡¡¡, entonces según su experiencia cual les parece mas facil de aprender...

revisa este enlace a ver.

http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/196-emular-controles-office-2007.htm.

Nos comentas tu experiencia para ver si sirve para alguien mas.

Yo creo que si se puede y de hecho utilizando el mismo código que incluí al principio.


grid.Redraw = False
For x = 1 To grid.Rows - 1
        grid.RowHeight(x) = 500
        grid.Row = x
        grid.Col = 5
        '''tipo moneda
        grid.TextMatrix(grid.Row, 5) = FormatCurrency(grid.TextMatrix(grid.Row, 5))
        '''
        ''' con solo dos decimales
'        Grid.TextMatrix(Grid.Row, 5) = Format(Grid.TextMatrix(Grid.Row, 5), "##,##0.00")
        ''''
        grid.CellForeColor = &HC0&
        grid.CellFontSize = 12
        grid.CellFontBold = True
    Next
Grid.Redraw = True


Aunque de todas todas la mejor forma es hacerlo como dice el amigo Yvan, Formateando el campo que deseas en  la Consulta Sql, de hecho lo he utilizado de esa forma y sale excelente. pongo un ejemplo..


SELECT Campo1, Campo2, Campo3, Format(Totalg,'##,##0.00')as Total, " & _
"FormatCurrency(Precio)as Preciount  From Tabla  Where Condiciones Order by Campo desc "


... Prueba y nos comenta a ver que tal sale..