| begin // Сокращённая форма
 if User_Sets.SokrForm=2 then
 begin
 // Шапка окна
 DocROffice.i_paDoc.Visible:=True; // Основные данные о документе
 DocROffice.i_paKursVal.Visible:=False; // Курс валют
 DocROffice.i_paType_Oplat.Visible:=False; // Тип оплаты
 DocROffice.i_paTypeOplat.Visible:=False; // Вид реализации
 DocROffice.i_paTimeRezerv.Visible:=False; // Время резерва и отсрочка платежа
 DocROffice.i_paPriseList.Visible:=False; // Прайс-лист
 DocROffice.i_paKorrectKurs.Visible:=False; // Корректировочный курс
 DocROffice.i_paSkidka.Visible:=False; // Скидка
 DocROffice.i_paDover.Visible:=False; // Доверенность
 DocROffice.i_paZadatok.Visible:=False; // Задаток
 DocROffice.i_paVidPlatega.Visible:=False; // Вид платежа
 DocROffice.i_paVnutrPerem.Visible:=False; // Внутреннее перемещение
 DocROffice.i_paSumms.Visible:=False; // Суммы
 
 // Закладки
 DocROffice.i_tsDvig.TabVisible:=True; // Закладка движения товаров
 // DocROffice.i_tsSostav.TabVisible:=True; // Состав включается автоматически при составном товаре
 DocROffice.i_tsSummarVid.TabVisible:=False; // Суммарно товары
 DocROffice.i_tsSostSum.TabVisible:=False; // Состав суммарно
 DocROffice.i_tsPlateg.TabVisible:=False; // Платежи (РКО, ПКО)
 DocROffice.i_tsOsnovanPlateg.TabVisible:=False; // Основание платежа (Платёжка)
 DocROffice.i_tSShtrihCode.TabVisible:=False; // Штрих-коды товаров (серийные номера)
 DocROffice.i_tsNewDvig.TabVisible:=False; // Новое движение
 DocROffice.i_tsShtrihCodesSource.TabVisible:=False; // Штрих-коды в документе-источнике
 
 // Кнопки создангия на основании
 DocROffice.i_tbCreateRashNaklFromPrih.Visible:=True; // -> РН
 DocROffice.i_tbVPNaOsn.Visible:=True; // -> ВП
 DocROffice.i_tbCreateSchFaktFromPrih.Visible:=True; // -> СФ
 DocROffice.i_tbCreateSchFaktRezFromPrih.Visible:=True; // -> СФР
 DocROffice.i_tbRKO.Visible:=True; // -> РКО
 DocROffice.i_tbPKO.Visible:=False; // -> ПКО
 DocROffice.i_tbVN.Visible:=True; // -> ВН
 DocROffice.i_tbRPN.Visible:=True; // -> РПН
 DocROffice.i_tbVNN.Visible:=False; // -> ВНН
 DocROffice.i_tbON.Visible:=False; // -> ОН
 DocROffice.i_tbCreateSchet.Visible:=False; // -> Счёт
 DocROffice.i_tbCreateDocAnnul.Visible:=False; // -> Аннул
 DocROffice.i_tbCreateDocBron.Visible:=False; // -> Брон
 // Инструменты (кнопки сверху окна)DocROffice.i_sbPrint.Visible:=True; // Кнопка печати документов
 DocROffice.i_cbKurs.Visible:=True; // Запрос курса
 DocROffice.i_cbViewAll.Visible:=True; // Просмотр всего
 DocROffice.i_tbLogsDvig.Visible:=True; // Лог движения
 DocROffice.i_sbOst.Visible:=True; // Текущие остатки
 DocROffice.i_sbNestProv.Visible:=True; // Не стандартные проводки
 DocROffice.i_sbBuildStandartProv.Visible:=True; // Построение стандартных проводок
 DocROffice.i_cbProverDocDvig.Visible:=True; // Проверка документа движения
 // DocROffice.i_cbGetOst.Visible:=True; // Получение остатков
 DocROffice.i_cbRoundCen.Visible:=True; // Округление цены
 DocROffice.i_cbSetSum.Visible:=True; // Разрешение ввода сумм
 // DocROffice.i_cbGetFromZakaz.Visible:=True; // Получение из заказа
 DocROffice.i_cbAllView.Visible:=True; // Показывать всё
 // DocROffice.i_cbViewNowOst.Visible:=True; // Просмотр текущих остатков
 DocROffice.i_cbAvtoSearch.Visible:=True; // Автоматический поиск
 
 ////////////////////////////////////////////////
 ////////////// Элементы шапки //////////////////
 ////////////////////////////////////////////////
 // ---- paDoc -----
 DocROffice.i_lbDocN.Visible:=True;
 DocROffice.i_dePrefDoc.Visible:=True;
 DocROffice.i_deN.Visible:=True;
 DocROffice.i_lbDate.Visible:=True;
 DocROffice.i_dtpDate.Visible:=True;
 DocROffice.i_lbIncomDoc.Visible:=True;
 DocROffice.i_deIncomDoc.Visible:=True;
 DocROffice.i_sbBig.Visible:=True;DocROffice.i_sbHide.Visible:=True;
 DocROffice.i_lbSchetVF.Visible:=True;DocROffice.i_rlcSchetVnutrFirm.Visible:=True;
 DocROffice.i_lbVneshFirm.Visible:=True;
 DocROffice.i_sbVneshFirm.Visible:=True;
 DocROffice.i_dtVneshFirm.Visible:=True;
 DocROffice.i_lbChetPok.Visible:=True;
 DocROffice.i_lcSchetPok.Visible:=True;
 DocROffice.i_lbSummaPlateg.Visible:=True;
 DocROffice.i_deSummaPlateg.Visible:=True;
 DocROffice.i_deNDSPlateg.Visible:=True;
 
 // ---- paKursVal ----
 DocROffice.i_lbNameValuta.Visible:=True;
 DocROffice.i_dtFirstVal.Visible:=True;
 DocROffice.i_deMainKursVal.Visible:=True;
 
 // ---- paType_Oplat ----
 DocROffice.i_lbTypeOplat.Visible:=True;
 DocROffice.i_dceTypeOplat.Visible:=True;
 // ---- paTypeOplat ----DocROffice.i_lbVidRealiz.Visible:=True;
 DocROffice.i_dceVidRealiz.Visible:=True;
 DocROffice.i_sbIsOplat.Visible:=True;
 DocROffice.i_dcbOtvetstvHran.Visible:=True;
 // ---- paTimeRezerv ----DocROffice.i_lbRezerv.Visible:=True;
 DocROffice.i_sbTimeRezerv.Visible:=True;
 DocROffice.i_stTimeRezerv.Visible:=True;
 // ---- paPriseList ----DocROffice.i_lbPriseLst.Visible:=True;
 DocROffice.i_sbPriceList.Visible:=True;
 DocROffice.i_dtPriseName.Visible:=True;
 
 // ---- paKorrectKurs ----
 DocROffice.i_lbKorrKurs.Visible:=True;
 DocROffice.i_dtKurs_Pribil.Visible:=True;
 DocROffice.i_sbKursRazn.Visible:=True;
 // ---- paSkidka ----DocROffice.i_lbSkidk.Visible:=True;
 DocROffice.i_deSkidk.Visible:=True;
 DocROffice.i_dceSkidk.Visible:=True;
 DocROffice.i_bbSkidkFullDoc.Visible:=True;
 // ---- paDover ----DocROffice.i_lbDover.Visible:=True;
 DocROffice.i_deDoveren.Visible:=True;
 DocROffice.i_lbDateDover.Visible:=True;
 DocROffice.i_dtpDovDate.Visible:=True;
 DocROffice.i_lbCherezWho.Visible:=True;
 DocROffice.i_deDovWho.Visible:=True;
 // ---- paZadatok ----DocROffice.i_lbZadat.Visible:=True;
 DocROffice.i_deZadat.Visible:=True;
 DocROffice.i_dceZadat.Visible:=True;
 // ---- paVidPlatega ----DocROffice.i_lbVidPlateg.Visible:=True;
 DocROffice.i_spVidPlateg.Visible:=True;
 DocROffice.i_dtVidPlatega.Visible:=True;
 
 // ---- paVnutrPerem ----
 DocROffice.i_lbPeremeschOt.Visible:=True;
 DocROffice.i_rlcSkladOt.Visible:=True;
 DocROffice.i_lbPeremeschKuda.Visible:=True;
 DocROffice.i_rlcSkladKuda.Visible:=True;
 
 // ---- paSumms ----
 DocROffice.i_lbDocParent.Visible:=True;
 DocROffice.i_sbDocParent.Visible:=True;
 DocROffice.i_lbParentDoc.Visible:=True;
 DocROffice.i_lcVidOplat.Visible:=False;DocROffice.i_lbVidOpl.Visible:=False;
 
  // Инициализация значений полейif DocROffice.IsNewDoc then
 begin
 if not((DocROffice.i_dmDocs.i_itDoc.State=dsEdit)
 Or(DocROffice.i_dmDocs.i_itDoc.State=dsInsert))
 then DocROffice.i_dmDocs.i_itDoc.Edit;
 // Тип оплатыDocROffice.i_dmDocs.i_itDocTYPEOPLATID.Value:=2;
 
 // Вид реализации
 DocROffice.i_dmDocs.i_itDocVIDREALIZID.Value:=1;
 end;
    end   end;   |