27 lines
1.1 KiB
Plaintext
27 lines
1.1 KiB
Plaintext
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();
|
|
}
|
|
}
|
|
} |