28
Рейтинг

Vix

Регистрация: 22.04.2008 (16 лет назад)
Был(а) на сайте: 26.04.2024

Друзья

Подписчики 9

Дополнительная информация

Группы

Рейтинг 28

Призводство/Сборка/Продажа комплектующих для мебели на 1Сv7.7 + внешние обработки к данной конфигурации + компоненты 7.7
+3 –

Инструменты и обработки Программист Пользователь Платформа 1С v7.7 OpenConf Конфигурации 1cv7 Управленческий учет Windows Абонемент ($m) Архив с данными Разработка внешних компонент Производство готовой продукции (работ, услуг)

Конфигурация (самописная) для 1Сv77 (версия платформы:7.70.025), возможность работы с ТСД, с использованием внешних компонент.

1 стартмани

30.11.2019 8987 22 Vix 14

Поиск нужной части штрих-кода
+1 –

Инструменты и обработки Для всех 1С:Торговля и склад 7.7 Россия Абонемент ($m) Внешний отчет (ert,erf) Сканер штрих-кода

Получение элементов группы номенклатуры и поиск вхождения нужной части штрих-кода в справочнике партий

1 стартмани

19.10.2011 16211 5 Vix 1

Товар, у которого нет штрих-кода
+ –

Отчеты и формы Пользователь Оперативный учет 7.7 1С:Торговля и склад 7.7 Россия Управленческий учет Абонемент ($m) Внешний отчет (ert,erf) Розничная торговля Логистика, склад и ТМЦ

Отчет будет полезна тем, у кого учет товара ведется с помощью терминала сбора данных, либо планируется таковой учет. Зачастую складываются ситуации, что по каким-либо причинам у товара может отсутствовать штрих-код. Быстро выявить, какой именно товар, в какой ячейке он лежит и в каком количестве, можно с помощью данного отчета. Останется только пойти с распечатанной формой к нужным товарам в ячейке и записать их штрих-код.

1 стартмани

26.05.2011 9920 22 Vix 4

Получение состава пакетов/изделий, с помощью прямого запроса
+2 –

Инструменты и обработки Пользователь Оперативный учет 7.7 1С:Торговля и склад 7.7 Россия Абонемент ($m) Внешняя обработка (ert,epf) Производство готовой продукции (работ, услуг)

Обработка позволяет получить как комплектующие, которые относятся к выбранной номенклатурной единице, так и, наоборот, получить все номенклатурные единицы, с выбранными комплектующими, это актуально, если комплектующие универсальные и подходят к различным товарам.

1 стартмани

26.05.2011 9895 30 Vix 1

Выбор Движений документа по конкретному регистру, с помощью прямого запроса
+ –

Статья Программист Платформа 1С v7.7 OpenConf Конфигурации 1cv7 Россия Бесплатно (free) Нет файла Запросы

Чтобы узнать какие движения сделал документ по конкретному регистру, в моем случае это регистр "ОстаткиПоСчетам" (оборотный), была написана следующая функция в глобальном модуле. Работает только для SQL версии и установленной внешнй компонентой 1С++!

26.05.2011 13361 Vix 4

Быстрый поиск подчиненного документа, с помощью прямого запроса
+2 –

Статья Программист OpenConf Конфигурации 1cv7 Россия Бесплатно (free) Нет файла Запросы

При ситуации, когда необходимо проверить, есть ли у документа подчиненный документ, конкретного вида или нет, если есть, вывести на экран, в этой ситуации будет полезна следующая функция глобального модуля. Работает только в SQL версии и при установленной внешней компоненте 1С++ !

26.05.2011 13779 Vix 1

Прямой запрос на выборку подчиненных документов
+6 –

Статья Программист Платформа 1С v7.7 OpenConf Конфигурации 1cv7 Россия Бесплатно (free) Нет файла Запросы

Иногда необходимо получить список или таблицу документов, подчиненных выбранному. Для этого в глобальном модуле была написана функция с прямым запросом на выборку подчиненных документов. Работает только в SQL версии и при установленной внешней компоненте 1С++ !

26.05.2011 20047 Vix 6

Загрузка/выгрузка данных с сайта в формате xml
+10 –

Инструменты и обработки Системный администратор Программист Платформа 1С v7.7 Конфигурации 1cv7 Windows Абонемент ($m) Внешняя обработка (ert,epf) Файловый обмен (TXT, XML, DBF), FTP

