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

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

сись

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

Функция ЗаменитьНаСоотвествиеСчет(Счет, Соотвествие)    
   СчетСоотвествия = Соотвествие.Получить(Счет.Код);
   Если ПустоеЗначение(СчетСоотвествия)=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
А операцию у этого не найденного документа конечно не может он выбрать! ;)