static void PALDC_PGS_CreaSpecificheBugSubProj(Args _args)
{
    ProjTable                           projTable;
    PALDC_PGS_SpecificationsRevisions   PALDC_PGS_SpecsRevs;
    PALDC_PGS_SpecificationsRevisions   PALDC_PGS_SpecsRevs_new;

        while select projTable
            where projTable.ProjId like "C2025-0756*"
        {
            info("Creo le specifiche per il sottoprogetto: " + projTable.ProjId);

                select firstOnly PALDC_PGS_SpecsRevs
                    where PALDC_PGS_SpecsRevs.ProjId == projTable.ProjId
                    && PALDC_PGS_SpecsRevs.fromDate
                    && !PALDC_PGS_SpecsRevs.toDate;

                if(!PALDC_PGS_SpecsRevs.RecId)
                {
                    PALDC_PGS_SpecsRevs_new.clear();
                    PALDC_PGS_SpecsRevs_new.ProjId          = ProjTable.ProjId;
                    PALDC_PGS_SpecsRevs_new.Description     = "Emissione";
                    PALDC_PGS_SpecsRevs_new.fromDate        = DateTimeUtil::getSystemDateTime();
                    info(PALDC_PGS_SpecsRevs_new.ProjId);
                    PALDC_PGS_SpecsRevs_new.insert();
                }
        }
}