PdcOverview.GetMaterialPrognosis: Difference between revisions
Jump to navigation
Jump to search
Created page with "== Declaration == PurchaseInvoices as PdcPurchaseInvoices == Description == == Notes == == Code example == <source lang="vb"> </source> == Availability ==" |
No edit summary |
||
| Line 1: | Line 1: | ||
== Declaration == | == Declaration == | ||
GetMaterialPrognosis as [[PdcGetMaterialPrognosis]] | |||
== Description == | == Description == | ||
Generates the calculationoverview "Material Prognosis". | |||
== Notes == | == Notes == | ||
| Line 11: | Line 11: | ||
<source lang="vb"> | <source lang="vb"> | ||
Dim aView | |||
Dim aTableName | |||
dim aQuery | |||
set aView = pdc.overview | |||
aTableName = aview.GetMaterialPrognosis | |||
msgbox aTableName | |||
set Qry = pdc.Database.OpenQuery(5) '5 = tempfiles | |||
Qry.SQL = "SELECT * FROM " & aTableName | |||
if Qry.Execute then | |||
if Qry.RecordCount > 0 then | |||
msgbox Qry.RecordCount | |||
else | |||
msgbox "no records" | |||
end if | |||
else | |||
msgbox pdc.LastError | |||
end if | |||
</source> | </source> | ||
== Availability == | == Availability == | ||
Available since October 2019 (From version 5.5) | |||
Revision as of 06:41, 7 October 2019
Declaration
GetMaterialPrognosis as PdcGetMaterialPrognosis
Description
Generates the calculationoverview "Material Prognosis".
Notes
Code example
Dim aView
Dim aTableName
dim aQuery
set aView = pdc.overview
aTableName = aview.GetMaterialPrognosis
msgbox aTableName
set Qry = pdc.Database.OpenQuery(5) '5 = tempfiles
Qry.SQL = "SELECT * FROM " & aTableName
if Qry.Execute then
if Qry.RecordCount > 0 then
msgbox Qry.RecordCount
else
msgbox "no records"
end if
else
msgbox pdc.LastError
end if
Availability
Available since October 2019 (From version 5.5)