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

Выпуск № 468
от 12.04.2007, 00:05

Вопрос № 81.273

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

Отправлен: 06.04.2007, 10:14 Вопрос задал: Иля (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: Яна Здравствуйте, Иля! Возможно, в этом случае нужно сделать большой макет (объединенный). Т.е. макет в котором будет столько таблиц, сколько Вы хотите вывести. И не меньший код отчета (тоже объединенный). Который будет последовательно выводить по очереди все эти отчеты в один. Только работать будет ничуть не быстрее, чем по отдельности. Скорее всего даже дольше, т.к. не получится это параллельно запустить.

Ответ отправила: Яна (статус: 10-ый класс) Ответ отправлен: 06.04.2007, 10:43 Оценка за ответ: 5 Комментарий оценки: Спасибо часть вашей фразы (объединенный) мне помогла

Отвечает: Manserg Здравствуйте, Иля! 1) 1С v8.0 - Отчеты -> Рапорт руководителю. (настройка показателей из Настроки дополнительных прав пользователей) 2) Иначе написать самому.

Ответ отправил: Manserg (статус: 8-ой класс) Ответ отправлен: 06.04.2007, 10:46 Оценка за ответ: 3 Комментарий оценки: Писать самому не надо. Я уже нащёл выход. Даешь отчетам одинаковые имена в разных конфигурациях, и объединяещь конфигурации (совместить объекты)

Вопрос № 81.299

Вопрос покажеться непонятным на первый взгляд, но все же! Появилась производственная необходимость узнать 1С как "Отче Наш", может кто порекомендовать "доходчивую литературу" для "быстрого старта". Настройка, администрирование, но главный упор - программирование, (и внутренне устройство самой базы). Книги, авторы, ссылки - все пригодиться! Заранее благодарен, Евгений

Отправлен: 06.04.2007, 13:13 Вопрос задал: Е.В.Гений (статус: 2-ой класс) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Dimaxx Здравствуйте, Jekafokin! "Профессиональная Разработка в 1С 8.0 Габец, Гончаров, Радченко. Это для серьёзного уровня. Разработка в системе "1С:Предприятие 8.0" С. А. Митичкин ООО «1С-Паблишинг» С этого я сам начинал. Успехов. --------- Hайден неизвестный драйвер, воткните какое-нибудь устройство!

Ответ отправил: Dimaxx (статус: 4-ый класс) Ответ отправлен: 06.04.2007, 13:22

Отвечает: BigHard Здравствуйте, Jekafokin! http://infostart.ru/projects/564/download.php?id=564&file=687&ref=1437 файл - это методическое пособие по семерке для начинающих програмистов, расписаны объекты метаданных и администрирование, есть и программирование --------- Чем отличается чайник от программиста: У чайника в одном килобайте 1000 байт, а у программиста в одном километре 1024 метра

Ответ отправил: BigHard (статус: 7-ой класс) Ответ отправлен: 06.04.2007, 13:35

Отвечает: Яна Здравствуйте, Jekafokin! К сожалению, как говорится, "Миссия невыполнима". Мгновенного старта с вашего текущего уровня быть не может. Вам нужно сначала как минимум определиться, что Вы хотите изучать 1С 7.7 или 1С 8.0. Кстати, еще возможны варианты 6,7.5,8.1. После того, как Вы изучите язык программирования (на что уйдет 1-2 месяца, даже при наличии литературы) пройдет как минимум полгода пока Вы сможете решать хоть сколько-нибудь серьезные задачи. Кроме того, Вам еще нужно изучить хотя бы одну типовую конфигурацию. Литературу почитать можно, но практики это не заменит. Т.о. более-менее Вы будете знать 1С в лучшем случае через год. А как "Отче Наш" лет через 5-10.

Ответ отправила: Яна (статус: 10-ый класс) Ответ отправлен: 06.04.2007, 20:44

Отвечает: Velial Здравствуйте, Jekafokin! Согласен с Яной что быстро это никак не получится. Из книжек могу посоветывать стандартную книгу из комплекта 1C(сам изучал, вполне хватает) и сайт www.mista.ru. А дальше все будет зависеть от Вас: занимались ли программированием, знаете ли бухучет. Чтобы понастоящему разбираться в 1С нужна практика, очень много практики! Для лучшего понимания рекомендуют написать свою конфигурацию(простую). Удачи! --------- Можно сделать защиту от дурака, но только от неизобретательного /Закон Нейсдра/

Ответ отправил: Velial (статус: Студент) Ответ отправлен: 07.04.2007, 06:57

Вопрос № 81.314

Здравствуйте. Есть сервер (AD, SQL, 1Cv77). Есть несколько компов, всё одинаковое, IP статичиские по порядку. Проблема: Один из компов на порядок медленнее работает с 1C. Например при выбор из списка чего-нибудь на "Я" начинается поиск в десятки секунд (список пунктов 100-200). Где рыть надо? Любые варинты...

