rptbill.frm

This a complete inventory management system that performs the functions of Purchases, Sales and paym

VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{00025600-0000-0000-C000-000000000046}#5.2#0"; "Crystl32.OCX"
Begin VB.Form rptBill 
   Caption         =   "iManager - Print Bill"
   ClientHeight    =   5925
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8580
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   5925
   ScaleWidth      =   8580
   WindowState     =   2  'Maximized
   Begin Crystal.CrystalReport CR 
      Left            =   1440
      Top             =   1080
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   348160
      PrintFileLinesPerPage=   60
   End
   Begin TabDlg.SSTab SSTab1 
      Height          =   2655
      Left            =   1200
      TabIndex        =   0
      Top             =   1080
      Width           =   5175
      _ExtentX        =   9128
      _ExtentY        =   4683
      _Version        =   393216
      Tabs            =   1
      TabsPerRow      =   1
      TabHeight       =   520
      TabCaption(0)   =   "Print Bill "
      TabPicture(0)   =   "rptBill.frx":0000
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "Frame1"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).Control(1)=   "cmdShow"
      Tab(0).Control(1).Enabled=   0   'False
      Tab(0).Control(2)=   "Command1"
      Tab(0).Control(2).Enabled=   0   'False
      Tab(0).ControlCount=   3
      Begin VB.CommandButton Command1 
         Caption         =   "&Close"
         Height          =   375
         Left            =   3600
         TabIndex        =   3
         Top             =   2160
         Width           =   1095
      End
      Begin VB.CommandButton cmdShow 
         Caption         =   "&Show"
         Height          =   375
         Left            =   2400
         TabIndex        =   2
         Top             =   2160
         Width           =   1095
      End
      Begin VB.Frame Frame1 
         Height          =   1575
         Left            =   360
         TabIndex        =   1
         Top             =   360
         Width           =   4335
         Begin VB.ComboBox cmbType 
            Height          =   315
            ItemData        =   "rptBill.frx":001C
            Left            =   1320
            List            =   "rptBill.frx":0026
            TabIndex        =   8
            Text            =   "Retail Invoice"
            Top             =   960
            Width           =   2295
         End
         Begin VB.TextBox txtprodId 
            Height          =   285
            Left            =   3960
            TabIndex        =   6
            Top             =   480
            Visible         =   0   'False
            Width           =   1695
         End
         Begin VB.CommandButton cmdDispProd 
            Caption         =   "*"
            Height          =   315
            Left            =   3600
            TabIndex        =   5
            Top             =   480
            Width           =   375
         End
         Begin VB.TextBox txtPname 
            Height          =   315
            Left            =   1320
            TabIndex        =   4
            Top             =   480
            Width           =   2295
         End
         Begin VB.Label Label1 
            Caption         =   "Invoice No."
            Height          =   255
            Left            =   120
            TabIndex        =   7
            Top             =   480
            Width           =   975
         End
      End
   End
End
Attribute VB_Name = "rptBill"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdDispProd_Click()
    popInvoice.Show vbModal
    gId = popInvoice.txtBookID
    txtprodId = Trim(gId)
    txtPname = Trim(gId)
    Unload popInvoice
End Sub

Private Sub cmdShow_Click()
    With CR
            .Reset
            If cmbType.Text = "Retail Invoice" Then
                .ReportFileName = App.Path & "/Reports/BillRetail.rpt"
            Else
                .ReportFileName = App.Path & "/Reports/BillTax.rpt"
            End If
            
            .DataFiles(0) = App.Path & "\Adequate.mdb"
            .DiscardSavedData = True
            .SelectionFormula = "{Bill.inv_no}='" & txtprodId & "'"
            .WindowShowPrintSetupBtn = True
            .WindowShowRefreshBtn = True
            .WindowControlBox = True
            .WindowShowPrintBtn = True
            .WindowMaxButton = True
            .WindowMinButton = True
            .WindowShowCancelBtn = True
            .WindowShowCloseBtn = True
            .WindowShowNavigationCtls = True
            .WindowShowSearchBtn = True
            .WindowState = crptMaximized
            '.PrintReport
            .Action = 1
            
    End With
End Sub

Private Sub Command1_Click()
    Unload Me
End Sub