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

Выпуск № 467
от 10.04.2007, 23:35

Вопрос № 81.185

Подскажите где можно скачать компоненту "Оперативный учет" для сетевой версии 1С 7.7

Отправлен: 05.04.2007, 15:08 Вопрос задал: Далевский Александр Юрьевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Vovchai Здравствуйте, Далевский Александр Юрьевич! Ее покупать надо. хотя существует способ раздобыть компоненту даже не выходя в интернет :) (она у вас есть, только вы не подозреваете об этом) :)

Ответ отправил: Vovchai (статус: 1-ый класс) Ответ отправлен: 05.04.2007, 15:34

Отвечает: BigHard Здравствуйте, Далевский Александр Юрьевич! компонента "Оперативный учет" - она же файл Trade.dll. Посмотри у себя в папке 1с. эта длл может называться Trade.dl_ или как то типа того. Просто переименуй файл. И, если я не ошибаюсь, компонента одинакова для всех версий. Если не получится, напиши в личку с описанием проблемы --------- Чем отличается чайник от программиста: У чайника в одном килобайте 1000 байт, а у программиста в одном километре 1024 метра

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

Вопрос № 81.203

Доброго времени суток эксперты такой вопрос. Есть документ "Акт выполненных работ" в нем есть печатная форма в которую выводиться информация об оказанной работе (услуге). В базе есть справочник Товары. У товара есть такой реквизит как ВидТовара (значения реквизита: Товар, Услугу, Прочее) Смысл в том чтобы в печатной форме Акта сначало выводилась услуга, а затем товар. Тоесть если в карточке товара в справочнике Товары ВидТовара=Услуга, то попадает в первую таблицу, еслиже это товар то во вторую. Идея в том что допустим: Заправка кардриджа для лазерного принтера - эта услуга А материал: Тонер для лазерного картриджа - уто товар. Итог должен проводиться по всему. В приложении модуль данного документа. Подскажите пожалуйста как это можно сделать. Причем если проводилась только услуга то вторая таблица для товара в печатную форму не выводиться, и наобород если продали товар, но не делали услуги то таблица товара выводиться, а услуги нет. И соответственно если делали услугу с учетом нашего товара то указывать в печатной форме таблицу как услуги так и товара. Заранее спасибо за любую помощь. Приложение: //Перем Валюта; Перем Валюта_Прежн; Перем Курс_Прежн; Перем Режим; //----------------------------------------------- Процедура УстНаОсн() Спр = СоздатьОбъект("Справочник.Прочие"); Если Спр.Выбрать("Выберите основание","")>0 Тогда НаОсн = "" + Спр; КонецЕсли; КонецПроцедуры //----------------------------------------------- Процедура УстНаОснФ() Спр = СоздатьОбъект("Справочник.Прочие"); Если Спр.Выбрать("Выберите основание","") > 0 Тогда НаОснФ = "" + Спр; КонецЕсли; КонецПроцедуры //----------------------------------------------- Функция СуммаБезРасх() Возврат ?(Курс = 0, 0, ФРМ2((Итог("Сумма") + Итог("НДС")) / Курс - СумРасх, 0)); КонецФункции //----------------------------------------------- Процедура ПриОткрытии() Склад=ВосстановитьЗначение("АктСклад"); //КМес=ВосстановитьЗначение("АктКМес"); //ДЗМ=ВосстановитьЗначение("АктДЗМ"); //НацУ=ВосстановитьЗначение("АктНацУ"); //НадбавкаУ=ВосстановитьЗначение("АктНадбавкаУ"); ЦельПродажи=ВосстановитьЗначение("АктЦельПродажи"); ПроверкаРазрешенияРедактирования(Контекст); КонецПроцедуры //----------------------------------------------- Процедура Подбор() Режим="Каталог"; ОткрытьПодбор("Товары","ДляПодбора"); УстановитьЗначениеВПодборе("Склад",Склад); УстановитьЗначениеВПодборе("ДатаДок",ДатаДок); КонецПроцедуры //----------------------------------------------- Процедура ПодборПоПрайсу() Режим="Прайс"; ОткрытьПодбор("Прайс_лист","ДляПодбора"); УстановитьЗначениеВПодборе("Склад",Склад); КонецПроцедуры //----------------------------------------------- Процедура ОбработкаПодбора(Выб) Если Константа.ЗапрашиватьКоличество=Перечисление.Булево.Да Тогда Кол=1; Если ВвестиЧисло(Кол,"Введите количество",10,3)=1 Тогда НоваяСтрока(); Если Режим="Каталог" Тогда Товар=Выб; Иначе Товар=Выб.Товар; КонецЕсли; Количество=Кол; Иначе Возврат; КонецЕсли; Иначе НоваяСтрока(); Если Режим="Каталог" Тогда Товар=Выб; Иначе Товар=Выб.Товар; КонецЕсли; Количество=1; КонецЕсли; УстанЦеныРасх(Контекст); Выч_суммы_накл(Контекст); АктивизироватьСтроку(); КонецПроцедуры //----------------------------------------------- Функция ЦенаСНДС () Процент = ПроцентНДС(Товар.СтавкаНДС); Возврат Цена*(100+Процент)/100; КонецФункции //----------------------------------------------- Процедура Печать(Флаг) Клиент.ИспользоватьДату(ДатаДок); Фирма.ИспользоватьДату(ДатаДок); Именуем = "именуемый"; Именуем = ?(Клиент.Именуем = 2, "именуемая", Именуем); Именуем = ?(Клиент.Именуем = 3, "именуемое", Именуем); СтрКлиента = "" + СокрЛП(НРег(Клиент.Руководитель.Должность.Род)) + " " + СокрЛП(Клиент.Руководитель.Род); Подпись = ", руб."; Если ПустаяСтрока("" + ДляПодписи) = 1 Тогда СтрДол = Фирма.ДолжностьД.Род; СтрФамилия = Фирма.Директор.Род; ДолжностьД = Фирма.ДолжностьД; Директор = Фирма.Директор; Иначе СтрДол = НРег(ДляПодписи.Должность.Род); СтрФамилия = ДляПодписи.Род; ДолжностьД = ДляПодписи.Должность; Директор = ДляПодписи; КонецЕсли; Если ПустаяСтрока(СтрКлиента) = 1 Тогда СтрКлиента = " ______________ ____________________________ "; КонецЕсли; СтрНаОсн = НаОсн; Если ПустаяСтрока(СтрНаОсн) = 1 Тогда СтрНаОсн = " _________________________ "; КонецЕсли; СтрНаОснФ = НаОснФ; Если ПустаяСтрока(СтрНаОснФ) = 1 Тогда СтрНаОснФ = "Устава"; КонецЕсли; СтрПрод = ""; ДобРекв(СтрПрод, Фирма.Полное_Назв,"",""); //ДобРекв(СтрПрод, Фирма.Юр_адрес,"",РазделительСтрок); ДобРекв(СтрПрод, Фирма.Р_Счет1,"",РазделительСтрок + "Р/с "); ДобРекв(СтрПрод, Фирма.Банк1,""," в "); ДобРекв(СтрПрод, Фирма.МФО1,"",", МФО: "); АдресПрод = "" + Фирма.Юр_адрес; Если Не(Флаг = 5) Тогда ДобРекв(СтрПрод, Фирма.ИНН,"",", УНП: "); ДобРекв(СтрПрод, Фирма.Телефоны,"",РазделительСтрок + "Тел.: "); КонецЕсли; //ДобРекв(Стр, Фирма.ОКПО,"",", ОКПО: "); СтрПок = ""; ДобРекв(СтрПок, Клиент,"",""); //ДобРекв(СтрПок, Клиент.Адрес,"",РазделительСтрок); ДобРекв(СтрПок, Клиент.Расч_Счет,"",РазделительСтрок + "Р/с "); ДобРекв(СтрПок, Клиент.Банк,""," в "); ДобРекв(СтрПок, Клиент.МФО,"",", МФО: "); АдресПок = "" + Клиент.Адрес; Если Не(Флаг = 5) Тогда ДобРекв(СтрПок, Клиент.ИНН,"",", УНП: "); КонецЕсли; СтрГО = ""; ДобРекв(СтрГО,Фирма.Полное_Назв,"",""); ДобРекв(СтрГО,Фирма.Юр_адрес,"",", "); ДобРекв(СтрГО,Фирма.Р_Счет1,"",", Р/с "); ДобРекв(СтрГО,Фирма.Банк1,""," в "); ДобРекв(СтрГО,Фирма.АдресБанка1,"",", "); ДобРекв(СтрГО,Фирма.МФО1,"",", МФО "); СтрГП = ""; ДобРекв(СтрГП,Клиент.Наименование,"",""); ДобРекв(СтрГП,Клиент.Адрес,"",", "); ДобРекв(СтрГП,Клиент.Расч_Счет,"",", Р/с "); ДобРекв(СтрГП,Клиент.Банк,""," в "); ДобРекв(СтрГП,Клиент.МФО,"",", МФО "); Таб = СоздатьОбъект("Таблица"); Если Не(Флаг = 5) Тогда Таб.ИсходнаяТаблица("Таблица" + Флаг); Иначе Таб.ИсходнаяТаблица("СФпоНДС"); КонецЕсли; Точ = 1; ИтогоНДС = Итог("НДС"); ИтогоСумма = Итог("Сумма"); СтрНДС = Формат(Итог("НДС"),"ЧПД"); СтрсНДС = Формат(Итог("Сумма") + Итог("НДС"),"ЧПД"); СтрАкта = "Акту сдачи-приемки выполненных работ (услуг) №"+ СокрЛП(НомерДок) + " от " + Формат(ДатаДок, "Д (0)ДДММММГГГГ"); Если Не(Флаг = 4) Тогда Таб.ВывестиСекцию("Акт<"); ВыбратьСтроки(); Ном=0; Пока ПолучитьСтроку() = 1 do Ном = Ном + 1; СтНДС = ПроцентНДС(Товар.СтавкаНДС); Сум = Сумма; СумНДС = НДС; //ЦенасНДС = Цена * (1 + ПНДС / 100); Таб.ВывестиСекцию("Строка"); enddo; Таб.ВывестиСекцию("Акт>"); Иначе Таб.Вывести(); КонецЕсли; Таб.Опции(0,0,0,0,"Акт" + Флаг,"АктОкно" + Флаг); //Таб.ТолькоПросмотр(1); Таб.Показать("Печать акта",""); КонецПроцедуры //----------------------------------------------- Процедура ВводНового(Коп); Автор=Пользователь; Если Коп = 1 Тогда Возврат; КонецЕсли; ДатаДок=РабочаяДата(); Дата_Курса=ДатаДок; Валюта=Константа.ОснВалютаПродажи; // Валюта.ИспользоватьДату(Дата_Курса); Если Число(Валюта.Код)=Число(Константа.БазоваяВалюта.Код) Тогда Курс=Константа.ОсновнаяВалюта.Текущ_курс.Получить(Дата_Курса); Иначе // для других валют записываем их собственный курс Курс=Валюта.Текущ_курс.Получить(Дата_Курса); КонецЕсли; Фирма=Константа.ОснФирма; Клиент=Константа.ОснПокупатель; ЦельПродажи="Для оптовой торговли"; ЦельПриобретения="Для собственного потребления"; Валюта_Прежн=Валюта; Курс_Прежн=Курс; ТипЦен=Перечисление.ТипыРасхЦен.Розничные; СрокРезервирования=Константа.ОснСрокРезервирования; КонецПроцедуры //----------------------------------------------- Процедура ВводНаОсновании(ДокОснование) //Автор=Пользователь; КонецПроцедуры ////------------------------------- //Процедура Пополнить () // ДокОснование=СоздатьОбъект("Документ.Счет"); // Выбран=ДокОснование.Выбрать ("",); // ЦельПриобретения=ДокОснование.ЦельПриобретения; // Если Выбран=1 Тогда // Пока ДокОснование.ПолучитьСтроку()=1 Цикл // НоваяСтрока(); // ПоСчету=ДокОснование.ТекущийДокумент(); // Товар=ДокОснование.Товар; // Единица=ДокОснование.Единица; // Коэффициент=ДокОснование.Коэффициент; // Количество=ДокОснование.Количество; // Цена=ДокОснование.Цена; // Нац=ДокОснование.Нац; // Надбавка=ДокОснование.Надбавка; // Выч_суммы_накл(Контекст); // ЦенаСНДС=ЦенаСНДС (); // Наценки(); // // КонецЦикла; // КонецЕсли; // ДокОснование=0; //КонецПроцедуры //------------------------------- Процедура ПриЗакрытии() //СохранитьЗначение("СчетСклад",Склад); //СохранитьЗначение("АктКМес",КМес); //СохранитьЗначение("АктДЗМ",ДЗМ); //СохранитьЗначение("АктНацУ",НацУ); //СохранитьЗначение("АктНадбавкаУ",НадбавкаУ); СохранитьЗначение("АктЦельПродажи",ЦельПродажи); КонецПроцедуры //----------------------------------------------- // При входе в Форму запомним промежуточные переменные Валюта_Прежн=Валюта; Курс_Прежн=Курс; ТипЦен=Перечисление.ТипыРасхЦен.Розничные; Клиент.ИспользоватьДату(ДатаДок); //-----------------------------------------------

