Pesquisar na Comunidade
Mostrando resultados para as tags ''registro alterado''.
Encontrado 1 registro
-
Bom dia a todos! Tenho uma rotina desenvolvida em Delphi onde eu gravo em uma tabela os campos alterados das tabelas do sistema. Preciso implementar essa rotina em javascript e não estou conseguindo obter os valores do campo alterado e o valor anterior (delta) É uma rotina muito útil para acompanhamento de operação do sitema Obrigado! begin DmCliente.CdsAlteracoes.Open; m_modificado := false; for i := 0 to CdsAtivo.Fields.Count - 1 do begin V := CdsAtivo.Fields.OldValue; V := VarType( V ); if CdsAtivo.Fields.OldValue <> CdsAtivo.Fields.NewValue then begin m_modificado := true; with DmCliente.CdsAlteracoes do begin DmCliente.CdsAlteracoes.Append; DmCliente.CdsAlteracoes.FieldByName('Alt_DtCadastro').AsString := dateToStr( Date ); DmCliente.CdsAlteracoes.FieldByName('Alt_Horario').AsString := TimeToStr( time() ); DmCliente.CdsAlteracoes.FieldByName('Alt_NomeTabela').AsString := UpperCase(NomeTabela); DmCliente.CdsAlteracoes.FieldByName('Alt_CampoChave').AsInteger := CdsAtivo.Fields[0].OldValue; DmCliente.CdsAlteracoes.FieldByName('Alt_NomeCampo').AsString := CdsAtivo.Fields.FieldName; Case CdsAtivo.Fields.DataType of // .FieldByName(Vle.Cells[ 0 , i ]).DataType of ftString: begin if CdsAtivo.Fields.OldValue <> Null then DmCliente.CdsAlteracoes.FieldByName('Alt_DadoOriginal').AsString := CdsAtivo.Fields.OldValue; if CdsAtivo.Fields.NewValue <> Null then DmCliente.CdsAlteracoes.FieldByName('Alt_DadoAlterado').AsString := CdsAtivo.Fields.NewValue; end; end; DmCliente.CdsAlteracoes.FieldByName('Alt_NomeUsuario').AsString := m_nomeusuario; DmCliente.CdsAlteracoes.FieldByName('Alt_DtCadastro').AsDateTime := date(); DmCliente.CdsAlteracoes.FieldByName('Alt_Horario').AsString := TimeToStr(time()); DmCliente.CdsAlteracoes.FieldByName('Alt_NomeMicro').AsString := m_HostNome^.h_name; DmCliente.CdsAlteracoes.FieldByName('Alt_IpMicro').AsString := m_HostIp; DmCliente.CdsAlteracoes.FieldByName('Usu_Codigo').AsInteger := m_CodigoUsuario; DmCliente.CdsAlteracoes.Post; end; end; end; if m_modificado = true then DmCliente.CdsAlteracoes.ApplyUpdates(0); DmCliente.CdsAlteracoes.Close; end;