...
}
CONTROLS
{
}
}
REQUESTPAGE
...
...
}
CONTROLS
{
// Add the following lines.
{ 1010000;Label ;0 ;0 ;5170 ;440 ;ParentControl=1010001;
InPage=-1 }
{ 1010001;TextBox ;5280 ;0 ;3080 ;440 ;Name=JournalTemplateName;
CaptionML=ENU=Journal Template Name;
SourceExpr=GeneralJournalTemplateName;
TableRelation="Gen. Journal Template";
OnValidate=BEGIN
IF GeneralJournalTemplateName = '' THEN
GeneralJournalBatchName := '';
END;
OnLookup=VAR
GenJnlTemplate@1010000 : Record 80;
BEGIN
GenJnlTemplate.SETRANGE(Type,GenJnlTemplate.Type::General);
IF (FORM.RUNMODAL(0,GenJnlTemplate) = ACTION::LookupOK) THEN BEGIN
GeneralJournalTemplateName := GenJnlTemplate.Name;
END;
END;
}
{ 1010002;Label ;0 ;660 ;5170 ;440 ;ParentControl=1010003;
InPage=-1 }
{ 1010003;TextBox ;5280 ;660 ;3080 ;440 ;Name=JournalBatch;
ValidateTableRelation=No;
CaptionML=ENU=Journal Batch;
SourceExpr=GeneralJournalBatchName;
TableRelation="Gen. Journal Batch";
OnValidate=VAR
GenJournalBatch@1010000 : Record 232;
BEGIN
GenJournalBatch.GET(GeneralJournalTemplateName,GeneralJournalBatchName);
GenJournalBatch.TESTFIELD(Recurring,FALSE);
GenJournalBatch.TESTFIELD("No. Series");
END;
OnLookup=VAR
GenJnlTemplate@1010000 : Record 80;
GenJournalBatch@1010001 : Record 232;
BEGIN
GenJnlTemplate.GET(GeneralJournalTemplateName);
GenJournalBatch.SETRANGE("Journal Template Name",GeneralJournalTemplateName);
GenJournalBatch.Name := GeneralJournalBatchName;
IF GenJournalBatch.FIND('=><') THEN ;
IF (FORM.RUNMODAL(0,GenJournalBatch) = ACTION::LookupOK) THEN BEGIN
GeneralJournalBatchName := GenJournalBatch.Name;
END;
END;
}
{ 1010004;Label ;0 ;1320 ;5170 ;440 ;ParentControl=1010005;
InPage=-1 }
{ 1010005;CheckBox ;5280 ;1320 ;440 ;440 ;Name=PostGenJnlLines;
ShowCaption=No;
CaptionML=ENU=Post General Journal Lines;
SourceExpr=PostGenJnlLines }
// End of the added lines.
}
}
REQUESTPAGE
...