diff --git a/.AL-Go/settings.json b/.AL-Go/settings.json index 2bc5e37..7f9ca55 100644 --- a/.AL-Go/settings.json +++ b/.AL-Go/settings.json @@ -11,18 +11,5 @@ "doNotSignApps": true } } - ], - "installApps": [ - "https://printvis.blob.core.windows.net/releases/CloudApps/Library/NovaVision%20Software%20AS_PrintVis%20System%20Library_25.2.1.3.app?sv=2023-01-03&st=2025-01-27T15%3A56%3A00Z&se=2028-12-28T15%3A56%3A00Z&sr=b&sp=r&sig=ZRyVo41sJc%2FlrOxUp%2F4d2W%2BPPz%2FgCttb9aHeAMiRZA8%3D", - "https://printvis.blob.core.windows.net/releases/CloudApps/NovaVision%20Software%20AS_PrintVis_25.2.1.3.app?sv=2023-01-03&st=2025-01-27T15%3A57%3A27Z&se=2028-11-28T15%3A57%3A00Z&sr=b&sp=r&sig=SsYRsJ69fM79A2PTs1G3Jj9KHfVF22UDHAZ%2B7HqinOI%3D" - ], - "appDependencyProbingPaths": [ - { - "repo": "https://github.com/printvis/PrintVis-System-Library", - "release_status": "release", - "version": "latest", - "projects": "*", - "AuthTokenSecret": "LibraryAppRepoToken" - } ] -} +} \ No newline at end of file diff --git a/.github/AL-Go-Settings.json b/.github/AL-Go-Settings.json index ba7295f..06aca37 100644 --- a/.github/AL-Go-Settings.json +++ b/.github/AL-Go-Settings.json @@ -3,9 +3,7 @@ "type": "PTE", "templateUrl": "https://github.com/microsoft/AL-Go-PTE@main", "templateSha": "28c060aecd801a24e69346bea0c3cb193f327183", - "installApps": [ - "https://printvis.blob.core.windows.net/releases/CloudApps/NovaVision%20Software%20AS_PrintVis_24.4.1.0.app?sv=2023-01-03&st=2024-09-11T08%3A53%3A22Z&se=2026-07-12T08%3A53%3A00Z&sr=b&sp=r&sig=4bLYDcdOlC1Ymx8q%2Fa2hM5ci%2B%2By2TePO5eEQ%2F4q5KjI%3D" - ], + "appDependencyProbingPaths": [ { "repo": "https://github.com/printvis/PrintVis-System-Library", @@ -13,6 +11,13 @@ "version": "latest", "projects": "*", "AuthTokenSecret": "LibraryAppRepoToken" + }, + { + "repo": "https://github.com/printvis/PrintVis", + "release_status": "release", + "version": "latest", + "projects": "*", + "AuthTokenSecret": "LibraryAppRepoToken" } ] } diff --git a/AvoidSameSorting/PTEAvoidSameSorting.Codeunit.al b/AvoidSameSorting/PTEAvoidSameSorting.Codeunit.al index 4177563..0239947 100644 --- a/AvoidSameSorting/PTEAvoidSameSorting.Codeunit.al +++ b/AvoidSameSorting/PTEAvoidSameSorting.Codeunit.al @@ -2,37 +2,37 @@ Codeunit 80421 "PTE Avoid Same Sorting" { SingleInstance = true; - [EventSubscriber(ObjectType::Codeunit, Codeunit::"PVS Planning Units Generate ", 'OnAfterFind_Create_TempPlanUnit', '', false, false)] + [EventSubscriber(ObjectType::Codeunit, Codeunit::"PVS Planning Units Generate ", OnAfterFindCreateTempPlanUnit, '', false, false)] local procedure OnAfterFind_Create_TempPlanUnit(in_CapacityCode: Code[20]; in_SheetID: Integer; in_ProcessID: Integer; - in_Is_Created: Boolean; + in_IsPlanningEntryInserted: Boolean; in_SetupRec: Record "PVS Calculation Unit Setup"; var out_JobItemRec_Tmp: Record "PVS Job Item" temporary; var out_CalcUnitTMP: Record "PVS Job Calculation Unit" temporary; var out_PlanUnitTmp: Record "PVS Job Planning Unit" temporary) var - PlanUnitTmp: Record "PVS Job Planning Unit" temporary; + Temp_PlanUnit: Record "PVS Job Planning Unit" temporary; begin - if not in_Is_Created then + if not in_IsPlanningEntryInserted then exit; if in_SheetID <> 0 then exit; - PlanUnitTmp.Copy(out_PlanUnitTmp, true); - PlanUnitTmp.Reset(); - PlanUnitTmp.SetCurrentKey("Simulation Version", ID, Job, "Sorting Order"); - PlanUnitTmp.SetRange("Simulation Version", out_PlanUnitTmp."Simulation Version"); - PlanUnitTmp.SetRange(ID, out_PlanUnitTmp.ID); - PlanUnitTmp.SetRange(Job, out_PlanUnitTmp.Job); - PlanUnitTmp.SetRange(Unit, out_PlanUnitTmp.Unit); - PlanUnitTmp.SetRange("Capacity Unit", out_PlanUnitTmp."Capacity Unit"); - PlanUnitTmp.SetRange("Sorting Order", out_PlanUnitTmp."Sorting Order"); - PlanUnitTmp.SetRange("Sheet ID", 0); - PlanUnitTmp.SetFilter("Plan ID", '<>%1', PlanUnitTmp."Plan ID"); - if PlanUnitTmp.Findlast then begin - out_PlanUnitTmp."Sorting Order" := PlanUnitTmp."Sorting Order" + 1; + Temp_PlanUnit.Copy(out_PlanUnitTmp, true); + Temp_PlanUnit.Reset(); + Temp_PlanUnit.SetCurrentKey("Simulation Version", ID, Job, "Sorting Order"); + Temp_PlanUnit.SetRange("Simulation Version", out_PlanUnitTmp."Simulation Version"); + Temp_PlanUnit.SetRange(ID, out_PlanUnitTmp.ID); + Temp_PlanUnit.SetRange(Job, out_PlanUnitTmp.Job); + Temp_PlanUnit.SetRange(Unit, out_PlanUnitTmp.Unit); + Temp_PlanUnit.SetRange("Capacity Unit", out_PlanUnitTmp."Capacity Unit"); + Temp_PlanUnit.SetRange("Sorting Order", out_PlanUnitTmp."Sorting Order"); + Temp_PlanUnit.SetRange("Sheet ID", 0); + Temp_PlanUnit.SetFilter("Plan ID", '<>%1', Temp_PlanUnit."Plan ID"); + if Temp_PlanUnit.Findlast() then begin + out_PlanUnitTmp."Sorting Order" := Temp_PlanUnit."Sorting Order" + 1; out_PlanUnitTmp.modify(); end; end;