Leer datos de campo tipo blob

[lusinpa]

Empezado por Dens

Buen dia mi pana yo de tanto darle resolvi el problema fue incluyendo en un bucle while el codigo del blobstrem de esta manera


Código Delphi [-]blobf:=query2.FieldByName('fx_costos') as tblobfield; while not query2.Eof do begin bs:= query1.CreateBlobStream(blobf, bmread); bs.Seek(0,0); bs.Read(tabla,sizeof(tabla)) ; totaldeuda:=totaldeuda+(strtoint(currtostr(tabla.Precios[1].TotalPrecio))*(query1.FieldByName('fcf_cuotas').Value-query1.FieldByName('fcf_cuotasaplicadas').Value)); query2.Next; end; bs.Free;


no se si fue la mejor manera pero logre ver los precios de los registros que queria, intente colocar estos datos en un dbgrid pero no pude, a la final los coloque en un datagrid y esta caminando. realmente nunca he realizado la conexion de dbisam por medio de php pero en lo que pueda ayudarte con mucho gusto lo hare. saludos viejo

Osea mi pana que dntro de ese campo hay una tabla o algo por estilo por que yo hago la consulta y le digo que me muestre ese campo y me lo muestra comoi si estuviera encriptado me muestras los caracteres epeciales
lo que se de dbisam es por que lo eh estudiado ultimamente y delphi solo se que se llama así

[Dens]

Empezado por lusinpa

Osea mi pana que dntro de ese campo hay una tabla o algo por estilo por que yo hago la consulta y le digo que me muestre ese campo y me lo muestra comoi si estuviera encriptado me muestras los caracteres epeciales
lo que se de dbisam es por que lo eh estudiado ultimamente y delphi solo se que se llama así

disculpa la pregunta, estas intentando hacer una aplicacion para a2 softway? osea para poderte responder bien, no se nisiquiera si estamos hablando exactamente de la misma tabla

[lusinpa]

Empezado por Dens

disculpa la pregunta, estas intentando hacer una aplicacion para a2 softway? osea para poderte responder bien, no se nisiquiera si estamos hablando exactamente de la misma tabla

Ok me encuentro haciendo una aplicacion web para realizando pedidos por internet , los productos son almacenados en el sistema A2 que es por donde ellos realizan la ventas y todo tipo tipo de operaciones en dicho sistema pormedio de sus vendedores o via telefonica.

Realice la conexion por medio del conector odbc lo que me parecio algo muy sencillo y estudie todas sus sintasis para poder manejarlas de la aplicacion web, no utilizo el vcl que todo el mundo nombra ya que no tengo problemas para vizualizar las tablas y tengo un manejador de base de datos que permite ver la estructuras y datos de las tablas.

Yo cree la interfaz mostre los departamentos al selecionar un departamento muestra todos los productos de dicho departamento y le agregue la opción al seleccionar el producto se esta cargando n el carrito de compras.

pero para yo poder realizar un pedido satisfactorio debo mostrar cliente que pueda vr cual es el precio y la existencia de ese producto. y bueno eh estado buscando la tabla donde se almacena los precios y la existencia o por lo menos los precio del producto, ya que alli se manejan varios precios.

buscando por internet pude analizar que los precios y la exsitencia se encuetran en la tabla Sfixed y puedo ver que tiene tres campos Blob yo pense que tiene que estar en la el campo FX_COSTOS y viendo tus comentrio pude ver que estaba en lo correcto.

bueno que te parece estoy parado por no poder simplemente leer el los precio y la existencia es mi primera interaccion con esta base de datos.

Si me puedes ayudar en algo te lo agradeceria de pana y lo que necesites de programacion web enviame un correo que yo con gusto te resolvere.

[Dens]

Empezado por lusinpa

Ok me encuentro haciendo una aplicacion web para realizando pedidos por internet , los productos son almacenados en el sistema A2 que es por donde ellos realizan la ventas y todo tipo tipo de operaciones en dicho sistema pormedio de sus vendedores o via telefonica.

Realice la conexion por medio del conector odbc lo que me parecio algo muy sencillo y estudie todas sus sintasis para poder manejarlas de la aplicacion web, no utilizo el vcl que todo el mundo nombra ya que no tengo problemas para vizualizar las tablas y tengo un manejador de base de datos que permite ver la estructuras y datos de las tablas.

Yo cree la interfaz mostre los departamentos al selecionar un departamento muestra todos los productos de dicho departamento y le agregue la opción al seleccionar el producto se esta cargando n el carrito de compras.

pero para yo poder realizar un pedido satisfactorio debo mostrar cliente que pueda vr cual es el precio y la existencia de ese producto. y bueno eh estado buscando la tabla donde se almacena los precios y la existencia o por lo menos los precio del producto, ya que alli se manejan varios precios.

buscando por internet pude analizar que los precios y la exsitencia se encuetran en la tabla Sfixed y puedo ver que tiene tres campos Blob yo pense que tiene que estar en la el campo FX_COSTOS y viendo tus comentrio pude ver que estaba en lo correcto.

bueno que te parece estoy parado por no poder simplemente leer el los precio y la existencia es mi primera interaccion con esta base de datos.

Si me puedes ayudar en algo te lo agradeceria de pana y lo que necesites de programacion web enviame un correo que yo con gusto te resolvere.

Hola viejo, bueno parami esto ha sido todo un dolor de cabeza por que tampoco acostumbro a trabajar con este tipo de base de datos, pero en fin.

contestando tus dudas, efectivamente en el campo fx_costos estan los precios, de las existencias no tengo ni idea por que en este proyecto no necesite meterme con existencias ya que estoy trabajando con puro servicios.



