Romanov Sergey

12
Рейтинг

SergeyCV76



  •   Регистрация: 10.10.2011 (12 лет назад)

  •   Был(а) на сайте: 07.05.2023

Друзья
  • Дмитрий Малышев
Подписчики 4

Рейтинг 12

Перенумерация приходных и расходных кассовых ордеров

Инструменты и обработки Бухгалтер Оперативный учет 7.7 1С:Комплексная 7.7 Windows Абонемент ($m) Внешняя обработка (ert,epf) Кассовые операции

Каждый бухгалтер сталкивался с проблемой нумерации приходных и расходных кассовых ордеров. После удаления одного документа приходится менять номера оставшихся. Данная обработка облегчит эту задачу.

1 стартмани

10.10.2011    15234    51    SergeyCV76    8       

4

Комментарии

DevКак получить Остатки по счету 60 в разрезе документов поступления? [Запрос]#6 26.07.18 16:06
Да.... правильно... ЛИФО или ФИФО регулируются в внешнем соединении знаками >= или <=
Но но по моему в запросе тики ЛИФО (начинает от более свежих долгов к более старым)
DevКак получить Остатки по счету 60 в разрезе документов поступления? [Запрос]#3 26.07.18 0:25
Вы действительно правильно написали, в документах расчета может быть все что угодно.
И поступления и платежки и возвраты ну и счета поставщиков.
Я делал такой отчет, но только по дебиторам.
Смысл запроса такой...

1. Выбрать долги в разрезе контрагент и договор
2. Выбрать Документы поступления по договорам с долгами
3. Делать таблицу нарастающих сумм по документам (нарастающий итог должен идти от более новых дат к более старым)
4. Распределить сумму долга по документам

Ну и сам запрос

ВЫБРАТЬ
ХозрасчетныйОстатки.Организация КАК Организация,
ХозрасчетныйОстатки.Субконто1 КАК Контрагент,
ХозрасчетныйОстатки.Субконто2 КАК Договор,
ХозрасчетныйОстатки.СуммаРазвернутыйОстатокКт КАК СуммайОстатокКт
ПОМЕСТИТЬ ТаблДолги
ИЗ
РегистрБухгалтерии.Хозрасчетный.Остатки(&ПериодОтчета, Счет В ИЕРАРХИИ (ЗНАЧЕНИЕ(ПланСчетов.Хозрасчетный.РасчетыСПоставщикамиИПодрядчиками)), , ) КАК ХозрасчетныйОстатки
;

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ
ПоступлениеТоваровУслуг.Дата,
ПоступлениеТоваровУслуг.Ссылка,
ПоступлениеТоваровУслуг.Организация,
ПоступлениеТоваровУслуг.Контрагент,
ПоступлениеТоваровУслуг.ДоговорКонтрагента,
ПоступлениеТоваровУслуг.СуммаДокумента
ПОМЕСТИТЬ ТаблПриход
ИЗ
Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг
ГДЕ
ПоступлениеТоваровУслуг.Проведен = ИСТИНА
И ПоступлениеТоваровУслуг.ДоговорКонтрагента В
(ВЫБРАТЬ
ТаблДолги.Договор
ИЗ
ТаблДолги КАК ТаблДолги)
;

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ
ТаблПриход.Дата,
ТаблПриход.Ссылка,
ТаблПриход.Организация,
ТаблПриход.ДоговорКонтрагента,
ТаблПриход.Контрагент,
ТаблПриход.СуммаДокумента,
СУММА(ТаблПриходКопия.СуммаДокумента) - ТаблПриход.СуммаДокумента КАК СуммаДо,
СУММА(ТаблПриходКопия.СуммаДокумента) КАК СуммаПосле
ПОМЕСТИТЬ ТаблИтоги
ИЗ
ТаблПриход КАК ТаблПриход
ВНУТРЕННЕЕ СОЕДИНЕНИЕ ТаблПриход КАК ТаблПриходКопия
ПО ТаблПриход.ДоговорКонтрагента = ТаблПриходКопия.ДоговорКонтрагента
И ТаблПриход.Контрагент = ТаблПриходКопия.Контрагент
И ТаблПриход.Организация = ТаблПриходКопия.Организация
И ТаблПриход.Дата <= ТаблПриходКопия.Дата

СГРУППИРОВАТЬ ПО
ТаблПриход.Дата,
ТаблПриход.Ссылка,
ТаблПриход.Организация,
ТаблПриход.ДоговорКонтрагента,
ТаблПриход.Контрагент,
ТаблПриход.СуммаДокумента