Отправлен: 06.04.2007, 14:13 Вопрос задал: вася (статус: Посетитель) Всего ответов: 6 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Vovchai Здравствуйте, вася! Раз такое на одном клиенте, то у клиента рыть сюда: WINDOWSsystem32cliconfg.exe, удалить лишние протоколы, добавить псевдоним сервера

Ответ отправил: Vovchai (статус: 1-ый класс) Ответ отправлен: 06.04.2007, 14:21

Отвечает: Dimaxx Здравствуйте, вася! Скорее всего проблема где-то на пути к серваку. Проверь кабели, наводки, свитчи. Попробуй заменить порт свитча. --------- Hайден неизвестный драйвер, воткните какое-нибудь устройство!

Ответ отправил: Dimaxx (статус: 4-ый класс) Ответ отправлен: 06.04.2007, 14:23

Отвечает: Vlad Skorochod Здравствуйте, вася! Первым делом роем в сетевой карте. Быстрее всего что-то в ней.

Ответ отправил: Vlad Skorochod (статус: 3-ий класс) Ответ отправлен: 06.04.2007, 14:27

Отвечает: Manserg Здравствуйте, вася! Проверьте наличии антивируса а в нем проверки на сканирование сетевого трафика. Самая простая методика проверки пропускной способности сети, это взять большой файл и по очереди скачать его на каждый из компов с замером времени. Таким образом сможете определиться в каком направлении "копать", либо сеть(и все что к ней относится) либо программа 1С.

Ответ отправил: Manserg (статус: 8-ой класс) Ответ отправлен: 06.04.2007, 14:27

Отвечает: nimoid Здравствуйте, вася! Еще как вариант - посмотри что в памяти висит, может быть левые процессы, которые грузят оперативу с процом. --------- Пишем баги на любые патчи :-]

Ответ отправил: nimoid (статус: 9-ый класс) Ответ отправлен: 06.04.2007, 14:29

Отвечает: Kim Здравствуйте, вася! Сколько компов? При прочих равных условиях, елси ситуация описана корректно - проблемы в сетевом канале этого компа, например 10Мбит карта, либо большое расстояние, либо медленный процессор! Если же вы рассматриваете абсолютно одинаковые компьютеры и сетевые подключения, таких проблем быть не должно. И еще проверьте наличие и настройки АНТИВИРУСных программ. По возможности отключите проверку файлов *.md, *.ert

Ответ отправил: Kim (статус: 2-ой класс) Ответ отправлен: 06.04.2007, 15:59

Вопрос № 81.357

Здравствуйте уважаемые эксперты! Нужно из экселя создать документы. Обработка до конца не дописана, но основное есть. В экселе графы: номер документа, дата документа, контрагент, номенклатура, количество, цена, сумма. Моя обработка выбирает все строки и создает один документ. А мне необходимо, чтобы строки с одинаковым значением 1-го столбца (Номер документа ) создавали один документ, а если следующая строка с другим значением, то новый документ. Думаю, что это понятно. Подскажите пожалуйста... Спасибо! Приложение: Процедура ВыбратьФайл(Конт) Экспорт Перем Каталог, ИмяФайла, СтрокаФайлов; СтрокаФайлов="Файлы Excel (*.xls)|*.xls"; ИмяФайла=Конт.ИмяФайла; Если ФС.ВыбратьФайл(0, ИмяФайла, Каталог,"Выберите файл", СтрокаФайлов)=1 Тогда Конт.ИмяФайла=Каталог+ИмяФайла; КонецЕсли; КонецПроцедуры //******************************************* Процедура Сформировать() Док=СоздатьОбъект("Документ.Реализация"); Если ФС.СуществуетФайл(ИмяФайла)=1 Тогда ОкноExcel = СоздатьОбъект("Excel.Application"); ОкноExcel.Workbooks.Add(ИмяФайла); КолвоОшибок=0; Док.Новый(); Для Ном=2 По 1000 Цикл Состояние("Обрабатываем строку "+Ном); Тов=СокрЛП(ОкноExcel.Cells(Ном,1).Value); Если ПустаяСтрока(Тов)=1 Тогда КолвоОшибок=КолвоОшибок+1; Если КолвоОшибок=10 Тогда Прервать; КонецЕсли; Продолжить; Иначе КолвоОшибок=0; КонецЕсли; Док.Контрагент= СокрЛП(ОкноExcel.Cells(Ном,3).Value); Док.НоваяСтрока(); Спр=СоздатьОбъект("Справочник.Номенклатура"); Если Спр.НайтиПоНаименованию(СокрЛП(ОкноExcel.Cells(Ном,4).Value),0,1)=1 Тогда Сообщить(""+СокрЛП(ОкноExcel.Cells(Ном,4).Value)+" уже записан", "!"); Док.Номенклатура=Спр.ТекущийЭлемент(); Иначе Спр.ИспользоватьДату(РабочаяДата()); Спр.Новый(); Спр.Наименование=СокрЛП(ОкноExcel.Cells(Ном,4).Value); Спр.Записать(); Сообщить("Создали Номенклатуру с наименованием "+СокрЛП(ОкноExcel.Cells(Ном,4).Value), "I"); Если Спр.НайтиПоНаименованию(СокрЛП(ОкноExcel.Cells(Ном,4).Value),0,1)=1 Тогда Док.Номенклатура=Спр.ТекущийЭлемент(); КонецЕсли; КонецЕсли; Док.Количество=Число(СокрЛП(ОкноExcel.Cells(Ном,5).Value)); Док.Цена=Число(СокрЛП(ОкноExcel.Cells(Ном,6).Value)); Док.Сумма=Число(СокрЛП(ОкноExcel.Cells(Ном,7).Value)); Док. Записать(); КонецЦикла; ОкноExcel.Workbooks.Close(); ОкноExcel.DisplayAlerts = 0; ОкноExcel.Quit(); Предупреждение("Загрузка из файла закончена !" ,10); КонецЕсли; КонецПроцедуры

