VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmReport 
   Caption         =   "Print Report"
   ClientHeight    =   2580
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6420
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   ScaleHeight     =   2580
   ScaleWidth      =   6420
   StartUpPosition =   2  'CenterScreen
   Begin VB.TextBox txtEndDate 
      Height          =   330
      Left            =   2600
      TabIndex        =   2
      Top             =   660
      Width           =   1695
   End
   Begin VB.TextBox txtBegDate 
      Height          =   330
      Left            =   2600
      TabIndex        =   1
      Top             =   180
      Width           =   1695
   End
   Begin VB.Frame fraInstructions 
      Height          =   735
      Left            =   120
      TabIndex        =   15
      Top             =   1740
      Visible         =   0   'False
      Width           =   4815
      Begin VB.Label lblInstructions 
         Caption         =   "What do I do?"
         Height          =   555
         Left            =   120
         TabIndex        =   16
         Top             =   120
         Width           =   4575
         WordWrap        =   -1  'True
      End
   End
   Begin VB.TextBox txtField 
      Height          =   330
      Left            =   3840
      TabIndex        =   14
      TabStop         =   0   'False
      Top             =   1560
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "&OK"
      Height          =   330
      Left            =   5100
      TabIndex        =   6
      Top             =   240
      Width           =   1200
   End
   Begin MSComDlg.CommonDialog CMDialog1 
      Left            =   5940
      Top             =   0
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.TextBox txtCopies 
      Height          =   330
      Left            =   2600
      TabIndex        =   3
      Text            =   "1"
      Top             =   1140
      Width           =   600
   End
   Begin VB.TextBox txtWindowTitle 
      Height          =   315
      Left            =   5640
      TabIndex        =   10
      TabStop         =   0   'False
      Top             =   1200
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.TextBox txtReportName 
      Height          =   315
      Left            =   5280
      TabIndex        =   9
      TabStop         =   0   'False
      Top             =   1080
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   330
      Left            =   5100
      TabIndex        =   8
      Top             =   1560
      Width           =   1200
   End
   Begin VB.CommandButton cmdPrnSetup 
      Caption         =   "Printer &Setup"
      Height          =   330
      Left            =   5100
      TabIndex        =   7
      Top             =   720
      Width           =   1200
   End
   Begin VB.Frame fraDestination 
      Caption         =   "Destination"
      Height          =   1515
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   1200
      Begin VB.OptionButton optDest 
         Caption         =   "Printer"
         Height          =   330
         Index           =   1
         Left            =   120
         TabIndex        =   5
         Top             =   900
         Width           =   1000
      End
      Begin VB.OptionButton optDest 
         Caption         =   "Window"
         Height          =   330
         Index           =   0
         Left            =   120
         TabIndex        =   4
         Top             =   360
         Value           =   -1  'True
         Width           =   1000
      End
   End
   Begin VB.Label lblEndDate 
      Alignment       =   1  'Right Justify
      Caption         =   "Ending Date:"
      Height          =   330
      Left            =   1560
      TabIndex        =   13
      Top             =   780
      Width           =   1005
   End
   Begin VB.Label lblBegDate 
      Alignment       =   1  'Right Justify
      Caption         =   "Beginning Date:"
      Height          =   330
      Left            =   1420
      TabIndex        =   12
      Top             =   290
      Width           =   1155
   End
   Begin VB.Label lblCopies 
      Alignment       =   1  'Right Justify
      Caption         =   "Copies:"
      Height          =   330
      Left            =   1950
      TabIndex        =   11
      Top             =   1200
      Width           =   600
   End
End
Attribute VB_Name = "frmReport"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim strReportName As String, strField As String

Private Sub cmdExit_Click()
   frmReport.txtBegDate.Visible = False
   frmReport.txtEndDate.Visible = False
   frmReport.lblBegDate.Visible = False
   frmReport.lblEndDate.Visible = False
   gintPRINT = 0
   
   Unload Me
   
End Sub

Private Sub cmdOK_Click()
Dim intOK As Integer, intVldErr As Integer
Dim strMSG As String, strTitle As String, strSelection As String
Dim dteBegDate As Date, dteEndDate As Date
Dim strBYear As String, strBMonth As String, strBDay As String
Dim strEYear As String, strEMonth As String, strEDay As String
'({tblLOTINFO.SORDER} >= {?BegDate} and {tblLOTINFO.SORDER} <= {?EndDate}) or ({tblLOTINFO.SORDER} >= {?BegDate} and {tblLOTINFO.SORDER} <= {?EndDate})
   
