Context: |
General |
Library/Class: |
Sample Code |
Use of Inputbox() to change stats.DateText As Integer, Read/Write
Const CB_INITIALISE = 3
Const CB_ACTIONONLY = 16
Const CB_BFOREXPORT = 10
Const CB_INVALID = 12
Const CB_CATEGORY = 13
Const CB_TOTAL = 14
Const CB_CONFLICT = 15
Const CB_BFORREADNOTES = 6
Const CB_BFORWRITECOM = 1
Const CB_AFTERWRITECOM = 9
Const CB_BFORCOMACTION = 5
Const CB_BFORNOTESACTION = 2
Const CB_TERMINATE = 4
select case stats.cbstatus
case CB_INITIALISE
If stats.pbar.enabled Then
' if the Integra progress bar is enabled we need
' to temporarely disable it.
Call stats.pbar.DisableProgressBar()
stats.DateText = Inputbox$("Please enter the document date:","Integra for Notes - Example",stats.DateText)
Call stats.pbar.EnableProgressBar(False)
Else
stats.DateText = Inputbox$("Please enter the document date:","Integra for Notes - Example",stats.DateText)
End If
case CB_ACTIONONLY
case CB_BFOREXPORT
case CB_INVALID
case CB_CATEGORY
case CB_TOTAL
case CB_CONFLICT
case CB_BFORREADNOTES
case CB_BFORWRITECOM
case CB_AFTERWRITECOM
case CB_BFORCOMACTION
case CB_BFORNOTESACTION
if not stats.savdoc is nothing then
else
end if
case CB_TERMINATE
end select
|