ACENTO FUNCIONA em INSERT e nao funciona em STORED...

[b:66fda10396]arithm :evil: etic exception, numeric overflow, or string truncation
Cannot transliterate character between character sets[/b:66fda10396].


ACENTO FUNCIONA em INSERT e nao funciona em STORED...

alo amigos...

tenho um problema..
tipo,

numa stored procedure... nao funciona um insert... com um campo
varchar (acentuado)
estou usando o Charset: WIN1252
COLLATE: PXW_INTL850
no BDE.... LANGDRIVER: Borland PTG Latin-1


ja no INSERT INTO <TABELA> funciona normalmente...
pq??? alguem ja teve esse problema ?
por favor preciso de ajuda..

ah... isso é só na tabela VENDAS, pq nas outras ja testei e correu tudo certo.

segue a procedure:

CREATE PROCEDURE PRC_VENDAS (
SEQUENCIA INTEGER,
NUMERO INTEGER,
DATA DATE,
CODCLI INTEGER,
CLIENTE VARCHAR(50),
VALORUNITARIO DECIMAL(12,2),
VALORTOTAL DECIMAL(12,2),
VALORCUSTO DECIMAL(12,2),
VALORORIGINAL DECIMAL(12,2),
VALORMINIMO DECIMAL(12,2),
LUCRO FLOAT,
ICMS FLOAT,
VENDEDOR VARCHAR(15),
CODPRODUTO VARCHAR(13),
PRODUTO VARCHAR(50),
QTD INTEGER,
NAC VARCHAR(1),
APLICACAO VARCHAR(140),
APLICACAO2 VARCHAR(50),
LOC VARCHAR(10),
TIPO VARCHAR(1),
MECANICO VARCHAR(15),
DATA_FECHAMENTO DATE,
TIPOX CHAR(1))
AS
BEGIN
IF (:TIPOX = ´I´) THEN
BEGIN
INSERT INTO Vendas (Numero,Data,Codcli,Cliente,ValorUnitario,ValorTotal,ValorCusto,ValorOriginal,ValorMinimo,Lucro,ICMS,Vendedor,CodProduto,Produto,Qtd,Nac,Aplicacao,Aplicacao2,Loc,Tipo,Mecanico,Data_Fechamento) VALUES (:Numero,:Data,:Codcli,:Cliente,:ValorUnitario,:ValorTotal,:ValorCusto,:ValorOriginal,:ValorMinimo,:Lucro,:ICMS,:Vendedor,:CodProduto,:Produto,:Qtd,:Nac,:Aplicacao,:Aplicacao2,:Loc,:Tipo,:Mecanico,:Data_Fechamento);
END
IF (:TIPOX = ´A´) THEN
BEGIN
UPDATE Vendas SET Numero = :Numero,Data = :Data,Codcli = :Codcli,Cliente = :Cliente,ValorUnitario = :ValorUnitario,ValorTotal = :ValorTotal,ValorCusto = :ValorCusto,ValorOriginal = :ValorOriginal,ValorMinimo = :ValorMinimo,Lucro = :Lucro,ICMS = :ICMS,Vendedor = :Vendedor,CodProduto = :CodProduto,Produto = :Produto,Qtd = :Qtd,Nac = :Nac,Aplicacao = :Aplicacao,Aplicacao2 = :Aplicacao2,Loc = :Loc,Tipo = :Tipo,Mecanico = :Mecanico,Data_Fechamento = :Data_Fechamento WHERE numero = :numero;
END
IF (:TIPOX = ´D´) THEN
BEGIN
DELETE FROM Vendas WHERE numero = :numero;
END
END


se alguem puder me ajudar
desde ja agradeço muito
té +[b:66fda10396][/b:66fda10396]