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

Хранилище

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

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



> не могу передать значение с таблицы          
4andriy Подменю пользователя
сообщение 23.09.22, 17:00
Сообщение #1

Завсегдатай
****
Группа: Пользователи
Сообщений: 177
Спасибо сказали: 1 раз
Рейтинг: 1

    КоличествоСтрок = спДанные.Получить("КоличествоСтрок");
    Для ном = 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 = спДанные.Получить(ТекСтрока + "Единица");
Неизвестная ошибка


заработало

AnryMc Подменю пользователя
сообщение 26.09.22, 8:44
Сообщение #2

Оратор
Иконка группы
Группа: Местный
Сообщений: 331
Спасибо сказали: 96 раз
Рейтинг: 97.6

Было бы неплохо узнать что такое rsMain?
Так как могут быть варианты...

sava1 Подменю пользователя
сообщение 26.09.22, 9:04
Сообщение #3

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2688
Из: Проскуров
Спасибо сказали: 681 раз
Рейтинг: 659.7

Цитата(AnryMc @ 26.09.22, 9:44) *
Было бы неплохо узнать что такое rsMain?


таблица в Медке

Vofka Подменю пользователя
сообщение 27.09.22, 8:58
Сообщение #4

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 13955
Из: Киев
Спасибо сказали: 4519 раз
Рейтинг: 3641.2

Цитата(4andriy @ 23.09.22, 18:00) *
заработало

Было бы не плохо озвучить решение.

4andriy Подменю пользователя
сообщение 28.09.22, 9:52
Сообщение #5

Завсегдатай
****
Группа: Пользователи
Сообщений: 177
Спасибо сказали: 1 раз
Рейтинг: 1

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).

Спасибо сказали: denis84,

4andriy Подменю пользователя
сообщение 28.09.22, 11:07
Сообщение #6

Завсегдатай
****
Группа: Пользователи
Сообщений: 177
Спасибо сказали: 1 раз
Рейтинг: 1

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 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

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