This property is True if the invoice line is omitted from the printout.
object.DontPrintOnInvoice
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISInvoiceLine interface |
bool
Display DontPrintOnInvoice for the invoice line.
Dim aPatient
Dim aFilter
Dim aInvoices, aInvoice
Dim aInvoiceLines, aInvoiceLine
Dim aMessage
Dim i, j
Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateInvoiceFilter
aFilter.PatientId = aPatient.ID
set aInvoices = aFilter.Load
aMessage = "Invoices Count = " & aInvoices.Count & vbNewLine
for i = 0 to aInvoices.Count - 1
set aInvoice = aInvoices.Items(i)
set aInvoiceLines = aInvoice.InvoiceLines
aMessage = aMessage & vbNewLine & (i + 1) & ". " &_
"Date: " & aInvoice.Date & vbNewLine &_
" ID: " & aInvoice.ID & vbNewLine &_
" Invoice Lines Count: " & aInvoiceLines.Count & vbNewLine
for j = 0 to aInvoiceLines.Count - 1
set aInvoiceLine = aInvoiceLines.Item(j)
aMessage = aMessage & (i + 1) & "." & (j + 1) &_
" -Description: " & aInvoiceLine.Description & vbNewLine &_
" -Date Time From: " & aInvoiceLine.DateTimeFrom & vbNewLine &_
" -Date Time To: " & aInvoiceLine.DateTimeTo & vbNewLine &_
" -ID: " & aInvoiceLine.ID & vbNewLine &_
" -Don't Print On Invoice: " & aInvoiceLine.DontPrintOnInvoice & vbNewLine
next 'j
next 'i
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface the Don't Print On Invoice checkbox can be checked in
.