...
JnlSelected := FORM.RUNMODAL(0,GenJnlTemplate) = ACTION::LookupOK;
END;
IF JnlSelected THEN BEGIN
// Delete the following lines.
GenJnlLine.FILTERGROUP := 2;
GenJnlLine.SETRANGE("Journal Template Name",GenJnlTemplate.Name);
GenJnlLine.FILTERGROUP := 0;
IF OpenFromBatch THEN BEGIN
GenJnlLine."Journal Template Name" := '';
FORM.RUN(GenJnlTemplate."Form ID",GenJnlLine);
// End of the deleted lines.
END;
END;
...
...
JnlSelected := FORM.RUNMODAL(0,GenJnlTemplate) = ACTION::LookupOK;
END;
IF JnlSelected THEN BEGIN
// Add the following lines.
IF (GenJnlTemplate."Form ID" = 11400) OR
(GenJnlTemplate."Form ID" = 11403)
THEN BEGIN
CBGStatement.FILTERGROUP := 2;
CBGStatement.SETRANGE("Journal Template Name",GenJnlTemplate.Name);
CBGStatement.FILTERGROUP := 0;
IF OpenFromBatch THEN BEGIN
CBGStatement."Journal Template Name" := '';
FORM.RUN(GenJnlTemplate."Form ID",CBGStatement);
END;
END ELSE BEGIN
GenJnlLine.FILTERGROUP := 2;
GenJnlLine.SETRANGE("Journal Template Name",GenJnlTemplate.Name);
GenJnlLine.FILTERGROUP := 0;
IF OpenFromBatch THEN BEGIN
GenJnlLine."Journal Template Name" := '';
FORM.RUN(GenJnlTemplate."Form ID",GenJnlLine);
END;
// End of the added lines.
END;
END;
...