project QadFinancials > class BMirroringJournal > method ValidateComponentPre

Description

Parameters

Internal usage

program code (program5/bmirroringjournal.p)

assign oiReturnStatus = -98
       viLocalStatus  = 0.
        
<Q-13 run JournalByJournalLayer  (Start) in BJournal >

for each t_sMirroringJournal where 
    t_sMirroringJournal.tc_Status = "N":U or t_sMirroringJournal.tc_Status = "C":U:

    /*
    /* Defect 10249-0159 YIY Begin */
    if t_sMirroringJournal.tcCompanyCode <> ? and t_sMirroringJournal.tcCompanyCode <> '':U
    then do:
        <Q-28 run CompanyByAll (all) (Read) (NoCache)
           (input ?, (CompanyId)
            input t_sMirroringJournal.tcCompanyCode, (CompanyCode)
            input ?, (CompanyIsActive)
            output dataset tqCompanyByAll) in BCompany >
        find first tqCompanyByAll
            where tqCompanyByAll.tcCompanyCode = t_sMirroringJournal.tcCompanyCode no-error.
        if available tqCompanyByAll and tqCompanyByAll.tlCompanyIsActive = false
        then do:
            assign viLocalStatus = -1
                   vcMessage     = #T-24'The entity is inactive.':255(69056)T-24#.
            <M-22 run SetMessage
          (input  vcMessage (icMessage), 
           input  '':U (icArguments), 
           input  't_sMirroringJournal.tcCompanyCode':U (icFieldName), 
           input  t_sMirroringJournal.tcCompanyCode (icFieldValue), 
           input  'E':U (icType), 
           input  3 (iiSeverity), 
           input  t_sMirroringJournal.tc_Rowid (icRowid), 
           input  'QadFin-7856':U (icFcMsgNumber), 
           input  '':U (icFcExplanation), 
           input  '':U (icFcIdentification), 
           input  '':U (icFcContext), 
           output viFcReturnSuper (oiReturnStatus)) in BMirroringJournal>
        end. /* if available tqCompanyByAll and tqCompanyByAll.tiCompanyIsActive = false */   
    end. /* if t_sMirroringJournal.Company_ID <> ? and t_sMirroringJournal.Company_ID <> '':U */ 
    /* Defect 10249-0159 YIY End */
    */

    /* Fulfill the calculated field of Source Daybook. */
    if t_sMirroringJournal.tcSourceJournalCode <> ? and t_sMirroringJournal.tcSourceJournalCode <> '':U
    then do:
        <Q-14 run JournalByJournalLayer (all) (Read) (NoCache)
           (input viCompanyId, (CompanyId)
            input t_sMirroringJournal.tcSourceJournalCode, (JournalCode)
            input ?, (CandoJournalTypeCode)
            input ?, (LayerCode)
            input ?, (CandoLayerTypeCode)
            input ?, (JournalID)
            input ?, (JournalIsActive)
            output dataset tqJournalByJournalAndLayer) in BJournal >
        find first tqJournalByJournalAndLayer 
            where  tqJournalByJournalAndLayer.tcJournalCode = t_sMirroringJournal.tcSourceJournalCode no-error.
        if available tqJournalByJournalAndLayer
        then do:
            assign t_sMirroringJournal.tcSourceJournalTypeCode = tqJournalByJournalAndLayer.tcJournalTypeCode
                   t_sMirroringJournal.tcSourceLayerCode       = tqJournalByJournalAndLayer.tcLayerCode
                   t_sMirroringJournal.tcSourceLayerTypeCode   = tqJournalByJournalAndLayer.tcLayerTypeCode
                   t_sMirroringJournal.tcSourceJournalControl  = tqJournalByJournalAndLayer.tcJournalControl.
        end. /* if avaliable tqJournalByJournalAndLayer */
    end. /* if t_sMirroringJournal.tcSourceJournalCode <> ? and t_sMirroringJournal.tcSourceJournalCode <> '':U */

    /* Fulfill the calculated field of Mirror Daybook. */
    if t_sMirroringJournal.tcMirrorJournalCode <> ? and t_sMirroringJournal.tcMirrorJournalCode <> '':U
    then do:
        <Q-15 run JournalByJournalLayer (all) (Read) (NoCache)
           (input viCompanyId, (CompanyId)
            input t_sMirroringJournal.tcMirrorJournalCode, (JournalCode)
            input ?, (CandoJournalTypeCode)
            input ?, (LayerCode)
            input ?, (CandoLayerTypeCode)
            input ?, (JournalID)
            input ?, (JournalIsActive)
            output dataset tqJournalByJournalAndLayer) in BJournal >
        find first tqJournalByJournalAndLayer 
            where  tqJournalByJournalAndLayer.tcJournalCode = t_sMirroringJournal.tcMirrorJournalCode no-error.
        if available tqJournalByJournalAndLayer
        then do:
            assign t_sMirroringJournal.tcMirrorJournalTypeCode = tqJournalByJournalAndLayer.tcJournalTypeCode
                   t_sMirroringJournal.tcMirrorLayerCode       = tqJournalByJournalAndLayer.tcLayerCode
                   t_sMirroringJournal.tcMirrorLayerTypeCode   = tqJournalByJournalAndLayer.tcLayerTypeCode
                   t_sMirroringJournal.tcMirrorJournalControl  = tqJournalByJournalAndLayer.tcJournalControl.
        end. /* if avaliable tqJournalByJournalAndLayer */
    end. /* if t_sMirroringJournal.TCMIRRORJOURNALCODE <> ? and t_sMirroringJournal.tcMirrorJournalCode <> '':U */

end. /* for each t_sMirroringJournal where t_sMirroringJournal.tc_Status <> "":U: */

<Q-17 run JournalByJournalLayer  (Stop) in BJournal >

assign oiReturnstatus = viLocalStatus.