PALEBI_ServiceOperationCost soc;
    
    ttsBegin;
    while select forUpdate soc
        where soc.PALEBI_ServiceOperationId == 'SO25-00012'
        && soc.TransDate >= mkDate(30, 7, 2025)
    {
        info(soc.PALEBI_ServiceOperationId);
        
        soc.PALEBI_ServiceOperationId = 'SO25-00508';
        soc.doUpdate();
    }
    ttsCommit;

    PALEBI_ServiceOperationJournalDay       sojd;
    PALEBI_ServiceOperationJournalActivity  soja;
    
    ttsBegin;
    while select forUpdate sojd
        where sojd.PALEBI_ServiceOperationId == 'SO25-00012'
        && sojd.ServiceOperationJournalWeekRefRecId == 5637506838
    {
        while select forUpdate soja
            where soja.ServiceOperationJournalDayRefRecId == sojd.RecId
        {
            soja.PALEBI_ServiceOperationId = 'SO25-00508';
            soja.doUpdate();                
        }
        
        sojd.PALEBI_ServiceOperationId = 'SO25-00508';
        sojd.ServiceOperationJournalWeekRefRecId = 5637511336;
        
        sojd.doUpdate();
    }
    ttsCommit;