[LEVV]

HA OK.. gracias.. no sabia como

ojala que asi quede OK...

--------- LA TABLA --------------

Código SQL [-]
CREATE TABLE CLIENTES_CREDITO_LOG
(
   CODCLI  VARCHAR(20) NOT NULL,
   ITEM INTEGER NOT NULL,
   CREDITO  INTEGER,
   FCREAC  TIMESTAMP,
   USUARI  VARCHAR(10),
   OBSERVA BLOB SUB_TYPE TEXT SEGMENT SIZE 80,
   CONSTRAINT PK_CLIENTES_CREDITO_LOG PRIMARY KEY (CODCLI, ITEM)
);

---------EL PROCEDURE ------------

Código SQL [-]
CREATE PROCEDURE "SP000_GRABAR_CLIENTES_CREDITO_LOG"
(
  WCODCLI  VARCHAR(20),
  WITEM INTEGER,
  WCREDITO  INTEGER,
  WUSUARI  VARCHAR(10),
  WOBSERVA BLOB SUB_TYPE TEXT SEGMENT SIZE 80
)
 AS
  DECLARE VARIABLE WX INTEGER;
 BEGIN
   WX=0;
   IF (WItem is Not Null) Then
     Select Count(0) From Clientes_Credito_Log Where (CodCli=:WCodCli) And (Item=:WITEM) Into :WX;
   IF ((WX is Null)or(WX=0)) Then
     Insert Into Clientes_Credito_Log ( CodCli, Item, Credito, Usuari, Observa)
                                        Values(:WCodCli,:WITEM,:WCredito,:WUsuari,:WOBSERVA);
    Else
     Update Clientes_Credito_Log Set Credito =:WCredito,
                                                  Usuari =:WUsuari,
                                                  Observa =:WObserva
        Where CodCli=:WCodCli And Item=:WITEM;
 END;

/*
-------- Ejemplos de Uso ------


-- Funciona Bien ---

Código SQL [-]
Execute Procedure SP000_GRABAR_CLIENTES_CREDITO_LOG('201112312',0,1, 'MAN' ,NULL);
Execute Procedure SP000_GRABAR_CLIENTES_CREDITO_LOG(New.CodCli,-1,0, New.Usuari,NULL);
Execute Procedure SP000_GRABAR_CLIENTES_CREDITO_LOG(New.CodCli,-1,0, New.Usuari,NULL);

-- Funciona MAL ---

Código SQL [-]
Execute Procedure SP000_GRABAR_CLIENTES_CREDITO_LOG('20516612143',-1,0,'MAN',' Sin Comentarios...');

*/


Porfa.. ¿alguna solucion para que la variable BLOB reciba el texto...??

GRacias