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

Выпуск № 365
от 03.12.2006, 15:35

Вопрос № 64.433

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

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

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

Ответ отправил: Ovr1970 (статус: Студент) Ответ отправлен: 27.11.2006, 18:03 Оценка за ответ: 5 Комментарий оценки: Спасибо! Но работает также неправильно, как и у меня. Наверно это потому, что (забыла указать) Оплата-реквизит шапки, а Сумма многострочной части? Оба - число.

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

Ответ отправил: Зотов А.П. (статус: 1-ый класс) Ответ отправлен: 27.11.2006, 18:21 Оценка за ответ: 5 Комментарий оценки: Спасибо за пояснения! Но не работает.

Отвечает: Гребиников Павел Генадьевич Здравствуйте, Darina! Идея со справочниками не совсем правильная на мой взгляд. Если у вас всего два или несколько элкментов, воспользуйтесь перечислениями --------- Плох тот юзер, который не мечтает стать админом...

Ответ отправил: Гребиников Павел Генадьевич (статус: 9-ый класс) Ответ отправлен: 28.11.2006, 07:33 Оценка за ответ: 4 Комментарий оценки: Да наверно! Но суть по большей части не в этом. Т.к. загвозда оказывается в точ, что надо было написать Док.Оплата=Док.Итог("Сумма"). Спасибо!

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

Ответ отправил: Игорь К. (статус: 2-ой класс) Ответ отправлен: 28.11.2006, 09:28 Оценка за ответ: 5 Комментарий оценки: Спасибо! Вы тоже правильно подсказали. Больше я подобной ошибки не допущу.

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

Ответ отправил: Шахрайчук Владимир Анатольевич (статус: Студент) Ответ отправлен: 28.11.2006, 11:06 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо!

Вопрос № 64.463

Здравствуйте! Обработка создает налоговые накладные на основании разходных! Как установить подчинение одного документа другому! Спасибо!

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

Отвечает: Решитько Иван Олегович Здравствуйте, Мелельский! Нужно в документе "НалоговаяНакладная" создать, например, реквизит "РодительскийДокумент" типа "Документ" и в обработке присваивать ему значение расходной накладной, на основании которой формируется эта налоговая накладная.... Затем можно использовать: ВыбратьПодчиненныеДокументы(<?>,,) Синтаксис: ВыбратьПодчиненныеДокументы(<Дата1>,<Дата2>,<Докум>) Назначение: Открыть выборку документов, подчиненных заданному, в интервале дат.

Ответ отправил: Решитько Иван Олегович (статус: 1-ый класс) Ответ отправлен: 28.11.2006, 01:33 Оценка за ответ: 5

Вопрос № 64.525

Уважаемые эксперты! Есть вопрос. Объясните, пожалуйста, как пользоваться обработкой ToText (где скачать - не знаю, мне просто дали ее на дискете). Или может кто-нибудь знает другие модули для преобразования таблиц в текстовый формат? Буду благодарен за любую информацию. P.S. Конечно ее можно и самому написать, но на это просто нет времени. Заранее спасибо за ответ.

Отправлен: 28.11.2006, 02:05 Вопрос задал: KulMaks (статус: 8-ой класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 5)

Отвечает: Сергей Здравствуйте, KulMaks! высылайте эту обработку, посмотрю и расскажу как она работает azimplus@mail.ru

Ответ отправил: Сергей (статус: 9-ый класс) Ответ отправлен: 28.11.2006, 11:08 Оценка за ответ: 5

Вопрос № 64.538

Имеется 1С 7.7 Комплексная конфигурация. В журнале по выплате заработной платы предусмотрен документ «Возврат задолженности в кассу». Как сделать так, чтобы на основании документа «Возврат задолженности в кассу» формировалась в бух.учете ( в кассовых документах) проводка по погашению задолженности сотрудника перед предприятием и выводился документ приходный кассовый ордер?

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

Отвечает: Зайцев Александр Здравствуйте, Svan! Самый простой способ - разрешить вводить на основании документа ВозвратЗадолженности документ ПКО и в обработке модуля формы при записи нового возврата програмно вводить и проводить ПКО, для печати можно добавить таблицу в Возврат, а можно открывать форму ПКО и печатать оттуда, соответственно предусмотреть возможность модификации Или добавить проводки в обработку проведения модуля документа ВозвратЗадолженности. Если Вас интересует, как и что добавлять - пишите в форум или в личку

Ответ отправил: Зайцев Александр (статус: Студент) Ответ отправлен: 28.11.2006, 07:36

Вопрос № 64.542

Добрый день, уважемые эксперты. Подскажите, как узнать, есть ли у числа дробная часть или нет например 2-нет дробнойчасти, 2,5-есть

Отправлен: 28.11.2006, 08:04 Вопрос задал: Гребиников Павел Генадьевич (статус: 9-ый класс) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зайцев Александр Здравствуйте, Гребиников Павел Генадьевич! Программно, см. приложение Приложение: Если (число-Окр(Число)<>0) тогда флДробЧасть = 1; КонецЕсли;

Ответ отправил: Зайцев Александр (статус: Студент) Ответ отправлен: 28.11.2006, 08:15 Оценка за ответ: 5

Отвечает: nimoid Здравствуйте, Гребиников Павел Генадьевич! Еще можно так: Если Найти(Строка(ТвоеЧисло), ",") = 1 Тогда Сообщить("дробная часть есть"); КонецЕсли; --------- Пишем баги на любые патчи :-]

Ответ отправил: nimoid (статус: 8-ой класс) Ответ отправлен: 28.11.2006, 08:23 Оценка за ответ: 5

Отвечает: ATan Здравствуйте, Гребиников Павел Генадьевич! Если Цел(Число1) = Число1 Тогда //Число целое иначе //дробное КонеЕсли;

Ответ отправил: ATan (статус: 2-ой класс) Ответ отправлен: 28.11.2006, 10:05

Отвечает: Лазурко Владимир Здравствуйте, Гребиников Павел Генадьевич! Процедура Сформировать() Если ИсследуемоеЧисло-Цел(ИсследуемоеЧисло) = 0 Тогда Сообщить("Число целое"); Иначе Сообщить("ЧИсло дробное"); КонецЕсли; КонецПроцедуры

Ответ отправил: Лазурко Владимир (статус: 6-ой класс) Ответ отправлен: 28.11.2006, 19:01

Вопрос № 64.563

Здравствуйте эксперты. Есть кассовый аппарат Minni 600.05 и 1С. Необходимо организовать обмен данными в следующем режиме: при введении чека (инкассации, Z отчета) на ККМ информация передается в ПК и в 1С формируется чек (инкассация, закрытие смены), именно так что пользователь работает с ККМ а машина информацию собирает on – line в реальном времени. Посоветуйте, что почитать, где посмотреть примеры.

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

Отвечает: Решитько Иван Олегович Здравствуйте, Strawberry! Скорее всего Вам прийдётся формировать чеки и делать другие операции в 1С, а потом уже передавать в кассовый аппарат. Какую конфигурацию 1С Вы используете? "Торговля и склад" , наприер, умеет работать с кассовыми аппаратами...

Ответ отправил: Решитько Иван Олегович (статус: 1-ый класс) Ответ отправлен: 28.11.2006, 13:26

Отвечает: Ovr1970 Здравствуйте, Strawberry! Только один совет, подойти к проблеме с другой стороны. Работать полностью в 1С, включая печать Z и Х отчетов(чеки само-собой тоже из 1С)

Ответ отправил: Ovr1970 (статус: Студент) Ответ отправлен: 28.11.2006, 20:12

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