Загрузка/выгрузка данных с сайта в формате xml

1 стартмани

25.11.2009 17681 342 Vix 5

Складские операции на ТСД
+4 –

Инструменты и обработки Для всех Платформа 1С v7.7 1С:Комплексная 7.7 1С:Торговля и склад 7.7 Россия Абонемент ($m) Внешняя обработка (ert,epf) Сканер штрих-кода Терминал сбора данных

Добавлена возможность резервирования и отгрузки по выписке (в случае с резервированием по выписке, объединение документов перемещения и резервирования по клиенту, в случае отгрузки по выписке, объединение расходных накладных по клиенту). Добавлены возможности инвентаризации по складу, получения информации о ячейках и товарах по штрих-коду.

1 стартмани

25.11.2009 22344 40 Vix 8

Смотреть все

Столкнулся с проблемой на месте кассира. Периодически, 1 - 3 раза в день, бывает проблема, что документ при записи сообщает, что номер не уникальный. Заходил отладчиком, но отладка При записи не срабатывает. Ощущение, будто я зашёл этим пользователем второй раз. Помогает только изменение номера у прошлого документа, что бы записать текущий. Далее отладка начинает тоже работать. Не понимаю в чём может быть проблема, либо настройка сети, либо платформа 8.3.13. Хотя у других магазинов нет проблем, но там работает 1 кассир, а в проблемном магазине два, на двух разных ККМ. Бывает подключается менеджер под своим пользователем к их базе, что бы запустить обмен.

Dev › [Генератор внешних событий] Внешняя компонента для 1С › #82 03.04.21 15:51

(81) 2009 год был и писалось для Че, который работает на старой доброй платформе 1Сv7.7.

Обмен › Конфигурация "Почтовый клиент" на УФ (8.2, 8.3) › #110 29.03.21 12:30

(105) ответ кроется в поисковике гугл, а так же яндекс, по тому как разрешить доступ к ненадежным приложениям

Обмен › Конфигурация "Почтовый клиент" на УФ (8.2, 8.3) › #109 29.03.21 12:27

(103)Разрешить доступ ненадежным приложениям в гугл
после чего введете логин и пароль который вам выдаст гугл. Либо пользоваться тунелем.

Dev › Проблема с записью данных введённых пользователем › #8 26.03.21 18:49

Если это управляемые формы, тогда выбираете сохраняемые данные флаг, если это обычное приложение тогда, так как в файле:

Прикрепленные файлы:

сохр_знач.jpg

Dev › работа с периодом › #7 26.03.21 18:37

наверное вам нужно получать максимально последнюю дату, я такое делал когда оперировал с регистром сведений "ценыНоменклатуры", когда нужно было получить цену на дату, но выбирались несколько цен за даты, нужно было из этих дат найти максимально последнюю.

