Форум

Например, на форме, в событие OnActive
пишем примерно так:
Dialogform.PostWho.SaveUserParam := False;
DialogForm.PostWho.Text:=[DialogForm.Partner."ПОЛНОЕ_НАИМЕНОВАНИЕ"];

//Dialogform.PostWho - это объект TfrEditControl
//DialogForm.Partner - это какой-нибудь источник

Цитата

Новосибирск ОАО "Электропромпроект" пишет: В этой же типовой "Транспортная накладная (прил.4)" в шаблоне в поле Грузоотправитель есть такой скрипт, самое его начало: if lFlagGOTSelf = true then cGOTFIO := dbPeople1.text else cGOTFIO := pGOT_FIO.text; cGOTFIO:= cGOTFIO+if(LENGTH(TRIM([pGOT_tel.text]))>0,', '+[pGOT_tel.text],''); lFlagGOTSelf - что за переменная? Значение которой устанвливается в OnActivate стр1 И что там за команда dPeople1. open ? Она встречается как одиночная, только open. А вот встречается в паре: GOT_kont. close ; GOT_kont.params['код_партнера'] := [DialogForm.Shapka."КОД_ГРУЗООТПРАВИТЕЛЬ"]; GOT_kont. open ; и почему-то вперед close , а потом open? Что в командах: Label_Adress1.Enabled := (nAddr1=2) List_Adress1.Enabled := (nAddr1=2) означает парметр nAddr1=2 и какие он еще может принимать значения?

В OnActivate на стр.1 есть комментарии перед оператором установки lFlagGOTSelf := true;
//Установить для ответственного лица справочник сотрудников, если поставщик и грузоотправитель одинаковы
if [DialogForm.Shapka."КОД_СОБСТВЕННОГО_ПРЕДПРИЯТИЯ"]=[DialogForm.Shapka."КОД_ГРУЗООТПРАВИТЕЛЯ"] then begin
dPeople1.open;
dbPeople1.visible := true;
pGOT_FIO.visible := false;
lFlagGOTSelf := true;
end;
Фактически lFlagGOTSelf - это признак того из какого справочника берется грузоотправитель: из сотрудников или из партнеров.
dPeople1.open - это команда открытия источника данных dPeople1
GOT_kont. close ; GOT_kont.params['код_партнера'] := [DialogForm.Shapka."КОД_ГРУЗООТПРАВИТЕЛЬ"]; GOT_kont. open ;
- эти три оператора переоткрывают источник GOT_kont с новым значением параметра 'код_партнера'. Для того, чтобы открытый
источник данных отработал с новым значением параметра, этот источник надо сначала закрыть, потом передать туда параметр,
а потом снова открыть.
Label_Adress1.Enabled := (nAddr1=2) - это видимо уже из другого отчета "Товарная накладная ТОРГ-12". Переменные nAddr1, nAddr2 и т.д. в этом шаблоне определены в скрипте у кнопки "Выполнить" на стр.1

Цитата

Новосибирск ОАО "Электропромпроект" пишет: Почему во второй Карточке запроса Счет-фактуры по накладной : 1) в окне Продавец. Адрес для выбора предоставляются два адреса (похоже это фактический адрес)? Как задается что два адреса и какие адреса и где заданы какие именно адреса? 2) в окне Грузоотправитель. Адрес для выбора предоставляются так же два адреса (похоже это фактический адрес)? Как задается что два адреса и какие адреса? 3) в окне Покупатель. Адрес для выбора предоставляются так же два адреса (но похоже это юридический и фактический адрес - у одного из партнеров они разные потому и обратил )? Как задается что два адреса и какие адреса и как они задаются?

Адресов для выбора предлагается столько столько их введено в справочнике партнеров для данного партнера. Источник данных, который используется для показа справочника адресов выбирает все адреса по данному партнеру.

Цитата
Сергей Введенский пишет: Label_Adress1.Enabled := (nAddr1=2) - это видимо уже из другого отчета "Товарная накладная ТОРГ-12". Переменные nAddr1, nAddr2 и т.д. в этом шаблоне определены в скрипте у кнопки "Выполнить" на стр.1

почему именно 2, а не иное значение? Какое еще можно ставит значение 0,1....,?

Цитата
Сергей Введенский пишет: Возможно придётся перебирать все записи источника в цикле, чтобы найти подходящую

Если взять за пример отчет Счет-фактура по накладной.
Там во втором окне запроса вводятся адреса Покупателя и Грузополучателя.
Эти адреса соответвуют истинным, т.е. в Карточке запроса данные взяты с нужной записи источника.
Там как это сделано? Тоже перебором? Что-то я там не обнаружил подобного.

У этих окон Карточки запроса указаны Источники данных Addr3 и Addr4 , среди полей которых нет нужного мне, что бы можно было сделать подстановку и посмотреть

Кстати, в этом шаблоне не найду где опредляется значение переменной Text6a .
Поиск указывает на стр1 Выполнить. Но там есть только начальная установка значения Text6a:=' '.
Явно где-то в другом месте. Только где???

