і на тому дякую!

Ну значіть і довідники перенесу. Я не знаю як сформувати операції, тобто які рахунки по дебеті, а я які по кредиті (хоча головний бух. сказав що потрібно все перенести на один рахунок - 682). Залишки по субконто також не знаю як отримати. Коли я буду формувати відповідні операції, то відразу і буду вигружати в ексель. А потім напишу обробку, яка буде затягувати цей файл і створювати дзеркальні операції.

головне підприємство зливається з філією, от і потрібно перенести сальдо рахунків по всіх субконто

Можливо є, якісь обробки? Допоможіть як це організувати, бо в бухгалтерії не розуміюсь.

Бухгалтерія перша та друга бух. Конфігурації одинакові, крім довідників.

Є в мене один варіант, але не виходить отримати "Бух. итоги" по всіх рахунках, підрахункам та їхнім всім субконто.

доброго всім дня. Підкажіть як перенести сальдо по всіх рахунках в іншу базу.

1. 2008 сервер 64-біт )
2. 1С 7,7
3. Тільки одна. РОМ-МАЙЛ


так точно

ага, тільки в одного користувача...який підключається по RDP

ось як розрулиться ситуація, то обов'язково )))

я вже пробував свою адресу і пароль підставляв, не хтіт

І ще раз, доброго дня. Проблема знову ж таки актуальна. Виникає помилка "Поле агрегатного объекта не найдено - ОтправляемоеПисьмо.АдресДляОтвета=СокрЛП(АдресОтправителя); (АдресДляОтвета)". Підкажіть в чому проблема?

Я так розумію мені ніхто не допоможе з CRC сумами по ШК

До нас приходять накладні з головного офіса, в електронному та паперовому вигляді. На паперовому вже існує ШК. Наскільки я розумію то бухгалтерія повинна звіряти їх в кінцці місяця. Повинно находити документ в базі та відповідно щоб був однаковий ШК. Структуру ШК можна побачити в функціях яких я скинув.