Код
\| РСКадровыйПриемУвольнениеСотрудникаСрезПоследних.ТабельныйНомер КАК ТабельныйНомер, \| РСКадровыйПриемУвольнениеСотрудникаСрезПоследних.ТабельныйНомер.Владелец.ФИО КАК ТабельныйНомерВладелецФИО, \| РСКадровыйПриемУвольнениеСотрудникаСрезПоследних.ТабельныйНомер.Владелец.Ссылка КАК ТабельныйНомерВладелецСсылка, \| РСКадровыйПриемУвольнениеСотрудникаСрезПоследних.Подразделение КАК Подразделение, \| РСКадровыйПриемУвольнениеСотрудникаСрезПоследних.Должность КАК Должность, \| РСКадровыйПриемУвольнениеСотрудникаСрезПоследних.ВидЗанятости КАК ВидЗанятости, \| РСКадровыйПриемУвольнениеСотрудникаСрезПоследних.ГрафикРаботы КАК ГрафикРаботы, \| ВЫБОР \| КОГДА РСКадровыйПриемУвольнениеСотрудникаСрезПоследних.Период < &ДатаНачала \| ТОГДА НАЧАЛОПЕРИОДА(РСКадровыйПриемУвольнениеСотрудникаСрезПоследних.Период, МЕСЯЦ) \| ИНАЧЕ РСКадровыйПриемУвольнениеСотрудникаСрезПоследних.Период \| КОНЕЦ КАК Период \| ИЗ РегистрСведений.РСКадроваяИсторияСотрудника.СрезПоследних(ДОБАВИТЬКДАТЕ(&ДатаКон,ДЕНЬ,0), Подразделение = &Отдел И ЮрЛицо = &ЮрЛицо И Приход_Уход = ИСТИНА) КАК РСКадровыйПриемУвольнениеСотрудникаСрезПоследних \| ВНУТРЕННЕЕ СОЕДИНЕНИЕ (ВЫБРАТЬ \| МАКСИМУМ(КИ.Период) КАК ПЕРИОД, \| КИ.ТабельныйНомер //\| -------------------нужные реквизиты------------------------ \| ИЗ РегистрСведений.РСКадроваяИсторияСотрудника.СрезПоследних(ДОБАВИТЬКДАТЕ(&ДатаКон,ДЕНЬ,0), Подразделение = &Отдел И ЮрЛицо = &ЮрЛицо И Приход_Уход = ИСТИНА) КАК КИ \| СГРУППИРОВАТЬ ПО КИ.ТабельныйНомер) КАК ПослЗаписьКИ \| ПО (ПослЗаписьКИ.ТабельныйНомер = РСКадровыйПриемУвольнениеСотрудникаСрезПоследних.ТабельныйНомер) \| И (ПослЗаписьКИ.Период = РСКадровыйПриемУвольнениеСотрудникаСрезПоследних.Период)) КАК Кадры \|

Код

         |       РСКадровыйПриемУвольнениеСотрудникаСрезПоследних.ТабельныйНомер КАК ТабельныйНомер,
             |      РСКадровыйПриемУвольнениеСотрудникаСрезПоследних.ТабельныйНомер.Владелец.ФИО КАК ТабельныйНомерВладелецФИО,
             |      РСКадровыйПриемУвольнениеСотрудникаСрезПоследних.ТабельныйНомер.Владелец.Ссылка КАК ТабельныйНомерВладелецСсылка,
             |      РСКадровыйПриемУвольнениеСотрудникаСрезПоследних.Подразделение КАК Подразделение,
             |      РСКадровыйПриемУвольнениеСотрудникаСрезПоследних.Должность КАК Должность,
             |      РСКадровыйПриемУвольнениеСотрудникаСрезПоследних.ВидЗанятости КАК ВидЗанятости,
             |      РСКадровыйПриемУвольнениеСотрудникаСрезПоследних.ГрафикРаботы КАК ГрафикРаботы,
             | ВЫБОР
                | КОГДА РСКадровыйПриемУвольнениеСотрудникаСрезПоследних.Период < &ДатаНачала
                 | ТОГДА НАЧАЛОПЕРИОДА(РСКадровыйПриемУвольнениеСотрудникаСрезПоследних.Период, МЕСЯЦ)
              | ИНАЧЕ РСКадровыйПриемУвольнениеСотрудникаСрезПоследних.Период
             | КОНЕЦ КАК Период
            |       ИЗ РегистрСведений.РСКадроваяИсторияСотрудника.СрезПоследних(ДОБАВИТЬКДАТЕ(&ДатаКон,ДЕНЬ,0), Подразделение = &Отдел И ЮрЛицо = &ЮрЛицо И Приход_Уход = ИСТИНА) КАК РСКадровыйПриемУвольнениеСотрудникаСрезПоследних
            |       ВНУТРЕННЕЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
            |      МАКСИМУМ(КИ.Период) КАК ПЕРИОД,
            |      КИ.ТабельныйНомер  
            //|     -------------------нужные реквизиты------------------------
            |       ИЗ РегистрСведений.РСКадроваяИсторияСотрудника.СрезПоследних(ДОБАВИТЬКДАТЕ(&ДатаКон,ДЕНЬ,0), Подразделение = &Отдел И ЮрЛицо = &ЮрЛицо И Приход_Уход = ИСТИНА) КАК КИ
            |       СГРУППИРОВАТЬ ПО КИ.ТабельныйНомер) КАК ПослЗаписьКИ
            |       ПО (ПослЗаписьКИ.ТабельныйНомер = РСКадровыйПриемУвольнениеСотрудникаСрезПоследних.ТабельныйНомер)
            |       И  (ПослЗаписьКИ.Период = РСКадровыйПриемУвольнениеСотрудникаСрезПоследних.Период)) КАК Кадры
            |

