Параметры Buhdlg01

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
savov
Местный житель
Сообщения: 589
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Воронеж ОАО Верофарм. Воронеж

Параметры Buhdlg01

Сообщение savov »

Добрый день! НЕт ли у кого информации о параметрах интерфейсов BuhDlg01 и Buhfilter?
На форуме не нашел...Буду благодарен за помощь
Max_Fin
На пенсии
Сообщения: 797
Зарегистрирован: 29 мар 2005, 17:49
Откуда: г. Тюмень
Контактная информация:

Re: Параметры Buhdlg01

Сообщение Max_Fin »

фейс BuhDlg01
wReport : word; //номер отчета
возможные значения
cgRepBuh_GrKau,
cgRepBuh_ConsGrKau,
cgRepBuh_PostPol,
cgRepBuh_ConsSeeSalM,
cgRepBuh_SaldoDAS,
cgRepBuh_RepTree

фейс BuhFilter
параметры:
Param, // Параметр интерфейса фильтра cgBuhFilter_* из BuhConst.inc
Filter; // Содержимое фильтра

возможные значения Param cgBuhFilter_SaldoBL,
cgBuhFilter_SaldMoun,
cgBuhFilter_SeeSaldMon,
cgBuhFilter_SaldDay,
cgBuhFilter_PrnSaldDay,
cgBuhFilter_PrnSalDKassa,
cgBuhFilter_Oborot,
cgBuhFilter_BookProv,
cgBuhFilter_PrnOborot,

Filter: BuhFilterRecord;
BuhFilterRecord = record
// Выбранные элементы основной и дополнительной части фильтров
ModeSet1 : longint;
ModeSet2 : word;
All4One : word;
cBankDocF : comp; // настройка для печати книги проводок
// План счетов
cPlansSch : comp;
mDas : word; // кол-во выбранных
DASLevel : word; // уровень, на котором выбран ДАС
wDas : word; // таблица ДАС
cDas : tKodKau; // значение при одиночном выборе
// Основной счет
SchetO : tSchet3;
mSchetO : word;
dbSchetO : tSchet19;
SubOsSch : tSubSch;
mSubOsSch : word; // Для множественного выбора
cKauOs1, cKauOs2, cKauOs3 : tKodKau; // Перевести на массив
cKauOs4, cKauOs5, cKauOs6 : tKodKau; // Перевести на массив
mKauOs1, mKauOs2, mKauOs3 : word; // Для множественного выбора
mKauOs4, mKauOs5, mKauOs6 : word; // Для множественного выбора
wKauOs1, wKauOs2, wKauOs3 : word; // Перевести на массив
wKauOs4, wKauOs5, wKauOs6 : word; // Перевести на массив
BackKau : word; // обратный фильтр (битовая маска)
KodSPO : comp;
mKodSPO : word; // Для множественного выбора
BackPodr : word; // обратный фильтр
// Корреспондирующий счет
SchetK : tSchet3;
mSchetK : word;
dbSchetK : tSchet19;
SubSchK : tSubSch;
mSubSchK : word; // Для множественного выбора
cKauKs1, cKauKs2, cKauKs3 : tKodKau; // Перевести на массив
cKauKs4, cKauKs5, cKauKs6 : tKodKau; // Перевести на массив
mKauKs1, mKauKs2, mKauKs3 : word; // Для множественного выбора
mKauKs4, mKauKs5, mKauKs6 : word; // Для множественного выбора
wKauKs1, wKauKs2, wKauKs3 : word; // Перевести на массив
wKauKs4, wKauKs5, wKauKs6 : word; // Перевести на массив
KodSPK : comp;
mKodSPK : word; // Для множественного выбора
// Прочие поля
ViOb : word;
SodPr : tSodPr;
HozDoc : word;
Descr : tDescr;
DesGr : tDesGr;
KodValut : comp;
cFilKor : comp;
cHozOper : comp;
// И даты :)
BegDate : date;
EndDate : date;
end;
Жду выхода Вселенная 2.12!
savov
Местный житель
Сообщения: 589
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Воронеж ОАО Верофарм. Воронеж

