Mostrar Registros el mas antiguo - VB-MUNDO

El_Principiante · #1 (**permalink**) 08-07-2008, 18:42:30

Hola que tal, Alguien de ustedes sabe como resolver un problema que tengo. Trabajo con ADODB, tengo visual basic 6.0 y una base de datos en Access 2003 mi Problema:

1.- El usuario hace algunas entradas de Articulos, estos articulos no siempre tiene el mismo precio por lo tanto cada vez que se hace una entrada tambien se ingresa el costo del articulo. "Las entradas no son el problema"

Entradas:

Código:

Codigo Entrada     Descripcion Articulo    Cantidad  P.Unitario   Total

00001-08 	"ABRAZADERA SIN FIN DE 1"	 25	$125.00	 $3,125.00
00002-08	"ABRAZADERA SIN FIN DE 1"  	458	 $25.00	$11,450.00
00003-08  	"ABRAZADERA SIN FIN DE 1"	 12	$258.00	 $3,096.00

Aqui esta el problema
2.- Resulta que el usuario ahora tiene que dar de baja algunos articulos por Ejemplo 90 entonces tiene que tomar los primeros registros que fueron 25 multiplicarlo por el precio unitario que son 125.00 y lo que resta tomarlos de los 458 articulos que se ingresaron y multiplicarlos por 25.00

No se si quedo claro si no ya me contaran. se ve un poco dificil verda. si no se puede que alternativa puedo usar para poder hacer esta operación.

J.M.Movilla · #2 (**permalink**) 08-07-2008, 21:26:37

Código:

Dim nBaja As Integer
Dim nResto As Integer
Dim nTotal As Double
Dim cDescrip As String

nBaja = Text1.Text  ' Cantidad que tienes que dar de baja
nResto = 0
nTotal = 0
cDescrip = "ABRAZADERA SIN FIN DE 1"

rs.Open "Select Cantidad, P_Unitario From TuTabla Where [Descripcion Articulo] = '" & cDescrip & "' Order by  Codigo Entrada", TuConexion....
Do While Not rs.Eof
    If rs.Fields("Cantidad") + nResto >= nBaja Then Exit Do
    nTotal = nTotal + rs.Fields("Cantidad") * rs.Fields("P_Unitario")
    nResto = nResto + rs.Fields("Cantidad")
    rs.MoveNext
Loop
nResto = nBaja - nResto
nTotal = nTotal + nResto * rs.Fields("P_Unitario")

Por supuesto que tienes que poner los nombres que se correspondan con tus datos. Probablemente estés usando el "Id" del producto en lugar de su descripción para realizar el filtro con más seguridad... Y por supuesto también que habrás de arreglar posibles errores que haya cometido yo al escribir este código al vuelo...

El_Principiante · #3 (**permalink**) 08-07-2008, 21:44:26

Gracias, compañero voy a utilizar tu codigo y ya te cuento como me fue. por lo pronto te agradezco.

El_Principiante · #4 (**permalink**) 09-07-2008, 20:25:36

Muchisisisisisisisisimas Gracias J.M.Movilla tu codigo es excelente me sirvio de mucho lo adapte al mio y todo funciona perfectamente.