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

Выпуск № 525
от 19.06.2007, 14:05

Вопрос № 91.242

Здравствуйте уважаемые эксперты! Мне нужно, если счет-фактура вводится на основании документа "ОказаниеУслуг", тогда номер документа с префиксом "С", а если на основании "реализации", то обычный номер. Причем нумерация одна. Т.е. С0001, 00002,00003,С0004. Как это сделать? Подскажите пожалуйста... Приложение: Функция Заполнить(ДокОсн) Если ДокОсн.Вид()="ОказаниеУслуг" Тогда // НомерДок="С"+Прав(НомерДок,4); ... ИначеЕсли ДокОсн.Вид()="Реализация" Тогда // НомерДок="0"+Прав(НомерДок,4); КонецЕсли; ... КонецФункции

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

Отвечает: svsrus Здравствуйте, Darina! В принципе, вы все сделали правильно. Теперь осталось только НомерДок где-то хранить. Т.е. сам НомерДок вам использовать нельзя, потому как после C0001 следующий номер автоматически бедет С0002 и т.д. Если оператор/бухгалтер один раз в ручную внесут номер не правильно произойдет сбой нумерации. И тот код, что у вас работать будет но неверно. Поэтому НомерДок надо где-то хранить. Например, добавить новую константу, куда после записи документа заносить его номер, и назвать как-нибудь, например НомерДокСчетФактура. Удачи!

Ответ отправил: svsrus (статус: 6-ой класс) Ответ отправлен: 13.06.2007, 14:39 Оценка за ответ: 5 Комментарий оценки: Спасибо!

Отвечает: Шахрайчук Владимир Анатольевич Здравствуйте, Darina! Постановка задачи в корне неправильная. Как Вам тут подсказывают, Вы собьете нумерацию и следующим Вашим вопросом будет "Как восстановить нумерацию? нумерует неподряд и невпопад". НЕ ТРОГАЙТЕ НОМЕРДОК. Эта структура тонкая, и даже я ее не понимаю. Поставьте задачу так: При выводе печатной формы счета на печать выводить номер с буквой С если оказание услуг, и без С если реализация. Задача в одну строку.

Ответ отправил: Шахрайчук Владимир Анатольевич (статус: Практикант) Ответ отправлен: 13.06.2007, 15:03 Оценка за ответ: 4 Комментарий оценки: Спасибо за помощь, но мне нужно не только на печать.

Отвечает: Vlad Skorochod Здравствуйте, Darina! См. комментарий Шахрайчук Владимир Анатольевич в минифоруме. [ Alexandre V. Tchamaev ] Общая нумерация идет с префиксом "С" Соответственно новый документ будет создаваться уже с префиксом. и соответственно там где нет необходимости в префиксе меняем префикс "С" на 0 Смотрим приложение Приложение: Функция Заполнить(ДокОсн) Если ДокОсн.Вид()="ОказаниеУслуг" Тогда НомерДок=УстановитьНовыйНомер("С"); Иначе НомерДок=УстановитьНовыйНомер("С"); НомерДок=СтрЗаменить(НомерДок,"С","0"); КонецЕсли; ... КонецФункции

Ответ отправил: Vlad Skorochod (статус: 4-ый класс) Ответ отправлен: 13.06.2007, 15:04 Оценка за ответ: 4 Комментарий оценки: Нужна сквозная нумерация...

Отвечает: Dmitry Stashenko Здравствуйте, Darina! Проще всего завести какую-нибудь текстовую константу НомерСчетаФактуры, запретить ее редактирование, и записывать в нее номер последнего созданного документа Счет в виде 00001, 00002, 00003 и т.д. А при вводе нового и на основании принудительно устанавливать НомерДок (не зависимо от предложенного программой), исходя из последнего номера (путем прибавления единицы, но не забывая что она текстовая, или как душе угодно), меняя при вводе на основании ОказанияУслуг первый ноль на С: //Преобразуем номер из строки в число НовыйНомерСчетаФактуры = Число(Константа.НомерСчетаФактуры)+1; //Дозаполним номер нулями спереди Пока СтрДлина(НовыйНомерСчетаФактуры) < 6 Цикл НовыйНомерСчетаФактуры = "0"+Строка(НовыйНомерСчетаФактуры); КонецЦикла; //Обновим номер счета Константа.НомерСчетаФактуры = НовыйНомерСчетаФактуры; //Сформируем номер документа Если ДокОснование.Вид() = "ОказаниеУслуг" Тогда НомерДок = "С"+Прав(НовыйНомерСчетаФактуры,4); Иначе НомерДок = НовыйНомерСчетаФактуры; КонецЕсли; Это все для ввода на основании, а для нового тоже самое, только без последнего если, а сразу: НомерДок = НовыйНомерСчетаФактуры; Вроде все. Удачи

