method DefaultValuesProject

Parameters

icProjectCode	input	character
ilGetDivision	input	logical
ocDivisionCode	output	character
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program3/bdinvoice.p)

if icProjectCode = ?
then assign icProjectCode = "":U.

if icProjectCode = "":U
then return.

<Q-4 run ProjectForInvoiceDefault (all) (Read) (NoCache)
   (input viCompanyId, (CompanyId)
    input icProjectCode, (ProjectCode)
    output dataset tqProjectForInvoiceDefault) in BProject >
    
find first tqProjectForInvoiceDefault where
           tqProjectForInvoiceDefault.tcProjectCode = icProjectCode
           no-error.

if not available tqProjectForInvoiceDefault
then return.

if ilGetDivision                                         and
   tqProjectForInvoiceDefault.tiDivisionProfile_ID <> ? and
   tqProjectForInvoiceDefault.tiDivisionProfile_ID <> 0
then do:
    <Q-5 run GetDivisionFromProfile (all) (Read) (NoCache)
       (input viCompanyId, (CompanyId)
        input tqProjectForInvoiceDefault.tiDivisionProfile_ID, (DivisionProfileId)
        output dataset tqDivisionFromProfile) in BProfile >
            
    find first tqDivisionFromProfile where
               tqDivisionFromProfile.tiProfile_ID = tqProjectForInvoiceDefault.tiDivisionProfile_ID
               no-error.

    assign ocDivisionCode = if available tqDivisionFromProfile
                            then tqDivisionFromProfile.tcDivisionCode
                            else "":U.
end.
else assign ocDivisionCode = "":U.