DATA DE OPERACAO DO SISTEMA

FUTURA 17/11/2009 11:40:06
#327925
como vcs controlam a data de operação do sistema para que o usuário não [Ô]burle[Ô] o movto do caixa ?
MARCELO.TREZE 17/11/2009 11:48:36
#327926
qual o tipo de programa, existe um servidor, basta usar a data e hora do servidor
FUTURA 17/11/2009 12:45:12
#327930
programa do tipo comercial, contas a pagar, receber, caixa, etc. Sim existe um servidor, mas como pegar a data/hora do mesmo e usar no sistma ?
MARCELO.TREZE 17/11/2009 12:54:32
#327931
assim colega

http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=6903

eis o código do link acima

[ô]======================================================================================
[ô]DECLARACOES PARA BUSCAR DATA/HORA SERVIDOR
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
[ô]Declaracao utilizada para resgatar data/hora do servidor
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 ServerTime(ByVal pServerName As String) As Variant
  
  Dim t As TIME_OF_DAY
  Dim tPtr As Long
  Dim Result As Long
  Dim szServer As String
  Dim ServDate As Date
  If Left(pServerName, 2) = [Ô]\\[Ô] Then
    szServer = StrConv(pServerName, vbUnicode)
  Else
    szServer = StrConv([Ô]\\[Ô] & pServerName, vbUnicode)
  End If
  Result = NetRemoteTOD(szServer, tPtr)
  If Result = 0 Then
    Call CopyMemory(t, ByVal tPtr, Len(t))
    ServDate = DateSerial(70, 1, 1) + (t.t_elapsedt / 60 / 60 / 24)
    [ô]ServDate = ServDate - (t.t_timezone / 60 / 24)
[ô] Para resgatar o horario 3 horas a menos inseri o valor 180 ao inves de t.t_timezone	
    ServDate = ServDate - (180 / 60 / 24)
    NetApiBufferFree (tPtr)
    ServerTime = ServDate
  Else
    [ô]erro
  End If
  
End Function

[ô]======================================================================================
[ô] chamar funcao conforme abaixo
Private Sub MDIForm_Load()
    Dim data, hora, Data_Hora As String
    
    Data_Hora = ServerTime([Ô]\\Wcaxemc001[Ô])
    contador = 1
    posicao = InStr(1, Data_Hora, [Ô] [Ô])
    data = Mid(Data_Hora, 1, posicao - 1)
    hora = Mid(Data_Hora, posicao + 1, 10)

End Sub
TECLA 17/11/2009 13:04:06
#327933
Qual é banco de dados da aplicação?
MARCELO.TREZE 17/11/2009 13:08:49
#327934
esta é uma boa pergunta, acredito que no máximo podemos fazer o seguinte toda vez que iniciar o programa ou de tempo em tempo estar salvando a hora e a data em um arquivo oculto, e sempre verificar se a data atual e menor ue a salva neste arquivo isto seria uma solução.

alguns conseguem verificar a data com uma data na internet não tenho este código mas também seria uma solução fora isto, se c nào possuir uma senha no setup, e o seu programa ser o unico a ser acessado pelo usuários, impedindo o acesso ao windows.

desculpe mas não consigo pensar e nada mas além disto
FUTURA 17/11/2009 13:18:54
#327941
tecla meu bd é sql server 2005 (express) e access em alguns clientes
TECLA 17/11/2009 13:36:12
#327943 Resposta escolhida
Citação:

FUTURA escreveu:
tecla meu bd é sql server 2005 (express) e access em alguns clientes



Tente assim:
rs.Open [Ô]select getdate()[Ô], con
msgbox rs.fields(0)
FUTURA 17/11/2009 13:45:14
#327945
tecla, deu certo, mais uma dúvida, no caso estou pegando a data do sql server certo ?, agora esta data ele pega de onde ? presumo que seja do micro servidor, então este pode ser tanto windows server como xp ??
Página 1 de 2 [16 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar