mRoman
10-02-2014, 06:42:22
Hola Amigos... USO Firebird 2.0 y Delphi6
Como puedo seguir agregando texto a un campo blob EN UN PROCEDIMIENTO ALMACENADO??
Estoy haciendo esto:
for select b.consec,
b.cantidad_surtida,
b.unidad_producto,
c.descripcion,
substr(c.cve_producto,8,11) as codificacion
from registro_e_s_detalle b,
producto c
where b.folio=:vfolio
and b.cve_producto=c.cve_producto
order by b.consec
into :vconsec,
:vcantidad,
:vunidad,
:vdescripcion,
:vcodificacion do
begin
if (vConsec=1) then
begin
vdetalle=String2Blob(lpad(:vcantidad,5,' ')||' '||
lpad(:vunidad,10,' ')||' '||
lpad(:vdescripcion,60,' ')||' '||
lpad(:vcodificacion,10,' ')||ascii_char(13));
end else
begin
vdetalle=String2Blob(:vdetalle)||
string2blob(lpad(:vcantidad,5,' ')||' '||
lpad(:vunidad,10,' ')||' '||
lpad(:vdescripcion,60,' ')||' '||
lpad(:vcodificacion,10,' ')||ascii_char(13));
end
end
insert into REPORTE_PASO_E_S(MOVIMIENTO_E_S,
FOLIO ,
FECHA_FOLIO ,
NOMBRE_RECIBE ,
RECIBI_DE ,
ID_DOCUMENTO ,
NOMBRE_AUTORIZO,
NOMBRE_SOLICITA,
NOMBRE_ENTREGADO,
ID_CONCEPTO_E_S,
OBSERVACIONES,
DETALLE,
DOCUMENTO )
values (:iformato,
:vfolio,
:vfecha_movto,
:vnombre_recibe,
:vrecibi_de,
:vid_documento,
:vnombre_autorizo,
:vnombre_solicita,
:vnombre_entregado,
:vid_concepto_es,
:vobservaciones,
:vdetalle,
:vdocumento);
Como puedo estar agregando (por ejemplo) el detalle de una factura en campo blob???....estoy tratando de hacer algo como esto:
contador=contador+1..
Firebird no marca error en esto:
vdetalle=String2Blob(:vdetalle)||
string2blob(lpad(:vcantidad,5,' ')||' '||
lpad(:vunidad,10,' ')||' '||
lpad(:vdescripcion,60,' ')||' '||
lpad(:vcodificacion,10,' ')||ascii_char(13));
Pero no hace nada....
Me pudieran ayudar....GRACIAS !
Como puedo seguir agregando texto a un campo blob EN UN PROCEDIMIENTO ALMACENADO??
Estoy haciendo esto:
for select b.consec,
b.cantidad_surtida,
b.unidad_producto,
c.descripcion,
substr(c.cve_producto,8,11) as codificacion
from registro_e_s_detalle b,
producto c
where b.folio=:vfolio
and b.cve_producto=c.cve_producto
order by b.consec
into :vconsec,
:vcantidad,
:vunidad,
:vdescripcion,
:vcodificacion do
begin
if (vConsec=1) then
begin
vdetalle=String2Blob(lpad(:vcantidad,5,' ')||' '||
lpad(:vunidad,10,' ')||' '||
lpad(:vdescripcion,60,' ')||' '||
lpad(:vcodificacion,10,' ')||ascii_char(13));
end else
begin
vdetalle=String2Blob(:vdetalle)||
string2blob(lpad(:vcantidad,5,' ')||' '||
lpad(:vunidad,10,' ')||' '||
lpad(:vdescripcion,60,' ')||' '||
lpad(:vcodificacion,10,' ')||ascii_char(13));
end
end
insert into REPORTE_PASO_E_S(MOVIMIENTO_E_S,
FOLIO ,
FECHA_FOLIO ,
NOMBRE_RECIBE ,
RECIBI_DE ,
ID_DOCUMENTO ,
NOMBRE_AUTORIZO,
NOMBRE_SOLICITA,
NOMBRE_ENTREGADO,
ID_CONCEPTO_E_S,
OBSERVACIONES,
DETALLE,
DOCUMENTO )
values (:iformato,
:vfolio,
:vfecha_movto,
:vnombre_recibe,
:vrecibi_de,
:vid_documento,
:vnombre_autorizo,
:vnombre_solicita,
:vnombre_entregado,
:vid_concepto_es,
:vobservaciones,
:vdetalle,
:vdocumento);
Como puedo estar agregando (por ejemplo) el detalle de una factura en campo blob???....estoy tratando de hacer algo como esto:
contador=contador+1..
Firebird no marca error en esto:
vdetalle=String2Blob(:vdetalle)||
string2blob(lpad(:vcantidad,5,' ')||' '||
lpad(:vunidad,10,' ')||' '||
lpad(:vdescripcion,60,' ')||' '||
lpad(:vcodificacion,10,' ')||ascii_char(13));
Pero no hace nada....
Me pudieran ayudar....GRACIAS !