Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Обработка создания пко и рко

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки

Открыть новую тему     Написать ответ в эту тему

ppkmlite

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте, вопрос такой. Делаю обработку которая бы создавала приходный и расходный кассовые ордера. На форме две кассы,при выборе касс выходит на форму остаток,если он отрицательный у организации 1,то создается приходный на организацию 1, соответственно расходный на организацию 2. Реквизиты должны проставляться те которые на форме выбраны(договор,контрагент).
 
Не могу разобраться с типами значений, запуталась совсем. Выходит теперь ошибка, что операции сравнения на больше меньше только для значений совпадающих примитивных типов. То есть мне нужно узнать отрицательный остаток или нет, если да, то создать пко. Мне нужно, если я правильно понимаю, вернуть число и его сравнить??Помогите,пожалуйста
Процедура Касса1ПриИзменении(Элемент)
СуммаДок = ОстатокПоКассе();
ост = СуммаДок;
КонецПроцедуры
 
Процедура СоздаетНовыеДокументы() Экспорт
Если суммадок < 0 Тогда  
НовыйПКО = Документы.Приходныйкассовыйордер.СоздатьДокумент();
НовыйПКО.Дата = ТекущаяДата();
НовыйПКО.ОтражатьВУправленческомУчете = Истина;
НовыйПКО.Оплачено=Истина;
НовыйПКО.Организация = ОрганизацияОт.Ссылка;
НОвыйПКО.Контрагент = КонтрагентОт.Ссылка;
НовыйПКО.Касса=Касса1.Ссылка;
НовыйПКО.СуммаДокумента = суммадок;
Новаяпеременная = НовыйПКО.РасшифровкаПлатежа.Добавить();
новаяпеременная.Сделка()
НовыйПКО.Записать();
Новаястрока = Многодокументов.Добавить();
Новаястрока.Документ = НовыйПКО;
КонецПроцедуры
 
Функция  ОстатокПоКассе()  Экспорт
    Запрос = Новый Запрос;
    Запрос.Текст =  
    "ВЫБРАТЬ
    |    ДенежныеСредстваОстатки.СуммаОстаток,
    |    ДенежныеСредстваОстатки.БанковскийСчетКасса,
    |    ДенежныеСредстваОстатки.Организация
    |ИЗ
    |    РегистрНакопления.ДенежныеСредства.Остатки(&Период, ) КАК ДенежныеСредстваОстатки
    |ГДЕ
    |    ДенежныеСредстваОстатки.БанковскийСчетКасса = &БанковскийСчетКасса
    |И ДенежныеСредстваОстатки.Организация = &Организация";
    
    Запрос.УстановитьПараметр("Период", Период);
    Запрос.УстановитьПараметр("БанковскийСчетКасса", Касса1);
    Запрос.УстановитьПараметр("Организация",ОрганизацияОт);
    
    РезультатЗапроса = Запрос.Выполнить();
    
    ост = 0; ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Если ВыборкаДетальныеЗаписи.Следующий() Тогда
    ост = ВыборкаДетальныеЗаписи.СуммаОстаток;
КонецЕсли;
    //}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
Возврат ост
 

Всего записей: 13 | Зарегистр. 06-11-2013 | Отправлено: 20:57 10-11-2014
protoror



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Еще раз 10 тему создай, тогда ответят...
Неужто нельзя написать в теме по 1С?

Всего записей: 494 | Зарегистр. 23-11-2009 | Отправлено: 22:24 11-11-2014
Открыть новую тему     Написать ответ в эту тему

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Обработка создания пко и рко


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru