Check mandatory value before posting payment journal

(0) Share

Report

Posted on by Samantha73

3,332

Hi All

I'm trying to make dimension code 2 field mandatory on payment journal. However though I have specified the journal template = payment, the validation is triggered on cash receipt and general journals. How do I isolate this check to the particular journal type (payment) ?

Here's my code so far:

[EventSubscriber(ObjectType::Codeunit, codeunit::"Gen. Jnl.-Post Batch", 'OnBeforePostGenJnlLine', '', true, true)]

local procedure CheckDim2Paymt(var GenJournalLine: Record "Gen. Journal Line")

var

begin

GenJournalLine.Reset();

GenJournalLine.SetRange("Journal Template Name", 'PAYMENT');

GenJournalLine.SetFilter(Amount, '<>%1', 0);

GenJournalLine.SetRange("Shortcut Dimension 2 Code", '');

if GenJournalLine.FindFirst() then

error('check dim2');

I have the same question (0)

All responses (6)

Answers (0)

Sort by

Suggested answer

Nitin Verma 21,812 Moderator on at

Like
a
(0)

Report
Copy link

Link copied!

Hi Samantha73 ,

If you are using any account type you can go Dimension from that Account type card and put the Dimension as Mandatory like the below image showing Mandatory for GL account No. in this case. by doing this system will not allow you post the entry until you provide the dimension. and Choose "Code mandatory"

Was this reply helpful? Yes No
Suggested answer

divyeshchitte 970 on at

Like
a
(0)

Report
Copy link

Link copied!

One additional Information to Nitin Verma Comment

When you make the Code Mandatory on the default Dimension, It will not allow you to post any transaction apart from Payment journal Like Sales Order , Sales Invoice , Purchase Orders and Invoice.

Was this reply helpful? Yes No
Samantha73 3,332 on at

Like
a
(0)

Report
Copy link

Link copied!

Thanks for the replies but dimension is an example so what I want is how to set a field mandatory only on a particular type of journal (General/Payment) etc with a bunch of other conditions so the solution is extendable

Was this reply helpful? Yes No
Suggested answer

Nitin Verma 21,812 Moderator on at

Like
a
(0)

Report
Copy link

Link copied!

Please give a try below

[EventSubscriber(ObjectType::Codeunit, codeunit::"Gen. Jnl.-Post Batch", 'OnBeforePostGenJnlLine', '', true, true)]

local procedure CheckDim2Paymt(var GenJournalLine: Record "Gen. Journal Line")

var

GenJournalLine2: Record "Gen. Journal Line";

begin

GenJournalLine2.Reset();

GenJournalLine2.SetRange("Journal Template Name",GenJournalLine."Journal Template Name");

GenJournalLine2.SetRange("Journal Batch Name",GenJournalLine."Journal Batch Name");

GenJournalLine2.SetFilter(Amount, '<>%1', 0);

GenJournalLine2.SetRange("Shortcut Dimension 2 Code", '');

if GenJournalLine2.FindFirst() then

error('check dim2');

end;

}

Was this reply helpful? Yes No
Suggested answer

Dallefeld 235 User Group Leader on at

Like
a
(1)

Report
Copy link

Link copied!

Dimensions requirements on based on master records such as the Bank Account and controlled absolutely at the GL Account record. No code should be required.

Was this reply helpful? Yes No
Suggested answer

MahGah 15,613 on at

Like
a
(1)

Report
Copy link

Link copied!

Maybe use the following free app which is more flexible.

appsource.microsoft.com/.../PUBID.navtilus|AID.9762768c-307f-4b98-9b08-7abbaea78671|PAPPID.9762768c-307f-4b98-9b08-7abbaea78671

Was this reply helpful? Yes No