Как в проводках программно заменить значения Дебита и Кредита за определенный период

В Операции

(0) очень важный вопрос: ЗАЧЕМ?

собственно если речь о ручной операции - выбираете проводки и в тз записываете. Далее программно перебираете строик тз и в дебет кредит записываете а в кредит дебит

(2) наверно не хочет перепроводить...

Программно в цикле в Операции

))
Ничего вы не понимаете )))
Вот так настоящие бухи сдают отчетность !!!

что вам нужно сделать - сторно?

Если более детально опишете задачу - вам ответят быстрее и, главное, правильно

(8) На предмет замены значений дебИта желания отвечать нет

Как программно изменить операцию документа?

(0) Для получения помощи не хватает одной немаловажной детали.

выбратьпроводки()
получитьпроводку()

Опер=СоздатьОбъект("Операция");
   Документ=СоздатьОбъект("Документ.Операция");
   Если Опер.НайтиОперацию(Документ.ТекущийДокумент())=1 Тогда
   Опер.Кредит="";
   Опер.Записать();
   КонецЕсли;
   Опер.НайтиОперацию(Опер.Документ);
   Опер.ВыбратьПроводки();
       Пока Опер.ПолучитьПроводку()="1000" Цикл
           Если Опер.Дебет.Счет.Код="112" Тогда
               Опер.Дебет.Счет.Код ="1121";
           ИначеЕсли Опер.Дебет.Счет.Код="131" Тогда
               Опер.Дебет.Счет.Код="1311";
           ИначеЕсли Опер.Дебет.Счет.Код="104" Тогда
               Опер.Дебет.Счет.Код ="1041";
           КонецЕсли;
           Если Опер.Кредит.Счет.Код="106" Тогда
               Опер.Кредит.Счет.Код ="1061";
           ИначеЕсли Опер.Кредит.Счет.Код="132" Тогда
               Опер.Кредит.Счет.Код ="1321";
           ИначеЕсли Опер.Кредит.Счет.Код="109" Тогда
               Опер.Кредит.Счет ="1091";
           КонецЕсли;
       КонецЦикла;
   Опер.Записать();
Пишет Операция не выбрана

Документ=СоздатьОбъект("Документ.Операция");
   Если Опер.НайтиОперацию(Документ.ТекущийДокумент())=1 Тогда

Ну и что вы тут пытаетесь сделать, подумайте.

Опер.ВыбратьПроводки
Пока Опер.ПолучитьПроводку() = 1 Цикл

Тут всякие манипуляции

Опер.Записать()

КЦ

Эта обработка меня уже достала Пишет переменная Операция не определена
   Операция=СоздатьОбъект("Операция");
   Документ=СоздатьОбъект("Документ.Операция");
   Операция.НайтиОперацию(Документ)="1000";
   Операция.ВыбратьПроводки();
.        Пока Операция.ПолучитьПроводку()="1" Цикл
           Если Операция.Дебет.Счет="112" Тогда
              Операция.Дебет.Счет ="1121";
           ИначеЕсли Операция.Дебет.Счет="131" Тогда
              Операция.Дебет.Счет="1311";
             ИначеЕсли Операция.Дебет.Счет="104" Тогда
             Операция.Дебет.Счет="1041";
           КонецЕсли;
               Если Операция.Кредит.Счет="106" Тогда
                  Операция.Кредит.Счет="1061";
           ИначеЕсли Опер.Кредит.Счет="132" Тогда
               Операция.Кредит.Счет ="1321";
           ИначеЕсли Операция.Кредит.Счет="109" Тогда
               Операция.Кредит.Счет="1091";
               КонецЕсли;
         КонецЦикла;
   Операция.Записать();

Что может быть???

СчётПоКоду()

Операция.НайтиОперацию(Документ)="1000";


Что это??? О_о

(16)

1. удалить код
2. поставить фото

Мне нравиться, где-то Операция, где-то Опер.

Код вообще зачетный...

Юля-Корж...Без фото точно не взлетит.

(17) Куча обработок по замене значений. Нафейхуа велик?

Фото поставлю не думайте я выгляжу хорошо

(24) ты слово "что" пропустила :-))
И ответь на (19)...

(24) сомнения

Мне просто сейчас не до этого у меня три обработки надо сделать в быстрые сроки иначе ласты

