34 lines
731 B
Text
34 lines
731 B
Text
|
OBJECT Codeunit 11 Gen. Jnl.-Check Line
|
||
|
|
{
|
||
|
|
OBJECT-PROPERTIES
|
||
|
|
{
|
||
|
|
Date=09-09-14;
|
||
|
|
Time=12:00:00;
|
||
|
|
Version List=NAVW18.00;
|
||
|
|
}
|
||
|
|
PROPERTIES
|
||
|
|
{
|
||
|
|
TableNo=81;
|
||
|
|
Permissions=TableData 252=rimd;
|
||
|
|
OnRun=BEGIN
|
||
|
|
GLSetup.GET;
|
||
|
|
RunCheck(Rec);
|
||
|
|
END;
|
||
|
|
|
||
|
|
}
|
||
|
|
CODE
|
||
|
|
{
|
||
|
|
VAR
|
||
|
|
Text000@1000 : TextConst 'ENU=can only be a closing date for G/L entries';
|
||
|
|
Text001@1001 : TextConst 'ENU=is not within your range of allowed posting dates';
|
||
|
|
|
||
|
|
PROCEDURE ErrorIfPositiveAmt@2(GenJnlLine@1000 : Record 81);
|
||
|
|
BEGIN
|
||
|
|
IF GenJnlLine.Amount > 0 THEN
|
||
|
|
GenJnlLine.FIELDERROR(Amount,Text008);
|
||
|
|
END;
|
||
|
|
|
||
|
|
LOCAL PROCEDURE CheckGenJnlLineDocType@7(GenJnlLine@1001 : Record 81);
|
||
|
|
}
|
||
|
|
}
|