TC: Created page with "== Declaration == GetByRelNr(RelNr As String) as PdcCompany == Description == Create a Company object based on a relation number. == Notes == This function will return Nothing if the relation number can not be found, or if an error occurs while reading it. An error message will be stored in the LastError property == Code example == This example code tries to retrieve a company object, and will display an error message if it fails Dim aCompany..."

2024-01-09T12:27:36Z

Created page with "== Declaration == GetByRelNr(RelNr As String) as PdcCompany == Description == Create a Company object based on a relation number. == Notes == This function will return Nothing if the relation number can not be found, or if an error occurs while reading it. An error message will be stored in the LastError property == Code example == This example code tries to retrieve a company object, and will display an error message if it fails <source lang="vb"> Dim aCompany..."

New page

== Declaration ==
GetByRelNr(RelNr As String) as [[PdcCompany]]

== Description ==
Create a Company object based on a relation number.

== Notes ==
This function will return Nothing if the relation number can not be found, or if an error occurs while reading it. An error message will be stored in the LastError property

== Code example ==
This example code tries to retrieve a company object, and will display an error message if it fails

<source lang="vb">
Dim aCompany As PDCEXT.ICompany = PDC.App.MasterData.RelationFile.GetByRelNr("00460")
If IsNothing(aCompany) Then
MsgBox(PDC.App.LastError)
End If
</source>

== Availability ==
Available since 2024R1

PdcRelationFile.GetByRelNr - Revision history