Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Войти | Зарегистрироваться )



7 страниц V   1 2 3 > » 

>  список элементов без каталогов
4andriy
Отправлено: Вчера, 17:45


Завсегдатай
****

Группа: Пользователи
Сообщений: 174
Регистрация: 25.07.11
Пользователь №: 10636


1с 7.7 Предприятие
при использовании в коде:
СписокЭлементов.ДобавитьЗначение(Сотрудники.ТекущийЭлемент());


почему-то в списке сотрудников показывает еще группы, например:
кадри
офис
грузчики
Иванов И.И
Петров И.И
Сидоров И.И

от чего зависит что-бы не показывало группы, а только сотрудников?
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #178647 · Ответов: 1 · Просмотров: 34
 

>  работа с временем
4andriy
Отправлено: 31.10.23, 13:10


Завсегдатай
****

Группа: Пользователи
Сообщений: 174
Регистрация: 25.07.11
Пользователь №: 10636


1с 7.7 Предприятие.
Мне нужно определить время между операциями.

время1=ТекущееВремя();
Собщить(время1);
...
время2=ТекущееВремя();
Собщить(время2);
...
время3=время2-время1;
Собщить(время3);


ошибка:
Операция вычитания не определена для строковых величин
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #177888 · Ответов: 3 · Просмотров: 574
 

>  окно на весь екран
4andriy
Отправлено: 16.10.23, 14:07


Завсегдатай
****

Группа: Пользователи
Сообщений: 174
Регистрация: 25.07.11
Пользователь №: 10636


denis84 @ Сегодня, 15:00 * ,
я перепутал - это журнал ОБЩИЙ открывается не на весь екран
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #177817 · Ответов: 6 · Просмотров: 820
 

>  окно на весь екран
4andriy
Отправлено: 16.10.23, 13:54


Завсегдатай
****

Группа: Пользователи
Сообщений: 174
Регистрация: 25.07.11
Пользователь №: 10636


denis84 @ Сегодня, 14:49 * ,
проблема в том, что если нажать эти кнопки без скрипта выходит такое меню (нажать Alt + пробел) :

Restore - активно (скидает окно)
Move - не активно
Size - не активно
Minimize - активно
Mazimize - не активно
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #177815 · Ответов: 6 · Просмотров: 820
 

>  окно на весь екран
4andriy
Отправлено: 16.10.23, 12:35


Завсегдатай
****

Группа: Пользователи
Сообщений: 174
Регистрация: 25.07.11
Пользователь №: 10636


1с 7.7
при открытии формы надо всегда нажимать "на весь екран" (квадратик)
а как сделать что-бы форма всегда открывалась на весь екран?
причем все формы открываются не на весь екран(

нашел такие варианты но они не работают:

вариант 1:

Если Форма.МодальныйРежим() = 1 Тогда 
  Окна = СоздатьОбъект("Окна");
  Окна.Максимизировать(Форма);
КонецЕсли;


вариант 2:

WSHShell = СоздатьОбъект("WScript.Shell"); 
WSHShell.SendKeys("%");
WSHShell.SendKeys("{LEFT}{DOWN 5}{ENTER}");
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #177812 · Ответов: 6 · Просмотров: 820
 

>  управление текстом програмно
4andriy
Отправлено: 22.09.23, 17:36


Завсегдатай
****

Группа: Пользователи
Сообщений: 174
Регистрация: 25.07.11
Пользователь №: 10636


volodya1122 @ 19.09.23, 16:54 * ,
Насчет слова "Счет" на самой форме документа. Можно сделать несколько вариантов надписи в разных цветах, и по условию показывать нужное.

а как показывать на форме и скрывать по условию?
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #177729 · Ответов: 7 · Просмотров: 956
 

>  управление текстом програмно
4andriy
Отправлено: 18.09.23, 14:56


Завсегдатай
****

Группа: Пользователи
Сообщений: 174
Регистрация: 25.07.11
Пользователь №: 10636


volodya1122 @ Сегодня, 14:43 * ,
журнал документов - новая строка - выбор документа - например СЧЕТ - дальше открывается сам счет. нужно что-бы если в документе есть ошибка слово "СЧЕТ" был написан красным до распечатывания. в идеале хочу запрограмировать что-бы он светился) хочу добавить в 1с немного визуального оформления. ничего по функционалу - только красота.
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #177718 · Ответов: 7 · Просмотров: 956
 