м

Цитата
Сергей Введенский пишет: Какое поле Вам нужно и куда хотите его подставлять?

Мне нужно модифицировать отчет Акт на работы (услуги), а именно вставить в поле Представитель заказчика нужную фамилию. Эта фамилия занесена в одно из свободных полей Справочника ПАРТНЕРЫ ПРЕДПРИЯТИЯ . Для упрощения примера возьмем поле СОКРАЩЕННОЕ_НАИМЕНОВАНИЕ.
Я беру существующий шаблон отчета Акт на работы (услуги) и модифицирую его по следующей схеме.

1. Как мы говорили раньше Справочник партнеров это bdf.sprav.sprav_partner
В данном отчете такого источника нет.
Поэтому я ввожу дополнительный Источник БЭСТ в Карточке запроса стр.2., в котором устанавливаю:

DSName = bdf.sprav.sprav_partner
Name = partner1.
Params = [DialogForm.Shapka." СОКРАЩЕННОЕ_НАИМЕНОВАНИЕ "]

2. В Карточке запроса на стр.2 во втором окне запроса Представитель «Заказчика» меняю элемент управления в Edit на DBList (для выбора значения из таблицы-справочника) и устанавливаю его свойства:

ListSource = partner1
ListField = СОКРАЩЕННОЕ_НАИМЕНОВАНИЕ
GridFieldLists - в перечне полей пометил галочкой СОКРАЩЕННОЕ_НАИМЕНОВАНИЕ
KeyField = СОКРАЩЕННОЕ_НАИМЕНОВАНИЕ
Name = PrZak

3. В скрипте OnActivate пишу в конце алгоритма примерно так:

PrZak.SaveUserParam := false;
PrZak.Text:= [DialogForm.partner1" СОКРАЩЕННОЕ_НАИМЕНОВАНИЕ "]


4. На стр.1 в шаблоне в поле Представитель Заказчика ставлю переменную mmm и в скрипте пишу


mmm:=[PrZak.TEXT];
if mmm='' then mmm :=[DialogForm. partner1" СОКРАЩЕННОЕ_НАИМЕНОВАНИЕ "]

ВСЕ.

При выполнении такого отчета в Карточке запроса в окне Представитель заказчика
будет стоять значение из первой записи справочника ПАРТНЕРЫ ПРЕДПРИЯТИЯ (т.е.первого партнера). И для выбора будут представлены значения этого поля всех партнеров.

Мне же хотелось бы, что бы в окне Представитель заказчика
стояло значение из той записи справочника ПАРТНЕРЫ ПРЕДПРИЯТИЯ , отчет которого я формирую. И для выбора больше ничего не представлялось (ну или, на худой конец, значения этого поля всех партнеров).

Далее, я либо оставляю то значение, что стоит в окне, либо набираю с клавиатуры нужное мне (либо выбираю, если есть выбор)

Всё.


PS. Да, что интересно. Если я вместо поля " СОКРАЩЕННОЕ_НАИМЕНОВАНИЕ " в этом
примере буду использовать поле " ПОЛНОЕ_НАИМЕНОВАНИЕ ", то
в окне Представитель заказчика для выбора будут представлены не значения этого поля всех партнеров. а текст {MEMO}
См файл.
Если использую другое поле, такого не происходит.

Цитата

Новосибирск ОАО "Электропромпроект" пишет: Мне нужно модифицировать отчет Акт на работы (услуги), а именно вставить в поле Представитель заказчика нужную фамилию. Эта фамилия занесена в одно из свободных полей Справочника ПАРТНЕРЫ ПРЕДПРИЯТИЯ . Для упрощения примера возьмем поле СОКРАЩЕННОЕ_НАИМЕНОВАНИЕ. Я беру существующий шаблон отчета Акт на работы (услуги) и модифицирую его по следующей схеме. 1. Как мы говорили раньше Справочник партнеров это bdf.sprav.sprav_partner В данном отчете такого источника нет. Поэтому я ввожу дополнительный Источник БЭСТ в Карточке запроса стр.2., в котором устанавливаю: DSName = bdf.sprav.sprav_partner Name = partner1. Params = [DialogForm.Shapka." СОКРАЩЕННОЕ_НАИМЕНОВАНИЕ "] 2. В Карточке запроса на стр.2 во втором окне запроса Представитель «Заказчика» меняю элемент управления в Edit на DBList (для выбора значения из таблицы-справочника) и устанавливаю его свойства: ListSource = partner1 ListField = СОКРАЩЕННОЕ_НАИМЕНОВАНИЕ GridFieldLists - в перечне полей пометил галочкой СОКРАЩЕННОЕ_НАИМЕНОВАНИЕ KeyField = СОКРАЩЕННОЕ_НАИМЕНОВАНИЕ Name = PrZak 3. В скрипте OnActivate пишу в конце алгоритма примерно так: PrZak.SaveUserParam := false; PrZak.Text:= [DialogForm.partner1" СОКРАЩЕННОЕ_НАИМЕНОВАНИЕ "] 4. На стр.1 в шаблоне в поле Представитель Заказчика ставлю переменную mmm и в скрипте пишу mmm:=[PrZak.TEXT]; if mmm='' then mmm :=[DialogForm. partner1" СОКРАЩЕННОЕ_НАИМЕНОВАНИЕ "] ВСЕ. При выполнении такого отчета в Карточке запроса в окне Представитель заказчика будет стоять значение из первой записи справочника ПАРТНЕРЫ ПРЕДПРИЯТИЯ (т.е.первого партнера). И для выбора будут представлены значения этого поля всех партнеров. Мне же хотелось бы, что бы в окне Представитель заказчика стояло значение из той записи справочника ПАРТНЕРЫ ПРЕДПРИЯТИЯ , отчет которого я формирую. И для выбора больше ничего не представлялось (ну или, на худой конец, значения этого поля всех партнеров). Далее, я либо оставляю то значение, что стоит в окне, либо набираю с клавиатуры нужное мне (либо выбираю, если есть выбор) Всё. PS. Да, что интересно. Если я вместо поля " СОКРАЩЕННОЕ_НАИМЕНОВАНИЕ " в этом примере буду использовать поле " ПОЛНОЕ_НАИМЕНОВАНИЕ ", то в окне Представитель заказчика для выбора будут представлены не значения этого поля всех партнеров. а текст {MEMO} См файл. Если использую другое поле, такого не происходит.