;

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ
ВнЗапрос.Дата КАК ДатаДокумента,
ВнЗапрос.Ссылка КАК ДокументПоступления,
ВнЗапрос.Организация КАК Организация,
ВнЗапрос.Контрагент КАК Контрагент,
ВнЗапрос.ДоговорКонтрагента КАК ДоговорКонтрагента,
ВнЗапрос.СуммаДокумента КАК СуммаДокумента,
ВнЗапрос.ДолгБух КАК ДолгПоДоговору,
ВЫБОР
КОГДА ВнЗапрос.Разница >= 0
ТОГДА ВнЗапрос.СуммаДокумента
ИНАЧЕ ВЫБОР
КОГДА ВнЗапрос.СуммаДокумента < -ВнЗапрос.Разница
ТОГДА 0
ИНАЧЕ ВнЗапрос.СуммаДокумента - -ВнЗапрос.Разница
КОНЕЦ
КОНЕЦ КАК ДолгРаспределенный
ИЗ
(ВЫБРАТЬ
ТаблИтоги.Дата КАК Дата,
ТаблИтоги.Ссылка КАК Ссылка,
ТаблИтоги.ДоговорКонтрагента КАК ДоговорКонтрагента,
ТаблИтоги.Организация КАК Организация,
ТаблИтоги.Контрагент КАК Контрагент,
ТаблИтоги.СуммаДокумента КАК СуммаДокумента,
ТаблИтоги.СуммаДо КАК СуммаДо,
ТаблИтоги.СуммаПосле КАК СуммаПосле,
ТаблДолги.СуммайОстатокКт КАК ДолгБух,
ТаблДолги.СуммайОстатокКт - ТаблИтоги.СуммаПосле КАК Разница
ИЗ
ТаблИтоги КАК ТаблИтоги
ЛЕВОЕ СОЕДИНЕНИЕ ТаблДолги КАК ТаблДолги
ПО ТаблИтоги.ДоговорКонтрагента = ТаблДолги.Договор) КАК ВнЗапрос

УПОРЯДОЧИТЬ ПО
ВнЗапрос.ДоговорКонтрагента,
ВнЗапрос.Дата УБЫВ


P.S. В запросе не учтена ситуация когда сумма долга к примеру 10000 а удалось найти Приходных накладных на сумму к примеру 9000...
получается что 1000 не на что распределить
тут уж решайте сами как быть в такой ситуации
DevПечать документов#2 25.07.18 23:05
Привет.
Не зная конфигурации сказать тяжеловато.
Но по крайней мере те обработки, которые делал были на стандартных конфигурация.
Всегда делал так.
В модуле объекта делал экспортную процедуру "Печать"
в ней прописан и макет и заполнение
При необходимости делал несколько таких процедур под разные макеты печати.
Процедура принимала параметр "ПечататьНаПринтер"
В конце процедуры когда ПечататьНаПринтер=Истина
Делал вместо ТабличныйДокумент.Показать() ТабличныйДокумент.Напечатать();
DevПроверка закрытия формы#7 12.09.17 18:06
Выше не верно написал. Не разобрался в вопросе.

Док.Открыть() не ждет реакции пользователя сохранил он документ или закрыл без сохранения.
Док.Открытьмодально() как раз ждет не не продолжает выполнение кода 1С пока пользователь не закроет Док с сохранением или без.

К примеру Вы создаете 10 документов в обработке.
У вас 1С на экране сразу откроет 10 форм новых документов если использовать Док.Открыть()
И обработка закончит выполнение.

Поэтому без Модального режима Вы не унаете о реакции пользователя.

Не зная полного замысла этой обработки тяжело что то посоветовать
DevПроверка закрытия формы#4 12.09.17 17:32
Правильно, к форме обращаться не зачем.
Достаточно обратиться к объекту

Не совсем понятно откуда Вы запускаете этот код...
Если из обработки создаете и заполняете документ Док то достаточно
проверить Док.ЭтоНовый()=Истина

Если у Док проверить УникальныйИдентификатор
у не записаного объекта он будет равен
Док.Ссылка.УникальныйИдентификатор() = "00000000-0000-0000-0000-000000000000"


Если из модуля объект Док то тогда

Если ЭтотОбъект.ЭтоНовый() = Истина Тогда
Сообщить("Это новый, не записаный документ...");
КонецЕсли;
DevУбрать пробелы и дефисы из поиска#3 30.08.16 17:54
Пример как оставить только цифры в строке

НоваяСтрока = "";
СтрокаПоиска ="6f07 only 8after 74 75 310а";
КоличествоСимволовСтроки = СтрДлина(СтрокаПоиска);
Для Счетчик=1 По КоличествоСимволовСтроки Цикл
ВыбираемыйСимвол=Сред(СтрокаПоиска,Счетчик,1);

КодСимвола = КодСимвола(ВыбираемыйСимвол);

Если Найти("0123456789",ВыбираемыйСимвол)>0 Тогда
НоваяСтрока = НоваяСтрока+""+ВыбираемыйСимвол;
КонецЕсли;

КонецЦикла;
Сообщить(НоваяСтрока);
DevПерерасчет табличной части при изменении склада#2 30.08.16 17:45
Судя по условию в запросе Номенклатура = &Товар это запрос на одну номенклатуру.
Сообветственно если хочешь пересчитать все строки запусти сначала цикл по строкам табличной части
ну а внути цикла выполняй свой запрос.
ДокументооборотНастройка почты SSL в 1С Документооборот#11 30.08.16 17:29
В 8.3.8 действительно не все так гладко.
Буквально пару дней наза налетел на грабли.
Для подключения в gmail по SSL нужно указывать такой код

Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;

На обычных формах все работает отлично а вот на управляемых формах
как бы я не старался при отправке письма ставит

Профиль.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;

Ну и конечно же письмо не уходит.
ТорговляРМК поиск по коду.#5 18.09.14 16:45
Не изменяя конфигурации и не открывая справочник номенклатуры не получиться.
Без открытия справочника работает только внешнее событие (сканер Штрихкода, считываем магнитной карты)..

При считывании сразу происходит поск и добавление товара.
Если не через устройство, то нужно выбирать из справочника.
ЗарплатаСистема контроля входа/выхода#5 18.09.14 16:32
У нас тоже на предприятии турникеты пишут данные в свою БД ACCESS
НУ а в 1С уже импортом затягиваем.

Все зависит от оборудования турникета, от количества турникетов.
Если есть на турникете СОМ порт, можно и напряую забирать информацию в 1С