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