'   If gintPRINT = 9 Then
'      If txtBegDate <> "" Then
'         If IsDate(txtBegDate) Then
'            dteBegDate = DateValue(txtBegDate)
'            dteEndDate = DateValue(txtEndDate)
'         End If
'      Else
'         dteBegDate = DateValue("01/01/1980")
'         dteEndDate = DateValue("12/31/2099")
'      End If
'   End If
'   strBYear = Year(dteBegDate)
'   strBMonth = Format(Month(dteBegDate), "00")
'   strBDay = Format(Day(dteBegDate), "00")
'   strEYear = Year(dteEndDate)
'   strEMonth = Format(Month(dteEndDate), "00")
'   strEDay = Format(Day(dteEndDate), "00")
'   gintDEST = ""
   gstrBEGDATE = Field2Str(txtBegDate)
   gstrENDDATE = Field2Str(txtEndDate)
   gintCOPY = Integer2Field(txtCopies)
   gboolPRINT = True
   Unload Me

End Sub

Private Sub cmdPrnSetup_Click()
   CMDialog1.Flags = &H40
   CMDialog1.Action = 5
End Sub

Private Sub Form_Activate()
   
   
   If gintPRINT = 1 Then
      txtBegDate.Visible = False
      txtEndDate.Visible = False
      lblBegDate.Visible = False
      lblEndDate.Visible = False
   End If
   
   If gintPRINT = 8 Then
      txtEndDate.Visible = False
      lblEndDate.Visible = False
   End If
   
   If gintPRINT = 9 Then
      txtBegDate.Visible = False
      txtEndDate.Visible = False
      lblBegDate.Visible = False
      lblEndDate.Visible = False
   End If
   
   'Set Default Copies
   txtCopies = 1
   gintCOPY = 1
   gintDEST = 0
   gboolPRINT = False
   
End Sub

Private Sub optDest_Click(Index As Integer)
   If optDest(0) Then
      gintDEST = crptToWindow
   End If
   If optDest(1) Then
      gintDEST = crptToPrinter
   End If
End Sub


Private Sub txtBegDate_LostFocus()
Dim lngPOS As Long

   If gintPRINT = 9 Or gintPRINT = 8 Then
      lngPOS = InStr(1, txtBegDate, "/", 1)
      If lngPOS = 0 Then
         If Len(txtBegDate) > 0 Then
            txtBegDate = Format(txtBegDate, "00/00/####")
            If Not IsDate(txtBegDate) Then
               MsgBox "The Date You Entered is not Valid - ReEnter"
               txtBegDate.SetFocus
               Exit Sub
            End If
         End If
      Else
         MsgBox "Invalid Date Format, Enter as 12312009", , "Invalid Date - ReEnter"
         txtBegDate.SetFocus
         Exit Sub
      End If
      If txtBegDate = "" Then
         Exit Sub
      End If
      If Not IsDate(txtBegDate) Then
         MsgBox "A Valid Date is Required", 0, "Invalid Beginning Date"
         txtBegDate.SetFocus
      End If
   End If
   
End Sub

Private Sub txtCopies_GotFocus()
   Call FieldSelect(txtCopies)
End Sub

Private Sub txtEndDate_LostFocus()
Dim lngPOS As Long

   If gintPRINT = 9 Then
      lngPOS = InStr(1, txtEndDate, "/", 1)
      If lngPOS = 0 Then
         If Len(txtEndDate) > 0 Then
            txtEndDate = Format(txtEndDate, "00/00/####")
            If Not IsDate(txtEndDate) Then
               MsgBox "The Date You Entered is not Valid - ReEnter"
               txtEndDate.SetFocus
               Exit Sub
            End If
         End If
      Else
         MsgBox "Invalid Date Format, Enter as 12312009", , "Invalid Date - ReEnter"
         txtEndDate.SetFocus
         Exit Sub
      End If
      If txtEndDate = "" Then
         Exit Sub
      End If
      If Not IsDate(txtEndDate) Then
         MsgBox "A Valid Date is Required", 0, "Invalid Beginning Date"
         txtEndDate.SetFocus
      End If
   End If
   
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
      SendKeys "{TAB}"
      KeyAscii = 0
   End If

End Sub