(27)
фотку авансом
2. назвать, что это бухия или Укр, или УЗ

Сомневайся дальше у меня поклонников много

бу га га

(29) см (19)

Лучше этого не делать, а так то все оченно проста, даже нечего открывать не надо :)

прошло 5 минут

и Счет.Код, опер исправила, и всё равно переменная Операция не определена

(34) см. в (19) / (20)

прошло ещё 8 минут

(35) погоди
Юля ищет фото.

Отвалите, Юля СМОТРИТ В ОБРАБОТКУ

(37) "застремалась" поди =)

Фотку потом, завтра

завтра и будет ответ

Ну спасибо!!! Это забастовка?

(42) см (19)

(19) найти операцию с номером 1000

(44) телепат

Меня начальник сегодня пришьёт,а завтра фотку ставить будет не кому

(46) см (19)

В 1000-ОЙ Операции надо помнять  Дебеты и Кредиты в проводках

(45) тут ещё не ясно, что за государство


(46) он тоже поклонник ?

(46) чисто логически, отсюда вывод - фотку надо ставить сегодня :)

Государство Украина г.Мариуполь

(48) не правильно ты её находишь

(51) 28 летъ ?

(51) Покажи что наисправляла.

Юля, неправильные места программы:
   Операция.НайтиОперацию(Документ)="1000";
1.так не ищется документ.

 Пока Операция.ПолучитьПроводку()="1" Цикл
2.Вообще-то, .ПолучитьПроводку() возвращает 1 или 0, а не "1" или "0"
           Если Операция.Дебет.Счет="112" Тогда
              Операция.Дебет.Счет ="1121";
3.и т.д. Пользуйся методом счетПоКоду()
и всё заработает

(54) пусть другое показывает

+
счета
112
112
104
106
132
109

счета-группы ?

Операция=СоздатьОбъект("Операция");
   Документ=СоздатьОбъект("Документ.Операция");
   Операция.НайтиОперацию(Документ);
   Операция.ВыбратьПроводки();
.        Пока Операция.ПолучитьПроводку()="1" Цикл
           Если Операция.Дебет.Счет.Код="112" Тогда
              Операция.Дебет.Счет.Код ="1121";
           ИначеЕсли Операция.Дебет.Счет.Код="131" Тогда
              Операция.Дебет.Код="1311";
             ИначеЕсли Операция.Дебет.Счет.Код="104" Тогда
             Операция.Дебет.Счет.Код="1041";
           КонецЕсли;
               Если Операция.Кредит.Счет.Код="106" Тогда
                  Операция.Кредит.Счет.Код="1061";
           ИначеЕсли Операция.Кредит.Счет.Код="132" Тогда
               Операция.Кредит.Счет.Код ="1321";
           ИначеЕсли Операция.Кредит.Счет.Код="109" Тогда
               Операция.Кредит.Счет.Код="1091";
               КонецЕсли;
         КонецЦикла;
   Операция.Записать();

только через мисту-матумбу

(57) не, не взлетит

код счету присваивать низя. можно присваивать объект типа счет

Кредит.Счет = СчетПоКоду("109.1");

типа такого

может, ючойсом лучше?

и про это написали в (55)
//Пока Операция.ПолучитьПроводку()="1" Цикл

Пока Операция.ПолучитьПроводку()=1 Цикл

Нажми "Конфигурация-поиск во всех текстах" и поищи
СоздатьОбъект("Операция")

у тебя будет куча готового кода

(61) Тык уже было в (23), но автор особо упертый

ВыбратьОперации(<НачалоПериода>,<КонецПериода>);
потом в цикле ПолучитьОперацию()
проверяешь что это та операция с которой ты хочешь бороться и потом уже работаешь с проводками

Если совсем сложно найти операцию программно, то можно и в обработку добавить реквизит, и выбрать операцию ручками

интересно, а зачем эти субсчета "1121", "1091" и пр.?
3х субконто на стандартных 112,109 не хватило?

Это для тренеровки а конкретно совсем на другие счета

(68)ты надеюсь не на боевой базе тренируешься на "тренировочных" счетах??

ручками уже бы 100 раз сделала что хотела.

Я так понимаю что это будет в последствии не одна операция

Понятно,что одноразово да,а многоразово

сись

Естественно я тренируюсь на копии у меня уже этих копий масса для тренеровок

