[mRoman]

Hola Amigos... USO Firebird 2.0 y Delphi6

Como puedo seguir agregando texto a un campo blob EN UN PROCEDIMIENTO ALMACENADO??

Estoy haciendo esto:

Código SQL [-]
             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:

Código SQL [-]
                            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 !