VERSION 5.00
Object = "{00025600-0000-0000-C000-000000000046}#4.6#0"; "crystl32.ocx"
Begin VB.Form form_consultar 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Consulta Ticket"
   ClientHeight    =   8880
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   9870
   Icon            =   "form_consultar.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   8880
   ScaleWidth      =   9870
   Begin Crystal.CrystalReport cr 
      Left            =   4320
      Top             =   8160
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   262150
   End
   Begin VB.Frame Frame6 
      Height          =   735
      Left            =   6000
      TabIndex        =   32
      Top             =   8040
      Width           =   3735
      Begin VB.CommandButton cmd_Salir 
         Caption         =   "Salir"
         Height          =   375
         Left            =   2160
         TabIndex        =   34
         Top             =   240
         Width           =   1215
      End
      Begin VB.CommandButton cmd_Imprimir 
         Caption         =   "Imprimir"
         Height          =   375
         Left            =   360
         TabIndex        =   33
         Top             =   240
         Width           =   1215
      End
   End
   Begin VB.Frame Frame5 
      Caption         =   "Resumen"
      ForeColor       =   &H00FF0000&
      Height          =   1335
      Left            =   120
      TabIndex        =   4
      Top             =   6600
      Width           =   9615
      Begin VB.Label lbl_detalle 
         Height          =   375
         Left            =   2040
         TabIndex        =   31
         Top             =   720
         Width           =   7335
      End
      Begin VB.Label lbl_estado_general 
         Height          =   255
         Left            =   2040
         TabIndex        =   30
         Top             =   240
         Width           =   7215
      End
      Begin VB.Label Label14 
         Caption         =   "Detalle:"
         Height          =   255
         Left            =   120
         TabIndex        =   18
         Top             =   720
         Width           =   1455
      End
      Begin VB.Label Label13 
         Caption         =   "Estado General del Ticket:"
         Height          =   375
         Left            =   120
         TabIndex        =   17
         Top             =   240
         Width           =   1815
      End
   End
   Begin VB.Frame Frame4 
      Caption         =   "Reporte Administración"
      ForeColor       =   &H00FF0000&
      Height          =   1215
      Left            =   120
      TabIndex        =   3
      Top             =   5280
      Width           =   9615
      Begin VB.Label lbl_respuesta_confirmacion 
         Height          =   255
         Left            =   2040
         TabIndex        =   29
         Top             =   840
         Width           =   7335
      End
      Begin VB.Label lbl_resultado_soporte 
         Height          =   255
         Left            =   2040
         TabIndex        =   28
         Top             =   240
         Width           =   7335
      End
      Begin VB.Label Label12 
         Caption         =   "Repuesta de Confirmación de Usuario: "
         Height          =   495
         Left            =   120
         TabIndex        =   16
         Top             =   600
         Width           =   1815
      End
      Begin VB.Label Label11 
         Caption         =   "Resultado de Soporte:"
         Height          =   255
         Left            =   120
         TabIndex        =   15
         Top             =   240
         Width           =   1695
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "Reporte Soporte"
      ForeColor       =   &H00FF0000&
      Height          =   975
      Left            =   120
      TabIndex        =   2
      Top             =   4200
      Width           =   9615
      Begin VB.Label lbl_funcionario_soporte 
         Height          =   255
         Left            =   2040
         TabIndex        =   27
         Top             =   600
         Width           =   7335
      End
      Begin VB.Label lbl_estado 
         Height          =   255
         Left            =   2040
         TabIndex        =   26
         Top             =   240
         Width           =   7335
      End
      Begin VB.Label Label10 
         Caption         =   "Funcionario de Soporte:"
         Height          =   255
         Left            =   120
         TabIndex        =   14
         Top             =   600
         Width           =   1815
      End
      Begin VB.Label Label9 
         Caption         =   "Estado:"
         Height          =   255
         Left            =   120
         TabIndex        =   13
         Top             =   240
         Width           =   1215
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "Datos Solicitud"
      ForeColor       =   &H00FF0000&
      Height          =   1335
      Left            =   120
      TabIndex        =   1
      Top             =   2760
      Width           =   9615
      Begin VB.Label lbl_hora_solicitud 
         Height          =   255
         Left            =   2040
         TabIndex        =   25
         Top             =   960
         Width           =   7335
      End
      Begin VB.Label lbl_fecha_solicitud 
         Height          =   255
         Left            =   2040
         TabIndex        =   24
         Top             =   600
         Width           =   7215
      End
      Begin VB.Label lbl_nombre_usuario 
         Height          =   255
         Left            =   2040
         TabIndex        =   23
         Top             =   240
         Width           =   7215
      End
      Begin VB.Label Label8 
         Caption         =   "Hora de Solicitud:"
         Height          =   255
         Left            =   120
         TabIndex        =   12
         Top             =   960
         Width           =   1455
      End
      Begin VB.Label Label7 
         Caption         =   "Fecha de Solicitud:"
         Height          =   255
         Left            =   120
         TabIndex        =   11
         Top             =   600
         Width           =   1575
      End
      Begin VB.Label Label6 
         Caption         =   "Nombre de Usuario:"
         Height          =   255
         Left            =   120
         TabIndex        =   10
         Top             =   240
         Width           =   1575
      End
   End
   Begin VB.Frame Frame1 
      ForeColor       =   &H00FF0000&
      Height          =   1935
      Left            =   120
      TabIndex        =   0
      Top             =   720
      Width           =   9615
      Begin VB.Label lbl_colegio 
         Caption         =   "Label15"
         Height          =   255
         Left            =   3120
         TabIndex        =   35
         Top             =   240
         Width           =   6255
      End
      Begin VB.Label lbl_situacion 
         Height          =   375
         Left            =   2040
         TabIndex        =   22
         Top             =   1320
         Width           =   7335
      End
      Begin VB.Label lbl_descripcion_soporte 
         Height          =   255
         Left            =   2040
         TabIndex        =   21
         Top             =   960
         Width           =   7215
      End
      Begin VB.Label lbl_tipo_soporte 
         Height          =   255
         Left            =   2040
         TabIndex        =   20
         Top             =   600
         Width           =   7215
      End
      Begin VB.Label lbl_numero_ticket 
         Alignment       =   1  'Right Justify
         Caption         =   "1234567891"
         Height          =   255
         Left            =   2040
         TabIndex        =   19
         Top             =   240
         Width           =   975
      End
      Begin VB.Label Label5 
         Caption         =   "Situación:"
         Height          =   255
         Left            =   120
         TabIndex        =   9
         Top             =   1320
         Width           =   975
      End
      Begin VB.Label Label4 
         Caption         =   "Descripción de Soporte:"
         Height          =   255
         Left            =   120
         TabIndex        =   8
         Top             =   960
         Width           =   1815
      End
      Begin VB.Label Label3 
         Caption         =   "Tipo de Soporte:"
         Height          =   255
         Left            =   120
         TabIndex        =   7
         Top             =   600
         Width           =   1215
      End
      Begin VB.Label Label2 
         Caption         =   "Numero de Ticket:"
         Height          =   255
         Left            =   120
         TabIndex        =   6
         Top             =   240
         Width           =   1455
      End
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Caption         =   "Ticket de Soporte"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   18
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   0
      TabIndex        =   5
      Top             =   120
      Width           =   9735
   End