Функция ЗаменитьНаСоотвествиеСчет(Счет, Соотвествие)    
   СчетСоотвествия = Соотвествие.Получить(Счет.Код);
   Если ПустоеЗначение(СчетСоотвествия)=1 Тогда
       Возврат 0;
   КонецЕсли;
   Счет = СчетСоотвествия;
   Возврат 1;
КонецФункции

СписокСоответсвияЗаменыДт = СоздатьОбъект("СписокЗначений");
СписокСоответсвияЗаменыДт.ДобавитьЗначение(СчетПоКоду("1121"), "112");
СписокСоответсвияЗаменыДт.ДобавитьЗначение(СчетПоКоду("1311"), "131");
СписокСоответсвияЗаменыДт.ДобавитьЗначение(СчетПоКоду("1041"), "104");

СписокСоответсвияЗаменыКт = СоздатьОбъект("СписокЗначений");
СписокСоответсвияЗаменыКт.ДобавитьЗначение(СчетПоКоду("1061"), "106");
СписокСоответсвияЗаменыКт.ДобавитьЗначение(СчетПоКоду("1321"), "132");
СписокСоответсвияЗаменыКт.ДобавитьЗначение(СчетПоКоду("1091"), "109");

Опер = СоздатьОбъект("Операция");

//....

ЕстьХотьОдноСоотвествие = 0;
Пока Опер.ПолучитьПроводку()=1 Цикл
   ЕстьХотьОдноСоотвествие = ЕстьХотьОдноСоотвествие + ЗаменитьНаСоотвествиеСчет(Опер.Дебет.Счет , СписокСоответсвияЗаменыДт);
   ЕстьХотьОдноСоотвествие = ЕстьХотьОдноСоотвествие + ЗаменитьНаСоотвествиеСчет(Опер.Кредит.Счет, СписокСоответсвияЗаменыКт);
КонецЦикла;
Если ЕстьХотьОдноСоотвествие <> 0 Тогда
   Опер.Записать();
КонецЕсли;

(57)
>Операция=СоздатьОбъект("Операция");
>Документ=СоздатьОбъект("Документ.Операция");
>Операция.НайтиОперацию(Документ);
Документ сперва найди по номеру, а потом его операцию уже ищи

странное молчание

Поулыбался )

авто у начальника ?

*автор

Одно успокаивает -  завтра ТС обещала фотку выложить!!!

(81) не выложит

Ой, спать не буду - ждать время 00:01 завтрашнего дня.

(82) А я верю в людей. Нас Юлия не обманет, иначе будет игнорироваться 10 тысяч лет. А этого она же не хочет, я так думаю.

(82) не может быть такого, мы так старались помочь

Ребятки я извиняюсь,посмотрите сюда,что здесь не так, мне надо выбрать операцию 1000-ную, бо надо уже отдавать обработку
   Операция=СоздатьОбъект("Операция");
   Документ=СоздатьОбъект("Документ.Операция");
   Документ=Документ.НайтиПоНомеру("1000");
   Операция.НайтиОперацию(Документ);
   Операция.ВыбратьОперации();
       Пока Операция.ПолучитьОперацию()>0 Цикл        
               Операция.ВыбратьПроводки();
               Пока Операция.ПолучитьПроводку()="1" Цикл
                   Если Операция.Дебет.Счет.Код= СчетПоКоду("112") Тогда
                          Операция.Дебет.Счет.Код= СчетПоКоду("112.1");
                       ИначеЕсли Операция.Дебет.Счет.Код=СчетПоКоду("131") Тогда
                          Операция.Дебет.Счет.Код=СчетПоКоду("131.1");
                         ИначеЕсли Операция.Дебет.Счет.Код=СчетПоКоду("104") Тогда
                         Операция.Дебет.Счет.Код=СчетПоКоду("104.1");
                       КонецЕсли;
                             Если Операция.Кредит.Счет.Код=СчетПоКоду("106") Тогда
                                Операция.Кредит.Счет.Код=СчетПоКоду("106.1");
                           ИначеЕсли Операция.Кредит.Счет.Код=СчетПоКоду("132") Тогда
                               Операция.Кредит.Счет.Код=СчетПоКоду("132.1");
                           ИначеЕсли Операция.Кредит.Счет.Код=СчетПоКоду("109") Тогда
                               Операция.Кредит.Счет.Код=СчетПоКоду("109.1");
                       КонецЕсли;
                   КонецЦикла;        
           КонецЦикла;        
               Операция.Записать();