Ответ отправил: Dmitry Stashenko (статус: 4-ый класс) Ответ отправлен: 13.06.2007, 20:24 Оценка за ответ: 5 Комментарий оценки: Спасибо! Всё работает!

Отвечает: Ромашов Евгений Николаевич Перенесено в минифорум, т.к. не является ответом на вопрос. [ Alexandre V. Tchamaev ]

Ответ отправил: Ромашов Евгений Николаевич (статус: 1-ый класс) Ответ отправлен: 14.06.2007, 07:35 Оценка за ответ: 1 Комментарий оценки: Без комментариев...

Вопрос № 91.281

Здравствуйте уважаемые эксперты! Имеется справочник: Наименование,КонтрЧисла, Суммы Необходимо написать запрос, из списка помеченных сделать отчёт (см.внизу), а не помеченных –нет соответственно. №п/п №Контр.числа Наименование Суммы Заранее благодарен

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

Отвечает: Dmitry Stashenko Здравствуйте, AIvanov! Чем помеченных то? Вообще, работа со справочником организуется методами ВыбратьЭлементы() и ПолучитьЭлемент(). Спр = СоздатьОбъект("Справочник.НазваниеСправочника"); Спр.ВыбратьЭлементы(); Пока Спр.ПолучитьЭлемент() = 1 Цикл Если Спр.КакойНитьРеквизит = Помечен Тогда //выводим нужный отчет КонецЕсли; КонецЦикла;

Ответ отправил: Dmitry Stashenko (статус: 4-ый класс) Ответ отправлен: 13.06.2007, 19:41

Отвечает: Ovr1970 Здравствуйте, AIvanov! К сожалению использовать список с пометками - нельзя Придется создать новый список, в который перенести отмеченные элементы. Дальше - обычный запрос с условием: Приложение: ... ТЭ=ТекущийЭлемент; Условие (ТЭ в <НовыйСписок>); ...

Ответ отправил: Ovr1970 (статус: Практикант) Ответ отправлен: 14.06.2007, 10:21

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

Ответ отправил: Vlad Skorochod (статус: 4-ый класс) Ответ отправлен: 15.06.2007, 09:38

Вопрос № 91.305

Здравствуйте Эксперты! Вопрос вроде бы простой, но так как я только начинающий программист, то помогите разобраться????!!!! Переношу документы из одной конфы в другую через ОЛЕ. Столкнулся с тем что в ПКО не переносится реквизит субконто. Т.е. всем известно, что если пользователь вручную введет новый документ, поставит счет 62.1 - далее Ентер, то сразу активируется субконто Покупатели! А если же счет 62.1 перенесется из другой базы, то субконто не активируется, приходится открывать каждый документ, вставать где счет 62.1 нажимать Ентер и только тогда активируется субконто! Может кто-то сталкивался с этим, Всем благодарен за ответы!

Отправлен: 13.06.2007, 21:34 Вопрос задал: V lad (статус: Посетитель) Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: FarGot Здравствуйте, V lad! Если Вы имеете ввиду бухгалтерию, то посмотрите процедурку ПриВыбореСчета()в модуле формы ПКО. А так читайте описание встроенного языка, процедуры НазначитьТип(), НазначитьВид(). Удачи.

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

Отвечает: Ромашов Евгений Николаевич Здравствуйте, V lad! просто нужно документы открытые через оле обработать так же как и исходные т.е в цикле использовать метод назначитьтип а потом уже присваивать значения, по умолчанию они имеют не определеннный тип и значения им не присваиваются

Ответ отправил: Ромашов Евгений Николаевич (статус: 1-ый класс) Ответ отправлен: 14.06.2007, 07:33 Оценка за ответ: 5 Комментарий оценки: Спасибо!

Отвечает: svsrus Здравствуйте, V lad! В ПКО и РКО реквизиты СубконтоX - неопределнные. Поэтому им надо сначала назначить тип. В процедуре ПриВыбореСчета() в ПКО и РКО можете посмотреть, как назначается тип реквизиту СубконтоX. Весь код вам не нужен, вот 3 строчки, вставьте их в свой модуль для переноса документов и все будет ок. Для А = 1 По 3 Цикл Док.НазначитьТип("Субконто"+А,Док.КоррСчет.ВидСубконто(А)); КонецЦикла; Где Док - ПКО (или РКО). Удачи!

