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

Выпуск № 437
от 26.02.2007, 20:35

Вопрос № 76.256

Я 15.02.2007 задавал уже этот вопрос № 75766: При приеме грузов от клиента я ввожу в 1С документ.Заказ и печатаю 30 разных этикеток на каждый кулек груза на принтереЭтикеток и одну ТТН на матричном принтере. принтер печати задаю внутри цикла for k=1 to 30 do ПараметрыСтраницы(,,,,,,,,,,,имяПринтера); таб.print(0); enddo; И этикетки у меня выходят с принтера после 4-х секундной задумчивости 1С+WinXP перед каждой этикеткой. Это неприемлемо, клиенты ждут в очереди. Вопрос: подскажите, п-та, как ускорить печать внутри 1С или как вынести процесс печати во вне 1С(в WinXP), чтобы этикетки вылетали с принтера одна за другой. Советы, которые я получил, к сожалению, не дали желаемого результата. Принтер по-прежнему думает 1-2 сек перед печатью очередного экземпляра. При печати из MS-Word задаю кол-во копий, и принтер подумав те же 2-4 сек выстреливает все сколько заказал этикеток!! Может использовать OLE и печатать через Word? Когда попробовал из Excel, почему-то также думает как и в 1С. Спасибо. Спасибо.

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

Отвечает: Яна Здравствуйте, Ginar! Из Word Вы отправляете на принтер сразу все этикетки, а из 1С - по одной и проблема тут не в 1С, а в том, что нужно их отправить на принтер все сразу, а не в цикле по одной.

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

Отвечает: Elric Здравствуйте, Ginar! А может стоит обратить внимание на технические характеристики принтера? Есть принтеры, которые долго думают перед началом печати, зато потом очень быстро распечатывают то что на них послали. А есть принтеры которые начинают печатать мгновенно, но печать одной страницы чуть медленнее чем у первого варианта. Мне кажется тут дело не в 1С и не в XP. --------- Мирный атом в КАЖДЫЙ дом!

Ответ отправил: Elric (статус: Специалист) Ответ отправлен: 18.02.2007, 14:19

Отвечает: Vlad Skorochod Здравствуйте, Ginar! А не пробовал ли вынести установки ПараметрыСтраницы и печать за тело цикла? В Цикле формируем только один отчет, а печать делаем один раз в конце. А если надо распечатать одинаковых 30 экземпляров То можно воспользоваться таким модулем: таб.ПараметрыСтраницы(,,,,,,,,,,,имяПринтера); таб.КоличествоЭкземпляров(<Колво>); таб.print(0);

Ответ отправил: Vlad Skorochod (статус: 1-ый класс) Ответ отправлен: 19.02.2007, 10:05 Оценка за ответ: 4 Комментарий оценки: Пробовал. Перед печатью каждого экземпляра все так-же задумывается. Спасибо за участие.

Отвечает: KDV Здравствуйте, Ginar! ПОставь цикл не на печать отчета, а на формирование. Надо чтобы получилось 30 этикеток в ОДНОМ отчете! --------- Делай, что должно, и будет что будет

Ответ отправил: KDV (статус: 3-ий класс) Ответ отправлен: 19.02.2007, 18:03 Оценка за ответ: 4 Комментарий оценки: Ставил. 1) Не ставится в сводной таблице разделительСтраниц между этикетками-секциями 2)перед печатью очередной страницы все так-же задумывается. Спасибо за участие.

Вопрос № 76.259

В 1С77 вводятся в большом количестве документы.Заказ. Заказы отображаются в дополнительном журналеДокументов.Заказы. С этим журналом работают диспетчеры. Я хочу сделать поиск заказа в этом журнале по номеру. Номер заказа замысловатый: префикс 3 знака и 9 знаков на номер. Штатным поиском пользоваться неудобно: нужно набрать последние 3 цифры, а оператору приходится набирать все 12 знаков. В модуле.формы.ЖД пишу процедурку поиска заказа, где оператор вводит только 3 последних цифры, далее доделываю номер - префикс узнаю через текущийДокумент, добавляю нули и три цифры. Нахожу искомый заказ док.найтиПоНомеру(номДок). Вопрос: как мне из процедуры сделать найденный документ текущимДокументом журнала, чтобы маркер вышел на него и был виден в окне журнала? Или можно как-то доделать штатный поиск по номеру документа? Спасибо.

