Context: |
General |
Library/Class: |
Sample Code |
Insert Excel row on value change of Category Formula As Integer, Read/Write
Note: since version 4.3 this can be achieved using the CB_CATEGORY event or by looking at the stats.CurCatValue and stats.CurCatLevel property. However, the CB_CATEGORY event as well as the two StaticVars properties are not available for all export scenarios, hence this sample is still very much valid for exports running on selected documents.
One particular useful example how the list of categories can be utilised within the Callback Script field is, for instance, to insert an extra row into an Excel spreadsheet whenever the category is changing from one exported Notes document to the next document one.
In the Excel export profile created with Integra two things have to be provided to make the code example work:
Select the Save As... option so that the Category Formula field appears. Enter a formula that references to a field on the Notes document that is used also in the view for the categorisation. This as the order of the view categorisation has to match the categories evaluated for inserting category rows into Excel. Remove the SaveAs... option if it is not to be used for the profile.
As the first field in the Selected Field List add a computed (formula) field called Category and leave the formula set to None. Then add all the other fields that are to be exported to Excel.
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
case CB_ACTIONONLY
case CB_BFOREXPORT
case CB_INVALID
case CB_CATEGORY
case CB_TOTAL
case CB_CONFLICT
case CB_BFORREADNOTES
case CB_BFORWRITECOM
Dim InsCat As Integer
InsCat = False
If stats.KeyCnt = 0 Then
ElseIf Not stats.Category(stats.KeyCnt-1) = stats.Category(stats.KeyCnt) Then
End If
If InsCat Then
' this is the first call or the category has changed,
' so we need to insert a category row
' blank export values
ForAll itm In export.Record.FValue
End ForAll
' insert blank row
Call export.WriteNext(stats)
' set category for first column
export.Record.FValue(0) = stats.Category(stats.KeyCnt)
' insert category row
Call export.WriteNext(stats)
' re-read values from Notes document and let Integra continue
Call export.ReadFromDoc(stats, stats.ExpDoc)
End If
case CB_AFTERWRITECOM
case CB_BFORCOMACTION
case CB_BFORNOTESACTION
if not stats.savdoc is nothing then
else
end if
case CB_TERMINATE
end select
|