Fórum O que há de errado com este código??? #268645

Aparentemente está tudo normal, mas quando chega no ExecSQL ele trava.


CONST
c_SQL_AlterEncN : String = ´UPDATE ENCNORMAL SET ´+
´ CODDESLOCENC =:P_CODDESLOCENC, ´+
´ TIPODESLOC =:P_TIPODESLOC, ´+
´ PESOENC =:P_PESOENC, ´+
´ ORIGEMDESTINO =:P_ORIGEMDESTINO, ´+
´ VALORENC =:P_VALORENC ´+
´WHERE ´+
´ CODENC =:P_CODENC ´;
Begin
With DM.qrCadEncNormal do
Begin
Close;
SQL.Clear;
SQL.Add(c_SQL_AlterEncN);
ParamByName(´P_CODDESLOCENC´).AsInteger := (rgpTipDesloc.ItemIndex) + 1;
ParamByName(´P_TIPODESLOC´).AsInteger := (cbEstado.ItemIndex + 1);
ParamByName(´P_PESOENC´).AsString := cbPeso.Text;
ParamByName(´P_ORIGEMDESTINO´).AsInteger := cbOrigemDestino.ItemIndex + 1;
ParamByName(´P_VALORENC´).AsString := Copy(nedValor.Text,5,length(nedValor.Text));
ParamByName(´P_CODENC´).AsInteger := DM.qrPesquisa.FieldByName(´CODENC´).AsInteger;
ExecSQL;
end;
end;