End
Attribute VB_Name = "form_consultar"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmd_imprimir_Click()
imprimir_consulta
End Sub

Private Sub cmd_Salir_Click()
    Unload Me
End Sub

Public Sub generar_consulta(Folio As Long)
    Dim Fecha As Date
    Dim hora As String
    Dim objRS As ADODB.Recordset
    Set objRS = New ADODB.Recordset
    Dim REC As ADODB.Recordset
    Set REC = New ADODB.Recordset
    Dim var_sql, tipo_soporte As String
    
    Dim i, Ind, linea As Integer
       
    var_sql = "select login_usuario,solicitud,date_format(fecha,'%d-%m-%Y') as fecha," _
            & "date_format(fecha,'%H:%i:%s') as hora,nombre_completo_usu as usuario," _
            & "numero_ticket , estado_actual, asignado, texto_solicitud" _
            & " from spte_solicitud ss,spte_ticket st,spte_detalle_solic sds,usuarios u" _
            & " Where ss.folio = st.folio_solicitud And ss.folio = sds.folio" _
            & " and ss.login_usuario = u.aut_nombre_usuario" _
            & " and ss.folio = " & Folio
    objRS.Open var_sql, conn
          
    Select Case Mid(objRS("solicitud"), 1, 1)
    Case "h"
      tipo_soporte = "Hardware"
    Case "s"
      tipo_soporte = "Software"
    Case "g"
      tipo_soporte = "Gescol"
    Case "i"
      tipo_soporte = "Internet"
    Case "e"
      tipo_soporte = "Email"
    Case "o"
      tipo_soporte = "Otros"
    End Select
        
    lbl_numero_ticket.Caption = objRS("numero_ticket")
    lbl_colegio.Caption = "-  COLEGIO BOSTON COLLEGE LA FARFANA"
    lbl_tipo_soporte.Caption = tipo_soporte
        
    'Asigno descripcion de soporte
    var_sql = "select descrip_detalle from spte_opcion" _
            & " where codigo_soporte = '" & Mid(objRS("solicitud"), 1, 1) & "'" _
            & " and codigo_detalle = '" & Mid(objRS("solicitud"), 2) & "'"
    REC.Open var_sql, conn
    lbl_descripcion_soporte.Caption = REC("descrip_detalle")
    REC.Close
    
    'Asigno nombre de usuario al reporte
    lbl_nombre_usuario.Caption = objRS("usuario")
    lbl_fecha_solicitud.Caption = objRS("fecha")
    lbl_hora_solicitud.Caption = objRS("hora")
    lbl_estado.Caption = objRS("estado_actual")
    
    If objRS("asignado") = "NO" Then
        lbl_funcionario_soporte = "Sin asignación actual en tramite"
    Else
        var_sql = "select nombre_personal as n from spte_asignacion sa,spte_personal sp" _
                & " Where sa.rut_personal_soporte = sp.rut_personal" _
                & " and sa.folio_solicitud = " & Folio
        REC.Open var_sql, conn
        lbl_funcionario_soporte.Caption = REC("n")
        REC.Close
        
        'lleno resultado de soporte y respuesta de confirmacion de usuario
        var_sql = "SELECT * FROM spte_respuesta where ticket = " & objRS("numero_ticket") _
                & " order by fecha_respuesta desc,hora_respuesta desc"
        REC.Open var_sql, conn
        If Not REC.EOF Then
            lbl_resultado_soporte.Caption = REC("estado_respuesta")
            lbl_respuesta_confirmacion.Caption = REC("usuario_confirmo")
        Else
        
            lbl_resultado_soporte.Caption = "Pendiente"
            lbl_respuesta_confirmacion.Caption = "NO"
        End If
        REC.Close
        
        'lleno detalle
        var_sql = "SELECT * FROM spte_respuestas where ticket = " & objRS("numero_ticket") _
                & " order by fecha_respuesta desc,hora_respuesta desc"
        REC.Open var_sql, conn
        If Not REC.EOF Then
            lbl_detalle.Caption = REC("detalle")
        Else
            lbl_detalle.Caption = "Sin Observaciones"
        End If
            'lbl_detalle.Caption = "Sin Observaciones"
        REC.Close
    End If
        
    'lbl_detalle.Caption = "Sin Observaciones"
    
    var_sql = "select texto_solicitud as ts from spte_detalle_solic" _
            & " where folio = " & Folio
    REC.Open var_sql, conn
    lbl_situacion.Caption = REC("ts")
    REC.Close
    
    'Reglas de Estado General del Ticket
    
    'Paso 2
