PdcPuchaseInvoiceLineList.AddLineWithoutPO

Declaration

AddLineWithoutPO(CalcNr, MatPos, MatNr as String) as PdcPurchaseInvoiceLine. Materialposition is optional.

Description

The method adds a purchase invoice line linked to a calculation, optionally to a material position.

Code example

dim objPIList
dim objPIL
dim strCalcNr
dim strMatPos
dim strMatNr

  if IsValid(objPI) then
    set objPIList = objPI.PurchaseInvoiceLineList
    if IsValid(objPIList) then
      strCalcNr = GetAnyField("DM_MATLINES", "DM_ID", edt_MatNr.Text, "DM_ORDNR")
      strMatPos = GetAnyField("DM_MATLINES", "DM_ID", edt_MatNr.Text, "DM_POS")
      strMatNr  = GetAnyField("DM_MATLINES", "DM_ID", edt_MatNr.Text, "DM_MATN")
      set objPIL = objPIList.AddLineWithoutPO(strCalcNr, strMatPos, strMatNr)
      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)