Отправлен: 05.04.2007, 16:07 Вопрос задал: Аржаник Антон Николаевич (статус: 2-ой класс) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: BigHard Здравствуйте, Аржаник Антон Николаевич! Можно сделать так, наиболее простой вариант: ответ не претендует на скорость и оригинальность, зато работать должен. перебираем строки табличной части столько раз, сколько у нас видов товара. Далее вначале выводим таблицу для товара, потом работы, потом услуги т.и.д. во время переборки подсчитываем общую сумму и после переборки выводим ее. Далее общий итог или что вам там нужно --------- Чем отличается чайник от программиста: У чайника в одном килобайте 1000 байт, а у программиста в одном километре 1024 метра

Ответ отправил: BigHard (статус: 7-ой класс) Ответ отправлен: 05.04.2007, 16:23 Оценка за ответ: 3

Отвечает: Gl0betrotter Здравствуйте, Аржаник Антон Николаевич! Предлагаю организовать все при помощи двух таблиц значений (далее ТЗ): одна ТЗ - для услуг, вторая ТЗ - для товаров. Структуры обеих ТЗ пусть в точности повторяют реквизиты табличной части документа. При переборе строк табличной части Акта анализируйте ТМЦ на значение реквизита ВидТовара и добавляйте его в зависимости от этого значения в одну или вторую ТЗ. Далее просто добавьте анализ на количество строк каждой ТЗ - если ТЗ услуг содержит строки - выводите на печатную форму шапку для услуг, перебирая уже ТЗ услуг выводите на печатную форму строки для услуг, если ТЗ услуг строки не содержит - соответственно шапку для услуг и строки не выводим. Аналогично анализируем ТЗ товаров... Если желаете, могу написать код - выложите названия реквизитов табличной части Акта на мини-форум вопроса или скиньте в личку. Удачи!

