PdcProductReport.ProcessReport: Difference between revisions

From External Bemet Wiki
Jump to navigation Jump to search
No edit summary
No edit summary
Line 9: Line 9:
1 = Create a new calculation en show it.<br />
1 = Create a new calculation en show it.<br />
2 = Do nothing, the productreport is only for registration.<br />
2 = Do nothing, the productreport is only for registration.<br />
Every method does following things:<br />
<br />
Every process method does following things:<br />
1. Turns a productreport into processed (Don't forget to save the product report).<br />
1. Turns a productreport into processed (Don't forget to save the product report).<br />
2. If there raises any error, the return value is false and the error can be shown.<br />
2. If there raises any error, the return value is false and the error can be shown.<br />
== Code example ==
== Code example ==
<source lang="vb">
<source lang="vb">
dim objReport
  set objReport = pdc.ProductRegistration.ProductReports.Open("250", True)
  if objReport.ProcessReport(0) then 'Herstel calculatie
    objReport.Save
  else
    msgbox pdc.LastError
  end if
</source>
<source lang="vb">
</source>
dim objReport
  set objReport = pdc.ProductRegistration.ProductReports.Open("251", True)
  if objReport.ProcessReport(1) then 'Nieuwe calculatie
    objReport.Save
  else
    msgbox pdc.LastError
  end if
<source lang="vb">
dim objReport


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


== Availability ==
== Availability ==

Revision as of 09:23, 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

dim objReport

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

dim objReport

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

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

Availability