Jump to content

Search the Community

Showing results for tags 'registro alterado'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Q&A Desenvolvimento
    • Perguntas e respostas rápidas
  • Desenvolvimento e Banco de Dados
    • HTML e CSS
    • Java
    • Javascript
    • .NET
    • PHP
    • Python
    • Ruby
    • Mobile
    • Ambientes de Desenvolvimento
    • Arquitetura e Métodos Ágeis
    • Banco de Dados
    • DevOps
    • Desenvolvimento de Games
    • E-Commerce e Pagamentos Online
    • SEO e Otimizações
    • WordPress
    • Algoritmos & Outras Tecnologias
  • Design e Produto
    • Fotografia
    • Photoshop
    • Design de interfaces e UX
    • Edição/Produção de Vídeos
    • Marketing Online
    • Desenho, Ilustração e 3D
  • Entretenimento e uso pessoal
    • Geral
    • Segurança & Malwares
    • Gadgets e wearable
    • Softwares e Apps
    • Entretenimento

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Google+


Hangouts


Skype


Twitter


deviantART


Github


Flickr


LinkedIn


Pinterest


Facebook


Site Pessoal


Localização


Interesses

Found 1 result

  1. 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;
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.