>  управление текстом програмно
4andriy
Отправлено: 18.09.23, 10:24


Завсегдатай
****

Группа: Пользователи
Сообщений: 174
Регистрация: 25.07.11
Пользователь №: 10636


AnryMc @ Сегодня, 11:00 * ,
форму умею, я хочу что-бы текст типа "Акт" или "Счет" вверху формы документа можно было раскрашивать вручную без перехода в конфигуратор

4andriy @ Сегодня, 11:11 * ,
на форме элемента
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #177716 · Ответов: 7 · Просмотров: 956
 

>  управление текстом програмно
4andriy
Отправлено: 16.09.23, 13:26


Завсегдатай
****

Группа: Пользователи
Сообщений: 174
Регистрация: 25.07.11
Пользователь №: 10636


в конфигураторе можно изменять размер и цвет шрифта
нужно менять без конфигуратора сразу на форме, например кнопкой
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #177713 · Ответов: 7 · Просмотров: 956
 

>  реализация простой статистики
4andriy
Отправлено: 15.09.23, 21:53


Завсегдатай
****

Группа: Пользователи
Сообщений: 174
Регистрация: 25.07.11
Пользователь №: 10636


denis84 @ Сегодня, 22:03 * ,
в справочник мне проще записать

4andriy @ Сегодня, 22:10 * ,
надо куда-то записать и дату и значение, как его добавить в один периодический не знаю
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #177712 · Ответов: 3 · Просмотров: 813
 

>  реализация простой статистики
4andriy
Отправлено: 15.09.23, 19:03


Завсегдатай
****

Группа: Пользователи
Сообщений: 174
Регистрация: 25.07.11
Пользователь №: 10636


нужно записать значение среднего зароботка на определенную дату, что-бы в конце месяца или за период вывести статистику по дням
в идеале потом вывести эти значения в графике

пример:
дата - значение
14.09.2023 - 100
15.09.2023 - 200
... и т.д.

на данный момент значение каждый раз перезаписываются и данные за предидущий день удаляются
//------------------------------------------------------------------
Процедура ЗПСредняя()
ПодсчетЗПСредняя(); //считаем значение СуммаЗПДень за день
ДатаЗП=ТекущаяДата();
СуммаЗП=СуммаЗПДень;
Записать();
КонецПроцедуры
//------------------------------------------------------------------
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #177710 · Ответов: 3 · Просмотров: 813
 

>  Ошибка отбора: УстановитьОтбор - Неверное имя реквизита
4andriy
Отправлено: 11.09.23, 8:56


Завсегдатай
****

Группа: Пользователи
Сообщений: 174
Регистрация: 25.07.11
Пользователь №: 10636


4andriy @ Вчера, 16:09 * ,
Работает. Надо было добавить Группу отбора "Контрагент".
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #177684 · Ответов: 3 · Просмотров: 642
 

>  Ошибка отбора: УстановитьОтбор - Неверное имя реквизита
4andriy
Отправлено: 10.09.23, 15:09


Завсегдатай
****

Группа: Пользователи
Сообщений: 174
Регистрация: 25.07.11
Пользователь №: 10636


//******************************************************************************
Процедура ПриВыбореВидаОтбора()
    ТекущийВидОтбора = СписокВидовОтбора.ПолучитьЗначение(СписокВидовОтбора.ТекущаяСтрока());
...
    ИначеЕсли ТекущийВидОтбора = "ПоКонтрагенту" Тогда
        Форма.СписокЗнач.Видимость(1);
        Форма.СписокВидовДокументов.Видимость(0);
        Форма.СписокЗнач.НазначитьТип("Справочник.Контрагенты");
...
    КонецЕсли;
    ПриВыбореЗнач();
КонецПроцедуры // ПриВыбореВидаОтбора
//******************************************************************************


При выборе по контрагенту пусто.
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #177683 · Ответов: 3 · Просмотров: 642
 

>  Ошибка отбора: УстановитьОтбор - Неверное имя реквизита
4andriy
Отправлено: 10.09.23, 13:04


Завсегдатай
****

Группа: Пользователи
Сообщений: 174
Регистрация: 25.07.11
Пользователь №: 10636


4andriy @ Вчера, 21:25 * ,
ошибки уже нет, работает выборка по фирме, автору, а по контрагенту нет
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #177682 · Ответов: 3 · Просмотров: 642
 

