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

Выпуск № 694
от 03.01.2008, 12:05

Вопрос № 116.275

Уважаемые эксперты. Задача такая: из справочника сотрудники выбираю домашний адрес и выношу в печатную форму. Формируется строка вида: ,682800,Хабаровский край,,Комсомольск-на-Амуре г,,Ленина ул,1,,58 Необходимо из строки адреса удалить индекс, и наименование края или области, и две запятые идущие подряд. Удаляется только край, область и запятые вообще не находятся Приложение: //******************************************* //избавляемся от последовательных двух запятых в строке адреса Функция УдалитьЗапятые (НачАдрес) Для Нач = 1 По СтрДлина(НачАдрес) Цикл Результат = СтрЗаменить (НачАдрес, ",,"," "); КонецЦикла; Возврат Результат; КонецФункции //******************************************* //избавляемся от индекса, наименования области или края в дом_адресе Функция ФормируемАдрес (НачАдрес) НайтиОбл = Найти (НачАдрес, "обл"); НайтиКрай = Найти (НачАдрес, "край"); Если НайтиКрай = 0 Тогда Если НайтиОбл = 0 Тогда РезультАдрес = УдалитьЗапятые(НачАдрес); Иначе РезультАдрес = Сред (НачАдрес, НайтиОбл + 6); КонецЕсли; Иначе РезультАдрес = Сред (НачАдрес, НайтиКрай + 6); КонецЕсли; Возврат РезультАдрес; КонецФункции

Отправлен: 29.12.2007, 02:20 Вопрос задал: Сергеев Александр (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 1)

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

Ответ отправил: Сергей Максименко [Elric] (статус: Профессионал) Украина, Киев Тел.: (044) 22-88-369 Организация: "МАКСЕР" - продажа и внедрение "1С:Предприятие" Адрес: г. Киев WWW: "1С:Предприятие" в Киеве ---- Ответ отправлен: 29.12.2007, 04:18

Отвечает: Larsh Здравствуйте, Сергеев Александр! Результат = СтрЗаменить (НачАдрес, ",,"," "); Возвращает строку, полученную из строки поиска заменой всех вхождений шаблона поиска строкой замены. Поэтому цикл здесь не нужен.

Ответ отправила: Larsh (статус: 1-ый класс) Ответ отправлен: 29.12.2007, 05:33

Отвечает: temniy Здравствуйте, Сергеев Александр! Функция ВернутьАдрес(адр) адрес=СокрЛП(адр); //Удаляем запятые адрес=стрЗаменить(адрес,",,",","); крайНомер=Найти(Нрег(адрес),"край"); Если крайНомер<>0 тогда ВозврСтрока=Прав(адрес,стрДлина(адрес)-крайНомер-4); КонецЕсли; облНомер=Найти(Нрег(адрес),"край"); Если облНомер<>0 тогда ВозврСтрока=Прав(адрес,стрДлина(адрес)-облНомер-4); КонецЕсли; Возврат ВозврСтрока; КонецФункции; Удачи!!!!!

Ответ отправил: temniy (статус: 6-ой класс) Ответ отправлен: 29.12.2007, 15:25

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

Ответ отправил: Астафьев Александр Николаевич (статус: 9-ый класс) Ответ отправлен: 29.12.2007, 15:44

Вопрос № 116.277

Доброе утро, господа эксперты! Вчера бухгалтеры озадачили вопросом. Он связан со сдачей документов в налоговую. Насколько я понял, дело обстоит следующим образом: сейчас они считают зарплату в ЗиК, распечатывают отчеты, а потом вручную вводят данные в Налогоплательщик ЮЛ, из которого затем делают выгрузку на дискету файла, передаваемого затем вместе с бумагами налоговикам. Конкретно речь идет об отчете "Расчет авансовых платежей ЕСН". Естесственно, кому-то пришла светлая мысль облегчить работу и исключить человеческий фактор, сдавать отчетность прямо из ЗиК. Я так думаю, что есть два пути решения: либо сделать передачу данных в Налогоплательщик ЮЛ из Зарплаты, либо сделать сразу выгрузку из Зарплаты. Первый вариант мне показался проще, так как из НП данные у нас принимают без вопросов, а во втором случае придется согласовывать, проверять и прочее, вообщем морока одна. Но поискал информацию и не обнаружил ничего стОящего. Есть только намеки о возможности переноса из ЗиК в НП ЮЛ. Подскажите пожалуйста как решить эту проблему, что возможно сделать. Буду рад любой информации, так как раньше с этим не сталкивался ни разу. P.S.: НП ЮЛ скидывает данные из "Расчет по аванплатежам по ЕСН для организаций" в текстовый файл, а ЗиК в файл вида "31120450.prb", в котором сплошные цифры. И естесственно что НП отказывается воспринимать эти файлы, насколько я понял он работает только с txt. Кстати, от советов типа "обратись в налоговую, там все скажут", прошу воздержаться :-). На мой вопрос, о том как проверить, правильно ли сделан файл для передачи, мне сказали что отнесут в налоговую и сперва сдадут его, а если он неподойдет, то потом отдадут файл из НП ЮЛ с данными, забитыми вручную. :-)

