http://wiki.ecibemet.com/index.php?action=history&feed=atom&title=PdcStatusManagement.CalcLiveInvoiceStatus 2026-05-06T18:14:35Z Revision history for this page on the wiki MediaWiki 1.43.1 http://wiki.ecibemet.com/index.php?title=PdcStatusManagement.CalcLiveInvoiceStatus&diff=3233&oldid=prev 2020-07-07T11:42:27Z

<p>Created page with &quot;== Declaration == CalcLiveInvoiceStatus(strCalcNr As String, strTFRIDList As IStrings, strDelNrList As IStrings, strDelPosList As IStrings) As String == Description == This f...&quot;</p> <p><b>New page</b></p><div>== Declaration ==<br /> CalcLiveInvoiceStatus(strCalcNr As String, strTFRIDList As IStrings, strDelNrList As IStrings, strDelPosList As IStrings) As String<br /> <br /> == Description ==<br /> This function is used before saving a sales invoice. It requires a calculation number, and lists with all the TFR_IDs, delivery note numbers, and delivery note positions of all the lines in the invoice. It will use those to calculate what the status of that calculation would become after saving the invoice. It will return the status identifier of that status as a result.<br /> <br /> == Notes ==<br /> The stringlists that you pass as parameters all need to have the same length. They are a replacement of a list of objects where every object contains 3 string properties.<br /> <br /> == Code example ==<br /> This code example is from the CanSave function of the SalesInvoice.vb class. It calculates the future status of a calculation and checks if this status is allowed.<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> &#039;collect IDs<br /> Dim aTFRIDList As List(Of Integer) = New List(Of Integer)<br /> Dim aDeliveryNoteNrList As List(Of String) = New List(Of String)<br /> Dim aCalcNrList As List(Of String) = New List(Of String)<br /> For Each aLine As SalesInvoiceLine In _InvoiceLineList<br /> aTFRIDList.Add(aLine.TermInvoiceLineID) &#039;Collect all TFR_IDs <br /> If Not aDeliveryNoteNrList.Contains(aLine.DlvryNoteNr) Then &#039;Collect unique delivery note numbers<br /> aDeliveryNoteNrList.Add(aLine.DlvryNoteNr)<br /> End If<br /> If Not aCalcNrList.Contains(aLine.CalcNr) Then<br /> aCalcNrList.Add(aLine.CalcNr)<br /> End If<br /> Next<br /> &#039;Calculate and try statuses<br /> For Each aCalcNr In aCalcNrList<br /> &#039;check calcstatus, use CalcLiveInvoiceStatus to see what the status would become if all selected tfr lines are invoiced<br /> Dim strFutureStatus As String = PDC.App.Calculations.StatusManagement.CalcLiveInvoiceStatus(aCalcNr, aTFRIDStringList, aDelNoteNrStringList, aDelNotePosStringList)<br /> Dim strError As String = &quot;&quot;<br /> If Not PDC.App.Calculations.StatusManagement.TryStatus(aCalcNr, strFutureStatus) Then<br /> strError = PDC.App.LastError<br /> _ErrMsg.Append(strError)<br /> Return False<br /> End If<br /> Next<br /> &lt;/source&gt;<br /> == Availability ==<br /> Available since August 2020 (From version 5.6)</div>

TC