olá amigos, como foram de festas?

Hoje meu problema é o seginte:   _ como faço para as maquinas clientes ao fazerem um insert gravar alen da hora do maqui cliente, tambem gravar a data e hora do servidor.

     Vou explicar melhor o meu problema....  estou tento prolemas com algums usuarios, que estao alterando a data do seu computador e com isso mandonado para o insert informaçoes erradas das datas de emissao de algumas pedidos. tenhos varios tipos de bloqueios para isso, como por exemplo se o cara retroadir a data o sistema não abre, mas se uma vez aberto se alterar a data elel aceita,se isso já não fosse o o bastante... tive dificudades para localizar um pedido em um certo periodo ,somente o achei depois de descubrir que ele estava 2 meses adiantado...

   a desculpa do cara foi que ele não sabia que a adata estava errada, e que não foi ele que alterou... pode um negocio desse?....

 

   a solução encontrada, foi gravar a data do servidor junto com a data da emissão, assim havendo controversia sobre a legitima data de emissão, valeria a data do servidor.

 

  Como solucionar esse problema?  usando store procedure?

 

conto com a ajudo de voceis..

dá um help ai...

 ou Como faço para a maquina cliente pegar a a data e hora do servidor, dai eu monto o insert com a variavel que carregou a data do servidor. ( lembrando que tenho acessos locais e via net).

Private Declare Function NetRemoteTOD Lib "NETAPI32.DLL" (ByVal server As String, buffer As Any) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)
Private Declare Function NetApiBufferFree Lib "NETAPI32.DLL" (buffer As Any) As Long

Private Type TIME_OF_DAY
  t_elapsedt As Long
  t_msecs As Long
  t_hours As Long
  t_mins As Long
  t_secs As Long
  t_hunds As Long
  t_timezone As Long
  t_tinterval As Long
  t_day As Long
  t_month As Long
  t_year As Long
  t_weekday As Long
End Type

Public Function HoraServidor(ByVal pNomeServidor As String) As Variant

Dim t As TIME_OF_DAY
Dim tPtr As Long
Dim Resultado As Long
Dim szServer As String
Dim dataServidor As Date

On Error GoTo trata_erro

If Left(pNomeServidor, 2) = "\" Then
   szServer = StrConv(pNomeServidor, vbUnicode)
Else
   szServer = StrConv("\" & pNomeServidor, vbUnicode)
End If

Resultado = NetRemoteTOD(szServer, tPtr)

If Resultado = 0 Then

  Call CopyMemory(t, ByVal tPtr, Len(t))

  dataServidor = DateSerial(70, 1, 1) + (t.t_elapsedt / 60 / 60 / 24)
  dataServidor = dataServidor - (t.t_timezone / 60 / 24)
  NetApiBufferFree (tPtr)
  HoraServidor = dataServidor

Else

  MsgBox "Não foi possivel obter a hora do servidor"

End If

Exit Function

trata_erro:
MsgBox Err.Number & " - " & Err.Description

End Function

'--------------------------------------------------------------------------------

'chamando a função para obter data  e hora
'   Private Sub Command1_Click()
   'aqui você informa o nome do seu servidor
  'Data = HoraServidor("\alfterra")
  'Text1.Text = Data

 

 

O Alfterra, legal a dica, funcionou bem na rede local pelo nome das maquinas, e para Online pelo IP como faço?

 

Obrigado

olá, online ainda não cheguei lá.....
mais, isso se dá um jeito com uma "gambiarra" kkkk

cria um form no servidor pra gravar a data assim que o servidor for iniciado, e em cada estacao antes de gravar compara a data que ta gravada, assim se a data tiver diferente nao grava......

 

ai é que tá o problema... o servidor é iniciado uma vez por semana ou nem isso e permanece ativo 24 H por dia.

    e gostaria de gravar a data/hora a cada item gravado no banco.

 

obrigado