/ КОМПЬЮТЕРЫ И ПО / Языки программирования / 1С для программиста

Выпуск № 458
от 01.04.2007, 09:35

Вопрос № 79.787

Здравствуйте! Подскажите пожалуйста, как мне в данной процедуре высчитать минимальное значение типа: Выпуск=Мин(МожноВыпустить)? Спасибо! Приложение: Процедура Сформировать() Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Сформировать"); Таб.ВывестиСекцию("Шапка"); Таб.Опции(0,0,Таб.ВысотаТаблицы(),0); СпрН=СоздатьОбъект("Справочник.Нормативы"); СпрН.ИспользоватьВладельца(ВыбрПродукция); СпрН.ВыбратьЭлементы(); Таб.ВывестиСекцию("Строка_1"); Пока СпрН.ПолучитьЭлемент()=1 Цикл Если (СпрН.ПометкаУдаления()=0) и (СпрН.ЭтоГруппа()=0) Тогда Материал=СпрН.Материалы; Норма=СпрН.Норма; КолвоТребуемое=Количество*Норма; БИ=СоздатьОбъект("БухгалтерскиеИтоги"); Остаток=БИ.СКД("10.6",3,,СпрН.Материалы)+БИ.СКД("10.1",3,,СпрН.Материалы); МожноВыпустить=Цел(Остаток/Норма/1000); ДефИзл=МожноВыпустить-КолвоТребуемое; Таб.ВывестиСекцию("Строка_2"); КонецЕсли; КонецЦикла; // Выпуск=Мин(МожноВыпустить); Таб.ВывестиСекцию("Подвал"); Таб.ТолькоПросмотр(1); Таб.Показать("Сформировать",""); КонецПроцедуры

