Description
This method retrieves additional details needed on UI to display all information about Entity
Parameters
| bcCompanyCode | input-output | character | |
| oiCompany_ID | output | integer | |
| ocCompanyDescription | output | character | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program4/bcompanygroup.p)
define buffer bCompany for Company.
assign oiCompany_ID = ?
ocCompanyDescription = "":U.
/* Input paramters normalization */
if bcCompanyCode = "":U then assign bcCompanyCode = ?.
/* Precondition */
if bcCompanyCode = ?
then return.
/* Get daybook details */
for each bCompany fields (Company_ID CompanyCode CompanyDescription) no-lock where
bCompany.CompanyCode = bcCompanyCode on error undo, throw:
assign bcCompanyCode = bCompany.CompanyCode
oiCompany_ID = bCompany.Company_ID.
if vlObjectTranslationsActive
then do:
run GetTranslationForObject /* in componentpool */
(input bCompany.Company_ID,
input current-language,
input bCompany.CompanyDescription,
input "CompanyDescription",
output ocCompanyDescription,
output viFcReturnSuper).
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then return.
end.
else ocCompanyDescription = bCompany.CompanyDescription.
end.