//Registro para almacenar los costos y precios de inventario
//en un BlobField;
RegUnPrecio = Record
PorcUtil ,
PorcUtilEx : Boolean;
Utilidad ,
UtilidadEx ,
SinImpuesto ,
MtoImpuesto1 ,
MtoImpuesto2 ,
TotalPrecio ,
TotalPrecioEx: Currency;
TipoRound : Byte;
end;

RegDePrecios = Array[1..6] of RegUnPrecio;

//Este registro se guarda en un campo Blob llamado FX_COSTOS
//del Archivo SFixed.Dat
RegCostos = Record
CodeCompra : String[50]; //Utilizado en el modulo de compras y el generador de reportes solo ejecucion
VImpuesto1 ,
VImpuesto2 : Boolean; //Impuestos Activados
CostoAnteriorBs ,
CostoAnteriorEx ,
CostoActualBs ,
CostoActualEx ,
CostoPromedioBs ,
CostoPromedioEx ,
MImpuesto1 ,
MImpuesto2 : Currency;
PorcentImp1 ,
Exento1 ,
PorcentImp2 ,
Exento2 : Boolean;
FechaVencimiento: TDateTime; //Lo uso en el modulo de compras para incluir el vencimiento
NumeroDeLote : String[42]; //y el numero de lote de los productos con costos por lote
CostoReferencia : Double; //Costo de referencia para aumentar los precios
Precios : RegDePrecios;
end;


//A CONTINUACION UN EJEMPLO DE COMO LEER UN CAMPO BLOB QUE CONTIENE COSTOS Y PRECIOS

if FX_FIXED.FindKey('B',XXXXX); Codigo del producto
if OkR then
begin
SourceField :=FX_FIXED.FindField('FX_COSTOS');
Try
BlobStreamData :=TDBISAMBlobStream.Create(TBlobField(SourceField),bmRead);
BlobStreamData.Seek(0,0);
BlobStreamData.Read(CostosProducto,SizeOf(CostosProducto)); //CostosProducto : RegCostos
Finally
BlobStreamData.Free;
end;
end;


esta es la estructura de la tabla fixed para delphi, pero supongo que para php tendra el mismo principio.
la idea es convertir el campo del registro que llamaste en un stream
para que puedas acceder a los multiples contenidos dentro de este campo, es como un campo matricia, (OJO yo te estoy diciendo lo que yo entendi, hace 15 horas me estaba partiendo el coco mendandole a todo el mundo).

SourceField :=FX_FIXED.FindField('FX_COSTOS'); //este es el campo del registro que llamamos al hacer la consulta

// aqui utilizamos blobstream.create para convertir en stream el campo BlobStreamData:=TDBISAMBlobStream.Create(TBlobField(SourceField),bmRead);
BlobStreamData.Seek(0,0);
BlobStreamData.Read(CostosProducto,SizeOf(CostosProducto));aqui le decimos que lea el record de arriba que se llama regcostors //CostosProducto : RegCostos


costosproducto es una variable tipo regcostos
regcostos es el record donde se van a almacenar los "campos" que estas sacando de esecampo (fx_costos) el cual contiene un campo llamado precios que es el que te interesa,este campo es de tipo regdeprecios que es un array que contiene los 6 precios, 6 costos etc

RegDePrecios = Array[1..6] of RegUnPrecio;

corrijanme si me equivoco por favor.

para sacar el precio debes acceder a la variable costosproducto.precios[1].totalprecio o

PorcUtil ,
PorcUtilEx : Boolean;
Utilidad ,
UtilidadEx ,
SinImpuesto ,
MtoImpuesto1 ,
MtoImpuesto2 ,
TotalPrecio ,
TotalPrecioEx: Currency; cualquiera de estos valores que estaran dentro del array precio

RegDePrecios = Array[1..6] of RegUnPrecio;
Precios : RegDePrecios;


en sintesis hermano esa esla estructura dela tabla que me dio el personal de soporte de a2, a mi me funciono en delphi pero tuve que sentarme a analizarla bien , explora esecodigo y trata de llevarlo a php investigando cual es la funcion para hacer blobstream. y bueno lo de los records no se como sera en php.

un saludo y espero que te sirva de algo, cualquiercosa escribe yo ando conectado hoy todo el dia por que estoy matando este sistemita.

[lusinpa]

Bueno pana gracias por la información ahora me toca matarme el casco buscando funciones que hagan el blobstresm y el record te agradesco la informacion y recuerda cualquier cosa que desees resolver de entorno web no dudes en escribirme estoy en deudado contigo.

[Dens]

Empezado por lusinpa

Bueno pana gracias por la información ahora me toca matarme el casco buscando funciones que hagan el blobstresm y el record te agradesco la informacion y recuerda cualquier cosa que desees resolver de entorno web no dudes en escribirme estoy en deudado contigo.

tranquilo hermano no hay deuda, ayuda a otro y listo viejo, yo tambien desarrollo web asi que cualquier duda por ese lado pega un grito tambien y bueno igual yo te consulto mis dudas, saludos. oye eso si porfa cuando resuelvas tu duda publica la solucion viejo porfa... saludos

[lusinpa]

Que tal dens como te ha ido buenio te cuento que no pude realizar las consultas a los precios de la tablas del sistema A2 desde php tuve que realiarlo desde delphi quisiera saber si me pudes ayudar con respectos a los costos y precios
ok perfecto estabas en todo lo correcto pero tengo el detalle de que no consigo la existencia de los productos sera que se encuentran en una tabla especific o estan en campo blob y si estan en un campo blob si me puedes facilitar la estructuras si colocas un ejemplo no problema ya que soy nuevo en el manejo de delphi