frmsell.frm

收银机库存销售管理程序

    If EditMode = True Then
        Call MacButton("    Edit", frmSelling.cmdEdit, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
        Press_Button ("SAVE")
    Else
        Call MacButton("   New", frmSelling.cmdAdd, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
        If Search_Exist(txtField(0), "INVOICE_NO", "INVOICE") Then
            Call MessageBox("frmSelling", "Invoice # already exist.", 0)
            frmMessageBox.SetFocus
            Press_Button ("UNDO")
        ElseIf txtField(0) = "" Then
            Call MessageBox("frmSelling", "Invoice # cannot be null", 0)
            frmMessageBox.SetFocus
            Press_Button ("UNDO")
            'ENABLE ONLY FOR SPECIFIC LENGTH OF 5 CHARACTERS NUMBERING
            'ElseIf Len(txtField(0)) > 1 And Len(txtField(0)) < 5 Then
            '    Call MessageBox("frmSelling", "Product number must be 5 in length", 0)
            '    frmMessageBox.SetFocus
            '    Press_Button ("UNDO")
        Else
            Press_Button ("SAVE")
        End If
    End If
    Call MacButton("   Save", frmSelling.cmdSave, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
'ErrorSave:
'        Call MessageBox("frmSelling", Err.Description, 0)
End Sub

Private Sub cmdSave_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("   Save", frmSelling.cmdSave, 0, 0, 73, 50, frmLogin.Source, 74, 0, 1)
End Sub

Private Sub cmdSave_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("   Save", frmSelling.cmdSave, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
End Sub

Private Sub cmdStop_Click()
    txtField(0).TabStop = True
    txtField(1).TabStop = True
    DTPick.TabStop = True
    txtTotal.TabStop = True
    txtPaid.TabStop = True
    txtChange.TabStop = True
    txtWord.TabStop = False
    txtQuantitySold.TabStop = False
    DetailBoxContainer.Visible = False
    Call MacButton("   Close", frmSelling.cmdStop, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
End Sub

Private Sub cmdStop_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("   Close", frmSelling.cmdStop, 0, 0, 73, 50, frmLogin.Source, 74, 0, 1)
End Sub

Private Sub cmdStop_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("   Close", frmSelling.cmdStop, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
End Sub

Private Sub cmdTag_Click()
    On Error Resume Next
    If Valid_Fields Then
        invoice.AddNew
        invoice("INVOICE_NOD") = txtField(0)
        invoice("QTYSOLD") = txtQuantitySold
        invoice("PRODCODE") = txtProductCode
        invoice.Update
        Call Update_Stocks(frmSelling.txtProductCode, False, frmSelling.txtQuantitySold)
        txtAvailableStock = Convert_Numeric(CDbl(frmSelling.txtAvailableStock) - CDbl(frmSelling.txtQuantitySold), False)
        txtTotalCost = Convert_Numeric(CDbl(frmSelling.txtUnitCost) * CDbl(frmSelling.txtAvailableStock), True)
        Set invoice = frmLogin.db.OpenRecordset("select * from INVOICE_DETAIL where INVOICE_NOD = '" & txtField(0) & "'")
        datSecondaryRS.Refresh
        txtTotal = dspTotal
    End If
    Call MacButton("    Tag", frmSelling.cmdTag, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
End Sub

Private Sub cmdTag_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("    Tag", frmSelling.cmdTag, 0, 0, 73, 50, frmLogin.Source, 74, 0, 1)
End Sub

Private Sub cmdTag_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("    Tag", frmSelling.cmdTag, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
End Sub

Function Valid_Fields() As Boolean
    On Error Resume Next
    Dim r_val As Boolean
    r_val = True
    If txtField(0) = "" Then
        Call MessageBox("frmSelling", "Invoice Number required.", 0)
        frmMessageBox.SetFocus
        r_val = False
    End If
    If txtProductCode = "" Then
        r_val = False
        Call MessageBox("frmSelling", "Product Number required.", 0)
        frmMessageBox.SetFocus
    End If
    If txtQuantitySold = "" Then
        r_val = False
    End If
    If CDbl(txtAvailableStock) < CDbl(txtQuantitySold) Then
        Call MessageBox("frmSelling", "Quantity Sold must be less than available product.", 0)
        frmMessageBox.SetFocus
        txtQuantitySold.SetFocus
        r_val = False
    End If
    Valid_Fields = r_val
End Function

Private Sub cmdReturn_Click()
    On Error Resume Next
    Call Update_Stocks(txtProductCode, True, txtQuantitySold)
    Delete_Detail
    txtAvailableStock = Convert_Numeric(CDbl(txtAvailableStock) + CDbl(txtQuantitySold), False)
    txtTotalCost = Convert_Numeric(CDbl(txtUnitCost) * CDbl(txtAvailableStock), True)
    Set invoice = frmLogin.db.OpenRecordset("select * from INVOICE_DETAIL where INVOICE_NOD = '" & txtField(0) & "'")
    datSecondaryRS.Refresh
    txtTotal = dspTotal
    Call MacButton("  Return", frmSelling.cmdReturn, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
End Sub

Private Sub cmdReturn_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("  Return", frmSelling.cmdReturn, 0, 0, 73, 50, frmLogin.Source, 74, 0, 1)
End Sub

Private Sub cmdReturn_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("  Return", frmSelling.cmdReturn, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
End Sub

Private Sub Delete_Detail()
    On Error Resume Next
    strs = "select * from INVOICE_DETAIL where PRODCODE = '" & txtProductCode & "'"
    Set dummy = frmLogin.db.OpenRecordset(strs)
    If dummy.AbsolutePosition <> -1 Then
        With dummy
            .Edit
            .Fields("QTYSOLD") = .Fields("QTYSOLD") - txtQuantitySold
            .Update
            If .Fields("QTYSOLD") < 1 Then
                .Delete
                .MoveFirst
            End If
        End With
    End If
End Sub

Private Sub cmdTop_Click()
    On Error Resume Next
    Press_Button ("TOP")
End Sub

Private Sub cmdTop_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("p", frmSelling.cmdTop, 0, 0, 100, 50, frmLogin.Source, 112, 39, 3)
End Sub

Private Sub cmdTop_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("p", frmSelling.cmdTop, 0, 0, 100, 50, frmLogin.Source, 138, 39, 3)
End Sub

Private Sub cmdTotal_Click()
    txtPaid.SetFocus
    Call MacButton("     Total-Payment", frmSelling.cmdTotal, 0, 0, 170, 30, frmLogin.Source, 147, 0, 2)
End Sub

Private Sub cmdTotal_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("     Total-Payment", frmSelling.cmdTotal, 0, 0, 170, 30, frmLogin.Source, 182, 30, 2)
End Sub

Private Sub cmdTotal_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("     Total-Payment", frmSelling.cmdTotal, 0, 0, 170, 30, frmLogin.Source, 147, 0, 2)
End Sub

Private Sub cmdUndo_Click()
'    On Error GoTo ErrorUndo
    If EditMode = True Then
        Call MacButton("    Edit", frmSelling.cmdEdit, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
    Else
        Call MacButton("   New", frmSelling.cmdAdd, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
    End If
    Press_Button ("UNDO")
    Call MacButton("   Undo", frmSelling.cmdUndo, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
'ErrorUndo:
End Sub

Private Sub cmdUndo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("   Undo", frmSelling.cmdUndo, 0, 0, 73, 50, frmLogin.Source, 74, 0, 1)
End Sub

Private Sub cmdUndo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call MacButton("   Undo", frmSelling.cmdUndo, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
End Sub

Private Sub datPrimaryRS_Error(DataErr As Integer, Response As Integer)
    Call MessageBox("frmSelling", "Data error event hit err:" & Error$(DataErr), 0)
    Response = 0
End Sub

Private Sub datPrimaryRS_Reposition()
    On Error Resume Next
    Screen.MousePointer = vbDefault
    recTxt.Text = "Record: " & (datPrimaryRS.Recordset.AbsolutePosition + 1)
    datSecondaryRS.RecordSource = " select DESCRIPTION, QTY_SOLD, AMOUNT from QRYINVOICE where INVOICE_NO = '" & datPrimaryRS.Recordset![INVOICE_NO] & "'"
    datSecondaryRS.Refresh
End Sub

Private Sub Form_Activate()
    On Error Resume Next
    Enable_Buttons
    Enable_Buttons
    datPrimaryRS.DatabaseName = App.Path & "\DATABASE\POSDATA.MDB"
    datSecondaryRS.DatabaseName = App.Path & "\DATABASE\POSDATA.MDB"
    txtTotal = dspTotal
End Sub

Private Sub Form_Load()
    On Error Resume Next
    Call ColForm(BoxContainer, 217, 211, 213, 125)
    Call ColForm(CounterContainer, 217, 211, 213, 125)
    Call ColForm(DetailsContainer, 217, 211, 213, 125)
    Call ColForm(DetailBoxContainer, 217, 211, 213, 125)
    Call ColForm(ButtonContainer, 217, 211, 213, 125)
    Call CreateMacOSTitleBar(titleBar, " Selling Transaction ")
    Call CreateMacOSTitleBar(titleBar2, " Tag/Return Items Selection ")
    Call BitBlt(frmSelling.Closed.hDC, 0, 0, 73, 50, frmLogin.Source.hDC, 0, 107, SRCCOPY)
    frmMain.Closed.Refresh
    Call BitBlt(frmSelling.Maximized.hDC, 0, 0, 73, 50, frmLogin.Source.hDC, 0, 72, SRCCOPY)
    frmMain.Maximized.Refresh
    Call BitBlt(frmSelling.Minimized.hDC, 0, 0, 73, 50, frmLogin.Source.hDC, 0, 124, SRCCOPY)
    frmMain.Minimized.Refresh
    Call MacButton("   New", frmSelling.cmdAdd, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
    Call MacButton("    Edit", frmSelling.cmdEdit, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
    Call MacButton("   Save", frmSelling.cmdSave, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
    Call MacButton("   Undo", frmSelling.cmdUndo, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
    Call MacButton("  Delete", frmSelling.cmdDelete, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
    Call MacButton("   Print", frmSelling.cmdPrint, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
    Call MacButton("   Help", frmSelling.cmdHelp, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
    Call MacButton("   Find", frmSelling.cmdFind, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
    Call MacButton("    Exit", frmSelling.cmdClose, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
    Call MacButton("    Tag", frmSelling.cmdTag, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
    Call MacButton("  Return", frmSelling.cmdReturn, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
    Call MacButton("   Close", frmSelling.cmdStop, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
    Call MacButton("   Tag/Return Items", frmSelling.cmdDetail, 0, 0, 170, 30, frmLogin.Source, 147, 0, 2)
    Call MacButton("     Total-Payment", frmSelling.cmdTotal, 0, 0, 170, 30, frmLogin.Source, 147, 0, 2)
    Call MacButton("p", frmSelling.cmdTop, 0, 0, 100, 50, frmLogin.Source, 138, 39, 3)
    Call MacButton("u", frmSelling.cmdNext, 0, 0, 100, 50, frmLogin.Source, 138, 39, 3)
    Call MacButton("t", frmSelling.cmdPrev, 0, 0, 100, 50, frmLogin.Source, 138, 39, 3)
    Call MacButton("q", frmSelling.cmdLast, 0, 0, 100, 50, frmLogin.Source, 138, 39, 3)
    KeyPreview = True
    datPrimaryRS.DatabaseName = App.Path & "\DATABASE\POSDATA.MDB"
    datSecondaryRS.DatabaseName = App.Path & "\DATABASE\POSDATA.MDB"
    Set datprimary2 = frmLogin.db.OpenRecordset("select * from SETUP order by COMPANY_NAME")
    Set invoice = frmLogin.db.OpenRecordset("select * from INVOICE_DETAIL where INVOICE_NOD = '" & txtField(0) & "'")
    p_isadding = False
    p_isadding = False
    p_isediting = False
    Enable_Fields (True)
'    frmLogin.Show
'    frmLogin.Hide
    frmSelling.txtWord.SelLength = Len(frmSelling.txtWord.Text)
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    On Error Resume Next
    Dim AltDown
    AltDown = (Shift And vbAltMask) > 0
    Select Case KeyCode
        Case vbKeyEscape:
                Me.Hide
        Case vbKeyN:
                If AltDown Then
                    Call MacButton("   New", frmSelling.cmdAdd, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
                End If
        Case vbKeyE:
                If AltDown Then
                    Call MacButton("    Edit", frmSelling.cmdEdit, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
                End If
        Case vbKeyS:
                If AltDown Then
                    Call MacButton("   Save", frmSelling.cmdSave, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
                End If
        Case vbKeyU:
                If AltDown Then
                    Call MacButton("   Undo", frmSelling.cmdUndo, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
                End If
        Case vbKeyD:
                If AltDown Then
                    Call MacButton("  Delete", frmSelling.cmdDelete, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
                End If
        Case vbKeyP:
                If AltDown Then
                    Call MacButton("   Print", frmSelling.cmdPrint, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
                End If
        Case vbKeyH:
                If AltDown Then
                    Call MacButton("   Help", frmSelling.cmdHelp, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
                End If
        Case vbKeyF:
                If AltDown Then
                    Call MacButton("   Find", frmSelling.cmdFind, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
                End If
        Case vbKeyX:
                If AltDown Then
                    Call MacButton("    Exit", frmSelling.cmdClose, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
                End If
        Case vbKeyI:
                If AltDown Then
                    Call MacButton("   Tag/Return Items", frmSelling.cmdDetail, 0, 0, 170, 30, frmLogin.Source, 147, 0, 2)
                End If
        Case vbKeyY:
                If AltDown Then
                    Call MacButton("     Total-Payment", frmSelling.cmdTotal, 0, 0, 170, 30, frmLogin.Source, 147, 0, 2)
                End If
        Case vbKeyT:
                If AltDown Then
                    Call MacButton("    Tag", frmSelling.cmdTag, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
                End If
        Case vbKeyR:
                If AltDown Then
                    Call MacButton("  Return", frmSelling.cmdReturn, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
                End If
        Case vbKeyC:
                If AltDown Then
                    Call MacButton("   Close", frmSelling.cmdStop, 0, 0, 73, 50, frmLogin.Source, 0, 0, 1)
                End If
        Case vbKeyLeft:
                If AltDown Then
                    Call MacButton("t", frmSelling.cmdPrev, 0, 0, 100, 50, frmLogin.Source, 138, 39, 3)