Skip to content

94884 - added DK Translation #86

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Closed
Tsmprintvis wants to merge 1 commit into from
Closed

94884 - added DK Translation #86

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
122 changes: 61 additions & 61 deletions ...with Lookup/PTECopyWithLookUp.Codeunit.al → Copy with Lookup/CopyWithLookUp.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -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;

}
Binary file removed Copy with Lookup/PrintVis AS_CopyWithLookup_1.0.0.0.app
View file
Open in desktop
Binary file not shown.
Binary file added Copy with Lookup/PrintVis AS_CopyWithLookup_1.1.0.0.app
View file
Open in desktop
Binary file not shown.
20 changes: 20 additions & 0 deletions Copy with Lookup/Translations/CopyWithLookup.da-DK.xlf
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,20 @@
<?xml version="1.0" encoding="utf-8"?>
<xliff version="1.2" xmlns="urn:oasis:names:tc:xliff:document:1.2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="urn:oasis:names:tc:xliff:document:1.2 xliff-core-1.2-transitional.xsd">
<file datatype="xml" source-language="en-US" target-language="da-DK" original="CopyWithLookup">
<body>
<group id="body">
<trans-unit id="PageExtension 1213386776 - Control 3105998746 - Property 1295455071" size-unit="char" translate="yes" xml:space="preserve" al-object-target="Page 252261239">
<source>Specifies whether this calculation unit is looked up and re-inserted when copying, instead of being copied as-is.</source>
<note from="Developer" annotates="general" priority="2"></note>
<note from="Xliff Generator" annotates="general" priority="3">PageExtension PTE CalcUnit Lookup on Copy - Control Lookup on Copy - Property ToolTip</note>
</trans-unit>
<trans-unit id="TableExtension 1213386776 - Field 3105998746 - Property 2879900210" size-unit="char" translate="yes" xml:space="preserve" al-object-target="Table 252261239">
<source>Lookup on Copy</source>
<target>Genopslå ved kopiering</target>
<note from="Developer" annotates="general" priority="2"></note>
<note from="Xliff Generator" annotates="general" priority="3">TableExtension PTE CalcUnit Lookup on Copy - Field Lookup on Copy - Property Caption</note>
</trans-unit>
</group>
</body>
</file>
</xliff>
19 changes: 19 additions & 0 deletions Copy with Lookup/Translations/CopyWithLookup.g.xlf
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,19 @@
<?xml version="1.0" encoding="utf-8"?>
<xliff version="1.2" xmlns="urn:oasis:names:tc:xliff:document:1.2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="urn:oasis:names:tc:xliff:document:1.2 xliff-core-1.2-transitional.xsd">
<file datatype="xml" source-language="en-US" target-language="en-US" original="CopyWithLookup">
<body>
<group id="body">
<trans-unit id="PageExtension 1213386776 - Control 3105998746 - Property 1295455071" size-unit="char" translate="yes" xml:space="preserve" al-object-target="Page 252261239">
<source>Specifies whether this calculation unit is looked up and re-inserted when copying, instead of being copied as-is.</source>
<note from="Developer" annotates="general" priority="2"></note>
<note from="Xliff Generator" annotates="general" priority="3">PageExtension PTE CalcUnit Lookup on Copy - Control Lookup on Copy - Property ToolTip</note>
</trans-unit>
<trans-unit id="TableExtension 1213386776 - Field 3105998746 - Property 2879900210" size-unit="char" translate="yes" xml:space="preserve" al-object-target="Table 252261239">
<source>Lookup on Copy</source>
<note from="Developer" annotates="general" priority="2"></note>
<note from="Xliff Generator" annotates="general" priority="3">TableExtension PTE CalcUnit Lookup on Copy - Field Lookup on Copy - Property Caption</note>
</trans-unit>
</group>
</body>
</file>
</xliff>
10 changes: 7 additions & 3 deletions Copy with Lookup/app.json
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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": "",
Expand Down Expand Up @@ -34,6 +34,10 @@
},
"runtime": "16.0",
"features": [
"NoImplicitWith"
]
"NoImplicitWith",
"TranslationFile"
],
"supportedLocales": [
"da-DK"
]
}
Loading