Ola Pessoal
Estou desenvolvendo um sistema de estoque so que apareceu o seguinte erro
quando executo a rotina para inserir o lançamento no caixa, quando baixo uma
conta da receber.
"Arithmetic exception, numeric overflow, or string truncation. Cannot
transliterate character between character sets"
O que pode ser isso? O erro da quando executo da no execsql na seguinte rotina
procedure TFormCtReceber.BitBtnGravarClick(Sender: TObject);
var codigo: integer;
data: tdatetime;
begin
edit3.text := datetostr(date());
With Dm.IBQConsulta do
begin
Sql.Clear;
Sql.Add ('select max(cODIGO) as codigo from itcaixa');
Open;
If fieldbyName('Codigo').IsNull
then codigo := 1
else codigo := FieldByName('Codigo').AsInteger + 1;
end;
With Dm.IBQConsulta do
begin
Sql.Clear;
Sql.Add ('Insert into itcaixa(CODIGO, data, descricao, tipomovimento,
codconta, valoritcaixa)');
Sql.Add ('values(:sequencia, :data, :descricao, :tipo, :codconta,
:valor)');
ParamByName('Sequencia').AsInteger := codigo;
ParamByName('Data').AsDate := strtodate(edit3.Text);
ParamByName('Descricao').AsString := 'Recebimento Conta Nº ' +
dbedit3.text;
ParamByName('tipo').AsString := 'R';
ParamByName('CodConta').AsInteger := strtoint(dbedit1.Text);
ParamByName('Valor').Asfloat := strtofloat(dbedit6.Text);
ExecSql;
end;
dm.IBTCtReceber.FieldByName('Situacao').AsInteger := 2;
dm.IBTCtReceber.Post;
Dm.IBTSistema.Commit;
dm.IBTCaixa.Open;
Dm.IbtItCaixa.Open;
Panel1.Enabled:=False;
AtualizaManutencao;
cliente();
Situacao();
end;
Andre R. C. Santos
[EMAIL PROTECTED]
---------------------------------
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e
concorre a mais de 500 prêmios! Participe!
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
