VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form Form_boletas_talleres 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Boletas Talleres Deportivos"
   ClientHeight    =   4890
   ClientLeft      =   45
   ClientTop       =   375
   ClientWidth     =   8490
   Icon            =   "Form_boletas_talleres.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   4890
   ScaleWidth      =   8490
   Begin VB.ListBox lst_Alumnos 
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   900
      Left            =   840
      TabIndex        =   6
      Top             =   600
      Visible         =   0   'False
      Width           =   3735
   End
   Begin VB.ListBox lst_Rut 
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   900
      Left            =   5280
      TabIndex        =   5
      Top             =   600
      Visible         =   0   'False
      Width           =   1335
   End
   Begin VB.Frame Frame1 
      Caption         =   "Datos Boleta Talleres"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   3375
      Left            =   120
      TabIndex        =   7
      Top             =   1320
      Width           =   8175
      Begin VB.ComboBox cb_tipo 
         Height          =   315
         Left            =   1560
         TabIndex        =   21
         Top             =   2760
         Width           =   2055
      End
      Begin VB.CommandButton cmd_salir 
         Caption         =   "Salir"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   6720
         Picture         =   "Form_boletas_talleres.frx":2A8B2
         Style           =   1  'Graphical
         TabIndex        =   19
         Top             =   2400
         Width           =   1215
      End
      Begin VB.CommandButton cmd_generar_boleta 
         Caption         =   "Generar Boleta Electronica"
         Height          =   735
         Left            =   6720
         TabIndex        =   13
         Top             =   1440
         Width           =   1215
      End
      Begin VB.TextBox txt_folio 
         Height          =   285
         Left            =   1560
         TabIndex        =   12
         Top             =   360
         Width           =   2055
      End
      Begin VB.TextBox txt_taller 
         Height          =   285
         Left            =   1560
         TabIndex        =   11
         Top             =   840
         Width           =   4935
      End
      Begin VB.TextBox txt_monto 
         Height          =   285
         Left            =   1560
         TabIndex        =   10
         Top             =   1800
         Width           =   2055
      End
      Begin VB.ComboBox cb_forma_pago 
         Height          =   315
         Left            =   1560
         TabIndex        =   8
         Top             =   2280
         Width           =   2055
      End
      Begin MSComCtl2.DTPicker dtp_fecha 
         Height          =   255
         Left            =   1560
         TabIndex        =   9
         Top             =   1320
         Width           =   2055
         _ExtentX        =   3625
         _ExtentY        =   450
         _Version        =   393216
         Format          =   51642369
         CurrentDate     =   43194
      End
      Begin VB.Label Label6 
         Caption         =   "Tipo"
         Height          =   255
         Left            =   120
         TabIndex        =   20
         Top             =   2760
         Width           =   1215
      End
      Begin VB.Label Label3 
         Caption         =   "Folio:"
         Height          =   255
         Left            =   120
         TabIndex        =   18
         Top             =   360
         Width           =   1215
      End
      Begin VB.Label Label4 
         Caption         =   "Taller:"
         Height          =   255
         Left            =   120
         TabIndex        =   17
         Top             =   840
         Width           =   1215
      End
      Begin VB.Label Label5 
         Caption         =   "Fecha Emision:"
         Height          =   255
         Left            =   120
         TabIndex        =   16
         Top             =   1320
         Width           =   1335
      End
      Begin VB.Label Label7 
         Caption         =   "Monto:"
         Height          =   255
         Left            =   120
         TabIndex        =   15
         Top             =   1800
         Width           =   1335
      End
      Begin VB.Label Label8 
         Caption         =   "Forma de pago:"
         Height          =   255
         Left            =   120
         TabIndex        =   14
         Top             =   2280
         Width           =   1215
      End
   End
   Begin VB.Frame Frame_Apo_Caja 
      Caption         =   "Datos del Alumno"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   1215
      Left            =   120
      TabIndex        =   0
      Top             =   0
      Width           =   8175
      Begin VB.CommandButton cmd_limpiar 
         Caption         =   "Limpiar"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   735
         Left            =   6720
         Picture         =   "Form_boletas_talleres.frx":2AED8
         Style           =   1  'Graphical
         TabIndex        =   22
         Top             =   240
         Width           =   1215
      End
      Begin VB.TextBox txt_RutBusqueda 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   5160
         TabIndex        =   2
         Top             =   360
         Width           =   1335
      End
      Begin VB.TextBox txt_NombreCompleto 
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   720
         TabIndex        =   1
         Top             =   360
         Width           =   3735
      End
      Begin VB.Label Label2 
         Caption         =   "R.u.t."
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   4680
         TabIndex        =   4
         Top             =   360
         Width           =   615
      End
      Begin VB.Label Label1 
         Caption         =   "Nombre"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   3
         Top             =   360
         Width           =   735
      End
   End