'    If lbl_funcionario_soporte <> "Sin asignación actual, en trámite" _
'    And lbl_estado.Caption <> "Abierto" Then
'        lbl_estado_general.Caption = "Soporte Asignado"
'    End If
    
    'Soporte Asignado
    If lbl_estado.Caption = "Pendiente" Then
        lbl_estado_general.Caption = "Soporte Asignado"
    End If
    
'    'Paso 3
'    If lbl_estado_general.Caption = "Soporte Asignado" _
'    And lbl_estado.Caption = "Pendiente" Then
'        lbl_estado_general.Caption = "Soporte Atendido"
'    End If
        
    'Soporte solucionado
    If lbl_estado.Caption = "Atendido Solucionado" Then
        lbl_estado_general.Caption = "Soporte Solucionado"
    End If
    
    'Soporte sin solución
    If lbl_estado.Caption = "Atendido Sin Solucion" Then
        lbl_estado_general.Caption = "Soporte Sin Solucion"
    End If
    
    'Caso Cerrado
    If lbl_estado.Caption = "Cerrado" Then
        lbl_estado_general.Caption = "Caso Cerrado"
    End If
    
End Sub

Public Sub imprimir_consulta()
    Dim var_sql As String
    Dim objRS As ADODB.Recordset
    Set objRS = New ADODB.Recordset
    
    var_sql = "select date_format(now(),'%H:%i:%s') as h"
    objRS.Open var_sql, conn
    
    Call LimpiaFormulas(cr, 30)
    cr.ReportFileName = App.Path & "\Rpt\spte_ticket.rpt"
    cr.Formulas(1) = "numero_ticket = '" & lbl_numero_ticket.Caption & "'"
    cr.Formulas(17) = "colegio = '" & lbl_colegio.Caption & "'"
    cr.Formulas(2) = "tipo_soporte = '" & lbl_tipo_soporte.Caption & "'"
    cr.Formulas(7) = "hora = '" & Format(objRS("h"), "h:mm:ss") & "'"
    objRS.Close
    
    'Asigno descripcion de soporte
    cr.Formulas(3) = "desc_soporte = '" & lbl_descripcion_soporte.Caption & "'"
    cr.Formulas(4) = "situacion = '" & lbl_situacion.Caption & "'"
    'Asigno nombre de usuario al reporte
    cr.Formulas(8) = "nombre_usuario = '" & lbl_nombre_usuario.Caption & "'"
    cr.Formulas(9) = "fecha_solicitud = '" & lbl_fecha_solicitud.Caption & "'"
    cr.Formulas(10) = "hora_solicitud = '" & lbl_hora_solicitud.Caption & "'"
    cr.Formulas(11) = "estado = '" & lbl_estado.Caption & "'"
    cr.Formulas(12) = "funcionario_soporte = '" & lbl_funcionario_soporte.Caption & "'"
    cr.Formulas(13) = "resultado_soporte = '" & lbl_resultado_soporte.Caption & "'"
    cr.Formulas(14) = "respuesta_confirmacion = '" & lbl_respuesta_confirmacion.Caption & "'"
    cr.Formulas(15) = "estado_general = '" & lbl_estado_general.Caption & "'"
    cr.Formulas(16) = "detalle = '" & lbl_detalle.Caption & "'"
    
    cr.Destination = crptToWindow
    cr.Action = 1
End Sub