Всё правильно???

Пишет, что операция не выбрана

(88) Забей

(89) :-)))

(86) Вы из счета 112 сделали группу и субсчет 112.1? разве после реструктуризации не образуется в таком случает 112.0?

(86) ты в (75) код смотрела ?

Мне надо в этом Коде посмотреть ошибки

Запускается обработка и виснит,я уже субсчета убрала,поставила замену на другие счета

(93) это не код, а хня

А,ЧТО НЕ ВЕРНО?

(96) мой код видела ?

(97) объяснил-бы ребенку, что "+ code" скрывает код 1с, и надо жмакнуть по этой конструкции, чтобы раскрыть текст :)

не умею

сотня

(99) плохи твои дела! :)

Видела !!! Нормально,я скопировала, но он у меня много ошибок выбивает мне некогда его отлаживать,а в этом уже фигня осталась,тут ответ где-то на поверхности, синтаксичеких нет,запускается но виснит при отработке,мне надо выяснить почему он виснит,потому что не находит операцию циклится и не Записывает в БД

(102) вот и потратишь втрое больше времени..

(102) у меня ошибки ? о_О

(104) у неё! :)

(102) Ответь на (91) и возможно твоя обработка не понадобиться вообще

ZDenis у укр конф нету субсчетов, как у Россиян через "."

(104) наверняка выскакивает ""СписокСоответсвияЗаменыДт - не определена!" :)

Операция=СоздатьОбъект("Операция");
   Документ=СоздатьОбъект("Документ.БухгалтерскаяСправка");
   Документ.НайтиПоНомеру("00000000008",Дата("30.06.2011"));
   Операция.НайтиОперацию(Документ.ТекущийДокумент());
   Операция.ВыбратьПроводки();
   Пока Операция.ПолучитьПроводку()=1 Цикл
       Если Операция.Дебет.Счет= СчетПоКоду("112") Тогда
           Операция.Дебет.Счет= СчетПоКоду("112.1");
       ИначеЕсли Операция.Дебет.Счет=СчетПоКоду("131") Тогда
           Операция.Дебет.Счет=СчетПоКоду("131.1");
       ИначеЕсли Операция.Дебет.Счет=СчетПоКоду("104") Тогда
           Операция.Дебет.Счет=СчетПоКоду("104.1");
       КонецЕсли;
       Если Операция.Кредит.Счет=СчетПоКоду("106") Тогда
           Операция.Кредит.Счет=СчетПоКоду("106.1");
       ИначеЕсли Операция.Кредит.Счет=СчетПоКоду("132") Тогда
           Операция.Кредит.Счет=СчетПоКоду("132.1");
       ИначеЕсли Операция.Кредит.Счет=СчетПоКоду("109") Тогда
           Операция.Кредит.Счет=СчетПоКоду("109.1");
       КонецЕсли;
   КонецЦикла;
   Операция.Записать();





1) Документ=Документ.НайтиПоНомеру("1000");
У тя переменная Документ = 1 или 0 после такого кода;
Документ.НайтиПоНомеру("1000"); //Просто без всякого Документ=Документ.НайтиПоНомеру("1000");


2) Операция.Кредит.Счет = СчетПоКоду("109.1");

3) А вообще ошибок валом юзай синтаксис помощьник читай какие параметры нужно передавать (какие обязательно какие необязательно), отладчик тебе в помощь дабы посмотреть что у тебя там творится.

(107) ух, не знал...

(108) всё определено
смотри внимательно код

Нет,я знаю что надо объявлять переменную идентификатор списка

(109) разницу между документом и операцией, введенной в ручную, знаешь ?

(111) угу..ладушки, счас бухию открою, посмотрю..

(114) проверил ?

(115)да, я не прав категорически.. невнимательность моя подвела :)

вот это развлекуха...

Не виснит, запускается но пишет операция не выбрана

(118) её нужно найти

как и фотку

Но пожайлуста,меня сегодня убьют и не кому будет фотку ставить, прямо сейчас у меня времени в запасе полчаса и всё

(121) вот интересно, если к тебе сантехник придет с такими же знаниями ты его долго терпеть будешь? может все таки честнее будет уволится?