Отправлен: 29.12.2007, 04:36 Вопрос задал: UnknownDS (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Астафьев Александр Николаевич Здравствуйте, UnknownDS! Эти файлы типа *.prb выгруженные из Конфигурации 1С Зарплата кадры 7.7 предназначены для загрузки в Конфигурацию1С Бахгалтерия и 1С Бухгалтерия УСН 7.7. Там есть "Регламентированные отчеты", в которых находится квартальная отчетность за соответствующие кварталы.Открываете последовательно "Налоговая отчетность" затем "Расчет авансовых платежей по ЕСН" на соответствующих листах этой отчетности есть флажок "Заполняется внешними данными". Включаете флаг и по кнопке "Заполнить" программа спросит где эти самые файлы *.prb. Имейте ввиду - цифры в названии файла берутся не с потолка, а содержат информацию о периоде формирования отчета и в какой лист отчетности ЕСН данный файл грузится. Поэтому название файлов не менять(их несколько сразу выгрузится для разных листов этой отчетности) перед тем как нажать кнопку "Заполнить" проверте чтобы период "Сдача отчета за:" соответствовал периоду выгру зки данных когда вы выгружали файл из Зарплата Кадры(еще нюанс в Зарплата Кадры выгружаются каждый месяц а бухгалтерию грузятся только месяцы конца квартала март, июнь, сентябрь, декабрь но данные выгружаются накопительно с начала года так что все там нормально будет). Ну и наконец в этой самой квартальной отчености есть "Выгрузка данных отчетности (формат версии 3.0)" которая и выгружает наши данные по ЕСН на дискету. Если б знал бы в начале что столько писать прийдется под новый год. Ладно с наступающим Вас и Ваших бухгалтеров Новым годом. Желаю всем успехов в работе а Вашим бухгалтерам изучить наконец стандартные обработки сушествующие в 1С Предприятии 7.7 уже много лет.

Ответ отправил: Астафьев Александр Николаевич (статус: 9-ый класс) Ответ отправлен: 29.12.2007, 15:16

Вопрос № 116.283

Здравствуйте! Подскажите как мне записать свои данные в ЖурналРасчетов? Уточняю, есть ЖурналРасчетов в нем есть поле ВидРасчета, у каждой записи есть Результат, мне надо занести в результат свои данные, но там уже есть данные. Например ЖурналРасчетов-Объект"Иванов В.В."-ВидРасчетов"Подоходный налог"- Результат"2500", мне нужно внести в Результат число 2700, --ЖурналРасчетов-Объект"Иванов В.В."-ВидРасчетов"Подоходный налог"- Результат"2700", Как мне это зделать, помогите. Заранее Спасибо!!

Отправлен: 29.12.2007, 07:26 Вопрос задал: Александр новичок (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Сергей Максименко [Elric] Здравствуйте, Александр новичок! Если интерактивно, то просто исправляете Результат. Если программно, то создаете объект типа Журнал расчета, позиционируетесь на нужную запись и заносите новое значение в атрибут Результат. --------- В творчестве рождается истина

Ответ отправил: Сергей Максименко [Elric] (статус: Профессионал) Украина, Киев Тел.: (044) 22-88-369 Организация: "МАКСЕР" - продажа и внедрение "1С:Предприятие" Адрес: г. Киев WWW: "1С:Предприятие" в Киеве ---- Ответ отправлен: 29.12.2007, 11:44 Оценка за ответ: 4

Вопрос № 116.286

Доброго времени. 7.7 Во внешнюю обработку выгружаются документы, с последующим сохранением одного из элементов в справочнике (талоны), одна из колонок ТЗ для пометки на удаление (булево да), по одному документу все нормально, но, как организовать в цикле, чтоб сразу все пометить? Приложение: Процедура УдалитьТалон() ТекСтрока=Талоны.ТекущаяСтрока(); Удал=Талоны.ПолучитьЗначение(ТекСтрока,10); If Удал=Enum.Булево.Да Then If Вопрос("Элемент списка помечен на удаление, отменить удаление?",1,0)=1 Then Талоны.УстановитьЗначение(ТекСтрока,10,Enum.Булево.Нет); EndIf; Else If Вопрос("Вы действительно хотите убрать из списка выбранный талон?",1,0)=1 Then ТекСтрока=Талоны.ТекущаяСтрока(); Талоны.УстановитьЗначение(ТекСтрока,10,Enum.Булево.Да); EndIf; EndIf;

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

Отвечает: Астафьев Александр Николаевич Здравствуйте, Provnick! Как я понял всем строкам в таблице значений нужно без вопросов , в отличие от Процедуры УдалитьТалон(), поставить в десятой колнке Enum.Булево.Да. И Вас тоже с новым годом, успехов в личной жизни и в изучении 1С. Процедура УдалитьТалоныВсе() Талоны.ВыбратьСтроки(); Пока Талоны.Получитьстроку()=1 Цикл Если Талоны.ПолучитьЗначение(Талоны.ТекущаяСтрока,10)=Enum.Булево.Да Тогда Продолжить; Иначе Талоны.УстановитьЗначение(Талоны.ТекущаяСтрока,10,Enum.Булево.Да); КонецЕсли; КонецЦикла; КонецПроцедуры

Ответ отправил: Астафьев Александр Николаевич (статус: 9-ый класс) Ответ отправлен: 29.12.2007, 14:52 Оценка за ответ: 4 Комментарий оценки: В общем то правильно, и я по этому пути пошёл, но проставляется "Да" не по всем строкам, а в одной. И следующую опять тыкаешь и нажимаешь кнопку, не заполняет все строки ТЗ. Что то не пойму, вроде как цикл, пока =1, а останавливается сразу на первой строке.

Вопрос № 116.295

Здравствуйте уважаемые эксперты! Возникла проблема, решить самостоятельно не получается… Есть Общий журнал, есть колонки в которых отображается информация по оплате (СуммаЗаказа, СуммаОплаты, Долг). Сделала печатную форму журнала в которой показывается Итоговая сумма по всем колонкам Возник глюк, при повторном нажатии на кнопку Печать Итоговые суммы по колонкам увеличиваются в два раза. Пример: (Открываем журнал, нажимаем кнопку «Печать» и видем) №п/п ФИО Сумма Заказа Сумма Оплаты Долг 1 -\- 10000 5000 5000 2 -\- 500 0 500 Итого: 10500 5000 5500 Нажав второй раз на печать (не выходя из журнала) реестр будет выглядеть так: №п/п ФИО Сумма Заказа Сумма Оплаты Долг 1 -\- 10000 5000 5000 2 -\- 500 0 500 Итого: 21000 10000 11000 При следующем нажатии опять итоговая сумма увеличивается Если Журнал закрыть и открыть, то Итоговая сумма отображается нормально Не могли бы вы подсказать в чем причина?

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

Отвечает: Владимир Лазурко [Vladal] Здравствуйте, Lakosiera! Эта проблема возникает только в одном случае - при формировании реестра не обнуляется(ются) переменная(ые), хранящая(ие) сумму(ы). При открытии журнала все переменные пусты и потому в первый раз сумма отображается верно. Т.е. при каждом повторном вызове процедуры к существующему значению суммы прибавляется еще и еще, пока не закроется форма журнала и не очистится память от всех переменных, созданных этой формой. Как исправить эту проблему: в процедуре печати реестра перед циклом обхода документов нужно обнулить переменную, хранящую сумму. В моем примере это переменная СуммаЗаказов: Процедура ПечатьЖурнала() СуммаЗаказов = 0; <---------- обнулим итоговую сумму // Далее цикл обхода документов Пока Док.ПолучитьДокумент()=1 Цикл // обработка цикла - вывод строк, подсчет итоговой суммы документов, формирование печатной формы КонецЦикла; // вывод печатной формы КонецПроцедуры

Ответ отправил: Владимир Лазурко [Vladal] (статус: 10-ый класс) Ответ отправлен: 29.12.2007, 10:57 Оценка за ответ: 5

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

Ответ отправил: DERL.KG (статус: 7-ой класс) Ответ отправлен: 29.12.2007, 11:07 Оценка за ответ: 5 Комментарий оценки: Спасибо

Отвечает: Макаров Сергей Львович Здравствуйте, Lakosiera! будет лучше если вы покажете код. Скорее всего не обнуляется переменная для подсчета итогов.

Ответ отправил: Макаров Сергей Львович (статус: 1-ый класс) Ответ отправлен: 29.12.2007, 11:12

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