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;
|