Ваша основная ошибка заключается в том, что пытаетесь на событии OnActivate использовать значения полей источника Shapka (для задания параметров источника partner1), а источник Shapka открывается только при нажатии кнопки "Выполнить". Перенесите часть скрипта, касающуюся источника Shapka из кнопки "Выполнить" на событие OnActivate формы. В данном случае это можно сделать потому что для задания параметров источника Shapka поля из карточки запроса не используются.
И ещё в список полей источника Shapka добавте поля "ПАРТНЕР_КОД" и "ПАРТНЕР_НАИМЕНОВАНИЕ" (или совсем очистите этот список).
Скрипт OnActivate должен выглядеть примерно так:
cTypeBase:=[FIRM('lbl_type')];
{передача параметров в шапку документа}
Shapka.Close;
Shapka.Params['Код_Арма']:=[DialogForm.task."Код арма"];
Shapka.Params[' _Движения']:=[DialogForm.task." движения"];
Shapka.Params['Вид_Движения']:=[DialogForm.task."Вид движения"];
Shapka.Params['Склад']:=[DialogForm.task."Склад"];
Shapka.Params['Код_Документа']:=[DialogForm.task."Код документа"];
Shapka.Params['Номер_Документа']:=[DialogForm.task."Номер документа"];
Shapka.Params['Шапка']:=1;
Shapka.Params['Тип_базы']:=cTypeBase;
Shapka.Params['Код_реестра']:=[DialogForm.task."Код реестра"];
Shapka.Params['Дата_документа']:=[DialogForm.task."Дата документа"];
Shapka.Open;

Partner1.Close;
Partner1.Params['Код_партнера'] := [DialogForm.SHAPKA."КОД_КОНТРАГЕНТА"];
Partner1.Open;
PrZak.SaveUserParam := false;
PrZak.Text := [DialogForm.Partner1."СОКРАЩЕННОЕ_НАИМЕНОВАНИЕ"];
// или можно писать напрямую без источника Partner1
PrZak.Text := [DialogForm.SHAPKA."ПАРТНЕР_НАИМЕНОВАНИЕ"];

Поля длиной более 254 символов (такие как "ПОЛНОЕ_НАИМЕНОВАНИЕ") не предназначены для использования в справочниках. Они настолько длинные, что при полностью текст из этих полей не будет виден. Используйте "СОКРАЩЕННОЕ_НАИМЕНОВАНИЕ".

Спасибо! То что надо!

Счет-фактура по накладной (№ 1137 от 26.12.2011)
Как в отчете убрать безболезнено стр1 (Карточка запроса адресов) и стр.2 (С/ф ландшафт)
Простое удаление страниц без каких-либо соответствующих корректировок приводит к ошибке:
Индекс списка вышел за границы (3)

Здравствуйте!
Есть необходимость сформировать список сотрудников и их оклады, а точнее:

Код
№п\п          ФИО         Должность           Оклад / Тариф ставка

Все данные из Карточки работника.
Какой отчет можно взять за пример, что бы посмотреть какой справочник нужно задействовать?

...

Сформировал на базе Расчетной ведомости Т-51

Действительно, в данном случае проще написать свой источник. В БЭСТ-е таких простых отчетов кажется и нет. За основу можно взять источник для выдачи основных данных по карточке персонального учета: bdf.form_salary.form_salary_osn. Только он расчитан на выдачу данных только по одному сотруднику. Поэтому условие отбора записей придётся изменить.