>  Ошибка отбора: УстановитьОтбор - Неверное имя реквизита
4andriy
Отправлено: 09.09.23, 20:25


Завсегдатай
****

Группа: Пользователи
Сообщений: 174
Регистрация: 25.07.11
Пользователь №: 10636


//******************************************************************************
//
Процедура ПриВыбореЗнач()
    ТекущийВидОтбора = СписокВидовОтбора.ПолучитьЗначение(СписокВидовОтбора.ТекущаяСтрока());
    Если ТекущийВидОтбора = "ПоФирме" Тогда
        Форма.СписокВидовДокументов.Видимость(0);
        УстановитьОтбор("Фирма", СписокЗнач);
        ВидыОтбора("");
    ИначеЕсли ТекущийВидОтбора = "ПоКонтрагенту" Тогда
        Форма.СписокВидовДокументов.Видимость(0);
        УстановитьОтбор("Контрагент", СписокЗнач);
        ВидыОтбора("");
    ИначеЕсли ТекущийВидОтбора = "ПоАвтору" Тогда
        Форма.СписокВидовДокументов.Видимость(0);
        УстановитьОтбор("Автор", СписокЗнач);
        ВидыОтбора("");
    ИначеЕсли ТекущийВидОтбора = "ПоВидуДокумента" Тогда
        Форма.СписокЗнач.Видимость(0);
        ПриВыбореВидаДокумента();
    КонецЕсли;
КонецПроцедуры // ПриВыбореКонтрагента


Из списка выбираю контрагента, и тогда ошибка отбора:

УстановитьОтбор("Фирма", СписокЗнач);
{Журнал.Общий.Форма.ФормаСписка.Модуль(16)}: Неверное имя реквизита!
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #177681 · Ответов: 3 · Просмотров: 642
 

>  проблема адаптации обработки
4andriy
Отправлено: 05.10.22, 10:18


Завсегдатай
****

Группа: Пользователи
Сообщений: 174
Регистрация: 25.07.11
Пользователь №: 10636


при открытии сторонней обработки были ошибки в строках, я поправил обрабока открылась, но не работают другие функции, подозреваю что неправильно адаптировал
//ИдентификаторКонфигурации = глИдентификаторКонфигурации(); - было с (), поставил без () и ошибка пропала
ИдентификаторКонфигурации = глРедакцияКонфигурации;
//СуммаЭксп = СокрЛ(Формат(глПересчет(Сумма,Валюта,Гривна,Курс,ДатаДок),"Ч17.2.")); - Курс и ДатаДок пришлось убрать но наверно из-за этого не работает сама обработка
СуммаЭксп = СокрЛ(Формат(глПересчетВалютыПоКурсу(Сумма,Валюта,Гривна),"Ч17.2.")); - тут может быть ошибка
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #176401 · Ответов: 0 · Просмотров: 898
 

>  не могу передать значение с таблицы
4andriy
Отправлено: 28.09.22, 11:07


Завсегдатай
****

Группа: Пользователи
Сообщений: 174
Регистрация: 25.07.11
Пользователь №: 10636


4andriy @ Сегодня, 10:52 * ,
Приклад:
set App = CreateObject("Medoc.ZApplication")
orgId = App.SeekOrg("11223344", "")
set pd= App.GetPrimaryDocs()
set Doc = pd.OpenOrCreateDocument(orgId ,"1С82АВР", "4", "24.11.2020", "1234", 0)
Приклад заповнення таблиці маршрутів для багатостороннього первинного документа:
set rsRoute = Doc.DataSets("TAB9000")
rsRoute.Edit()
rsRoute.Fields.Item("DOCROUTE_POSITION").Value = 0
rsRoute.Fields.Item("DOCROUTE_EDRPOU").Value = "11223344"
rsRoute.Fields.Item("DOCROUTE_NAME").Value = "Продавець"
rsRoute.Append()
rsRoute.Edit()
rsRoute.Fields.Item("DOCROUTE_POSITION").Value = 1
rsRoute.Fields.Item("DOCROUTE_EDRPOU").Value = "11110000"
rsRoute.Fields.Item("DOCROUTE_NAME").Value = "Покупець1"
rsRoute.Append()
rsRoute.Edit()
rsRoute.Fields.Item("DOCROUTE_POSITION").Value = 2
rsRoute.Fields.Item("DOCROUTE_EDRPOU").Value = "22220000"
rsRoute.Fields.Item("DOCROUTE_NAME").Value = "Покупець2"
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #176369 · Ответов: 5 · Просмотров: 1434
 

