Uruguay
y verificar que la rutina trabaja bien, alguien sabe como hacerlo o algún programa que permita hacerlo?
Public Sub RespaldarAhora()
Dim FechaM As Date
Dim BD As String
Dim RespaldarSi As Boolean
Dim Diferencia As Byte
DirRespaldo = Settings["RespaldoAutomatico/DirRespaldo", RespaldoBD]
CadaTanto = Settings["RespaldoAutomatico/Periodo", 0]
BD = FMain.CarpetaTaller &/ "basetaller"
If Exist(BD) Then
FechaM = Stat(BD).LastModified
Endif
ArchivoX = FMain.DirRespaldo &/ "basetaller_" & Replace$(CString(Date), "/", "-")
Diferencia = DateDiff(Date, FechaM, gb.Day)
Print "Diferencia=" & Diferencia
Select Case CadaTanto
Case 0 ' respaldo cada 1 dia
If Diferencia >= 1 Then RespaldarSi = True
Case 1 ' respaldo cada 2 dias
If Diferencia >= 2 Then RespaldarSi = True
Case 2 ' respaldo cada 3 dias
If Diferencia >= 3 Then RespaldarSi = True
Case 3 ' respaldo cada 4 dias
If Diferencia >= 4 Then RespaldarSi = True
Case 4 ' respaldo cada 5 dias
If Diferencia >= 5 Then RespaldarSi = True
Case 5 ' respaldo cada una semana
If Diferencia >= 7 Then RespaldarSi = True
Case 6 ' respaldo cada 15 dias
If Diferencia >= 15 Then RespaldarSi = True
Case 7 ' respaldo cada un mes
If Diferencia >= 30 Then RespaldarSi = True
End Select
If RespaldarSi = True Then
If Exist(ArchivoX) = False Then
If Access(File.Dir(ArchivoX), gb.Write) = True Then
Copy BD To ArchivoX
Wait 0.2
VerificarRespaldo
Else
TextoMSG("Error:" & Error.Text & gb.NewLine & Error.Where, True)
Endif
Else
If bVerMensaje = True Then
TextoMSG("Respaldo ya existe:" & gb.NewLine & ArchivoX, True)
bVerMensaje = False
Endif
Endif
Endif
End
Public Sub VerificarRespaldo()
If Exist(ArchivoX) Then
Goto RESPALDO_CORRECTO
Else
Goto ERROR_RESPALDO
Endif
RESPALDO_CORRECTO:
TextoMSG("Se respaldo correctamente en:" & gb.NewLine & ArchivoX, False)
' Message.Info("Se respaldo correctamente en:" & gb.NewLine & ArchivoX)
Goto SALIR
ERROR_RESPALDO:
TextoMSG("Ocurrio un error:" & gb.NewLine & Error.Text & gb.NewLine & Error.Where, True)
SALIR:
End
Dim FechaM As Date
Dim BD As String
Dim RespaldarSi As Boolean
Dim Diferencia As Byte
DirRespaldo = Settings["RespaldoAutomatico/DirRespaldo", RespaldoBD]
CadaTanto = Settings["RespaldoAutomatico/Periodo", 0]
BD = FMain.CarpetaTaller &/ "basetaller"
If Exist(BD) Then
FechaM = Stat(BD).LastModified
Endif
ArchivoX = FMain.DirRespaldo &/ "basetaller_" & Replace$(CString(Date), "/", "-")
Diferencia = DateDiff(Date, FechaM, gb.Day)
Print "Diferencia=" & Diferencia
Select Case CadaTanto
Case 0 ' respaldo cada 1 dia
If Diferencia >= 1 Then RespaldarSi = True
Case 1 ' respaldo cada 2 dias
If Diferencia >= 2 Then RespaldarSi = True
Case 2 ' respaldo cada 3 dias
If Diferencia >= 3 Then RespaldarSi = True
Case 3 ' respaldo cada 4 dias
If Diferencia >= 4 Then RespaldarSi = True
Case 4 ' respaldo cada 5 dias
If Diferencia >= 5 Then RespaldarSi = True
Case 5 ' respaldo cada una semana
If Diferencia >= 7 Then RespaldarSi = True
Case 6 ' respaldo cada 15 dias
If Diferencia >= 15 Then RespaldarSi = True
Case 7 ' respaldo cada un mes
If Diferencia >= 30 Then RespaldarSi = True
End Select
If RespaldarSi = True Then
If Exist(ArchivoX) = False Then
If Access(File.Dir(ArchivoX), gb.Write) = True Then
Copy BD To ArchivoX
Wait 0.2
VerificarRespaldo
Else
TextoMSG("Error:" & Error.Text & gb.NewLine & Error.Where, True)
Endif
Else
If bVerMensaje = True Then
TextoMSG("Respaldo ya existe:" & gb.NewLine & ArchivoX, True)
bVerMensaje = False
Endif
Endif
Endif
End
Public Sub VerificarRespaldo()
If Exist(ArchivoX) Then
Goto RESPALDO_CORRECTO
Else
Goto ERROR_RESPALDO
Endif
RESPALDO_CORRECTO:
TextoMSG("Se respaldo correctamente en:" & gb.NewLine & ArchivoX, False)
' Message.Info("Se respaldo correctamente en:" & gb.NewLine & ArchivoX)
Goto SALIR
ERROR_RESPALDO:
TextoMSG("Ocurrio un error:" & gb.NewLine & Error.Text & gb.NewLine & Error.Where, True)
SALIR:
End
Albacete
