Woozle at 12:55, 14 October 2022

2022-10-14T12:55:21Z

← Older revision		Revision as of 12:55, 14 October 2022
Line 1:		Line 1:
	[[File:vbzcart-MSAccess-sfrmPackages.png]]		[[File:vbzcart-MSAccess-sfrmPackages.png]]
	<VB>		<syntaxhighlight lang=VB>
	Option Explicit		Option Explicit
	Public Property Get PkgItem() As clsPackageItem		Public Property Get PkgItem() As clsPackageItem
Line 102:		Line 102:
	End With		End With
	End Sub		End Sub
	</VB>		</syntaxhighlight>

Woozle: Woozle moved page VbzCart/code/VBA/Form sfrmPackageItems to VbzCart/archive/code/VBA/Form sfrmPackageItems

2014-12-19T02:08:56Z

Woozle moved page VbzCart/code/VBA/Form sfrmPackageItems to VbzCart/archive/code/VBA/Form sfrmPackageItems

← Older revision	Revision as of 02:08, 19 December 2014
(No difference)

Woozle: form image

2014-05-08T12:11:21Z

form image

← Older revision		Revision as of 12:11, 8 May 2014
Line 1:		Line 1:
			[[File:vbzcart-MSAccess-sfrmPackages.png]]
	<VB>		<VB>
	Option Explicit		Option Explicit

Woozle: Created page with " Option Explicit Public Property Get PkgItem() As clsPackageItem If IsNull(Me.ID) Then Set PkgItem = Nothing Else Set PkgItem = clsPackageItems.Ite..."

2014-05-08T11:52:07Z

Created page with "<VB> Option Explicit Public Property Get PkgItem() As clsPackageItem If IsNull(Me.ID) Then Set PkgItem = Nothing Else Set PkgItem = clsPackageItems.Ite..."

New page

<VB>
Option Explicit
Public Property Get PkgItem() As clsPackageItem
If IsNull(Me.ID) Then
Set PkgItem = Nothing
Else
Set PkgItem = clsPackageItems.Item(Me.ID)
End If
End Property
Public Function QtyNotPackedEver() As Variant
' ACTION: returns the quantity of the current item which hasn't yet been packed at all (before or after this package)
Dim objPkgItm As clsPackageItem
Dim objOrdItm As clsOrderItem

If ItemExists Then
Set objPkgItm = Me.PkgItem
If objPkgItm Is Nothing Then
QtyNotPackedEver = "new"
Else
If objPkgItm.WasOrdered Then
Set objOrdItm = objPkgItm.OrderItem
If objOrdItm Is Nothing Then
QtyNotPackedEver = "n/a"
Else
With objOrdItm
QtyNotPackedEver = .QtyOrd - .QtyDone
End With
End If
Else
QtyNotPackedEver = "n/a"
End If
End If
Else
QtyNotPackedEver = Null
End If
End Function
Public Function QtyNotYetPacked() As Variant
' ACTION: returns the quantity of the current item which had not been packed as of this package's timestamp
Dim objItem As clsPackageItem ' package item

If IsNull(Me.ID) Then
QtyNotYetPacked = Null
Else
Set objItem = Me.PkgItem
If objItem Is Nothing Then
QtyNotYetPacked = "n/a"
Else
With objItem
If .WasOrdered Then
QtyNotYetPacked = .QtyYetToPack
Else
QtyNotYetPacked = "sub"
End If
End With
End If
End If
End Function
Private Property Get ItemExists() As Boolean
ItemExists = Not IsNull(Me.ID)
End Property
Private Property Let Status(iText As String)
With Me.lblStatus
If iText = "" Then
.Visible = False
Else
.Caption = iText
.Visible = True
End If
End With
DoEvents
End Property
Private Sub btnPullItem_Click()
' ACTION: Allow user to select quantity to pull and location to pull from.
Dim objPLine As clsPackageItem

Set objPLine = clsPackageItems.Item(Me.ID)
With clsForms.Dlg_SelectLocation_andQty
.Item_ID = Me.ID_Item
Do
If .doFetch("select location and quantity") Then
objPLine.FetchFromLocation .Location, .Qty
Status = .Qty & " items fetched; " & objPLine.QtyShipped & " items in pkg to ship"
Me.Requery
End If
Loop Until .isDone
End With
Status = ""
End Sub
Private Sub cbxItem_DblClick(Cancel As Integer)
clsForms.ItemView.Locate Me.cbxItem
End Sub
Private Sub Form_Resize()
Dim glWd As Single

With Me.editNotes
glWd = Me.InsideWidth - .Left - 300
If glWd > 0 Then
.Width = glWd
Me.Width = .Width
End If
End With
End Sub
</VB>

VbzCart/archive/code/VBA/Form sfrmPackageItems - Revision history

Woozle at 12:55, 14 October 2022

Woozle: Woozle moved page VbzCart/code/VBA/Form sfrmPackageItems to VbzCart/archive/code/VBA/Form sfrmPackageItems

Woozle: form image

Woozle: Created page with " Option Explicit Public Property Get PkgItem() As clsPackageItem If IsNull(Me.ID) Then Set PkgItem = Nothing Else Set PkgItem = clsPackageItems.Ite..."