Woozle at 12:50, 14 October 2022

2022-10-14T12:50:29Z

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

Line 70:		Line 70:
	End If		End If
	End Property		End Property
	</VB>		</syntaxhighlight>

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

2014-12-19T02:09:00Z

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

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

Woozle: Created page with " ' CLASS: clsPackageQueueItem Option Compare Database Option Explicit Private vID As Long Private vPackage As Long Private vReport As String Private vWhenPrinted As Varia..."

2014-05-08T00:50:50Z

Created page with "<VB> ' CLASS: clsPackageQueueItem Option Compare Database Option Explicit Private vID As Long Private vPackage As Long Private vReport As String Private vWhenPrinted As Varia..."

New page

<VB>
' CLASS: clsPackageQueueItem

Option Compare Database
Option Explicit
Private vID As Long
Private vPackage As Long
Private vReport As String
Private vWhenPrinted As Variant
Public Sub Init(iFields As Fields)
With iFields
vID = !ID
vPackage = !ID_Package
vReport = !ReportName
vWhenPrinted = !WhenPrinted
End With
End Sub
Public Sub Create(iPackage As Long, iReport As String)
With clsPackageQueue
.DataOpen
With .Data
.AddNew
vID = !ID
!ID_Package = iPackage
!ReportName = iReport
.Update
End With
.DataShut
End With
End Sub
Public Property Get Package_ID() As Long
Package_ID = vPackage
End Property
Public Property Get Report() As String
Report = vReport
End Property
Public Property Get WhenPrinted() As Date
WhenPrinted = vWhenPrinted
End Property
Public Property Get Printed() As Boolean
Printed = Not IsNull(vWhenPrinted)
End Property
Private Function Located() As Boolean
With clsPackageQueue
.DataOpen
With .Data
.FindFirst "ID=" & vID
Located = Not .NoMatch
End With
.DataShut
End With
End Function
Public Property Let Printed(iDone As Boolean)
If iDone <> Me.Printed Then
With clsPackageQueue
.DataOpen
If Located Then
With .Data
.Edit
If iDone Then
' set the timestamp
!WhenPrinted = Now
Else
!WhenPrinted = Null
End If
.Update
End With
End If
End With
End If
End Property
</VB>

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

Woozle at 12:50, 14 October 2022

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

Woozle: Created page with " ' CLASS: clsPackageQueueItem Option Compare Database Option Explicit Private vID As Long Private vPackage As Long Private vReport As String Private vWhenPrinted As Varia..."