PdcProductReports.New

Declaration

New as PdcProductReport

Notes

This function return a new product report object. The product report object has two different reportstates, Report finished products or normal reports (of an operation). Note that reporting finished products is not fully implemented yet. It is expected in version 4.3 or onwards.

Code example

This code example creates a new finished product report for productionorder 10200 (up to version 4.3).

dim objReport

  set objReport = pdc.ProductRegistration.ProductReports.New
  objReport.ProductionNumber   = "10200"  
  objReport.AllOpertionsReady  = True  
  objReport.InternalReady      = True
  objReport.ProductFinished    = True
  objReport.Quantity           = 1

  if not objReport.Save then
    msgbox objReport.Error
  end if

This code example creates a new finished product report for productionorder 10200 (From version 5.0).

dim objReport
dim dblQntyCalc 
dim dblQntyReady

  dblQntyCalc = 1
  dblQntyReady = 1
  set objReport = pdc.ProductRegistration.ProductReports.New
  objReport.ProductionNumber   = "10200"  
  objReport.FinishedReport     = True
  objReport.AllOpertionsReady  = True  
  if dblQntyReady >= dblQntyCalc then
    objReport.InternalReady      = True
  else
    objReport.InternalReady      = False
  end if
  objReport.ProductFinished    = True
  objReport.Quantity           = dblQntyReady

  if not objReport.Save then
    msgbox objReport.Error
  end if

This code example creates a new product report for productionorder 10200 operation line 10 (up to version 4.3).

dim objReport

  set objReport = pdc.ProductRegistration.ProductReports.New
  objReport.ProductionNumber      = "10200"
  objReport.Quantity              = 1
  objReport.LineNumber            = 10
  objReport.FinishedReport        = true
  objReport.CurrentOperationReady = true
  if not objReport.Save then
    msgbox objReport.Error
  end if

This code example creates a new product report for productionorder 10200 operation line 10 (From version 5.0).

dim objReport

  set objReport = pdc.ProductRegistration.ProductReports.New
  objReport.ProductionNumber      = "10200"  
  objReport.LineNumber            = 10
  objReport.FinishedReport        = true
  objReport.CurrentOperationReady = true
  objReport.Quantity              = 1

  if not objReport.Save then
    msgbox objReport.Error
  end if

Availability

Available from version 4.0 onwards.