Re: Параметры Buhdlg01

Сообщение savov »

Огромное спасибо!!!!!
savov
Местный житель
Сообщения: 589
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Воронеж ОАО Верофарм. Воронеж

Re: Параметры Buhdlg01

Сообщение savov »

Приходиться возвращаться к данной теме на Галке 8.1.
Пытаюсь вызвать фейс F_BUHREP::BUHDLG01 с параметром cgRepBuh_MainBook ( равным 10032)
в ард-отчете:

Код: Выделить всё

.form 'MainBook_val'
.ard
.NameInList 'Главная книга в валюте '
.begin
 RunInterface('L_VAL::ChangeVal');//тут меняю пользовательскую настройку с валютой отчета, чтоб пользователь не лазил руками в настройки
 RunInterface('F_BUHREP::BUHDLG01',10032);// тут хочу получить главную книгу в валюте отчета			
end.
.endform
Фейс запускается без ошибок, я устанавливаю нужные мне параметры и запускаю получение отчета кнопкой "Сформировать". И вот тут возникает облом: не появляется список форм, а выходит пустое окно ( как будто текстовый пустой отчет). Если запустить из меню модуля "Бухгалтерская отчетность" и указать те же параметры, то и список отчетов виден, и все получается как надо.
Вопрос, что может вызывать такое срабатывание фейса?
savov
Местный житель
Сообщения: 589
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Воронеж ОАО Верофарм. Воронеж

Re: Параметры Buhdlg01

Сообщение savov »

Сам себе отвечаю.
Можно воспользоваться AQA системой для выяснения вопроса, что конкретно вызывалось и с какими параметрами.
Переработанный код, который работает:

Код: Выделить всё

.form 'MainBook_val'
.ard
.NameInList 'Главная книга в валюте '
.begin
 RunInterface('L_VAL::ChangeVal');
 RunInterface('F_BUHREP::BUHREPRUN',cgRepBuh_MainBook,0);			
end.
.endform
Т.е. вызов другого фейса помог.
Senkrid
Постоянный гость
Сообщения: 74
Зарегистрирован: 10 ноя 2009, 07:08
Откуда: Ангарск
Контактная информация:

Re: Параметры Buhdlg01

Сообщение Senkrid »

А интерфейс BuhFilter обрабатывает параметр Filter на предмет предустановки значений? (пробовал чтобы фейс запустился а там нужные чекбоксы отмеченные уже были - не получилось)
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: Параметры Buhdlg01

Сообщение edward_K »

ну вы должны оперировать объектами vipparams и pickbuh
как то так

Код: Выделить всё

...
#include PickBuh.var    // Переменная типа "Интерфеса работы с таблицей PickBuh" - или PickBuhNew
#include BuhRep.var
var
  VipParams   : TVipReportParams;

....
    if CashBank.cPodr>0
    { VipParams.mKodSPO := 0;
      VipParams.KodSPO :=0;
      iPickBuh.DeleteItem(cgPick_Podr);
      VipParams.mKodSPO := 1;
      VipParams.KodSPO :=CashBank.cPodr;
      if GetAnyKau(cgAkSimple, 2 , VipParams.KodSPO)
        iPickBuh.InsertFullRecord(cgPick_Podr, VipParams.KodSPO, GivenAnName(cgAnCode), '', '', GivenAnName(cgAnName), 1, 0)
    }  
- это кусок из докомпиляции параметров печати кассовой книги.
Ну если самостоятельно, то еще пригодится

Код: Выделить всё

  iBuhRep.LoadNastr(wReport, cReport, VipParams);
...
  iBuhRep.SaveNastr(wReport, cReport, VipParams);
но сие сам не делал.
Ответить