Отправлен: 06.04.2007, 19:41 Вопрос задала: Darina (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Шахрайчук Владимир Анатольевич Здравствуйте, Darina! Мое мнение таково: 1.Нужно все данные из Экселя переместить в ТЗ. 2.Потом все данные из ТЗ (если там данные еще есть), которые относятся к одному документу, переместить в ТЗ1. 3.Потом на основании данных, имеющихся в ТЗ1, создать документ и записать. Данные можно упорядочить по алфавиту, коду, цене, артикулу, либо не упорядочивать. 4.Потом из ТЗ удалить все данные, которые уже обработаны, то есть имеются в ТЗ1. 5.Перейти к п2 (не забыв очистить ТЗ1). Ничего страшного в этом алгоритме нет, у Вас все получится. Приложение: ЗЫ А мой предыдущий ответ и моя обработка помогла? В данном случае Вам не удастся сделать интерактивную Запись/Проведение документа, т.к. 2 открытых окна нового документа быть не может.

Ответ отправил: Шахрайчук Владимир Анатольевич (статус: Студент) Ответ отправлен: 06.04.2007, 19:58 Оценка за ответ: 5 Комментарий оценки: Спасибо! у меня всё получилось, но немного не так, как Вы предлагаете. С .txt файлами ещё не разбиралась

Отвечает: Яна Здравствуйте, Darina! Можно проще: 1. Завести переменную, в которой будет значение этого столбца в предыдущей строке. 2. Внутри цикла по строкам файла сделать проверку на совпадение значения этого столбца в текущей строке и значения переменной. 3. Если они не совпадают, то создаем новый документ, если нет - добавляем в старый строку.

Ответ отправила: Яна (статус: 10-ый класс) Ответ отправлен: 06.04.2007, 20:35 Оценка за ответ: 4 Комментарий оценки: Теоретически я также рассуждала. Но как это реализовать?...

Отвечает: Manserg Здравствуйте, Darina! 1) Как правильно уже было сказано, необходимы две таблицы значений. 2) Одну сворачиваем по первому полю, это и будет таблица документов. 3) Перебирая записи первой делаем отбор во второй по первому полю и по очереди выбираем из отбора записи по товару и заносим в новый документ. 4) Создайте все необходимые процедуры и функции по работе с ТЧ документа, в частности с ТЧ товары. Т.к. лучше не вызывать диалог формы документа, а обработать все заполнение через объект. 5) И не забудьте про формат полей в экселе, при загрузке числовых значений.

Ответ отправил: Manserg (статус: 8-ой класс) Ответ отправлен: 06.04.2007, 20:38 Оценка за ответ: 5 Комментарий оценки: Спасибо! Теперь всё получилось!

