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

Выпуск № 434
от 20.02.2007, 02:05

Вопрос № 75.628

Я из внешней обработки создаю новый документ, заполняю реквизиты шапки и табличной части, записать(). Все хорошо. Но у документа в форме диалога есть еще реквизиты, например, Фирма. Вопрос: как мне во внешней обработке задать значение этому реквизиту, подскажите, п-та, ув.эксперты. Спасибо.

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

Отвечает: Palkin Здравствуйте, Ginar! Точно так же, как и реквизитам шапки. Помимо реквизитов конкретного документа существуют общие реквизиты, принадлежащие всем документам конфигурации. Посмотреть их тип можно в дереве объектов метаданных - ДокументыОбщие реквизиты

Ответ отправил: Palkin (статус: 3-ий класс) Ответ отправлен: 14.02.2007, 07:47 Оценка за ответ: 5 Комментарий оценки: Спасибо. Я нашел свою ошибку. Вместо кода 00001дал код 0001.

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

Ответ отправил: svsrus (статус: 3-ий класс) Ответ отправлен: 14.02.2007, 08:14 Оценка за ответ: 5 Комментарий оценки: Спасибо. Я нашел свою ошибку. Вместо кода 00001дал код 0001.

Отвечает: Ткаченко Алексей Васильевич Здравствуйте, Ginar! Если у вас в Конфигурации одна фирма (по которой ведется учет) то можно прописать ее в константе базовую фирму и при заполнении документа использовать Док.Фирма = Константа.БазоваяФирма; Если фирм несколько то помотрите как сделаны стандартные отчеты, например ОСВ. Там есть обработка фирмы. А использование аналогичное.

Ответ отправил: Ткаченко Алексей Васильевич (статус: 1-ый класс) Ответ отправлен: 14.02.2007, 08:24 Оценка за ответ: 5 Комментарий оценки: Спасибо. Я нашел свою ошибку. Вместо кода 00001дал код 0001.

Отвечает: Strawberry Здравствуйте, Ginar! А в чем проблема собственно - что мешает реквизиту фирма присвоит значение так же как и остальным реквизитам шапки документа ??? Смущает то что реквизит фирма является общим для всех документов и его нет в списке реквизитов документа ??? попробуйте так док.фирма = "Наша фирма"; --------- Мальчик-извращенец прочел деду Морозу с табуретки всего Пастернака!

Ответ отправил: Strawberry (статус: 3-ий класс) Ответ отправлен: 14.02.2007, 10:23 Оценка за ответ: 5 Комментарий оценки: Спасибо за ответ. Это я ошибся фирма=создатьОбъект("справочник.фирмы"); фирма.найтиПоКоду("0001"); мояфирма=фирма.текущийЭлемент(); А нужен был код 00001. Поэтому мояфирма была пустая. Спасибо еще раз.

Вопрос № 75.671

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

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

Отвечает: Vlad Skorochod Здравствуйте, Ginar! УстановитьНовыйНомер(<?>); Синтаксис: УстановитьНовыйНомер(<Префикс>) Назначение: Установить новый номер документа с заданным префиксом. Параметры: <Префикс> - строка с префиксом номера документа.

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

Отвечает: Краюшкин Игорь Валерьевич Здравствуйте, Ginar! Если Вы пользуетесь типовой конфигурацией ТиС, то Справочники -> Фирмы -> открывем нужную фирму и на первой же закладке есть "Префикс №". Вот его и надо ставить.

Ответ отправил: Краюшкин Игорь Валерьевич (статус: 7-ой класс) Ответ отправлен: 15.02.2007, 00:04 Оценка за ответ: 5 Комментарий оценки: Спасибо за ответ. Мне помог оператор УстановитьНовыйНомер(префикс), но могут возникнуть трудности так как документы идут вперемежку. Еще раз спасибо за ответ и участие.

Вопрос № 75.703

Уважаемые эксперты, подскажите пожалуйсто как сделать чтоб при изменении принтера по умалчанию в системе он изменялся и в 1С.

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

Отвечает: Яна Здравствуйте, Иля! Например, устанавливать его заново при каждом запуске системы.

