VERSION 5.00
Object = "{97335038-A7BC-4769-A9D0-0ABA53604B7B}#4.0#0"; "dtCancelar.ocx"
Object = "{4BF4915B-F10F-4F39-9B5C-42E3F9C787AF}#4.0#0"; "dtAceptar.ocx"
Begin VB.Form FCO3060 
   Caption         =   "Cierre de Período de Autoliquidación"
   ClientHeight    =   2505
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5025
   BeginProperty Font 
      Name            =   "Arial"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "FCO3060 y 70 Cierre y Reapertura de Periodo.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   ScaleHeight     =   2505
   ScaleWidth      =   5025
   Begin DataTec_Aceptar.dtAceptar dtAceptar1 
      Height          =   495
      Left            =   4080
      TabIndex        =   4
      Top             =   1800
      Width           =   495
      _ExtentX        =   873
      _ExtentY        =   873
   End
   Begin DataTec_Cancelar.dtCancelar dtCancelar1 
      Height          =   495
      Left            =   3480
      TabIndex        =   3
      Top             =   1800
      Width           =   495
      _ExtentX        =   873
      _ExtentY        =   873
   End
   Begin VB.ComboBox cboPeriodo 
      Height          =   330
      ItemData        =   "FCO3060 y 70 Cierre y Reapertura de Periodo.frx":030A
      Left            =   2280
      List            =   "FCO3060 y 70 Cierre y Reapertura de Periodo.frx":030C
      TabIndex        =   1
      Top             =   1320
      Width           =   1335
   End
   Begin VB.Label lblLabels 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "&Período a cerrar"
      Height          =   210
      Index           =   1
      Left            =   960
      TabIndex        =   0
      Top             =   1320
      Width           =   1170
   End
   Begin VB.Label lblLabels 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   $"FCO3060 y 70 Cierre y Reapertura de Periodo.frx":030E
      Height          =   945
      Index           =   0
      Left            =   120
      TabIndex        =   2
      Top             =   120
      Width           =   4785
      WordWrap        =   -1  'True
   End
End
Attribute VB_Name = "FCO3060"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private MAdo As ODBC.ODBCDirecto
Private Micx As Integer 'Conexión

Private Sub cboPeriodo_KeyPress(KeyAscii As Integer)
    Autocompletar cboPeriodo, KeyAscii
End Sub

Private Sub dtAceptar1_Click()
    If cboPeriodo.ListIndex > -1 Then
        Screen.MousePointer = vbHourglass
        MAdo.Sql = "sp_fco_upd_sit_periodo '" & GsCveCia & "','" & cboPeriodo.Text & "', '" & GsOper & "'"
        If MAdo.ExecSQL <> -1 Then
            clsMsgbox.Mensaje "Proceso correctamente ejecutado", mAceptar, minforma, GsTitMsg
            LlenarCombo
        End If
        Screen.MousePointer = vbDefault
    End If
End Sub

Private Sub dtCancelar1_Click()
    Unload Me
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyF3 Then Unload Me
End Sub

Private Sub Form_Load()
    GbAError = False
    Me.Tag = GiVenMax%
    Gven(Val(Me.Tag)).icx = Gicx%
    Micx = Gven(Val(Me.Tag)).icx
    Set MAdo = Gtc(Micx).Ado
    
    'Checa nivel de seguridad
    Gven(Val(Me.Tag)).iNivSeguridad = iObtenNivSeguridad(GsOper, GsUid, Micx)
    If Gven(Val(Me.Tag)).iNivSeguridad = 0 Then
        Screen.MousePointer = vbDefault
        Me.Top = -10000
        GbAError = True
        Exit Sub
    End If
    
    'Tamaño de la forma
    If WindowState = 0 Then
        Width = 5145
        Height = 3015
    End If
    
    If GsOper = "FCO3060" Then
        Caption = GsDsn & " / " & GsCveCia & " - Cierre Período"
        lblLabels(0) = "Al ejecutar esta opción no se podrán hacer más modificaciones al período dado ni se podrá regenerar información de ese período.  Ejecute esta opción para evitar cambiar información de períodos ya informados a las entidades."
        lblLabels(1) = "Período a cerrar"
    Else
        Caption = GsDsn & " / " & GsCveCia & " - Reapertura Período"
        lblLabels(0) = "Ejecute esta opción para permitir hacer modificaciones en un período previamente cerrado para autoliquidación."
        lblLabels(1) = "Período a reabrir"
    End If
    
    LlenarCombo
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set MAdo = Nothing
    Gtc(Micx).ihijas = Gtc(Micx).ihijas - 1
    Set FCO3060 = Nothing
End Sub

Private Sub LlenarCombo()
    Dim sSit As String
    
    cboPeriodo.Clear
    If GsOper = "FCO3060" Then
        sSit = "1"
    Else
        sSit = "2"
    End If
    MAdo.Sql = "SELECT periodo FROM vw_fco_periodos" & _
    " WHERE compania = '" & GsCveCia & "' AND sit_periodo = " & sSit & _
    " ORDER BY 1"
    If MAdo.SendSQL Then
        Do Until MAdo.EOF
            cboPeriodo.AddItem MAdo.GetField(1)
            MAdo.Mnext
        Loop
    End If
End Sub

