Fórum Update com parametro #325385

update ENTRADA set FLAG = ´P´
where (BANCO_DES=:BANCO_DES) and 
GENCIA_DES=:AGENCIA_DES) and
(CONTA_DES like :CONTA_DES) and 
NUMERO_DOC=:NUMERO_DOC) and
(VALOR like :VALOR)

  AssignFile( arqProc, (PATH_SISTEMA+´CAS.TXT´) );
  Reset( arqProc );
  Readln( arqProc, linhaProc );
  try
  while not Eof (arqProc) do
  begin
    if ( copy( linhaProc, 01, 01)  = ´E´ ) and ( copy( linhaProc, 54, 02 ) <> ´41´) then
    begin
      with DMProcessados.qryExecutaSql do
      begin
        Parameters.ParamByName(´BANCO_DES´).Value := copy(linhaProc, 42, 03);
        Parameters.ParamByName(´AGENCIA_DES´).Value := copy(linhaProc, 45, 04);
        Parameters.ParamByName(´CONTA_DES´).Value := #39+´¬´+copy(linhaProc, 21, 10)+´¬´+39;
        Parameters.ParamByName(´NUMERO_DOC´).Value := copy(linhaProc, 35, 06);
        Parameters.ParamByName(´VALOR´).Value := 39+´¬´+copy(linhaProc, 08, 12)+´¬´+39;
        ExecSQL;
        Inc( iContProcesso );
        lblCont_Mensagem.Caption := IntToStr( iContProcesso );
        Application.ProcessMessages;
      end;
    end; // if
    Readln( arqProc, linhaProc );
  end; // while
    DMProcessados.qryExecutaSql.Close;
  finally
    CloseFile( arqProc );
  end; // try

Trying to store a string of length 14 into a field that can only contain 12

update ENTRADA set FLAG = ´P´