PdcProductReport.ProcessReport: Difference between revisions

From External Bemet Wiki
Jump to navigation Jump to search
No edit summary
No edit summary
 
(One intermediate revision by the same user not shown)
Line 15: Line 15:


== Code example ==
== Code example ==
This code example creates a repair calculation from a productreport with ID = 251
<source lang="vb">
<source lang="vb">
'Create a repair calculation
dim objReport
dim objReport


   set objReport = pdc.ProductRegistration.ProductReports.Open("250", True)
   set objReport = pdc.ProductRegistration.ProductReports.Open("251", True)
   if objReport.ProcessReport(0) then
   if objReport.ProcessReport(0) then
     objReport.Save
     objReport.Save
Line 26: Line 27:
   end if
   end if
</source>
</source>
This code example creates a new calculation from a productreport with ID = 251


<source lang="vb">
<source lang="vb">
'Create a new calculation
dim objReport
dim objReport


Line 38: Line 40:
   end if
   end if
</source>
</source>
This code example does not start a repairorder for productreport with ID = 251


<source lang="vb">
<source lang="vb">
'Do nothing
dim objReport
dim objReport


Line 52: Line 55:


== Availability ==
== Availability ==
Available from version 4.0 onwards.

Latest revision as of 09:31, 17 July 2013

Declaration

ProcessReport(ProcessMethod as long) as Boolean

Description

This method settles a productreport with a specific applied process method.

Notes

Three different methods are defined:
0 = Create a repair calculation, which is a copy from the productreports calculation. After the calculation is created, it is shown. When the productreport doesn't have a calculation, the return value is false.
1 = Create a new calculation en show it.
2 = Do nothing, the productreport is only for registration.

Every process method does following things:
1. Turns a productreport into processed (Don't forget to save the product report).
2. If there raises any error, the return value is false and the error can be shown.

Code example

This code example creates a repair calculation from a productreport with ID = 251

dim objReport

  set objReport = pdc.ProductRegistration.ProductReports.Open("251", True)
  if objReport.ProcessReport(0) then
    objReport.Save
  else
    msgbox pdc.LastError
  end if

This code example creates a new calculation from a productreport with ID = 251

dim objReport

  set objReport = pdc.ProductRegistration.ProductReports.Open("251", True)
  if objReport.ProcessReport(1) then 
     objReport.Save
  else
    msgbox pdc.LastError
  end if

This code example does not start a repairorder for productreport with ID = 251

dim objReport

  set objReport = pdc.ProductRegistration.ProductReports.Open("251", True)
  if objReport.ProcessReport(2) then
    objReport.Save
  else
    msgbox pdc.LastError
  end if

Availability

Available from version 4.0 onwards.