Всем привет может кому то покажется что я что то покурил а может мне кажется.

Вопрос такой теоретически возможно сделать две процедуры чтоб в одной заполнилась табличная часть. А во второй документ создавался и записывался.?????

ну абстрактно, сферически в вакууме, по-конски, можно

так тебе кажется, что ты покурил, или нет?

я не курил, серьезно?

(0) ну а чо не то? и курить немного даже надо...

не_много

чочо?

(3) синтетическое что-то?

честно, по существу, без иронии - нет
но если заменить "табличную часть" на "таблица значений" и передавать её во вторую процедуру - то да

"в одной заполнилась табличная часть. А во второй документ создавался и записывался.?????" - именно в такой последовательности?

Видимо, все по-разному поняли вопрос... ТС, ну отсыпь у же нам, мы на твою волну перестроимся

(8) почему нельзя то?
вызываем вторую: она создает объект, передаем объект второй, она заполняет ТЧ, записываем

(10) а выводить нас кто будет?

(12) Оно само проходит, поверь мне ))))

типо такого?

Процедура СоздатьДок()
Док = Документы.Реализация.СоздатьДокумент();
  
ЗаполнитьТЧ(Док);
КонецПроцедуры

Процедура ЗаполнитьТч(Док)
  НоваяСтрока = Док.Товары.Добавить();
КонецПроцедуры

(13) чо-та я очкую, Славик ©

AaNnDdRrEeYy, да да да врое подойдет

так погоди пять сек не рано ли радоваться

(16) Скуууччноооо... Я думал, чонить позаковырестей...

Мои глаза... ТС, пунктуацию учи...

(15) Не очкуй, я сто раз так делал! (с)

(16) Заковыристость - разобрать этот поток сознания. Загвоздка именно в этом. А если он еще и думает так же...

(0) как этот вопрос к 1С относится? это самые основы программирования, передача параметра.

ну AaNnDdRrEeYy, програмирование на 1с же.

я знаю как писать процедуры и функций но когда задача посложнее путаюсь

(24) та же проблема, но с алкоголем. после второго литра не могу программить

ахх

Процедура СоздатьДокумент()
НовыйДокумент = Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();
ЗаполнитьТабличнуюЧасть(НовыйДокумент);
НовыйДокумент.Записать();

КонецПроцедуры

Процедура  ЗаполнитьТабличнуюЧасть(НовыйДокумент, ТекТовар, ТекКоличество, ТекСуммаОПТ)
  Товар = НовыйДокумент.Товары.Добавить();
  ТекНоменклатура = Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(ТекТовар));
        Если ПустаяСтрока(ТекНоменклатура) = Ложь Тогда
            Товары.Номенклатура = ТекНоменклатура;
            Товары.ЕдиницаИзмерения = ТекНоменклатура.ЕдиницаХраненияОстатков;
            Товары.Склад = Склад;
            Товары.Количество = ТекКоличество;
            Товары.Цена = ТекСуммаОПТ;
        //Иначе    
        КонецЕсли;
КонецПроцедуры

мда блин чего хочу сам не знаю, не укладывается в голове.

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

Процедура СоздатьДокумент()
НовыйДокумент = Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();
ЗаполнитьТабличнуюЧасть(НовыйДокумент);
НовыйДокумент.Записать();

КонецПроцедуры

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

(29) отдышись и спокойно объясни чего тебе нужно

(30) это он у нас хочет узнать

(29) хотя б намекни почему нельзя сначала создать док,а потом его заполнить?!

Блин ребета бы такие клевые!!! честно столько раз помогали

(33) >Блин ребета бы такие клевые!!! честно столько раз помогали
Дай угадаю... Ничего ты не курил. Это экстази, да?

У меня есть проблема все что я делаю думаю что награжденно и не правильно поэтому всегда куда то тыкаюсь. Задача такая и в голове есть почти ее решение. Есть xml файл надо взять от туда данные и создать документ либо поступление товаров и услуг, либо поступление товаров и услуг Нтт.

вот что будет делать по нажатию кпоки загрузить файл
Чтение = Новый ЧтениеXML;
    Чтение.ОткрытьФайл(ПутьКФайлу);
    Пока Чтение.Прочитать() Цикл
        Если Чтение.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
            ИмяУзла = Чтение.Имя;
        ИначеЕсли Чтение.ТипУзла = ТипУзлаXML.Текст Тогда
            Если  ИмяУзла = "Грузополучатель" Тогда
                Сообщить(Чтение.Значение);
                ТекГрузополучатель = Чтение.Значение;
            КонецЕсли;
            
            Если  ИмяУзла = "Товар" Тогда
                Сообщить(Чтение.Значение);
                ТекТовар = Чтение.Значение;
            КонецЕсли;    

            Если  ИмяУзла = "Количество" Тогда
                Сообщить(Чтение.Значение);
                ТекКоличество = Чтение.Значение;
            КонецЕсли;    

            Если  ИмяУзла = "СуммаОпт" Тогда
                Сообщить(Чтение.Значение);
                ТекСуммаОпт = Чтение.Значение;
            КонецЕсли;
            
        ИначеЕсли Чтение.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда
            Если ИмяУзла = "ТоварнаяПозиция"  Тогда
                  //Вызываеем процедуру
                  Если ТекГрузополучатель = "Основной склад" Тогда
                      
                  Иначе
                      
                  КонецЕсли;      
            КонецЕсли;

            Если ИмяУзла = "Документ"  Тогда
                КонецДокумента = Истина;
            КонецЕсли;


        КонецЕсли;
    КонецЦикла;

будут две процедуру как задумывал(пока не решил спросить, можно ли в одной процедуре заполнить тб часть, в другой создать и записать документ)
Одна будет создавать ПоступлениеТоавроИУслуг другая ПоступлениеТоавроИУслугНтт

