From eac490210a47faf4a7f44f13ce2fc7f3d70d01a6 Mon Sep 17 00:00:00 2001 From: Jonathan Neugebauer Date: Sun, 27 Dec 2020 19:10:59 +0100 Subject: [PATCH] Fix CodeCop warnings - Explicit with (AL0606) - Implicit Enum conversion (AL0603) Fixes #19 --- .../mdal/extensions/DocumentExtensions.xtend | 306 ++++++++---------- .../extensions/DocumentHeaderExtensions.xtend | 34 +- .../mdal/extensions/MasterExtensions.xtend | 14 +- .../extensions/TemplateTypeExtensions.xtend | 2 +- .../mdal/generator/MdalGeneratorTest.xtend | 2 +- 5 files changed, 164 insertions(+), 194 deletions(-) diff --git a/de.joneug.mdal/src/main/java/de/joneug/mdal/extensions/DocumentExtensions.xtend b/de.joneug.mdal/src/main/java/de/joneug/mdal/extensions/DocumentExtensions.xtend index 339b52a..1ee5ab3 100644 --- a/de.joneug.mdal/src/main/java/de/joneug/mdal/extensions/DocumentExtensions.xtend +++ b/de.joneug.mdal/src/main/java/de/joneug/mdal/extensions/DocumentExtensions.xtend @@ -271,16 +271,13 @@ class DocumentExtensions { begin OnBeforeFinalizePosting(«header.tableVariableName», Temp«line.tableVariableName»Global, EverythingInvoiced, SuppressCommit); - with «header.tableVariableName» do begin - if not EverythingInvoiced then begin - OnFinalizePostingOnNotEverythingInvoiced(«header.tableVariableName», Temp«line.tableVariableName»Global, SuppressCommit) - end else begin - PostUpdatePostedLine; - end; + if not EverythingInvoiced then + OnFinalizePostingOnNotEverythingInvoiced(«header.tableVariableName», Temp«line.tableVariableName»Global, SuppressCommit) + else + PostUpdatePostedLine; - if not PreviewMode then - DeleteAfterPosting(«header.tableVariableName»); - end; + if not PreviewMode then + DeleteAfterPosting(«header.tableVariableName»); OnAfterFinalizePostingOnBeforeCommit(«header.tableVariableName», «header.tableVariableNamePosted», SuppressCommit, PreviewMode); @@ -329,25 +326,23 @@ class DocumentExtensions { if SkipDelete then exit; - with «header.tableVariableName» do begin - if HasLinks then - DeleteLinks; + if «header.tableVariableName».HasLinks() then + «header.tableVariableName».DeleteLinks(); - Delete; + «header.tableVariableName».Delete(); - ResetTempLines(Temp«line.tableVariableName»Local); - if Temp«line.tableVariableName»Local.FindFirst() then - repeat - if Temp«line.tableVariableName»Local.HasLinks then - Temp«line.tableVariableName»Local.DeleteLinks; - until Temp«line.tableVariableName»Local.Next() = 0; + ResetTempLines(Temp«line.tableVariableName»Local); + if Temp«line.tableVariableName»Local.FindFirst() then + repeat + if Temp«line.tableVariableName»Local.HasLinks() then + Temp«line.tableVariableName»Local.DeleteLinks(); + until Temp«line.tableVariableName»Local.Next() = 0; - «line.tableVariableName».SetRange("Document No.", "No."); - OnBefore«line.tableVariableName»DeleteAll(«line.tableVariableName», SuppressCommit); - «line.tableVariableName».DeleteAll(); + «line.tableVariableName».SetRange("Document No.", «header.tableVariableName»."No."); + OnBefore«line.tableVariableName»DeleteAll(«line.tableVariableName», SuppressCommit); + «line.tableVariableName».DeleteAll(); - «solution.commentLineTableVariableName».DeleteComments(«solution.commentLineTableVariableName»."Document Type"::«document.name.saveQuote», "No."); - end; + «solution.commentLineTableVariableName».DeleteComments(«solution.commentLineTableVariableName»."Document Type"::«document.name.saveQuote», «header.tableVariableName»."No."); OnAfterDeleteAfterPosting(«header.tableVariableName», «header.tableVariableNamePosted», SuppressCommit); end; @@ -367,22 +362,19 @@ class DocumentExtensions { begin end; - local procedure PostUpdatePostedLine() var «line.tableVariableName»: Record «line.tableName.saveQuote»; Temp«line.tableVariableName»: Record «line.tableName.saveQuote» temporary; begin ResetTempLines(Temp«line.tableVariableName»); - with Temp«line.tableVariableName» do begin - OnPostUpdatePostedLineOnBeforeFindSet(Temp«line.tableVariableName»); - if FindSet() then - repeat - «line.tableVariableName».Get("Document No.", "Line No."); - OnPostUpdatePostedLineOnBeforeModify(«line.tableVariableName», Temp«line.tableVariableName»); - «line.tableVariableName».Modify(); - until Next() = 0; - end; + OnPostUpdatePostedLineOnBeforeFindSet(Temp«line.tableVariableName»); + if Temp«line.tableVariableName».FindSet() then + repeat + «line.tableVariableName».Get(Temp«line.tableVariableName»."Document No.", Temp«line.tableVariableName»."Line No."); + OnPostUpdatePostedLineOnBeforeModify(«line.tableVariableName», Temp«line.tableVariableName»); + «line.tableVariableName».Modify(); + until Temp«line.tableVariableName».Next() = 0; end; [IntegrationEvent(false, false)] @@ -409,10 +401,8 @@ class DocumentExtensions { local procedure UpdateLastPostingNos(var «header.tableVariableName»: Record «header.tableName.saveQuote») begin - with «header.tableVariableName» do begin - "Last Posting No." := «header.tableVariableNamePosted»."No."; - "Posting No." := ''; - end; + «header.tableVariableName»."Last Posting No." := «header.tableVariableNamePosted»."No."; + «header.tableVariableName»."Posting No." := ''; OnAfterUpdateLastPostingNos(«header.tableVariableName»); end; @@ -426,22 +416,20 @@ class DocumentExtensions { var IsHandled: Boolean; begin - with «line.tableVariableName» do begin - TestLine(«header.tableVariableName», «line.tableVariableName»); + TestLine(«header.tableVariableName», «line.tableVariableName»); - UpdateLineBeforePost(«header.tableVariableName», «line.tableVariableName»); + UpdateLineBeforePost(«header.tableVariableName», «line.tableVariableName»); - IsHandled := false; - OnPostLineOnBeforeInsertPostedLine(«header.tableVariableName», «line.tableVariableName», IsHandled, «header.tableVariableNamePosted»); - if not IsHandled then begin - «line.tableVariableNamePosted».Init; - «line.tableVariableNamePosted».TransferFields(«line.tableVariableName»); - «line.tableVariableNamePosted»."Document No." := «header.tableVariableNamePosted»."No."; + IsHandled := false; + OnPostLineOnBeforeInsertPostedLine(«header.tableVariableName», «line.tableVariableName», IsHandled, «header.tableVariableNamePosted»); + if not IsHandled then begin + «line.tableVariableNamePosted».Init(); + «line.tableVariableNamePosted».TransferFields(«line.tableVariableName»); + «line.tableVariableNamePosted»."Document No." := «header.tableVariableNamePosted»."No."; - OnBeforePostedLineInsert(«line.tableVariableNamePosted», «header.tableVariableNamePosted», Temp«line.tableVariableName»Global, «header.tableVariableName», SrcCode, SuppressCommit); - «line.tableVariableNamePosted».Insert(true); - OnAfterPostedLineInsert(«line.tableVariableNamePosted», «header.tableVariableNamePosted», Temp«line.tableVariableName»Global, «header.tableVariableName», SrcCode, SuppressCommit); - end; + OnBeforePostedLineInsert(«line.tableVariableNamePosted», «header.tableVariableNamePosted», Temp«line.tableVariableName»Global, «header.tableVariableName», SrcCode, SuppressCommit); + «line.tableVariableNamePosted».Insert(true); + OnAfterPostedLineInsert(«line.tableVariableNamePosted», «header.tableVariableNamePosted», Temp«line.tableVariableName»Global, «header.tableVariableName», SrcCode, SuppressCommit); end; OnAfterPostPostedLine(«header.tableVariableName», «line.tableVariableName», SuppressCommit, «line.tableVariableNamePosted»); @@ -551,37 +539,35 @@ class DocumentExtensions { local procedure CheckAndUpdate() begin - with «header.tableVariableName» do begin - // Check - CheckMandatoryHeaderFields(«header.tableVariableName»); - CheckPostRestrictions(«header.tableVariableName»); + // Check + CheckMandatoryHeaderFields(«header.tableVariableName»); + CheckPostRestrictions(«header.tableVariableName»); - if not HideProgressWindow then - InitProgressWindow(«header.tableVariableName»); + if not HideProgressWindow then + InitProgressWindow(«header.tableVariableName»); - CheckNothingToPost(«header.tableVariableName»); + CheckNothingToPost(«header.tableVariableName»); - OnAfterCheck«document.shortName.clean»(«header.tableVariableName», SuppressCommit); + OnAfterCheck«document.shortName.clean»(«header.tableVariableName», SuppressCommit); - // Update - ModifyHeader := UpdatePostingNo(«header.tableVariableName»); + // Update + ModifyHeader := UpdatePostingNo(«header.tableVariableName»); - OnBeforePostCommit«document.shortName.clean»(«header.tableVariableName», PreviewMode, ModifyHeader, SuppressCommit, Temp«line.tableVariableName»Global); - if not PreviewMode and ModifyHeader then begin - Modify; - if not SuppressCommit then - Commit(); - end; + OnBeforePostCommit«document.shortName.clean»(«header.tableVariableName», PreviewMode, ModifyHeader, SuppressCommit, Temp«line.tableVariableName»Global); + if not PreviewMode and ModifyHeader then begin + «header.tableVariableName».Modify(); + if not SuppressCommit then + Commit(); + end; - LockTables(«header.tableVariableName»); + LockTables(«header.tableVariableName»); - SourceCodeSetup.Get(); - SrcCode := SourceCodeSetup.«document.name.saveQuote»; + SourceCodeSetup.Get(); + SrcCode := SourceCodeSetup.«document.name.saveQuote»; - OnCheckAndUpdateOnAfterSetSourceCode(«header.tableVariableName», SourceCodeSetup, SrcCode); + OnCheckAndUpdateOnAfterSetSourceCode(«header.tableVariableName», SourceCodeSetup, SrcCode); - InsertPostedHeaders(«header.tableVariableName»); - end; + InsertPostedHeaders(«header.tableVariableName»); OnAfterCheckAndUpdate(«header.tableVariableName», SuppressCommit, PreviewMode); end; @@ -624,27 +610,25 @@ class DocumentExtensions { «solution.commentLineTableVariableName»: Record «solution.commentLineTableName.saveQuote»; RecordLinkManagement: Codeunit "Record Link Management"; begin - with «header.tableVariableName» do begin - «header.tableVariableNamePosted».Init(); - «header.tableVariableNamePosted».TransferFields(«header.tableVariableName»); - - «header.tableVariableNamePosted»."No." := "Posting No."; - «header.tableVariableNamePosted»."No. Series" := "Posting No. Series"; - «header.tableVariableNamePosted»."«document.shortName» No." := "No."; - «header.tableVariableNamePosted»."«document.shortName» Nos." := "No. Series"; - if GuiAllowed and not HideProgressWindow then - Window.Update(1, StrSubstNo(«document.shortNamePosted.clean»NoMsg, "No.", «header.tableVariableNamePosted»."No.")); - «header.tableVariableNamePosted»."Source Code" := SrcCode; - «header.tableVariableNamePosted»."User ID" := UserId; - «header.tableVariableNamePosted»."No. Printed" := 0; - - OnBefore«header.tableVariableNamePosted»Insert(«header.tableVariableNamePosted», «header.tableVariableName», SuppressCommit); - «header.tableVariableNamePosted».Insert(true); - OnAfter«header.tableVariableNamePosted»Insert(«header.tableVariableNamePosted», «header.tableVariableName», SuppressCommit); - - if «solution.setupTableVariableName»."Copy Comments" then begin - «solution.commentLineTableVariableName».CopyComments(«solution.commentLineTableVariableName»."Document Type"::«document.name.saveQuote», «solution.commentLineTableVariableName»."Document Type"::«document.namePosted.saveQuote», "No.", «header.tableVariableNamePosted»."No."); - end; + «header.tableVariableNamePosted».Init(); + «header.tableVariableNamePosted».TransferFields(«header.tableVariableName»); + + «header.tableVariableNamePosted»."No." := «header.tableVariableName»."Posting No."; + «header.tableVariableNamePosted»."No. Series" := «header.tableVariableName»."Posting No. Series"; + «header.tableVariableNamePosted»."«document.shortName» No." := «header.tableVariableName»."No."; + «header.tableVariableNamePosted»."«document.shortName» Nos." := «header.tableVariableName»."No. Series"; + if GuiAllowed and not HideProgressWindow then + Window.Update(1, StrSubstNo(«document.shortNamePosted.clean»NoMsg, «header.tableVariableName»."No.", «header.tableVariableNamePosted»."No.")); + «header.tableVariableNamePosted»."Source Code" := SrcCode; + «header.tableVariableNamePosted»."User ID" := UserId(); + «header.tableVariableNamePosted»."No. Printed" := 0; + + OnBefore«header.tableVariableNamePosted»Insert(«header.tableVariableNamePosted», «header.tableVariableName», SuppressCommit); + «header.tableVariableNamePosted».Insert(true); + OnAfter«header.tableVariableNamePosted»Insert(«header.tableVariableNamePosted», «header.tableVariableName», SuppressCommit); + + if «solution.setupTableVariableName»."Copy Comments" then begin + «solution.commentLineTableVariableName».CopyComments(«solution.commentLineTableVariableName»."Document Type"::«document.name.saveQuote», «solution.commentLineTableVariableName»."Document Type"::«document.namePosted.saveQuote», «header.tableVariableName»."No.", «header.tableVariableNamePosted»."No."); end; end; @@ -687,18 +671,16 @@ class DocumentExtensions { NoSeriesMgt: Codeunit NoSeriesManagement; IsHandled: Boolean; begin - with «header.tableVariableName» do begin - OnBeforeUpdatePostingNo(«header.tableVariableName», PreviewMode, ModifyHeader, IsHandled); - - if not IsHandled then - if "Posting No." = '' then - if not PreviewMode then begin - TestField("Posting No. Series"); - "Posting No." := NoSeriesMgt.GetNextNo("Posting No. Series", "Posting Date", true); - ModifyHeader := true; - end else - "Posting No." := PostingPreviewNoTok; - end; + OnBeforeUpdatePostingNo(«header.tableVariableName», PreviewMode, ModifyHeader, IsHandled); + + if not IsHandled then + if «header.tableVariableName»."Posting No." = '' then + if not PreviewMode then begin + «header.tableVariableName».TestField("Posting No. Series"); + «header.tableVariableName»."Posting No." := NoSeriesMgt.GetNextNo(«header.tableVariableName»."Posting No. Series", «header.tableVariableName»."Posting Date", true); + ModifyHeader := true; + end else + «header.tableVariableName»."Posting No." := PostingPreviewNoTok; OnAfterUpdatePostingNo(«header.tableVariableName», NoSeriesMgt, SuppressCommit); end; @@ -872,19 +854,17 @@ class DocumentExtensions { if IsHandled then exit; - with «ledgerEntry.tableVariableNameJournal» do begin - if EmptyLine then - exit; + if «ledgerEntry.tableVariableNameJournal».EmptyLine then + exit; - TestField("«master.name» No."); - TestField("Posting Date"); + «ledgerEntry.tableVariableNameJournal».TestField("«master.name» No."); + «ledgerEntry.tableVariableNameJournal».TestField("Posting Date"); - CheckPostingDate(«ledgerEntry.tableVariableNameJournal»); + CheckPostingDate(«ledgerEntry.tableVariableNameJournal»); - if "Document Date" <> 0D then - if "Document Date" <> NormalDate("Document Date") then - FieldError("Document Date", CannotBeClosingDateErr); - end; + if «ledgerEntry.tableVariableNameJournal»."Document Date" <> 0D then + if «ledgerEntry.tableVariableNameJournal»."Document Date" <> NormalDate(«ledgerEntry.tableVariableNameJournal»."Document Date") then + «ledgerEntry.tableVariableNameJournal».FieldError("Document Date", CannotBeClosingDateErr); OnAfterRunCheck(«ledgerEntry.tableVariableNameJournal»); end; @@ -894,17 +874,15 @@ class DocumentExtensions { UserSetupManagement: Codeunit "User Setup Management"; IsHandled: Boolean; begin - with «ledgerEntry.tableVariableNameJournal» do begin - if "Posting Date" <> NormalDate("Posting Date") then - FieldError("Posting Date", CannotBeClosingDateErr); + if «ledgerEntry.tableVariableNameJournal»."Posting Date" <> NormalDate(«ledgerEntry.tableVariableNameJournal»."Posting Date") then + «ledgerEntry.tableVariableNameJournal».FieldError("Posting Date", CannotBeClosingDateErr); - IsHandled := false; - OnCheckPostingDateOnBeforeCheckAllowedPostingDate("Posting Date", IsHandled); - if IsHandled then - exit; + IsHandled := false; + OnCheckPostingDateOnBeforeCheckAllowedPostingDate(«ledgerEntry.tableVariableNameJournal»."Posting Date", IsHandled); + if IsHandled then + exit; - UserSetupManagement.CheckAllowedPostingDate("Posting Date"); - end; + UserSetupManagement.CheckAllowedPostingDate(«ledgerEntry.tableVariableNameJournal»."Posting Date"); end; [IntegrationEvent(false, false)] @@ -961,57 +939,55 @@ class DocumentExtensions { begin OnBeforePostJnlLine(«ledgerEntry.tableVariableNameJournal»); - with «ledgerEntry.tableVariableNameJournal» do begin - if EmptyLine then - exit; + if «ledgerEntry.tableVariableNameJournal».EmptyLine() then + exit; - «document.codeunitVariableNameJnlCheckLine».RunCheck(«ledgerEntry.tableVariableNameJournal»); + «document.codeunitVariableNameJnlCheckLine».RunCheck(«ledgerEntry.tableVariableNameJournal»); - if NextEntryNo = 0 then begin - «ledgerEntry.tableVariableName».LockTable(); - NextEntryNo := «ledgerEntry.tableVariableName».GetLastEntryNo() + 1; - end; + if NextEntryNo = 0 then begin + «ledgerEntry.tableVariableName».LockTable(); + NextEntryNo := «ledgerEntry.tableVariableName».GetLastEntryNo() + 1; + end; - if "Document Date" = 0D then - "Document Date" := "Posting Date"; - - if «ledgerEntry.tableVariableNameRegister»."No." = 0 then begin - «ledgerEntry.tableVariableNameRegister».LockTable; - if (not «ledgerEntry.tableVariableNameRegister».FindLast()) or («ledgerEntry.tableVariableNameRegister»."To Entry No." <> 0) then begin - «ledgerEntry.tableVariableNameRegister».Init(); - «ledgerEntry.tableVariableNameRegister»."No." := «ledgerEntry.tableVariableNameRegister»."No." + 1; - «ledgerEntry.tableVariableNameRegister»."From Entry No." := NextEntryNo; - «ledgerEntry.tableVariableNameRegister»."To Entry No." := NextEntryNo; - «ledgerEntry.tableVariableNameRegister»."Creation Date" := Today; - «ledgerEntry.tableVariableNameRegister»."Creation Time" := Time; - «ledgerEntry.tableVariableNameRegister»."Source Code" := "Source Code"; - «ledgerEntry.tableVariableNameRegister»."Journal Batch Name" := "Journal Batch Name"; - «ledgerEntry.tableVariableNameRegister»."User ID" := UserId; - «ledgerEntry.tableVariableNameRegister».Insert(); - end; + if «ledgerEntry.tableVariableNameJournal»."Document Date" = 0D then + «ledgerEntry.tableVariableNameJournal»."Document Date" := «ledgerEntry.tableVariableNameJournal»."Posting Date"; + + if «ledgerEntry.tableVariableNameRegister»."No." = 0 then begin + «ledgerEntry.tableVariableNameRegister».LockTable(); + if (not «ledgerEntry.tableVariableNameRegister».FindLast()) or («ledgerEntry.tableVariableNameRegister»."To Entry No." <> 0) then begin + «ledgerEntry.tableVariableNameRegister».Init(); + «ledgerEntry.tableVariableNameRegister»."No." := «ledgerEntry.tableVariableNameRegister»."No." + 1; + «ledgerEntry.tableVariableNameRegister»."From Entry No." := NextEntryNo; + «ledgerEntry.tableVariableNameRegister»."To Entry No." := NextEntryNo; + «ledgerEntry.tableVariableNameRegister»."Creation Date" := Today(); + «ledgerEntry.tableVariableNameRegister»."Creation Time" := Time(); + «ledgerEntry.tableVariableNameRegister»."Source Code" := «ledgerEntry.tableVariableNameJournal»."Source Code"; + «ledgerEntry.tableVariableNameRegister»."Journal Batch Name" := «ledgerEntry.tableVariableNameJournal»."Journal Batch Name"; + «ledgerEntry.tableVariableNameRegister»."User ID" := UserId(); + «ledgerEntry.tableVariableNameRegister».Insert(); end; - «ledgerEntry.tableVariableNameRegister»."To Entry No." := NextEntryNo; - «ledgerEntry.tableVariableNameRegister».Modify(); + end; + «ledgerEntry.tableVariableNameRegister»."To Entry No." := NextEntryNo; + «ledgerEntry.tableVariableNameRegister».Modify(); - «master.tableVariableName».Get("«master.name» No."); + «master.tableVariableName».Get(«ledgerEntry.tableVariableNameJournal»."«master.name» No."); - IsHandled := false; - OnBeforeCheck«master.tableVariableName»Blocked(«master.tableVariableName», IsHandled); - if not IsHandled then - «master.tableVariableName».TestField(Blocked, false); + IsHandled := false; + OnBeforeCheck«master.tableVariableName»Blocked(«master.tableVariableName», IsHandled); + if not IsHandled then + «master.tableVariableName».TestField(Blocked, false); - «ledgerEntry.tableVariableName».Init(); - «ledgerEntry.tableVariableName».CopyFrom«ledgerEntry.tableVariableNameJournal»(«ledgerEntry.tableVariableNameJournal»); + «ledgerEntry.tableVariableName».Init(); + «ledgerEntry.tableVariableName».CopyFrom«ledgerEntry.tableVariableNameJournal»(«ledgerEntry.tableVariableNameJournal»); - «ledgerEntry.tableVariableName»."User ID" := UserId; - «ledgerEntry.tableVariableName»."Entry No." := NextEntryNo; + «ledgerEntry.tableVariableName»."User ID" := UserId(); + «ledgerEntry.tableVariableName»."Entry No." := NextEntryNo; - OnBeforeLedgerEntryInsert(«ledgerEntry.tableVariableName», «ledgerEntry.tableVariableNameJournal»); + OnBeforeLedgerEntryInsert(«ledgerEntry.tableVariableName», «ledgerEntry.tableVariableNameJournal»); - «ledgerEntry.tableVariableName».Insert(true); + «ledgerEntry.tableVariableName».Insert(true); - NextEntryNo := NextEntryNo + 1; - end; + NextEntryNo := NextEntryNo + 1; OnAfterPostJnlLine(«ledgerEntry.tableVariableNameJournal»); end; diff --git a/de.joneug.mdal/src/main/java/de/joneug/mdal/extensions/DocumentHeaderExtensions.xtend b/de.joneug.mdal/src/main/java/de/joneug/mdal/extensions/DocumentHeaderExtensions.xtend index fa0f516..84765b2 100644 --- a/de.joneug.mdal/src/main/java/de/joneug/mdal/extensions/DocumentHeaderExtensions.xtend +++ b/de.joneug.mdal/src/main/java/de/joneug/mdal/extensions/DocumentHeaderExtensions.xtend @@ -220,14 +220,12 @@ class DocumentHeaderExtensions { trigger OnLookup() begin - with «header.tableVariableName» do begin - «header.tableVariableName» := Rec; - Get«solution.setupTableVariableName»(); - TestNoSeries(); - if NoSeriesMgt.LookupSeries(GetPostingNoSeriesCode, "Posting No. Series") then - Validate("Posting No. Series"); - Rec := «header.tableVariableName»; - end; + «header.tableVariableName» := Rec; + Get«solution.setupTableVariableName»(); + TestNoSeries(); + if NoSeriesMgt.LookupSeries(GetPostingNoSeriesCode, «header.tableVariableName»."Posting No. Series") then + «header.tableVariableName».Validate("Posting No. Series"); + Rec := «header.tableVariableName»; end; trigger OnValidate() @@ -454,17 +452,15 @@ class DocumentHeaderExtensions { if IsHandled then exit; - with «header.tableVariableName» do begin - Copy(Rec); - Get«solution.setupTableVariableName»(); - TestNoSeries; - if NoSeriesMgt.SelectSeries(GetNoSeriesCode(), Old«header.tableVariableName»."No. Series", "No. Series") then begin - NoSeriesMgt.SetSeries("No."); - if «header.tableVariableName»2.Get("No.") then - Error(AlreadyExistsErr, TableCaption, "No."); - Rec := «header.tableVariableName»; - exit(true); - end; + «header.tableVariableName».Copy(Rec); + Get«solution.setupTableVariableName»(); + TestNoSeries(); + if NoSeriesMgt.SelectSeries(«header.tableVariableName».GetNoSeriesCode(), Old«header.tableVariableName»."No. Series", «header.tableVariableName»."No. Series") then begin + NoSeriesMgt.SetSeries(«header.tableVariableName»."No."); + if «header.tableVariableName»2.Get(«header.tableVariableName»."No.") then + Error(AlreadyExistsErr, TableCaption, «header.tableVariableName»."No."); + Rec := «header.tableVariableName»; + exit(true); end; end; diff --git a/de.joneug.mdal/src/main/java/de/joneug/mdal/extensions/MasterExtensions.xtend b/de.joneug.mdal/src/main/java/de/joneug/mdal/extensions/MasterExtensions.xtend index 8ba7769..584f777 100644 --- a/de.joneug.mdal/src/main/java/de/joneug/mdal/extensions/MasterExtensions.xtend +++ b/de.joneug.mdal/src/main/java/de/joneug/mdal/extensions/MasterExtensions.xtend @@ -174,15 +174,13 @@ class MasterExtensions { procedure AssistEdit(Old«master.tableVariableName»: Record "«master.tableName»"): Boolean begin - with «master.tableVariableName» do begin - «master.tableVariableName» := Rec; + «master.tableVariableName» := Rec; + Test«master.cleanedName»NoSeries(); + if NoSeriesMgt.SelectSeries(«solution.setupTableVariableName»."«master.name» Nos.", Old«master.tableVariableName»."No. Series", «master.tableVariableName»."No. Series") then begin Test«master.cleanedName»NoSeries(); - if NoSeriesMgt.SelectSeries(«solution.setupTableVariableName»."«master.name» Nos.", Old«master.tableVariableName»."No. Series", "No. Series") then begin - Test«master.cleanedName»NoSeries(); - NoSeriesMgt.SetSeries("No."); - Rec := «master.tableVariableName»; - exit(true); - end; + NoSeriesMgt.SetSeries(«master.tableVariableName»."No."); + Rec := «master.tableVariableName»; + exit(true); end; end; diff --git a/de.joneug.mdal/src/main/java/de/joneug/mdal/extensions/TemplateTypeExtensions.xtend b/de.joneug.mdal/src/main/java/de/joneug/mdal/extensions/TemplateTypeExtensions.xtend index 240991c..8c811b7 100644 --- a/de.joneug.mdal/src/main/java/de/joneug/mdal/extensions/TemplateTypeExtensions.xtend +++ b/de.joneug.mdal/src/main/java/de/joneug/mdal/extensions/TemplateTypeExtensions.xtend @@ -447,7 +447,7 @@ class TemplateTypeExtensions { if Cont.Get(«fieldName.saveQuote») then Cont.SetRange("Company No.", Cont."Company No.") else - if ContBusinessRelation.FindByRelation(ContBusinessRelation."Link to Table"::Customer, «fieldName.saveQuote») then + if ContBusinessRelation.FindByRelation(ContBusinessRelation."Link to Table"::Customer.AsInteger(), «fieldName.saveQuote») then Cont.SetRange("Company No.", ContBusinessRelation."Contact No.") else Cont.SetRange("No.", ''); diff --git a/de.joneug.mdal/src/test/java/de/joneug/mdal/generator/MdalGeneratorTest.xtend b/de.joneug.mdal/src/test/java/de/joneug/mdal/generator/MdalGeneratorTest.xtend index 04ceb3f..6c5c945 100644 --- a/de.joneug.mdal/src/test/java/de/joneug/mdal/generator/MdalGeneratorTest.xtend +++ b/de.joneug.mdal/src/test/java/de/joneug/mdal/generator/MdalGeneratorTest.xtend @@ -164,7 +164,7 @@ class MdalGeneratorTest { 'fieldgroup(DropDown; Description, "Description 2", "No.") { }', 'fieldgroup(Brick; Description, "No.") { }', 'SemRegHeader: Record "SEM Sem. Reg. Header";', - 'if NoSeriesMgt.SelectSeries(SemSetup."Seminar Nos.", OldSem."No. Series", "No. Series") then begin', + 'if NoSeriesMgt.SelectSeries(SemSetup."Seminar Nos.", OldSem."No. Series", Sem."No. Series") then begin', 'local procedure OnAfterGetSemSetup(var SemSetup: Record "SEM Seminar Setup")' ] )