Fórum ApplyUpdates não grava no banco #338167
09/03/2007
0
Abaixo seguem algumas rotinas que estou implementando.
with dmodMalotes do
begin
Mlt_Emissora := edtFil_Malote.Text;
Mlt_Numero := StrToInt(edtMalote.Text);
Mlt_Ano := edtAno_Malote.Text;
if not Localizar then
cdsManutencao.Insert
else
cdsManutencao.Edit;
cdsManutencaoFIL_MALOTE.AsString := edtFil_Malote.Text;
cdsManutencaoNRO_MALOTE.AsInteger := StrToInt(edtMalote.Text);
cdsManutencaoANO_MALOTE.AsString := edtAno_Malote.Text;
cdsManutencaoDT_EMISSAO.AsDateTime := edtDt_Emissao.Date;
cdsManutencaoEMITIDO_POR.AsString := edtEmitido_Por.Text;
cdsManutencaoBANCO.AsString := edtCd_Banco.Text;
cdsManutencaoAGENCIA.AsString := edtCd_Agencia.Text;
cdsManutencaoCONTA.AsString := edtCd_Conta.Text;
cdsManutencaoSTATUS.AsString := ´DG´;
cdsManutencaoLACRE.Value := edtLacres.Text;
cdsManutencaoOBS_DIVERSAS.Value := mmoObservacoes.Text;
cdsManutencaoOPERADOR.AsString := sSnh_NmUsuario;
cdsManutencaoDT_ALTERACAO.AsDatetime := SysUtils.Now;
cdsManutencao.Post;
end;
essa e a rotina para inserção e edição. em meus datamodulos tenho herdado as selects, por isso passo somente as propriedades e chama a rotina localizar. Abaixo segue a rotina do afterpost.
if dmodPrincipal.dtbConexaoBancoDBX.TransactionsSupported and
Not dmodPrincipal.dtbConexaoBancoDBX.InTransaction then
dmodPrincipal.dtbConexaoBancoDBX.StartTransaction(dmodPrincipal.Transacao);
try
cdsManutencao.ApplyUpdates( 0);
if dmodPrincipal.dtbConexaoBancoDBX.TransactionsSupported and
dmodPrincipal.dtbConexaoBancoDBX.InTransaction then
dmodPrincipal.dtbConexaoBancoDBX.Commit(dmodPrincipal.Transacao);
except
cdsManutencao.CancelUpdates;
if dmodPrincipal.dtbConexaoBancoDBX.TransactionsSupported and
dmodPrincipal.dtbConexaoBancoDBX.InTransaction then
dmodPrincipal.dtbConexaoBancoDBX.Rollback(dmodPrincipal.Transacao);
end;
e a do reconcile error.
ShowMessage(E.Message);
Action := HandleReconcileError(DataSet, UpdateKind, E);
Pus as duas intencionalmente pra saber se alguma iria retornar erro.
no applyupdates já fiz a seguinte chegagem: if applyupdates(0) > 0 then ... mas não resolveu. Só o que consigo editar é meu campo OBS_DIVERSAS que é BLOB.
Alguém pode me ajudar?
Agradeço a atenção.
Clafa
Curtir tópico
+ 0Posts
09/03/2007
Clafa
Gostei + 0
09/03/2007
Clafa
Gostei + 0
10/03/2007
Rosianeterra
agradeço.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)