PdcProductReport.ProcessReport: Difference between revisions

From External Bemet Wiki
Jump to navigation Jump to search
No edit summary
No edit summary
 
(2 intermediate revisions 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">
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 'Herstel calculatie
   if objReport.ProcessReport(0) then
     objReport.Save
     objReport.Save
   else
   else
Line 25: 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">
</source>
dim objReport
dim objReport


   set objReport = pdc.ProductRegistration.ProductReports.Open("251", True)
   set objReport = pdc.ProductRegistration.ProductReports.Open("251", True)
   if objReport.ProcessReport(1) then 'Nieuwe calculatie
   if objReport.ProcessReport(1) then  
     objReport.Save
     objReport.Save
   else
   else
     msgbox pdc.LastError
     msgbox pdc.LastError
   end if
   end if
</source>
This code example does not start a repairorder for productreport with ID = 251
<source lang="vb">
<source lang="vb">
dim objReport
dim objReport
Line 49: 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.