Ответ отправила: Яна (статус: 6-ой класс) Ответ отправлен: 14.02.2007, 14:42 Оценка за ответ: 5 Комментарий оценки: Что значит устанавливать его при каждом запуске системы... Конечно его можно изменить в окне печати но хотелось чтоб он автоматом изменялся. Я слышал что - то про изменение в реестре, чтоб принтер изменялся автоматически....

Отвечает: svsrus Здравствуйте, Иля! Стандартными средствами 1С никак:( После смены принтера в системе по умолчанию, нужно закрыть 1С, затем снова открыть. Он сам станет в 1С по умолчанию. Правда ты не указал версию 1С. Для 8-ой версии не знаю.

Ответ отправил: svsrus (статус: 3-ий класс) Ответ отправлен: 14.02.2007, 16:58 Оценка за ответ: 5 Комментарий оценки: Похоже что вы правы

Отвечает: Шахрайчук Владимир Анатольевич Здравствуйте, Иля! 1С помнит имя принтера в настройках печати. При смене принтера необходимо в печатной форме отчета нажать ПараметрыСтраницы Имя принтера. Если не помогает, то из реестра нужно удалять раздел Moxel из всех мест, где Вы его найдете. В этом ключе реестра хранятся ОпцииПечати, которые задаются пятым параметром в комманде Таб.Опции();, этот ключ будет воссоздан автоматически. Также поиграйтесь с коммандой Таб.ПараметрыСтраницы(<Ориентация>,<Масштаб>,<РежимПечатиКопий>,<ПолеСлева>,<ПолеСправа>,<ПолеСверху>,<ПолеСнизу>,<КолонтитулСверху>,<КолонтитулСнизу>,<Автомасштаб>,<ФлагЧБПечати>,<ИмяПринтера>) И несмотря на эти шаманства после смены принтера по умолчанию, без интерактивного перепрописывания принтера не обойтись.

Ответ отправил: Шахрайчук Владимир Анатольевич (статус: Студент) Ответ отправлен: 14.02.2007, 18:20 Оценка за ответ: 5 Комментарий оценки: Спасибо. Принтер меняется без проблем, просто хотелось чтоб он менялся автоматически, а это происходит только при перезапуске 1С

Вопрос № 75.720

Здравствуйте уважаемые эксперты! Подскажите, пожалуйста!!! Через 1С открываю и запускаю MS Word и MS Excel, но какие команды управления этими приложениями есть, не могу найти. Подскажите, пожалуйста!!! У кого что есть. Или уже написанные коды по этой теме. Пожалуйста!! Заранее благодарна!

Отправлен: 14.02.2007, 16:40 Вопрос задала: Ritsa (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 7)

Отвечает: Татьяна Ласовская Здравствуйте, Ritsa! Команды управления MS Word и MS Excel - это Visual Bacis for Applications (VBA). Запускаете MS Excel, нажимаете Alt/F11 - и видите окно разработки, там есть пунут меню Help, где описаны команды VBA. Аналогично для MS Word. Пример формирования шапки документа "Заявка на продажу иностранной валюты" из 1С версии 7.7 - в приложении. Приложение: Процедура Сформировать() Ворд = СоздатьОбъект("Word.Application"); Доки = Ворд.Documents; Док = Доки.Add(); Док.Content.Font.Name = "Courier"; Док.Content.Font.Size = 14; Абзац = Док.Paragraphs; Абзац1 = Абзац.Add();// 1 Обл = Док.Paragraphs(1).Range; Обл.Text = "Заявка"; Обл.ParagraphFormat.Alignment = 1; //wdAlignParagraphCenter Обл.Font.Bold = -1; Абзац2 = Абзац.Add();// 2 Обл = Док.Paragraphs(2).Range; Обл.Text = "на продажу иностранной валюты на внебиржевом рынке № 1"; Обл.ParagraphFormat.Alignment = 1; //wdAlignParagraphCenter Обл.Font.Bold = -1; ПарСтр = Док.PageSetup; ПарСтр.LeftMargin = Ворд.InchesToPoints(0.65); ПарСтр.RightMargin = Ворд.InchesToPoints(0.45); Док.SaveAs("Заявка на продажу вал "+СокрЛП(НомерДок)+".doc"); Ворд.Visible = 1;

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

Отвечает: Шахрайчук Владимир Анатольевич Здравствуйте, Ritsa! Данный пример кода переносит данные из .mdb в .xls, добавляя данные из справочника Номенклатура. Если дадите мыло, то скину обработку целиком. Приложение: Excel=СоздатьОбъект("Excel.Application"); Excel.Workbooks.Open("C:ЧекиАЗС.xls"); НомерЛиста=1; СтрФайл=ФС.НайтиПервыйФайл(НазваКаталогу+"*.mdb"); Пока ПустоеЗначение(СтрФайл)=0 Цикл Сообщить("Обрабатываем "+СтрФайл); Excel.Sheets("Лист1").Select(); Excel.Sheets.Add(); НомерЛиста=НомерЛиста+1; Excel.Sheets("Лист"+НомерЛиста).Select(); Excel.Range("A1").Select(); Excel.ActiveCell.FormulaR1C1="НомерАЗС"; Excel.Range("B1").Select(); Excel.ActiveCell.FormulaR1C1="НомерZотч"; Excel.Range("C1").Select(); Excel.ActiveCell.FormulaR1C1="НомерЧека"; Excel.Range("D1").Select(); Excel.ActiveCell.FormulaR1C1="ДатаВремя"; Excel.Columns("D:D").ColumnWidth=24; Excel.Range("E1").Select(); Excel.ActiveCell.FormulaR1C1="ТипЧека"; Excel.Range("F1").Select(); Excel.ActiveCell.FormulaR1C1="КодЭККА"; Excel.Range("G1").Select(); Excel.ActiveCell.FormulaR1C1="Товар"; Excel.Columns("G:G").ColumnWidth=30; Excel.Range("H1").Select(); Excel.ActiveCell.FormulaR1C1="Колво"; Excel.Range("I1").Select(); Excel.ActiveCell.FormulaR1C1="Цена"; Excel.Range("J1").Select(); Excel.ActiveCell.FormulaR1C1="Сумма"; Excel.Range("K1").Select(); Excel.ActiveCell.FormulaR1C1="ТипПродажи"; Excel.Range("L1").Select(); Excel.ActiveCell.FormulaR1C1="Эмитент"; Excel.Range("M1").Select(); Excel.ActiveCell.FormulaR1C1="ИмяЭмитента"; Excel.Columns("M:M").ColumnWidth=20; Excel.Range("N1").Select(); Excel.ActiveCell.FormulaR1C1="Факт"; Excel.Range("O1").Select(); Excel.ActiveCell.FormulaR1C1="ПолнБак"; Excel.Range("P1").Select(); Excel.ActiveCell.FormulaR1C1="ТРК"; Excel.Range("Q1").Select(); Excel.ActiveCell.FormulaR1C1="Резервуар"; Excel.Range("S1").Select(); Excel.ActiveCell.FormulaR1C1="Секция"; ИмяЛиста=""; Спр=СоздатьОбъект("Справочник.Номенклатура"); Попытка Connection=CreateObject("ADODB.Connection"); ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+СокрЛП(СтрФайл); Connection.Open(ConnectionString); Cmd=CreateObject("ADODB.Command"); Cmd.ActiveConnection=Connection; Исключение Предупреждение("Не удалось установить соединение с БД"); СтрФайл=ФС.НайтиСледующийФайл(); Продолжить; КонецПопытки; Для Сч=1 По 100 Цикл МассивЭмитентов[Сч]=""; КонецЦикла; Cmd.CommandText="SELECT b.name, b.id_sheet, b.id_azs FROM sheet b"; Rs=CreateObject("ADODB.RecordSet"); Rs=Cmd.Execute; Попытка Rs.MoveFirst(); Пока Rs.EOF() = 0 do МассивЭмитентов[Rs.Fields("id_sheet").Value]=Rs.Fields("name").Value; Rs.MoveNext(); КонецЦикла; Исключение Сообщить("Отчет по эмитентам не заработал!!!. Произошло исключение при поиске имен эмитентов."); КонецПопытки; Cmd.CommandText="SELECT b.id_azs, b.n_report, b.n_bill, Format(b.data,'dd/mm/yyyy hh:nn:ss') as d, b.id_bill_type, |b.id_tovar, Format(b.volume,'#.###') as vol, b.price, b.cost, Format(b.summa,'#.###') as s, |b.id_emitent, b.id_typ_sale, b.fact, b.zakazDozaLitr, b.TRK, b.id_tank, b.id_section |FROM bill b order by data"; Rs=CreateObject("ADODB.RecordSet"); Rs=Cmd.Execute; НомерСтроки=1; Попытка Rs.MoveFirst(); Пока Rs.EOF() = 0 do НомерСтроки=НомерСтроки+1; idAZS=Rs.Fields("id_azs").Value; Если idAZS=670 Тогда Скл="1"; ИначеЕсли idAZS=680 Тогда Скл="2"; ИначеЕсли idAZS=682 Тогда Скл="3"; ИначеЕсли idAZS=742 Тогда Скл="4"; ИначеЕсли idAZS=827 Тогда Скл="5"; ИначеЕсли idAZS=867 Тогда Скл="6"; Иначе Сообщить("Непонятный номер АЗС"+idAZS); Скл="0"; КонецЕсли; Excel.Range("A"+СокрЛП(НомерСтроки)).Select(); Excel.ActiveCell.FormulaR1C1=Скл; Excel.Range("B"+СокрЛП(НомерСтроки)).Select(); Excel.ActiveCell.FormulaR1C1=""+Rs.Fields("n_report").Value; ИмяЛиста=Скл+"_"+Rs.Fields("n_report").Value; Excel.Range("C"+СокрЛП(НомерСтроки)).Select(); Excel.ActiveCell.FormulaR1C1=""+Rs.Fields("n_bill").Value; Excel.Range("D"+СокрЛП(НомерСтроки)).Select(); Excel.ActiveCell.FormulaR1C1=""+Rs.Fields("d").Value; Excel.Range("E"+СокрЛП(НомерСтроки)).Select(); Excel.ActiveCell.FormulaR1C1=""+Rs.Fields("id_bill_type").Value; ЭККА=Rs.Fields("id_tovar").Value; Спр.ВыбратьЭлементыПоРеквизиту("Артикул",ЭККА,0,0); Если Спр.ПолучитьЭлемент()=1 Тогда ТМЦ=Спр.Наименование; Иначе ТМЦ=""; КонецЕсли; Excel.Range("F"+СокрЛП(НомерСтроки)).Select(); Excel.ActiveCell.FormulaR1C1=""+ЭККА; Excel.Range("G"+СокрЛП(НомерСтроки)).Select(); Excel.ActiveCell.FormulaR1C1=ТМЦ; Excel.Range("H"+СокрЛП(НомерСтроки)).Select(); Excel.ActiveCell.FormulaR1C1=Rs.Fields("vol").Value; Excel.Range("I"+СокрЛП(НомерСтроки)).Select(); Excel.ActiveCell.FormulaR1C1=Rs.Fields("price").Value; Сумма=Окр(Число(СтрЗаменить(Rs.Fields("s").Value,",",".")),2); Сумм=СтрЗаменить(Строка(Сумма),".",","); Excel.Range("J"+СокрЛП(НомерСтроки)).Select(); Excel.ActiveCell.FormulaR1C1=Сумм; Excel.Range("K"+СокрЛП(НомерСтроки)).Select(); Excel.ActiveCell.FormulaR1C1=Rs.Fields("id_typ_sale").Value; Excel.Range("L"+СокрЛП(НомерСтроки)).Select(); Excel.ActiveCell.FormulaR1C1=Rs.Fields("id_emitent").Value; Excel.Range("M"+СокрЛП(НомерСтроки)).Select(); Excel.ActiveCell.FormulaR1C1=?(Rs.Fields("id_emitent").Value<1,"",МассивЭмитентов[Rs.Fields("id_emitent").Value]); Excel.Range("N"+СокрЛП(НомерСтроки)).Select(); Excel.ActiveCell.FormulaR1C1=Rs.Fields("fact").Value; Excel.Range("O"+СокрЛП(НомерСтроки)).Select(); Excel.ActiveCell.FormulaR1C1=Rs.Fields("zakazDozaLitr").Value; Excel.Range("P"+СокрЛП(НомерСтроки)).Select(); Excel.ActiveCell.FormulaR1C1=Rs.Fields("TRK").Value; Excel.Range("Q"+СокрЛП(НомерСтроки)).Select(); Excel.ActiveCell.FormulaR1C1=Rs.Fields("id_tank").Value; Excel.Range("S"+СокрЛП(НомерСтроки)).Select(); Excel.ActiveCell.FormulaR1C1=Rs.Fields("id_section").Value; Rs.MoveNext(); Состояние(ИмяЛиста+" "+НомерСтроки); КонецЦикла; Исключение Сообщить("Ошибка чтения данных. Вероятно, данный отчет чеков совсем пустой"); СтрФайл=ФС.НайтиСледующийФайл(); Продолжить; КонецПопытки; // СтароеИмяЛиста=Excel.Sheets.Name; Excel.Sheets("Лист"+НомерЛиста).Name=ИмяЛиста; // Excel.ActiveWindow.SelectedSheets.Name=ИмяЛиста; Connection.Close(); СтрФайл=ФС.НайтиСледующийФайл(); КонецЦикла; Excel.ActiveWorkbook.Save(); Excel.ActiveWorkbook.Close(); Excel.Quit(); Сообщить("Конец "+ТекущееВремя());

Ответ отправил: Шахрайчук Владимир Анатольевич (статус: Студент) Ответ отправлен: 14.02.2007, 18:07 Оценка за ответ: 5 Комментарий оценки: ОООчень хочу обработку целиком!!! 820924@mail.ru Огромное спасибо!!!

Вопрос № 75.735

Добрый вечер! Вопрос в слудующем. 1С8.0 Управление производственным предприятием. В 1С8.0 приняли сотрудника на работу на должность Аналитика. Затем мне нужно принять его по совместительству на вторую должность - Программист. Когда я принимаю его на вторую должность, то при просмотре в окне Работники организации этот сотрудник отображается дважды. Если мы нажимаем в этом окне кнопку История, то исчезает сотрудник со второй должности. Как все-таки принять его на вторую должность? Спасибо. Извините, если вопрос не по теме.

Отправлен: 14.02.2007, 18:24 Вопрос задала: Ikh2005 (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: Яна Здравствуйте, Ikh2005! Для того, чтобы принять сотрудника в ту же организацию, на еще одну должность, нужно в графе Вид Занятости указать Внутреннее Совместительство. В регистре сведений работники организации при этом действительно будет 2 записи, каждая из которых соответствует занимаемой должности. Ничего противоречивого в этом нет. Вы же дважды принимали сотрудника на работу, на две должности: две в регистре и есть.

Ответ отправила: Яна (статус: 6-ой класс) Ответ отправлен: 15.02.2007, 00:47 Оценка за ответ: 4 Комментарий оценки: Яна, спасибо! Все эти операции я выполнила. Меня смутила кнопка История. Я подумала, что раз запись исчезла - человек не принят на работу. Возможно я не правильно понимаю смысл этой кнопки (История). Буду признательна, если вы объясните поподробнее. Спасибо.

Отвечает: Махнев Даниил Анатольевич Здравствуйте, Ikh2005! Еще проверьте настройку учетных политик, в частности по персоналу, там должно быть отмечено использование внутреннего совместительства --------- Windows работает ?! Читайте внимательно инструкцию...

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

Вопрос № 75.766

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

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

Отвечает: Arkadiy Karanskiy Здравствуйте, Ginar! Посоветовал бы Вам огранизовать немного другой подход. Если Вам необходимо, чтобы печаталось быстро, то посоветовал бы сделать одну результирующую таблицу, в которой как раз будет находиться 30 этикеток, а у вас как я понял их 30. В результате будет только один раз (1С+WinXP). Если этот вариант интересен, то могу рассказать подробнее. Успехов...

Ответ отправил: Arkadiy Karanskiy (статус: 7-ой класс) Ответ отправлен: 15.02.2007, 08:19 Оценка за ответ: 5 Комментарий оценки: Спасибо. Мысль интересная - вывести все этикетки в одну таблицу и затем распечатать. Попробую. Количество этикеток меняется от клиента к клиенту. Спасибо еще раз.

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