ИБ(w) : Формат бланка 3 13а. Акт сверки (версия ООО ИЦ "Логика", г.Калуга)2 3. Счета, счета-фактуры, накладные, прайс-лист AKTSV.BAR КонтрНазв уяђМ1Courier New`ДатаНДатаККонтрСчНаш) ИБ(w) : Данные универсального редактора , Договор № Лист 1z Дата опер Документ Содержание Дебет Кредит Дебет Кредитx 1 2 3 4 5 6 7 Сальдо на; // Руководитель //b (подпись) (подпись)T Главный бухгалтер // Главный бухгалтер //b (подпись) (подпись) Исполнитель: > Ѓ "В период с"яя  ЃДатаНяя#Дата начала периода для Акта сверки%%Ѓ&"Заполнить графы контрагента за него?"яяJЃДубДубяя ДА или НЕТ IB_STR.IBL IB_STR_ДА_НЕТRЃ"Ручной расчет"яяbЃВручнуюяя ДА или НЕТ IB_STR.IBL IB_STR_ДА_НЕТ Ѓ"по "яя  ЃДатаКяя&Дата окончания периода для акта сверкиЃ"Наименование организации:"яя4GЃ предприятяя Ѓ "Наши счета:"яяPЃСчНашяя$Счета нашей организации (банк,касса)SF\sf_aktsv.iblВЕД_ВЫБ_СЧ_НАШa Ѓ "Исключить"яяkЃИсклСчяя ДА или НЕТ IB_STR.IBL IB_STR_ДА_НЕТЃ"Счета контрагента:"яяd‘КонтряяСчета расчетов с контрагентомSF\sf_aktsv.ibl ВЕД_ВЫБ_СЧ"Ѓ""Название организации контрагента"яя#XЃ КонтрНазвяя(Введите название предприятия-Контрагента RЂДоговоряя/Основания расчетов (договоры, контракты и т.д.)jNЃ"Собрать проводки по операции"яя!ЃСобПровяя ДА или НЕТ IB_STR.IBL IB_STR_ДА_НЕТO„ предприятяяjk„ КонтрНазвяя N \ j x    4N \ j x  † N „ ДАТАП0(ДатаН)яя#Дата начала периода для Акта сверкиN O „ СальдоНачД^ „ СальдоНачКj  †A„ предприятяяEA„ КонтрНазвяяЂ должностьяя*ЂруководяяmЂкгендряя)Xl*ЂглавбухяяmЂкглбухяя)XloЂ исполнительяякj///////////////Счета-Фактуры /////////////////////////////////////////////////////////////////////////j///////////////////////////////////////////////// //////// /////// /// /// ////// /////////////j//Дата Изменения 09.12.2009 ////// ////// / ///// //// ///// /// ////// /////////////////f//Разработчик Сергей Олейник /////// //// /// /// ///// ///// /// ////// ///////////////j//Дата Изменения 15.10.2007 ////// ////// / ///// //// ///// /// ////// /////////////////i//Разработчик Гавриков Вячеслаы /////// //// /// /// ///// ///// /// ////// /////////////////Дата Создания 01.01.2006+//Разработчик Габитов Роберт j//Компания Инфо-Бухгалтер //////// // ///// / ////// ///// /// ////// /////////////////j//mail : slava@ib.ru ///////// //////// /////// /// // /////////////////j//////////////////////////////////////////////////////////////////////////////////////////////////////////=ИСПОЛЬЗОВАТЬ("Organiz") 6начСтр=11 //Можно менять!!!!6СтрокНаЛист=42 //Можно менять!!!!6шир1=11; шир2=15; шир3=51; шир4=14; //Можно менять!!!!6шир5=14; шир6=14; шир7=14; //Можно менять!!!!'//================================= 2Дата=ДатаН Датаост=ДатаК ЕСЛИ ОПЕР_ВСЕГО>0 ТО  Дата1=ОПЕР_ДАТА(1) ИНАЧЕ  Дата1=01.01.1980 КОНЕЦ_ЕСЛИ строка=0 //строкаП=0 ЕСЛИ предприят="" ТО предприят=ПредприятКОНЕЦ_ЕСЛИ )Зеро=0 СуммаД=0 6СуммаК=0 6ОборотД=0 ОборотК=0 ЕСЛИ Вручную<>"ДА" ТО8 СальдоНачД=0 8 СальдоНачК=0 ИНАЧЕ  ЕСЛИ СальдоНачД>0 ТО: СальдоНачК=0  ИНАЧЕD СальдоНачД=-СальдоНачК КОНЕЦ_ЕСЛИ КОНЕЦ_ЕСЛИ СОЗДАТЬ_ДИР(ТЕК_ДИР+"\TEMP") $файл_ас=ТЕК_ДИР+"\TEMP\akt_sver.dbf"ЕСЛИ Вручную<>"ДА" ТО руковод=Руковод главбух=ГлавБух  должность=ДолжностьИНАЧЕ усп=ФАЙЛ_УДАЛИТЬ(файл_ас ) КОНЕЦ_ЕСЛИH//================================= 6 CЕСЛИ ДубДуб="ДА" ТО Дублировать=ДА ИНАЧЕ Дублировать=НЕТ КОНЕЦ_ЕСЛИDЕСЛИ СобПров="ДА" ТО СобратьПров=ДА ИНАЧЕ СобратьПров=НЕТ КОНЕЦ_ЕСЛИ?ЕСЛИ ИсклСч="ДА" ТО Исключить=ДА ИНАЧЕ Исключить=НЕТ КОНЕЦ_ЕСЛИuЕСЛИ Дата>Датаост ТО СООБЩЕНИЕ ("Дата начала больше даты окончания периода, расчет остановлен"); СТОП_ВСЕ; КОНЕЦ_ЕСЛИ 9//===============================определение Наших счетовAколПодстрокН = 1; подстрокиН!1 = "" 2ЦИКЛ ДЛЯ (и = 1, ДЛИНА(СчНаш))  символ = ПОДСТР(СчНаш,и,1)+ ЕСЛИ КОД_СИМВ(символ) <> КОД_СИМВ(",") ТО> подстрокиН!колПодстрокН = подстрокиН!колПодстрокН + символ ИНАЧЕ # колПодстрокН = колПодстрокН + 1 подстрокиН!колПодстрокН = "" КОНЕЦ_ЕСЛИКОНЕЦ_ЦИКЛА >//===============================определение счетов Контагента?колПодстрок = 1; подстроки!1 = "" ЦИКЛ ДЛЯ (и = 1, ДЛИНА(Контр)) символ = ПОДСТР(Контр,и,1)+ ЕСЛИ КОД_СИМВ(символ) <> КОД_СИМВ(",") ТО: подстроки!колПодстрок = подстроки!колПодстрок + символ ИНАЧЕ ! колПодстрок = колПодстрок + 1 подстроки!колПодстрок = "" КОНЕЦ_ЕСЛИ КОНЕЦ_ЦИКЛА ]ЕСЛИ подстроки!1 = "" ТО СООБЩЕНИЕ("Не задан счет контрагента!") СТОП_ВСЕ КОНЕЦ_ЕСЛИ P//================================чтобы и по субсчетам брал и сальдо посчитаем ЦИКЛ ДЛЯ (и=1,колПодстрокН) ( подстрН!и=подстрокиН!и // для оборотов ЕСЛИ СЧЕТ_СУЩ(подстрокиН!и) ТО$ ЕСЛИ ЕСТЬ_СУБСЧ(подстрокиН!и) ТО$ подстрокиН!и=подстрокиН!и+"/*" КОНЕЦ_ЕСЛИ ИНАЧЕ ! подстрокиН!и=подстрокиН!и+"*" КОНЕЦ_ЕСЛИ КОНЕЦ_ЦИКЛАсчф=""ЦИКЛ ДЛЯ (и=1,колПодстрок)& подстр!и=подстроки!и // для оборотов ЕСЛИ СЧЕТ_СУЩ(подстроки!и) ТО# ЕСЛИ ЕСТЬ_СУБСЧ(подстроки!и) ТО" подстроки!и=подстроки!и+"/*" КОНЕЦ_ЕСЛИ  ИНАЧЕ  подстроки!и=подстроки!и+"*" КОНЕЦ_ЕСЛИ ? //СальдоНачД=СальдоНачД+ОСД(подстр!и,Дата)-ОСК(подстр!и,Дата) ЕСЛИ Вручную<>"ДА" ТОA СальдоНачД=СальдоНачД+ОСД(подстр!и,Дата1)-ОСК(подстр!и,Дата1) КОНЕЦ_ЕСЛИ6 ЕСЛИ Исключить ТО @ Оборот=ОБД(подстр!и, Дата1, Дата)-ОБК(подстр!и, Дата1, Дата)I ЦИКЛ ДЛЯ (й=1, колПодстрокН) _ Оборот=Оборот-ОБД(подстр!и, подстрН!й, Дата1, Дата)+ОБК(подстр!и, подстрН!й, Дата1, Дата)N КОНЕЦ_ЦИКЛА N ИНАЧЕ n Оборот=0 n ЦИКЛ ДЛЯ (й=1, колПодстрокН) _ Оборот=Оборот+ОБД(подстр!и, подстрН!й, Дата1, Дата)-ОБК(подстр!и, подстрН!й, Дата1, Дата)? КОНЕЦ_ЦИКЛА КОНЕЦ_ЕСЛИ  ЕСЛИ и=колПодстрок ТО счф=счф+подстроки!и ИНАЧЕ счф=счф+подстроки!и+";" КОНЕЦ_ЕСЛИ ЕСЛИ Вручную<>"ДА" ТО СальдоНачД=СальдоНачД+Оборот КОНЕЦ_ЕСЛИ КОНЕЦ_ЦИКЛА,ЕСЛИ СальдоНачД>0 ТО СальдоНачК=0 КОНЕЦ_ЕСЛИHЕСЛИ СальдоНачД<0 ТО СальдоНачК=АБС(СальдоНачД); СальдоНачД=0 КОНЕЦ_ЕСЛИF//================================конец определения счетов Контрагента был_вкл_ф=НЕТ Z старый_ф=ФИЛЬТР до_ст=старый_ф.действ_отч старый_ф.действ_отч=ДА старый_ф.ПРИМЕНИТЬE ЕСЛИ ФИЛЬТР_ВКЛ ТО был_вкл_ф=ДА КОНЕЦ_ЕСЛИ //////////////////  ВЫКЛ_ФИЛЬТРL//////////////////////////////////////////////////////////////////////////// СОЗДАТЬ(фт,ТИП_ФИЛЬТР) фт.документ="*"# фт.дата1=ДатаН фт.дата2=ДатаК фт.дебет="*" фт.кредит="*"' фт.исп_период=ДА фт.действ_отч=ДА фт.корр=счф фт.ПРИМЕНИТЬ ВКЛ_ФИЛЬТР ко=ОПЕР_ВСЕГО ЕСЛИ ко>0 ТОD СОЗДАТЬ (ОП,ТИП_ОПЕРАЦИЯ ) // Создаем объект Операция ЦИКЛ ДЛЯ(оп=1,ко) ОП.СЧИТАТЬ(оп)  КолПров=ОП.КОЛ_ПРОВ * ЦИКЛ ДЛЯ(пр=1, КолПров) // Проводки все СОЗДАТЬ(ПР, ТИП_ПРОВОДКА) ПР.СЧИТАТЬ(ОП, пр)W ЕСЛИ НЕ ПР.выкл ТО // И ОП.документ<>"сторно" ТО // исключаем выключенные проводки3//+++++++++++++ Тело 3 ЦИКЛ ДЛЯ (н=1,колПодстрок) 3//=================================== Дебет $ ЕСЛИ ПР.дебет=подстроки!н ТО ЕСЛИ Исключить ТО Искл=НЕТ5 ЦИКЛ ДЛЯ (и=1,колПодстрокН) F ЕСЛИ ПР.кредит=подстрокиН!и ТО Искл=ДА; СТОП; КОНЕЦ_ЕСЛИ КОНЕЦ_ЦИКЛА> ЕСЛИ НЕ Искл ТО СуммаД=СуммаД+ПР.сумма; КОНЕЦ_ЕСЛИD ИНАЧЕ D ЦИКЛ ДЛЯ (и=1,колПодстрокН) U ЕСЛИ ПР.кредит=подстрокиН!и ТО СуммаД=СуммаД+ПР.сумма; СТОП; КОНЕЦ_ЕСЛИ КОНЕЦ_ЦИКЛА КОНЕЦ_ЕСЛИE КОНЕЦ_ЕСЛИ E E//=================================== Кредит 9 ЕСЛИ ПР.кредит=подстроки!н ТО  ЕСЛИ Исключить ТО Искл=НЕТH ЦИКЛ ДЛЯ (и=1,колПодстрокН) E ЕСЛИ ПР.дебет=подстрокиН!и ТО Искл=ДА; СТОП; КОНЕЦ_ЕСЛИ3 КОНЕЦ_ЦИКЛА > ЕСЛИ НЕ Искл ТО СуммаК=СуммаК+ПР.сумма; КОНЕЦ_ЕСЛИ3 ИНАЧЕ H ЦИКЛ ДЛЯ (и=1,колПодстрокН) T ЕСЛИ ПР.дебет=подстрокиН!и ТО СуммаК=СуммаК+ПР.сумма; СТОП; КОНЕЦ_ЕСЛИ3 КОНЕЦ_ЦИКЛА  КОНЕЦ_ЕСЛИE КОНЕЦ_ЕСЛИ E КОНЕЦ_ЦИКЛА E . // Проверяем, нужно ли собирать проводки* Показать = (СуммаД<>0 ИЛИ СуммаК<>0)& ЕСЛИ СобратьПров И пр<КолПров ТО Показать=НЕТ  КОНЕЦ_ЕСЛИ//+++++++++++++ Показ телаE ЕСЛИ Показать ТО  строка++@ Сдата!строка=ОП.дата " Сдок!строка=ОП.документ; + Сназв!строка=ОП.название  СсуммаД!строка=СуммаД;  СсуммаК!строка=СуммаК СуммаД=0; СуммаК=04 Показать=НЕТ E КОНЕЦ_ЕСЛИ //+++++++++++++ Конец тела КОНЕЦ_ЕСЛИ КОНЕЦ_ЦИКЛА,КОНЕЦ_ЦИКЛА КОНЕЦ_ЕСЛИ- ///////////////////////////// Выкл.фильтра ВЫКЛ_ФИЛЬТРЉ старый_ф.действ_отч=до_ст старый_ф.ПРИМЕНИТЬ ///////p ЕСЛИ был_вкл_ф ТО ВКЛ_ФИЛЬТР КОНЕЦ_ЕСЛИ ///////8 +//==================Вывод найденного В ФАЙЛсозд=НЕТЕСЛИ СУЩ_ФАЙЛ(файл_ас) ТО9 ЕСЛИ ВОПРОС("Обнаружен акт сверки. Создать заново?") ТО/ зпр=SQL_ЗАПРОС("DROP TABLE '"+файл_ас+"'") созд=ДА КОНЕЦ_ЕСЛИИНАЧЕ созд=ДА КОНЕЦ_ЕСЛИЕСЛИ созд ТО // создаем пустой зпр=SQL_СОЗДАТЬ(файл_ас, ["Data" :ТИП_ДАТА,  "Dok" :ТИП_СТРОКА:40, "Nazv" :ТИП_СТРОКА:200, "SumD" :ТИП_ЧИСЛО :15;2, "SumK":ТИП_ЧИСЛО :15;2, "Primech" :ТИП_СТРОКА:50])  зпр.ЗАКРЫТЬ  фас=SQL_ОТКРЫТЬ(файл_ас)  ЕСЛИ строка>0 ТО; инд=СТР(Сдата!1)+Сдок!1 @ т_сум_д=0 т_сум_к=0 т_назв=Сназв!1 т_дт=Сдата!1 т_док=Сдок!1O ЦИКЛ ДЛЯ(и=1,строка) ( ЕСЛИ СТР(Сдата!и)+Сдок!и<>инд ТО# фас.ЗАП_ПОЛЕ("Data",т_дт)# фас.ЗАП_ПОЛЕ("Dok",т_док)% фас.ЗАП_ПОЛЕ("Nazv",т_назв)& фас.ЗАП_ПОЛЕ("SumD",т_сум_д)& фас.ЗАП_ПОЛЕ("SumK",т_сум_к) фас.ДОБАВИТЬ V т_сум_д=СсуммаД!и т_сум_к=СсуммаК!и т_назв=Сназв!и т_дт=Сдата!и т_док=Сдок!и! инд=СТР(Сдата!и)+Сдок!и ИНАЧЕ # т_сум_д=т_сум_д+СсуммаД!и# т_сум_к=т_сум_к+СсуммаК!и КОНЕЦ_ЕСЛИ КОНЕЦ_ЦИКЛА# фас.ЗАП_ПОЛЕ("Data",т_дт)# фас.ЗАП_ПОЛЕ("Dok",т_док)% фас.ЗАП_ПОЛЕ("Nazv",т_назв)& фас.ЗАП_ПОЛЕ("SumD",т_сум_д)& фас.ЗАП_ПОЛЕ("SumK",т_сум_к) фас.ДОБАВИТЬ КОНЕЦ_ЕСЛИИНАЧЕ фас=SQL_ОТКРЫТЬ(файл_ас) КОНЕЦ_ЕСЛИ фас.В_НАЧАЛО1нз=БД_РЕДАКТОР(фас," Отредактируйте акт сверки:",, ["Data" :"Дата ":11, M "Dok" :"Документ":15, , "Nazv" :"Наименование операции":60," "SumD" :"Сумма дебет":15,# "SumK" :"Сумма кредит":15, "Primech" :"Примечание" ],ДА,ДА,ДА,ДА) фас.В_НАЧАЛОстрока=0ЦИКЛ ПОКА(фас.СЛЕДУЮЩАЯ) строка++C Сдата!строка=фас.ПОЛЕ("Data")  Сдок!строка=фас.ПОЛЕ("Dok") * Сназв!строка=фас.ПОЛЕ("Nazv") " СсуммаД!строка=фас.ПОЛЕ("SumD") # СсуммаК!строка=фас.ПОЛЕ("SumK") КОНЕЦ_ЦИКЛАC///////////////////////////////////////////////////////////////////<//=========Вывод заголовка===================== MСОЗДАТЬ (ф, ТИП_ШРИФТ) //не используется ,ф.название = "Times New Roman" ,ф.жирн = ДА ,ф.накл = НЕТ ,ф.размер = 10 /ВЫВЕСТИ (20, 1, "АКТ СВЕРКИ ",ДА) =ВЫВЕСТИ (10, 2,"между "+предприят+" и "+КонтрНазв+" ")MВЫВЕСТИ (10, 3,"за период с "+ДАТАП0(Дата)+" по "+ДАТАП0(Датаост)+" ")YВЫВЕСТИ (10, 4,"Предлагаем согласовать и выслать один экземпляр акта сверки в наш адрес")1//=========Конец заголовка===================== ,высота=1 Шапка=НЕТ,Лист=1 , ,текСтр=начСтр ,поз1=2; ,поз2=поз1+шир1; ,поз3=поз1+шир1+шир2; ,поз4=поз1+шир1+шир2+шир3; ,поз5=поз1+шир1+шир2+шир3+шир4; ,поз6=поз1+шир1+шир2+шир3+шир4+шир5; 8поз7=поз1+шир1+шир2+шир3+шир4+шир5+шир6; '//==============вывод начального сальдо$д1=0 д1=ДЛИНА(ПЕРЕВОД(СальдоНачД))+1$д1=0 д1=ДЛИНА(ПЕРЕВОД(СальдоНачК))+1ЕСЛИ Дублировать ТО& д1=0 д1=ДЛИНА(ПЕРЕВОД(СальдоНачД))+16 ВЫВЕСТИ (поз7+шир7-д1,текСтр,ПЕРЕВОД(СальдоНачД),ДА)& д1=0 д1=ДЛИНА(ПЕРЕВОД(СальдоНачК))+16 ВЫВЕСТИ (поз6+шир6-д1,текСтр,ПЕРЕВОД(СальдоНачК),ДА)КОНЕЦ_ЕСЛИ текСтр=текСтр+1'//===============Вывод основной таблицыЦИКЛ ДЛЯ (и=1,строка)6 ЕСЛИ текСтр/СтрокНаЛист=РУБ(текСтр/СтрокНаЛист) ТО Шапка=ДА КОНЕЦ_ЕСЛИ, , ЕСЛИ Шапка ТО //шапка Лист++ КОНЕЦ_СТРАНИЦЫ(текСтр)+ ВЫВЕСТИ (поз7,текСтр,"Лист "+СТР(Лист))b текСтр=текСтр+1  ВСТАВИТЬ_СТРОКУ(текСтр) ) ВСТАВИТЬ_РАМКУ (поз1-1,текСтр,шир1,1). ВСТАВИТЬ_РАМКУ (поз2-1,текСтр,шир2,1) . ВСТАВИТЬ_РАМКУ (поз3-1,текСтр,шир3,1) . ВСТАВИТЬ_РАМКУ (поз4-1,текСтр,шир4,1) / ВСТАВИТЬ_РАМКУ (поз5-1,текСтр,шир5,1) / ВСТАВИТЬ_РАМКУ (поз6-1,текСтр,шир6,1) ) ВСТАВИТЬ_РАМКУ (поз7-1,текСтр,шир7,1)' ВЫВЕСТИ (поз1+шир1/2-1,текСтр,"1") & ВЫВЕСТИ (поз2+шир2/2-1,текСтр,"2")& ВЫВЕСТИ (поз3+шир3/2-1,текСтр,"3")& ВЫВЕСТИ (поз4+шир4/2-1,текСтр,"4")) ВЫВЕСТИ (поз5+шир5/2-1,текСтр,"5") & ВЫВЕСТИ (поз6+шир6/2-1,текСтр,"6")& ВЫВЕСТИ (поз7+шир7/2-1,текСтр,"7") текСтр=текСтр+1 Шапка=НЕТ! КОНЕЦ_ЕСЛИ //конец шапке[ ЕСЛИ ДЛИНА(Сназв!и)>шир3-1 ТО высота=2 ИНАЧЕ высота=1 КОНЕЦ_ЕСЛИ //анализ длины стороки! ВСТАВИТЬ_СТРОКУ(текСтр,высота)  ВЫВЕСТИ (поз1,текСтр,Сдата!и) ВЫВЕСТИ (поз2,текСтр,Сдок!и)C ВЫВЕСТИ (поз3,текСтр,ПОДСТР(Сназв!и,1,шир3-1),шир3-1,1) //высота), ВСТАВИТЬ_РАМКУ (поз3-1,текСтр,шир3,высота)C ЕСЛИ высота=2 ТО C ВСТАВИТЬ_РАМКУ (поз1-1,текСтр,шир1,2) C ВСТАВИТЬ_РАМКУ (поз2-1,текСтр,шир2,2) 3 ВСТАВИТЬ_РАМКУ (поз3-1,текСтр,шир3,2) //высота), ВСТАВИТЬ_РАМКУ (поз4-1,текСтр,шир4,2) , ВСТАВИТЬ_РАМКУ (поз5-1,текСтр,шир5,2) / ВСТАВИТЬ_РАМКУ (поз6-1,текСтр,шир6,2) , ВСТАВИТЬ_РАМКУ (поз7-1,текСтр,шир7,2) , текСтр=текСтр+1 J ЕСЛИ текСтр/СтрокНаЛист=РУБ(текСтр/СтрокНаЛист) ТО Шапка=ДА КОНЕЦ_ЕСЛИD ВЫВЕСТИ (поз3,текСтр,ПОДСТР(Сназв!и,шир3),шир3-1,1) //высота) КОНЕЦ_ЕСЛИ   ЕСЛИ СсуммаД!и<>0 ТО' д1=0 д1=ДЛИНА(ПЕРЕВОД(СсуммаД!и))+15 ВЫВЕСТИ (поз4+шир4-д1 ,текСтр,ПЕРЕВОД(СсуммаД!и)) ОборотД=ОборотД+СсуммаД!и ЕСЛИ Дублировать ТО ) д1=0 д1=ДЛИНА(ПЕРЕВОД(СсуммаД!и))+16 ВЫВЕСТИ (поз7+шир7-д1,текСтр,ПЕРЕВОД(СсуммаД!и))2 КОНЕЦ_ЕСЛИ  ИНАЧЕ 1 д1=0 д1=ДЛИНА(ПЕРЕВОД(Зеро))+1 / ВЫВЕСТИ (поз4+шир4-д1,текСтр,ПЕРЕВОД(Зеро)) ЕСЛИ Дублировать ТО $ д1=0 д1=ДЛИНА(ПЕРЕВОД(Зеро))+11 ВЫВЕСТИ (поз7+шир7-д1,текСтр,ПЕРЕВОД(Зеро))2 КОНЕЦ_ЕСЛИ 2 КОНЕЦ_ЕСЛИ 2 ЕСЛИ СсуммаК!и<>0 ТО ' д1=0 д1=ДЛИНА(ПЕРЕВОД(СсуммаК!и))+14 ВЫВЕСТИ (поз5+шир5-д1,текСтр,ПЕРЕВОД(СсуммаК!и))d ОборотК=ОборотК+СсуммаК!и 0 ЕСЛИ Дублировать ТО ) д1=0 д1=ДЛИНА(ПЕРЕВОД(СсуммаК!и))+16 ВЫВЕСТИ (поз6+шир6-д1,текСтр,ПЕРЕВОД(СсуммаК!и)) КОНЕЦ_ЕСЛИ ИНАЧЕ " д1=0 д1=ДЛИНА(ПЕРЕВОД(Зеро))+1/ ВЫВЕСТИ (поз5+шир5-д1,текСтр,ПЕРЕВОД(Зеро))0 ЕСЛИ Дублировать ТО 2 д1=0 д1=ДЛИНА(ПЕРЕВОД(Зеро))+1 1 ВЫВЕСТИ (поз6+шир6-д1,текСтр,ПЕРЕВОД(Зеро)) КОНЕЦ_ЕСЛИ2 КОНЕЦ_ЕСЛИ 2 ЕСЛИ высота=1 ТО ) ВСТАВИТЬ_РАМКУ (поз1-1,текСтр,шир1,1)2 ВСТАВИТЬ_РАМКУ (поз2-1,текСтр,шир2,1) 2 //ВСТАВИТЬ_РАМКУ (поз3-1,текСтр,шир3,1) 2 ВСТАВИТЬ_РАМКУ (поз4-1,текСтр,шир4,1) 2 ВСТАВИТЬ_РАМКУ (поз5-1,текСтр,шир5,1) / ВСТАВИТЬ_РАМКУ (поз6-1,текСтр,шир6,1) + ВСТАВИТЬ_РАМКУ (поз7-1,текСтр,шир7,1) КОНЕЦ_ЕСЛИ текСтр=текСтр+1-КОНЕЦ_ЦИКЛА ВСТАВИТЬ_СТРОКУ(текСтр,1)ZВСТАВИТЬ_РАМКУ (поз1-1,текСтр,поз7-поз1+шир7,0,2)//отделяем итоговую часть жирной линиейтекСтр=текСтр+1ВСТАВИТЬ_СТРОКУ(текСтр,2)3//=============вывод итоговых оборотов ВЫВЕСТИ(поз1,текСтр,"Обороты " )!д1=0 д1=ДЛИНА(ПЕРЕВОД(ОборотД))+1.ВЫВЕСТИ (поз4+шир4-д1,текСтр,ПЕРЕВОД(ОборотД))!д1=0 д1=ДЛИНА(ПЕРЕВОД(ОборотК))+1.ВЫВЕСТИ (поз5+шир5-д1,текСтр,ПЕРЕВОД(ОборотК))ЕСЛИ Дублировать ТО # д1=0 д1=ДЛИНА(ПЕРЕВОД(ОборотД))+10 ВЫВЕСТИ (поз7+шир7-д1,текСтр,ПЕРЕВОД(ОборотД))# д1=0 д1=ДЛИНА(ПЕРЕВОД(ОборотК))+10 ВЫВЕСТИ (поз6+шир6-д1,текСтр,ПЕРЕВОД(ОборотК)) КОНЕЦ_ЕСЛИ//==============вывод сальдо -СальдоД=СальдоНачД-СальдоНачК+ОборотД-ОборотК-СальдоК=СальдоНачК-СальдоНачД+ОборотК-ОборотД&ЕСЛИ СальдоД<0 ТО СальдоД=0 КОНЕЦ_ЕСЛИ'ЕСЛИ СальдоК<0 ТО СальдоК=0 КОНЕЦ_ЕСЛИ 6ВЫВЕСТИ(поз1,текСтр+1,"Сальдо на "+ДАТАП0(Датаост+1) )!д1=0 д1=ДЛИНА(ПЕРЕВОД(СальдоД))+12ВЫВЕСТИ(поз4+шир4-д1,текСтр+1,ПЕРЕВОД(СальдоД),ДА)!д1=0 д1=ДЛИНА(ПЕРЕВОД(СальдоК))+12ВЫВЕСТИ(поз5+шир5-д1,текСтр+1,ПЕРЕВОД(СальдоК),ДА)ЕСЛИ Дублировать ТО # д1=0 д1=ДЛИНА(ПЕРЕВОД(СальдоК))+14 ВЫВЕСТИ(поз6+шир6-д1,текСтр+1,ПЕРЕВОД(СальдоК),ДА)' д1=0 д1=ДЛИНА(ПЕРЕВОД(СальдоД))+1 4 ВЫВЕСТИ(поз7+шир7-д1,текСтр+1,ПЕРЕВОД(СальдоД),ДА) КОНЕЦ_ЕСЛИ =ЦИКЛ ДЛЯ (и=0,1) //рамочки для всего оборотов и сальдо3 ВСТАВИТЬ_РАМКУ (поз1-1,текСтр+и,шир1+шир2+шир3,1), ВСТАВИТЬ_РАМКУ (поз4-1,текСтр+и,шир4,1) , ВСТАВИТЬ_РАМКУ (поз5-1,текСтр+и,шир5,1) * ВСТАВИТЬ_РАМКУ (поз6-1,текСтр+и,шир6,1) + ВСТАВИТЬ_РАМКУ (поз7-1,текСтр+и,шир7,1) КОНЕЦ_ЦИКЛА 1текСтр=текСтр+2 -//===============ВЫВОД ТЕКСТА ПОД ТАБЛИЦЕЙ ВСТАВИТЬ_СТРОКУ(текСтр,3)текСтр=текСтр+3 ЕСЛИ СальдоД>0 ТО дкоп = СТР0(КОП(СальдоД)) ЕСЛИ ЗНАЧ(дкоп) = 0 ТО сф_дкоп = "00" ИНАЧЕ  сф_дкоп = дкоп КОНЕЦ_ЕСЛИ j ВЫВЕСТИ(поз1,текСтр,"Подтверждаем задолженность в сумме "+СУММАП(РУБ(СальдоД))+" руб. "+сф_дкоп+" коп."). ВЫВЕСТИ(поз1,текСтр+1,"в пользу "+предприят):КОНЕЦ_ЕСЛИ :ЕСЛИ СальдоК>0 ТО  ккоп = СТР0(КОП(СальдоК)) ЕСЛИ ЗНАЧ(ккоп) = 0 ТО сф_ккоп = "00"  ИНАЧЕ  сф_ккоп = ккоп КОНЕЦ_ЕСЛИ 4 j ВЫВЕСТИ(поз1,текСтр,"Подтверждаем задолженность в сумме "+СУММАП(РУБ(СальдоК))+" руб. "+сф_ккоп+" коп.")C ВЫВЕСТИ(поз1,текСтр+1,"в пользу "+КонтрНазв) КОНЕЦ_ЕСЛИ : EЕСЛИ СальдоК=0 И СальдоД=0 ТО Z ВЫВЕСТИ(поз1,текСтр,"Подтверждаем отсутствие задолженности между нашими организациями.") КОНЕЦ_ЕСЛИ b