вот первая

Процедура ПоступлениеТоваровИУслуг(ТекТовар, ТекКоличество, ТекСуммаОПТ, КонецДокумента)
    
    Если КонецДокумента = Ложь Тогда    
        НовыйДокумент =  Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();
        НовыйДокумент.Дата = ТекущаяДата();
        НовыйДокумент.ВидПоступления = Перечисления.ВидыПоступленияТоваров.НаСклад;
        НовыйДокумент.Организация = Организация;
        НовыйДокумент.Контрагент = Контрагент;
        НовыйДокумент.ДоговорКонтрагента = Договор;
        НовыйДокумент.ВидОперации = Перечисления.ВидыОперацийПоступлениеТоваровУслуг.ПокупкаКомиссия;
        Товары = НовыйДокумент.Товары.Добавить();
    
        ТекНоменклатура = Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(ТекТовар));
        Если ПустаяСтрока(ТекНоменклатура) = Ложь Тогда
            Товары.Номенклатура = ТекНоменклатура;
            Товары.ЕдиницаИзмерения = ТекНоменклатура.ЕдиницаХраненияОстатков;
            Товары.Склад = Склад;
            Товары.Количество = ТекКоличество;
            Товары.Цена = ТекСуммаОПТ;
        //Иначе    
        КонецЕсли;
        //Если КонецДокумента = Истина Тогда
        //    НовыйДокумент.Записать();
        //    КонецДокумента = Ложь;
        //    //НовыйДокумент.Записать(РежимЗаписиДокумента.Проведение);
        //КонецЕсли;
        
    КонецПроцедуры

стоп не глядите

за тобой уже выехали.

Процедура ПоступлениеТоваровИУслуг(ТекТовар, ТекКоличество, ТекСуммаОПТ, КонецДокумента)
    
        НовыйДокумент =  Документы.ПоступлениеТоваровУслуг.СоздатьДокумент();
        НовыйДокумент.Дата = ТекущаяДата();
        НовыйДокумент.ВидПоступления = Перечисления.ВидыПоступленияТоваров.НаСклад;
        НовыйДокумент.Организация = Организация;
        НовыйДокумент.Контрагент = Контрагент;
        НовыйДокумент.ДоговорКонтрагента = Договор;
        НовыйДокумент.ВидОперации = Перечисления.ВидыОперацийПоступлениеТоваровУслуг.ПокупкаКомиссия;
        Товары = НовыйДокумент.Товары.Добавить();
    
        ТекНоменклатура = Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(ТекТовар));
        Если ПустаяСтрока(ТекНоменклатура) = Ложь Тогда
            Товары.Номенклатура = ТекНоменклатура;
            Товары.ЕдиницаИзмерения = ТекНоменклатура.ЕдиницаХраненияОстатков;
            Товары.Склад = Склад;
            Товары.Количество = ТекКоличество;
            Товары.Цена = ТекСуммаОПТ;
        //Иначе    
        КонецЕсли;
        Если КонецДокумента = Истина Тогда
            НовыйДокумент.Записать();
            КонецДокумента = Ложь;
            //НовыйДокумент.Записать(РежимЗаписиДокумента.Проведение);
        КонецЕсли;
        
    КонецПроцедуры

я просто дружелюбный я на работе, не курю и экстези не принимаю. А вот г* кодить могу легко.

Что может быть приятней, чем коллега - дружелюбный oвнокодeр :)

(42) :)))))))))))))))))))))

ПустаяСтрока(ТекНоменклатура) = Ложь - это 5!

(41) не, это не алкоголь. пейота?

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

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

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

(46) Формируй таблицу товара отдельно, через ТЗ, с названиями колонок как у ТЧ документа, Затем:
НовыйДокумент.Товары.Загрузить(ТвояТЗСТоваром);

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

(49) Ну вот еще! из-за тебя браузер закрывать ))))

чтот такое ТЗ??? не сооображу

Таблица значений

(49) к счастью, твой код сворачивается

(51)ТекстЗапроса... ТемноЗеленый... ТихийЗайка...

Godofsin , "ПустаяСтрока(ТекНоменклатура) = Ложь - это 5!"
ты тут серьезно или шутишь просто мне нужно проверять есть данная номенклатура в базе

тёмно-зелёный тихий заяц
запрос писал, не видя смысла.
сгруппировать+сумма(яиц) -
система наглухо повисла.

(56)Не, это не трава и не экстази. Это что-то заразное.

(55) Да не, норм. просто я не догадался так проверять )))

+(58) но такой метод работать должен, лень проверять

Результат функции, возвращающей логическое значение, не следует проверять путем сравнения с логической константой.
Правильно:

Копировать в буфер обмена
Если ЭтоНовый() Тогда

Неправильно:

Копировать в буфер обмена
Если ЭтоНовый() = Истина Тогда
©ИТС

(46)>>И вот проблема что каждый раз когда новая позиция товара он будет создавать новый документ а не добавлять в старый, надо определить начало документа.


СоздатьДокумент()
из цикла вытащи

(60) Кстати да

(59) если основное представление по коду с длиной кода 0 (а так можно?) или же дело в 8.3, где можно рисовать своё представление, то не взлетит

(60) бывают самописные кривые функции которые могут возвратить и Неопределено, тогда стоит проверить на = Истина

(64) наверняка в стандартах разработки где-то об этом сказано

(65) я кода пишу Если ЧтотоТам() = Истина Тогда
обязательно коммент пишу
//Эта функция может возвращать неопределено
что бы потом не ржали когда мой код читать будут и нуба не держали

(66) ну не наю.. нормальная булевская функция не возвращает хрень

(66) не надо писать уебанские функции и все будет хорошо

(68) они типовые мля.....

(69) Пример можно?