VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.Form frmDepurarTablas 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Depuración de Tablas"
   ClientHeight    =   3105
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4290
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3105
   ScaleWidth      =   4290
   StartUpPosition =   1  'CenterOwner
   Begin VB.TextBox txtsupervisor 
      Height          =   285
      Left            =   0
      TabIndex        =   9
      Top             =   2745
      Visible         =   0   'False
      Width           =   360
   End
   Begin VB.CommandButton cmdCancelar 
      Caption         =   "Salir"
      Height          =   345
      Left            =   2175
      TabIndex        =   6
      Top             =   2670
      Width           =   1260
   End
   Begin VB.CommandButton cmdDepurar 
      Caption         =   "Depurar"
      Height          =   345
      Left            =   765
      TabIndex        =   5
      Top             =   2670
      Width           =   1260
   End
   Begin VB.Frame Frame1 
      Caption         =   "Depuración de Tablas"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   2460
      Left            =   45
      TabIndex        =   0
      Top             =   120
      Width           =   4170
      Begin VB.CheckBox chkTeclado 
         Caption         =   "Eliminar Tabla relacionada a la configuración del teclado"
         Height          =   360
         Left            =   165
         TabIndex        =   8
         Top             =   1875
         Width           =   3855
      End
      Begin VB.CheckBox chkProducto 
         Caption         =   "Reprocesar Artículos"
         Height          =   270
         Left            =   165
         TabIndex        =   7
         Top             =   1530
         Width           =   2355
      End
      Begin MSComCtl2.DTPicker dtpFechaFinal 
         Height          =   270
         Left            =   1890
         TabIndex        =   4
         Top             =   1065
         Width           =   1275
         _ExtentX        =   2249
         _ExtentY        =   476
         _Version        =   393216
         CustomFormat    =   "dd/MM/yyyy"
         Format          =   22937603
         CurrentDate     =   38793
      End
      Begin MSComCtl2.DTPicker dtpFechaInicial 
         Height          =   270
         Left            =   165
         TabIndex        =   2
         Top             =   1065
         Width           =   1305
         _ExtentX        =   2302
         _ExtentY        =   476
         _Version        =   393216
         CustomFormat    =   "dd/MM/yyyy"
         Format          =   22937603
         CurrentDate     =   38793
      End
      Begin VB.Label Label2 
         Caption         =   "Al:"
         Height          =   270
         Left            =   1545
         TabIndex        =   3
         Top             =   1095
         Width           =   195
      End
      Begin VB.Label Label1 
         Caption         =   "Seleccione el rango de fechas en el cual desea eliminar datos de las tablas referente a ventas de la base de datos local:"
         Height          =   660
         Left            =   120
         TabIndex        =   1
         Top             =   330
         Width           =   3825
      End
   End
End
Attribute VB_Name = "frmDepurarTablas"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public bAcceso As Boolean
Private Sub cmdCancelar_Click()
    Unload Me
End Sub
Private Sub cmdDepurar_Click()

  On Error GoTo LineaError
  
  Dim ssql As String
  Dim ADORS As ADODB.Recordset
  Dim strFechaInicial As String
  Dim strFechaFinal As String
  Dim strMensaje As String
  Dim sFechSincro As String
  
  bAcceso = False
  strMensaje = "Esta seguro de eliminar información importante del sistema"
  If MsgBox(strMensaje, vbYesNo + vbQuestion + vbDefaultButton2, "Pregunta") = vbNo Then GoTo Salir
  Load frmAutorizarOperacion
  Set frmAutorizarOperacion.frmPadre = Me
  frmAutorizarOperacion.Show vbModal
  If Not bAcceso Then Exit Sub
  'bAcceso = False
  
  'Obtenemos los parametros
  strFechaInicial = Format(DateAdd("d", -1, Me.dtpFechaInicial.Value), "MM/dd/yyyy")
  strFechaFinal = Format(DateAdd("d", 1, Me.dtpFechaFinal.Value), "MM/dd/yyyy")

  ssql = "SELECT cOperCode " & _
         "  FROM OperacionParalela " & _
         " WHERE dOperFech > #" & strFechaInicial & "#" & _
         "   AND dOperFech < #" & strFechaFinal & "#"
  If Not oDBAdmin.EjecutarConsulta(ADOCnn, ssql, ADORS) Then GoTo Salir
  Do While Not ADORS.EOF
    ssql = "DELETE FROM OperacionParalelaProducto " & _
           " WHERE cOperCode = " & LeerCampo(ADORS!cOpercode)
    If Not oDBAdmin.EjecutarSentencia(ADOCnn, ssql) Then GoTo Salir
    
    ADORS.MoveNext
  Loop
    
  ssql = "DELETE FROM OperacionParalela " & _
         " WHERE dOperFech > #" & strFechaInicial & "#" & _
         "   AND dOperFech < #" & strFechaFinal & "#"
  If Not oDBAdmin.EjecutarSentencia(ADOCnn, ssql) Then GoTo Salir
  
  ssql = "DELETE FROM Operacion " & _
         " WHERE dOperFech > #" & strFechaInicial & "#" & _
         "   AND dOperFech < #" & strFechaFinal & "#"
  If Not oDBAdmin.EjecutarSentencia(ADOCnn, ssql) Then GoTo Salir
  
  ssql = "DELETE FROM cuadre_caja " & _
         " WHERE dCuadreFecha > #" & strFechaInicial & "#" & _
         "   AND dCuadreFecha < #" & strFechaFinal & "#"
  If Not oDBAdmin.EjecutarSentencia(ADOCnn, ssql) Then GoTo Salir
  
  ssql = "DELETE FROM canje_punto " & _
         " WHERE dCanjDate > #" & strFechaInicial & "#" & _
         "   AND dCanjDate < #" & strFechaFinal & "#"
  If Not oDBAdmin.EjecutarSentencia(ADOCnn, ssql) Then GoTo Salir
  
  ssql = "DELETE FROM canje_ticket " & _
         " WHERE dCanjDate > #" & strFechaInicial & "#" & _
         "   AND dCanjDate < #" & strFechaFinal & "#"
  If Not oDBAdmin.EjecutarSentencia(ADOCnn, ssql) Then GoTo Salir
    
  If chkTeclado.Value = 1 Then
    ssql = " UPDATE configuracionTeclado " & _
           "    SET cProdCode = 0"
    If Not oDBAdmin.EjecutarSentencia(ADOCnn, ssql) Then GoTo Salir
  End If
  
  If chkProducto.Value = 1 Then
    ssql = "DELETE FROM producto "
    If Not oDBAdmin.EjecutarSentencia(ADOCnn, ssql) Then GoTo Salir
  End If
  
  'Actualiza los datos de Sincronizacion
  sFechSincro = "01/01/1900"
  ssql = " UPDATE Sincronizacion " & _
         "    SET dFechSincro = '" + sFechSincro + "'"
  If Not oDBAdmin.EjecutarSentencia(ADOCnn, ssql) Then GoTo Salir

  MsgBox "La Operación se realizó con éxito", vbOKOnly + vbInformation, "Mensaje"
  
  GoTo Salir
  
LineaError:
  MsgBox Err.Description, vbOKOnly + vbInformation
  
Salir:
  Set ADORS = Nothing
  Unload Me
  Sincronizar
End Sub

Private Sub Form_Load()
    ConfigurarControles
End Sub

Private Sub ConfigurarControles()
    dtpFechaInicial.Value = DateAdd("y", -1, Now)
    dtpFechaFinal.Value = Now
End Sub

