1с 7.7 при открытии формы надо всегда нажимать "на весь екран" (квадратик) а как сделать что-бы форма всегда открывалась на весь екран? причем все формы открываются не на весь екран(
нашел такие варианты но они не работают:
вариант 1:
Если Форма.МодальныйРежим() = 1 Тогда Окна = СоздатьОбъект("Окна"); Окна.Максимизировать(Форма); КонецЕсли;
volodya1122 @ 19.09.23, 16:54
, Насчет слова "Счет" на самой форме документа. Можно сделать несколько вариантов надписи в разных цветах, и по условию показывать нужное.
volodya1122 @ Сегодня, 14:43
, журнал документов - новая строка - выбор документа - например СЧЕТ - дальше открывается сам счет. нужно что-бы если в документе есть ошибка слово "СЧЕТ" был написан красным до распечатывания. в идеале хочу запрограмировать что-бы он светился) хочу добавить в 1с немного визуального оформления. ничего по функционалу - только красота.
AnryMc @ Сегодня, 11:00
, форму умею, я хочу что-бы текст типа "Акт" или "Счет" вверху формы документа можно было раскрашивать вручную без перехода в конфигуратор
нужно записать значение среднего зароботка на определенную дату, что-бы в конце месяца или за период вывести статистику по дням в идеале потом вывести эти значения в графике
пример: дата - значение 14.09.2023 - 100 15.09.2023 - 200 ... и т.д.
на данный момент значение каждый раз перезаписываются и данные за предидущий день удаляются
//------------------------------------------------------------------ Процедура ЗПСредняя() ПодсчетЗПСредняя(); //считаем значение СуммаЗПДень за день ДатаЗП=ТекущаяДата(); СуммаЗП=СуммаЗПДень; Записать(); КонецПроцедуры //------------------------------------------------------------------
при открытии сторонней обработки были ошибки в строках, я поправил обрабока открылась, но не работают другие функции, подозреваю что неправильно адаптировал
//ИдентификаторКонфигурации = глИдентификаторКонфигурации(); - было с (), поставил без () и ошибка пропала ИдентификаторКонфигурации = глРедакцияКонфигурации; //СуммаЭксп = СокрЛ(Формат(глПересчет(Сумма,Валюта,Гривна,Курс,ДатаДок),"Ч17.2.")); - Курс и ДатаДок пришлось убрать но наверно из-за этого не работает сама обработка СуммаЭксп = СокрЛ(Формат(глПересчетВалютыПоКурсу(Сумма,Валюта,Гривна),"Ч17.2.")); - тут может быть ошибка
OpenOrCreateDocument( orgId As Long, charCode As String, num As String, docDate As Date, ExDocID As String, reWrite As Boolean ) As IZDocument Повертає документ за вказаними параметрами, якщо документа не існує - то вібувається створення нового документа. Якщо документ існує та вказано reWrite = true - то виконується перезапис існуючого документа. Вхідні параметри: orgId - внутрішній ідентифікатор організації в M.E.Doc, в якій необхідно створити документ. Для отримання скористайтесь методом SeekOrg(); charCode – чаркод шаблону первинного документа; num – номер документа; docDate – дата документа; ExDocID – зовнішній ідентифікатор документа; reWrite – ознака виконання повторного створення існуючого документа при співпадінню ExDocID - true/false (1/0).
4andriy @ Сегодня, 18:11
, исправлено, теперь ошибка:
Плохой тип переменной
4andriy @ Сегодня, 20:38
, Відкриття або створення документу розділу "Реєстр електронних документів" OpenOrCreateDocument( orgId As Long, charCode As String, num As String, docDate As Date, ExDocID As String, reWrite As Boolean ) As IZDocument Повертає документ за вказаними параметрами, якщо документа не існує - то вібувається створення нового документа. Якщо документ існує та вказано reWrite = true - то виконується перезапис існуючого документа. Вхідні параметри: orgId - внутрішній ідентифікатор організації в M.E.Doc, в якій необхідно створити документ. Для отримання скористайтесь методом SeekOrg(); charCode – чаркод шаблону первинного документа; num – номер документа; docDate – дата документа; ExDocID – зовнішній ідентифікатор документа; reWrite – ознака виконання повторного створення існуючого документа при співпадінню ExDocID - true/false (1/0).
1с 7.7 если запустить на windows xp - работает если запустить на windows 7 ошибка: порядок сортировки, установленный для базы данных отличасется от системного тогда надо менять сортировку и тогда на xp не работает( и опять менять сортировку
ТекстЗапроса = ТекстЗапроса + " |Группировка Документ; |Условие(Фирма в ВыбФирма); |Условие(Контрагент в список);";
Если НеПоказуватиЗареєстровані = 1 Тогда Если (ВидДок = "НалоговаяНакладная") или (ВидДок = "Приложение2") Тогда ТекстЗапроса = ТекстЗапроса + " |ЕРНН = Документ.*.ЕРНН; |Условие(ЕРНН = 0);"; КонецЕсли; КонецЕсли;
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "*", ВидДок); Запрос = СоздатьОбъект("Запрос"); Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Возврат; КонецЕсли;
табл.УдалитьСтроки();
НомерСтроки = 0; Пока Запрос.Группировка(1) = 1 Цикл НомерСтроки = НомерСтроки + 1; табл.НоваяСтрока(); табл.ДатаДокумента = Запрос.ДатаДок; табл.НомерДокумента = Запрос.НомерДок; табл.Контрагент = Запрос.Контрагент; табл.КонтрагентИНН = табл.Контрагент.ИНН; табл.СуммаБезНДС = Запрос.СуммаБезНДС_; табл.НДС = Запрос.НДС_; табл.СуммаСНДС = Запрос.СуммаСНДС_; табл.Документ = Запрос.Документ; Если Метаданные.Документ(табл.Документ.Вид()).РеквизитШапки("ЕРНН").Выбран() = 1 Тогда табл.ЕРНН = ?(табл.Документ.ЕРНН = 1,2,1); табл.Пометка = ?(табл.ЕРНН = 2,1,2); Иначе табл.Пометка = 2; КонецЕсли; табл.ДокИД = РозрахуватиДокИД(Запрос.Документ); табл.Результат = "Документ з бази 1С";
Для і = 1 По спРекв.РазмерСписка() Цикл Если спРекв.Пометка(і) = 0 Тогда Продолжить; КонецЕсли; табл.УстановитьЗначение(НомерСтроки, спРекв.ПолучитьЗначение(і), табл.Документ.ПолучитьАтрибут(спРекв.ПолучитьЗначение(і))); КонецЦикла;
КонецЦикла;
ЗаповнитиСтатусиДокументів(1);
Если Форма.Закладки.ТекущаяСтрока() = 1 Тогда Форма.Закладки.ТекущаяСтрока(2); Форма.ИспользоватьСлой("Загальний, Таблиця", 2); КонецЕсли;
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда {: СуммаБезНДС = Документ.РасходнаяНакладная. <<?>> СуммаБезНДС; Запрос[7] : Неверно заданный путь 'СуммаБезНДС' Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда {: СуммаСНДС = Документ.РасходнаяНакладная. <<?>> СуммаСНДС; Запрос[8] : Неверно заданный путь 'СуммаСНДС' СУММАБЕЗНДС<<?>> Переменная не определена (СУММАБЕЗНДС) Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда {: Функция СуммаБезНДС_ = Сумма(СуммаБезНДС <<?>> ); Запрос[9] : Ошибка в выражении 'СуммаБезНДС' СУММАСНДС<<?>> Переменная не определена (СУММАСНДС) Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда {: Функция СуммаСНДС_ = Сумма(СуммаСНДС <<?>> ); Запрос[10] : Ошибка в выражении 'СуммаСНДС' Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда {: Условие(Фирма в ВыбФирма <<?>> ); Запрос[14] : Ошибка в условии Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда {: Условие(Контрагент в список <<?>> ); Запрос[15] : Ошибка в условии
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!