diff --git a/Copy with Lookup/PTECopyWithLookUp.Codeunit.al b/Copy with Lookup/CopyWithLookUp.Codeunit.al
similarity index 97%
rename from Copy with Lookup/PTECopyWithLookUp.Codeunit.al
rename to Copy with Lookup/CopyWithLookUp.Codeunit.al
index 66c2172..2efa3c6 100644
--- a/Copy with Lookup/PTECopyWithLookUp.Codeunit.al
+++ b/Copy with Lookup/CopyWithLookUp.Codeunit.al
@@ -1,62 +1,62 @@
-Codeunit 80420 "PTE Copy With Lookup"
-{
- SingleInstance = true;
-
- [EventSubscriber(ObjectType::Codeunit, Codeunit::"PVS Copy Management", OnAfterMainCopyJobToOrder, '', true, false)]
- local procedure OnAfterMainCopyJobToOrder(var in_OrderRec: Record "PVS Case"; var in_From_JobRec: Record "PVS Job"; in_Include_Shipments: Boolean; in_Is_New_Version: Boolean; var To_JobRec: Record "PVS Job")
- var
- Singleinstance: Codeunit "PVS SingleInstance";
- MainMgt: Codeunit "PVS Main";
- FilterMgt: Codeunit "PVS Table Filters";
- FormulaUnit: Codeunit "PVS Calculation Management";
- CalcUnitTMP: Record "PVS Job Calculation Unit" temporary;
- CalcUnitRec: Record "PVS Job Calculation Unit";
- xCalcUnitRec: Record "PVS Job Calculation Unit";
- CalcUnit_SetupRec: Record "PVS Calculation Unit Setup";
- CalcUnitDetailRec: Record "PVS Job Calculation Detail";
- Is_Skip_Calc: Boolean;
- begin
-
- CalcUnitTMP.DeleteAll();
- FilterMgt.SELECT_CalcUnits2Job(CalcUnitRec, To_JobRec.ID, To_JobRec.Job, To_JobRec.Version);
- if CalcUnitRec.findset(true) then
- repeat
- if CalcUnit_SetupRec.get(CalcUnit_SetupRec.Type::"Price Unit", CalcUnitRec.Unit) then
- if CalcUnit_SetupRec."Lookup on Copy" then begin
- CalcUnitTMP := CalcUnitRec;
- CalcUnitTMP.insert;
- end;
- until CalcUnitRec.next = 0;
-
- if CalcUnitTMP.IsEmpty then
- exit;
-
- Singleinstance.Set_GUINOTALLOWED(true);
-
- Is_Skip_Calc := To_JobRec."Skip Calc.";
- if not Is_Skip_Calc then begin
- To_JobRec."Skip Calc." := true;
- To_JobRec.Modify();
- end;
-
- if CalcUnitTmp.findset() then
- repeat
- if CalcUnitRec.get(CalcUnitTMP.ID, CalcUnitTMP.Job, CalcUnitTMP.Version, CalcUnitTMP."Entry No.") then begin
- // Validate Unit
- xCalcUnitRec := CalcUnitRec;
- xCalcUnitRec.Unit := 'DELETE';
- MainMgt.Main_On_Validate_CalcUnit(CalcUnitRec, xCalcUnitRec, CalcUnitRec."Sheet ID", CalcUnitRec."Process ID");
- end;
- until CalcUnitTMP.next = 0;
-
- if not Is_Skip_Calc then begin
- To_JobRec.get(To_JobRec.ID, To_JobRec.Job, To_JobRec.Version);
- To_JobRec."Skip Calc." := false;
- To_JobRec.Modify();
- FormulaUnit.Main_Calculate_Job(To_JobRec.ID, To_JobRec.Job, To_JobRec.Version);
- To_JobRec.get(To_JobRec.ID, To_JobRec.Job, To_JobRec.Version);
- end;
- Singleinstance.Set_GUINOTALLOWED(false);
- end;
-
+Codeunit 80420 "PTE Copy With Lookup"
+{
+ SingleInstance = true;
+
+ [EventSubscriber(ObjectType::Codeunit, Codeunit::"PVS Copy Management", OnAfterMainCopyJobToOrder, '', true, false)]
+ local procedure OnAfterMainCopyJobToOrder(var in_OrderRec: Record "PVS Case"; var in_From_JobRec: Record "PVS Job"; in_Include_Shipments: Boolean; in_Is_New_Version: Boolean; var To_JobRec: Record "PVS Job")
+ var
+ Singleinstance: Codeunit "PVS SingleInstance";
+ MainMgt: Codeunit "PVS Main";
+ FilterMgt: Codeunit "PVS Table Filters";
+ FormulaUnit: Codeunit "PVS Calculation Management";
+ CalcUnitTMP: Record "PVS Job Calculation Unit" temporary;
+ CalcUnitRec: Record "PVS Job Calculation Unit";
+ xCalcUnitRec: Record "PVS Job Calculation Unit";
+ CalcUnit_SetupRec: Record "PVS Calculation Unit Setup";
+ CalcUnitDetailRec: Record "PVS Job Calculation Detail";
+ Is_Skip_Calc: Boolean;
+ begin
+
+ CalcUnitTMP.DeleteAll();
+ FilterMgt.SELECT_CalcUnits2Job(CalcUnitRec, To_JobRec.ID, To_JobRec.Job, To_JobRec.Version);
+ if CalcUnitRec.findset(true) then
+ repeat
+ if CalcUnit_SetupRec.get(CalcUnit_SetupRec.Type::"Price Unit", CalcUnitRec.Unit) then
+ if CalcUnit_SetupRec."Lookup on Copy" then begin
+ CalcUnitTMP := CalcUnitRec;
+ CalcUnitTMP.insert;
+ end;
+ until CalcUnitRec.next = 0;
+
+ if CalcUnitTMP.IsEmpty then
+ exit;
+
+ Singleinstance.Set_GUINOTALLOWED(true);
+
+ Is_Skip_Calc := To_JobRec."Skip Calc.";
+ if not Is_Skip_Calc then begin
+ To_JobRec."Skip Calc." := true;
+ To_JobRec.Modify();
+ end;
+
+ if CalcUnitTmp.findset() then
+ repeat
+ if CalcUnitRec.get(CalcUnitTMP.ID, CalcUnitTMP.Job, CalcUnitTMP.Version, CalcUnitTMP."Entry No.") then begin
+ // Validate Unit
+ xCalcUnitRec := CalcUnitRec;
+ xCalcUnitRec.Unit := 'DELETE';
+ MainMgt.Main_On_Validate_CalcUnit(CalcUnitRec, xCalcUnitRec, CalcUnitRec."Sheet ID", CalcUnitRec."Process ID");
+ end;
+ until CalcUnitTMP.next = 0;
+
+ if not Is_Skip_Calc then begin
+ To_JobRec.get(To_JobRec.ID, To_JobRec.Job, To_JobRec.Version);
+ To_JobRec."Skip Calc." := false;
+ To_JobRec.Modify();
+ FormulaUnit.Main_Calculate_Job(To_JobRec.ID, To_JobRec.Job, To_JobRec.Version);
+ To_JobRec.get(To_JobRec.ID, To_JobRec.Job, To_JobRec.Version);
+ end;
+ Singleinstance.Set_GUINOTALLOWED(false);
+ end;
+
}
\ No newline at end of file
diff --git a/Copy with Lookup/PrintVis AS_CopyWithLookup_1.0.0.0.app b/Copy with Lookup/PrintVis AS_CopyWithLookup_1.0.0.0.app
deleted file mode 100644
index f9bfe10..0000000
Binary files a/Copy with Lookup/PrintVis AS_CopyWithLookup_1.0.0.0.app and /dev/null differ
diff --git a/Copy with Lookup/PrintVis AS_CopyWithLookup_1.1.0.0.app b/Copy with Lookup/PrintVis AS_CopyWithLookup_1.1.0.0.app
new file mode 100644
index 0000000..5291e4f
Binary files /dev/null and b/Copy with Lookup/PrintVis AS_CopyWithLookup_1.1.0.0.app differ
diff --git a/Copy with Lookup/Translations/CopyWithLookup.da-DK.xlf b/Copy with Lookup/Translations/CopyWithLookup.da-DK.xlf
new file mode 100644
index 0000000..3ea7bc8
--- /dev/null
+++ b/Copy with Lookup/Translations/CopyWithLookup.da-DK.xlf
@@ -0,0 +1,20 @@
+
+
+
+
+
+
+ Specifies whether this calculation unit is looked up and re-inserted when copying, instead of being copied as-is.
+
+ PageExtension PTE CalcUnit Lookup on Copy - Control Lookup on Copy - Property ToolTip
+
+
+ Lookup on Copy
+ Genopslå ved kopiering
+
+ TableExtension PTE CalcUnit Lookup on Copy - Field Lookup on Copy - Property Caption
+
+
+
+
+
\ No newline at end of file
diff --git a/Copy with Lookup/Translations/CopyWithLookup.g.xlf b/Copy with Lookup/Translations/CopyWithLookup.g.xlf
new file mode 100644
index 0000000..62fe4dd
--- /dev/null
+++ b/Copy with Lookup/Translations/CopyWithLookup.g.xlf
@@ -0,0 +1,19 @@
+
+
+
+
+
+
+ Specifies whether this calculation unit is looked up and re-inserted when copying, instead of being copied as-is.
+
+ PageExtension PTE CalcUnit Lookup on Copy - Control Lookup on Copy - Property ToolTip
+
+
+ Lookup on Copy
+
+ TableExtension PTE CalcUnit Lookup on Copy - Field Lookup on Copy - Property Caption
+
+
+
+
+
\ No newline at end of file
diff --git a/Copy with Lookup/app.json b/Copy with Lookup/app.json
index 4d9c58b..5e642fb 100644
--- a/Copy with Lookup/app.json
+++ b/Copy with Lookup/app.json
@@ -2,7 +2,7 @@
"id": "bf1ceb67-68a4-4909-9f85-2148fb148ca4",
"name": "CopyWithLookup",
"publisher": "PrintVis A/S",
- "version": "1.0.0.0",
+ "version": "1.1.0.0",
"brief": "",
"description": "",
"privacyStatement": "",
@@ -34,6 +34,10 @@
},
"runtime": "16.0",
"features": [
- "NoImplicitWith"
- ]
+ "NoImplicitWith",
+ "TranslationFile"
+ ],
+ "supportedLocales": [
+ "da-DK"
+ ]
}
\ No newline at end of file