End
Attribute VB_Name = "Form_boletas_talleres"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmd_generar_boleta_Click()
   'consulta
    Dim objRS As New ADODB.Recordset
    Set objRS = New ADODB.Recordset
    Dim rec As New ADODB.Recordset
    Set rec = New ADODB.Recordset
    Dim var_sql As String
    
    Dim inco As String
    Dim ct00 As String
    Dim esco As String
    
    Dim cc As Long
    Dim tcc As Long
    Dim d As Long
    Dim td As Long
    
    Dim ruta As String
    Dim ruta2 As String
    Dim registro0 As String
    Dim registro1 As String
    Dim registro2 As String
    Dim registro3 As String
    Dim registro4 As String
    Dim registro5 As String
    Dim Registro As String
    Dim registro6 As String
    Dim registro7 As String
    Dim rut As String
    
    Dim curso As String
    Dim alumno As String
    Dim apoderado As String
    
    'Dim objRS As ADODB.Recordset
    Set objRS = New ADODB.Recordset
    aaa = ConectarSQL(connSQL, "192.168.7.13", colegio, "sa", "passCORPsa.2024", True)
    var_sql = "select * from huechuraba.softland.iw_gsaen where tipo = 'B' and folio = " & txt_folio.Text
    objRS.Open var_sql, connSQL
    If objRS.RecordCount > 0 Then
        MsgBox "Folio ingresado ya existe, aumente el folio en uno", vbInformation
        Exit Sub
    End If
    objRS.Close
    connSQL.Close
    
    ''''' para que no lo ocupen
    Exit Sub
    
    If val(txt_folio.Text) = 0 Then
        MsgBox "Debe ingresar el folio de la boleta", vbInformation
        Exit Sub
    End If
    
    If txt_taller.Text = "" Then
        MsgBox "Debe ingresar el taller", vbInformation
        Exit Sub
    End If
       
    If txt_monto.Text = 0 Then
        MsgBox "Debe ingresar el monto de la boleta"
        Exit Sub
    End If
    
    If cb_forma_pago.Text = "" Then
        MsgBox "Debe ingresar la forma de pago", vbInformation
        Exit Sub
    End If
    
    If cb_tipo.Text = "" Then
        MsgBox "Debe seleccionar si es academia o seleccion", vbInformation
        Exit Sub
    End If
        
    If MsgBox("¿Esta seguro que la fecha es correcta?", vbQuestion + vbYesNo) = vbYes Then
    Else
        Exit Sub
    End If
    
            'Boleta Electronica
            'Datos de apoderado
            var_sql = "SELECT a.rut_apo,CONCAT(ape1_apo,' ',ape2_apo,' ',noms_apo) AS apoderado,axa.ci_alu,CONCAT(ape_pat_alu,' ',ape_mat_alu,' ',nom_alu) AS alumno,REPLACE(dir_apo,',','') AS dir_apo,IF(LENGTH(email) > 9 AND email IS NOT NULL AND email LIKE '%@%' AND email LIKE '%.%',email,'apoderados.sin.correo@bostoncollege.cl') email,comuna FROM apoderados a,codigos__geograficos cg,apo_x_alu axa,postulantes p WHERE a.rut_apo = axa.rut_apo AND agno = 2019 AND axa.ci_alu = p.ci_alu AND p.ci_alu = '" & txt_RutBusqueda.Text & "' AND a.comuna_apo = cg.cod_geo"
            objRS.Open var_sql, conn
            If objRS.RecordCount < 1 Then
                objRS.Close
                MsgBox "No se encontro alumno para el año 2019", vbInformation
                Exit Sub
            End If
            mail = objRS("email")
            direccion = objRS("dir_apo")
            Comuna = objRS("comuna")
            Ciudad = "SANTIAGO"
            alumno = objRS("alumno")
            apoderado = objRS("apoderado")
            rut = objRS("rut_apo")
            'txt_apoderado.Text = objRS("apoderado")
            'txt_rut.Text = objRS("rut_apo")
            objRS.Close
            
            ' Curso alumno
            var_sql = "SELECT CONCAT(c.num_gra,'° ',let_cur,' ',des_ens_abrev) AS curso FROM alu_x_cur c,codigos_ensenanza ce" _
                    & " WHERE c.cod_ens = ce.cod_ens AND agno = '2019' AND ci_alu = '" & txt_RutBusqueda.Text & "' AND agno = 2019"
            objRS.Open var_sql, conn
            If objRS.RecordCount > 0 Then
                curso = objRS("curso")
            Else
                var_sql = "SELECT CONCAT(c.num_gra,'° ',des_ens_abrev) AS curso FROM matriculas c,codigos_ensenanza ce WHERE c.cod_ens = ce.cod_ens AND anno_mat = '2019' AND ci_alu = '" & txt_RutBusqueda.Text & "' AND anno_mat = 2019"
                rec.Open var_sql, conn
                If rec.RecordCount > 1 Then
                    curso = objRS("curso")
                End If
                rec.Close
            End If
            objRS.Close
    
            'Forma de pago
''            If Option1.Value = True Then forma_pago = "101" 'contado
''            If Option2.Value = True Then forma_pago = "102" 'cheque
''            If Option3.Value = True Then forma_pago = "107" 'pat
''            If Option4.Value = True Then forma_pago = "106" 'tarjeta credito
''            'If Option5.Value = True Then forma_pago = "105" 'tarjeta debito
            
            If cb_forma_pago.Text = "Contado" Then forma_pago = "101"  'contado
            If cb_forma_pago.Text = "Cheque" Then forma_pago = "102"
            If cb_forma_pago.Text = "Tarjeta credito" Then forma_pago = "106"
            If cb_forma_pago.Text = "Tarjeta debito" Then forma_pago = "105"
            If cb_forma_pago.Text = "P.A.T." Then forma_pago = "107"
            If cb_forma_pago.Text = "Transferencia" Then forma_pago = "108" 'Transferencia
    
            'run_alu = Me.Grilla.TextMatrix(Grilla.Row, 0)    ' Rut del alumno
            alumno_curso = alumno & "          Curso: " & curso
            MesBoleta = cb_tipo.Text & " " & txt_taller.Text
    
                'Ruta Boleta
            ruta = "\\vsoftland\Users\lriveros\Desktop\BOLETA ELECTRONICA\boleta_electronica_base64.txt"
            ruta2 = DevuelveCampo("usuarios", "", "ruta_softland", "AUT_NOMBRE_USUARIO ='" & Nom_usu_ses & "'", conn)
            ruta2 = "C:\Boleta Electronica\boleta_electronica.txt"
    
            Call Crear_Archivo_Cobranza(ruta2)
            
            
     registro0 = "Tipo_de_Documento_de_Venta;Subtipo_del_Documento;Estado_del_Documento;Bodega_Origen_de_los_Productos;Numero_de_Documento;Fecha_de_Generacion_del_Documento;Concepto_del_Documento;Fecha_de_Vencimiento_del_Documento;Observacion;Moneda_del_Documento;Equivalencia_de_la_Moneda_de_Venta_del_Documento;" _
                & "NCredito_por_Devolucion_o_Refacturacion;Guia_de_Entrada_que_Referencia;Motivo_Anulacion;Nro_Documento_que_Referencia;Tipo_de_documento_que_referencia;" _
                & "Codigo_de_Cliente;Nombre_del_Cliente;Rut_del_Cliente;Giro_del_Cliente;Mail_DTE_del_Cliente;Direccion_del_Cliente;N_Direccion_del_Cliente;Comuna_del_Cliente;Ciudad_del_Cliente;Lugar_del_Documento;Direccion_del_Documento;Codigo_Comuna_del_Documento;Codigo_Ciudad_del_Documento;Codigo_Region_del_Documento;" _
                & "Codigo_Pais_del_Documento;Codigo_Lista_de_Precios;Codigo_de_Vendedor;Codigo_Centro_de_Costo;Codigo_Condicion_de_Pago;Codigo_de_Distribuidor;Nombre_de_Distribuidor;Codigo_Lugar_de_Despacho;Retirado_Por;Patente_del_Camion_de_Despacho;Solicitado_Por;Rut_Solicitante;Despachado_Por;Rut_Transportista;" _
                & "Cuenta_Contable_para_Notas_de_Debito;Porcentaje_de_Descuento_1;Valor_de_Descuento_1;Porcentaje_de_Descuento_2;Valor_de_Descuento_2;Porcentaje_de_Descuento_3;Valor_de_Descuento_3;Porcentaje_de_Descuento_4;Valor_de_Descuento_4;Porcentaje_de_Descuento_5;Valor_de_Descuento_5;Flete;Embalaje;" _
                & "Codigo_de_Canal_de_Ventas;Total_Final;Codigo_de_Producto;Codigo_Unidad_de_Medida;Detalle_del_Producto;Descripcion_del_Producto;Cantidad_Facturada;Cantidad_Despachada;Precio_Unitario_Moneda_Base;Precio_Unitario_Moneda_de_Venta;Equivalencia_de_la_moneda_del_producto_vs_base;Porcentaje_de_Descuento_de_Linea_1;" _
                & "Valor_de_Descuento_de_Linea_1;Porcentaje_de_Descuento_de_Linea_2;Valor_de_Descuento_de_Linea_2;Porcentaje_de_Descuento_de_Linea_3;Valor_de_Descuento_de_Linea_3;" _
                & "Porcentaje_de_Descuento_de_Linea_4;Valor_de_Descuento_de_Linea_4;Porcentaje_de_Descuento_de_Linea_5;Valor_de_Descuento_de_Linea_5;Valor_Total_Descuentos_de_Linea;Porcentaje_de_credito_Empresas_Constructoras;Valor_Total_de_Credito_Empresas_Constructoras;Partida_o_Talla;Pieza_o_Color;" _
                & "Fecha_de_Vencimiento_de_la_Partida_o_Pieza;Serie;Numero_Nota_de_Venta;Identificador_Impresora_Fiscal;Conserva_Folio_Asignado_al_DTE;Referencia_1_Tipo_Documento_SII;Referencia_1_Descripcion;Referencia_1_Numero_Documento;Referencia_1_Fecha_Documento;" _
                & "Referencia_1_Codigo_Referencia_Boleta;Referencia_2_Tipo_Documento_SII;Referencia_2_Descripcion;Referencia_2_Numero_Documento;Referencia_2_Fecha_Documento;Referencia_2_Codigo_Referencia_Boleta;Referencia_3_Tipo_Documento_SII;Referencia_3_Descripcion;Referencia_3_Numero_Documento;Referencia_3_Fecha_Documento;" _
                & "Referencia_3_Codigo_Referencia_Boleta;Referencia_4_Tipo_Documento_SII;Referencia_4_Descripcion;Referencia_4_Numero_Documento;Referencia_4_Fecha_Documento;Referencia_4_Codigo_Referencia_Boleta;Referencia_5_Tipo_Documento_SII;Referencia_5_Descripcion;Referencia_5_Numero_Documento;Referencia_5_Fecha_Documento;" _
                & "Referencia_5_Codigo_Referencia_Boleta;Tipo_de_Transaccion;Forma_Pago_SII;ExportacionIndicador_de_Servicio;ExportacionForma_de_Pago_Exportacion;ExportacionIdAdicional_Receptor_Extranjero;ExportacionRut_Chofer;ExportacionNombre_Chofer;ExportacionModalidad_de_Venta;ExportacionClausula_de_Exportacion;ExportacionTotal_Clausula_de_Ventas_Exportacion;ExportacionRecargo_sTotal_Clausula_de_Venta;ExportacionVia_de_Transporte;" _
                & "ExportacionIddel_Medio_de_Transporte;ExportacionRut_Compania_Transportista;ExportacionNombre_Compania_Transportadora;ExportacionIdAdicional_Cia_Transportadora;ExportacionBooking;ExportacionMotoNave;ExportacionCodigo_de_Operador;ExportacionPuerto_de_Embarque;ExportacionIdAdicional_Puerto_de_Embarque;" _
                & "ExportacionPuerto_de_Desembarque;ExportacionIdAdicional_Puerto_de_Desembarque;ExportacionTara;ExportacionUnidad_de_Medida_Tara;ExportacionTotal_Peso_Bruto;ExportacionUnidad_Peso_Bruto;ExportacionTotal_Peso_Neto;ExportacionUnidad_Peso_Neto;ExportacionTotal_Items;ExportacionTotal_Bultos;ExportacionTipo_de_Bulto;" _
                & "ExportacionMarca;ExportacionId_Container;ExportacionSello;ExportacionEmisor_Sello;ExportacionFlete;ExportacionSeguro;ExportacionCodigo_Pais_Receptor;ExportacionTipo_Moneda_Transaccion"
     registro7 = registro0
     Call AgregarRegistroCobranza(registro0, ruta2)
            
    'Cuota Incorporacion
    enumeracion_concepto = "B1"
    valor_concepto = 0
    desc_beca = 0
    desc_otros = 0
    'Format(rs("feceval"), "dd-mm-yyyy")
    
                      '1  2 3 4               5                                6                7              8CAM                  9        1011
    registro1 = "B;S;V;1;" & txt_folio & ";" & Format(dtp_fecha.Value, "dd") & "/" & Format(dtp_fecha.Value, "mm") & "/" & Format(dtp_fecha.Value, "yyyy") & ";0" & "1" & ";" & Format(dtp_fecha.Value, "dd") & "/" & Format(dtp_fecha.Value, "mm") & "/" & Format(dtp_fecha.Value, "yyyy") & ";" & alumno_curso & ";;;"
                   '12 - 16      17 ok            18              19                20             21ok            22ok
    registro2 = ";;;;;" & rut & ";" & apoderado & ";" & Replace(rut, "-", "") & ";" & MesBoleta & ";" & mail & ";" & direccion & ";"
                  '         23                24ok           25ok   262728       35         30 - 40
    registro3 = "" & 2022 & ";" & Comuna & ";" & Ciudad & ";;;;;;;;;;" & forma_pago & ";;;;;;" & MesBoleta
                      '42-58               59cam                   60               61           62           636465         66          676869     70         71      72
    registro4 = ";;;;;;;;;;;;;;;;;;" & total_boleta & ";" & enumeracion_concepto & ";;" & detalle_producto & ";;1;1;" & valor_concepto & ";;;;" & desc_beca & ";;" & desc_otros & ";;;;;;;;"
                     '81 - 153
    registro5 = ";;;;;;;;S;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;"
    Registro = registro1 & registro2 & registro3 & registro4 & registro5
    registro6 = Registro
    registro7 = registro7 & vbCrLf & registro6
    'Call AgregarRegistroCobranza(Base64EncodeString(Registro), ruta)
    Call AgregarRegistroCobranza(Registro, ruta2)
            
    'Derecho Matricula
    enumeracion_concepto = "B2"
    valor_concepto = 0
    desc_beca = 0
    desc_otros = 0
                    '1  2 3 4               5                                6                7              8CAM                  9        1011
    registro1 = "B;S;V;1;" & txt_folio & ";" & Format(dtp_fecha.Value, "dd") & "/" & Format(dtp_fecha.Value, "mm") & "/" & Format(dtp_fecha.Value, "yyyy") & ";0" & "1" & ";" & Format(dtp_fecha.Value, "dd") & "/" & Format(dtp_fecha.Value, "mm") & "/" & Format(dtp_fecha.Value, "yyyy") & ";" & alumno_curso & ";;;"
                   '12 - 16      17 ok            18              19                20             21ok            22ok
    registro2 = ";;;;;" & rut & ";" & apoderado & ";" & Replace(rut, "-", "") & ";" & MesBoleta & ";" & mail & ";" & direccion & ";"
                  '         23                24ok           25ok   262728      29ok         30 - 40
    registro3 = "" & 2022 & ";" & Comuna & ";" & Ciudad & ";;;;;;;;;;" & forma_pago & ";;;;;;" & MesBoleta
                      '42-58               59                      60               61          62           636465         66           676869     70         71      72
    registro4 = ";;;;;;;;;;;;;;;;;;" & total_boleta & ";" & enumeracion_concepto & ";;" & detalle_producto & ";;1;1;" & valor_concepto & ";;;;" & desc_beca & ";;" & desc_otros & ";;;;;;;;"
                     '81 - 153
    registro5 = ";;;;;;;;S;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;"
    Registro = registro1 & registro2 & registro3 & registro4 & registro5
    registro6 = Registro
    registro7 = registro7 & vbCrLf & registro6

    'Call AgregarRegistroCobranza(Base64EncodeString(Registro), ruta)
    Call AgregarRegistroCobranza(Registro, ruta2)
    
    'Mensualidades
    enumeracion_concepto = "B3"
    valor_concepto = 0
    desc_beca = 0
    desc_otros = 0
               '1  2 3 4               5                                6                7              8CAM                  9        1011
    registro1 = "B;S;V;1;" & txt_folio & ";" & Format(dtp_fecha.Value, "dd") & "/" & Format(dtp_fecha.Value, "mm") & "/" & Format(dtp_fecha.Value, "yyyy") & ";0" & "1" & ";" & Format(dtp_fecha.Value, "dd") & "/" & Format(dtp_fecha.Value, "mm") & "/" & Format(dtp_fecha.Value, "yyyy") & ";" & alumno_curso & ";;;"
               '12 - 16      17 ok            18              19                20             21ok            22ok
    registro2 = ";;;;;" & rut & ";" & apoderado & ";" & Replace(rut, "-", "") & ";" & MesBoleta & ";" & mail & ";" & direccion & ";"
              '         23                24ok           25ok   262728      29ok         30 - 40
    registro3 = "" & 2022 & ";" & Comuna & ";" & Ciudad & ";;;;;;;;;;" & forma_pago & ";;;;;;" & MesBoleta
                 '42-58                    59                   60                61        62             636465         66           676869     70         71       72
    registro4 = ";;;;;;;;;;;;;;;;;;" & total_boleta & ";" & enumeracion_concepto & ";;" & detalle_producto & ";;1;1;" & valor_concepto & ";;;;" & desc_beca & ";;" & desc_otros & ";;;;;;;;"
                '81 - 153
    registro5 = ";;;;;;;;S;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;"
    Registro = registro1 & registro2 & registro3 & registro4 & registro5
    registro7 = registro7 & vbCrLf & Registro
    'Call AgregarRegistroCobranza(Base64EncodeString(Registro), ruta)
    Call AgregarRegistroCobranza(Registro, ruta2)
    'End If
        
    ' Talleres
    enumeracion_concepto = "B4"
    valor_concepto = txt_monto.Text
    desc_beca = 0
    desc_otros = 0
               '1  2 3 4               5                                6                7              8CAM                  9        1011
    registro1 = "B;S;V;1;" & txt_folio & ";" & Format(dtp_fecha.Value, "dd") & "/" & Format(dtp_fecha.Value, "mm") & "/" & Format(dtp_fecha.Value, "yyyy") & ";0" & "1" & ";" & Format(dtp_fecha.Value, "dd") & "/" & Format(dtp_fecha.Value, "mm") & "/" & Format(dtp_fecha.Value, "yyyy") & ";" & alumno_curso & ";;;"
               '12 - 16      17 ok            18              19                20             21ok            22ok
    registro2 = ";;;;;" & rut & ";" & apoderado & ";" & Replace(rut, "-", "") & ";" & MesBoleta & ";" & mail & ";" & direccion & ";"
              '         23                24ok           25ok   262728      29ok         30 - 40
    registro3 = "" & 2022 & ";" & Comuna & ";" & Ciudad & ";;;;;;;;;;" & forma_pago & ";;;;;;" & MesBoleta
                 '42-58                    59                     60                61         62             636465          66         676869     70         71       72
    registro4 = ";;;;;;;;;;;;;;;;;;" & total_boleta & ";" & enumeracion_concepto & ";;" & detalle_producto & ";;1;1;" & valor_concepto & ";;;;" & desc_beca & ";;" & desc_otros & ";;;;;;;;"
                '81 - 153
    registro5 = ";;;;;;;;S;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;"
    Registro = registro1 & registro2 & registro3 & registro4 & registro5
    'registro6 = Registro
    registro7 = registro7 & vbCrLf & Registro
    Call AgregarRegistroCobranza(Registro, ruta2)
    
'''''''''    'Otros cobros obligatorios
'''''''''    enumeracion_concepto = "B5"
'''''''''    valor_concepto = 0
'''''''''    desc_beca = 0
'''''''''    desc_otros = 0
'''''''''               '1  2 3 4               5                                6                7              8CAM                  9        1011
'''''''''    registro1 = "B,S,V,1," & txt_folio.Text & "," & Format(dtp_fecha.Value, "dd") & "/" & Format(dtp_fecha.Value, "mm") & "/" & Format(dtp_fecha.Value, "yyyy") & ",0" & "1" & "," & Format(dtp_fecha.Value, "dd") & "/" & Format(dtp_fecha.Value, "mm") & "/" & Format(dtp_fecha.Value, "yyyy") & "," & alumno_curso & ",,,"
'''''''''               '12 - 16      17 ok            18              19                20             21ok            22ok
'''''''''    registro2 = ",,,,," & rut & "," & apoderado & "," & Replace(rut, "-", "") & "," & MesBoleta & "," & mail & "," & direccion & ","
'''''''''              '         23                24ok           25ok   262728      29ok         30 - 40
'''''''''    registro3 = "" & 2019 & "," & Comuna & "," & Ciudad & ",,,," & forma_pago & ",,,,,,,,,,,,"
'''''''''                 '41-53                    54cam            55      56      5758      59cam          60 - 71            72
'''''''''    registro4 = ",,,,,,,,,,,,," & enumeracion_concepto & ",," & taller & ",1,1," & valor_concepto & ",,,," & desc_beca & ",," & desc_otros & ",,,,,,,,"
'''''''''                '73 - 101
'''''''''    registro5 = ",,,,,,,,S,,,,,,,,,,,,,,,,,,,,,"
'''''''''    Registro = registro1 & registro2 & registro3 & registro4 & registro5
'''''''''    'registro6 = Registro
'''''''''    registro7 = registro7 & vbCrLf & Registro
'''''''''    'Call AgregarRegistroCobranza(Base64EncodeString(registro7), ruta)
'''''''''    Call AgregarRegistroCobranza(Registro, ruta2)
        
    'Exencion Becas
    'If MParcial > 0 Then
    
    'Lleno tabla con base 64
'    var_sql = "update fnza_temp_boleta_electronica set boleta = '" & registro7 & "',boleta_64='" & Base64EncodeString(registro7) & "';"
'    conn.Execute var_sql
    
    certificado_digital = DevuelveCampo("usuarios", "", "certificado_digital", "aut_nombre_usuario = '" & Nom_usu_ses & "'", conn)
    var_sql = "update fnza_temp_boleta_electronica_2 set boleta = '" & registro7 & "',boleta_64='" & Base64EncodeString(registro7) & "',certificado_digital = '" & certificado_digital & "';"
    conn.Execute var_sql
    
    aaa = ConectarSQL(connSQL, "192.168.7.13", colegio, "sa", "passCORPsa.2024", True)
    var_sql = "select gircod from huechuraba.softland.cwtgiro where girdes = '" & cb_tipo.Text & " " & txt_taller.Text & "';"
    objRS.Open var_sql, connSQL
    gircod = ""
    If objRS.RecordCount > 0 Then
        gircod = objRS("gircod")
    End If
    objRS.Close
    If gircod <> "" Then
        var_sql = "update huechuraba.softland.cwtauxi set giraux = '" & gircod & "' where codaux = '" & rut & "';"
        connSQL.Execute var_sql
    Else
        gircod = ""
        Numero = 0
        letra = Mid(txt_taller.Text, 1, 1)
        While gircod = ""
            If Numero = 0 Then
                var_sql = "select gircod from huechuraba.softland.cwtgiro where gircod = '" & Mid(txt_taller.Text, 1, 3) & "'"
            Else
                var_sql = "select gircod from huechuraba.softland.cwtgiro where gircod = '" & letra & Numero & "'"
            End If
            objRS.Open var_sql, connSQL
            If objRS.RecordCount > 0 Then
            Else
                If Numero = 0 Then
                    gircod = Mid(txt_taller.Text, 1, 3)
                Else
                    gircod = letra & Numero
                End If
            End If
            objRS.Close
            Numero = Numero + 1
        Wend
        var_sql = "insert into huechuraba.softland.cwtgiro(gircod,girdes) VALUES('" & gircod & "','" & cb_tipo.Text & " " & txt_taller.Text & "');"
        connSQL.Execute var_sql
        var_sql = "update huechuraba.softland.cwtauxi set giraux = '" & gircod & "' where codaux = '" & rut & "';"
        connSQL.Execute var_sql
    End If
        
    connSQL.Close
    
    'Llamo aplicacion que se conecta con Web Service
    Shell App.Path & "\conector\WindowsApplication2.exe", vbNormalFocus
    
End Sub

Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub cmd_limpiar_Click()
        txt_NombreCompleto.Text = ""
        txt_RutBusqueda.Text = ""
        txt_Digito = ""
        txt_ApePat = ""
        txt_ApeMat = ""
        txt_Nombres = ""

        lbl_total = ""
        lbl_asistencia = ""
        lbl_inasistencia = ""
        porc_asist = ""
        porc_inasist = ""

        txt_folio.Text = ""
        txt_taller.Text = ""
        txt_monto.Text = ""
        cb_forma_pago.Text = ""
        cb_tipo.Text = ""
        
        txt_RutBusqueda.Locked = False
        txt_NombreCompleto.Locked = False
        'btn_Ver.Enabled = True

        lst_Rut.Visible = False
        lst_Alumnos.Visible = False
        
    Dim objRS As ADODB.Recordset
    Set objRS = New ADODB.Recordset
    aaa = ConectarSQL(connSQL, "192.168.7.13", colegio, "sa", "passCORPsa.2024", True)
    var_sql = "select max(folio) as folio from huechuraba.softland.iw_gsaen where tipo = 'B'"
    objRS.Open var_sql, connSQL
    If objRS.RecordCount > 0 Then
        txt_folio.Text = objRS("folio") + 1
    End If
    objRS.Close
    connSQL.Close

End Sub

Private Sub cmd_Salir_Click()
    Unload Me
End Sub

Private Sub Form_Load()
        'Forma de pago
'            If Option1.Value = True Then forma_pago = "101" 'contado
'            If Option2.Value = True Then forma_pago = "102" 'cheque
'            If Option3.Value = True Then forma_pago = "107" 'pat
'            If Option4.Value = True Then forma_pago = "106" 'tarjeta credito
'            If Option5.Value = True Then forma_pago = "108" 'Transferencia
'            If Option6.Value = True Then forma_pago = "105" 'tarjeta debito

    cb_forma_pago.AddItem "Contado"
    cb_forma_pago.AddItem "Cheque"
    cb_forma_pago.AddItem "Tarjeta credito"
    cb_forma_pago.AddItem "Tarjeta debito"
    cb_forma_pago.AddItem "P.A.T."
    cb_forma_pago.AddItem "Transferencia"
    
    cb_tipo.AddItem "ACADEMIA"
    cb_tipo.AddItem "SELECCION"
    dtp_fecha.Value = Date
    Dim objRS As ADODB.Recordset
    Set objRS = New ADODB.Recordset
    aaa = ConectarSQL(connSQL, "192.168.7.13", colegio, "sa", "passCORPsa.2024", True)
    var_sql = "select max(folio) as folio from huechuraba.softland.iw_gsaen where tipo = 'B'"
    objRS.Open var_sql, connSQL
    If objRS.RecordCount > 0 Then
        If objRS("folio") < 17975 Then
            txt_folio.Text = 17975
        Else
            txt_folio.Text = objRS("folio") + 1
        End If
    End If
    objRS.Close
    connSQL.Close
End Sub

Private Sub lst_Alumnos_Click()
 'Dim dig As String
    'dig = digito(lst_Alumnos.ItemData(lst_Alumnos.ListIndex))
    'Dim Rut As String
    Dim varsql As String
    'Rut = lst_Alumnos.ItemData(lst_Alumnos.ListIndex) & "-" & dig
    
    Dim objRS As ADODB.Recordset
    varsql = "SELECT ci_alu" _
           & " FROM postulantes where concat(ape_pat_alu,' ',ape_mat_alu,' ',nom_alu) = '" _
           & lst_Alumnos.Text & "'"

    Set objRS = New ADODB.Recordset
    objRS.Open varsql, conn
    If Not objRS.EOF Then
        txt_NombreCompleto.Text = lst_Alumnos.Text
        txt_RutBusqueda.Text = objRS("ci_alu")
    End If
    objRS.Close
    lst_Rut.Clear
    lst_Rut.Visible = False
    If txt_RutBusqueda.Text <> "" And txt_NombreCompleto.Text <> "" Then
        txt_RutBusqueda.Locked = True
        txt_NombreCompleto.Locked = True
    End If
End Sub

Private Sub lst_Rut_Click()
    txt_RutBusqueda.Text = lst_Rut.Text
    lst_Rut.Visible = False
    Dim objRS As ADODB.Recordset
    Dim varsql As String
    varsql = "SELECT ape_pat_alu,ape_mat_alu,nom_alu" _
           & " FROM postulantes where ci_alu='" & txt_RutBusqueda.Text & "'"

    Set objRS = New ADODB.Recordset
        objRS.Open varsql, conn
    If Not objRS.EOF Then
        txt_NombreCompleto.Text = objRS("ape_pat_alu") & " " & objRS("ape_mat_alu") & " " & objRS("nom_alu")
    End If
    objRS.Close
    lst_Alumnos.Visible = False
    lst_Rut.Clear
    If txt_RutBusqueda.Text <> "" And txt_NombreCompleto.Text <> "" Then
        txt_RutBusqueda.Locked = True
        txt_NombreCompleto.Locked = True
    End If
End Sub

Private Sub txt_NombreCompleto_Change()
    If txt_NombreCompleto.Text <> "" Then
    Dim varsql As String
    'lst_Rut.Visible = False
    Dim objRC As ADODB.Recordset
    Dim rut As Long
    Set objRS = New ADODB.Recordset
    varsql = "SELECT distinct p.CI_ALU,APE_PAT_ALU,APE_MAT_ALU,NOM_ALU" _
           & " FROM postulantes p,matriculas m" _
           & " where concat(APE_PAT_ALU,' ',ape_mat_alu,' ',nom_alu) LIKE '" & txt_NombreCompleto.Text & "%'" _
           & " and p.ci_alu = m.ci_alu and confirmado = 'SI' and fec_mat_r is not null and anno_mat = 2019" _
           & " order by ape_pat_alu,ape_mat_alu,nom_alu"
    objRS.Open varsql, conn
    lst_Alumnos.Clear
    If Not objRS.EOF Then
        lst_Alumnos.Visible = True
    End If
    While Not objRS.EOF
        lst_Alumnos.AddItem objRS("APE_PAT_ALU") & " " & objRS("APE_MAT_ALU") & " " & objRS("NOM_ALU")
        rut = Mid(objRS("CI_ALU"), 1, 8)
        lst_Alumnos.ItemData(lst_Alumnos.NewIndex) = rut
        objRS.MoveNext
    Wend
    objRS.Close
End If
End Sub

Private Sub txt_RutBusqueda_Change()
    If txt_RutBusqueda.Text <> "" Then
    Dim varsql As String
    lst_Rut.Visible = False
    lst_Alumnos.Visible = False
    Dim objRC As ADODB.Recordset
    Dim rut As Long
    Set objRS = New ADODB.Recordset
    varsql = "SELECT distinct m.CI_ALU" _
           & " FROM postulantes p,matriculas m" _
           & " where p.CI_ALU LIKE '" & txt_RutBusqueda & "%'" _
           & " and p.ci_alu = m.ci_alu and anno_mat = 2019 and confirmado = 'SI' and fec_mat_r is not null"
    objRS.Open varsql, conn
    lst_Rut.Clear
    If Not objRS.EOF Then
        lst_Rut.Visible = True
    End If
    While Not objRS.EOF
        lst_Rut.AddItem objRS("CI_ALU")
        objRS.MoveNext
    Wend
    objRS.Close
    End If
End Sub

Function Crear_Archivo_Cobranza(ruta As String) As Boolean
On Error GoTo Controlerror:
    'ArchBCI = "\\" & Form_main.Winsock1.LocalIP & "\Reg_Cobranza\" & "deuda.txt"
    ArchBCI = ruta
    Crear_Archivo_Cobranza = False
    Canc = FreeFile
    Open ArchBCI For Output As #Canc
    Close #Canc

    Crear_Archivo_Cobranza = True
    Exit Function
Controlerror:
    Err.Raise Err.Number, "CrearArchBCI->" & Err.Source, Err.Description
    Resume
End Function

Function AgregarRegistroCobranza(Registro As String, ruta As String) As Boolean
On Error GoTo Controlerror:
    Dim num_arch As Integer
    
    AgregarRegistroCobranza = False
    
    num_arch = FreeFile
    Arch = ruta
    Open Arch For Append As #num_arch
        Print #num_arch, Registro
    Close #num_arch
    AgregarRegistroCobranza = True
    Exit Function
Controlerror:
    Err.Raise Err.Number, "AgregarRegistroArchivoGeneracion->" & Err.Source, Err.Description
End Function

Private Sub txt_taller_Change()
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Private Sub txt_talleR_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
