VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form_enmendados_rescatados 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Liberar enmendados"
   ClientHeight    =   3435
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   3420
   Icon            =   "Form_enmendados_rescatados.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   ScaleHeight     =   3435
   ScaleWidth      =   3420
   Begin VB.Frame Frame2 
      Caption         =   "Liberar documentos"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   3255
      Left            =   120
      TabIndex        =   0
      Top             =   0
      Width           =   3135
      Begin VB.CommandButton Command4 
         Caption         =   "Quitar protestos"
         Height          =   495
         Left            =   480
         TabIndex        =   4
         Top             =   1800
         Width           =   2175
      End
      Begin VB.CommandButton Command3 
         Caption         =   "Quitar rescatados"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   480
         TabIndex        =   3
         Top             =   1080
         Width           =   2175
      End
      Begin VB.CommandButton Command2 
         Caption         =   "Salir"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   480
         TabIndex        =   2
         Top             =   2520
         Width           =   2175
      End
      Begin VB.CommandButton Command1 
         Caption         =   "Quitar enmendados"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   480
         TabIndex        =   1
         Top             =   360
         Width           =   2175
      End
      Begin MSComDlg.CommonDialog CommonDialog1 
         Left            =   2640
         Top             =   3000
         _ExtentX        =   847
         _ExtentY        =   847
         _Version        =   393216
      End
   End
End
Attribute VB_Name = "Form_enmendados_rescatados"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim var_sql As String
Dim cantidad As Integer
Dim rec As ADODB.Recordset
Set rec = New ADODB.Recordset
    rut = InputBox("Ingrese el numero de Rut.", "Ingreso de Rut.", "")
    var_sql = "SELECT COUNT(rut) cantidad FROM fnza_enmendados WHERE rut = '" & rut & "'"
    'Situacion = devuelvecampo("fnza_bloqueados_condicionales", "", "IF(LENGTH(condicional) > 1,'condicional','caducidad') as situacion", "rut ='" & Grid1.TextMatrix(Grid1.Row, 2) & "'", conn)
    rec.Open var_sql, conn
    If rec.RecordCount > 0 Then
        cantidad = rec("cantidad")
    End If
    rec.Close
    
    If cantidad = 0 Then
        MsgBox "Apoderado no registra cheques enmendados", vbInformation
        Exit Sub
    End If
    
    If cantidad = 1 Then
        If MsgBox("¿Desea eliminar el documento enmendado de este apoderado?", vbQuestion + vbYesNo) = vbYes Then
            var_sql = "delete FROM fnza_enmendados WHERE rut = '" & rut & "'"
            conn.Execute var_sql
            MsgBox "Se ha eliminado el documento enmendado de este apoderado", vbInformation
        End If
    End If
    
    If cantidad > 1 Then
        If MsgBox("¿Desea eliminar los " & cantidad & " documentos enmendados de este apoderado?", vbQuestion + vbYesNo) = vbYes Then
            var_sql = "delete FROM fnza_enmendados WHERE rut = '" & rut & "'"
            conn.Execute var_sql
            MsgBox "Se han eliminado los " & cantidad & " documento enmendado de este apoderado", vbInformation
        End If
    End If
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub

Private Sub Command3_Click()
Dim var_sql As String
Dim cantidad As Integer
Dim rec As ADODB.Recordset
Set rec = New ADODB.Recordset
    rut = InputBox("Ingrese el numero de Rut.", "Ingreso de Rut.", "")
    var_sql = "SELECT COUNT(rut_apo) cantidad FROM fnza_cheques_rescatados WHERE rut_apo = '" & rut & "'"
    'Situacion = devuelvecampo("fnza_bloqueados_condicionales", "", "IF(LENGTH(condicional) > 1,'condicional','caducidad') as situacion", "rut ='" & Grid1.TextMatrix(Grid1.Row, 2) & "'", conn)
    rec.Open var_sql, conn
    If rec.RecordCount > 0 Then
        cantidad = rec("cantidad")
    End If
    rec.Close
    
    If cantidad = 0 Then
        MsgBox "Apoderado no registra cheques rescatados", vbInformation
        Exit Sub
    End If
    
    If cantidad = 1 Then
        If MsgBox("¿Desea eliminar el documento rescatado de este apoderado?", vbQuestion + vbYesNo) = vbYes Then
            var_sql = "delete FROM fnza_cheques_rescatados WHERE rut_apo = '" & rut & "'"
            conn.Execute var_sql
            MsgBox "Se ha eliminado el documento rescatado de este apoderado", vbInformation
        End If
    End If
    
    If cantidad > 1 Then
        If MsgBox("¿Desea eliminar los " & cantidad & " documentos rescatados de este apoderado?", vbQuestion + vbYesNo) = vbYes Then
            var_sql = "delete FROM fnza_cheques_rescatados WHERE rut = '" & rut & "'"
            conn.Execute var_sql
            MsgBox "Se han eliminado los " & cantidad & " documento rescatados de este apoderado", vbInformation
        End If
    End If
End Sub

Private Sub Command4_Click()
    Dim var_sql As String
    Dim cantidad As Integer
    Dim cantidad2 As Integer
    Dim cantidad3 As Integer
    Dim conecta As Boolean
    Dim rec As ADODB.Recordset
    Set rec = New ADODB.Recordset
    rut = InputBox("Ingrese el numero de Rut.", "Ingreso de Rut.", "")
    var_sql = "SELECT COUNT(ci_apo) cantidad  FROM fnza_lista_negra_apoderados WHERE ci_apo = '" & rut & "' AND bloqueado = 1"
    'Situacion = devuelvecampo("fnza_bloqueados_condicionales", "", "IF(LENGTH(condicional) > 1,'condicional','caducidad') as situacion", "rut ='" & Grid1.TextMatrix(Grid1.Row, 2) & "'", conn)
    rec.Open var_sql, conn
    If rec.RecordCount > 0 Then
        cantidad = rec("cantidad")
    End If
    rec.Close
    
    conecta = ConectarBDSiempre(conn_deuda, "192.168.7.91", "comunes_gescol", "groot", "kripplefight", True)
    var_sql = "SELECT COUNT(ci_apo) cantidad  FROM fnza_lista_negra_apoderados WHERE ci_apo = '" & rut & "' AND bloqueado = 1"
    'Situacion = devuelvecampo("fnza_bloqueados_condicionales", "", "IF(LENGTH(condicional) > 1,'condicional','caducidad') as situacion", "rut ='" & Grid1.TextMatrix(Grid1.Row, 2) & "'", conn)
    rec.Open var_sql, conn_deuda
    If rec.RecordCount > 0 Then
        cantidad2 = rec("cantidad")
    End If
    rec.Close
        
    If cantidad = 0 And cantidad2 = 0 Then
        MsgBox "Apoderado no registra cheques protestados", vbInformation
        conn_deuda.Close
        Exit Sub
    End If
    
    If cantidad > cantidad2 Then
        cantidad3 = cantidad
    Else
        cantidad3 = cantidad2
    End If
    
    If cantidad3 = 1 Then
        If MsgBox("¿Desea eliminar el documento protestado de este apoderado?", vbQuestion + vbYesNo) = vbYes Then
            var_sql = "UPDATE fnza_lista_negra_apoderados SET bloqueado = 0 WHERE ci_apo = '" & rut & "' AND bloqueado = 1"
            conn.Execute var_sql
            conn_deuda.Execute var_sql
            MsgBox "Se ha eliminado el documento protestado de este apoderado", vbInformation
        End If
    End If
    
    If cantidad3 > 1 Then
        If MsgBox("¿Desea eliminar los " & cantidad3 & " documentos protestados de este apoderado?", vbQuestion + vbYesNo) = vbYes Then
            var_sql = "UPDATE fnza_lista_negra_apoderados SET bloqueado = 0 WHERE ci_apo = '" & rut & "' AND bloqueado = 1"
            conn.Execute var_sql
            conn_deuda.Execute var_sql
            MsgBox "Se han eliminado los " & cantidad3 & " documento protestados de este apoderado", vbInformation
        End If
    End If
    conn_deuda.Close
End Sub