Отвечает: Palkin Здравствуйте, Darina! Если не нравится вариант с ТЗ, попробуйте вот так: Приложение: Процедура ВыбратьФайл(Конт) Экспорт Перем Каталог, ИмяФайла, СтрокаФайлов; СтрокаФайлов="Файлы Excel (*.xls)|*.xls"; ИмяФайла=Конт.ИмяФайла; Если ФС.ВыбратьФайл(0, ИмяФайла, Каталог,"Выберите файл", СтрокаФайлов)=1 Тогда Конт.ИмяФайла=Каталог+ИмяФайла; КонецЕсли; КонецПроцедуры //******************************************* Процедура Сформировать() Док=СоздатьОбъект("Документ.Реализация"); Если ФС.СуществуетФайл(ИмяФайла)=1 Тогда ОкноExcel = СоздатьОбъект("Excel.Application"); ОкноExcel.Workbooks.Add(ИмяФайла); КолвоОшибок=0; НомДок = 0; Для Ном=2 По 1000 Цикл Состояние("Обрабатываем строку "+Ном); Тов=СокрЛП(ОкноExcel.Cells(Ном,1).Value); Если ПустаяСтрока(Тов)=1 Тогда КолвоОшибок=КолвоОшибок+1; Если КолвоОшибок=10 Тогда Прервать; КонецЕсли; Продолжить; Иначе КолвоОшибок=0; КонецЕсли; Если НомДок <> Тов Тогда Если Ном <> 2 Тогда Док.Записать(); КонецЕсли; Док.Новый(); Док.НомерДок = Тов; Док.ДатаДок = СокрЛП(ОкноExcel.Cells(Ном,2).Value); Док.Контрагент= СокрЛП(ОкноExcel.Cells(Ном,3).Value); Док.Записать(); КонецЕсли; Док.НоваяСтрока(); Спр=СоздатьОбъект("Справочник.Номенклатура"); Если Спр.НайтиПоНаименованию(СокрЛП(ОкноExcel.Cells(Ном,4).Value),0,1)=1 Тогда Сообщить(""+СокрЛП(ОкноExcel.Cells(Ном,4).Value)+" уже записан", "!"); Док.Номенклатура=Спр.ТекущийЭлемент(); Иначе Спр.ИспользоватьДату(РабочаяДата()); Спр.Новый(); Спр.Наименование=СокрЛП(ОкноExcel.Cells(Ном,4).Value); Спр.Записать(); Сообщить("Создали Номенклатуру с наименованием "+СокрЛП(ОкноExcel.Cells(Ном,4).Value), "I"); Если Спр.НайтиПоНаименованию(СокрЛП(ОкноExcel.Cells(Ном,4).Value),0,1)=1 Тогда Док.Номенклатура=Спр.ТекущийЭлемент(); КонецЕсли; КонецЕсли; Док.Количество=Число(СокрЛП(ОкноExcel.Cells(Ном,5).Value)); Док.Цена=Число(СокрЛП(ОкноExcel.Cells(Ном,6).Value)); Док.Сумма=Число(СокрЛП(ОкноExcel.Cells(Ном,7).Value)); КонецЦикла; ОкноExcel.Workbooks.Close(); ОкноExcel.DisplayAlerts = 0; ОкноExcel.Quit(); Предупреждение("Загрузка из файла закончена !" ,10); КонецЕсли; КонецПроцедуры

Ответ отправил: Palkin (статус: 4-ый класс) Ответ отправлен: 07.04.2007, 06:33 Оценка за ответ: 3 Комментарий оценки: так не получается

Вопрос № 81.382

Добрый день или вечер! У меня возникла проблема с реализацией следующей задачи в программе Управление Торговлей: надо чтобы накапливались суммы покупок произведенных с помощью дисконтных карт в чеках ККМ Управлении Торговлей. Руководство решило, что когда будет достигнут определенный предел суммы, то таким покупателям будут назначены доп. скидки. Если не сложно, то подскажите каким образом это можно реализовать?

Отправлен: 06.04.2007, 23:34 Вопрос задал: Афанасьева Юлия (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Яна Здравствуйте, Афанасьева Юлия! 1. Есть справочник Типы Скидок/Наценок. Попробуйте его заполнить и посмотрите, что получится. 2. Можно сделать это вручную: свой регистр и по его данным изменение дисконтной карты. Если нужно подробнее пишите в личку.

Ответ отправила: Яна (статус: 10-ый класс) Ответ отправлен: 07.04.2007, 08:08

Отвечает: Краюшкин Игорь Валерьевич Здравствуйте, Афанасьева Юлия! Я сделал так: 1. Создал справочник "ДисконтныеКарты" 2. В шапку документа ЧекККМ добавил новый реквизит - "ДисконтнаяКарта" 3. Дописал обработку по считыванию штрих-кода (если это карта, то товар не ищется, а заполняется как раз тот реквизит) 4. Создал новый регистр, в котором накапливаются движения по этим картам 5. Дополнил обработку проведения документа ЧекККМ, где указал, что если реквизит "ДисконтнаяКарта" заполнен, то выполнять движение по регистру ДисконтныхКарт. То есть, если Вы новичок, то Вам будет тяжеловато организовать такую работу. Если же Вы профессионал, то заниматься реализацией этой идеи очень даже интересно.

Ответ отправил: Краюшкин Игорь Валерьевич (статус: 8-ой класс) Ответ отправлен: 08.04.2007, 09:09 Оценка за ответ: 5

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.47 от 06.04.2007