VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form_captura_cheques 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Captura Cheques"
   ClientHeight    =   2955
   ClientLeft      =   45
   ClientTop       =   375
   ClientWidth     =   3450
   Icon            =   "Form_captura_cheques.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   2955
   ScaleWidth      =   3450
   Begin VB.Frame Frame2 
      Caption         =   "Capturar Cheques"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   2655
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   3135
      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             =   1080
         Width           =   2175
      End
      Begin VB.CommandButton Command1 
         Caption         =   "Captura de cheques"
         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            =   720
         Top             =   2760
         _ExtentX        =   847
         _ExtentY        =   847
         _Version        =   393216
      End
   End
End
Attribute VB_Name = "Form_captura_cheques"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim tab2 As Integer
Dim i As Integer
Dim var_sql As String
Dim fin_excel As Boolean
Dim cargado As Boolean
Dim monto As Long
Dim contador As Integer
Dim objRS As ADODB.Recordset
Set objRS = New ADODB.Recordset
Dim rendicion As Integer

'Tienes que abrir el archivo con...

CommonDialog1.DialogTitle = "Seleccione el archivo excel"
CommonDialog1.Filter = "Archivos de texto*.txt"
CommonDialog1.ShowOpen

If CommonDialog1.FileName = "" Then
  MsgBox "Debe Seleccionar un Archivo"
  Exit Sub
End If

Dim EXL As Excel.Application
Set EXL = New Excel.Application
Dim w As Excel.Workbook
Set w = EXL.Workbooks.Open(CommonDialog1.FileName)
Dim s As Excel.Worksheet
Set s = w.Sheets("Hoja1")

cargado = False
rendicion = InputBox("Ingrese el numero de rendicion", "Ingreso de Rendicion", "")
var_sql = "SELECT * FROM fnza_captura_cheques where num_rendicion = " & rendicion & " And agno = " & Year(Date)
objRS.Open var_sql, conn
If objRS.RecordCount > 0 Then
    cargado = True
End If
objRS.Close

Dim linea As String, total As String
i = 5
fin_excel = True

'MsgBox s.Range("A" & i & "").Value
'MsgBox s.Range("B6").Value
'MsgBox s.Range("C6").Value
'conecta = ConectarBDSiempre(conn_deuda, "192.168.7.91", "comunes_gescol", "groot", "kripplefight", True)
conn.Execute "delete from temp_captura_cheques"
contador = 0
While fin_excel = True 'And i < 250
    i = i + 1
    If val(s.Range("K" & i & "").Value) = 0 Or s.Range("A" & i & "").Value = "" Then
        fin_excel = False
    Else
        monto = monto + val(s.Range("K" & i & "").Value)
        var_sql = "INSERT INTO temp_captura_cheques(run_apo,apoderado,run_tit,nom_tit,tel_tit,banco,cta_cte,serie,numero,fecha,monto,verificacion,banco_plaza," _
        & "fec_venc,fec_ingreso,usuario_ingreso,num_rendicion,fecha_rendicion,agno,rendicion)" _
        & " VALUES('" & s.Range("A" & i & "").Value & "','" & s.Range("B" & i & "").Value & "','" & s.Range("C" & i & "").Value & "','" & s.Range("D" & i & "").Value _
        & "','" & s.Range("E" & i & "").Value & "','" & s.Range("F" & i & "").Value & "','" & s.Range("G" & i & "").Value & "','" & s.Range("H" & i & "").Value _
        & "','" & s.Range("I" & i & "").Value & "','" & s.Range("J" & i & "").Value & "','" & s.Range("K" & i & "").Value & "','" & s.Range("L" & i & "").Value _
        & "','" & s.Range("M" & i & "").Value & "','" & s.Range("N" & i & "").Value & "','" & s.Range("O" & i & "").Value & "','" & s.Range("P" & i & "").Value _
        & "','" & rendicion & "','" & s.Range("A4").Value & "',year(now()),'" & s.Range("A2").Value & "');"
        conn.Execute var_sql
        contador = contador + 1
    End If
Wend
              
var_sql = "SELECT * FROM temp_captura_cheques GROUP BY usuario_ingreso"
objRS.Open var_sql, conn
If objRS.RecordCount > 1 Then
    MsgBox "Rendición no puede ser cargada, debido a que fue realizada por mas de un usuario", vbInformation
    Exit Sub
End If
objRS.Close
              
If cargado = True Then
    If MsgBox("¿Esta seguro que desea sobreescribir la rendición N° " & rendicion & "?", vbQuestion + vbYesNo) = vbYes Then
        'MsgBox "Se cargara nuevamente la rendicion N° " & rendicion, vbInformation
        ' borrar la rendicion numero
        conn.Execute "delete from fnza_captura_cheques where agno = " & Year(Now()) & " and num_rendicion = " & rendicion
        
        ' borrar los cheques cruzando tablas
        var_sql = "delete FROM fnza_captura_cheques" _
                & " WHERE CONCAT(agno,run_apo,banco,cta_cte,serie,numero,fecha) IN (SELECT CONCAT(agno,run_apo,banco,cta_cte,serie,numero,fecha) FROM temp_captura_cheques)"
        
    Else
        MsgBox "Ud. selecciono NO cargar nuevamente los cheques", vbInformation
        Exit Sub
    End If
End If

var_sql = "INSERT INTO fnza_captura_cheques(run_apo,apoderado,run_tit,nom_tit,tel_tit,banco,cta_cte,serie,numero,fecha,monto,verificacion,banco_plaza,fec_venc,fec_ingreso,usuario_ingreso,num_rendicion,fecha_rendicion,agno,rendicion)" _
        & " SELECT * FROM temp_captura_cheques"
conn.Execute var_sql

'Insertar log
          

MsgBox "Carga fue realizada con exito. Se han insertado " + CStr(i) + " cheques, con un monto de " & monto, vbInformation


End Sub

Private Sub Command2_Click()
    Unload Me
End Sub