Ответ отправил: svsrus (статус: 6-ой класс) Ответ отправлен: 14.06.2007, 08:39 Оценка за ответ: 5 Комментарий оценки: Спасибо за помощь!

Отвечает: Dmitry Stashenko Здравствуйте, V lad! Вероятно это происходит потому, что по умолчанию Субконто имеют неопределенное значение. Для того, чтобы их использовать, необходимо сначала назначить им тип. Погляди, какая процедура выполняется при изменении счета. Там по идее должно быть что-то такое: Для Инд = 1 По Счет.КоличествоСубконто() Цикл НазначитьТип("Субконто"+Инд,Счет.ВидСубконто(Инд)); КонецЦикла; В обработке надо сделать точно также. Удачи

Ответ отправил: Dmitry Stashenko (статус: 4-ый класс) Ответ отправлен: 14.06.2007, 10:42 Оценка за ответ: 5 Комментарий оценки: Спасибо за помощь!

Отвечает: Vlad Skorochod Здравствуйте, V lad! Все дело в том что поле субконто имеет неопределенный тип. Чтобы записать туда какоето значение необходимо сначала назначить этому полю какой-то тип. Воспользуйтесь функцией : НазначитьТип(<ИмяРеквизита>,<ИмяТипа>,<Длина>,<Точность>)

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

Вопрос № 91.334

Здраствуйте! У меня такая проблема - из Зик7.7 необходимо сделать выгрузку в ЗУП 8.0, причем помесячно, но файла с правилами выгрузки я вообще не нашла. Что можете посоветовать?

Отправлен: 14.06.2007, 07:39 Вопрос задала: Юхнова Светлана Игоревна (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: DIMa@XX Здравствуйте, Юхнова Светлана Игоревна! Лучшим вариантом, может быть только конфигурация "конвертация данных". она позволяет описать любые правила выгрузки в т.ч из 7.7 в 8.0. Сам пробовал, хоть и не сразу, но получилось. Взять можно на сайте 1С http://users.v8.1c.ru --------- Hайден неизвестный драйвер, воткните какое-нибудь устройство!

Ответ отправил: DIMa@XX (статус: 4-ый класс) Ответ отправлен: 14.06.2007, 08:03 Оценка за ответ: 3 Комментарий оценки: В конвертации тоже нужно указывать файл с правилами, я пробовала. Наверняка есть уже готовое решение.

Вопрос № 91.358

Здравствуйте, уважаемые эксперты. Помогите с ЗиК - при заполнении табеля в выборку дат попадает только первый день месяца. ДатаФорм - первый день месяца. Приложение: НоваяСтрока(); Сотрудник = Сотр; Счетчик=0; ГрафикРаботы=Сотр.ГрафикРаботы.Получить(ДатаФорм); К = ГрафикРаботы.ОсновныеЧасы; К.ВыбратьДаты(ДатаФорм,КонМесяца(ДатаФорм)); Пока К.СледующаяДата() = 1 Цикл Счетчик = Счетчик+1; Значение=К.Часов(К.Дата,К.Дата); УстановитьАтрибут("Дн"+СокрЛП(Счетчик),Значение); КонецЦикла;

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

Отвечает: Palkin Здравствуйте, Nasta! Действительно при проверке оказалось, что связка методов ВыбратьДаты()-СледующаяДата() не работает. Попробуйте следующий код в приложении, у меня получилось. Удачи! Приложение: НоваяСтрока(); Сотрудник = Сотр; Счетчик=0; ГрафикРаботы=Сотр.ГрафикРаботы.Получить(ДатаФорм); К = ГрафикРаботы.ОсновныеЧасы; сч = 0; Пока сч <> К.Дней(ДатаФорм, КонМесяца(ДатаФорм)) Цикл сч = сч + 1; Если К.ПолучитьДату(ДатаФорм, сч) <> 0 Тогда Счетчик = Счетчик+1; Значение=К.Часов(К.Дата,К.Дата); УстановитьАтрибут("Дн"+СокрЛП(Счетчик),Значение); КонецЕсли; КонецЦикла;

Ответ отправил: Palkin (статус: 4-ый класс) Ответ отправлен: 16.06.2007, 11:36 Оценка за ответ: 5 Комментарий оценки: Спасибо, попробую. Заметила такую интересную вещь - на sqlой базе все работает...

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.52 от 02.05.2007
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru