Ayuda con Array por favor

[joelkarr]

Bueno, dentro de esto no engo problemas en redimensionar u montar el ultimo registro, pero claro pierdo los anteriores , ahora cuando uso el preserve me da este "error:No coinciden los tipos"

y de verdad he hecho todo lo posible y no le veo la vuelta, alguien que quizas lo pueda ver , me podria indicar por favor



if Session("Pedidos")<>1 then
Response.Write("Solo pedidos <> 1")
dim Factura()
n=0
redim Factura(n,4)
Session("Pedidos")=1
Session("Cont")=0
Factura(n,0)=date
Factura(n,1)=Registros.fields("Nomprod").value
Factura(n,2)=CantPV
Factura(n,3)=Registros.fields("PrecioUni").value
Factura(n,4)=Registros.fields("FotProd").value
end if
if Session("Pedidos")=1 then
Factura=Session("Factura")

Num2=Session("Cont")
n=Num2+1
Response.Write(n)
Redim Factura(n,4)
Factura(n,0)=date
Factura(n,1)=Registros.fields("Nomprod").value
Factura(n,2)=CantPV
Factura(n,3)=Registros.fields("PrecioUni").value
Factura(n,4)=Registros.fields("FotProd").value
Response.Write(Factura(1,1))
Session("Cont")=n
Response.Write(ubound(Factura))


end if

[Shiryu_Libra]

bueno, cuando creas tus array multidimensionales, solo se puede modificar la ultima parte de estos, utilizando

redim preserve Factura(n,4)

el preserve, mantendra los datos, aun cuando le escribas en las demas secciones

referencia

[joelkarr]

shyru gracias, pero el problema deriva cuando uso el preserve..

Lo que quiero hacer es esto , la persona escoje el productos a comprar y va a la cesta de compra y lo deja alli , ya el array asi se salga de esa area lo monto en una variable de session y la dejo en memoria, luego va y escoje otros y va a la cesta y llamo a la varible de session que es este array al cual debo redimensionar por que le añadire uno nuevo , entonces estoy modificando el ultimo, ok hasta alli voy bien y me genera el nuevo array con el nuevo registros , el problema esta que si no uso el "preserve", me borra los anteriores al array , es decir me lo redimensiona pero sin los elemento que tenia, y eso esta muy claro, ahora cuando uso el preserve es donde me genra el error y no logro comprender, ahora el array esta en un condicional , que significa , que el primer producto genera el array y los demas , generar los el redim del array y nuevos datos...

bueno gracias de todas formas

[Shiryu_Libra]

lo que pasa es que realizas bien el procedimiento,

el problema es que guardas la variable y cuando agregas otro valor mas a la variable session le sobreescribes el nuevo valor, pero no sacas primero el anterior, redimensionarlo y despues volverlo a guardar

me captas la idea???

[joelkarr]

creo que lo acabo de ver despues te digo, gracias, es verdad en el primer if es el problema..

[joelkarr]

if Session("Pedidos")<>1 then
dim Factura()
n=0
redim Factura(n,4)
Session("Pedidos")=1 'Aqui creo la variable de Pedido
Session("Cont")=0 'Aqui creo la variable de del Contador para el array
Factura(n,0)=date
Factura(n,1)=Registros.fields("Nomprod").value
Factura(n,2)=CantPV
Factura(n,3)=Registros.fields("PrecioUni").value
Factura(n,4)=Registros.fields("FotProd").value
Session("Factura")=Factura 'Aqui guardo la variable de Factura el array

elseif Session("Pedidos")=1 then
Factura=Session("Factura") 'Aqui la traigo otra vez de memoria
Num2=Session("Cont")
n=Num2+1
Redim preserve Factura(n,4) y aqui esta el problema el preserve
Factura(n,0)=date
Factura(n,1)=Registros.fields("Nomprod").value
Factura(n,2)=CantPV
Factura(n,3)=Registros.fields("PrecioUni").value
Factura(n,4)=Registros.fields("FotProd").value
Response.Write(Factura(1,1))
Session("Cont")=n

end if

Ya me duele la cabeza llevo dos dias en esto y nada , le he dado la vuelta mil veces de mil maneras y ya no me acuerdo por donde empece, claro todo esto para no genrar relantamioento en la BD...

[Shiryu_Libra]

no lo has intentado directamente en una variable de session

Extraccion DesarrolloWeb
inicializar la lista de productos..... OJO en el GLOBAL.ASA

sub session_onStart()
session("num_prod")=0
end sub

introducir un valor a la cesta de compras

sub introduce_producto(id,texto,precio)
session("num_prod") = session("num_prod") + 1
session("producto" & session("num_prod")) = id
session("nombre" & session("num_prod")) = texto
session("precio" & session("num_prod")) = precio
end sub

Borrar un ITEM

sub borra_producto(i)
session("producto" & i) = 0
end sub

MOSTRAR LA CESTA

sub muestra_carrito()
precio_total=0
if session("num_prod")=0 then
response.write "el carrito está vacío"
else
for i=1 to session("num_prod")
response.write "linea de producto " & i & "<br>"
if session("producto" & i) <> 0 then
response.write "Identificador de producto " & session("producto" & i) & "<br>"
response.write "Nombre de producto " & session("nombre" & i) & "&l5;br>"
response.write "Precio de producto " & session("precio" & i) & "<br>"
response.write "<a href=""borrar_producto.asp?linea=" & i & """>Borrar producto</a>"
precio_total = precio_total + session("precio" & i)
else
response.write "Este producto ha sido borrado del carrito"
end if
response.write "<p>"
next
response.write "El precio total del producto es " & precio_total & "<p>"
end if
end sub

implementacion del carrito <<--- DESARROLLOWEB

[joelkarr]

creo que por alli es mas facil, pero bueno el reto era ver que es lo que me pasa, con el array, gracias amigo

[u_goldman]

No lei todo el post, solo lo escaneé, pero quizás se debe a que estás intentando redimensionar el elemento interno del array -las filas- VB solo permite redimensionar su elemento externo.

Saludos

[joelkarr]

El problema del global.asa, que cada vez que alguien entra a la pagina se generaran las variables, acuerdate que el global.asa, debe estar en la direccion primaria donde esta el default.asp o index.asp,

por este motivo me parecio mas prudente hacerlo por esta forma ,, pero bueno ya encontraremos el problema, gracias a todos sigamos revisando a ver..

En especial gracias a shyray por tomarte tanto la molestia de verdad que personas asi necesitan el mundo , de todos modos voy a ver a quien puedo ayudar tambien...

sigo probando... si lo logro se los comunico por aqui, pero tambien si lo logrann avisenmeeee...