Сам увольняйся я работаю всего два месяца,вообще с 1С

(122) не грузи уж..

(121) что у тебя вместо //... в реальной обработке?.. это я просто так, интересуюсь, поскольку у меня проскальзывает мимо всех операторов  модуля

(123) видимо наглость - второе счастье.

Я научусь!!!

(125) девочка в ужасе, а ты накатываешь.. 2 месяца в 1с - не так уж и много

Осталось 18 минут

(126) отладчик открывала? где авостит?


(128) кстати, 80% от времени на законченный программный продукт занимает отладка, а не кодирование :)

(129) Сабж в топку, учоис в руки. Ещё можно и успеть

(129) 80 % много

70 % - это только обдумать корректность решения =)

(128) +100

и бедт через матумбу

(131) 70% и входят в эти 80% :)

только после написания и начинаются думы и приходят светлые мысли :)

(134) должно быть наоборот, если рука набьита

(135) +1000 :))

ЮлияКорж ну как ?

Время вышло; ТС уволен; всем можно расслабиться

больше у ТС нет к вам доверия :)
угадайте с 3-х раз, будет фотка? :)

+139 у меня смутное впечатление, что она невнимательно читает посты.. совсем, как я :) по-диагонали :)

(138) если ещё жива ?

Это жесть...  Такого не бывает...

(142) Хотя... Нас сегодня новая программистка из отдаленного филиала, кстати тоже Юля и тоже на грани увольнения, озадачила вопросом: Как перенести список внеоборотных активов в справочник материалов и тоже что-то писать начала, боюсь спрашивать что она наваяла...

А ТЫ АС,ОТВЕТЬ МНЕ НА ЭТОТ ВОПРОС,А Я НАПИСАЛА

(144) А теперь без крика и по русски, чтобы понятно было о чем ты...

Ответь в чем была ошибка,проанализируй код почему выдавало Операция не выбрана

(146) Тут и анализировать нечего...
С чего ты взяла что ЭТО вообще должно работать ?

А почему нет?

(148)
Документ=Документ.НайтиПоНомеру("1000")
После этого Документ будет равен 1 или 0

(148) Да тут помимо полного незнания принципов работы, синтаксиса и всего прочего, так еще и совершенно идиотские конструкции

Вот ты мне скажи, что ты тут пытаешься сделать ?

1) Операция.ПолучитьПроводку()="1"

2) Если Операция.Дебет.Счет.Код= СчетПоКоду("112") Тогда

3) Операция.Дебет.Счет.Код= СчетПоКоду("112.1");


И это еще малая часть бреда...

вот прям по пунктам напиши, 1,2,3

Не надо передирать у FOXskr

Это даже похлеще чем у меня коллега на днях отчет писал, на управляемых формах, с конструкциями:

<Переменная> = Объект.Ссылка.ПолучитьОбъект().<имя реквизита>;

(151) так у вас получилось?
З.Ы. как для 2х месяцев опыта неплохо пишет. Я видел работающих спецов с опытом в 8 месяцев не способных в 7ке перебор документов написать

birkoFFFF смотри (75) - всё уже написано

(154) Да это понятно все, что уже все написано, я просто не понимаю, она сама свои ошибки вообще что-ли не видит ?

(152) уволила её ?

(155) есть подозрение, что это .... =)

(156) Это ОН )))
Не в моей компетенции )))

(158) ужас : опорочил пол
и какая должность ?

(159) Ведущий инженер-программист
Ну он как-бы на 8-ке недавно, семерошник...

(160) он не в курсе, что всё запросами пишется ?

(161) Я не спрашивала, неудобно как-то...
Он больше чем на 10 лет меня старше, не мне его учить...

(162) увольняй

(163) Я-ж говорю, не в моей компетенции...

По ходу автор соблазнил начальника, он её таки не убил и завтра ветка будет апаться с самого утра...

(164) главное уметь создавать президент =)

(166) Как-то не по человечески (((
Хорошо что я сейчас не начальник ))) Не нравилось мне увольнять, хотя и приходилось...

где продолжение ?

а фотка есть уже

Ы =)

ответ ТС:
покажи итоговый код. Если как в (109), тогда у тебя комп сперва не нашёл бух.справку №00000000008 от 30.06.2011
А операцию у этого не найденного документа конечно не может он выбрать! ;)