что-то вроде этого

Dev › Как сделать в одной процедуре массив и передать его значения в другой процедуре ? › #29 26.03.21 18:17

решений много, как вариант можно еще выгружать во временный файл (DBF,JSON,XML), сохранять файл в макет, из макета потом загружать где угодно.

Dev › Ошибка загрузки html документа › #9 24.03.21 23:30

(6) тоже была подобная проблема, яндекс, гугл открывались, многие сайты тоже, а нужный мне сайт по переводам денег не хотел. Не стал разбираться, но ощущение, будто встроенный IE до платформы 8.3.14, да и даже webkit, после 8.3.14 имеет ряд ограничений, или защиту по умолчанию. А у вас в режиме совместимости с 8.3.10 точно webkit ?

Dev › СКД, расположение реквизитов › #9 24.03.21 23:18

можно объединять после формирования отчета, программно, например так:

Код
ПроцессорКомпановки = Новый ПроцессорКомпоновкиДанных; ПроцессорКомпановки.Инициализировать(МакетКомпановки,,ДанныеРасшифровки,ЛОЖЬ); ПроцессорКомпановкиДанных = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент; ЭлементыФормы.Результат.НачатьАвтогруппировкуСтрок(); ПроцессорКомпановкиДанных.УстановитьДокумент(ЭлементыФормы.Результат); ПроцессорКомпановкиДанных.ОтображатьПроцентВывода = ИСТИНА; ПроцессорКомпановкиДанных.Вывести(ПроцессорКомпановки); ПроцессорКомпановкиДанных.ЗакончитьВывод(); ОбработатьЗаголовки(ЭлементыФормы.Результат); Функция ОбъединятьЯчейки(ТабДок,ИндСтр,ИндКол) Ячейка = ТабДок.Область(ИндСтр, ИндКол); ЯчейкаСлед = ТабДок.Область(ИндСтр, ИндКол+1); Если ПустаяСтрока(Ячейка.Текст) Тогда Возврат Ложь ИначеЕсли Ячейка.Текст = ЯчейкаСлед.Текст И Ячейка.Имя = "R"+ИндСтр+"C"+ИндКол Тогда Возврат Истина Иначе Возврат Ложь КонецЕсли; КонецФункции Процедура ОбработатьЗаголовки(ТабДок) КолВоКолонок = 0; МасштабРучной = 100; ОбъединяемаяОбласть = Неопределено; Для ИндСтр=1 По ТабДок.ВысотаТаблицы Цикл НачальнаяКолонка = 0; Для ИндКол=1 По ТабДок.ШиринаТаблицы Цикл Если ОбъединятьЯчейки(ТабДок,ИндСтр,ИндКол) Тогда Если Не НачальнаяКолонка Тогда НачальнаяКолонка = ИндКол; КонецЕсли; ИначеЕсли НачальнаяКолонка Тогда ТекстЗаголовка = ТабДок.Область(ИндСтр,ИндКол).Текст; ОбъединяемаяОбласть = ТабДок.Область(ИндСтр,НачальнаяКолонка,ИндСтр,ИндКол); ОбъединяемаяОбласть.Объединить(); ОбъединяемаяОбласть.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр; ОбъединяемаяОбласть.Текст = ТекстЗаголовка; НачальнаяКолонка = 0; КолВоКолонок = ИндКол; Иначе НачальнаяКолонка = 0; КонецЕсли; КонецЦикла; Если Не ОбъединяемаяОбласть = Неопределено Тогда Возврат; КонецЕсли; КонецЦикла; КонецПроцедуры

Код

ПроцессорКомпановки = Новый ПроцессорКомпоновкиДанных;         
   ПроцессорКомпановки.Инициализировать(МакетКомпановки,,ДанныеРасшифровки,ЛОЖЬ);
   ПроцессорКомпановкиДанных = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
   ЭлементыФормы.Результат.НачатьАвтогруппировкуСтрок();
   ПроцессорКомпановкиДанных.УстановитьДокумент(ЭлементыФормы.Результат);
   ПроцессорКомпановкиДанных.ОтображатьПроцентВывода = ИСТИНА;
   ПроцессорКомпановкиДанных.Вывести(ПроцессорКомпановки);
   ПроцессорКомпановкиДанных.ЗакончитьВывод();
   ОбработатьЗаголовки(ЭлементыФормы.Результат);

