Имя: Пароль:
1C
 
как в 77 в документы определ. периода подставить другое значение?
,
0 program345
 
02.04.15
08:46
Добрый день!
Прошел корявый перенос из 8 ут, нужно для документов выписка изменить  с 01.08.14 по тек дату изменить банковский счет на другой. Не руками дабы их много. Что посоветуете?
1 aka AMIGO
 
02.04.15
08:50
"Чистая" 8-ка есть? Изменить в 7.7, а потом и перенести..

ЗЫ. как вариант, т.к. мне было-бы проще сделать это в 7-ке
Каждый "советующий" применяет ситуацию "на себя"
2 program345
 
02.04.15
08:51
(1) 7 ку не откатить, 8-ку тоже.
3 program345
 
02.04.15
08:51
Неправильный перенос происходил с 01.08.14 по тек дату.
4 Остап Сулейманович
 
02.04.15
08:53
(0) Раз уж ник program - написать обработку по замене расчетного счета дело на пол-часа.
5 aka AMIGO
 
02.04.15
08:54
(2) это нельзя сделать обработкой в 8-ке? не верю :)
6 Остап Сулейманович
 
02.04.15
08:54
(5) Ему в клюшках нужно.
7 program345
 
02.04.15
09:00
(6) да
8 program345
 
02.04.15
09:05
тогда подскажите какие лучше видеоуроки по клюшкам, 8 еще не освоил а 7 нужна...
9 шаэс
 
02.04.15
09:11
(8) доступ на итс есть?
http://its.1c.ru/db/metod77#content:2147484659:hdoc
10 welwel
 
02.04.15
09:15
uchoice.ert на любом диске итс
11 Остап Сулейманович
 
02.04.15
09:17
Создать обработку. На форму кинуть два реквизита "СчетСтарый", "СчетНовый" с типом "Справочник.РасчетныеСчета".
Код достаточно примитивный.

Если СчетСтарый.Выбран() = 0 Тогда
    Предупреждение("Не задан расчетный счет для поиска");
    Возврат;
КонецЕсли;
Если СчетНовый.Выбран() = 0 Тогда
    Предупреждение("Не задан расчетный счет для замены");
    Возврат;
КонецЕсли;
ДатаНачала = Дата(2014, 8, 1);
Докс = СоздатьОбъект("Документ.ВыпискаБанка"); //Вид документа - так как он задан в конфигураторе
Докс.ВыбратьДокументы(Датаначала,);
//Если нужно когда то остановиться - так же как ДатаНачала задать ДатаОкончания
//Докс.ВыбратьДокументы(Датаначала, ДатаОкончания);
Пока Докс.ПолучитьДокумент() = 1 Цикл
    //Если Нужно обрабатывать только проведенные
    //Хотя можно задать фильтром. Но для твоего случая достаточно так
    Если Докс.Проведен() = 0 Тогда
        Продолжить;
    КонецЕсли;
    Если Докс.РасчетныйСчет = СчетСтарый Тогда
        Докс.РасчетныйСчет = СчетНовый;
        Докс.Провести();
    КонецЕсли;
КонецЦикла;

Как то так.
12 program345
 
02.04.15
09:20
(11) спасибо.
13 Остап Сулейманович
 
02.04.15
09:21
(12) Не делай в рабочей базе. Потренируйся на копии. Проверь проводки. Только потом скажешь спс.
14 welwel
 
02.04.15
09:23
(0) (10) на мыло отправил
15 program345
 
02.04.15
10:08
В итоге получилось:

//*******************************************
Процедура Сформировать()

    Если СчетСтарый.Выбран() = 0 Тогда
        Предупреждение("Не задан расчетный счет для поиска");
        Возврат;
    КонецЕсли;

    Если СчетНовый.Выбран() = 0 Тогда
        Предупреждение("Не задан расчетный счет для замены");
        Возврат;
    КонецЕсли;
    
    ДатаНачала = Дата(2014, 8, 1);
    //ДатаОкончания = Дата(2015, 3, 1);
        
    Докс = СоздатьОбъект("Документ.Выписка"); //Вид документа - так как он задан в конфигураторе
    
    Докс.ВыбратьДокументы(Датаначала,);
    //Если нужно когда то остановиться - так же как ДатаНачала задать ДатаОкончания
    //Докс.ВыбратьДокументы(ДатаОкончания,);
    
    //Докс.ВыбратьДокументы(Датаначала, ДатаОкончания);
    
    Пока Докс.ПолучитьДокумент() = 1 Цикл
        //Если Нужно обрабатывать только проведенные
    
        //Хотя можно задать фильтром. Но для твоего случая достаточно так
    
        Если Докс.Проведен() = 0 Тогда
            Продолжить;
        КонецЕсли;
        
        Если Докс.БанковскийСчет = СчетСтарый Тогда
            Докс.БанковскийСчет = СчетНовый;
            Докс.Провести();
        КонецЕсли;
    КонецЦикла;

    Докс = СоздатьОбъект("Документ.ПриходныйОрдер");
    Докс.ВыбратьДокументы(Датаначала,);
    
    Пока Докс.ПолучитьДокумент() = 1 Цикл
        //Если Нужно обрабатывать только проведенные
    
        //Хотя можно задать фильтром. Но для твоего случая достаточно так
    
        Если Докс.Проведен() = 0 Тогда
            Продолжить;
        КонецЕсли;
        
        Если Докс.Субконто1 = СчетСтарый Тогда
            Докс.Субконто1 = СчетНовый;
            Докс.Провести();
        КонецЕсли;
16 program345
 
02.04.15
10:09
всем спасибо!