Доброго всім дня. Склалась ось така ситуація: Є обробка з допомогою якої звіряють документи по ШК (штрих коду). Документи вона знаходить, а от при виконанні фукції шкПолучитьСтрокуШКПоДокументу(), повертає значення не таке як має бути. Попрацювавши трішки з отладчиком, вияснилось, що не правильнго розраховується CRC32HEX сума.

 Функция шкПолучитьСтрокуШКПоДокументу(Док, ТекстОшибки = "", CRC32 = "", ДляПокупателя = Истина) Экспорт
    ВидД = ТипЗнч(Док);

    //версия алгоритма
    VV = "01";
    
    //вид документа
    P = "";
    Если ВидД = Тип("ДокументСсылка.РеализацияТоваров") Тогда
        P = ?(ДляПокупателя,  "1", "0");
    ИначеЕсли ВидД = Тип("ДокументСсылка.ПоступлениеТоваров") Тогда
        P = "1";
    ИначеЕсли ВидД = Тип("ДокументСсылка.ЗаказНаряд") Тогда
        P = "2";
    ИначеЕсли ВидД = Тип("ДокументСсылка.ПеремещениеТоваровВПроизводство") Тогда
        P = "3";
    ИначеЕсли ВидД = Тип("ДокументСсылка.СписаниеТоваров") Тогда
        P = "4";
    ИначеЕсли ВидД = Тип("ДокументСсылка.ВводОстатковТоваров") Тогда
        P = "6";
    ИначеЕсли ВидД = Тип("ДокументСсылка.ИзвлечениеТоваровИзПроизводства") Тогда
        P = "9";
    КонецЕсли;
    
    Если P = "" Тогда
        Если ТекстОшибки <> "" Тогда
            ТекстОшибки = ТекстОшибки + Символы.ПС;
        КонецЕсли;
        ТекстОшибки =  ТекстОшибки + "Вид документа """ + Строка(ВидД) + """ не может быть обработан!";
        Возврат 0;
    КонецЕсли;

    
    
    //DDMMYY - дата документа
    Если ВидД = Тип("ДокументСсылка.ПоступлениеТоваров") Тогда
        ДатаДок = Формат(Док.ВхДокНомер,"ДФ=dd.MM.yy");
    Иначе
        ДатаДок = Формат(Док.Дата,"ДФ=dd.MM.yy");
    КонецЕсли;
    
    DD = Сред(ДатаДок,1,2);
    MM = Сред(ДатаДок,4,2);
    YY = Сред(ДатаДок,7,2);

    
    //C - CRC32, построенное по выбранным полям документа
    //CRC32 = "";
    CRC32HEX = "";
    СимволРазделитель = ";";
    Если дкДокументЕстьРеквизитШапки("Контрагент", Док.Метаданные().Имя) Тогда
        ЕГРПОУ = СокрЛП(Док.Контрагент.ЕДРПОУ);
    Иначе
        ЕГРПОУ = "";
    КонецЕсли;    
    
    Если ВидД = Тип("ДокументСсылка.РеализацияТоваров") Тогда
        ЕГРПОУ = СокрЛП(Док.Организация.ЕДРПОУ); // т.о. когда это будет ПН там наша фирма будет Контрагент
    КонецЕсли;      
    
    CRC32 = ЕГРПОУ + СимволРазделитель;
    
    CRC32 = ДописатьТЧВСтрокуДляCRC32(Док, "Товары", CRC32);
    
    Если ВидД = Тип("ДокументСсылка.ЗаказНаряд") Тогда
        CRC32 = ДописатьТЧВСтрокуДляCRC32(Док, "Работы", CRC32);
    КонецЕсли;
    
    CRC32HEX = hex_(Число(шкХеш(CRC32)));
    
    //N - номер документа
    Если ВидД = Тип("ДокументСсылка.ПоступлениеТоваров") Тогда

        N = шкТранслитерация(СокрЛП(Док.ВхДокНомер), "RUEN", ТекстОшибки);
    Иначе
        N = шкТранслитерация(СокрЛП(Док.Номер), "RUEN", ТекстОшибки);
    КонецЕсли;
    
    Если ТекстОшибки = "" Тогда
        СтрокаШК = VV + P + DD + MM + YY + CRC32HEX + N;
        Возврат СтрокаШК;
    Иначе
        Возврат 0;
    КонецЕсли;
КонецФункции // глПолучитьСтрокуШКПоДокументу

Ось сама функція шкХеш()

Функция шкХеш(СтрокаХэш) Экспорт 
    Строка_ = СокрЛП(Строка(СтрокаХэш));                         //Получаем строку и убираем ведущие и ведомые пробелы    
    НачПозиция = 1;                                              //Переменная начальной позиции блока
    hash=0;                                                      //Переменная хеша;
    M=33;                                                        //Переменная точности
    ДлинаСтроки = СтрДлина(Строка_);                            //Получаем длину входной строки
    //Организовываем цикл обработки по блокам из 10 символов
    Пока НачПозиция <= ДлинаСтроки Цикл
        СтрокаБлока = Сред(Строка_, НачПозиция, 10);            //Получае блок
        //Цикл получения хеша блока
        Для к = 1 По СтрДлина(СтрокаБлока) Цикл
            hash = M * hash + КодСимволаASCII(Сред(СтрокаБлока, к,1));
        КонецЦикла;
        hash = hash % 4294967296;                                //Остаток от деления определяет разрядность хеша (4294967296 - 4 байт,18446744073709551616 - 8 байт)
        НачПозиция = НачПозиция + 10;                           //Начальная позиция следующего блока
    КонецЦикла;
    Результат = hash;
    Возврат Результат;
КонецФункции //Хеш

В результаті на паперовому носії ШК - 011050514BA71C97EZAP1405008;
При відпрацювання обробки ШК - 0110505145480487EZAP1405008;

Чому різні CRC32 суми. Допоможіть розібратись. Дякую.
Конфа - "Альфа"
1С-8.2.17.143

Мені потрібно було щоб не було НДС в проводці по БВ після першої події...от його і не стало.

Підкажіть хтось...чи правильно буде формуватись проводка?
Дякую.

Після цього в операції попадає сумма НДС і записується.


Зараз зробив тестову базу і в документі залишив тільки одину строку.

Змінив тут:

Если (РазницаНДС = 0) И (СчетУчета = СчетПоКоду("683")) Тогда
     глПроводка(Контекст,"643","6415",НДС,"НДС",, Субконто,Заказ,ГруппаМСФО, ВидНДС,,, ,,"БК");    
КонецЕсли;

на ось таке:

Если (РазницаНДС = 0) И (СчетУчета = СчетПоКоду("683")) Тогда
     глПроводка(Контекст,"643","6415",РазницаНДС,"НДС",, Субконто,Заказ,ГруппаМСФО, ВидНДС,,, ,,"БК");    
КонецЕсли;

після ось таких маніпуляцій, в проводці не має НДС 643-6415.
Підкажіть чи правильні дії виконав? Дякую.

Перепрошую, але я повинен знайти НДС яке буде дорівнювати суммі, яка в моєму документі?

vadim007,

Если ДоходИздержка = Перечисление.ПлюсМинусНичего.Плюс Тогда
            глПроводка(Контекст,"643","6415",-РазницаНДС,"НДС, сторно",, Субконто,Заказ,ГруппаМСФО, ВидНДС,,, ,,"БК");
        Иначе
            Если (Константа.НДСпоВходящимНН = Да) И (РСчет.Валюта = Гривня) Тогда
                // проводку по налоговому кредиту сделаем в документе ЗаписьКнигиПриобретения
                глПроводка(Контекст,"6442","6441",РазницаНДС,"НДС",, Субконто,Заказ,ГруппаМСФО, Субконто,Заказ,ГруппаМСФО, ,,"БК");
            Иначе
                // сразу налоговый кредит
                глПроводка(Контекст,"6415","6441",РазницаНДС,"НДС",, ВидНДС,,, Субконто,Заказ,ГруппаМСФО, ,,"БК");
            КонецЕсли;
        КонецЕсли;
........................
.......................
.....................
Если ДоходИздержка = Перечисление.ПлюсМинусНичего.Минус Тогда
            Если (Константа.НДСпоВходящимНН = Да) И (РСчет.Валюта = Гривня) Тогда
                // проводку по налоговому кредиту сделаем в документе ЗаписьКнигиПриобретения
                глПроводка(Контекст,"6442","6441",-РазницаНДС,"НДС, сторно",, Субконто,Заказ,ГруппаМСФО,Субконто,Заказ,ГруппаМСФО, ,,"БК");
            Иначе
                // сразу налоговый кредит
                глПроводка(Контекст,"6415","6441",-РазницаНДС,"НДС, сторно",, ВидНДС,,,    Субконто,Заказ,ГруппаМСФО, ,,"БК");
            КонецЕсли;
        Иначе 
            глПроводка(Контекст,"643","6415",РазницаНДС,"НДС",, Субконто,Заказ,ГруппаМСФО, ВидНДС,,, ,,"БК");
            Если (РазницаНДС = 0) И (СчетУчета = СчетПоКоду("683")) Тогда
                глПроводка(Контекст,"643","6415",НДС,"НДС",, Субконто,Заказ,ГруппаМСФО, ВидНДС,,, ,,"БК");    
            КонецЕсли;
        КонецЕсли;

vadim007,



Мабуть, потрібно було уточнити, що "конфа" дописувалась, а точніше модуль документа Документ.БанковскаяВыписка, по 683 рахунку. Але не можу розібратися де перевіряється на першу подію з іншими рахунками, щоб вставити її по 683 рахунку.

vadim007,
1. Документ Заказ-Нарялд;
2. БВ - 30.05.14 ЗН - 14.05.14
3. Перший був проведений БВ.

Щойно перепровів. Спочатку ЗН, потім БВ, але нічого не змінилось.

Доброго всім дня. Підкажіть в такій проблемі. Банківська виписка не бачить першу подію по ПДВ і виходить проводка 643-6415, але це тільки по 683 рахунку. Хоча має виписка бачити першу подію передплата і проводки 643-6415 не повинно бути. Підкажіть де знайти в модулі перевірку на першу подію. Дякую.

найшлось рішення, все підтягує.

    СпрВидыЗатрат = СоздатьОбъект("Справочник.ВидыЗатрат");
            кодЗатратОтпуск = 0;
            Если Лев(ТекСчетЗатрат.Код,2) = "23" Тогда
                кодЗатратОтпуск = 40; // 60;
            ИначеЕсли Лев(ТекСчетЗатрат.Код,2) = "92" Тогда    
                кодЗатратОтпуск = 117; // 121;
            ИначеЕсли Лев(ТекСчетЗатрат.Код,2) = "93" Тогда    
                кодЗатратОтпуск = 153; // 157;
            ИначеЕсли Лев(ТекСчетЗатрат.Код,2) = "94" Тогда    
                кодЗатратОтпуск = 280; // 281;
            ИначеЕсли Лев(ТекСчетЗатрат.Код,3) = "977" Тогда
                ТекВидЗатратОтпуск = ТекВидЗатрат;
            ИначеЕсли Лев(ТекСчетЗатрат.Код,3) = "471" Тогда
                ТекВидЗатратОтпуск = ТекВидЗатрат
            КонецЕсли;
            //ВидЗатратОтпуск = "";
            Если СпрВидыЗатрат.НайтиПоКоду(кодЗатратОтпуск,0) = 1 Тогда
                ТекВидЗатратОтпуск = СпрВидыЗатрат.ТекущийЭлемент();
            КонецЕсли;

Дякую всі.

Вид затрат=Оплата труда с начислен. (консервация)
Вид деятельности=Прочая деятельность не н/у

Дякую. Буду пробувати через отладчик

Вказаний рахунок 471

Вказаний
Можливо Вам ось це допоможе

Процедура ПроводкиДно()
    //Базы.Свернуть("СчетЗатрат,ВидЗатрат,ВидДеятельности,НиО","Оклад,Отпускные,ОблагаемаяМатПомощь,ОблагаемаяМатПомощьВР,Индексация,Больничные,БольничныеЗаСчетПредприятия");
    тбБазы.Свернуть("СчетЗатрат,ВидЗатрат,ВидДеятельности,НиО","Оклад,Отпускные,ОблагаемаяМатПомощь,ОблагаемаяМатПомощьВР,Индексация,Больничные,БольничныеЗаСчетПредприятия,БольничныеИнв,БольничныеЗаСчетПредприятияИнв");
    тбБазы.Сортировать("НиО,СчетЗатрат,ВидДеятельности,ВидЗатрат");
    
    глСписокОшибокОкругления.УдалитьВсе();
    ИтСуммаОтчислениеБУ = 0;
    
    //для расчета взносов ФОП больничных инвалидов
    ПолучитьНиО("ФЗПЕСВИнв");   
    СтавкаИнв = тбНиО.Ставка;  
    
    СпрВидыЗатрат = СоздатьОбъект("Справочник.ВидыЗатрат");
    
    тбБазы.ВыбратьСтроки();
    Пока тбБазы.ПолучитьСтроку() = 1 Цикл
        ПолучитьНиО(тбБазы.НиО); 
        Если НачалоПериода<'01.12.2011' Тогда 
            //по общей ставке
            СтавкаИнв = тбНиО.Ставка;
        КонецЕсли;
        
        //СуммаОтчисленийБезОтпуска    = глОкрКорр(тбНиО.Код, тбНиО.Ставка * (тбБазы.Оклад + тбБазы.ОблагаемаяМатПомощь + тбБазы.ОблагаемаяМатПомощьВР + тбБазы.Индексация + тбБазы.Больничные + тбБазы.БольничныеЗаСчетПредприятия) 
        //                                +(тбБазы.БольничныеЗаСчетПредприятияИнв+тбБазы.БольничныеИнв)*СтавкаИнв, 2);
                                        
        СуммаОтчисленийБезОтпуска    = глОкрКорр(тбНиО.Код, тбНиО.Ставка * (тбБазы.Оклад + тбБазы.ОблагаемаяМатПомощь + тбБазы.ОблагаемаяМатПомощьВР + тбБазы.Индексация), 2);  
        //теперь считаем больничный отдельно  
        СуммаОтчисленийБольничного    = глОкрКорр(тбНиО.Код, тбНиО.Ставка * (тбБазы.Больничные + тбБазы.БольничныеЗаСчетПредприятия) 
                                        +(тбБазы.БольничныеЗаСчетПредприятияИнв+тбБазы.БольничныеИнв)*СтавкаИнв, 2);  
                                        
        СуммаОтчисленийСОтпуска        = глОкрКорр(тбНиО.Код, тбНиО.Ставка * (тбБазы.Отпускные), 2);
        СуммаОтчисленийВсего        = СуммаОтчисленийБезОтпуска + СуммаОтчисленийСОтпуска;
        ОтчисленияСФОТНУ = 0;
        Если (Найти(тбБазы.НиО.Код,"ФЗПЕСВБольн")>0) Тогда    
            ОтчисленияСФОТНУ = глОкрКорр("Нал",(тбБазы.Оклад+тбБазы.ОблагаемаяМатПомощьВР+тбБазы.Отпускные+тбБазы.Индексация)*тбНиО.Ставка, 2);    
        КонецЕсли;    
        
        СчетЗатрат = тбБазы.СчетЗатрат;
        Если ПустоеЗначение(СчетЗатрат)=1 Тогда
            // используем счета по умолчанию
            СчетЗатрат = тбНиО.СчетЗатрат;
        КонецЕсли;
        
        Если Константа.ИспользоватьОбеспечениеОтпусков.Получить(КонецПериода) = Да Тогда
            глПроводка(Контекст,СчетЗатрат,тбНиО.НиО.Счет,СуммаОтчисленийБезОтпуска,тбНиО.НиО.Наименование,, тбБазы.ВидДеятельности,тбБазы.ВидЗатрат,,
            тбНиО.НиО,,, ,,"ЗП"); 
            
            //ВидЗатратФондыДляРезерваОтпусков +Релиз 291.04-------------------------------------------
            кодЗатратОтпуск = 0;
            Если Лев(СчетЗатрат.Код,2) = "23" Тогда
                кодЗатратОтпуск = 60;
            ИначеЕсли Лев(СчетЗатрат.Код,2) = "92" Тогда    
                кодЗатратОтпуск = 121;
            ИначеЕсли Лев(СчетЗатрат.Код,2) = "93" Тогда    
                кодЗатратОтпуск = 157;
            ИначеЕсли Лев(СчетЗатрат.Код,2) = "94" Тогда    
                кодЗатратОтпуск = 281;
            КонецЕсли;
            ВидЗатратОтпуск = "";
            Если СпрВидыЗатрат.НайтиПоКоду(кодЗатратОтпуск,0) = 1 Тогда
                ВидЗатратОтпуск = СпрВидыЗатрат.ТекущийЭлемент();
            КонецЕсли;    
            
            глПроводка(Контекст,"47.1",тбНиО.НиО.Счет,СуммаОтчисленийСОтпуска,тбНиО.НиО.Наименование,, тбБазы.ВидДеятельности,ВидЗатратОтпуск,,
            тбНиО.НиО,,, ,,"ЗП");  
            глПроводка(Контекст,СчетЗатрат,тбНиО.НиО.Счет,СуммаОтчисленийБольничного,тбНиО.НиО.Наименование,, тбБазы.ВидДеятельности,тбБазы.ВидЗатрат,,
            тбНиО.НиО,,, ,,"ЗП");
        Иначе
            глПроводка(Контекст,СчетЗатрат,тбНиО.НиО.Счет,СуммаОтчисленийВсего,тбНиО.НиО.Наименование,, тбБазы.ВидДеятельности,тбБазы.ВидЗатрат,,
            тбНиО.НиО,,, ,,"ЗП"); 
            глПроводка(Контекст,СчетЗатрат,тбНиО.НиО.Счет,СуммаОтчисленийБольничного,тбНиО.НиО.Наименование,, тбБазы.ВидДеятельности,тбБазы.ВидЗатрат,,
            тбНиО.НиО,,, ,,"ЗП");
        КонецЕсли; 
        
    КонецЦикла; 
    
КонецПроцедуры

Субконто1=Виды деятельности
Субконто2=Виды затрат