>  не могу передать значение с таблицы
4andriy
Отправлено: 28.09.22, 9:52


Завсегдатай
****

Группа: Пользователи
Сообщений: 174
Регистрация: 25.07.11
Пользователь №: 10636


Vofka @ Вчера, 9:58 * ,
rsMain.Fields.Item("TAB1_OV_NAME").Value = спДанные.Получить(ТекСтрока + "Единица");
- убрал строку и заработало TAB1_OV_NAME не существует



на даный момент ошибка:

Doc = pd.OpenOrCreateDocument(orgId,Бланк,,,ДокИД,0);
{C:\1C\ВИГРУЗКА ДОКУМЕНТIВ З 1С В М.Е.ДОК (V.7).ERT(1247)}: Плохой тип переменной


сам код:
//=====================================================================================
Процедура ВигрузитиОЛЕ_ВидатковаНакладна(App, pd, orgId, док, ДокИД)
    
    //pd = "2";
    //ДокИД= "1";
    //док="2";
    //додав orgid
    orgId = ВыбФирма;
    Бланк = "1С77ВН";
                    
    спДанные = СоздатьОбъект("СписокЗначений");
    ЗаповнитиРеквізити(спДанные, док);
    Doc = pd.OpenOrCreateDocument(orgId,Бланк,,,ДокИД,0);


4andriy @ Сегодня, 10:43 * ,
описание по методу:
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 · Просмотр сообщения: #176368 · Ответов: 5 · Просмотров: 1434
 

>  доработка интеграции
4andriy
Отправлено: 23.09.22, 19:54


Завсегдатай
****

Группа: Пользователи
Сообщений: 174
Регистрация: 25.07.11
Пользователь №: 10636


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).
  Форум: Корзина · Просмотр сообщения: #176357 · Ответов: 2 · Просмотров: 708
 

>  доработка интеграции
4andriy
Отправлено: 23.09.22, 17:11


Завсегдатай
****

Группа: Пользователи
Сообщений: 174
Регистрация: 25.07.11
Пользователь №: 10636


здравствуйте, при доработаке интеграции под свою конфигурацию
Інтеграція

такая ошибка:
Doc = pd.OpenOrCreateDocument(orgId, Бланк,,, ДокИД, 0);
Типы не совпадают


код:

Процедура ВигрузитиОЛЕ_АктВиконанихРобіт(App, pd, orgId, док, ДокИД) 
    
    Бланк = "1С77АВР";
    
    спДанные = СоздатьОбъект("СписокЗначений");
    ЗаповнитиРеквізити(спДанные, док);
    
    Doc = pd.OpenOrCreateDocument(orgId, Бланк,,, ДокИД, 0);
    Doc.DisableScripts();
    rsMain = Doc.DataSets();
    Если rsMain.Fields.Count() > 0 Тогда
        rsMain.Edit();
    Иначе
        rsMain.Append();
    КонецЕсли;
  Форум: Корзина · Просмотр сообщения: #176355 · Ответов: 2 · Просмотров: 708
 

>  Інтеграційна стиковка для 1С 7.7 та M.E.Doc
4andriy
Отправлено: 23.09.22, 17:04


Завсегдатай
****

Группа: Пользователи
Сообщений: 174
Регистрация: 25.07.11
Пользователь №: 10636


fastiv @ 17.05.21, 18:34 * ,

Doc = pd.OpenOrCreateDocument(orgId, Бланк,,, ДокИД, 0);


Типы не совпадают это что значит?
  Форум: Отчеты / Обработки · Просмотр сообщения: #176354 · Ответов: 69 · Просмотров: 46206
 

>  не могу передать значение с таблицы
4andriy
Отправлено: 23.09.22, 17:00


Завсегдатай
****

