PdcPuchaseInvoiceLineList.AddLineWithPO

Declaration

AddLineWithPO(PONumber, POPosition as String, DeliveryID as Integer) as PdcPurchaseInvoiceLine Either enter PONumber and POPositions or enter DeliveryID.

Description

The method adds a purchase invoice line linked to a purchase order line or a delivery line.

Code example

dim objPIList
dim objPIL
dim strPONr
dim strPos

  if IsValid(objPI) then
    set objPIList = objPI.PurchaseInvoiceLineList
    if IsValid(objPIList) then
      strPONr = GetAnyField("TOTINKOOP", "IN_ID", edt_IN.Text, "IN_NR")
      strPos  = GetAnyField("TOTINKOOP", "IN_ID", edt_IN.Text, "IN_BPOS")
      set objPIL = objPIList.AddLineWithPO(strPONr, strPos, 0)
      if IsValid(objPIL) then
        mmo_Log.Lines.Add "Regel " & objPIL.Pos & " toegevoegd (" & objPIL.ID & ")" & " CostKind = " & objPIL.CostKind
      else
        mmo_Log.Lines.Add pdc.LastError
      end if 'IsValid(objPIL)
    end if 'IsValid(objPIList)
  else
    msgbox "Kies of maak eerst een inkoopfactuur."
  end if 'IsValid(objPI)

Availability

Available since July 2015 (Version 5.1 onwards)