Отправлен: 18.02.2007, 12:38 Вопрос задал: Ginar (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Яна Здравствуйте, Ginar! Например, сформировав из 3х знаков полностью весь номер, запустить штатный поиск, либо штатный фильтр, т.е. оставить в списке только документы с этими тремя цифрами или вообще только один документ

Ответ отправила: Яна (статус: 7-ой класс) Ответ отправлен: 18.02.2007, 13:15 Оценка за ответ: 3 Комментарий оценки: Поясните, п-та, о каком штатном поиске и фильтре идет речь. Спасибо.

Отвечает: Краюшкин Игорь Валерьевич Здравствуйте, Ginar! АктивизироватьОбъект(<?>); Синтаксис: АктивизироватьОбъект(<Объект>) Назначение: Активизировать объект в форме списка. Параметры: <Объект> - выражение, содержащее документ. Замечание: Доступ к методу возможен только в контексте Модуля формы. Пример: АктивизироватьОбъект(Док)

Ответ отправил: Краюшкин Игорь Валерьевич (статус: 7-ой класс) Ответ отправлен: 18.02.2007, 14:04 Оценка за ответ: 5 Комментарий оценки: Спасибо за подсказку. Сработало, но пришлось повозиться, оказывается нельзя трогать при этом атрибут текущийДокумент.

Отвечает: Elric Здравствуйте, Ginar! 1. Когда Вызываете штатный поиск по номеру, в поле "Номер документа" автоматически подставляется номер текущего документа. Остается только заменить последние три цифры. Стоит ли писать дополнительную процедуру? 2. Если сделать в форме журнала дополнительную колонку (текстовое поле) и выводить в него последние три цифры номера документа, то оператор сможет использовать еще и контекстный поиск -- поставив курсор на эту колонку просто набрать номер (последние три цифры) искомого заказа. --------- Мирный атом в КАЖДЫЙ дом!

Ответ отправил: Elric (статус: Специалист) Ответ отправлен: 18.02.2007, 14:15 Оценка за ответ: 4 Комментарий оценки: 1. Не понятно о каком штатном поиске идет речь, контекстный? Объясните, п-та. 2. Не годится, в журнале отображаются документы разных фирм с разными префиксами, но с теми же номерами. Спасибо.

Отвечает: BigHard Здравствуйте, Ginar! воспользуйтесь функцией АктивизироватьОбъект() пример в приложении Приложение: Процедура Найтидок() чис=0; если ввестичисло(чис,"Номер билета для поиска",7,0,)=1 тогда дл=СтрДлина(Строка(чис)); Дл1=7-дл; Для а =1 по дл1 цикл номбил=строка(Номбил+"0"); Конеццикла; Номбил=Строка(константа.основнаяфирма.Суфикс)+"0"+Номбил+Строка(чис); Док=СоздатьОбъект("Документ.выдачакредита"); если Док.НайтиПоНомеру(Номбил)=0 тогда предупреждение("Билет под таким номером не найден"); Возврат; иначе Докоснование=Док.текущийДокумент(); АктивизироватьОбъект(Докоснование); активизировать("Номердок",0); Конецесли; Конецесли Конецпроцедуры --------- Чем отличается чайник от программиста: У чайника в одном килобайте 1000 байт, а у программиста в одном километре 1024 метра

Ответ отправил: BigHard (статус: 4-ый класс) Ответ отправлен: 19.02.2007, 06:36 Оценка за ответ: 5 Комментарий оценки: Отлично. Ваш совет мне помог. Оказалось внутри процедуры нельзя обращаться к атрибуту журнала документов ТекущийДокумент, начинает ругаться. Спасибо.

Вопрос № 76.287

Здравствуйте уважаемые эксперты. У меня к вам два вопроса. 1. Необходимо выбрать данные из текстового файла вид примерно следующий строка1(первый объект) |(реквизит1)|(реквизит2)|(реквизит3)| Строка2(второй объект) |(реквизит1)|(реквизит2)|(реквизит3)| .............................. ??? 2. Не давно искал отчет для ЗиК формирующий 4ФСС. нашел на 1с_проклуб но ксожалению у меня нехватает прав на его скачивание может у кого есть такой отчетик??? Заранее спасибо за ответ хотяб на один вопрос.

Отправлен: 18.02.2007, 15:00 Вопрос задал: Иля (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Allex Здравствуйте, Иля! Данные из текстового файла можно выбрать например так, как показано в приложении. Предполагается, что каждая строка файла состоит из значений, разделенных символом табуляции. Если разделитель другой, его надо указать вместо СсимволТабуляции. Приложение: Текст = СоздатьОбъект( "Текст" ); Текст.Открыть( ИмяФайла ); Для НомерСтроки = 1 По Текст.КоличествоСтрок() Цикл Стр = Текст.ПолучитьСтроку( НомерСтроки ); Стр = СтрЗаменить( Стр, СимволТабуляции, РазделительСтрок ); Колонка1 = СтрПолучитьСтроку( Стр, 1 ); Колонка2 = СтрПолучитьСтроку( Стр, 2 ); Колонка3 = СтрПолучитьСтроку( Стр, 3 ); КонецЦикла;

Ответ отправил: Allex (статус: 3-ий класс) Ответ отправлен: 18.02.2007, 22:24 Оценка за ответ: 5 Комментарий оценки: Спасибо,Аllex! Все отлично работает! Ваш вариант наиболее подходящий для меня...

Отвечает: BigHard Здравствуйте, Иля! посмотрите приложение, там немного не так, как вы хотите, но вы же доработаете, если вам надо по-вашему, ищите символ, которыми разделяються реквизиты. Приложение: //******************************************* перем назвфайл,назвКат; Процедура ВыбФайл() если ФС.выбратьФайл(0,назвфайл,Назвкат,"Выберите файл для загрузки","*.txt","txt")=1 тогда выбстрока=назвкат+Назвфайл; конецесли; КонецПроцедуры Процедура Выполнить() ТекстДок=СоздатьОбъект("Текст"); ТЗ=создатьОбъект("Таблицазначений"); ТЗ.новаяколонка("фильм","строка"); ТЗ.новаяколонка("Жанр","строка"); ТЗ.новаяколонка("Формат","строка"); ТекстДок.открыть(назвкат+Назвфайл); счет=0; для ном=1 по ТекстДок.количествострок() цикл если текстдок.получитьстроку(ном)=Строка("DVD") тогда прервать иначе если счет=0 тогда ТЗ.новаястрока(); Тз.фильм=текстдок.получитьстроку(ном); ТЗ.жанр=текстдок.получитьстроку(ном+1); счет=1 иначе счет=0; конецесли; конецесли; Конеццикла; --------- Чем отличается чайник от программиста: У чайника в одном килобайте 1000 байт, а у программиста в одном километре 1024 метра

Ответ отправил: BigHard (статус: 4-ый класс) Ответ отправлен: 19.02.2007, 06:36 Оценка за ответ: 4 Комментарий оценки: Коечно мне надо по-моему,BigHard. Т.к. файл формируется сторонней программой и его макет преопределен...

Отвечает: KDV Здравствуйте, Иля! 1) Если разделитель '|' ? тогда что то типа такого: Для Ии = 1 по текстПерем.КоличествоСтрок() Цикл С = текстПерем.ПолучитьСтроку(Ии); НомРекв = 1; Поз = Найти(С,"|"); Пока Поз <> 0 Цикл Рекв = Сред(С,1,Поз - 1);//в "Рекв" находится Реквизит № НомРекв С = прав(С, СтрДлина(С) - Поз); НомРекв = НомРекв + 1; Поз = Найти(С,"|"); КонецЦикл Рекв = С;//в "Рекв" находится Реквизит № НомРекв (последний) КонецЦикла; --------- Делай, что должно, и будет что будет

Ответ отправил: KDV (статус: 3-ий класс) Ответ отправлен: 19.02.2007, 17:27 Оценка за ответ: 5 Комментарий оценки: Спасибо,KDV. Ваш вариант тоже рабочий но я уже написал процедуру на основе ответа Allex.

Вопрос № 76.390

Уважаемые эксперты, помогите не профессионалу. Есть документ, данные которого должны записываться в дбф файл. В принципе по приведенному коду все нормально записывается, но проблема в том, что каждый следующий документ при выгрузке данных затирает в этом файле строки своими данными, а надо чтобы данные новых выгружаемых документов заполняли в дбф файле следующие строки, а не затирали данные предыдущих выгрузок. Как это осуществимо? Приложение: Процедура ВыгрузДБФ() ДБФ=СоздатьОбъект("XBase"); ДБФ.ДобавитьПоле("NAIM", "S",50,0); ДБФ.ДобавитьПоле("GOST","S",30,0); ДБФ.ДобавитьПоле("EDIZM","S",10,0); ДБФ.ДобавитьПоле("KOLICH","N",10,0); ДБФ.ДобавитьПоле("AVTO","S",40,0); ДБФ.ДобавитьПоле("SOTRUDNIK","S",50,0); Подсказка="Введите имя файла для выгрузки"; ФС.ВыбратьФайл(1,Имя_Файла,Имя_Папки,Подсказка,"Файл БД (*.dbf)|*.dbf", "*.dbf"); ДБФ.СоздатьФайл(Имя_Файла,Имя_Папки); ДБФ.Автосохранение(1); ВыбратьСтроки(); Пока ПолучитьСтроку()=1 Цикл ДБФ.Добавить(); ДБФ.NAIM=Наименование.Наименование; ДБФ.GOST =ГОСТ; ДБФ.EDIZM =Единица; ДБФ.KOLICH=Количество; ДБФ.AVTO=Авто; ДБФ.SOTRUDNIK=Сотр; ДБФ.Записать(); КонецЦикла; ДБФ.ЗакрытьФайл(); КонецПроцедуры

Отправлен: 19.02.2007, 10:34 Вопрос задал: Наталья Владимировна/ NatalyaDen (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Manserg Здравствуйте, Наталья Владимировна/ NatalyaDen! Сначала создайте файл "ДБФ.СоздатьФайл(Имя_Файла,Имя_Папки);" с структурой полей и сохраните, затем проверяйте на его наличие и при добавлении в него используте "ОткрытьФайл(<ПутьКБазе>,<ПутьКИндексу>,<ТолькоЧтение>)" <ПутьКБазе> - строковое выражение с путем к файлу базы DBF формата <ПутьКИндексу> - строковое выражение с путем к индексному файлу базы формата <ТолькоЧтение> - необязательный параметр. Число: 1 - файл открывается в режиме только чтение; 0 - файл открывается в режиме полного доступа (при этом файл открывается в эксклюзивном режиме).

Ответ отправил: Manserg (статус: 7-ой класс) Ответ отправлен: 19.02.2007, 10:47 Оценка за ответ: 5 Комментарий оценки: Спасибо, ОткрытьФайл() я действительно проморгала.

Отвечает: Vlad Skorochod Здравствуйте, Наталья Владимировна/ NatalyaDen! Поставьте проверку на наличие уже этого файла. И соответственно или создавайте его или открывайте уже существующий. Приложение: ДБФ=СоздатьОбъект("XBase"); Подсказка="Введите имя файла для выгрузки"; ФС.ВыбратьФайл(1,Имя_Файла,Имя_Папки,Подсказка,"Файл БД (*.dbf)|*.dbf", "*.dbf"); Если ФС.СуществуетФайл("ПутьИмя файла")=0 Тогда ДБФ.ДобавитьПоле("NAIM", "S",50,0); ДБФ.ДобавитьПоле("GOST","S",30,0); ДБФ.ДобавитьПоле("EDIZM","S",10,0); ДБФ.ДобавитьПоле("KOLICH","N",10,0); ДБФ.ДобавитьПоле("AVTO","S",40,0); ДБФ.ДобавитьПоле("SOTRUDNIK","S",50,0); ДБФ.СоздатьФайл("ПутьИмя файла"); Иначе ДБФ.ОткрытьФайл("ПутьИмя файла"); КонецЕсли; ДБФ.Автосохранение(1); ВыбратьСтроки(); Пока ПолучитьСтроку()=1 Цикл ДБФ.Добавить(); ДБФ.NAIM=Наименование.Наименование; ДБФ.GOST =ГОСТ; ДБФ.EDIZM =Единица; ДБФ.KOLICH=Количество; ДБФ.AVTO=Авто; ДБФ.SOTRUDNIK=Сотр; ДБФ.Записать(); КонецЦикла; ДБФ.ЗакрытьФайл(); КонецПроцедуры

Ответ отправил: Vlad Skorochod (статус: 1-ый класс) Ответ отправлен: 19.02.2007, 10:56 Оценка за ответ: 5 Комментарий оценки: Ваша подсказка подошла идеально, т.к. по неопытности я забыла и про проверку на открытие и про само открытие файла. Огромнейшее спасибо!

Отвечает: KDV Здравствуйте, Наталья Владимировна/ NatalyaDen! ДБФ.ОткрытьФайл(Имя_Папки + "" + Имя_Файла); Если ДБФ.Открыта() = 0 Тогда ДБФ.СоздатьФайл(Имя_Файла,Имя_Папки); КонецЕсли; --------- Делай, что должно, и будет что будет

Ответ отправил: KDV (статус: 3-ий класс) Ответ отправлен: 19.02.2007, 13:41 Оценка за ответ: 5 Комментарий оценки: Да, спасибо, я разобралась, что нужно сделать. Еще раз большушее всем откликнувшимся СПАСИБО!

Вопрос № 76.461

Здравствуйте уважаемые эксперты, подскажите, пожалуйста, можно ли написать в проводке, чтобы субконто не выбиралось из справочника{(Операция.Кредит.Субконто(1,Субконто1); } а записывалось конкретное субконто т.е. чтобы в данной проводке субконто1 было всегда например «НДС».

Отправлен: 19.02.2007, 17:23 Вопрос задала: Надежда (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Elric Здравствуйте, Надежда! Можно. Методом справочника "НайтиПоКоду" находите нужный элемент справочника (НДС) и подставляете его в качестве субконто. А вообще не из справочника -- нельзя, потому что в плане счетов для этого счета проставлен вид субконто, для которого сопоставлен справочник. --------- Мирный атом в КАЖДЫЙ дом!

Ответ отправил: Elric (статус: Специалист) Ответ отправлен: 19.02.2007, 17:35

Отвечает: Strawberry Здравствуйте, Надежда! Можно, но выбирать все рано прийдется вопрос в том как: 1. Выбирая из справочника по коду (наименованию или другому реквизиту),. Неправильно с точки зрения универсальности, код (наименование, реквизит) могут поменять пользователи. 2. задать в константе --------- Мальчик-извращенец прочел деду Морозу с табуретки всего Пастернака!

Ответ отправил: Strawberry (статус: 3-ий класс) Ответ отправлен: 19.02.2007, 18:20

Отвечает: Шахрайчук Владимир Анатольевич Здравствуйте, Надежда! Вот пример из модуля проведения реально работающей программы Благ=СоздатьОбъект("Справочник.ВидыЗатрат"); Если Благ.НайтиПоНаименованию("Благодійність",0)=0 Тогда Сообщить("Не могу найти Виды доходов/затрат Благодійність"); СтатусВозврата(0); Возврат; КонецЕсли; Проводка(Контекст,СчетПоКоду("94.9"),Благ.ТекущийЭлемент(),,,СчетКлиента,Контрагент,Договор,,Итог("Сумма")+Итог("НДС"),,,"За рахунок прибутку","ТМ");

Ответ отправил: Шахрайчук Владимир Анатольевич (статус: Студент) Ответ отправлен: 19.02.2007, 18:43 Оценка за ответ: 5

Отвечает: BigHard Здравствуйте, Надежда! Используя поиск(найтипонпименованию()), находите нужный элемент справочника и указываете его в проводке методом текущийэлемент(), например так, как в приложении Приложение: спр=создатьобъект("Справочник.начислений"); спр.найтипонаименованию("Пособие по беременности",0,1); Операция.новаяпроводка(); Операция.Дебет.счет=Счетпокоду("171.1"); Операция.Дебет.субконто(1,ПоискПодразд(Сотрудник)); Операция.Дебет.субконто(2,Спр.текущийэлемент()); Операция.Дебет.субконто(3,Сотрудник); операция.Кредит.счет=Счетпокоду("180"); Операция.Кредит.субконто(1,ПоискПодразд(Сотрудник)); Операция.Кредит.субконто(2,Спр.текущийэлемент()); Операция.Кредит.субконто(3,Сотрудник); Операция.подразделение=ПоискПодразд(Сотрудник); Операция.содержание="Пособие по беременности и родам сотрудника "+Сотрудник; Операция.сумма=Итог("Сумма"); Операция.суммаоперации=Итог("Сумма"); Операция.записать(); --------- Чем отличается чайник от программиста: У чайника в одном килобайте 1000 байт, а у программиста в одном километре 1024 метра

Ответ отправил: BigHard (статус: 4-ый класс) Ответ отправлен: 20.02.2007, 06:45 Оценка за ответ: 5

Вопрос № 76.518

Здравствуйте. Подскажите, пожалуйста как редактировать созданную при проведении документа карточку материала в справочнике, если допустим, нужно изменить сотрудника или какое-нибудь другое поле в документе и перепроводить, но получается, что при перепроведении создается новая карточка. Записываю в справочник: Приложение: назИсп=СоздатьОбъект("Справочник.назначенияИспользования"); назИсп.ИспользоватьВладельца(Товар); НазИсп.Новый(); НазИсп.ДатаВводаВЭксплуатацию=ДатаВводаВЭксплуатацию; НазИсп.СчетЗатрат=СчетЗатрат; Для В = 1 По 3 Цикл НазИсп.НазначитьТип("Субконто" + В, СчетЗатрат.ВидСубконто(В)); Сообщить("= "+ СчетЗатрат.ВидСубконто(В)); НазИсп.Субконто1=Субконто1; НазИсп.Субконто2=Субконто2; НазИсп.Субконто3=Субконто3; КонецЦикла; НазИсп.СпособПогашенияСтоимости=НазначениеИспользования.СпособПогашенияСтоимости; НазИсп.СрокПолезногоИспользования=СрокИспользованияНовый; НазИсп.наименование=строка(МестоХранения); НазИсп.Записать(); нназначениеИспользования=НазИсп.ТекущийЭлемент();

Отправлен: 19.02.2007, 22:58 Вопрос задал: Ефросинья (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 3)

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

Ответ отправил: Allex (статус: 3-ий класс) Ответ отправлен: 19.02.2007, 23:14

Отвечает: BigHard Здравствуйте, Ефросинья! а вы ищите по какому нибудь уникальному реквизиту (например по коду): нашли, просто редактируете реквизиты справочника и записываете, не нашли - создаете новый,заполняете и записываете.... Приложение: Спр=создатьОбъект("Справочник.сотрудники"); Если спр.найтипоКоду (Номердок,0)=0 тогда Спр.новый(); Спр.код=Номердок; Спр.наименование=ФИО; Спр.Госслужащий=госслужащий; Спр.Владелец=отдел; Спр.Календарь=Календарь; Спр.категория=категория; спр.должность=должность; Спр.летнагоссл=коллет; спр.пенсионер=перечисление.булево.нет; спр.Совместитель=перечисление.булево.нет; Спр.ДатаПоступлениянагосслужбу=ДатаПоступлениянагосслужбу; Спр.записать(); иначе Спр.код=Номердок; Спр.наименование=ФИО; Спр.Госслужащий=госслужащий; Спр.Владелец=отдел; Спр.летнагоссл=коллет; Спр.Календарь=Календарь; спр.должность=должность; спр.оклад.установить(Датадок,Оклад); Спр.категория=категория; Спр.ДатаПоступлениянагосслужбу=ДатаПоступлениянагосслужбу; Спр.записать(); Конецесли; --------- Чем отличается чайник от программиста: У чайника в одном килобайте 1000 байт, а у программиста в одном километре 1024 метра

Ответ отправил: BigHard (статус: 4-ый класс) Ответ отправлен: 20.02.2007, 06:44

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

Ответ отправил: KDV (статус: 3-ий класс) Ответ отправлен: 20.02.2007, 08:59

Отвечает: Яна Здравствуйте, Ефросинья! Создавать карточку при проведении - плохой стиль программирования. Лучше сделать это до или после, желательно с ведома пользователя.

Ответ отправила: Яна (статус: 7-ой класс) Ответ отправлен: 20.02.2007, 09:14

Вопрос № 76.557

Как в отчете по проводкам изменить следующее: нужно чтобы в отчете печатался не номер документа, а входящий номер. Подскажите где и как поменять НомерДок на НомерДокумента. Спасибо

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

Отвечает: Яна Здравствуйте, Mum! Посмотреть код. Вы забыли уточнить версию платформы, конфигурации, какой отчет Вы смотрите, где Вы видите НомерДок?

Ответ отправила: Яна (статус: 7-ой класс) Ответ отправлен: 20.02.2007, 09:42

Отвечает: Allex Здравствуйте, Mum! Конфигуратор->Конфигурация->Открыть конфигурацию-Отчеты->ОтчетПоПроводкам->Модуль НомерДок используется только в одном месте - в функции ПредставлениеПозицииДокумента

Ответ отправил: Allex (статус: 3-ий класс) Ответ отправлен: 20.02.2007, 09:48

Вопрос № 76.564

Здравствуйте! 1С 7.7 Комплекс с 2007 года перешли на новую базу Вводим сальдо НДС на начало года на 19 счет. Можно ли вводить сальдо на 19 счете обычной операцией, или обязательно делать документом "ввод остатков по поставщику"? и почему?

Отправлен: 20.02.2007, 10:13 Вопрос задал: Munster (статус: 7-ой класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Яна Здравствуйте, Munster! Если Вы сделаете обычной операцией, то в плане счетов все будет в порядке. Но не факт, что все будет в порядке в регистрах. Т.о. баланс сойдется. Но какие-то регламентные обработки, которые действуют исходя из данных не только плана счетов, но и регистров, могут сработать неверно.

Ответ отправила: Яна (статус: 7-ой класс) Ответ отправлен: 20.02.2007, 10:20 Оценка за ответ: 5 Комментарий оценки: Спасибо! Подскажите, каким числом нужно делать ввод остатков 31.12.06 или 01.01.07?

Отвечает: Arkadiy Karanskiy Здравствуйте, Munster! Разницы не будет, т.к. там берется вообщем дебетовый или кредитовый оборот и от сюда программа сама выбирает какая сумма начисленна, а какая оплаченна. P.S. Ввод остатков необходимо делать 31.12.06г. Успехов...

Ответ отправил: Arkadiy Karanskiy (статус: 7-ой класс) Ответ отправлен: 20.02.2007, 12:54 Оценка за ответ: 5 Комментарий оценки: Спасибо

Вопрос № 76.570

Уважаемые эксперты, подскажите пожалуйста... Появилась необходимотсь, вести в 1С предпринимателя на общем режиме налогообложения - нужны книга учеда доходов и расходов, расчет НДС, ведомости взаиморасчетов... Есть 1С Предприниматель, но эта конфигурация не устраивает бух-тера по ряду причин.... Есть ли альтернативы? Заранее благодарен за ваши ответы.

Отправлен: 20.02.2007, 10:37 Вопрос задал: Вячеслав Б. (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Махнев Даниил Анатольевич Здравствуйте, Вячеслав Б.! Посмотрите конфигурацию "1С: Бухгалтерия предприятия 8.0" (базовая или проф), в ней есть возможность ведения предпринимателя по всяким системам учета :-) --------- Windows работает ?! Читайте внимательно инструкцию...

Ответ отправил: Махнев Даниил Анатольевич (статус: 2-ой класс) Ответ отправлен: 20.02.2007, 15:31 Оценка за ответ: 4 Комментарий оценки: Спасибо... Уже заказал учебную версию.

Отвечает: Яна Здравствуйте, Вячеслав Б.! Согласна с предыдущим ответом. Можно также посмотреть Управление Торговлей, в случае, если предприятие торговое. НДС, прибыль, доходы и расходы она считает. Также там есть выгрузка в бухгалтерию 8.0 и в бухгалтерию 7.7.

Ответ отправила: Яна (статус: 7-ой класс) Ответ отправлен: 20.02.2007, 19:46 Оценка за ответ: 4 Комментарий оценки: Как ни странно стоит Торговля и склад 7.7 Но бухгалтерия предпочитает перебивать документы для своего учета..

Вопрос № 76.613

Здравствуйте! Вопрос по Бухгалтерии 7.7 для Украины. Как скорректировать остатки по счетам на начало периода (или сделать начальный ввод остатков)? Предприятие работало в Бухгалтерии с сентября 2006, потом поменялся состав бухгалтеров, и теперь не сходятся данные в базе с данными в Главной книге.

Отправлен: 20.02.2007, 17:09 Вопрос задал: Владимир Лазурко (статус: 7-ой класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Gorus Здравствуйте, Владимир Лазурко! Для ввода остатков есть два документа: "ОстаткиТМЦ" и "ОстаткиВзаиморасчетов". Первым можно ввести/скорректировать остатки по счету учета ТМЦ, вторым - по счетам взаиморасчетов (361/681 и 631/371). Оба документа находятся в журнале "ВводОстатков". Остатки по другим счетам придется вносить операцией вручную (в корреспонденции со счетом 00 если это ввод остатков).

Ответ отправил: Gorus (статус: 3-ий класс) Ответ отправлен: 20.02.2007, 17:27 Оценка за ответ: 5 Комментарий оценки: Спасибо за помощь, но как раз по взаиморасчётам и остаткам ТМЦ всё корректно. Разница в отчислениях в различные фонды и т.п.

Отвечает: Elric Здравствуйте, Владимир Лазурко! Данные в Главной книге -- это в смысле в бумажной? Во-первых, не забыть перепровести документы "Финансовые результаты" -- это закрытие 7,8,9-го класса счетов. После этого можно править остатки просто Операцией либо документом ввода остатков. При этом если нужно откорректировать себестоимость каких-либо запасов (счета 20, 28 и т.д.) без коррекции количества, то документ "Остатки ТМЦ" не подойдет, нужна только Операция. Возможно, счетом 00 не захотят пользоваться. В таком случае остатки можно скорректировать только в корреспонденции со счетами 7-го класса (доходы) либо 8-го и 9-го (затраты) -- тогда Финансовые результаты нужно перепровести ПОСЛЕ этих операций. И, наконец, перепровести документы "Закрытие налогового периода" (если ведете в базе налоговый учет запасов для декларации о прибыли). А вообще, на будущее, лучше делать архивы базы раз в сутки -- мало ли что :) Кстати, у меня есть целая серия отчетов специально для сравнения, что было изменено в базе -- какие счета были затронуты, операции, проводки, вплоть до документов. Удобно восстановить базу из архива и посмотреть чего там в прошлом, уже закрытом периоде понаделывали зачем-то ;) --------- Мирный атом в КАЖДЫЙ дом!

Ответ отправил: Elric (статус: Специалист) Ответ отправлен: 20.02.2007, 18:19 Оценка за ответ: 5 Комментарий оценки: Спасибо! Сохранять базу - моё правило №1, спасло на основной работе, и клиенты удивились - зачем каждый день? А разве нельзя запретить редактировать документы после закрытия налогового периода? Подробнее напишите на 1c.vladimir@mail.ru

Вопрос № 76.690

Здравствуйте, господа эксперты!!! У меня уже установлена ДБФ версия базы 1с, данных много, могу ли я ее переделать на SQL без потери данных?

Отправлен: 21.02.2007, 06:19 Вопрос задал: BigHard (статус: 4-ый класс) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: IUnknown Здравствуйте, BigHard! конечно... делаете выгрузку данных из конфигуратора... создаете пустую базу в скуле делаете загрузку в пустую скульную базу данных выгруженных из дбф --------- я не специалист

Ответ отправил: IUnknown (статус: 10-ый класс) Ответ отправлен: 21.02.2007, 06:50 Оценка за ответ: 3 Комментарий оценки: Вы так подробно все описали.... :( Я сталкиваюсь с этим первый раз, мне бы подробнее. Какой ответ, такая и оценка...

Отвечает: Яна Здравствуйте, BigHard! 1. Заходите в конфигуратор. Нажимаете Администрирование - Выгрузить базу. Выбираете файл. База выгружается в файл. 2. Создаете чистую базу в 1С, подключенную к SQL. 3. Заходите в конфигуратор. Нажимаете Администрирование - Загрузить базу. Выбираете тот же файл. База загружается из файла. Теперь та база, которая была SQLая и пустая становится SQL ной, но заполненной Вашими данными.

Ответ отправила: Яна (статус: 7-ой класс) Ответ отправлен: 21.02.2007, 08:08 Оценка за ответ: 5 Комментарий оценки: Спасибо за ответ. Мне бы желательно полнее, но как я понял - тут все не так уж и трудно, как казалось.

Отвечает: Arkadiy Karanskiy Здравствуйте, BigHard! Для начала сохраните данную базу стандартными средствами 1С. Создайте новую базу и пропишите ее в 1С(Для этого необходимо создать папку и прописать новую БД в стартовом окне 1С). Теперь зайдите в режим "Конфигуратора" в новую базу. Вам выдастся вопрос о выборе формата хранения данных, выберите MS SQL Server. Далее заходите в меню Администрирование - Параметры базы данных SQL. Там вводите имя сервера SQL, наименование БД в SQL, Пользователя и Пароль, который имеет доступ к данной базе. Если соединение прошло успешно, тогда заходите в меню Администрирование - Восстановить данные и указываете файл ранее сохраненного архива. В противном случае, если соединение не прошло успешно, тогда надо посмотреть настройки MS SQL Server'а. Успехов...

Ответ отправил: Arkadiy Karanskiy (статус: 7-ой класс) Ответ отправлен: 21.02.2007, 08:15 Оценка за ответ: 5 Комментарий оценки: Большое спасибо за ответ. насколько я понял - все не так уж и трудно, как казалось. еще раз огромное спасибо.

Отвечает: Vlad Skorochod Здравствуйте, BigHard! Конечно. 1)Старая БД: Запускаем 1С в режиме конфигуратора, пункт меню администрирование ->Выгрузить данные. 2)устанавливаем SQL версию программы, SQL сервер. Создаем пустой каталог, запускаем 1С и создаем новую ИБ с путем на этот каталог. открываем эту ИБ в режиме конфигуратора. настраиваем соединение с SQL сервером. Дальше пункт меню администрирование->Загрузить данные. Вот и все.

Ответ отправил: Vlad Skorochod (статус: 1-ый класс) Ответ отправлен: 21.02.2007, 16:09 Оценка за ответ: 5 Комментарий оценки: большое спасибо за ответ. Как будем переходить на скуль, я буду знать что делать

Вопрос № 76.699

Здравствуйте! 1С 7.7 Комплекс В октябре 2006 года сделано поступление, которое отразилось в книге покупок. В январе 2007 года делаем сторно этого документа. На 19.3 появляется НДС красным. При формировании книги покупок он не закрывается и в книгу не попадает. Думал в книге продаж будет, но и там его нет. Если посмотреть движения документа сторно, то он делает движение по книге покупок. В чем причина?

Отправлен: 21.02.2007, 08:08 Вопрос задал: Munster (статус: 7-ой класс) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Яна Здравствуйте, Munster! Сторно делает движения точно такие же, как и сторнируемый документ, только с минусом. Если приобретение делало движение по НДС с плюсом, но сторнирование делает движение по НДС с минусом (естественно, на том же счете). Книга продаж не имеет никакого отношения к отмене покупки.

Ответ отправила: Яна (статус: 7-ой класс) Ответ отправлен: 21.02.2007, 08:15 Оценка за ответ: 4 Комментарий оценки: Это понятно, но отмена покупки должна отразится в книге, а её нет.

Отвечает: BuhCIA Здравствуйте, Munster! Последовательность: - сторно документа "Запись книги покупок". (если по науке - копируем документ, ставим дату январь 2007, суммы все меняем на минус, помечаем, что в дополнительный лист книги покупок за январь 2007) - сторно документа "СчетФактураПолученный" (если был отдельный документ) - сторно документа оприходования (ПоступлениеМатериалов, например) Так у нас проходит. --------- Скажите, сколько времени? - (устало, показывая часы) Читайте, там же все написано!

Ответ отправил: BuhCIA (статус: Профессионал) Россия, Москва Организация: Бухгалтерия Центрального Исполнительного Аппарата (фирмы с филиалами) = БухЦИА WWW: http://buhcia.narod.ru ---- Ответ отправлен: 21.02.2007, 18:19 Оценка за ответ: 5 Комментарий оценки: Спасибо! Получилось!

Отвечает: Maska Здравствуйте, Munster! C 11 мая 2006 года приказом №283 исправления в книге покупок не допускается. Корректировка и сторнирование счетов-фактур отражается в дополнительном листе книги покупок за тот налоговый период, в котором была сформирована счет-фактура, поэтому в книге эту запись и не видно. В программе это реализовано через документ "Запись книги покупок", введенной на основании счет-фактуры. При формировании книги покупок в реквизите "Дополнительные листы" выбирается значение"Выводить за корректируемый период". С уважением, maska!!!

Ответ отправила: Maska (статус: 4-ый класс) Ответ отправлен: 22.02.2007, 07:36 Оценка за ответ: 5 Комментарий оценки: Спасибо!!!

Вопрос № 76.701

Подскажите, п-та, как мне из внешней обработки выполнить процедуру модуля формы документа. Пример: зак=создатьОбъект("документ.заказ"); зак.выбратьДокументы(дат1,дат2); пока зак.получитьДокумент()=1 цикл зак.сделатьНеПроведенным(); ??что здесь написать операторВыполнитьПроцедуруМодуляФормы.РасчетСтоимости()??; зак.провести(); конеццикла; Спасибо. Приложение: зак=создатьОбъект("документ.заказ); зак.выбратьДокументы(дат1,дат2); пока зак.получитьДокумент()=1 цикл зак.сделатьНеПроведенным(); ?процедураМодуляФормыДокумента.РасчетСтоимости(); зак.провести(); конеццикла;

Отправлен: 21.02.2007, 08:39 Вопрос задал: Ginar (статус: Посетитель) Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Яна Здравствуйте, Ginar! Процедуру модуля формы без самой формы выполнить вряд ли получится. Возможно стоит эту процедуру перенести в какое-нибудь более общедоступное место.

Ответ отправила: Яна (статус: 7-ой класс) Ответ отправлен: 21.02.2007, 09:01

Отвечает: Gorus Здравствуйте, Ginar! Если процедура РассчетСтоимости() сложная и перенести ее в другое место проблематично, то можно попробовать пересчитывать стоимость при открытии документа. Дело в том, что в открываемую форму можно передать параметр: например "РассчитатьСтомость", а при открытии в форме документа отлавливать это. Приложение: зак=создатьОбъект("документ.заказ); зак.выбратьДокументы(дат1,дат2); пока зак.получитьДокумент()=1 цикл зак.сделатьНеПроведенным(); Пар="РассчитатьСтомость"; зак.ОткрытьФормуМодально(зак,Пар); зак.провести(); конеццикла; // В форме документа Процедура ПриОткрытии() Пар=Форма.Параметр; Если ТипЗначенияСтр(Пар)="Строка" Тогда Если Пар="РассчитатьСтомость" Тогда РасчетСтоимости(); СтрокаДействийФормы = "#Записать Закрыть" Возврат; КонецЕсли; КонецЕсли; КонецПроцедуры

Ответ отправил: Gorus (статус: 3-ий класс) Ответ отправлен: 21.02.2007, 09:45

Отвечает: Manserg Здравствуйте, Ginar! Лучше перенесите эту процедуру в вашу внешнюю обработку(естественно адаптировав под такой вариант), так чтобы вы из обработки могли произвести перерасчет стоимости в документе, иначе только как описано выше.

Ответ отправил: Manserg (статус: 7-ой класс) Ответ отправлен: 21.02.2007, 10:20

Отвечает: Ткаченко Алексей Васильевич Здравствуйте, Ginar! Попробуйте использовать компоненту FormEХ. А ней есть функция вызова процедуры из контекста формы. Приложение: //****** пример из Хелпника ******* ВыполнитьПроцедуру(<?>,,) Синтаксис: ВыполнитьПроцедуру(<Контекст>,<ИмяПроцедуры>,<СписокАргументов>) Назначение: Метод предназначен для выполнения процедуры в заданном контексте. Возвращает 1 в случае успеха, 0 - в противном случае. Пареметры: <Контекст> - необязательный параметр. Контекст, в котором необходимо выполнить процедуру. По умолчанию выполняется в текущем контексте. <ИмяПроцедуры> - строка с именем процедуры. <СписокАргументов> - необязательный параметр. Список значений, содержащий аргументы процедуры. Если размер списка меньше, чем количество аргументов процедуры или параметр опущен, то в оставшиеся аргументы передаются пустые значения. Лишние значения игнорируются. Значения по умолчанию игнорируются. Пример: Перем Конт; Сервис = СоздатьОбъект("Сервис"); ОткрытьФорму(Обработка.Демо, Конт); Список = СоздатьОбъект("СписокЗначений"); Список.ДобавитьЗначение("Первый параметр"); Список.ДобавитьЗначение("Второй параметр"); Список.ДобавитьЗначение("Третий параметр"); Сервис.ВыполнитьПроцедуру(Конт, "Выполнить2", Список);

Ответ отправил: Ткаченко Алексей Васильевич (статус: 1-ый класс) Ответ отправлен: 21.02.2007, 11:48

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

Ответ отправил: Шахрайчук Владимир Анатольевич (статус: Студент) Ответ отправлен: 22.02.2007, 15:14

Вопрос № 76.741

Здравствуйте Уважаемые эксперты! в 23 счете есть 2- Субконты Субконто1 - Подразделение Субконто2 - СтатьиЗатрат При формировании отчета получаю итог Пример: Цех № 10 (подразделение) Материальные затраты (статья затрат) Проездные (ст затрат) и т.д. получаю итог по подразделениям Теперь нужно чтобы было наоборот получать итоги по статьям затрат Пример: Материальные затраты (статья затрат) Цех №10 Цех №1 и т.д. Проездные (статья затрат) Цех №1 Цех №2 и т.д В табличной форме попробовал поменять местами Секции 2 и 5 и у меня по несколько раз выдаёт статью затрат и подразделение Пример: Материальные затраты (ст.зат.) Цех1 Цех1 Цех1 Материальные затраты (ст.зат.) Цех10 Цех10 Цех10 что для этого нужно делать? Приложение: Процедура Поменять(Поз1, Поз2) ПоменятьЗначения(ВидСубконто[Поз1], ВидСубконто[Поз2]); ПоменятьЗначения(Субконто[Поз1], Субконто[Поз2]); ПоменятьЗначения(ОтборСубконто[Поз1], ОтборСубконто[Поз2]); ПоменятьЗначения(ПоГруппам[Поз1], ПоГруппам[Поз2]); ПоменятьЗначения(Номер[Поз1], Номер[Поз2]); КонецПроцедуры //******************************************************************************************************* Функция РасшифровкаОбновить(Обновить) Расшифровка.Установить("Обновить", Обновить); Возврат Расшифровка; КонецФункции //******************************************************************************************************* Процедура ПоСубконто(Ит, Т, ФлВал) Если ОтборСубконто[1] = 1 Тогда // разворачивать Если СортировкаПоКоду = 1 Тогда Ит.ВыбратьСубконто( , , , , , "Код"); Иначе Ит.ВыбратьСубконто(); КонецЕсли; Пока Ит.ПолучитьСубконто() = 1 Цикл Расшифровка.Установить("ОтборСубконто" + Номер[1], 2); Расшифровка.Установить("Субконто" + Номер[1], Ит.Субконто()); Если Ит.Субконто().ЭтоГруппа() = 1 Тогда Т.ВывестиСекцию("Секция_5_Группа"); Иначе Т.ВывестиСекцию("Секция_5"); КонецЕсли; Если Ит.Счет.Количественный = 1 Тогда Т.ВывестиСекцию("Секция_3"); КонецЕсли; Если ФлВал = 1 Тогда Ит.ВыбратьВалюты(); Пока Ит.ПолучитьВалюту() = 1 Цикл Расшифровка.Установить("Валюта", Ит.Валюта); Расшифровка.Установить("ПоВалюте", 1); Т.ВывестиСекцию("Секция_4"); КонецЦикла; Расшифровка.Установить("Валюта"); Расшифровка.Установить("ПоВалюте"); КонецЕсли; Если ОтборСубконто[2] = 1 Тогда // разворачивать Ит.ВыбратьСубконто(2); Пока Ит.ПолучитьСубконто(2) = 1 Цикл Расшифровка.Установить("ОтборСубконто" + Номер[2], 2); Расшифровка.Установить("Субконто" + Номер[2], Ит.Субконто(2)); Если Ит.Субконто(2).ЭтоГруппа() = 1 Тогда Т.ВывестиСекцию("Секция_2_Группа"); Иначе Т.ВывестиСекцию("Секция_2"); КонецЕсли; Если Ит.Счет.Количественный = 1 Тогда Т.ВывестиСекцию("Секция_6"); КонецЕсли; Если ФлВал = 1 Тогда Ит.ВыбратьВалюты( , , 1); Пока Ит.ПолучитьВалюту(1) = 1 Цикл Расшифровка.Установить("Валюта", Ит.Валюта); Расшифровка.Установить("ПоВалюте", 1); Т.ВывестиСекцию("Секция_7"); КонецЦикла; Расшифровка.Установить("Валюта"); Расшифровка.Установить("ПоВалюте"); КонецЕсли; Если ОтборСубконто[3] = 1 Тогда // разворачивать Ит.ВыбратьСубконто(3); Пока Ит.ПолучитьСубконто(3) = 1 Цикл Расшифровка.Установить("ОтборСубконто" + Номер[3], 2); Расшифровка.Установить("Субконто" + Номер[3], Ит.Субконто(3)); Если ТипЗначения(Ит.Субконто(3)) = 11 Тогда Если Ит.Субконто().ЭтоГруппа() = 1 Тогда Т.ВывестиСекцию("Секция_9_Группа"); Иначе Т.ВывестиСекцию("Секция_9"); КонецЕсли; Иначе Т.ВывестиСекцию("Секция_9"); КонецЕсли; Если Ит.Счет.Количественный = 1 Тогда Т.ВывестиСекцию("Секция_10"); КонецЕсли; Если ФлВал = 1 Тогда Ит.ВыбратьВалюты( , , 2); Пока Ит.ПолучитьВалюту(2) = 1 Цикл Расшифровка.Установить("Валюта", Ит.Валюта); Расшифровка.Установить("ПоВалюте",1); Т.ВывестиСекцию("Секция_11"); КонецЦикла; Расшифровка.Установить("Валюта"); Расшифровка.Установить("ПоВалюте"); КонецЕсли; //******************************************************************************************************* Если ОтборСубконто[4] = 1 Тогда // разворачивать Ит.ВыбратьСубконто(4); Пока Ит.ПолучитьСубконто(4) = 1 Цикл Расшифровка.Установить("ОтборСубконто" + Номер[4], 2); Расшифровка.Установить("Субконто" + Номер[4], Ит.Субконто(4)); Т.ВывестиСекцию("4Секция_9"); Если Ит.Счет.Количественный = 1 Тогда Т.ВывестиСекцию("4Секция_10"); КонецЕсли; Если ФлВал = 1 Тогда Ит.ВыбратьВалюты( , , 2); Пока Ит.ПолучитьВалюту(2) = 1 Цикл Расшифровка.Установить("Валюта", Ит.Валюта); Расшифровка.Установить("ПоВалюте",1); Т.ВывестиСекцию("4Секция_11"); КонецЦикла; Расшифровка.Установить("Валюта"); Расшифровка.Установить("ПоВалюте"); КонецЕсли; КонецЦикла; Расшифровка.Установить("Субконто" + Номер[4]); Расшифровка.Установить("ОтборСубконто" + Номер[4]); КонецЕсли; //******************************************************************************************************* КонецЦикла; Расшифровка.Установить("Субконто" + Номер[3]); Расшифровка.Установить("ОтборСубконто" + Номер[3]); КонецЕсли; КонецЦикла; Расшифровка.Установить("Субконто" + Номер[2]); Расшифровка.Установить("ОтборСубконто" + Номер[2]); КонецЕсли; КонецЦикла; Расшифровка.Установить("Субконто" + Номер[1]); Расшифровка.Установить("ОтборСубконто" + Номер[1]); КонецЕсли; КонецПроцедуры //******************************************************************************************************* Процедура Сформировать(Ручн = 0) Если Счет.Выбран() = 0 Тогда Предупреждение("Не указан счет!"); Возврат; КонецЕсли; Если ПроверкаПериода() = 0 Тогда Возврат; КонецЕсли; Если Ручн=1 Тогда СохранитьЗначение("ОтчРабСчет",Счет); КонецЕсли; ВидСубконто[1] = ВыбВидСубконто1; Субконто[1] = Субконто1; ОтборСубконто[1] = ?(ВидСубконто[1].Выбран() = 1, ОтборСубконто1.ТекущаяСтрока(), 3); ПоГруппам[1] = ПоГруппам1; Номер[1] = 1; ВидСубконто[2] = ВыбВидСубконто2; Субконто[2] = Субконто2; ОтборСубконто[2] = ?(ВидСубконто[2].Выбран() = 1, ОтборСубконто2.ТекущаяСтрока(), 3); ПоГруппам[2] = ПоГруппам2; Номер[2] = 2; ВидСубконто[3] = ВыбВидСубконто3; Субконто[3] = Субконто3; ОтборСубконто[3] = ?(ВидСубконто[3].Выбран() = 1, ОтборСубконто3.ТекущаяСтрока(), 3); ПоГруппам[3] = ПоГруппам3; Номер[3] = 3; ВидСубконто[4] = ВыбВидСубконто4; Субконто[4] = Субконто4; ОтборСубконто[4] = ?(ВидСубконто[4].Выбран() = 1, ОтборСубконто4.ТекущаяСтрока(), 4); ПоГруппам[4] = ПоГруппам4; Номер[4] = 4; Если ОтборСубконто[1] > ОтборСубконто[2] Тогда Поменять(1, 2); КонецЕсли; Если ОтборСубконто[2] > ОтборСубконто[3] Тогда Поменять(2, 3); Если ОтборСубконто[1] > ОтборСубконто[2] Тогда Поменять(1, 2); КонецЕсли; КонецЕсли; ФлВал = Счет.Валютный; Расшифровка = СоздатьОбъект("СписокЗначений"); Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьРазделительУчета(РазделительУчета); КолПоСчету = 0; Заголовок1 = ""; Для А = 1 По 4 Цикл Если ОтборСубконто[А] <> 4 Тогда Ит.ИспользоватьСубконто(ВидСубконто[А], Субконто[А], ОтборСубконто[А], ПоГруппам[А]); Если А <> 1 Тогда Заголовок1 = Заголовок1 + "; "; КонецЕсли; Заголовок1 = Заголовок1 + ВидСубконто[А]; Если ОтборСубконто[А] = 2 Тогда Заголовок1 = Заголовок1 + ":" + Субконто[А]; КолПоСчету = 1; КонецЕсли; КонецЕсли; КонецЦикла;

Отправлен: 21.02.2007, 12:43 Вопрос задал: Рубик (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Elric Здравствуйте, Рубик! Чтобы получить нужный Вам результат нужно менять не секции печатной формы, а чередование методов ИспользоватьСубконто. В первоначальном варианте этот метод вызывается для субконто Подразделение, затем СтатьиЗатрат. А Вам надо наоборот. Секции таблицы можно (и нужно) оставить прежними. Как вариант, перед последним циклом (процедура Сформировать) просто добавьте строку Поменять(1, 2); см. Пример, участок кода последний, этого достаточно Приложение: Ит.ИспользоватьРазделительУчета(РазделительУчета); КолПоСчету = 0; Заголовок1 = ""; // начало вставки Поменять(1, 2); // конец вставки Для А = 1 По 4 Цикл Если ОтборСубконто[А] <> 4 Тогда Ит.ИспользоватьСубконто(ВидСубконто[А], Субконто[А], ОтборСубконто[А], ПоГруппам[А]); Если А <> 1 Тогда Заголовок1 = Заголовок1 + "; "; КонецЕсли; Заголовок1 = Заголовок1 + ВидСубконто[А]; Если ОтборСубконто[А] = 2 Тогда Заголовок1 = Заголовок1 + ":" + Субконто[А]; КолПоСчету = 1; КонецЕсли; КонецЕсли; КонецЦикла; --------- Мирный атом в КАЖДЫЙ дом!

Ответ отправил: Elric (статус: Специалист) Ответ отправлен: 22.02.2007, 00:31 Оценка за ответ: 5

Вопрос № 76.744

Здраствуйте. Вопрос по 1С 7.7. Сформирован отчет. Значения в некоторых колонках этого отчета можно корректировать. На отчете есть ячейка, при нажатии на которую запускается предопределенная процедура "ОбработкаЯчейкиТаблицы". Вопрос: Можно ли, и каким образом обработать данную таблицу чтоб узнать что в ней изменилось.

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

Отвечает: Elric Здравствуйте, Zlm! У таблицы в режиме ввода есть метод Выгрузить -- все ячейки выгружаются в список значений (см. Синтакс-Помощник). Можно в обработке сравнивать ячейки таблицы с ранее выгруженным списком. Либо выгрузить в новый список и сравнить два списка -- по выбору, как проще :) --------- Мирный атом в КАЖДЫЙ дом!

Ответ отправил: Elric (статус: Специалист) Ответ отправлен: 22.02.2007, 00:20 Оценка за ответ: 5 Комментарий оценки: Извините за возможно ламерский вопрос, но я не знаю как переводить Таблицу с сформированным отчетом (внешний отчет имеет несколько таблиц) в режим ввода. Я делаю так: 1. Формирую отчет. 2. В конце отчета формирую ячейку по нажатию которой отрабатывается процедура "ОбработкаЯчейкиТаблицы" и в этой процедуре: ОбработкаЯчейкиТаблицы(Значение, ФлагСтандОбраб, Таб, Адрес) СЗ = СоздатьОбъект("СписокЗначений"); в команде Таб.Выгрузить(СЗ); - ошибка Поле агрегатного объекта не обнаружено (Выгрузить) - что я неправильно делаю. (Сейчас я обрабатываю таблицу Таб по определенным адресам R?C?)

Вопрос № 76.788

Здравствуйте! Хочу спросить: размеры диалогов ввода не увеличиваются? например, ВвестиСтроку().

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

Отвечает: ATan Здравствуйте, Darina! Нет, не увеличиваются. У них как бы модальный тип и растягивать их нельзя

Ответ отправил: ATan (статус: 2-ой класс) Ответ отправлен: 21.02.2007, 16:47 Оценка за ответ: 3

Отвечает: Coch Здравствуйте, Darina! Штатными методами 1С размеры этих диалогов не изменяются, но редактором ресурсов (пробовал Restorator и PEExplorer) можно в файле 1crcrus.dll поменять параметры диалогов 1105 - ВвестиСтроку(), 1106 - ВвестиЧисло(). (Кстати в Restorator это делать удобней.) Соответственно, после редактирования файла ресурсов 1С его надо будет скопировать в каталог программы. Естественно, что при обновлении оболочки, всё вернётся к стандартному варианту.

Ответ отправил: Coch (статус: 1-ый класс) Ответ отправлен: 21.02.2007, 18:06 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо! Буду знать. Только я воспользовалась ResHacker (Restorator мне не подошел, т.к. триал) И ВвестиЧисло() - 1107.

Отвечает: BigHard Здравствуйте, Darina! Размеры диалога остаются преждними, вы можете указать только максимальное количество символов Приложение: Если ВвестиСтроку(НК, "Введите код продукции", 40, 1, 9) = 1 Тогда Koд = HK; КонецЕсли; //40 - это и есть максимальное количество --------- Чем отличается чайник от программиста: У чайника в одном килобайте 1000 байт, а у программиста в одном километре 1024 метра

Ответ отправил: BigHard (статус: 4-ый класс) Ответ отправлен: 22.02.2007, 06:43 Оценка за ответ: 3 Комментарий оценки: это всё понятно

Вопрос № 76.798

Здравствуйте! Сделала таблицу для ввода данных (кол-во строк заранее не известно), в свойствах форму указано переход при вводе по строке, ячейки для ввода имени не имеют. При вводе значений по нажатию на enter не происходит перехода на следующую ячейку. Можно как-то это исправить?

Отправлен: 21.02.2007, 17:33 Вопрос задала: Е.А.К. (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Elric Здравствуйте, Е.А.К.! Переход на следующую строку происходит только в пределах таблицы (печатной формы), причем только по ячейкам доступным для редактирования. Т.к. количество строк заранее неизвестно, предполагаю что изначально размер таблицы нулевой, может быть в этом все дело. Либо не снят флажок "Защита" в свойствах ячейки. --------- Мирный атом в КАЖДЫЙ дом!

Ответ отправил: Elric (статус: Специалист) Ответ отправлен: 21.02.2007, 22:45 Оценка за ответ: 4 Комментарий оценки: Флаг "Защита" снят. Мне кажется, что проблема в том, что нет имен у ячеек...

Отвечает: Arkadiy Karanskiy Здравствуйте, Е.А.К.! Может быть у Вас в сойствах колонок таблиц стоит Пропускать при вводе?

Ответ отправил: Arkadiy Karanskiy (статус: 7-ой класс) Ответ отправлен: 22.02.2007, 08:34 Оценка за ответ: 3 Комментарий оценки: Нет

Вопрос № 76.811

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

Отправлен: 21.02.2007, 19:32 Вопрос задал: Besker ® (статус: Студент) Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Manserg Здравствуйте, Besker ®! В журнале испульзуйте ТекущийДокумент Синтаксис: ТекущийДокумент Назначение: Атрибут дает доступ к выбранному в журнале документу (только для чтения). Замечание: Атрибут можно использовать только в локальном контексте Модуля формы журнала документов.

Ответ отправил: Manserg (статус: 7-ой класс) Ответ отправлен: 21.02.2007, 19:55 Оценка за ответ: 5 Комментарий оценки: Спасибо!

Отвечает: Владимир Лазурко Здравствуйте, Besker ®! Это метод ТекущийДокумент() Пример: Сообщить(Строка(ТекущийДокумент.Вид)+" "+Строка(ТекущийДокумент.ДатаДок)+" "+Строка(ТекущийДокумент.НОмерДОк));

Ответ отправил: Владимир Лазурко (статус: 7-ой класс) Ответ отправлен: 21.02.2007, 21:48 Оценка за ответ: 5 Комментарий оценки: Спасибо!

Отвечает: Яна Здравствуйте, Besker ®! Текст = СоздатьОбъект("Текст"); Список = СоздатьОбъект("СписокЗначений"); Док=ТекущийДокумент; ДокТек.ВыбратьСтроки(); Пока ДокТек.ПолучитьСтроку()=1 Цикл Список.ДобавитьЗначение(ДокТек.Товар); Список.ДобавитьЗначение(ДокТек.Цена); Текст.ДобавитьСтроку(Список.ВСтрокуСРазделителями()); Список.УдалитьВсе(); КонецЦикла; Текст.Записать("c:exp_imp.txt");

Ответ отправила: Яна (статус: 7-ой класс) Ответ отправлен: 21.02.2007, 22:46 Оценка за ответ: 5 Комментарий оценки: Спасибо!

Отвечает: BigHard Здравствуйте, Besker ®! попробуйте так, как в приложении. Ваша ошибка в том, что вы делаете выборку всех документов, а вам нужно только по определенному. Нужно найти необходимый документ, а потом выбирать строки сам я код не проверял, но должно работать. Приложение: Процедура ВыгрузитьВТекст() Текст = СоздатьОбъект("Текст"); Список = СоздатьОбъект("СписокЗначений"); Док=СоздатьОбъект("Документ.РасходнаяНакладная"); Док.найтидокумент(Док.текущийдокумент()); Док.ВыбратьСтроки(); Пока Док.ПолучитьСтроку()=1 Цикл Список.ДобавитьЗначение(ДокТек.Товар); Список.ДобавитьЗначение(ДокТек.Цена); Текст.ДобавитьСтроку(Список.ВСтрокуСРазделителями()); Список.УдалитьВсе(); КонецЦикла; Текст.Записать("c:exp_imp.txt"); КонецПроцедуры --------- Чем отличается чайник от программиста: У чайника в одном килобайте 1000 байт, а у программиста в одном километре 1024 метра

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

Отвечает: Vlad Skorochod Здравствуйте, Besker ®! Нужно вместо Док.ВыбратьДокументы(); и цикла Устанавливать Док.НайтиДокумент(ТекущийДокумент())

Ответ отправил: Vlad Skorochod (статус: 1-ый класс) Ответ отправлен: 22.02.2007, 14:40

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