Группа: Пользователи
Сообщений: 174
Регистрация: 25.07.11
Пользователь №: 10636


    КоличествоСтрок = спДанные.Получить("КоличествоСтрок");
    Для ном = 1 По КоличествоСтрок Цикл
        ТекСтрока = "R" + Прав("000" + ном,4);
        rsMain.Fields.Item("TAB1_A1").Value = ном;
        rsMain.Fields.Item("TAB1_NOMENKLATURA_NAME").Value = спДанные.Получить(ТекСтрока + "ТоварНаименование");
        rsMain.Fields.Item("TAB1_OV_NAME").Value = спДанные.Получить(ТекСтрока + "Единица");
        rsMain.Fields.Item("TAB1_A3").Value = спДанные.Получить(ТекСтрока + "Количество");
        rsMain.Fields.Item("TAB1_A5").Value = спДанные.Получить(ТекСтрока + "ЦенаБезНДС");
        rsMain.Fields.Item("TAB1_A6").Value = спДанные.Получить(ТекСтрока + "Сумма");
        rsMain.Post();
        Если ном <> КоличествоСтрок Тогда
            rsMain.Append();
        КонецЕсли;
    КонецЦикла;


ошибка:

rsMain.Fields.Item("TAB1_OV_NAME").Value = спДанные.Получить(ТекСтрока + "Единица");
Неизвестная ошибка


заработало
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #176353 · Ответов: 5 · Просмотров: 1434
 

>  запуск 1с на windows xp и 7 паралельно
4andriy
Отправлено: 23.09.22, 14:33


Завсегдатай
****

Группа: Пользователи
Сообщений: 174
Регистрация: 25.07.11
Пользователь №: 10636


1с 7.7
если запустить на windows xp - работает
если запустить на windows 7 ошибка:
порядок сортировки, установленный для базы данных отличасется от системного
тогда надо менять сортировку и тогда на xp не работает( и опять менять сортировку
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #176351 · Ответов: 1 · Просмотров: 1062
 

>  Не работает выборка документов
4andriy
Отправлено: 23.09.22, 13:52


Завсегдатай
****

Группа: Пользователи
Сообщений: 174
Регистрация: 25.07.11
Пользователь №: 10636


denis84 @ Сегодня, 14:32 * ,
//======================================================================
Процедура ЗаповнитиТаблицю()
    
    СтворитиСтруктуруТаблиці();
    
    ВидДок = спВидиДокументів.ПолучитьЗначение(спВидиДокументів.ТекущаяСтрока());
    
    ТекстЗапроса = "
    |Период с НачДата по КонДата;
    |ДатаДок = Документ.*.ДатаДок;
    |НомерДок = Документ.*.НомерДок;
    |Фирма = Документ.*.Фирма;
    |Контрагент = Документ.*.Контрагент;";
    Если ВидДок = "Приложение2" Тогда
        ТекстЗапроса = ТекстЗапроса + "
        |ИзмСуммыБезНДС = Документ.Приложение2.ИзмСуммыБезНДС;
        |ИзмНДС = Документ.Приложение2.ИзмНДС;
        |Функция СуммаБезНДС_ = Сумма(ИзмСуммыБезНДС);
        |Функция НДС_ = Сумма(ИзмНДС);
        |Функция СуммаСНДС_ = Сумма(ИзмСуммыБезНДС+ИзмНДС);";
    Иначе
        ТекстЗапроса = ТекстЗапроса + "
        |СуммаБезНДС = Документ.*.СуммаБезНДС;
        |СуммаСНДС = Документ.*.СуммаСНДС;
        |Функция СуммаБезНДС_ = Сумма(СуммаБезНДС);
        |Функция СуммаСНДС_ = Сумма(СуммаСНДС);";
        Если (ВидДок = "Т_РасходнаяНакладная") или (ИдентификаторКонфигурации = "UOUTK") Тогда
            ТекстЗапроса = ТекстЗапроса + "
            |Функция НДС_ = Сумма(СуммаСНДС-СуммаБезНДС);";
        Иначе
            ТекстЗапроса = ТекстЗапроса + "
            |НДС = Документ.*.НДС;
            |Функция НДС_ = Сумма(НДС);";
        КонецЕсли;
    КонецЕсли;
    
    ТекстЗапроса = ТекстЗапроса + "
    |Группировка Документ;
    |Условие(Фирма в ВыбФирма);
    |Условие(Контрагент в список);";    
    
    Если НеПоказуватиЗареєстровані = 1 Тогда
        Если (ВидДок = "НалоговаяНакладная") или (ВидДок = "Приложение2") Тогда
            ТекстЗапроса = ТекстЗапроса + "
            |ЕРНН = Документ.*.ЕРНН;
            |Условие(ЕРНН = 0);";
        КонецЕсли;
    КонецЕсли;
            
    ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "*", ВидДок);
    Запрос = СоздатьОбъект("Запрос");
    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;
    
    табл.УдалитьСтроки();
    
    НомерСтроки = 0;
    Пока Запрос.Группировка(1) = 1 Цикл
        НомерСтроки = НомерСтроки + 1;
        табл.НоваяСтрока();
        табл.ДатаДокумента = Запрос.ДатаДок;
        табл.НомерДокумента = Запрос.НомерДок;
        табл.Контрагент = Запрос.Контрагент;
        табл.КонтрагентИНН = табл.Контрагент.ИНН;
        табл.СуммаБезНДС = Запрос.СуммаБезНДС_;
        табл.НДС = Запрос.НДС_;
        табл.СуммаСНДС = Запрос.СуммаСНДС_;
        табл.Документ = Запрос.Документ;
        Если Метаданные.Документ(табл.Документ.Вид()).РеквизитШапки("ЕРНН").Выбран() = 1 Тогда
            табл.ЕРНН = ?(табл.Документ.ЕРНН = 1,2,1);
            табл.Пометка = ?(табл.ЕРНН = 2,1,2);
        Иначе
            табл.Пометка = 2;
        КонецЕсли;
        табл.ДокИД = РозрахуватиДокИД(Запрос.Документ);
        табл.Результат = "Документ з бази 1С";
        
        Для і = 1 По спРекв.РазмерСписка() Цикл
            Если спРекв.Пометка(і) = 0 Тогда
                Продолжить;
            КонецЕсли;
            табл.УстановитьЗначение(НомерСтроки, спРекв.ПолучитьЗначение(і), табл.Документ.ПолучитьАтрибут(спРекв.ПолучитьЗначение(і)));
        КонецЦикла;
        
    КонецЦикла;
    
    ЗаповнитиСтатусиДокументів(1);
    
    Если Форма.Закладки.ТекущаяСтрока() = 1 Тогда
        Форма.Закладки.ТекущаяСтрока(2);
        Форма.ИспользоватьСлой("Загальний, Таблиця", 2);
    КонецЕсли;
    
