...
No[5] := No5;
"Shortcut Dimension 1 Code" := '';
"Shortcut Dimension 2 Code" := '';
DimMgt.GetDefaultDim(
TableID,No,"Source Code","Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
// Delete the following lines.
IF "Line No." <> 0 THEN
DimMgt.UpdateJnlLineDefaultDim(
DATABASE::"Gen. Journal Line","Journal Template Name",
"Journal Batch Name","Line No.",0,
"Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
// End of the lines.
END;
PROCEDURE ValidateShortcutDimCode@14(FieldNumber@1000 : Integer;VAR ShortcutDimCode@1001 : Code[20]);
BEGIN
DimMgt.ValidateDimValueCode(FieldNumber,ShortcutDimCode);
...
...
No[5] := No5;
"Shortcut Dimension 1 Code" := '';
"Shortcut Dimension 2 Code" := '';
DimMgt.GetDefaultDim(
TableID,No,"Source Code","Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
// Add the following lines.
IF "Line No." <> 0 THEN BEGIN
DimMgt.UpdateJnlLineDefaultDim(
DATABASE::"Gen. Journal Line","Journal Template Name",
"Journal Batch Name","Line No.",0,
"Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
IF MODIFY THEN;
END;
// End of the lines.
END;
PROCEDURE ValidateShortcutDimCode@14(FieldNumber@1000 : Integer;VAR ShortcutDimCode@1001 : Code[20]);
BEGIN
DimMgt.ValidateDimValueCode(FieldNumber,ShortcutDimCode);
...