26-05-2019, 12:00 AM
Já tive este problema antes, atualizei os fontes e parou de acontecer mas depois da instalação com componente não sei se mudou algo nos fontes mas o erro ao excluir esta ocorrendo novamente. porém atualize hoje os fontes e o erro persiste (Na Verdade não da erro apenas cai no methodo que esta comentado o código) não consigo ver onde esta o erro e porque ele esta enviando para este método, sendo que estava funcionando corretamente e em algum momento aprontei algo que mudou isto. tem como me dar um socorro???
como estou usando no client: TFDMemTable
Variável privada no (Client) :
private
oDataSnapMaster: IContainerDataSet<TSituacaoCadastral>;
no metodo excluir (Client) : .
oDataSnapMaster.Delete();
if oDataSnapMaster.DataSet.State in [dsInsert,dsEdit] then
oDataSnapMaster.DataSet.Post;
oDataSnapMaster.ApplyUpdates(0);
Método onde o código esta indo na depuração
unit ormbr.session.datasnap;
procedure TSessionDataSnap<M>.Delete(const AObject: M);
var
LColumn: TColumnMapping;
begin
// for LColumn in AObject.GetPrimaryKey do
// Delete(LColumn.PropertyRtti.GetValue(TObject(AObject)).AsInteger);
end;
como estou usando no client: TFDMemTable
Variável privada no (Client) :
private
oDataSnapMaster: IContainerDataSet<TSituacaoCadastral>;
no metodo excluir (Client) : .
oDataSnapMaster.Delete();
if oDataSnapMaster.DataSet.State in [dsInsert,dsEdit] then
oDataSnapMaster.DataSet.Post;
oDataSnapMaster.ApplyUpdates(0);
Método onde o código esta indo na depuração
unit ormbr.session.datasnap;
procedure TSessionDataSnap<M>.Delete(const AObject: M);
var
LColumn: TColumnMapping;
begin
// for LColumn in AObject.GetPrimaryKey do
// Delete(LColumn.PropertyRtti.GetValue(TObject(AObject)).AsInteger);
end;