Функция ОбъединятьЯчейки(ТабДок,ИндСтр,ИндКол)
   Ячейка     = ТабДок.Область(ИндСтр, ИндКол);
   ЯчейкаСлед = ТабДок.Область(ИндСтр, ИндКол+1);
   Если ПустаяСтрока(Ячейка.Текст) Тогда 
      Возврат Ложь
   ИначеЕсли Ячейка.Текст = ЯчейкаСлед.Текст И Ячейка.Имя = "R"+ИндСтр+"C"+ИндКол Тогда
      Возврат Истина
   Иначе
      Возврат Ложь
   КонецЕсли;      
КонецФункции   

Процедура ОбработатьЗаголовки(ТабДок)
   КолВоКолонок = 0;
   МасштабРучной = 100;
   ОбъединяемаяОбласть = Неопределено;
   Для ИндСтр=1 По ТабДок.ВысотаТаблицы Цикл
      НачальнаяКолонка = 0;
      Для ИндКол=1 По ТабДок.ШиринаТаблицы Цикл
         Если ОбъединятьЯчейки(ТабДок,ИндСтр,ИндКол) Тогда
            Если Не НачальнаяКолонка Тогда
               НачальнаяКолонка = ИндКол;
            КонецЕсли;
         ИначеЕсли НачальнаяКолонка Тогда
            ТекстЗаголовка = ТабДок.Область(ИндСтр,ИндКол).Текст;
            ОбъединяемаяОбласть = ТабДок.Область(ИндСтр,НачальнаяКолонка,ИндСтр,ИндКол);
            ОбъединяемаяОбласть.Объединить();
            ОбъединяемаяОбласть.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр;
            ОбъединяемаяОбласть.Текст = ТекстЗаголовка;
            НачальнаяКолонка = 0;
            КолВоКолонок = ИндКол;
         Иначе
            НачальнаяКолонка = 0;
         КонецЕсли;
      КонецЦикла;
      Если Не ОбъединяемаяОбласть = Неопределено Тогда
         Возврат;
      КонецЕсли;      
   КонецЦикла;   
КонецПроцедуры

Dev › Не читеается Excel файл › #16 24.03.21 22:54

(6) вижу в этой крякозябре xml, скорее всего файл xlsx. Нужно что то вроде этого

Код
ВременнаяПапка=КаталогВременныхФайлов()+"TempXLSX"; СоздатьКаталог(ВременнаяПапка); ИмяФайлаДляРаспаковки = ВыбФайл; Архиватор = Новый ЧтениеZipФайла(ИмяФайлаДляРаспаковки); Режим=РежимВосстановленияПутейФайловZIP.НеВосстанавливать; Для А=0 По Архиватор.Элементы.Количество()-1 Цикл Архиватор.Извлечь(Архиватор.Элементы[А], ВременнаяПапка, Режим); КонецЦикла; Архиватор.Закрыть(); Файл = Новый Файл(ВременнаяПапка+"workbook.xml"); Если Файл.Существует() Тогда //парсер файла Иначе Ошибка ="Файл не считан!"; ФайлСчитан = Ложь; КонецЕсли;

Код

                ВременнаяПапка=КаталогВременныхФайлов()+"TempXLSX";
      СоздатьКаталог(ВременнаяПапка);
      ИмяФайлаДляРаспаковки = ВыбФайл;
      Архиватор = Новый ЧтениеZipФайла(ИмяФайлаДляРаспаковки);
      Режим=РежимВосстановленияПутейФайловZIP.НеВосстанавливать;
      Для А=0 По Архиватор.Элементы.Количество()-1 Цикл
         Архиватор.Извлечь(Архиватор.Элементы[А], ВременнаяПапка, Режим);
      КонецЦикла;
      Архиватор.Закрыть();
      Файл = Новый Файл(ВременнаяПапка+"workbook.xml");
      Если Файл.Существует() Тогда
         //парсер файла
      Иначе
         Ошибка ="Файл не считан!";
         ФайлСчитан = Ложь;
      КонецЕсли;

28 Рейтинг

Vix

Рейтинг 28

Комментарии

28
Рейтинг