Woozle at 12:49, 14 October 2022

2022-10-14T12:49:04Z

← Older revision		Revision as of 12:49, 14 October 2022
Line 1:		Line 1:
	syntaxhighlight lang=<VB>		<syntaxhighlight lang=VB>
	' CLASS: clsPackages		' CLASS: clsPackages

Woozle at 12:48, 14 October 2022

2022-10-14T12:48:47Z

← Older revision		Revision as of 12:48, 14 October 2022
Line 1:		Line 1:
	<VB>		syntaxhighlight lang=<VB>
	' CLASS: clsPackages		' CLASS: clsPackages

Line 100:		Line 100:
	' Set Create = objNew		' Set Create = objNew
	'End Function		'End Function
	</VB>		</syntaxhighlight>

Woozle: Woozle moved page VbzCart/code/VBA/clsPackageItems to VbzCart/archive/code/VBA/clsPackageItems

2014-12-19T02:08:59Z

Woozle moved page VbzCart/code/VBA/clsPackageItems to VbzCart/archive/code/VBA/clsPackageItems

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

Woozle: Created page with " ' CLASS: clsPackages Option Compare Database Option Explicit Private rs As Recordset Private intAccessCount As Long Public Sub Init() intAccessCount = 0 Set rs ..."

2014-05-08T00:49:01Z

Created page with "<VB> ' CLASS: clsPackages Option Compare Database Option Explicit Private rs As Recordset Private intAccessCount As Long Public Sub Init() intAccessCount = 0 Set rs ..."

New page

<VB>
' CLASS: clsPackages

Option Compare Database
Option Explicit

Private rs As Recordset
Private intAccessCount As Long
Public Sub Init()
intAccessCount = 0
Set rs = Nothing
End Sub
Public Property Get Data() As Recordset
Set Data = rs
End Property
Public Property Get Data_Items() As Recordset
' Set Data_Items = CurrentDb.OpenRecordset("qryPkgItems_Items", dbOpenSnapshot)
Set Data_Items = CurrentDb.OpenRecordset("Package Items", dbOpenSnapshot)
End Property
Public Sub DataOpen()
If intAccessCount = 0 Then
Set rs = CurrentDb.OpenRecordset("Package Items", dbOpenDynaset)
End If
intAccessCount = intAccessCount + 1
End Sub
Public Sub DataShut()
intAccessCount = intAccessCount - 1
If intAccessCount = 0 Then
rs.Close
Set rs = Nothing
End If
End Sub
Public Property Get Item(iID As Long) As clsPackageItem
Dim objItem As clsPackageItem

Me.DataOpen
With Me.Data
.FindFirst "ID=" & iID
If .NoMatch Then
' MsgBox "Package ID " & iID & " not found", vbCritical, "Internal Error"
Set objItem = Nothing
Else
Set objItem = New clsPackageItem
objItem.Init .Fields
End If
End With
Me.DataShut
Set Item = objItem
End Property
Public Property Get Packings(iOrderItem As Long) As Scripting.Dictionary
' ACTION: returns a list of all packings of the given order item
Dim strFilt As String
Dim objList As Scripting.Dictionary
Dim objItem As clsPackageItem

strFilt = "ID_OrderItem=" & iOrderItem
Set objList = New Scripting.Dictionary
Me.DataOpen
With Me.Data
.FindFirst strFilt
Do Until .NoMatch
Set objItem = New clsPackageItem
objItem.Init .Fields
objList.Add objItem, objItem.ID
.FindNext strFilt
Loop
End With
Me.DataShut
Set Packings = objList
End Property
'Public Function Create(iOrder As Long) As clsPackage
'' ACTION: create a new package record/object
' Dim objNew As clsPackage
' Dim intCode As Long
' Dim strFilt As String
'
' Set objNew = New clsPackage
' Me.DataOpen
' With Me.Data
' ' find the highest used package code
' strFilt = "ID_Order=" & iOrder
' .FindFirst strFilt
' Do Until .NoMatch
' If intCode < !Seq Then
' intCode = !Seq
' End If
' .FindNext strFilt
' Loop
' intCode = intCode + 1 ' then increment it by one
'
' ' now create the new record
' .AddNew
' !ID_Order = iOrder
' !Code = intCode
' !WhenStarted = Now
' .Update
' objNew.Init .Fields
' End With
' Me.DataShut
' Set Create = objNew
'End Function
</VB>

VbzCart/archive/code/VBA/clsPackageItems - Revision history

Woozle at 12:49, 14 October 2022

Woozle at 12:48, 14 October 2022

Woozle: Woozle moved page VbzCart/code/VBA/clsPackageItems to VbzCart/archive/code/VBA/clsPackageItems

Woozle: Created page with " ' CLASS: clsPackages Option Compare Database Option Explicit Private rs As Recordset Private intAccessCount As Long Public Sub Init() intAccessCount = 0 Set rs ..."