×
×
Закрытая тема
Показано с 1 по 12 из 12
  1. #1
    Клерк
    Регистрация
    09.12.2004
    Сообщений
    44

    Печать требования

    Проблема в следующем. При выписке требования-накладной на передачу материала в производство программа не дает печатать требование, если оно не проведено(т.к. при проведении считается цена материала). Однако теперь требуется, чтобы требования выписывали не те, кто получает материалы, а работники склада. Но, поскольку фин.директор может и не подписать требование, то возникла необходимость печати требования БЕЗ его предварительного проведения, чтобы не делать лищнюю работу по отмене проведения.
    Я попытался решить проблеиу следующим образом. Если требование непроведено, то я в начле процедуры печати его провожу, а затем (после того, как выполнил все нужные действия) снова делаю его непроведенным.
    Но... Провестись требование проводится, а отмена проведения не проходит.
    ПОЧЕМУ???

    Вот, собственно, сама процедура. Подскажите, что в ней не так.

    Процедура Печать()
    Рез = 0;
    Если Проведен() = 0 Тогда
    Рез = Вопрос("Вы ДЕЙСТВИТЕЛЬНО хотите напечатать НЕпроведенный документ?",4);
    //!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    Если Рез = 6 Тогда
    Провести();//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    Иначе
    Возврат;
    КонецЕсли;
    КонецЕсли;
    Таб = СоздатьОбъект("Таблица");
    Таб.ВывестиСекцию("Шапка");
    Оп = Операция;
    Оп.ВыбратьПроводки();
    Ном = 1;
    Пока Оп.ПолучитьПроводку() = 1 Цикл
    Если оп.кредит.счет = СчетПоКоду("Мат") тогда
    Ном = Ном + 1;
    _материал = Оп.Кредит.Материалы;
    _количество = Оп.Количество;
    Сумма = Оп.Сумма;
    Цена = ?(Количество=0,0,Окр(Сумма/Количество,2));
    Таб.ВывестиСекцию("Строка");
    КонецЕсли;
    КонецЦикла;
    //!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    Если Рез = 6 Тогда
    Сделатьнепроведенным();//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    КонецЕсли;
    Таб.ВывестиСекцию("Подвал");
    Таб.Опции(0,0,0,0,"ОпцииПечатиТр");
    Таб.Показать("Требование");
    КонецПроцедуры

  2. #2
    Модератор Аватар для Aquad
    Регистрация
    04.12.2002
    Адрес
    Москва
    Сообщений
    3,870
    Поставьте пометку удаления
    а затем снимите ее ...

  3. #3
    Умный Клерк!
    Регистрация
    07.01.2004
    Адрес
    Владимир
    Сообщений
    13,623
    foxm, Читайте СП и узнаете для чего применяется метод Сделатьнепроведенным();

    ТОчнее чей это метод.
    1.Открыта новая радиостанция для юзеров под названием RТ FМ. По ней будут транслироваться чтения различных мануалов и ответы на часто задаваемые вопросы.
    2. "Помогая ленивым людям, ты помогаешь им сесть на свою шею" Сян-Цзы

  4. #4
    Бухгалтер-программист Аватар для azernot
    Регистрация
    16.08.2004
    Адрес
    Москва
    Сообщений
    671
    Так никто конкретно и не помог...

    Док = СоздатьОбъект("Документ.ТребованиеНакладная");
    Док.НайтиДокумент(ТекущийДокумент());
    Док.СделатьНеПроведенным();

    или

    Док.Удалить(0);
    Док.СнятьПометкуУдаления();
    С уважением
    Зернятко А.В.

  5. #5
    Клерк
    Регистрация
    09.12.2004
    Сообщений
    44
    Спасибо всем за ответы. Я вышел из положения по-другому. Из обработки проведения "выковырял" нужный кусок (расчет цены м-ла) и вставил его в процедуру печати.
    Особенное спасибо azernot'у за желание помочь, а не покрасоваться

  6. #6
    Модератор Аватар для Aquad
    Регистрация
    04.12.2002
    Адрес
    Москва
    Сообщений
    3,870
    а не покрасоваться
    ОЙ да ОЙ ...
    В чем это мы с Naumov красовались ?!

  7. #7
    Умный Клерк!
    Регистрация
    07.01.2004
    Адрес
    Владимир
    Сообщений
    13,623
    foxm, ну и че он тебе такого насоветовал?
    при вызове из контекста документа
    в момент вызова метода Док.СделатьНеПроведенным();
    выйдет ругательство "Объект заблокирован".
    Ай спасибо azernot.

    Я сперва думаю, а потом кирпич кидаю.
    1.Открыта новая радиостанция для юзеров под названием RТ FМ. По ней будут транслироваться чтения различных мануалов и ответы на часто задаваемые вопросы.
    2. "Помогая ленивым людям, ты помогаешь им сесть на свою шею" Сян-Цзы

  8. #8
    Клерк
    Регистрация
    09.12.2004
    Сообщений
    44
    Я ДИКО извиняюсь!
    Отнюдь не имел в виду ни Наумова, ни Aquad'а. Просто на другом форуме меня достали некоторые умники.
    А что azernot был неправ я уже понял, но все равно ему спасибо (как и Вам!) за желание помочь.
    Еще раз прошу прощения.

  9. #9
    Бухгалтер-программист Аватар для azernot
    Регистрация
    16.08.2004
    Адрес
    Москва
    Сообщений
    671
    Ну прогнал, ну не пинайте сильно! И битой бейсбольной по голове не надо! Да и руки заламывать ни к чему...
    Больше не буду, честное пионерское!

    ------
    А всё ж таки, когда советуют посмотреть СП - это чистой воды выпендрёж...
    С уважением
    Зернятко А.В.

  10. #10
    Умный Клерк!
    Регистрация
    07.01.2004
    Адрес
    Владимир
    Сообщений
    13,623
    foxm, я тоже никого не имел ввиду.
    azernot, Имею право.
    1.Открыта новая радиостанция для юзеров под названием RТ FМ. По ней будут транслироваться чтения различных мануалов и ответы на часто задаваемые вопросы.
    2. "Помогая ленивым людям, ты помогаешь им сесть на свою шею" Сян-Цзы

  11. #11
    Клерк Аватар для training1C
    Регистрация
    16.09.2002
    Адрес
    Москва, СВАО
    Сообщений
    861
    А я вот никак не въеду,а что такое "СП"?
    С уважением, Рустам.
    "Пишите письма мелким почерком" :-). Ответ ГАРАНТИРОВАН

  12. #12
    Бухгалтер-программист Аватар для azernot
    Регистрация
    16.08.2004
    Адрес
    Москва
    Сообщений
    671
    Naumov
    Да уж не "тварь дрожащая"...

    training1C
    Синтакс-помощник.
    С уважением
    Зернятко А.В.

Закрытая тема

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Ваши права

  • Вы можете создавать новые темы
  • Вы можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •