frmadmin.frm

Call centeer gestion de usuarios todo ello gratis y bajo windows

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmINOUT 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "In and Out Guest"
   ClientHeight    =   3810
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   7935
   BeginProperty Font 
      Name            =   "Arial"
      Size            =   9
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmAdmin.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3810
   ScaleWidth      =   7935
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame2 
      Caption         =   "Checkout"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00008000&
      Height          =   3375
      Left            =   4080
      TabIndex        =   2
      Top             =   240
      Width           =   3615
      Begin MSComCtl2.MonthView MonthView2 
         Height          =   2820
         Left            =   240
         TabIndex        =   3
         Top             =   360
         Width           =   3120
         _ExtentX        =   5503
         _ExtentY        =   4974
         _Version        =   393216
         ForeColor       =   0
         BackColor       =   -2147483633
         Appearance      =   1
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         MonthBackColor  =   16761024
         StartOfWeek     =   54132737
         TitleBackColor  =   16744576
         TitleForeColor  =   16777215
         TrailingForeColor=   8454143
         CurrentDate     =   38263
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Check-In"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00008000&
      Height          =   3375
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   3615
      Begin MSComCtl2.MonthView MonthView1 
         Height          =   2820
         Left            =   240
         TabIndex        =   1
         Top             =   360
         Width           =   3120
         _ExtentX        =   5503
         _ExtentY        =   4974
         _Version        =   393216
         ForeColor       =   0
         BackColor       =   -2147483633
         Appearance      =   1
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         MonthBackColor  =   16761024
         StartOfWeek     =   54132737
         TitleBackColor  =   16744576
         TitleForeColor  =   16777215
         TrailingForeColor=   8454143
         CurrentDate     =   38263
      End
   End
End
Attribute VB_Name = "frmINOUT"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False



Private Sub Form_Load()
MonthView1 = Date
MonthView1 = Date

End Sub
Public Sub GenerateOut(thedate As Date)

    check_RS
    rs.Open "exec out #" & thedate & "#", Cnn ', adOpenDynamic, adLockOptimistic
    With rptout
        Set .DataSource = rs
            
        With .Sections("Section4").Controls
            For i = 1 To .Count
                If TypeOf .Item(i) Is RptLabel Then
                    If .Item(i).Name = "lbldate" Then
                        .Item(i).Caption = thedate
                    End If
                End If
            Next i
        End With
        
            .Refresh
        'Unload frmReports
        .Show vbModal
    End With
    rs.Close
End Sub

Public Sub GenerateIn(thedate As Date)

    check_RS2
    rs2.Open "exec CIN #" & thedate & "#", Cnn ', adOpenDynamic, adLockOptimistic
    With rptIn
        Set .DataSource = rs2
            
        With .Sections("Section4").Controls
            For i = 1 To .Count
                If TypeOf .Item(i) Is RptLabel Then
                    If .Item(i).Name = "lblDate" Then
                        .Item(i).Caption = thedate
                    End If
                End If
            Next i
        End With
        
            .Refresh
        'Unload frmReports
        .Show vbModal
    End With
    rs2.Close
End Sub



Private Sub MonthView1_DateDblClick(ByVal DateClicked As Date)
GenerateIn CDate(MonthView1.Value)
End Sub

Private Sub MonthView2_DateDblClick(ByVal DateClicked As Date)
GenerateOut CDate(MonthView2.Value)

End Sub