|
В триггере OnLookup второго параметра (если речь идет о контроле TextBox формы запроса отчета) добавьте код типа:
CLEAR(AgreementList);
AgreementList.LOOKUPMODE := TRUE;
Agreement.FILTERGROUP(2);
Agreement.SETRANGE("Source Type", "Source Type"::Customer);
Agreement.SETRANGE("Source No.", Customer."No.");
Agreement.FILTERGROUP(0);
AgreementList.SETTABLEVIEW(Agreement);
IF AgreementList.RUNMODAL = ACTION::LookupOK THEN BEGIN
AgreementList.GETRECORD(Agreement);
AgreementNo := Agreement.Code;
END;
Где AgreementList соотв. форма выбора Договора
|