05-07-2018, 04:33 PM
Parceiros, estou fazendo assim para editar um registro.
Se eu clicar no botão e editar a 1ª vez, funciona OK.
Mas se eu tentar editar novamente, sem fechar o formulário
dá erro de " FireDac erro column TCONTA.TITULAR cannot be repeated in update statement".
Como se eu estivesse executando um upadete no mesmo campo duas vezes.
Segui rigorosamente o exemplo da pasta FireDac sem Dataset.
Posso postar o exemplo que fiz. Caso alguém se disponha a me ajudar.
Muito obrigado.
Se eu clicar no botão e editar a 1ª vez, funciona OK.
Mas se eu tentar editar novamente, sem fechar o formulário
dá erro de " FireDac erro column TCONTA.TITULAR cannot be repeated in update statement".
Como se eu estivesse executando um upadete no mesmo campo duas vezes.
Segui rigorosamente o exemplo da pasta FireDac sem Dataset.
Posso postar o exemplo que fiz. Caso alguém se disponha a me ajudar.
Muito obrigado.
Código:
function TfrmCadConta.Save: Boolean;
var
objConta: TCONTA;
begin
objConta := TCONTA.Create;
try
objConta := oMasterList.Items[dsQuery.DataSet.RecNo -1];
oMaster.Modify(objConta);
objConta.FK_BANCO := Integer(cbbBanco.items.objects[cbbBanco.ItemIndex]);
objConta.TITULAR := edtTitular.Text;
objConta.AGENCIA := edtNumAgencia.Text;
objConta.CONTA := edtConta.Text;
objConta.BANCO_NOME := cbbBanco.Text;
try
oMaster.Update(objConta);
Result := True;
except
Result := False;
raise Exception.Create(ErrorEdit);
end;
finally
objConta.Free;
end;