Ответ отправил: Gl0betrotter (статус: Студент) Ответ отправлен: 05.04.2007, 17:32

Отвечает: Полозов Олег aka Asher Здравствуйте, Аржаник Антон Николаевич! Как вариант: Перебираем строки с разброской по двум таблицам значений. в первую скидывать Номенклатуру с признаком услуга, во вторую все остальное. Если количество строк во второй таблице = 0 тогда ее не выводим. Если лениво писать код, то ко мне в аську

Ответ отправил: Полозов Олег aka Asher (статус: 4-ый класс) Ответ отправлен: 06.04.2007, 02:09 Оценка за ответ: 4

Вопрос № 81.213

Здравствуйте, уважаемые Эксперты!У меня такая проблема.1С работает под SQL. В сети существует 4 SQL Server`a(2-рабочих и 2-тестовых,я работаю на тестовом).На рабочих - Win2000, на тестовых - WinXP.Так вот,собственно,в чем суть проблемы:к рабочим серверам подключаюсь без проблем, а к тестовому серверу не могу(ни на уровне аутентификации винды,ни на уровне SQL-аутентификации, пытаюсь зайти под sa).Та же проблема и со вторым тестовым - он не может ко мне подключиться.Рабочие сервера тоже не могут подключиться к тестовым.При подключении к базе в 1С вылетает такая ошибка: SQL State: HYT00 Native: 0 Message: [Microsoft][ODBC SQL Server Driver]Timeout expired Помогите разобраться!

Отправлен: 05.04.2007, 17:18 Вопрос задал: Knr (статус: 1-ый класс) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Kim Здравствуйте, Knr! Даже не знаю что сказать. А почему вообще SQL не на СЕРЕВЕРНЫХ операционках? Windows 2000 Server, Windows 2003 Server никогда не было особых проблем.

Ответ отправил: Kim (статус: 2-ой класс) Ответ отправлен: 05.04.2007, 17:28

Отвечает: Gl0betrotter Здравствуйте, Knr! Думаю, проблема в том, что Windows XP не входит в список операционных систем, на которых может жить SQL Server 2000 (имею в виду редакции Standard и Enterprise). С XP без проблем Вы сможете использовать только SQL Server 2000 Desktop Engine (MSDE 2000). Ссылка на требования к аппаратно-программному обеспечению для использования SQL Server 2000 - http://www.microsoft.com/sql/prodinfo/previousversions/system-requirements.mspx Если Вы используете SQL Server 2005 (на него все-таки получается завести 1С 7.7) - ознакомьтесь со ссылкой http://www.microsoft.com/Rus/Sql/ProdInfo/SysReqs/Default.mspx Удачи!

Ответ отправил: Gl0betrotter (статус: Студент) Ответ отправлен: 05.04.2007, 20:47

Отвечает: Coch Здравствуйте, Knr! Как я понял проблема именно при попытке подключения к тестовым серверам по сети... При установке на Win XP sp2 MS SQL Server'а sp3 или sp4 у установленного сервера отключены все сетевые протоколы. Включить их можно следующим образом: 1. На тестовой машине с Win XP В Enterprise manager'e находим сервер с именем (LOCAL) или сетевым именем компьютера. 2. Правой клавишей - Свойства. В открывшемся диалоге жмем кнопку "Network Configuration..." 3. Включаем нужные протоколы (обычно TCP/IP, Multiprotocol) 4. Перезапускаем SQL Server

Ответ отправил: Coch (статус: 1-ый класс) Ответ отправлен: 10.04.2007, 12:47

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