КонецПроцедуры
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #176349 · Ответов: 3 · Просмотров: 1042
 

>  Не работает выборка документов
4andriy
Отправлено: 23.09.22, 12:41


Завсегдатай
****

Группа: Пользователи
Сообщений: 174
Регистрация: 25.07.11
Пользователь №: 10636


при выборке документов така ошибка:

Цитата
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
{: СуммаБезНДС = Документ.РасходнаяНакладная. <<?>> СуммаБезНДС;
Запрос[7] : Неверно заданный путь 'СуммаБезНДС'
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
{: СуммаСНДС = Документ.РасходнаяНакладная. <<?>> СуммаСНДС;
Запрос[8] : Неверно заданный путь 'СуммаСНДС'
СУММАБЕЗНДС<<?>>
Переменная не определена (СУММАБЕЗНДС)
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
{: Функция СуммаБезНДС_ = Сумма(СуммаБезНДС <<?>> );
Запрос[9] : Ошибка в выражении 'СуммаБезНДС'
СУММАСНДС<<?>>
Переменная не определена (СУММАСНДС)
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
{: Функция СуммаСНДС_ = Сумма(СуммаСНДС <<?>> );
Запрос[10] : Ошибка в выражении 'СуммаСНДС'
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
{: Условие(Фирма в ВыбФирма <<?>> );
Запрос[14] : Ошибка в условии
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
{: Условие(Контрагент в список <<?>> );
Запрос[15] : Ошибка в условии
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #176347 · Ответов: 3 · Просмотров: 1042
 

7 страниц V   1 2 3 > » 

Новые сообщения  Открытая тема (есть новые ответы)
Опрос  Опрос (есть новые голоса)
Нет новых сообщений  Открытая тема (нет новых ответов)
Нет новых голосов  Опрос (нет новых голосов)
Популярная тема  Горячая тема (есть новые ответы)
Закрыта  Закрытая тема
Нет новых  Горячая тема (нет новых ответов) Перемещена  Тема перемещена
 

RSS Текстовая версия Сейчас: 28.03.24, 11:20
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!