Отправлен: 26.03.2007, 13:36 Вопрос задала: Darina (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Татьяна Ласовская Здравствуйте, Darina! Примерно так, я внесла исправления в Ваш код: Приложение: Процедура Сформировать() Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Сформировать"); Таб.ВывестиСекцию("Шапка"); Таб.Опции(0,0,Таб.ВысотаТаблицы(),0); СпрН=СоздатьОбъект("Справочник.Нормативы"); СпрН.ИспользоватьВладельца(ВыбрПродукция); СпрН.ВыбратьЭлементы(); Таб.ВывестиСекцию("Строка_1"); _Выпуск = 0; Пока СпрН.ПолучитьЭлемент()=1 Цикл Если (СпрН.ПометкаУдаления()=0) и (СпрН.ЭтоГруппа()=0) Тогда Материал=СпрН.Материалы; Норма=СпрН.Норма; КолвоТребуемое=Количество*Норма; БИ=СоздатьОбъект("БухгалтерскиеИтоги"); Остаток=БИ.СКД("10.6",3,,СпрН.Материалы)+БИ.СКД("10.1",3,,СпрН.Материалы); МожноВыпустить=Цел(Остаток/Норма/1000); _Выпуск = Мин(_Выпуск,МожноВыпустить); ДефИзл=МожноВыпустить-КолвоТребуемое; Таб.ВывестиСекцию("Строка_2"); КонецЕсли; КонецЦикла; // Выпуск=Мин(МожноВыпустить); - этот оператор уже не нужен Таб.ВывестиСекцию("Подвал"); Таб.ТолькоПросмотр(1); Таб.Показать("Сформировать",""); КонецПроцедуры

Ответ отправила: Татьяна Ласовская (статус: 4-ый класс) Ответ отправлен: 26.03.2007, 13:53 Оценка за ответ: 4

Отвечает: Шахрайчук Владимир Анатольевич Здравствуйте, Darina! Таб = СоздатьОбъект("Таблица"); МинМожноВыпустить=99999999999; МаксМожноВыпустить=0; МожноВыпустить=Цел(Остаток/Норма/1000); Если МожноВыпустить<МинМожноВыпустить Тогда МинМожноВыпустить=МожноВыпустить; КонецЕсли; Если МаксМожноВыпустить<МожноВыпустить Тогда МаксМожноВыпустить=МожноВыпустить; КонецЕсли; КонецЦикла; Если МинМожноВыпустить=99999999999 Тогда Нельзя ничего выпустить Иначе Выпуск= КонецЕсли; ВыпускМакс=МаксМожноВыпустить; Дарина! Алгоритмы выбора минимального и максимального, сортировки, сложных условий есть базовые знания, которые нужно ПОМНИТЬ НАИЗУСТЬ. Их изучают на первом курсе. К сожалению, я не знаю, где можно прочитать про базовые знания, ни в одном учебнике я этого не видел. Сам я об этих алгоритмах узнал от одноклассников, ну а Вы, соответственно, можете узнать здесь. Удачи!

Ответ отправил: Шахрайчук Владимир Анатольевич (статус: Студент) Ответ отправлен: 26.03.2007, 13:59 Оценка за ответ: 5 Комментарий оценки: Спасибо! Всё получилось как надо!

Вопрос № 79.803

Доброго времени суток господа эксперты. Имеется справочник со следующими полями: НомерСчета (формат 00000000000000000000/00), ФИО,Сумма. Нужно написать код чтобы данные вугражались в файл формата *.txt следующей структуры: НомерСчета,ФИО,Сумма. Разделитель запятая, пробелы только между фамилией именем и отчеством. Заранее благодарен.

Отправлен: 26.03.2007, 15:11 Вопрос задал: Шмачков (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 6)

Отвечает: Gl0betrotter Здравствуйте, Шмачков! Для подобных операций используются СписокЗначений и функции ВСтрокуСРазделителями() и ИзСтрокиСРазделителями(). Пример кода: Перем Спс, Спр, Тхт, Стр, ИмяФайла; // переменные Спс=СоздатьОбъект("СписокЗначений"); // список значений Тхт=СоздатьОбъект("Текст"); // текст, который запишем в файл ИмяФайла="C:WindowsTempReference_Values.txt" Спр=СоздатьОбъект("Справочник.НашСправочник"); // наш справочник Спр.ВыбратьЭлементы(); //выбираем элементы Пока Спр.ПолучитьЭлемент()>0 Цикл Если Спр.ЭтоГруппа()=1Тогда // группы пропускаем Продолжить; КонецЕсли; Стр=""; // очищаем строку Спс.УдалитьВсе(); // очищаем список Спс.ДобавитьЗначение(Спр.НомерСчета); // добавляем НомерСчета Спс.ДобавитьЗначение(Спр.ФИО); // добавляем ФИО Спс.ДобавитьЗначение(Спр.Сумма); // добавляем Сумма Стр=Спс.ВСтрокуСРазделителями(); // конвертируем в строку Тхт.ДобавитьСтроку(Стр); // добавляем строку в текст КонецЦикла; // Спр.ПолучитьЭлемент() Тхт.Записать(ИмяФайла); // записываем текст в файл Удачи!

Ответ отправил: Gl0betrotter (статус: Студент) Ответ отправлен: 26.03.2007, 15:36

Отвечает: BigHard Здравствуйте, Шмачков! посмотрите вопросы № 55508 и №54852 http://rusfaq.ru/info/Question/55508 http://rusfaq.ru/info/Question/54852 в приложении цитата вопроса 55508 Приложение: Текстовый файл ~~~~~~~~~~~ i Как выгрузить данные из справочника в текстовый файл? ---------------------------------------------------- Текст = Новый ТекстовыйДокумент; Выборка = Справочники.Номенклатура.Выбрать(); Пока Выборка.Следующий() Цикл Стр = СтрЗаменить(Выборка.Наименование, Символ(34), "%квч%"); Код = Строка(Выборка.Код) + Символ(34); Текст.ДобавитьСтроку(Код + Стр); КонецЦикла; Текст.Записать("c: emp ext.txt"); =============================== i Как загрузить данные из текстового файла? -------------------------------- Текст = Новый ТекстовыйДокумент; Текст.Прочитать("c: emp ext.txt"); Для НомерСтроки = 1 По Текст.КоличествоСтрок() Цикл Стр = Текст.ПолучитьСтроку(НомерСтроки); Позиция = Найти(Стр, Символ(34; Код = Сред(Стр, 1, Позиция-1); прНаименование = Сред(Стр, Позиция + 1); Наименование = СтрЗаменить(прНаименование, "%квч%", Символ(34; Сообщить(Код + "-" + Наименование); КонецЦикла; Работа с текстом. Модель последовательного доступа Путь = "c: emp ext.txt"; Текст = Новый ЗаписьТекста(Путь, КодировкаТекста.UTF8); Выборка = Справочники.Номенклатура.Выбрать(); Пока Выборка.Следующий() Цикл Текст.ЗаписатьСтроку(Выборка.Наименование); КонецЦикла; Текст.Закрыть(); Путь = "c: emp ext.txt"; Текст = Новый ЧтениеТекста(Путь, КодировкаТекста.UTF8); Стр = Текст.ПрочитатьСтроку(); Пока Стр <> Неопределено Цикл Стр = Текст.ПрочитатьСтроку(); Сообщить(Стр); КонецЦикла; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ XML i Как из одной базы перенести документ в другую базу? ------------------------------------- // Выгрузить в файл xml. ЗаписьXML=Новый ЗаписьXML(); ЗаписьXML.ОткрытьФайл("c:doc.xml"); ЗаписьXML.ЗаписатьНачалоЭлемента("Root"); // Получить объект по ссылке. ВыгружаемыйОбъект=Документ.ПолучитьОбъект(); // С помощью средств сериализации записать объект в файл. ЗаписатьXML(ЗаписьXML,ВыгружаемыйОбъект); ЗаписьXML.ЗаписатьКонецЭлемента(); ЗаписьXML.Закрыть(); ЧтениеXML=Новый ЧтениеXML(); ЧтениеXML.ОткрытьФайл("c:doc.xml"); // Текущим становится элемент Root. ЧтениеXML.Прочитать(); // Текущим становится элемент с документом. ЧтениеXML.Прочитать(); // Проверить сможет ли с данным значением "справиться" // система сериализации в данной базе. Если ВозможностьЧтенияXML(ЧтениеXML) Тогда // Получить ДокументОбъект.РеализацияТоваровУслуг ЗагружаемыйОбъект=ПрочитатьXML(ЧтениеXML); ЗагружаемыйОбъект.Записать(); КонецЕсли; ЧтениеXML.Закрыть(); ================================ Как можно сформировать XML-документ произвольной структуры? ------------------------------------------------ Запись = Новый ЗаписьXML; Запись.ОткрытьФайл(ПутьКФайлу); Запись.ЗаписатьОбъявлениеXML(); Запись.ЗаписатьНачалоЭлемента("Корневой"); Запись.ЗаписатьАтрибут("Справочник", "Номенклатура"); Запись.ЗаписатьКомментарий("Краткая информация о номенклатуре"); Выборка = Справочники.Номенклатура.ВыбратьИерархически(); Пока Выборка.Следующий() Цикл Если Выборка.ЭтоГруппа Тогда Продолжить; КонецЕсли; Запись.ЗаписатьНачалоЭлемента("Элемент"); Запись.ЗаписатьАтрибут("Код", Строка(Выборка.Код; Запись.ЗаписатьАтрибут("Артикул", Строка(Выборка.Артикул; Запись.ЗаписатьТекст(Выборка.Наименование); Запись.ЗаписатьКонецЭлемента(); КонецЦикла; Запись.ЗаписатьКонецЭлемента(); Запись.Закрыть(); ================================ Как сформировать XML-документ в строку? --------------------------------------- Запись = Новый ЗаписьXML(); Запись.УстановитьСтроку(); Запись.ЗаписатьОбъявлениеXML(); Запись.ЗаписатьНачалоЭлемента("Корневой"); Запись.ЗаписатьАтрибут("Справочник", "Номенклатура"); Запись.ЗаписатьКомментарий("Краткая информация о номенклатуре"); Выборка = Справочники.Номенклатура.ВыбратьИерархически(); Пока Выборка.Следующий() Цикл Если Выборка.ЭтоГруппа Тогда Продолжить; КонецЕсли; Запись.ЗаписатьНачалоЭлемента("Элемент"); Запись.ЗаписатьАтрибут("Код", Строка(Выборка.Код; Запись.ЗаписатьАтрибут("Артикул", Строка(Выборка.Артикул; Запись.ЗаписатьТекст(Выборка.Наименование); Запись.ЗаписатьКонецЭлемента(); КонецЦикла; Запись.ЗаписатьКонецЭлемента(); Стр = Запись.Закрыть(); Сообщить(Стр); ========================================= Как можно обмениваться данными, используя XML-сериализацию через файлы других форматов? ---------------------------------------- ЗаписьXML = Новый ЗаписьXML(); ЗаписьXML.УстановитьСтроку(); Данные = СсылкаНаДокумент.ПолучитьОбъект(); ЗаписатьXML(ЗаписьXML, Данные); ТекстСообщения = ЗаписьXML.Закрыть(); Текст = Новый ТекстовыйДокумент; Текст.УстановитьТекст(ТекстСообщения); Текст.Записать(ПутьКФайлу); Текст = Новый ТекстовыйДокумент; Текст.Прочитать(ПутьКФайлу); ЧтениеXML = Новый ЧтениеXML(); ЧтениеXML.УстановитьСтроку(Текст.ПолучитьТекст(; Если ВозможностьЧтенияXML(ЧтениеXML) Тогда Данные = ПрочитатьXML(ЧтениеXML); Данные.Записать(); КонецЕсли; Как можно загрузить XML документ произвольной структуры? Чтение = Новый ЧтениеXML; Чтение.ОткрытьФайл(ПутьКФайлу); Пока Чтение.Прочитать() Цикл // Прочитать "структурные части" элементов. // Проверить, какая часть элемента - текущая. Если Чтение.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда ИмяУзла = Чтение.Имя; Сообщить("--" + ИмяУзла); // Атрибуты элементов можно читать только если текущая часть - // начало элемента Пока Чтение.ПрочитатьАтрибут() Цикл // Прочитать данные узла атрибута. ТипУзла = Чтение.ТипУзла; Имя = Чтение.Имя; Значение = Чтение.Значение; // Обработать полученные значения. КонецЦикла; ИначеЕсли Чтение.ТипУзла = ТипУзлаXML.Текст Тогда // В примере просто выводим текст в окно сообщений. Сообщить("Текст:" + Чтение.Значение); ИначеЕсли Чтение.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда // В примере просто выводим признак конца элемента // в окно сообщений Сообщить("--Конец:" + Чтение.Имя); КонецЕсли; КонецЦикла; DBF-файлы i Как можно построить выгрузку-загрузку посредством файлов DBF? БД = Новый XBase; БД.Поля.Добавить("CODE", "S", 5); БД.Поля.Добавить("NAME", "S", 40); БД.СоздатьФайл(Путь + "start.dbf", Путь + "index.cdx"); БД.Индексы.Добавить("IDXCODE", "CODE"); ФлИБД = БД.СоздатьИндексныйФайл(Путь + "index.cdx"); БД.АвтоСохранение = Истина; Выборка = Справочники.Номенклатура.ВыбратьИерархически(); Пока Выборка.Следующий() Цикл БД.Добавить(); БД.CODE = Выборка.Код; БД.NAME = Выборка.Наименование; КонецЦикла; БД.ЗакрытьФайл(); БД = Новый XBase; БД.ОткрытьФайл(Путь + "start.dbf", Путь + "index.cdx"); БД.ТекущийИндекс = БД.Индексы.IDXCODE; Пока БД.Следующая() Цикл Сообщить(БД.CODE); Сообщить(БД.NAME); КонецЦикла; БД.ЗакрытьФайл(); --------- Чем отличается чайник от программиста: У чайника в одном килобайте 1000 байт, а у программиста в одном километре 1024 метра

Ответ отправил: BigHard (статус: 6-ой класс) Ответ отправлен: 26.03.2007, 16:01

Отвечает: Strawberry Здравствуйте, Шмачков! Например так см.приложение Приложение: каталогфайла=Константа.КаталогЭкспорта; // каталог куда сохраним наше творчество Телописьма=Строка(СокрЛП(каталогфайла)+"nak.txt"); // файл с нашим творчеством ТекстДок = СоздатьОбъект("Текст"); Спр=СоздатьОбъект("Справочник.НужныйСправочник"); Спр.ВыбратьЭлементы(); Пока спр.получитьэлемент()=1 Цикл стр=Строка(СокрЛП(Спр.номерсчета)+","+СокрЛП(Спр.ФИО)+","+СокрЛП(Спр.Сумма)); ТекстДок.ДобавитьСтроку(стр); КонецЦикла; ТекстДок.Записать(телописьма); ТекстДок.ТолькоПросмотр(1); ТекстДок.Показать(); // посмотрим че получилось --------- Мальчик-извращенец прочел деду Морозу с табуретки всего Пастернака!

Ответ отправил: Strawberry (статус: 5-ый класс) Ответ отправлен: 26.03.2007, 16:32

Вопрос № 79.876

Здравствуйте! При записи число из колонки Стоимость многострочной части документа сохраняется в справочнике Номенклатура. Правильно я описала или можно как-то по-другому описать эту процедуру? Спасибо огромное заранее. Приложение: Процедура ПриЗаписи() Если глМожноЗаписатьДокумент(Контекст) = 0 Тогда СтатусВозврата(0); Возврат; ИначеЕсли глКонтрольДатыДокумента(Контекст, НачальнаяДатаДокумента) = 1 Тогда СтатусВозврата(0); Возврат; КонецЕсли; Операция.СуммаОперации = Итог("Сумма"); Операция.Содержание = "Передача на склад гот.продукции"; Спр=СоздатьОбъект("Справочник.Номенклатура"); ВыбратьСтроки(); Пока ПолучитьСтроку()=1 Цикл Спр.ВыбратьЭлементы(); Пока Спр.ПолучитьЭлемент()=1 Цикл Если Товар=Спр.ТекущийЭлемент() Тогда Товар.ПлановаяСебестоимость.Установить(ДатаДок,Стоимость); КонецЕсли; КонецЦикла; КонецЦикла; КонецПроцедуры

Отправлен: 27.03.2007, 00:06 Вопрос задала: Darina (статус: Посетитель) Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Palkin Здравствуйте, Darina! Попробуйте Воспользоваться методом НайтиЭлемент() Приложение: Процедура ПриЗаписи() Если глМожноЗаписатьДокумент(Контекст) = 0 Тогда СтатусВозврата(0); Возврат; ИначеЕсли глКонтрольДатыДокумента(Контекст, НачальнаяДатаДокумента) = 1 Тогда СтатусВозврата(0); Возврат; КонецЕсли; Операция.СуммаОперации = Итог("Сумма"); Операция.Содержание = "Передача на склад гот.продукции"; Спр=СоздатьОбъект("Справочник.Номенклатура"); ВыбратьСтроки(); Пока ПолучитьСтроку()=1 Цикл Если Спр.НайтиЭлемент(Товар)=1 Тогда Товар.ПлановаяСебестоимость.Установить(ДатаДок,Стоимость); КонецЕсли; КонецЦикла; КонецПроцедуры

Ответ отправил: Palkin (статус: 4-ый класс) Ответ отправлен: 27.03.2007, 06:09 Оценка за ответ: 5 Комментарий оценки: Спасибо!

Отвечает: Vlad Skorochod Здравствуйте, Darina! Цикл нужно укоротить иначе прибольших справочниках будет долго проводиться документ. Смотрим приложение : Приложение: Спр=СоздатьОбъект("Справочник.Номенклатура"); ВыбратьСтроки(); Пока ПолучитьСтроку()=1 Цикл Если Спр.НайтиЭлемент(Товар)=1 Тогда Спр.ПлановаяСебестоимость.Установить (ДатаДок,Стоимость); КонецЕсли; КонецЦикла;

Ответ отправил: Vlad Skorochod (статус: 3-ий класс) Ответ отправлен: 27.03.2007, 08:46 Оценка за ответ: 5 Комментарий оценки: Спасибо! Вы несомненно правы!

Отвечает: Strawberry Здравствуйте, Darina! Перебирать весь справочник нелогично, так проще и быстрее : Спр=СоздатьОбъект("Справочник.Номенклатура"); ВыбратьСтроки(); Пока ПолучитьСтроку()=1 Цикл //Спр.ВыбратьЭлементы(); //Пока Спр.ПолучитьЭлемент()=1 Цикл //Если Товар=Спр.ТекущийЭлемент() Тогда Спр.НайтиЭлемент(Товар); Товар.ПлановаяСебестоимость.Установить(ДатаДок,Стоимость); КонецЕсли; //КонецЦикла; КонецЦикла; --------- Мальчик-извращенец прочел деду Морозу с табуретки всего Пастернака!

Ответ отправил: Strawberry (статус: 5-ый класс) Ответ отправлен: 27.03.2007, 09:28 Оценка за ответ: 5 Комментарий оценки: Спасибо! Вы несомненно правы!

Отвечает: Gimmy Здравствуйте, Darina! Ваш вариант очень долгий. Вот мой вариант Приложение: Спр=СоздатьОбъект("Справочник.Номенклатура"); ВыбратьСтроки(); Пока ПолучитьСтроку()=1 Цикл Если Спр.НайтиЭлемент(Товар.ТекущийЭлемент())=1 Тогда Товар.ПлановаяСебестоимость.Установить(ДатаДок,Стоимость); КонецЕсли; КонецЦикла;

Ответ отправил: Gimmy (статус: 1-ый класс) Ответ отправлен: 27.03.2007, 10:18 Оценка за ответ: 5 Комментарий оценки: Спасибо! Вы несомненно правы!

Отвечает: Ovr1970 Здравствуйте, Darina! Вам вообще не нужен поиск в справочнике. Если Товар - это всегда элемент справочника "Номенклатура", то тогда в цикле по строкам документа нужно написать условие "Если Товар.Выбран()=1 тогда", если это может быть другой справочник, тогда как в приложении Приложение: Пока ПолучитьСтроку()=1 Цикл Если (Товар.Выбран()=1) и (Товар.Вид()="Номенклатура") Тогда Товар.ПлановаяСебестоимость.Установить(ДатаДок,Стоимость); КонецЕсли; КонецЦикла;

Ответ отправил: Ovr1970 (статус: Студент) Ответ отправлен: 30.03.2007, 13:46

Вопрос № 79.899

Здравствуйте. Вопрос по 1С 7.7 На форме расположен список зачений. Можно ли программно изменять его размер на форме (количество видимых строк) и как это сделать

Отправлен: 27.03.2007, 06:33 Вопрос задал: Zlm (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Ovr1970 Здравствуйте, Zlm! Теоретически это возможно, но средставми 1С нет. Нужно написать самому или найти компоненту, которая по имени элемента формы может вернуть его hwnd и с помощью Windows API изменит размер.

Ответ отправил: Ovr1970 (статус: Студент) Ответ отправлен: 30.03.2007, 12:10 Оценка за ответ: 4 Комментарий оценки: Спасибо за ответ

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: support@rusfaq.ru, Тел.: +7 (926) 535-23-31 ООО "Мастер-Эксперт Про", Москва, 2007 Авторские права | Реклама на портале Версия системы: 4.46 от 18.03.2007