Анализ эффективности вложений денежных средств в РКОАнализ эффективности вложений денежных средств в РКОСодержание. стр. Введение. 3 Глава 1. Функционирование рынка РКО. 4 Участники рынка. 4 Процедура торгов. 4 Первичное размещение (аукцион). 4 Вторичные торги. 5 Погашение. 5 Документооборот. 5 Отчеты, предоставляемые биржей. 5 Отчеты, предоставляемые Дилерами. 5 Глава 2. Задачи Дилера на рынке РКО. 7 Ведение бэк-офиса. 7 Оптимизация вложений собственных средств. 7 Управление средствами инвесторов. 7 Исполнение поручений Инвесторов. 8 Анализ эффективности вложений. 8 Глава 3. Задачи формирования и ведения собственного портфеля облигаций Дилера. 9 Формирование портфеля облигаций. 9 Ликвидность портфеля. 9 Период инвестирования. 9 Инвестирование с целью максимизации дохода. 10 Безрисковое инвестирование. 10 Анализ эффективности вложений денежных средств в РКО. 11 Постановка задачи. 11 Метод решения. 11 Экономическая интерпретация метода. 13 Экономическая интерпретация полученных результатов. 13 Применение результатов исследования для построения методов эффективного управления портфелем облигаций. 14 Заключение. 15 Список литературы. 15 Приложения. 18 Приложение № 1. Программа автоматизации учета РКО. 18 Приложение 1.1. Руководство пользователя. 18 Приложение 1.2. Текст программы. 20 Приложение № 1.3. Журнал оборотов. 63 Приложение № 1.4. Журнал лицевого учета. 64 Приложение № 1.5. Мемориальный ордер. 65 Приложение № 1.6. Отчет инвестору о совершенных сделках. 66 Приложение № 1.7. Структура пртфеля в разрезе по бумагам. 67 Приложение № 1.8. Структура портфеля обобщенная. 68 Приложение № 1.9. Биржевая информация. 69 Приложение № 1.10. Еженедельный отчет в депозитарий. 70 Приложение № 1.11. Ежемесячный отчет в депозитарий. 71 Приложение № 2. Программа анализа эффективности вложений в РКО. 71 Приложение 2.1. Текст программы. 72 Приложение № 2.2. Диаграмма сравнения доходности портфеля и рынка. 81 Приложение № 2.3. Диаграмма сравнения индекса портфеля и рынка. 82 Приложение № 3. Входные статистические данные. 83 Приложение 3.1. Информация о бумагах. 83 Приложение 3.2. Информация о сделках. 84 Приложение 3.3. Информация о движениях денежных средств. 90 Приложение 3.4. Биржевая информация. 92 Введение. Республиканские краткосрочные бескупонные облигации (РКО) выпускаются Министерством Финансов Республики Татарстан. Рынок РКО существует с 1995 года. За три года он стал важнейшим сегментом в экономике Татарстана, сравнимый по объему заимствований с рынком межбанковских кредитов и иностранной валюты. Гарантом надежности вложений в РКО является Правительство РТ. РКО - ликвидный и наиболее доходный инструмент финансового рынка. Доходность по РКО выше, чем по банковским вкладам и депозитным сертификатам, а также государственным ценным бумагам. Имея льготное налогообложение, РКО является наиболее привлекательным вложением свободных финансовых ресурсов. Вкладывать средства в РКО могут как юридические, так и физические лица. Доход по этим облигациям получается от разницы между ценой покупки и продажи, т.е. дисконт. РКО обращаются в бездокументарной форме и учитываются записями по счетам депо. Продажа и покупка производится на фондовой бирже. В связи с этим возникает задача учета операций с РКО как со стороны биржи, так и со стороны организаций-инвесторов. На данном сегменте фондового рынка можно производить как краткосрочные спекулятивные операции, так и долгосрочные вложения свободных собственных или заемных средств. Таким образом, актуальной является задача оценки эффективности вложений в РКО. В данной дипломной работе решаются две задачи: 1. Автоматизация учета операций с РКО; 2. Оценка эффективности вложений в РКО. На основе результатов второй задачи можно будет сделать некоторые выводы для оптимизации принятия решений при вложении в бескупонные облигации. Глава 1. Функционирование рынка РКО. Республиканские краткосрочные облигации обращаются на Волжско-Камской бирже (ВКБ) посредством проведения электронных торгов. В функционировании рынка РКО можно выделить следующие моменты: 1. Участники рынка. 2. Процедура торгов. 3. Документооборот. Участники рынка. Участники рынка разделяются на две категории: Дилеры и инвесторы. Дилер - любое юридическое лицо, профессиональным участником рынка ценных бумаг, заключившее договор на выполнение функций по обслуживанию операций с облигациями с коммунальным предприятием "Дирекция по работе с ценными бумагами". Дилер может заключать сделки с РКО от своего имени и за свой счет, а также может выполнять функции финансового брокера при заключении сделок от своего имени за счет и по поручению инвестора. Инвестор - любое юридическое или физическое лицо, заключившее с Дилером договор брокерского обслуживания на рынке РКО. Инвестор может приобретать облигации только через Дилеров, уплачивая при этом комиссию. Процедура торгов. В ходе торгов РКО проходят следующие этапы: . Первичное размещение; . Вторичные торги; . Погашение. Первичное размещение (аукцион). Аукцион - это первичное размещение облигаций, проводимого Организатором (Коммунальное предприятие "Дирекция по работе с ценными бумагами", агент Министерства финансов РТ по обслуживанию выпусков облигаций) по поручению Министерства финансов Республики Татарстан. Они проводятся по специальному графику. Дата аукциона, предельный объем выпуска, место и время проведения аукциона объявляются Организатором. Контрагентами в этой процедуре являются Министерство Финансов с одной стороны, и Дилеры - другой. В ходе аукциона Дилеры подают заявки на покупку облигаций. После подачи всех заявок до установленного времени, Министерство Финансов устанавливает цену отсечения - минимальная цена, по которой он готов продать облигации. Все заявки, поданные выше цены отсечения, удовлетворяются, заявки, поданные с более низкой ценой, не удовлетворяются. Вторичные торги. Обращение облигаций на вторичных торгах осуществляется в форме сделок купли-продажи через Торговую систему (организация, уполномоченная на основании договора с Министерством финансов РТ и двусторонних договоров с Дилерами обеспечивать процедуру заключения сделок купли-продажи путем предоставления технических средств). Контрагентами в этой процедуре выступают Дилеры. Дилеры вводят в Торговую систему посредством рабочих терминалов заявки на покупку или продажу облигаций. Если цены заявок совпадают, то они удовлетворяются, т.е. сделка считается совершенной. Погашение. Погашение облигаций производится в определенный день Министерством Финансов по номинальной стоимости. Документооборот. РКО обращаются в электронной форме. Учет по ним ведется посредством записей на счетах депо, открытых в Волжско-Камской трастовой компании (ВКТК). В связи с этим возникают вопросы отражения учета операций в документальной форме. В ходе обращения РКО можно выделить следующие типы документов: . Отчеты, предоставляемые биржей; . Отчеты, предоставляемые Дилерами. Отчеты, предоставляемые биржей. По завершении торгов биржа предоставляет каждому Дилеру следующие документы: . Биржевая информация; . Выписка из протокола торгов; . Обязательства Дилера по итогам торгов; . Выписка из реестра сделок. Отчеты, предоставляемые Дилерами. В процессе участия в торгах Дилеры обязаны предоставлять следующие документы бирже: . Еженедельный отчет; . Ежемесячный отчет; . Другие документы, необходимые для допуска Дилера к торгам. После совершения сделки купли-продажи по поручению Инвестора, Дилер обязан предоставить Инвестору отчет о совершенной сделке в форме, установленной в договоре по брокерскому обслуживанию и выписку со счета депо. Дилер также может предоставить биржевую информацию и оказывать консультационные услуги. Глава 2. Задачи Дилера на рынке РКО. Являясь активным участником рынка РКО, Дилер сталкивается со следующими задачами: 1. Ведение бэк-офиса; 2. Оптимизация вложений собственных средств; 3. Управление средствами Инвесторов; 4. Исполнение поручений Инвесторов; 5. Анализ эффективности вложений. Ведение бэк-офиса. Бэк-офис - система электронного учета операций с ценными бумагами. Он включает в себя очень широкий спектр функциональных вопросов: . Ведение журнала лицевого учета и журнала оборотов (Приложение № 1.3, 1.4); . Формирование и печать мемориальных ордеров (Приложение №1.5); . Формирование и печать отчетов Инвесторам (Приложение №1.6); . Формирование и печать собственного портфеля Дилера (Приложение № 1.7, 1.8); . Формирование и печать биржевой информации (Приложение №1.9); . Формирование и печать еженедельного и ежемесячного отчетов (Приложение №1.10, 1.11). Все перечисленные задачи реализованы в представленной программе автоматизированного учета операций с РКО. Оптимизация вложений собственных средств. Под оптимизацией вложений собственных средств понимается создание портфеля облигаций, который удовлетворял бы поставленной инвестиционной или спекулятивной задаче. Для формирования портфеля можно исходить из следующих факторов: . Ликвидность; . "Время жизни"; . Получение наибольшего дохода; . Использование РКО в залоговых операциях для получения межбанковских кредитов. Управление средствами инвесторов. Дилер может сам управлять средствами Инвесторов, если был заключен договор трастового обслуживания. При этом он может брать комиссию как с отдельной сделки, так и с дохода, полученного Инвестором. В данном случае актуальной является задача оптимального управления портфелем Инвестора и оценка эффективности деятельности Дилера. Исполнение поручений Инвесторов. Дилер, являясь также и брокером на рынке РКО, совершает операции купли- продажи от своего имени, но по поручению Инвестора и за его счет. В этом случае Дилер должен вести учет приема заявок Инвесторов, исполнение поручений на бирже и формирование отчетов. За эти услуги он получает комиссионное вознаграждение. Анализ эффективности вложений. Данная задача является одной из наиболее сложных и необходимых. Определение метода анализа - нетривиальная задача. В Главе 3 рассмотрены две методики анализа эффективности вложений собственных средств в облигации. Глава 3. Задачи формирования и ведения собственного портфеля облигаций Дилера. В процессе управления портфелем облигаций Дилер ставит перед собой следующие задачи: . формирование портфеля облигаций; . анализ эффективности вложений денежных средств. Формирование портфеля облигаций. В процессе участия в торгах Дилер инвестирует свободные денежные средства в облигации, создавая при этом портфель, состоящий из разных серий РКО, отличающиеся тем, что имеют разные сроки до погашения. Спецификой портфеля, состоящего из РКО, могут являться следующие моменты: . ликвидность портфеля; . период инвестирования; . инвестирование с целью максимизации дохода; . безрисковое инвестирование. Ликвидность портфеля. При инвестировании средств в РКО необходимо учитывать следующий момент. Денежные средства Дилеров, инвестируемые в облигации на вторичных торгах, часто превышают объемы торгов по какой-либо отдельной серии облигации. В связи с этим возникает вопрос ликвидности портфеля. Как показывает практика фондового рынка, облигации с наименьшим сроком погашения более ликвидные, чем те, которые имеют более длительный срок до погашения. Но, с другой стороны, облигации с меньшим сроком до погашения имеют и меньшую доходность. Таким образом, при продаже легче всего продать облигации с меньшим сроком до погашения, а купить те, которые имеют более длительный срок до погашения. Период инвестирования. Дилер при инвестировании сталкивается и со следующей задачей: период инвестирования. Так как ликвидность рынка напрямую зависит от срока до погашения облигации, то с этим приходится диверсифицировать портфеля по срокам погашения облигаций. Причем необходимо выбрать наилучшую стратегию, зависящую от целей инвестирования. Если целью инвестирования является получения максимального дохода за продолжительный период времени, то можно инвестировать средства в наиболее доходные серии облигаций. В случае если целью инвестирования является краткосрочная спекуляция, то наиболее оптимальной стратегией в данном случае является покупка серий облигаций со сроком погашения, близким к установленному сроку инвестирования; в этом случае минимизируется риск невозможности продажи облигаций на вторичном рынке. Инвестирование с целью максимизации дохода. В случае если целью инвестирования является максимизация дохода, причем срок инвестирования не фиксирован, т.е. неизвестен период инвестирования, Дилер сталкивается с двумя противоречивыми факторами: доходность и ликвидность. В связи с этим возникают задачи оптимального управления портфелем облигаций. Методы, которые применяют Дилеры, являются их собственными разработками (ноу-хау). Существуют множество публикаций в финансово-экономической литературе по оптимизации вложений в бескупонные облигации, но предложенные методы либо содержат в себе неверные предпосылки при построении метода оптимизации, либо содержат упрощения, после чего модель становится неприменима на практике. Безрисковое инвестирование. В целях получения дохода, но также минимизации риска извлечения денежных средств из портфеля, можно формировать портфеля с помощью диверсификации по срокам погашения серий облигаций. Облигации, по определению, являясь долговыми обязательствами, имеют срок погашения, т.е. срок, в который инвестор получает номинал облигации, поэтому о риске вложений приходится говорить лишь с точки зрения периода вложения. Анализ эффективности вложений денежных средств в РКО. Постановка задачи. Анализ эффективности вложения денежных в РКО можно разделить на анализ внутреннего управления портфелем облигаций и внешнего. Внутреннее управление - это оценка изменения индекса портфеля в сравнении с индексом рынка. Внешнее управление - это оценка изменения средневзвешенной доходности к погашению портфеля в сравнении со средневзвешенной доходностью к погашению рынка. Таким образом, возникает задача сравнения управления портфелем облигаций относительно рынка путем построения некоторого показателя, который адекватно отражал бы динамику изменения портфеля в сравнении с динамикой изменения рынка. Метод решения. Предлагаются методики для решения поставленных задач путем построения следующих показателей: 1. Индекс портфеля и рынка (для оценки внутреннего управления). Индекс строится следующим образом. Для портфеля: [pic] (1) [pic] [pic] (1.1) [pic] (1.2) где: [pic]значение индекса в момент t [pic]коэффициент [pic]стоимость портфеля по средневзвешенным ценам на момент закрытия торгов в момент t [pic]сумма дополнительных вложений (извлечений) денежных средств в портфель в момент t, причем, если [pic]дополнительные вложения [pic]сумма изъятых денег [pic]средневзвешенная цена i серии на момент закрытия торгов [pic]количество бумаг i серии в портфеле [pic]количество серий бумаг, обращающихся на рынке Для рынка при расчете коэффициента [pic] и [pic] переменные будут иметь следующий смысл: [pic]объем капитализации рынка по средневзвешенным ценам на момент t [pic]сумма размещенных (погашенных) средств на аукционе [pic]сумма размещенных средств на аукционе [pic]сумма погашенных средств на аукционе [pic]количество бумаг i серии, обращающихся на рынке Данный индекс показывает, насколько эффективнее было внутреннее управление портфелем по сравнению с рыночной конъюктурой. Причем, если индекс портфеля меньше индекса рынка, то управление было неэффективным. 2. Эффективная норма доходности к погашению портфеля и рынка (для оценки внешнего управления). Показатель строится следующим образом(2 метода): В теории расчета применяется следующий метод: [pic] (2) где: [pic] (2.1) [pic]сумма i расходного платежа [pic]сумма i доходного платежа [pic]количество дней между i расходным и доходным платежами [pic]эффективная норма доходности, которая и определяется из решения данного уравнения [pic]количество расходных и доходных платежей Уравнение (2) решается численными методами, причем решение единственно. Из-за неудобства решения уравнения на практике обычно применяют другой метод нахождения [pic]: [pic] (2.2) где: [pic]доходность к погашению i бумаги [pic]количество i бумаги [pic]дней до погашения i бумаги [pic] рассчитывается следующим образом: [pic] (2.3) где: [pic]цена покупки i бумаги в % от номинала (расходный платеж) [pic]цена погашения в % от номинала (доходный платеж) [pic]количество дней в году [pic]дней до погашения i бумаги Данный метод более удобен при расчетах и дает более быстрые результаты, вследствие чего он был применен при построении данного показателя. Экономическая интерпретация метода. Анализ с помощью методики построения индекса портфеля и рынка включает в себя следующие моменты: Индекс построен таким образом, что он адекватно отражает управление портфелем и поведение рынка. По построенному индексу можно определить доходность к приобретению портфеля и рынка, что бывает необходимым для сравнения вложений в РКО с другими инвестиционными операциями. Доходность к приобретению - это доходность на день расчета, которую можно получить при продаже портфеля облигаций. Кроме того, можно оценить поведение рынка РКО в сравнении с другими рынками. Методика сравнения может быть различной и их построение требует учета специфики различных рынков. Второй вид анализа - вычисление эффективной нормы доходности портфеля и рынка. Предложенный метод отражает поведение рынка и доходность к погашению портфеля в текущий момент времени. Воздействовать на этот показатель можно путем добавления или извлечения денежных средств в портфель облигаций. При этом, эффективное внешнее управление напрямую зависит от объемов добавления/извлечения денежных средств и сложившейся конъюнктурой рынка в день проведения операций, т.е. другими словами, должно быть своевременное проведение данных операций. Этот вид анализа можно применить также для эффективного распределения свободных ресурсов между различными инвестиционными рынками, оценивая и сравнивая доходности различных рынков и направляя свободные денежные средства на наиболее доходные секторы. Экономическая интерпретация полученных результатов. В данной работе сравнивался портфель РКО банка и рынок РКО с февраля по май месяц 1997 года. При анализе путем построения индекса было выявлено следующее. График, построенный на основе индекса рынка (Приложение №2.3), имеет положительный наклон. Это обусловлено тем, что рынок в то время имел тенденцию к снижению доходности, поэтому, индекс, отражающий доходность к приобретению, увеличивался. В приведенном примере, основанном на реальных данных, внутреннее управление портфелем было эффективным по сравнению с рынком до начала мая месяца. На графике сравнения доходности портфеля и рынка (Приложение № 2.2) можно видеть падение доходности к погашению портфеля в связи со сложившейся рыночной конъюнктурой. При анализе с помощью данного показателя можно сказать, что апрель месяц был наиболее благоприятным для дополнительного инвестирования денежных средств. Применение результатов исследования для построения методов эффективного управления портфелем облигаций. Результаты исследования с помощью применения предложенных методик позволяют сделать основополагающие выводы для построения методов эффективного управления портфелем облигаций. В данном случае, под эффективным управлением понимается получение наибольшего дохода за определенный промежуток времени. Для построения методик эффективного управления портфелем облигаций необходимо учитывать следующее: 1) управление должно давать максимальный эффект; 2) в управлении нужно учитывать возможность ввода-вывода денежных средств; 3) необходимость попытки прогнозирования ситуации при изменении рыночной конъюнктуры; 4) управление портфелем с точки зрения как доходности, так и ликвидности; Полученные результаты также позволяют оценить степень влияния человека (в данном случае - трейдер) на управление портфелем облигаций. От методов, применяемых им для принятия решений, зависит эффективность управления портфелем облигаций. В этом случае бывает целесообразным контроль за управлением портфелем со стороны вышестоящего начальства без применения обременительных методик расчетов, с другой стороны, можно поощрять трейдера за успешное управление портфелем облигаций. Следовательно, предложенный индекс можно применить для оценки управления портфелем облигаций трейдером. Другая задача, которою можно решить на основе полученных результатов - это задача доверительного управления (траст). Основываясь на результатах, можно предложить следующую схему взимания платы за траст со стороны управляющего с клиента. Сравнивается индекс рынка и индекс портфеля облигаций, находящегося в трасте. В случае, если индекс портфеля превосходит индекс рынка, то дополнительный доход, получающийся от более эффективного управления портфелем облигаций, делится в определенной пропорции между управляющим и клиентом. Другой вариант: управляющий гарантирует клиенту определенный процент, а плата управляющему рассчитывается по определенной методике исходя из гарантированного дохода и дохода, полученного свыше. Заключение. В работе решены следующие ключевые моменты, необходимые для работы с Республиканскими краткосрочными бескупонными облигациями (РКО): . Автоматизация учета операций с РКО . Оценка эффективности вложений в РКО . Описано функционирование рынка РКО, поставлены задачи, которые решает Дилер на рынке. Решением задачи автоматизации операций с РКО является программный продукт, написанный на Visual Basic for Microsoft Excel, который позволяет вести полный документооборот Дилера на рынке РКО. Результатами автоматизации являются стандартизованные выходные формы, необходимые для ведения бухгалтерского учета РКО и предоставления различных отчетов. При решении задачи оценки эффективности вложений в РКО применялись статьи, содержащие информацию об различных методиках расчета доходности облигаций. Результатом решения данной задачи является разработка собственной методики анализа. Методика проверена на реальных численных данных за определенный период функционирования рынка РКО. Конечным продуктом метода является программа, написанная на Visual Basic for Microsoft Excel, позволяющая делать анализ эффективности управления портфелем облигаций. Приведенный метод анализа также можно применить в дальнейшем для построения методов эффективного управления портфелем облигаций. Обе поставленные задачи внедрены и используются на практике. Список литературы. 1. Башарин Г.П. «Начала финансовой математики» Москва, «ИНФРА-М» 1997 г. 2. Бродский В., Горлин Ю. «Модель действительной доходности ГКО для клиентов» журнал «Рынок ценных бумаг» №1 1994 г. 3. Ветров А. «Как построить агрегированные показатели доходности рынка ГКО/ОФЗ» журнал «Рынок ценных бумаг» №5 1996 г. 4. Горелов М. «Построение оптимального портфеля ГКО: как максимизировать прибыль» журнал «Рынок ценных бумаг» №6 1996 г. 5. Горелов М., Никифоров Л. «О границах применимости принципа рыночного момента» журнал «Рынок ценных бумаг» №16 1996 г. 6. Горелов М. «Что нельзя упускать при построении модели управления портфелем ГКО» журнал «Рынок ценных бумаг» №11 1996 г. 7. Горлин Ю. «Оценка доходности операций с ГКО: вырианты биржевой игры» журнал «Рынок ценных бумаг» №6 1994 г. 8. Грядовая О. «Доходность как критерий оптимизации решений по управлению портфелем ГКО» журнал «Рынок ценных бумаг» №15 1994 г. 9. Губерниев В. «ГКО в оптимальном портфеле» журнал «Рынок ценных бумаг» №15 1996 г. 10. Демушкина Е. «Сделки с государственными ценными бумагами» журнал «Рынок ценных бумаг» №23 1996 г. 11. Екушов А. «Как превысить среднюю доходность рынка ГКО» журнал «Рынок ценных бумаг» №11 1997 г. 12. Ивахин А. «Как преодолеть ограничения в моделировании рынка ГКО» журнал «Рынок ценных бумаг» №12 1996 г. 13. Комягин В.Б. «Программирование в Excel 5 и Excel 7 на языке Visual Basic» Москва, «Радио и связь» 1996 г. 14. Кузнецов М., Нифатов П. «Денежный поток и торговые операции на рынке ГКО» журнал «Рынок ценных бумаг» №4 1996 г. 15. Мешкова Н. Кулакова Ю. «Прогнозирование тренда цены ГКО» журнал «Рынок ценных бумаг» №6 1996 г. 16. Михеев А. «Играем на заемные средства» журнал «Рынок ценных бумаг» №3 1997 г. 17. Остроушко О., Гришин О. «Доходность и дюрация портфеля ГКО» журнал «Рынок ценных бумаг» №5 1996г. 18. Положение об обслуживании и обращении выпусков РКО РТ(утверждено постановлением Кабинета Министров РТ от 21 апреля 1995 г. № 238) 19. «Потоки платежей,виды облигаций и вычисление доходности» Москва «Консультационное агентство «Соболев» 1996 г. 20. «Рынок ценных бумаг» учебник под ред. Галанова В.А., Басова А.И. Москва «Финансы и статистика» 1996 г. 21. Суменкова Е.В. «Операции с ценными бумагами» Москва «Перспектива» 1997 г. 22. Ушаков П. «О взаимосвязях индикаторов рынка ГКО» журнал «Рынок ценных бумаг» №3 1997 г. 23. Черкасов В.Е. «Практическое руководство по финансово-экономическим расчетам» Москва «Метаинформ» 1995 г. 24. Черновский А. «Как оценить эффективноть управления портфелем ГКО» журнал «Рынок ценных бумаг» №24 1996 г. 25. Четыркин Е. «Методы финансовых и коммерческих расчетов» Приложения. Приложение № 1. Программа автоматизации учета РКО. Приложение 1.1. Руководство пользователя. Данная программа написана на Microsoft Visual Basic for Excel. Для запуска программы необходимо открыть файл sprav.xls в Excel, после чего в линейке меню появится дополнительный пункт меню «Справочник», состоящий из следующих разделов: Дата Просмотр остатков Печать Депозитарий Портфель Биржевая информация Отчеты клиентам Отчет недельный Отчет месячный Журнал лицевого учета Окно Бумаги Сделки Клиенты Биржа Рассмотрим подробнее каждое из пунктов меню. Дата - изменение даты для работы. Просмотр остатков - просмотр остатков по Клиентам. Печать - распечатка на принтер следующих данных: Депозитарий - печать депозитария. Портфель - печать собственного портфеля Дилера. Биржевая информация - печать биржевой информации. Отчеты клиентам - печать отчетов Клиентам. Отчет недельный - печать еженедельного отчета, предоставляемого в депозитарий. Отчет месячный - печать ежемесячного отчета, предоставляемого в депозитарий. Журнал лицевого учета - печать журнала лицевого учета и журнала оборотов Дилера. Окно - выбор следующих окон для ввода информации: Бумаги - выбор окна ввода информации об обращающихся на рынке бумагах. Сделки - выбор окна ввода сделок. Клиенты - выбор окна ввода Клиентов. Биржа - выбор окна ввода биржевой информации. Результатом работы программы являются Приложения №1.3-1.12 Приложение 1.2. Текст программы. Option Explicit Option Base 1 Public CurDate As Date Public DepoArray() As Integer Public BumArray(); BumArrayV() As Integer Public Button; Просмотр; ExitVar; Покупка; Продажа; Погашение As Boolean Const DilerConst = 1000900000 Const FilialConst = 1000999999 Const ConstMaxBum = 100 ' максимальное кол-во бумаг(выпусков) Const MaxCount = 1000 ' максимальное кол-во сделок по 1-ой бумаге Const S192 = "50202" Const S904 = "47423" Const S960 = "70102" Const S970 = "70204" Const SR970 = "70204" Sub Auto_Open() ActiveWindow.WindowState = xlMaximized CurDate = Date Worksheets("Врем").Cells(1; 4) = CurDate Application.OnWindow = "CancelChanges" Application.Windows("Sprav.xls").OnWindow = "Start" End Sub Sub Auto_Close() MenuBars(xlModule).Reset MenuBars(xlWorksheet).Reset Application.OnWindow = "" Application.Windows("Sprav.xls").OnWindow = "" ActiveWorkbook.Save End Sub Sub Start() Call CreateMenu Application.DisplayFullScreen = False ActiveWindow.WindowState = xlMaximized CurDate = Date Worksheets("Врем").Cells(1; 4) = CurDate End Sub Sub CancelChanges() MenuBars(xlModule).Reset MenuBars(xlWorksheet).Reset End Sub Sub CreateMenu() MenuBars(xlModule).Reset MenuBars(xlWorksheet).Reset With MenuBars(xlModule).Menus.Add("&Справочник") .MenuItems.Add "&Дата"; "DateChange" .MenuItems.Add "П&росмотр остатков"; "PrintOst" .MenuItems.AddMenu ("&Печать") .MenuItems("&Печать").MenuItems.Add "&Депозитарий"; "PrintDepo" .MenuItems("&Печать").MenuItems.Add "&Портфель"; "PrintPortfel" .MenuItems("&Печать").MenuItems.Add "&Биржевая информация"; "PrintBirgaInfo" .MenuItems("&Печать").MenuItems.Add "Отчеты &клиентам"; "PrintOtchClient" .MenuItems("&Печать").MenuItems.Add "Отчет &недельный"; "PrintOtchWeek" .MenuItems("&Печать").MenuItems.Add "Отчет &месячный"; "PrintOtchMonth" .MenuItems("&Печать").MenuItems.Add "Журнал &лицевого учета"; "PrintMagazine" .MenuItems.AddMenu ("&Окно") .MenuItems("&Окно").MenuItems.Add "&Бумаги"; "ViewPaper" .MenuItems("&Окно").MenuItems.Add "&Сделки"; "ViewDeal" .MenuItems("&Окно").MenuItems.Add "&Клиенты"; "ViewClient" .MenuItems("&Окно").MenuItems.Add "Би&ржа"; "ViewBirga" .MenuItems("&Окно").MenuItems.Add "&Остатки 812"; "ViewOst812" .MenuItems("&Окно").MenuItems.Add "О&статки биржа"; "ViewOstBirga" .MenuItems("&Окно").MenuItems.Add "&Защита"; "ViewProgram" End With With MenuBars(xlWorksheet).Menus.Add("&Справочник") .MenuItems.Add "&Дата"; "DateChange" .MenuItems.Add "П&росмотр остатков"; "PrintOst" .MenuItems.AddMenu ("&Печать") .MenuItems("&Печать").MenuItems.Add "&Депозитарий"; "PrintDepo" .MenuItems("&Печать").MenuItems.Add "&Портфель"; "PrintPortfel" .MenuItems("&Печать").MenuItems.Add "&Биржевая информация"; "PrintBirgaInfo" .MenuItems("&Печать").MenuItems.Add "Отчеты &клиентам"; "PrintOtchClient" .MenuItems("&Печать").MenuItems.Add "Отчет &недельный"; "PrintOtchWeek" .MenuItems("&Печать").MenuItems.Add "Отчет &месячный"; "PrintOtchMonth" .MenuItems("&Печать").MenuItems.Add "Журнал &лицевого учета"; "PrintMagazine" .MenuItems.AddMenu ("&Окно") .MenuItems("&Окно").MenuItems.Add "&Бумаги"; "ViewPaper" .MenuItems("&Окно").MenuItems.Add "&Сделки"; "ViewDeal" .MenuItems("&Окно").MenuItems.Add "&Клиенты"; "ViewClient" .MenuItems("&Окно").MenuItems.Add "Би&ржа"; "ViewBirga" .MenuItems("&Окно").MenuItems.Add "&Остатки 812"; "ViewOst812" .MenuItems("&Окно").MenuItems.Add "О&статки биржа"; "ViewOstBirga" .MenuItems("&Окно").MenuItems.Add "&Защита"; "ViewProgram" End With End Sub Sub ViewPaper() Sheets("Бумаги").Select Call EndOf End Sub Sub ViewDeal() Sheets("Сделки").Select Call EndOf End Sub Sub ViewClient() Sheets("Клиенты").Select Call EndOf End Sub Sub ViewBirga() Sheets("Биржа").Select Call EndOf End Sub Sub ViewOst812() Sheets("Остатки812").Select Call EndOf End Sub Sub ViewOstBirga() Sheets("ОстаткиБиржа").Select Call EndOf End Sub Sub ViewProgram() Sheets("Защита").Select End Sub '------------------------------ Печать Депозитария --------------- Sub PrintDepo() Dim BumNum; CliNum; i; j; k; a; n; Sign; s As Integer Dim Flag As Boolean Dim Code As Long Dim Str As String Dim DepoFil() As Integer Dim Num As Integer CurDate = Worksheets("Врем").Cells(1; 4) Call FormBum Sheets("Депо").Select BumNum = Worksheets("Врем").Cells(1; 2) Cells(3; 5) = Worksheets("Врем").Cells(1; 4) Cells(3; 5).NumberFormat = "Д ММММ, ГГГГ" Cells(3; 5).HorizontalAlignment = xlCenterAcrossSelection Cells(3; 5).Font.Bold = True Num = 9 For i = 1 To BumNum Cells(6; i + 1) = Worksheets("Врем").Cells(i; 1) Cells(6; i + 1).Font.Bold = True Cells(6; i + 1).Interior.ColorIndex = 40 Cells(Num + 1; i + 1).Interior.ColorIndex = 15 Cells(Num + 1; i + 1) = "" Cells(Num; i + 1).Interior.ColorIndex = 40 Cells(Num; i + 1) = "" Cells(5; i + 1).Interior.ColorIndex = 40 Next Cells(Num; 1).Interior.ColorIndex = 40 Cells(Num; 1) = "Итого" Cells(Num; 1).Font.Bold = True Cells(Num; 1).Font.Italic = True Cells(Num; 1).HorizontalAlignment = xlCenter Cells(Num + 1; 1) = "" Cells(Num + 1; 1).Interior.ColorIndex = 15 CliNum = Worksheets("Врем").Cells(1; 3) ReDim DepoArray(CliNum; BumNum) ReDim DepoFil(BumNum) a = 2 While Worksheets("Сделки").Cells(a; 1) <> Empty i = 1 While Worksheets("Клиенты").Cells(i + 1; 2) <> _ Worksheets("Сделки").Cells(a; 2) If Worksheets("Клиенты").Cells(i + 1; 2) = Empty Then MsgBox "Неверный номер клиента в Окне 'Сделки' строка: " + CStr(a) Sheets("Сделки").Select Cells(a; 2).Select Exit Sub End If i = i + 1 Wend k = 0 For j = 1 To BumNum If Worksheets("Врем").Cells(j; 1) = Worksheets("Сделки").Cells(a; 3) Then k = j Exit For End If Next If k = 0 Then a = a + 1 GoTo NNN End If If Not IsEmpty(Worksheets("Сделки").Cells(a; 4)) Then Sign = 1 Else Sign = -1 End If If CurDate >= Worksheets("Сделки").Cells(a; 1) Then If Worksheets("Сделки").Cells(a; 2) = FilialConst Then DepoFil(k) = DepoFil(k) + Sign * Worksheets("Сделки").Cells(a; 6) Else DepoArray(i; k) = DepoArray(i; k) + Sign * Worksheets("Сделки").Cells(a; 6) End If End If a = a + 1 NNN: Wend n = 7 For i = 1 To CliNum Flag = False For k = 1 To BumNum If DepoArray(i; k) > 0 Then Flag = True Next If Flag Then Str = Format(Worksheets("Клиенты").Cells(i + 1; 2); "0000000000") Str = Right(Str; 5) Cells(n; 1).NumberFormat = "@" Cells(n; 1).Font.Bold = True Cells(n; 1).HorizontalAlignment = xlCenter Cells(n; 1).Font.Italic = False Cells(n; 1).Interior.ColorIndex = 2 Cells(n; 1) = Str For k = 1 To BumNum If DepoArray(i; k) <> 0 Then Cells(n; k + 1) = DepoArray(i; k) Else Cells(n; k + 1) = "" End If Cells(n; k + 1).Font.Bold = False Cells(n; k + 1).Font.Italic = False Cells(n; k + 1).Interior.ColorIndex = 2 Next If n = 7 Then n = n + 4 Else n = n + 1 End If End If Next 'расчет по филиалу Cells(8; 1) = "Филиал" Cells(8; 1).Font.Bold = True Cells(8; 1).HorizontalAlignment = xlCenter Cells(8; 1).Font.Italic = False Cells(8; 1).Interior.ColorIndex = 2 For k = 1 To BumNum If DepoFil(k) <> 0 Then Cells(8; k + 1) = DepoFil(k) Else Cells(8; k + 1) = "" End If Cells(8; k + 1).Font.Bold = False Cells(8; k + 1).Font.Italic = False Cells(8; k + 1).Interior.ColorIndex = 2 Next For i = 1 To BumNum Cells(n; i + 1).Interior.ColorIndex = 40 s = 0 For k = 11 To n - 1 s = s + Cells(k; i + 1) Next Cells(n; i + 1).Value = s Next For i = 1 To BumNum Cells(9; i + 1) = Cells(7; i + 1) + Cells(8; i + 1) Next Cells(n; 1).Interior.ColorIndex = 40 Cells(n; 1) = "Итого 9998" Cells(n; 1).Font.Bold = True Cells(n; 1).Font.Italic = True Range("A1:Z200").Borders(xlLeft).LineStyle = xlNone Range("A1:Z200").Borders(xlRight).LineStyle = xlNone Range("A1:Z200").Borders(xlTop).LineStyle = xlNone Range("A1:Z200").Borders(xlBottom).LineStyle = xlNone Range("A1:Z200").BorderAround LineStyle:=xlNone Range(Cells(5; 1); Cells(n; BumNum + 1)).Borders(xlLeft).Weight = xlThin Range(Cells(5; 1); Cells(n; BumNum + 1)).Borders(xlRight).Weight = xlThin Range(Cells(5; 1); Cells(n; BumNum + 1)).Borders(xlTop).Weight = xlThin Range(Cells(5; 1); Cells(n; BumNum + 1)).Borders(xlBottom).Weight = xlThin Range(Cells(5; 1); Cells(n; BumNum + 1)).BorderAround Weight:=xlMedium Range(Cells(n + 1; 1); Cells(100; 30)).Delete shift:=xlToLeft Range(Cells(1; BumNum + 2); Cells(100; 30)).Delete shift:=xlToLeft If DialogPrint("Депо"; 1) Then Exit Sub Call EditOstBirga(DilerConst) End Sub '-------------------------------- Печать Отчеты клиентам ----------- Sub PrintOtchClient() Dim Sheet; Ost812 As Object Dim i; j; d; a; Col; m; MM; NN; MMM; k; b; q As Long Dim FlagBuy; FlagCell; FlagDeal; FlagDepo As Boolean Dim CliNum As Long Dim ComStr; StrComS As String Dim BumNum; z; z1; Index As Integer Dim s; sum; SumBuy; Ost; SumCom; ComBirga; ComDiler; ComSum As Double Dim Com As Double Dim OstIn; OstOut; OstBegin; OstEnd As Double Dim RowNum As Long Dim OstInDate; OstOutDate As String Dim DoFlag As Boolean Dim Auk As Boolean Set Sheet = Worksheets("Сделки") Sheet.Range("A2").Sort Key1:=Sheet.Range("A2"); Order1:=xlAscending; _ Key2:=Sheet.Range("B2"); Order2:=xlAscending; _ Key3:=Sheet.Range("D2"); Order3:=xlAscending; _ Header:=xlYes; OrderCustom:=1; _ MatchCase:=False; Orientation:=xlTopToBottom CurDate = Worksheets("Врем").Cells(1; 4) Worksheets("ОтчетыИнвесторам").Select i = 2 FlagDeal = False FlagBuy = True FlagCell = True NN = 29 ' начало m = NN Range(Cells(NN - 1; 2); Cells(NN + 200; 6)).Delete shift:=xlToLeft Rows(CStr(NN - 1) + ":" + CStr(NN - 1)).RowHeight = 28 Rows(CStr(NN - 1) + ":" + CStr(NN - 1)).WrapText = True Rows(CStr(NN - 1) + ":" + CStr(NN - 1)).HorizontalAlignment = xlCenter Rows(CStr(NN - 1) + ":" + CStr(NN - 1)).VerticalAlignment = xlBottom Cells(NN - 1; 2) = "№ выпуска" Cells(NN - 1; 3) = "Дата погашения" Cells(NN - 1; 4) = "Цена сделки" Cells(NN - 1; 5) = "Количество" Cells(NN - 1; 6) = "Сумма сделки" Cells(NN - 3; 3) = "Совершенные сделки на рынке РКО" Cells(NN - 3; 3).Font.Bold = True sum = 0 SumBuy = 0 SumCom = 0 ComBirga = 0 Call FormBum BumNum = Worksheets("Врем").Cells(1; 2) ReDim BumArray(BumNum) ReDim BumArrayV(BumNum) Index = CInt(InputBox("Введите номер 1-го ордера")) Do While Sheet.Cells(i; 1) <> Empty If Sheet.Cells(i; 1) = CurDate And Sheet.Cells(i; 2) <> DilerConst Then FlagDeal = True If FlagBuy And Sheet.Cells(i; 4) <> Empty Then Покупка = True CliNum = Sheet.Cells(i; 2) Cells(m; 2) = "Покупка" Cells(m; 2).HorizontalAlignment = xlLeft Range(Cells(m; 2); Cells(m; 6)).Interior.ColorIndex = 15 m = m + 1 MM = m FlagBuy = False End If If FlagCell And Sheet.Cells(i; 4) = Empty Then If Not FlagBuy Then s = 0 Col = 0 SumCom = 0 ComBirga = 0 For a = MM To m - 1 Cells(a; 6) = Cells(a; 4) * Cells(a; 5) * 10 If Cells(a; 4) <> 100 Then SumCom = SumCom + Cells(a; 4) * Cells(a; 5) * 10 ComBirga = ComBirga + _ CDbl(Format(Cells(a; 4) * Cells(a; 5) * 0,1 * Worksheets("Инфо").Cells(1; 2) + 0,001; "0,00")) Else Погашение = True End If Cells(a; 6).NumberFormat = "# ###" s = s + Cells(a; 6) Col = Col + Cells(a; 5) Next a sum = sum + s SumBuy = s Cells(m; 6) = s Cells(m; 6).NumberFormat = "# ###" Cells(m; 5) = Col Cells(m; 2) = "Итого" m = m + 1 End If CliNum = Sheet.Cells(i; 2) Cells(m; 2) = "Продажа" Продажа = True Cells(m; 2).HorizontalAlignment = xlLeft Range(Cells(m; 2); Cells(m; 6)).Interior.ColorIndex = 15 m = m + 1 MM = m FlagCell = False End If Cells(m; 2) = Sheet.Cells(i; 3) q = 2 While Worksheets("Бумаги").Cells(q; 1) <> Empty If Worksheets("Бумаги").Cells(q; 1) = Cells(m; 2) Then Cells(m; 3) = Worksheets("Бумаги").Cells(q; 3) Cells(m; 3).NumberFormat = "ДД.ММ.ГГ" End If q = q + 1 Wend If Sheet.Cells(i; 4) <> Empty Then Cells(m; 4) = Sheet.Cells(i; 4) Else Cells(m; 4) = Sheet.Cells(i; 5) End If Cells(m; 4).NumberFormat = "0,00" Cells(m; 5) = Sheet.Cells(i; 6) m = m + 1 If CliNum <> Sheet.Cells(i + 1; 2) Or Sheet.Cells(i + 1; 1) <> CurDate Then s = 0 Col = 0 For a = MM To m - 1 Cells(a; 6) = Cells(a; 4) * Cells(a; 5) * 10 If Cells(a; 4) <> 100 Then SumCom = SumCom + Cells(a; 4) * Cells(a; 5) * 10 ComBirga = ComBirga + _ CDbl(Format(Cells(a; 4) * Cells(a; 5) * 0,1 * Worksheets("Инфо").Cells(1; 2) + 0,001; "0,00")) Else Погашение = True End If Cells(a; 6).NumberFormat = "# ###,00" s = s + Cells(a; 6) Col = Col + Cells(a; 5) Next a sum = sum + s If FlagCell Then SumBuy = s Cells(m; 6) = s Cells(m; 6).NumberFormat = "# ###,00" Cells(m; 5) = Col Cells(m; 2) = "Итого" Cells(5; 4) = CliNum If CliNum = FilialConst Then Cells(5; 4) = DilerConst k = 2 While Worksheets("Клиенты").Cells(k; 1) <> Empty If Worksheets("Клиенты").Cells(k; 2) = CliNum Then Cells(4; 4) = Worksheets("Клиенты").Cells(k; 1) End If k = k + 1 Wend Range(Cells(NN - 1; 2); Cells(m; 6)).Borders(xlLeft).Weight = xlThin Range(Cells(NN - 1; 2); Cells(m; 6)).Borders(xlRight).Weight = xlThin Range(Cells(NN - 1; 2); Cells(m; 6)).Borders(xlTop).Weight = xlThin Range(Cells(NN - 1; 2); Cells(m; 6)).Borders(xlBottom).Weight = xlThin Range(Cells(NN - 1; 2); Cells(m; 6)).BorderAround Weight:=xlMedium For b = 1 To BumNum BumArray(b) = 0 BumArrayV(b) = 0 Next b = 2 While Worksheets("Сделки").Cells(b; 1) <> Empty If CurDate >= Worksheets("Сделки").Cells(b; 1) And _ CliNum = Worksheets("Сделки").Cells(b; 2) Then z = 0 For z1 = 1 To BumNum If Worksheets("Врем").Cells(z1; 1) = Worksheets("Сделки").Cells(b; 3) Then z = z1 Exit For End If Next If z <> 0 Then If Not IsEmpty(Worksheets("Сделки").Cells(b; 4)) Then If CurDate > Worksheets("Сделки").Cells(b; 1) Then BumArrayV(z) = BumArrayV(z) + Worksheets("Сделки").Cells(b; 6) End If BumArray(z) = BumArray(z) + Worksheets("Сделки").Cells(b; 6) Else If CurDate > Worksheets("Сделки").Cells(b; 1) Then BumArrayV(z) = BumArrayV(z) - Worksheets("Сделки").Cells(b; 6) End If BumArray(z) = BumArray(z) - Worksheets("Сделки").Cells(b; 6) End If End If End If b = b + 1 Wend ' M+4 MMM = m + 5 Rows(CStr(m + 1) + ":" + CStr(m + 200)).Delete FlagDepo = False For b = 1 To BumNum If BumArray(b) > 0 Or BumArrayV(b) > 0 Then FlagDepo = True Cells(MMM; 2) = Worksheets("Врем").Cells(b; 1) If BumArrayV(b) < BumArray(b) Then Cells(MMM; 4) = BumArray(b) - BumArrayV(b) Else If BumArrayV(b) > BumArray(b) Then Cells(MMM; 5) = BumArrayV(b) - BumArray(b) End If End If Cells(MMM; 3) = BumArrayV(b) Cells(MMM; 6) = BumArray(b) MMM = MMM + 1 End If Next If FlagDepo Then Rows(CStr(m + 4) + ":" + CStr(m + 4)).RowHeight = 28 Rows(CStr(m + 4) + ":" + CStr(m + 4)).WrapText = True Rows(CStr(m + 4) + ":" + CStr(m + 4)).HorizontalAlignment = xlCenter Rows(CStr(m + 4) + ":" + CStr(m + 4)).VerticalAlignment = xlBottom Cells(m + 4; 2) = "№ выпуска" Cells(m + 4; 3) = "Входящий остаток" Cells(m + 4; 4) = "Куплено" Cells(m + 4; 5) = "Продано/ Погашено" Cells(m + 4; 6) = "Исходящий остаток" Cells(m + 2; 3).Font.Bold = True Cells(m + 2; 3) = "Количество бумаг, принадлежащих Инвестору (штук)" Range(Cells(m + 4; 2); Cells(MMM - 1; 6)).Borders(xlLeft).Weight = xlThin Range(Cells(m + 4; 2); Cells(MMM - 1; 6)).Borders(xlRight).Weight = xlThin Range(Cells(m + 4; 2); Cells(MMM - 1; 6)).Borders(xlTop).Weight = xlThin Range(Cells(m + 4; 2); Cells(MMM - 1; 6)).Borders(xlBottom).Weight = xlThin Range(Cells(m + 4; 2); Cells(MMM - 1; 6)).BorderAround Weight:=xlMedium End If ' ------------------------------------------------------ ' - расчет остатков Set Ost812 = Worksheets("Остатки812") Ost812.Range("B2").Sort Key1:=Ost812.Range("B2"); Order1:=xlAscending; _ Key2:=Ost812.Range("A2"); Order2:=xlDescending; _ Header:=xlYes; OrderCustom:=1; _ MatchCase:=False; Orientation:=xlTopToBottom OstIn = 0 OstOut = 0 OstBegin = 0 OstInDate = "" OstOutDate = "" RowNum = 0 k = 2 DoFlag = True Do While Ost812.Cells(k; 1) <> Empty If Ost812.Cells(k; 2) = CliNum And DoFlag Then If Ost812.Cells(k; 1) < CurDate Then OstBegin = Ost812.Cells(k; 8) Else Do While Ost812.Cells(k; 1) <> Empty If Ost812.Cells(k; 2) <> CliNum Then Exit Do If Ost812.Cells(k; 1) = CurDate Then OstBegin = Ost812.Cells(k; 3) OstIn = Ost812.Cells(k; 4) OstInDate = Ost812.Cells(k; 5) OstOut = Ost812.Cells(k; 6) OstOutDate = Ost812.Cells(k; 7) RowNum = k Exit Do End If k = k + 1 Loop End If DoFlag = False End If k = k + 1 Loop If RowNum = 0 Then RowNum = k k = RowNum ' - начало таблицы With DialogSheets("ДиалогКлиент") .Labels(8).Text = Cells(4; 4) ' Клиент .Labels(9).Text = sum ' Сумма сделки .Labels(10).Text = CurDate ' Дата текущая .Labels(17).Text = CliNum If CliNum = FilialConst Then .Labels(17).Text = DilerConst .EditBoxes(1).Text = "0" ' Сумма списания .EditBoxes(1).InputType = xlNumber .EditBoxes(2).Text = CurDate ' Дата сделки .EditBoxes(7).Text = OstOutDate ' списано (дата) .EditBoxes(8).Text = OstOut ' списано (сумма) .EditBoxes(8).InputType = xlNumber .EditBoxes(9).Text = OstInDate ' перечислено (дата) .EditBoxes(10).Text = OstIn ' перечислено (сумма) .EditBoxes(10).InputType = xlNumber Com = 0,00015 Select Case SumCom Case Is < 36000 Com = 0,005 Case Is < 51000 Com = 0,004 Case Is < 101000 Com = 0,003 Case Is < 301000 Com = 0,002 Case Is < 501000 Com = 0,001 Case Is < 1001000 Com = 0,0005 Case Is < 3001000 Com = 0,00025 End Select If Cells(4; 4) = "Универсалбанк" Then Com = 0 .EditBoxes(3).Text = Com ' Комиссия дилера .EditBoxes(3).InputType = xlNumber .EditBoxes(4).Text = "0" ' Сумма вознаграждения дилера .EditBoxes(4).InputType = xlNumber .EditBoxes(5).Text = "" ' Запись о вознаграждении .EditBoxes(6).Text = OstBegin ' Остаток на 812 счете клиента .EditBoxes(6).InputType = xlNumber Cells(MMM + 3; 1) = "Начальник инвестиционно-аналитического отдела_________________" Cells(MMM + 3; 6) = "" Again: Просмотр = False ExitVar = False Button = False .Show If .EditBoxes(1).Text = "" Then .EditBoxes(1).Text = 0 If .EditBoxes(3).Text = "" Then .EditBoxes(3).Text = 0 If .EditBoxes(4).Text = "" Then .EditBoxes(4).Text = 0 If .EditBoxes(6).Text = "" Then .EditBoxes(6).Text = 0 If .EditBoxes(8).Text = "" Then .EditBoxes(8).Text = 0 If .EditBoxes(10).Text = "" Then .EditBoxes(10).Text = 0 Cells(21; 1) = .EditBoxes(5).Text ' Запись о вознаграждении Cells(21; 1).Font.Italic = True Cells(6; 4) = .EditBoxes(2).Text ' Дата сделки ' занесение данных в итоговую таблицу Cells(10; 6) = .EditBoxes(6).Text ' Входящий остаток OstBegin = .EditBoxes(6).Text Cells(14; 6) = SumBuy Cells(15; 6) = sum - SumBuy ComStr = Format(SumCom * .EditBoxes(3).Text; "0,00") ComDiler = CDbl(ComStr) Cells(16; 6) = ComBirga Cells(18; 6) = ComDiler Cells(20; 6) = .EditBoxes(4).Text Cells(11; 6) = .EditBoxes(8).Text OstOut = .EditBoxes(8).Text OstIn = .EditBoxes(10).Text Cells(12; 6) = .EditBoxes(10).Text Cells(13; 6) = .EditBoxes(6).Text - .EditBoxes(8).Text + .EditBoxes(10).Text Cells(11; 1) = "2.Списано на р/с / выдано наличными " + .EditBoxes(7).Text OstInDate = .EditBoxes(9).Text OstOutDate = .EditBoxes(7).Text Cells(12; 1) = "3.Перечислено на покупку " + .EditBoxes(9).Text Cells(22; 6) = 2 * SumBuy - sum + ComBirga + ComDiler Cells(23; 6) = .EditBoxes(1).Text Cells(24; 6) = .EditBoxes(6).Text - .EditBoxes(8).Text + .EditBoxes(10).Text - _ (2 * SumBuy - sum + ComBirga + ComDiler) - _ .EditBoxes(1).Text - .EditBoxes(4).Text OstEnd = Cells(24; 6) Ost812.Cells(k; 1) = CurDate Ost812.Cells(k; 2) = CliNum Ost812.Cells(k; 3) = OstBegin Ost812.Cells(k; 4) = OstIn Ost812.Cells(k; 5) = OstInDate Ost812.Cells(k; 6) = OstOut Ost812.Cells(k; 7) = OstOutDate Ost812.Cells(k; 8) = OstEnd Ost812.Cells(k; 9) = Cells(14; 6) + Cells(15; 6) Ost812.Cells(k; 10) = Cells(16; 6) Ost812.Cells(k; 11) = Cells(18; 6) Call EditOstBirga(CliNum) ' конец занесения данных If Просмотр Then Worksheets("ОтчетыИнвесторам").PrintPreview GoTo Again End If If Button Then ActiveWindow.SelectedSheets.PrintOut copies:=2 If ExitVar Then Exit Sub End With ' печать мемориальных ордеров Dim StrS As String Auk = False With DialogSheets("ДиалогОперация") .Show If .OptionButtons(1).Value = xlOn Then StrS = "Покупка" If .OptionButtons(2).Value = xlOn Then StrS = "Продажа" If .OptionButtons(3).Value = xlOn Then StrS = "Погашение" If .OptionButtons(4).Value = xlOn Then StrS = "Покупка / Продажа" If .OptionButtons(5).Value = xlOn Then StrS = "Покупка / Погашение" If .OptionButtons(5).Value = xlOn Then Auk = True End With Worksheets("Ордер").Select Dim Pos812 As Integer Dim Page; Page1 As Object Set Page = Worksheets("ОтчетыИнвесторам") Set Page1 = Worksheets("Клиенты") Pos812 = 2 While (Page1.Cells(Pos812; 1) <> Empty) And (Worksheets("Клиенты").Cells(Pos812; 2) <> CliNum) Pos812 = Pos812 + 1 Wend If Page.Cells(14; 6) - Page.Cells(15; 6) > 0 Then If MemoOrder(Index; Page.Cells(14; 6) - Page.Cells(15; 6); 6; 7; Pos812; _ StrS + " РКО за " + CStr(CurDate)) Then Exit Sub Index = Index + 1 Else If MemoOrder(Index; Page.Cells(15; 6) - Page.Cells(14; 6); 7; 6; Pos812; _ StrS + " РКО за " + CStr(CurDate)) Then Exit Sub Index = Index + 1 End If Dim SumS As Double SumS = Page.Cells(16; 6) + Page.Cells(18; 6) + Page.Cells(20; 6) If SumS > 0 Then StrS = "" If Page.Cells(18; 6) > 0 Then StrS = "Комиссия Дилера " + CStr(Page.Cells(18; 6)) + " в т.ч. НДС " + _ CStr(Format(Page.Cells(18; 6) / 6; "0,00")) If Page.Cells(16; 6) > 0 And Not Auk Then StrS = StrS + " возмещение ком. ВКБ " + CStr(Page.Cells(16; 6)) + " в т.ч. НДС " + _ CStr(Format(Page.Cells(16; 6) / 6; "0,00")) If CliNum = FilialConst Then If MemoOrder(Index; SumS; 6; 7; Pos812; StrS) Then Exit Sub Else If Auk Then StrS = StrS + " по приобретению на аукционе" If MemoOrder(Index; Page.Cells(18; 6) + Page.Cells(20; 6); 6; 12; Pos812; StrS) Then Exit Sub StrS = "Возмещение ком. ВКБ " + CStr(Page.Cells(16; 6)) + " в т.ч. НДС " + _ CStr(Format(Page.Cells(16; 6) / 6; "0,00")) Index = Index + 1 If MemoOrder(Index; Page.Cells(16; 6); 6; 8; Pos812; StrS) Then Exit Sub Else If MemoOrder(Index; SumS; 6; 8; Pos812; StrS) Then Exit Sub End If End If Index = Index + 1 End If If CliNum <> FilialConst Then If Len(StrComS) > 0 Then StrComS = StrComS + "," + CStr(Right(CliNum; 3)) Else StrComS = StrComS + CStr(Right(CliNum; 3)) End If End If If CliNum <> FilialConst Then ComSum = ComSum + Page.Cells(16; 6) Worksheets("ОтчетыИнвесторам").Select '--------------- Rows(CStr(m + 4) + ":" + CStr(m + 4)).RowHeight = 13,8 Rows(CStr(m + 4) + ":" + CStr(m + 4)).WrapText = False Rows(CStr(m + 4) + ":" + CStr(m + 4)).HorizontalAlignment = xlRight Rows(CStr(m + 4) + ":" + CStr(m + 4)).VerticalAlignment = xlBottom Range(Cells(NN; 2); Cells(NN + 200; 6)).Delete shift:=xlToLeft m = NN FlagBuy = True FlagCell = True ComBirga = 0 sum = 0 SumBuy = 0 SumCom = 0 End If End If i = i + 1 Loop If Not FlagDeal Then MsgBox "Сделок в текущий день не было" Else If ComSum > 0 Then Worksheets("Ордер").Select If MemoOrder(Index; ComSum; 9; 7; 2; _ "Комиссия ВКБ по инвесторам " + StrComS + " в т.ч. НДС " + _ CStr(Format(ComSum / 6; "0,00"))) Then Exit Sub End If End If End Sub '-------------------------------- Печать Отчеты недельные ---------- Sub PrintOtchWeek() Dim BumNum; CliNum; i; j; k; a; n; Sign; s As Integer Dim Flag As Boolean Dim Code As Long Dim Str As String Dim DepoFil() As Integer Dim Num As Integer CurDate = Worksheets("Врем").Cells(1; 4) Call FormBum Sheets("ОтчетНедельный").Select BumNum = Worksheets("Врем").Cells(1; 2) Num = 8 For i = 1 To BumNum Cells(6; i + 1) = Worksheets("Врем").Cells(i; 1) Cells(6; i + 1).Font.Bold = True Cells(6; i + 1).Interior.ColorIndex = 40 Cells(Num; i + 1).Interior.ColorIndex = 15 Cells(Num; i + 1) = "" Cells(5; i + 1).Interior.ColorIndex = 40 Next Cells(Num; 1).Interior.ColorIndex = 15 Cells(Num; 1) = "" Cells(5; 1).Interior.ColorIndex = 40 Cells(5; 1) = "" Cells(6; 1).Interior.ColorIndex = 40 Cells(6; 1).Font.Bold = True Cells(6; 1) = "№ бумаги" Cells(7; 1) = "Дилер" Cells(6; 1).HorizontalAlignment = xlCenter Cells(7; 1).HorizontalAlignment = xlCenter Cells(7; 1).Font.Bold = True CliNum = Worksheets("Врем").Cells(1; 3) ReDim DepoArray(CliNum; BumNum) a = 2 While Worksheets("Сделки").Cells(a; 1) <> Empty i = 1 While Worksheets("Клиенты").Cells(i + 1; 2) <> _ Worksheets("Сделки").Cells(a; 2) If Worksheets("Клиенты").Cells(i + 1; 2) = Empty Then MsgBox "Неверный номер клиента в Окне 'Сделки'" Exit Sub End If i = i + 1 Wend k = 0 For j = 1 To BumNum If Worksheets("Врем").Cells(j; 1) = Worksheets("Сделки").Cells(a; 3) Then k = j Exit For End If Next If k = 0 Then a = a + 1 GoTo NNN End If If Not IsEmpty(Worksheets("Сделки").Cells(a; 4)) Then Sign = 1 Else Sign = -1 End If If CurDate >= Worksheets("Сделки").Cells(a; 1) Then DepoArray(i; k) = DepoArray(i; k) + Sign * Worksheets("Сделки").Cells(a; 6) End If a = a + 1 NNN: Wend For k = 1 To BumNum DepoArray(1; k) = DepoArray(1; k) + DepoArray(2; k) DepoArray(2; k) = 0 Next k n = 7 For i = 1 To CliNum Flag = False For k = 1 To BumNum If DepoArray(i; k) > 0 Then Flag = True Next If Flag Then If n > 7 Then Str = Format(Worksheets("Клиенты").Cells(i + 1; 2); "0000000000") Str = Right(Str; 5) Cells(n; 1).NumberFormat = "@" Cells(n; 1).Font.Bold = True Cells(n; 1).HorizontalAlignment = xlCenter Cells(n; 1).Font.Italic = False Cells(n; 1).Interior.ColorIndex = 2 Cells(n; 1) = Str End If For k = 1 To BumNum If DepoArray(i; k) <> 0 Then Cells(n; k + 1) = DepoArray(i; k) Else Cells(n; k + 1) = "" End If Cells(n; k + 1).Font.Bold = False Cells(n; k + 1).Font.Italic = False Cells(n; k + 1).Interior.ColorIndex = 2 Next If n = 7 Then n = n + 2 Else n = n + 1 End If End If Next For i = 1 To BumNum Cells(n; i + 1).Interior.ColorIndex = 40 s = 0 For k = 9 To n - 1 s = s + Cells(k; i + 1) Next Cells(n; i + 1).Value = s Next Cells(n; 1).Interior.ColorIndex = 40 Cells(n; 1) = "Итого по инвесторам" Cells(n; 1).Font.Bold = True Cells(n; 1).Font.Italic = True Range("A1:Z200").Borders(xlLeft).LineStyle = xlNone Range("A1:Z200").Borders(xlRight).LineStyle = xlNone Range("A1:Z200").Borders(xlTop).LineStyle = xlNone Range("A1:Z200").Borders(xlBottom).LineStyle = xlNone Range("A1:Z200").BorderAround LineStyle:=xlNone Range(Cells(5; 1); Cells(n; BumNum + 1)).Borders(xlLeft).Weight = xlThin Range(Cells(5; 1); Cells(n; BumNum + 1)).Borders(xlRight).Weight = xlThin Range(Cells(5; 1); Cells(n; BumNum + 1)).Borders(xlTop).Weight = xlThin Range(Cells(5; 1); Cells(n; BumNum + 1)).Borders(xlBottom).Weight = xlThin Range(Cells(5; 1); Cells(n; BumNum + 1)).BorderAround Weight:=xlMedium Range(Cells(n + 1; 1); Cells(100; 30)).Delete shift:=xlToLeft Range(Cells(1; BumNum + 2); Cells(100; 30)).Delete shift:=xlToLeft Range("a2") = "на " + CStr(CurDate) Range(Cells(n + 2; 1); Cells(n + 3; BumNum + 1)).BorderAround Weight:=xlMedium Cells(n + 2; 1) = "Количество перечисленных облигаций на счета ""Депо""" Cells(n + 3; 1) = "без совершения сделок купли-продажи" Cells(n + 2; 1).Font.Bold = True Cells(n + 3; 1).Font.Bold = True Cells(n + 5; 1).Font.Size = 12 Cells(n + 5; 1) = "Ответственное лицо Дилера " + _ " _________________________ " Cells(n + 3; BumNum + 1) = 0 Cells(n + 3; BumNum + 1).Font.Bold = True If DialogPrint("ОтчетНедельный"; 2) Then Exit Sub End Sub '-------------------------------- Печать Отчеты Месячные ----------- Sub PrintOtchMonth() Dim DateBegin; DateEnd; DateMas() As Date Dim i; k; m; NumberClients; kk As Long Dim Sign; BumNum; Row; Col; Num; sum As Integer Dim DateFlag; Flag; CliInput(); BumInput() As Boolean Dim Bum(ConstMaxBum) As Long Dim mas() As Integer Dim Sheet As Object Dim Str As String With DialogSheets("ДиалогМесОтчет") .EditBoxes(1).InputType = xlDate .EditBoxes(2).InputType = xlDate .Show If Not Button Then Exit Sub If IsDate(.EditBoxes(1).Text) = False Or _ IsDate(.EditBoxes(2).Text) = False Then MsgBox "Неверно введены даты" Exit Sub End If DateBegin = CDate(.EditBoxes(1).Text) DateEnd = CDate(.EditBoxes(2).Text) If DateBegin >= DateEnd Then MsgBox "Даты не пересекаются" Exit Sub End If End With Set Sheet = Worksheets("Бумаги") i = 2 BumNum = 0 While Sheet.Cells(i; 1) <> Empty If (Sheet.Cells(i; 2) < DateBegin And Sheet.Cells(i; 3) > DateBegin) Or _ (Sheet.Cells(i; 2) < DateEnd And Sheet.Cells(i; 3) > DateEnd) Or _ (Sheet.Cells(i; 2) > DateBegin And Sheet.Cells(i; 3) < DateEnd) Then Bum(BumNum + 1) = Sheet.Cells(i; 1) BumNum = BumNum + 1 End If i = i + 1 Wend Set Sheet = Worksheets("Клиенты") i = 2 k = 0 While Sheet.Cells(i; 1) <> Empty If Sheet.Cells(i; 2) > k And Sheet.Cells(i; 2) <> FilialConst Then k = Sheet.Cells(i; 2) End If i = i + 1 Wend NumberClients = k - DilerConst DateFlag = True ReDim mas(NumberClients; BumNum * 7) ReDim DateMas(NumberClients; BumNum) ReDim CliInput(NumberClients) ReDim BumInput(BumNum) i = 2 Worksheets("Сделки").Select While Cells(i; 1) <> Empty If Cells(i; 2) <> DilerConst And Cells(i; 2) <> FilialConst Then If Cells(i; 1) < DateBegin Then Flag = True For k = 1 To BumNum ' поиск номера бумаги If Cells(i; 3) = Bum(k) Then Flag = False Exit For End If Next k If Flag Then GoTo cont Sign = 1 If IsEmpty(Cells(i; 4)) Then Sign = -1 mas(Cells(i; 2) - DilerConst; (k - 1) * 7 + 1) = _ mas(Cells(i; 2) - DilerConst; (k - 1) * 7 + 1) + Sign * Cells(i; 6) End If If Cells(i; 1) >= DateBegin And DateFlag Then For k = 1 To NumberClients For m = 1 To BumNum mas(k; (m - 1) * 7 + 2) = mas(k; (m - 1) * 7 + 1) Next m Next k DateFlag = False End If If Cells(i; 1) >= DateBegin And Cells(i; 1) "списание" And Cells(i; 7) <> "зачисление" Then If Not IsEmpty(Cells(i; 4)) Then mas(Cells(i; 2) - DilerConst; (k - 1) * 7 + 3) = _ mas(Cells(i; 2) - DilerConst; (k - 1) * 7 + 3) + Cells(i; 6) Else mas(Cells(i; 2) - DilerConst; (k - 1) * 7 + 4) = _ mas(Cells(i; 2) - DilerConst; (k - 1) * 7 + 4) + Cells(i; 6) End If If DateMas(Cells(i; 2) - DilerConst; k) <> Cells(i; 1) Then DateMas(Cells(i; 2) - DilerConst; k) = Cells(i; 1) mas(Cells(i; 2) - DilerConst; (k - 1) * 7 + 5) = _ mas(Cells(i; 2) - DilerConst; (k - 1) * 7 + 5) + 1 End If End If If Cells(i; 7) = "списание" Then mas(Cells(i; 2) - DilerConst; (k - 1) * 7 + 6) = _ mas(Cells(i; 2) - DilerConst; (k - 1) * 7 + 6) + Cells(i; 6) End If If Cells(i; 7) = "зачисление" Then mas(Cells(i; 2) - DilerConst; (k - 1) * 7 + 7) = _ mas(Cells(i; 2) - DilerConst; (k - 1) * 7 + 7) + Cells(i; 6) End If Sign = 1 If IsEmpty(Cells(i; 4)) Then Sign = -1 mas(Cells(i; 2) - DilerConst; (k - 1) * 7 + 2) = _ mas(Cells(i; 2) - DilerConst; (k - 1) * 7 + 2) + Sign * Cells(i; 6) End If End If cont: i = i + 1 Wend For i = 1 To NumberClients CliInput(i) = False For k = 1 To BumNum If mas(i; (k - 1) * 7 + 1) > 0 Or _ mas(i; (k - 1) * 7 + 2) > 0 Or _ mas(i; (k - 1) * 7 + 3) > 0 Or _ mas(i; (k - 1) * 7 + 4) > 0 Or _ mas(i; (k - 1) * 7 + 5) > 0 Or _ mas(i; (k - 1) * 7 + 6) > 0 Or _ mas(i; (k - 1) * 7 + 7) > 0 Then CliInput(i) = True Next k Next i For k = 1 To BumNum BumInput(k) = False For i = 1 To NumberClients If mas(i; (k - 1) * 7 + 1) > 0 Or _ mas(i; (k - 1) * 7 + 2) > 0 Or _ mas(i; (k - 1) * 7 + 3) > 0 Or _ mas(i; (k - 1) * 7 + 4) > 0 Or _ mas(i; (k - 1) * 7 + 5) > 0 Or _ mas(i; (k - 1) * 7 + 6) > 0 Or _ mas(i; (k - 1) * 7 + 7) > 0 Then BumInput(k) = True Next i Next k Worksheets("ОтчетМесячный").Select Range(Cells(7; 1); Cells(800; 22)).Delete shift:=xlToLeft Row = 4 Col = 2 Cells(2; 1) = "за период от " + CStr(DateBegin) + " до " + CStr(DateEnd) kk = 0 Flag = False For k = 1 To BumNum If BumInput(k) Then Cells(Row; Col) = Bum(k) Num = 0 For i = 1 To NumberClients If CliInput(i) Then If Col = 2 Then Str = Format(i; "0000000000") Str = Right(Str; 5) Cells(Row + Num + 3; Col - 1).NumberFormat = "@" Cells(Row + Num + 3; Col - 1).Font.Bold = True Cells(Row + Num + 3; Col - 1).HorizontalAlignment = xlCenter Cells(Row + Num + 3; Col - 1).Font.Italic = False Cells(Row + Num + 3; Col - 1).Interior.ColorIndex = 2 Cells(Row + Num + 3; Col - 1) = Str End If Cells(Row + Num + 3; Col) = mas(i; (k - 1) * 7 + 1) Cells(Row + Num + 3; Col + 1) = mas(i; (k - 1) * 7 + 2) Cells(Row + Num + 3; Col + 2) = mas(i; (k - 1) * 7 + 3) Cells(Row + Num + 3; Col + 3) = mas(i; (k - 1) * 7 + 4) Cells(Row + Num + 3; Col + 4) = mas(i; (k - 1) * 7 + 5) Cells(Row + Num + 3; Col + 5) = mas(i; (k - 1) * 7 + 6) Cells(Row + Num + 3; Col + 6) = mas(i; (k - 1) * 7 + 7) Num = Num + 1 End If Next i Col = Col + 7 kk = kk + 1 Flag = True End If If ((kk > 0) And (kk Mod 3 = 0) And Flag) Or k = BumNum Then Flag = False For i = 2 To 22 sum = 0 For m = 1 To NumberClients sum = sum + Cells(m + 6; i) Next m Cells(Num + 7; i) = sum Cells(Num + 7; i).Font.Bold = True Cells(Num + 7; i).Interior.ColorIndex = 15 Next i Cells(Num + 7; 1) = "Итого" Cells(Num + 7; 1).Font.Bold = True Cells(Num + 7; 1).HorizontalAlignment = xlCenter Cells(Num + 7; 1).Interior.ColorIndex = 15 Range(Cells(7; 1); Cells(Num + 7; 22)).Borders(xlLeft).Weight = xlThin Range(Cells(7; 1); Cells(Num + 7; 22)).Borders(xlRight).Weight = xlThin Range(Cells(7; 1); Cells(Num + 7; 22)).Borders(xlTop).Weight = xlThin Range(Cells(7; 1); Cells(Num + 7; 22)).Borders(xlBottom).Weight = xlThin Range(Cells(7; 1); Cells(Num + 7; 22)).BorderAround Weight:=xlMedium Range(Cells(7; 9); Cells(Num + 7; 15)).BorderAround Weight:=xlMedium Cells(Num + 10; 10) = "Ответственное лицо Дилера______________________________" If DialogPrint("ОтчетМесячный"; 2) Then Exit Sub Row = 4 Col = 2 Cells(Row; Col) = " " Cells(Row; Col + 7) = " " Cells(Row; Col + 14) = " " Range(Cells(7; 1); Cells(800; 22)).Delete shift:=xlToLeft End If Next k Worksheets("СписокКлиентов").Select Num = 5 Range(Cells(Num; 1); Cells(100; 3)).Delete shift:=xlToLeft For i = 1 To NumberClients If CliInput(i) Then k = 2 While Sheet.Cells(k; 2) <> DilerConst + i k = k + 1 Wend Cells(Num; 1) = Sheet.Cells(k; 1) Cells(Num; 2) = Sheet.Cells(k; 2) Cells(Num; 3) = Sheet.Cells(k; 3) Cells(Num; 1).HorizontalAlignment = xlLeft Cells(Num; 2).HorizontalAlignment = xlCenter Cells(Num; 3).HorizontalAlignment = xlCenter Cells(Num; 3).WrapText = True Num = Num + 1 End If Next i Cells(2; 1) = "за период от " + CStr(DateBegin) + " до " + CStr(DateEnd) Range(Cells(5; 1); Cells(Num - 1; 3)).Borders(xlLeft).Weight = xlThin Range(Cells(5; 1); Cells(Num - 1; 3)).Borders(xlRight).Weight = xlThin Range(Cells(5; 1); Cells(Num - 1; 3)).Borders(xlTop).Weight = xlThin Range(Cells(5; 1); Cells(Num - 1; 3)).Borders(xlBottom).Weight = xlThin Range(Cells(5; 1); Cells(Num - 1; 3)).BorderAround Weight:=xlMedium Range(Cells(5; 2); Cells(Num - 1; 2)).BorderAround Weight:=xlMedium Cells(Num + 2; 2) = "Ответственное лицо Дилера______________________________" With DialogSheets("ДиалогПечать") AgainMonthOtch1: Просмотр = False ExitVar = False Button = False .Show If Просмотр Then Worksheets("СписокКлиентов").PrintPreview GoTo AgainMonthOtch1 End If If ExitVar Then Exit Sub If Button Then ActiveWindow.SelectedSheets.PrintOut copies:=2 End With End Sub '-------------------------------- Перечисление/списание биржа ------ Sub GotoBirga() Dim Sheet As Object Dim OstIn; OstOut; OstBegin; CliNum As Double Dim RowNum; k As Long Dim DoFlag As Boolean Set Sheet = Worksheets("ОстаткиБиржа") Sheet.Range("B2").Sort Key1:=Sheet.Range("B2"); Order1:=xlAscending; _ Key2:=Sheet.Range("A2"); Order2:=xlDescending; _ Header:=xlYes; OrderCustom:=1; _ MatchCase:=False; Orientation:=xlTopToBottom Sheet.Select CurDate = Worksheets("Врем").Cells(1; 4) k = 2 While Worksheets("Клиенты").Cells(k; 1) <> Empty k = k + 1 Wend With DialogSheets("ДиалогБиржа") .DropDowns.ListFillRange = "Клиенты!$B$2:$B$" + CStr(k - 1) .EditBoxes(1).InputType = xlNumber .EditBoxes(2).InputType = xlNumber .Show If Button = False Then MsgBox "Данные не занесены" Exit Sub End If CliNum = .DropDowns(1).List(.DropDowns(1).ListIndex) If .EditBoxes(1).Text = "" Then OstIn = 0 Else OstIn = .EditBoxes(1).Text End If If .EditBoxes(2).Text = "" Then OstOut = 0 Else OstOut = .EditBoxes(2).Text End If OstBegin = 0 k = 2 DoFlag = True Do While Cells(k; 1) <> Empty If Cells(k; 2) = CliNum And DoFlag Then If Cells(k; 1) < CurDate Then OstBegin = Cells(k; 6) Else MsgBox "Невозможен ввод информации" Exit Sub End If DoFlag = False End If k = k + 1 Loop Cells(k; 1) = CurDate Cells(k; 2) = CliNum Cells(k; 3) = OstBegin Cells(k; 4) = OstIn Cells(k; 5) = OstOut Cells(k; 6) = OstBegin + OstIn - OstOut End With End Sub '-------------------------------- Просмотр остатков 812 ------------ Sub PrintOst() Dim Sheet; Sheet1 As Object Dim i; k; CliNum As Long Dim Ost As Double CurDate = Worksheets("Врем").Cells(1; 4) i = 2 While Worksheets("Сделки").Cells(i; 1) <> Empty If Worksheets("Сделки").Cells(i; 1) = CurDate Then Call EditOstBirga(Worksheets("Сделки").Cells(i; 2)) End If i = i + 1 Wend Set Sheet = Worksheets("Остатки812") Set Sheet1 = Worksheets("ОстаткиБиржа") Sheets("Клиенты").Select i = 2 Sheet.Range("B2").Sort Key1:=Sheet.Range("B2"); Order1:=xlAscending; _ Key2:=Sheet.Range("A2"); Order2:=xlDescending; _ Header:=xlYes; OrderCustom:=1; _ MatchCase:=False; Orientation:=xlTopToBottom Sheet1.Range("B2").Sort Key1:=Sheet1.Range("B2"); Order1:=xlAscending; _ Key2:=Sheet1.Range("A2"); Order2:=xlDescending; _ Header:=xlYes; OrderCustom:=1; _ MatchCase:=False; Orientation:=xlTopToBottom While Cells(i; 2) <> Empty CliNum = Cells(i; 2) k = 2 Do If Sheet.Cells(k; 1) = Empty Then Ost = 0 Exit Do End If If Sheet.Cells(k; 2) = CliNum Then Ost = Sheet.Cells(k; 8) Exit Do End If k = k + 1 Loop Cells(i; 4) = Ost k = 2 Do If Sheet1.Cells(k; 1) = Empty Then Ost = 0 Exit Do End If If Sheet1.Cells(k; 2) = CliNum Then Ost = Sheet1.Cells(k; 6) Exit Do End If k = k + 1 Loop Cells(i; 5) = Ost i = i + 1 Wend End Sub '-------------------------------- Печать портфель ------------------ Sub PrintPortfel() Dim Sheet As Object Dim i; k; BumNum; m As Long Dim Bum(ConstMaxBum); DatePog(ConstMaxBum) As Long Dim Volume(); BiginIndex(); dates(); V() As Integer Dim Price(); BumPrice(); DohPog(); DohPriobr() As Double Dim DateMas() As Date Dim Flag; BumIndex() As Boolean Dim SumPog1(); SumPog2(); SumPriobr1(); SumPriobr2() As Double Dim SumPog11; SumPriobr11; SumPog22; SumPriobr22 As Double Dim BumVol() As Integer Dim AllVol As Long Dim PortfelCost; PortfelBalance As Double CurDate = Worksheets("Врем").Cells(1; 4) Set Sheet = Worksheets("Бумаги") i = 2 BumNum = 0 While Sheet.Cells(i; 1) <> Empty If (Sheet.Cells(i; 2) CurDate) Then Bum(BumNum + 1) = Sheet.Cells(i; 1) DatePog(BumNum + 1) = Sheet.Cells(i; 3) BumNum = BumNum + 1 End If i = i + 1 Wend Worksheets("Сделки").Select Range("B2").Sort Key1:=Range("A2"); Order1:=xlAscending; _ Key2:=Range("D2"); Order2:=xlAscending; _ Header:=xlYes; OrderCustom:=1; _ MatchCase:=False; Orientation:=xlTopToBottom ReDim Volume(BumNum; MaxCount) ReDim Price(BumNum; MaxCount) ReDim DateMas(BumNum; MaxCount) ReDim DohPog(BumNum; MaxCount) ReDim DohPriobr(BumNum; MaxCount) ReDim dates(BumNum); V(BumNum); BeginIndex(BumNum) ReDim BumIndex(BumNum); BumPrice(BumNum) ReDim SumPog1(BumNum); SumPog2(BumNum); SumPriobr1(BumNum); SumPriobr2(BumNum) ReDim BumVol(BumNum) For i = 1 To BumNum dates(i) = 1 Next i i = 2 While Cells(i; 1) <> Empty If Cells(i; 2) = DilerConst And Cells(i; 7) <> "списание" _ And Cells(i; 7) <> "зачисление" Then Flag = True For k = 1 To BumNum ' поиск номера бумаги If Cells(i; 3) = Bum(k) Then Flag = False Exit For End If Next k If Flag Then GoTo cont If Cells(i; 1) Volume(k; i) Then V(k) = V(k) - Volume(k; i) Else Volume(k; i) = V(k) BeginIndex(k) = i Exit For End If Next i Next k For k = 1 To BumNum BumIndex(k) = False If V(k) > 0 Then BumIndex(k) = True Next k i = 2 While Cells(i; 1) Empty If (Cells(i; 1) = CurDate And Cells(i; 2) = DilerConst) _ And (Cells(i; 7) <> "зачисление" And Cells(i; 7) <> "списание") Then For k = 1 To BumNum If Cells(i; 3) = Bum(k) Then BumIndex(k) = True End If Next k End If i = i + 1 Wend i = 2 Set Sheet = Worksheets("Биржа") Flag = True While Sheet.Cells(i; 1) <> Empty If Sheet.Cells(i; 1) = CurDate Then Flag = False For k = 1 To BumNum If Sheet.Cells(i; 2) = Bum(k) Then If Sheet.Cells(i; 6) > 0 Then BumPrice(k) = Sheet.Cells(i; 6) Else BumPrice(k) = 0 End If End If Next k End If i = i + 1 Wend If Flag Then MsgBox "Биржевой информации нет. Портфель сформировать невозможно." Exit Sub End If Worksheets("Портфель1").Select Cells(4; 3) = CurDate Range("A7:H200").Delete shift:=xlToLeft m = 7 PortfelCost = 0 PortfelBalance = 0 For k = 1 To BumNum If Volume(k; BeginIndex(k)) > 0 Then For i = BeginIndex(k) To dates(k) If Volume(k; i) > 0 Then Cells(m; 1) = Bum(k) Cells(m; 1).NumberFormat = "0" Cells(m; 2) = DateMas(k; i) Cells(m; 2).NumberFormat = "ДД.ММ.ГГ" Cells(m; 3) = Price(k; i) Cells(m; 3).NumberFormat = "0,00" Cells(m; 4) = Volume(k; i) Cells(m; 4).NumberFormat = "0" DohPog(k; i) = (100 / Price(k; i) - 1) * 36500 / (DatePog(k) - DateMas(k; i)) Cells(m; 5) = DohPog(k; i) Cells(m; 5).NumberFormat = "0,00" Cells(m; 8).NumberFormat = "0" Dim tmp As Long tmp = CurDate - DateMas(k; i) Cells(m; 8) = tmp PortfelBalance = PortfelBalance + Price(k; i) * Volume(k; i) If BumPrice(k) > 0 Then PortfelCost = PortfelCost + BumPrice(k) * Volume(k; i) Else PortfelCost = PortfelCost + Price(k; i) * Volume(k; i) End If If BumPrice(k) > 0 Then Cells(m; 6) = BumPrice(k) Cells(m; 6).NumberFormat = "0,00" If CurDate <> DateMas(k; i) Then DohPriobr(k; i) = (BumPrice(k) / Price(k; i) - 1) * 36500 / (CurDate - DateMas(k; i)) Cells(m; 7) = DohPriobr(k; i) Cells(m; 7).NumberFormat = "0,00" End If End If m = m + 1 End If Next i Range(Cells(m; 1); Cells(m; 8)).Interior.ColorIndex = 15 m = m + 1 End If Next k Range(Cells(7; 1); Cells(m - 1; 8)).Borders(xlLeft).Weight = xlThin Range(Cells(7; 1); Cells(m - 1; 8)).Borders(xlRight).Weight = xlThin Range(Cells(7; 1); Cells(m - 1; 8)).Borders(xlTop).Weight = xlThin Range(Cells(7; 1); Cells(m - 1; 8)).Borders(xlBottom).Weight = xlThin Range(Cells(7; 1); Cells(m - 1; 8)).BorderAround Weight:=xlMedium If DialogPrint("Портфель1"; 1) Then Exit Sub Worksheets("Портфель2").Select Cells(4; 3) = CurDate SumPog11 = 0 SumPog22 = 0 SumPriobr11 = 0 SumPriobr22 = 0 AllVol = 0 m = 7 Range("A7:H200").Delete shift:=xlToLeft For k = 1 To BumNum If Volume(k; BeginIndex(k)) > 0 Then SumPog1(k) = 0 SumPog2(k) = 0 SumPriobr1(k) = 0 SumPriobr2(k) = 0 BumVol(k) = 0 For i = BeginIndex(k) To dates(k) If Volume(k; i) > 0 Then SumPog1(k) = SumPog1(k) + DohPog(k; i) * Volume(k; i) * (DatePog(k) - DateMas(k; i)) SumPog2(k) = SumPog2(k) + Volume(k; i) * (DatePog(k) - DateMas(k; i)) If CurDate <> DateMas(k; i) Then SumPriobr1(k) = SumPriobr1(k) + DohPriobr(k; i) * Volume(k; i) * (CurDate - DateMas(k; i)) SumPriobr2(k) = SumPriobr2(k) + Volume(k; i) * (CurDate - DateMas(k; i)) End If SumPog11 = SumPog11 + SumPog1(k) SumPog22 = SumPog22 + SumPog2(k) SumPriobr11 = SumPriobr11 + SumPriobr1(k) SumPriobr22 = SumPriobr22 + SumPriobr2(k) BumVol(k) = BumVol(k) + Volume(k; i) AllVol = AllVol + Volume(k; i) End If Next i Cells(m; 1) = Bum(k) Cells(m; 1).NumberFormat = "0" Cells(m; 2) = BumVol(k) Cells(m; 2).NumberFormat = "0" Cells(m; 3) = SumPog1(k) / SumPog2(k) Cells(m; 3).NumberFormat = "0,00" If SumPriobr2(k) > 0 And SumPriobr1(k) > 0 Then Cells(m; 4) = SumPriobr1(k) / SumPriobr2(k) Cells(m; 4).NumberFormat = "0,00" End If m = m + 1 End If Next k Cells(m; 1) = "Итого" Cells(m; 1).Font.Bold = True Cells(m; 1).HorizontalAlignment = xlCenter Cells(m; 2) = AllVol Cells(m; 2).NumberFormat = "0" Cells(m; 3) = SumPog11 / SumPog22 Cells(m; 3).NumberFormat = "0,00" Cells(m; 4) = SumPriobr11 / SumPriobr22 Cells(m; 4).NumberFormat = "0,00" Range(Cells(m; 1); Cells(m; 4)).Interior.ColorIndex = 15 Range(Cells(7; 1); Cells(m; 4)).Borders(xlLeft).Weight = xlThin Range(Cells(7; 1); Cells(m; 4)).Borders(xlRight).Weight = xlThin Range(Cells(7; 1); Cells(m; 4)).Borders(xlTop).Weight = xlThin Range(Cells(7; 1); Cells(m; 4)).Borders(xlBottom).Weight = xlThin Range(Cells(7; 1); Cells(m; 4)).BorderAround Weight:=xlMedium Range(Cells(m; 1); Cells(m; 4)).BorderAround Weight:=xlMedium Cells(m + 1; 1) = "Стоимость портфеля по балансу" Cells(m + 2; 1) = "Текущая стоимость потфеля" Cells(m + 1; 1).Font.Bold = True Cells(m + 2; 1).Font.Bold = True Range(Cells(m + 1; 1); Cells(m + 2; 4)).BorderAround Weight:=xlMedium Cells(m + 1; 4) = PortfelBalance * 10 Cells(m + 1; 4).NumberFormat = "### ### ###,00" Cells(m + 1; 4).Font.Bold = True Cells(m + 2; 4) = PortfelCost * 10 Cells(m + 2; 4).NumberFormat = "### ### ###,00" Cells(m + 2; 4).Font.Bold = True If DialogPrint("Портфель2"; 1) Then Exit Sub End Sub '-------------------------------- Печать Журнала лицевого учета ------- -- Sub PrintMagazine() Dim Sheet As Object Dim i; k; BumNum; m; m1; j As Long Dim Bum(ConstMaxBum) As Long Dim Volume(); BiginIndex(); dates(); V(); Vol As Integer Dim sum; Price() As Double Dim DateMas() As Date Dim Flag; BumIndex() As Boolean Dim ComBirga; ComMas(); MagMas(); Mag(4) As Double CurDate = Worksheets("Врем").Cells(1; 4) i = 2 Flag = True Do While Worksheets("Сделки").Cells(i; 1) <> Empty If Worksheets("Сделки").Cells(i; 1) = CurDate And _ Worksheets("Сделки").Cells(i; 2) = DilerConst Then Flag = False Exit Do End If i = i + 1 Loop If Flag Then MsgBox "Сделок в текущий день не было" Exit Sub End If Set Sheet = Worksheets("Бумаги") i = 2 BumNum = 0 While Sheet.Cells(i; 1) <> Empty If (Sheet.Cells(i; 2) = CurDate) Then Bum(BumNum + 1) = Sheet.Cells(i; 1) BumNum = BumNum + 1 End If i = i + 1 Wend Worksheets("Сделки").Select Range("B2").Sort Key1:=Range("A2"); Order1:=xlAscending; _ Key2:=Range("D2"); Order2:=xlAscending; _ Header:=xlYes; OrderCustom:=1; _ MatchCase:=False; Orientation:=xlTopToBottom ReDim Volume(BumNum; MaxCount) ReDim Price(BumNum; MaxCount) ReDim DateMas(BumNum; MaxCount) ReDim dates(BumNum); V(BumNum); BeginIndex(BumNum) ReDim BumIndex(BumNum); ComMas(BumNum) ReDim MagMas(BumNum; 4) For i = 1 To BumNum ComMas(i) = 0 dates(i) = 1 Next i i = 2 While Cells(i; 1) <> Empty And CurDate > Cells(i; 1) If Cells(i; 2) = DilerConst And Cells(i; 7) <> "списание" _ And Cells(i; 7) <> "зачисление" Then Flag = True For k = 1 To BumNum ' поиск номера бумаги If Cells(i; 3) = Bum(k) Then Flag = False Exit For End If Next k If Flag Then GoTo cont If Not IsEmpty(Cells(i; 4)) Then Volume(k; dates(k)) = Cells(i; 6) Price(k; dates(k)) = Cells(i; 4) DateMas(k; dates(k)) = Cells(i; 1) dates(k) = dates(k) + 1 V(k) = V(k) + Cells(i; 6) Else V(k) = V(k) - Cells(i; 6) End If End If cont: i = i + 1 Wend For k = 1 To BumNum For i = dates(k) To 1 Step -1 If V(k) > Volume(k; i) Then V(k) = V(k) - Volume(k; i) Else Volume(k; i) = V(k) BeginIndex(k) = i Exit For End If Next i Next k For k = 1 To BumNum BumIndex(k) = False If V(k) > 0 Then BumIndex(k) = True Next k ComBirga = Worksheets("Инфо").Cells(1; 2) i = 2 While Cells(i; 1) <> Empty If (Cells(i; 1) = CurDate And Cells(i; 2) = DilerConst) _ And (Cells(i; 7) <> "зачисление" And Cells(i; 7) <> "списание") Then For k = 1 To BumNum If Cells(i; 3) = Bum(k) Then BumIndex(k) = True If Not IsEmpty(Cells(i; 4)) Then ComMas(k) = ComMas(k) + Format(Cells(i; 4) * Cells(i; 6) * ComBirga * 0,1 + 0,0001; "0,00") Else If Cells(i; 5) <> 100 Then ComMas(k) = ComMas(k) + Format(Cells(i; 5) * Cells(i; 6) * ComBirga * 0,1 + 0,0001; "0,00") End If End If End If Next k End If i = i + 1 Wend Set Sheet = Worksheets("Сделки") Worksheets("Журнал лицевого учета").Select Cells(5; 1) = CurDate Cells(49; 2) = ComBirga Покупка = False Продажа = False Vol = 0 sum = 0 For k = 1 To BumNum If BumIndex(k) Then m = 7 Range("A7:C43").ClearContents Range("E7:G43").ClearContents Vol = 0 sum = 0 For i = BeginIndex(k) To dates(k) If Volume(k; i) > 0 Then Cells(m; 1) = DateMas(k; i) Cells(m; 2) = Volume(k; i) Cells(m; 3) = Format(Price(k; i); "0,00") Vol = Vol + Volume(k; i) sum = sum + Format(Price(k; i); "0,00") * Volume(k; i) * 10 m = m + 1 End If Next i Cells(6; 2) = Vol Cells(6; 4) = sum Cells(49; 3) = ComMas(k) Cells(5; 3) = CStr(Bum(k)) + "MFTS" i = 2 m1 = 7 j = BeginIndex(k) While Sheet.Cells(i; 1) <> Empty If Sheet.Cells(i; 1) = CurDate And Sheet.Cells(i; 3) = Bum(k) And _ Sheet.Cells(i; 7) <> "зачисление" And Sheet.Cells(i; 7) <> "списание" And _ Sheet.Cells(i; 2) = DilerConst Then If Not IsEmpty(Sheet.Cells(i; 4)) Then Покупка = True Cells(m; 1) = Sheet.Cells(i; 1) Cells(m; 2) = Sheet.Cells(i; 6) Cells(m; 3) = Sheet.Cells(i; 4) Volume(k; dates(k)) = Sheet.Cells(i; 6) Price(k; dates(k)) = Sheet.Cells(i; 4) DateMas(k; dates(k)) = Sheet.Cells(i; 4) dates(k) = dates(k) + 1 m = m + 1 Else Продажа = True Vol = Sheet.Cells(i; 6) If Vol < Volume(k; j) Then Cells(m1; 5) = Vol Cells(m1; 6) = Format(Price(k; j); "0,00") Cells(m1; 7) = Sheet.Cells(i; 5) Volume(k; j) = Volume(k; j) - Sheet.Cells(i; 6) m1 = m1 + 1 Else If Volume(k; j) = 0 Then j = j + 1 While Vol > Volume(k; j) And Volume(k; j) <> Empty Cells(m1; 5) = Volume(k; j) Cells(m1; 6) = Format(Price(k; j); "0,00") Cells(m1; 7) = Sheet.Cells(i; 5) Vol = Vol - Volume(k; j) j = j + 1 m1 = m1 + 1 Wend If Volume(k; j) <> Empty Then Cells(m1; 5) = Vol Cells(m1; 6) = Format(Price(k; j); "0,00") Cells(m1; 7) = Sheet.Cells(i; 5) Volume(k; j) = Volume(k; j) - Vol m1 = m1 + 1 End If End If End If End If i = i + 1 Wend no_do: MagMas(k; 1) = Format(Cells(46; 3); "0,00") MagMas(k; 2) = Format(Cells(47; 3); "0,00") MagMas(k; 3) = Format(Cells(48; 3); "0,00") MagMas(k; 4) = Format(Cells(45; 4); "0,00") If DialogPrint("Журнал лицевого учета"; 1) Then Exit Sub End If Next k ' Формирование журнала оборотов Worksheets("ЖурналОборотов").Select Cells(6; 1) = CurDate Range(Cells(7; 1); Cells(100; 6)).Delete shift:=xlToLeft m = 7 For k = 1 To BumNum If BumIndex(k) Then Cells(m; 1) = CStr(Bum(k)) + "MFTS" Cells(m; 2) = MagMas(k; 1) Cells(m; 3) = MagMas(k; 2) Cells(m; 4) = MagMas(k; 3) Cells(m; 5) = MagMas(k; 4) Cells(m; 6) = ComMas(k) Cells(m; 1).Font.Bold = True Cells(m; 2).NumberFormat = "0,00" Cells(m; 3).NumberFormat = "0,00" Cells(m; 4).NumberFormat = "0,00" Cells(m; 5).NumberFormat = "0,00" Cells(m; 6).NumberFormat = "0,00" m = m + 1 End If Next k For i = 2 To 6 sum = 0 For m1 = 7 To m - 1 sum = sum + Cells(m1; i) Next m1 Cells(m; i) = sum Cells(m; i).NumberFormat = "0,00" Next i Mag(1) = Cells(m; 2) Mag(2) = Cells(m; 3) Mag(3) = Cells(m; 4) Mag(4) = Cells(m; 6) If Cells(m; 2) > 0 Then Cells(m + 1; 2) = "Дт" + S192 If Cells(m; 2) < 0 Then Cells(m + 1; 2) = "Кт" + S192 If Cells(m; 3) > 0 Then Cells(m + 1; 3) = "Дт" + S904 If Cells(m; 3) < 0 Then Cells(m + 1; 3) = "Кт" + S904 If Cells(m; 4) > 0 Then Cells(m + 1; 4) = "Кт" + S960 If Cells(m; 4) < 0 Then Cells(m + 1; 4) = "Дт" + S970 Cells(m + 1; 6) = "Дт" + S970 Range(Cells(m + 1; 2); Cells(m + 2; 6)).HorizontalAlignment = xlCenter Range(Cells(m + 1; 1); Cells(m + 1; 6)).Interior.ColorIndex = 15 Cells(m + 2; 6) = "Кт" + S904 Cells(m + 2; 6).Interior.ColorIndex = 15 Range(Cells(7; 1); Cells(m - 1; 6)).Borders(xlRight).Weight = xlThin Range(Cells(m; 1); Cells(m; 6)).Borders(xlRight).LineStyle = xlDouble Range(Cells(m; 1); Cells(m; 6)).Borders(xlLeft).LineStyle = xlDouble Range(Cells(m; 1); Cells(m; 6)).Borders(xlTop).LineStyle = xlDouble Range(Cells(m; 1); Cells(m; 6)).Borders(xlBottom).LineStyle = xlDouble Cells(m + 2; 4) = "Подпись ответственного" Cells(m + 3; 4) = "сотрудника" Range(Cells(m + 2; 4); Cells(m + 3; 4)).Font.Size = 8 Range(Cells(m + 2; 4); Cells(m + 3; 4)).HorizontalAlignment = xlLeft Range(Cells(7; 1); Cells(m + 4; 6)).BorderAround Weight:=xlMedium Range(Cells(m + 2; 3); Cells(m + 4; 3)).Borders(xlRight).Weight = xlThin Range(Cells(m + 1; 1); Cells(m + 1; 5)).Borders(xlBottom).Weight = xlThin Cells(m + 2; 6).Borders(xlLeft).Weight = xlThin Cells(m + 2; 6).Borders(xlBottom).Weight = xlThin If DialogPrint("ЖурналОборотов"; 1) Then Exit Sub ' печать мемориального ордера Dim StrS As String With DialogSheets("ДиалогОперация") .Show If .OptionButtons(1).Value = xlOn Then StrS = "Покупка" If .OptionButtons(2).Value = xlOn Then StrS = "Продажа" If .OptionButtons(3).Value = xlOn Then StrS = "Погашение" If .OptionButtons(4).Value = xlOn Then StrS = "Покупка / Продажа" If .OptionButtons(5).Value = xlOn Then StrS = "Покупка / Погашение" End With Worksheets("Ордер").Select i = CInt(InputBox("Введите номер 1-го ордера")) If Mag(1) > 0 Then If Mag(2) < 0 Then If MemoOrder(i; min(Mag(1); Mag(2)); S192; S904; 0; _ StrS + " РКО за " + CStr(CurDate)) Then Exit Sub i = i + 1 End If If Mag(3) > 0 Then If MemoOrder(i; min(Mag(1); Mag(3)); S192; S960; 0; _ "Доход от продажи РКО за " + CStr(CurDate)) Then Exit Sub i = i + 1 End If End If If Mag(2) > 0 Then If Mag(1) < 0 Then If MemoOrder(i; min(Mag(2); Mag(1)); S904; S192; 0; _ StrS + " РКО за " + CStr(CurDate)) Then Exit Sub i = i + 1 End If If Mag(3) > 0 Then If MemoOrder(i; min(Mag(2); Mag(3)); S904; S960; 0; _ "Доход от продажи РКО за " + CStr(CurDate)) Then Exit Sub i = i + 1 End If End If If Mag(3) < 0 Then If Mag(1) < 0 Then If MemoOrder(i; min(Mag(3); Mag(1)); SR970; S192; 0; _ "Отрицательная разница от продажи РКО за " + CStr(CurDate)) Then Exit Sub i = i + 1 End If If Mag(2) < 0 Then If MemoOrder(i; min(Mag(3); Mag(2)); SR970; S904; 0; _ "Отрицательная разница от продажи РКО за " + CStr(CurDate)) Then Exit Sub i = i + 1 End If End If If Format(Mag(4)) > 0 Then If MemoOrder(i; Mag(4); S970; S904; 0; _ "Комиссия ВКБ в т.ч. НДС " + CStr(Format(Mag(4) / 6; "0,00"))) Then Exit Sub End If End Sub '-------------------------------------------- Memo Order Function MemoOrder(Num; sum As Double; n1; n2; Pos As Integer; Order As String) Dim i As Integer Dim Flag As Boolean Dim Str; Str1 As String Str1 = "" Str = CStr(sum) Str = Format(Str; "000000000000,00") Flag = False For i = 1 To Len(Str) If Mid(Str; i; 1) = "," Then If CInt(Right(Str; 2)) = 0 Then Str1 = Str1 + "=" Exit For Else Str1 = Str1 + "-" End If Else If Mid(Str; i; 1) <> "0" Then Flag = True If Mid(Str; i; 1) <> "0" Or Flag Then Str1 = Str1 + Mid(Str; i; 1) End If Next i Cells(3; 6) = Str1 If Pos > 0 Then If n1 > 6 Then Cells(5; 6) = Worksheets("Клиенты").Cells(2; n1) Else Cells(5; 6) = Worksheets("Клиенты").Cells(Pos; n1) End If If n2 > 6 Then Cells(10; 6) = Worksheets("Клиенты").Cells(2; n2) Else Cells(10; 6) = Worksheets("Клиенты").Cells(Pos; n2) End If Else Cells(5; 6) = n1 Cells(10; 6) = n2 End If Cells(16; 1) = Order Cells(1; 6) = Num Range("A1:H24").Copy Range("A32").Select ActiveSheet.Paste If DialogPrint("Ордер"; 2) Then MemoOrder = True Else MemoOrder = False End If End Function '-------------------------------- Печать биржевой информации ------- Sub PrintBirgaInfo() Dim Sheet As Object Dim Flag As Boolean Dim i; n; k; Num As Long Dim mas(3) As Double Set Sheet = Worksheets("Биржа") CurDate = Worksheets("Врем").Cells(1; 4) Sheets("Биржевая Информация").Select Cells(3; 10) = CurDate For i = 1 To 3 mas(i) = 0 Next i i = 2 n = 7 Range(Cells(n; 1); Cells(n + 100; 17)).Delete shift:=xlToLeft Flag = True Do While Sheet.Cells(i; 1) <> Empty If Sheet.Cells(i; 1) = CurDate Then Flag = False Cells(n; 1) = Sheet.Cells(i; 2) Cells(n; 7) = Sheet.Cells(i; 3) Cells(n; 9) = Sheet.Cells(i; 4) Cells(n; 10) = Sheet.Cells(i; 5) Cells(n; 5).Font.Bold = True Cells(n; 11) = Sheet.Cells(i; 6) Cells(n; 11).Font.Bold = True Cells(n; 12) = Sheet.Cells(i; 7) Cells(n; 13) = Sheet.Cells(i; 8) k = 2 While Worksheets("Бумаги").Cells(k; 1) <> Empty If Worksheets("Бумаги").Cells(k; 1) = Cells(n; 1) Then Cells(n; 2) = Worksheets("Бумаги").Cells(k; 2) Cells(n; 3) = Worksheets("Бумаги").Cells(k; 3) Cells(n; 6) = Worksheets("Бумаги").Cells(k; 4) End If k = k + 1 Wend Cells(n; 2).NumberFormat = "ДД.ММ.ГГ" Cells(n; 3).NumberFormat = "ДД.ММ.ГГ" Cells(n; 6).NumberFormat = "# ##0" Cells(n; 9).NumberFormat = "# ##0" Range(Cells(n; 10); Cells(n; 17)).NumberFormat = "0,00" Cells(n; 4) = Cells(3; 10) - Cells(n; 2) Cells(n; 5) = Cells(n; 3) - Cells(3; 10) Cells(n; 8) = Cells(n; 9) / Cells(n; 6) * 100 Cells(n; 8).NumberFormat = "0,00" If Cells(n; 7) <> 0 And Cells(n; 5) <> 0 Then Cells(n; 14) = (100 / Cells(n; 10) - 1) * 36500 / Cells(n; 5) * 0,85 Cells(n; 15) = (100 / Cells(n; 10) - 1) * 36500 / Cells(n; 5) Cells(n; 16) = (100 / Cells(n; 11) - 1) * 36500 / Cells(n; 5) * 0,85 Cells(n; 16).Font.Bold = True Cells(n; 17) = (100 / Cells(n; 11) - 1) * 36500 / Cells(n; 5) mas(1) = mas(1) + Cells(n; 5) * Cells(n; 9) * Cells(n; 14) mas(2) = mas(2) + Cells(n; 5) * Cells(n; 9) * Cells(n; 16) mas(3) = mas(3) + Cells(n; 5) * Cells(n; 9) End If n = n + 1 End If i = i + 1 Loop If Flag Then MsgBox "Биржевой информации нет" Exit Sub End If Num = n Range(Cells(7; 1); Cells(Num - 1; 17)).Borders(xlLeft).Weight = xlThin Range(Cells(7; 1); Cells(Num - 1; 17)).Borders(xlRight).Weight = xlThin Range(Cells(7; 1); Cells(Num - 1; 17)).Borders(xlTop).Weight = xlThin Range(Cells(7; 1); Cells(Num - 1; 17)).Borders(xlBottom).Weight = xlThin Range(Cells(7; 1); Cells(Num - 1; 17)).BorderAround Weight:=xlMedium Cells(Num; 1) = "Итого" Cells(Num; 1).Font.Bold = True Cells(Num; 1).HorizontalAlignment = xlCenter Cells(Num; 14) = mas(1) / mas(3) Cells(Num; 15) = mas(1) / mas(3) / 0,85 Cells(Num; 16) = mas(2) / mas(3) Cells(Num; 16).Font.Bold = True Cells(Num; 17) = mas(2) / mas(3) / 0,85 Range(Cells(Num; 14); Cells(Num; 17)).NumberFormat = "0,00" For i = 1 To 3 mas(i) = 0 Next i For i = 7 To Num - 1 mas(1) = mas(1) + Cells(i; 6) mas(2) = mas(2) + Cells(i; 7) mas(3) = mas(3) + Cells(i; 9) Next Cells(Num; 6) = mas(1) Cells(Num; 6).NumberFormat = "# ##0" Cells(Num; 7) = mas(2) Cells(Num; 9) = mas(3) Cells(Num; 9).NumberFormat = "# ##0" Cells(Num; 8) = mas(3) / mas(1) * 100 Cells(Num; 8).NumberFormat = "0,00" Cells(Num; 7).Font.Bold = True Cells(Num; 9).Font.Bold = True Range(Cells(Num; 1); Cells(Num; 17)).BorderAround Weight:=xlMedium Range(Cells(Num; 1); Cells(Num; 17)).Interior.ColorIndex = 15 If DialogPrint("Биржевая Информация"; 1) Then Exit Sub End Sub '-------------------------------- Дата ----------------------------- Sub DateChange() With DialogSheets("ДиалогДата") .EditBoxes.Text = CurDate .EditBoxes.InputType = 1 .Show CurDate = Worksheets("Врем").Cells(1; 4) If Button = False Then CurDate = Date Worksheets("Врем").Cells(1; 4) = CurDate MsgBox "Дата восстановлена" Else If IsDate(.EditBoxes.Text) Then CurDate = .EditBoxes.Text MsgBox "Дата изменена" Worksheets("Врем").Cells(1; 4) = CurDate Exit Sub End If MsgBox "Ошибка при вводе даты" End If End With End Sub '-------------------------------- Формирование текущей таблицы бумаг -- -- Sub FormBum() Dim L As Object Dim i; k As Integer Set L = Worksheets("Бумаги") CurDate = Worksheets("Врем").Cells(1; 4) i = 2 k = 1 While L.Cells(i; 1) <> Empty If L.Cells(i; 2) = CurDate Then Worksheets("Врем").Cells(k; 1) = L.Cells(i; 1) k = k + 1 End If i = i + 1 Wend Worksheets("Врем").Cells(1; 2) = k - 1 Set L = Worksheets("Клиенты") i = 1 While L.Cells(i; 1) <> Empty i = i + 1 Wend Worksheets("Врем").Cells(1; 3) = i - 2 End Sub ' ------------------------------- Остатки на бирже -------------------- Sub EditOstBirga(CliNum As Long) Dim ComBirga; sum; OstBegin As Double Dim DoFlag As Boolean Dim Sheet; Sheet1 As Object Dim i; k; RowNum As Long Set Sheet = Worksheets("ОстаткиБиржа") Set Sheet1 = Worksheets("Сделки") CurDate = Worksheets("Врем").Cells(1; 4) ComBirga = Worksheets("Инфо").Cells(1; 2) Sheet.Range("B2").Sort Key1:=Sheet.Range("B2"); Order1:=xlAscending; _ Key2:=Sheet.Range("A2"); Order2:=xlDescending; _ Header:=xlYes; OrderCustom:=1; _ MatchCase:=False; Orientation:=xlTopToBottom OstBegin = 0 RowNum = 0 k = 2 DoFlag = True Do While Sheet.Cells(k; 1) <> Empty If Sheet.Cells(k; 2) = CliNum And DoFlag Then If Sheet.Cells(k; 1) < CurDate Then OstBegin = Sheet.Cells(k; 6) Else Do While Sheet.Cells(k; 1) <> Empty If Sheet.Cells(k; 2) <> CliNum Then Exit Do If Sheet.Cells(k; 1) = CurDate Then OstBegin = Sheet.Cells(k; 3) RowNum = k Exit Do End If k = k + 1 Loop End If DoFlag = False End If k = k + 1 Loop If RowNum = 0 Then RowNum = k k = RowNum sum = 0 i = 2 While Sheet1.Cells(i; 1) <> Empty If Sheet1.Cells(i; 1) = CurDate And Sheet1.Cells(i; 2) = CliNum Then If Sheet1.Cells(i; 4) <> Empty Then sum = sum - _ Sheet1.Cells(i; 4) * Sheet1.Cells(i; 6) * 10000 - _ Format(Sheet1.Cells(i; 4) * Sheet1.Cells(i; 6) * 100 * ComBirga + 0,0001; "0,00") Else If Sheet1.Cells(i; 5) = 100 Then ComBirga = 0 sum = sum + _ Sheet1.Cells(i; 5) * Sheet1.Cells(i; 6) * 10000 - _ Format(Sheet1.Cells(i; 5) * Sheet1.Cells(i; 6) * 100 * ComBirga + 0,0001; "0,00") End If End If i = i + 1 Wend Sheet.Cells(k; 3) = OstBegin Sheet.Cells(k; 6) = OstBegin + sum + Sheet.Cells(k; 4) Sheet.Cells(k; 1) = CurDate Sheet.Cells(k; 2) = CliNum End Sub Sub Ok() Button = True End Sub Sub Cancel() Button = False End Sub Sub ПросмотрОтчетов() Просмотр = True End Sub Sub Останов() ExitVar = True End Sub Sub EndOf() Dim i As Long i = 2 While Cells(i; 1) <> Empty i = i + 1 Wend Cells(i; 1).Select End Sub Function DialogPrint(Str As String; Count As Integer) With DialogSheets("ДиалогПечать") AgainView: Просмотр = False ExitVar = False Button = False .Show If Просмотр Then Worksheets(Str).PrintPreview GoTo AgainView End If If ExitVar Then DialogPrint = True Else DialogPrint = False End If If Button Then ActiveWindow.SelectedSheets.PrintOut copies:=Count End With End Function Function min(a; b) If Abs(a) > Abs(b) Then min = Abs(b) Else min = Abs(a) End If End Function Приложение № 1.3. Журнал оборотов. [pic] Приложение № 1.4. Журнал лицевого учета. [pic] Приложение № 1.5. Мемориальный ордер. [pic] Приложение № 1.6. Отчет инвестору о совершенных сделках. [pic] Приложение № 1.7. Структура пртфеля в разрезе по бумагам. [pic] Приложение № 1.8. Структура портфеля обобщенная. [pic] Приложение № 1.9. Биржевая информация. [pic] Приложение № 1.10. Еженедельный отчет в депозитарий. [pic] Приложение № 1.11. Ежемесячный отчет в депозитарий. [pic] Приложение № 2. Программа анализа эффективности вложений в РКО. Приложение 2.1. Текст программы. Option Explicit Option Base 1 '*************************** Сортировка ************************* ' Процедура сортировки страницы ' Параметры: ' Sheet - лист ' RangeSort - первая ячейка для сортировки ' StrKey1 - сортировка сначала производится по этому столбцу ' StrKey2 - а затем по этому ' StrKey3 - и по этому в последнюю очередь ' OrderType1 - Направление сортировки по столбцу StrKey1 ' OrderType2 - Направление сортировки по столбцу StrKey2 ' OrderType3 - Направление сортировки по столбцу StrKey3 ' Пример использования : ' Call Сортировка(Worksheets("Биржа"); "A2"; "A2"; "B2"; "C2"; xlAscending; xlDescending; xlAscending) '***************************************************************** Sub Сортировка(Sheet As Object; RangeSort As String; StrKey1 As String; _ StrKey2 As String; StrKey3 As String; TypeOrder1 As Integer; TypeOrder2 As Integer; TypeOrder3 As Integer) Sheet.Range(RangeSort).Sort Key1:=Sheet.Range(StrKey1); Order1:=TypeOrder1; Key2:= _ Sheet.Range(StrKey2); Order2:=TypeOrder2; Key3:=Sheet.Range(StrKey3); Order3:= _ TypeOrder3; Header:=xlGuess; OrderCustom:=1; MatchCase:=False _ ; Orientation:=xlTopToBottom End Sub '******************************* Поиск *************************** ' Функция поиска значения в определенном столбце с определенной позиции вперед/назад ' Параметры: ' Sheet - лист ' Column - колонка для поиска ' Row - начальная строка поиска ' Text - искомое значение ' Direction - направление поиска: ' 1 - вперед ' -1 - назад ' Пример использования : ' MsgBox Поиск(Worksheets("Биржа"); 4; 8; 5; -1) '******************************************************************* Function Поиск(Sheet As Object; Column As Integer; Row As Integer; Text; Direction As Integer) Dim i As Integer Dim Compare; Compare1 If Direction <> 1 And Direction <> -1 Then MsgBox "Неверно задано направление поиска" End End If On Error GoTo ErrorFuncFind i = Row While Not IsEmpty(Sheet.Cells(i; Column)) If IsDate(Text) Then Compare = CDate(Sheet.Cells(i; Column)) Compare1 = CDate(Text) Else If IsNumeric(Text) Then Compare = CDbl(Sheet.Cells(i; Column)) Compare1 = CDbl(Text) Else Compare = CStr(Sheet.Cells(i; Column)) Compare1 = CStr(Text) End If End If If Compare = Compare1 Then Поиск = i Exit Function End If i = i + Direction Wend Поиск = 0 Exit Function ErrorFuncFind: MsgBox "Несовпадение типов данных в вызове" + Chr(13) + "функции Поиск и в искомом столбце." _ + Chr(13) + Chr(13) + "Данные разных типов в столбце базы" + Chr(13) End End Function Option Explicit Option Base 1 ' ---------------------------- Общая часть ---------------------------- --------- ' внешние параметры ' тип данных для записи информации о бумаге Type BumRecord Num As Long ' номер бумаги DateStart As Date ' дата выпуска DateEnd As Date 'дата погашения Volume As Long 'объем выпуска Present As Boolean End Type ' тип данных для записи информации о структуре портфеля Type PortfelRecord Dates() As Date ' дата покупки Price() As Single ' цена покупки Volume() As Long ' количество StartPos() As Integer ' начальный индекс бумаги в массиве бумаг данной серии EndPos() As Integer ' конечный индекс бумаги в массиве бумаг данной серии VolumeAll() As Long ' количество бумаг данной серии в портфеле End Type ' тип данных для записи информации об индксах портфеля и рынка Type IndexRecord Dates As Date Portfel As Single Birga As Single End Type Const MaxBum = 500 ' максимальное количество бумаг в портфеле одной серии Const DilerConst = 1000900000 ' константа для выборки портфеля дилера Dim MaxPeriod As Long ' максимальное количество дней для анализа(можно вычислить как последний день анализа-первый день анализа+1) Dim Portfel As PortfelRecord ' данные о портфеле Dim BumInfo() As BumRecord ' данные о бумагах Dim BumNum As Integer ' количество различных серий бумаг Dim Index() As IndexRecord ' индексы портфеля и рынка Dim Revenue() As IndexRecord ' доходность к погашению портфеля и рынка Dim BirgaInfo() As Single ' текущая биржевая информация по каждой серии Dim CoefIndex As Long ' индекс коэффициента Dim RevIndex As Long ' индекс доходности Dim EvalDate As Date ' дата для расчета Dim StartDate As Date ' начальная дата для постоения индексов Dim PortfelPricePred; BirgaPricePred As Single Dim Analize1; Analize2 As Boolean '------------------------------- Процедура расчета портфеля (главный модуль)- Sub АнализПортфель() Dim Sheet As Object Dim i; Ind As Integer Dim SumCell As Long Dim CurDate As Date Set Sheet = Worksheets("Бумаги") BumNum = 0 While Sheet.Cells(BumNum + 2; 1) <> Empty BumNum = BumNum + 1 Wend With DialogSheets("ДиалогДата") .EditBoxes(1).Text = "05.02.97" .EditBoxes(2).Text = "30.05.97" .EditBoxes(1).InputType = xlDate .EditBoxes(2).InputType = xlDate .Show StartDate = CDate(.EditBoxes(1).Text) EvalDate = CDate(.EditBoxes(2).Text) End With With DialogSheets("ДиалогВыбор") again: .Show Analize1 = False Analize2 = False If .CheckBoxes(1).Value = 1 Then Analize1 = True If .CheckBoxes(2).Value = 1 Then Analize2 = True If Not Analize1 And Not Analize2 Then MsgBox "Выберите тип анализа" GoTo again End If End With MaxPeriod = EvalDate - StartDate + 1 ReDim Index(MaxPeriod) ReDim Revenue(MaxPeriod) Index(1).Portfel = 1 Index(1).Birga = 1 Index(1).Dates = StartDate ReDim BumInfo(BumNum) ReDim BirgaInfo(BumNum) For i = 1 To BumNum With BumInfo(i) .Num = Sheet.Cells(i + 1; 1) .DateStart = Sheet.Cells(i + 1; 2) .DateEnd = Sheet.Cells(i + 1; 3) .Volume = Sheet.Cells(i + 1; 4) End With Next i ReDim Portfel.Dates(BumNum; MaxBum) ReDim Portfel.Price(BumNum; MaxBum) ReDim Portfel.Volume(BumNum; MaxBum) ReDim Portfel.StartPos(BumNum) ReDim Portfel.EndPos(BumNum) ReDim Portfel.VolumeAll(BumNum) For i = 1 To BumNum Portfel.StartPos(i) = 1 Portfel.EndPos(i) = 0 Next i Set Sheet = Worksheets("Сделки") Call Сортировка(Worksheets("Сделки"); "A2"; "A2"; "B2"; "D2"; _ xlAscending; xlAscending; xlAscending) i = 2 CoefIndex = 1 RevIndex = 1 CurDate = StartDate While Sheet.Cells(i; 1) <> Empty And Sheet.Cells(i; 1) = Portfel.Volume(Ind; Portfel.StartPos(Ind)) And SumCell > 0 SumCell = SumCell - Portfel.Volume(Ind; Portfel.StartPos(Ind)) Portfel.StartPos(Ind) = Portfel.StartPos(Ind) + 1 Wend If SumCell < Portfel.Volume(Ind; Portfel.StartPos(Ind)) Then Portfel.Volume(Ind; Portfel.StartPos(Ind)) = Portfel.Volume(Ind; Portfel.StartPos(Ind)) - SumCell End If End If End If ' в данном месте можео провести анализ на основе данных о портфеле за текущую дату ' дата текущая - это Worksheets("Сделки").cells(i-1;1) ' т.е. анализ за эту текущую дату(доходность к погашению портфеля, индекс,...) If StartDate CurDate Then Call Процедура_анализа(Sheet.Cells(i; 1)) CoefIndex = CoefIndex + 1 RevIndex = RevIndex + 1 CurDate = Sheet.Cells(i; 1) End If i = i + 1 Wend If Analize1 Then Worksheets("РезультатИндекс").Cells(1; 2) = "Портфель" Worksheets("РезультатИндекс").Cells(1; 3) = "Рынок" For i = 1 To CoefIndex - 1 Worksheets("РезультатИндекс").Cells(i + 1; 1) = Index(i).Dates Worksheets("РезультатИндекс").Cells(i + 1; 2) = Index(i).Portfel Worksheets("РезультатИндекс").Cells(i + 1; 3) = Index(i).Birga Next i Charts("ДиаграммаИндекс").ChartWizard Source:=Sheets("РезультатИндекс").Range( _ "A1:C" + CStr(i)); Gallery:=xlLine; Format:=4; PlotBy:=xlColumns; _ CategoryLabels:=1; SeriesLabels:=1; HasLegend:=1; Title:= _ "Сравнение индекса портфеля и рынка"; CategoryTitle:="дата"; ValueTitle:= _ "индекс"; ExtraTitle:="" Charts("ДиаграммаИндекс").Select MsgBox "Диаграмма Индекса" End If If Analize2 Then Worksheets("РезультатДоходность").Cells(1; 2) = "Портфель" Worksheets("РезультатДоходность").Cells(1; 3) = "Рынок" For i = 1 To RevIndex - 1 Worksheets("РезультатДоходность").Cells(i + 1; 1) = Revenue(i).Dates Worksheets("РезультатДоходность").Cells(i + 1; 2) = Revenue(i).Portfel Worksheets("РезультатДоходность").Cells(i + 1; 3) = Revenue(i).Birga Next i Charts("ДиаграммаДоходность").ChartWizard Source:=Sheets("РезультатДоходность").Range( _ "A1:C" + CStr(i)); Gallery:=xlLine; Format:=4; PlotBy:=xlColumns; _ CategoryLabels:=1; SeriesLabels:=1; HasLegend:=1; Title:= _ "Сравнение доходности портфеля и рынка"; CategoryTitle:="дата"; ValueTitle:= _ "доходность"; ExtraTitle:="" Charts("ДиаграммаДоходность").Select MsgBox "Диаграмма Доходности" End If End Sub '--------------------- функция возвращает индекс бумаги в массиве BumInfo ------------- Function ReturnBum(bum As Long) Dim i As Integer For i = 1 To BumNum If bum = BumInfo(i).Num Then ReturnBum = i Exit Function End If Next i MsgBox "Не найдена бумага в списке бумаг. Занести бумагу в лист Бумаги" End End Function '-------------------- Процедура построения индексов портфеля и рынка -- --------------- Sub Процедура_анализа(CurDate As Date) Dim i; k As Long Dim Sheet As Object Dim PortfelPrice; BirgaPrice As Single Dim BirgaCoef; PortfelCoef As Single Dim Doh; Volume As Single Dim Flag As Boolean Set Sheet = Worksheets("Биржа") ' поиск первой строки начала биржевой информации за текущий день i = Поиск(Worksheets("Биржа"); 1; 2; CurDate; 1) If i = 0 Then 'MsgBox "Биржевая информация за " + CStr(CDate(CurDate)) + "не найдена" 'End CoefIndex = CoefIndex - 1 Exit Sub End If ' занесение биржевой информации за текущий день If i <> 0 Then While Sheet.Cells(i; 1) = CurDate If Sheet.Cells(i; 6) <> Empty Then BirgaInfo(ReturnBum(Sheet.Cells(i; 2))) = Sheet.Cells(i; 6) End If i = i + 1 Wend End If ' определение по каждой бумаге обращения на бирже For i = 1 To BumNum If BumInfo(i).DateStart 1 Then ' поиск остатков за текущий день k = Поиск(Worksheets("Остаток"); 1; 2; CurDate; 1) If k <> 0 Then PortfelPrice = PortfelPrice + Worksheets("Остаток").Cells(k; 2) End If ' вычисление коэффициента портфеля If k <> 0 Then PortfelCoef = (PortfelPrice - Worksheets("Остаток").Cells(k; 3) _ + Worksheets("Остаток").Cells(k; 4)) / PortfelPricePred Else PortfelCoef = PortfelPrice / PortfelPricePred End If PortfelPricePred = PortfelPrice ' определение индекса портфеля за текущий день Index(CoefIndex).Portfel = Index(CoefIndex - 1).Portfel * PortfelCoef Index(CoefIndex).Dates = CurDate BirgaCoef = BirgaPrice k = Поиск(Worksheets("Бумаги"); 2; 2; CurDate; 1) If k <> 0 Then BirgaCoef = BirgaCoef - Worksheets("Бумаги").Cells(k; 4) End If k = Поиск(Worksheets("Бумаги"); 3; 2; CurDate; 1) If k <> 0 Then BirgaCoef = BirgaCoef + Worksheets("Бумаги").Cells(k; 4) End If BirgaCoef = BirgaCoef / BirgaPricePred BirgaPricePred = BirgaPrice ' определение индекса биржи за текущий день Index(CoefIndex).Birga = Index(CoefIndex - 1).Birga * BirgaCoef Else k = Поиск(Worksheets("Остаток"); 1; 2; CurDate; 1) If k <> 0 Then PortfelPrice = PortfelPrice + Worksheets("Остаток").Cells(k; 2) End If PortfelPricePred = PortfelPrice BirgaPricePred = BirgaPrice End If End If End Sub Sub Cancel() End End Sub Приложение № 2.2. Диаграмма сравнения доходности портфеля и рынка. [pic] Приложение № 2.3. Диаграмма сравнения индекса портфеля и рынка. [pic] Приложение № 3. Входные статистические данные. Приложение 3.1. Информация о бумагах. |№ |Дата выпуска |Дата |Объем выпуска | | | |погашения | | |21019 |14.11.96 |13.02.97 |60 000 000 | |21020 |09.01.97 |10.04.97 |65 000 000 | |21021 |13.02.97 |15.05.97 |55 000 000 | |21022 |10.04.97 |10.07.97 |55 000 000 | |21023 |10.07.97 |09.10.97 |40 000 000 | |21024 |18.12.97 |09.04.98 |45 000 000 | |22002 |29.08.96 |27.02.97 |25 000 000 | |22003 |26.09.96 |27.03.97 |30 000 000 | |22004 |24.10.96 |24.04.97 |40 000 000 | |22005 |28.11.96 |29.05.97 |45 000 000 | |22006 |19.12.96 |19.06.97 |90 000 000 | |22007 |30.01.97 |24.07.97 |30 000 000 | |22008 |27.02.97 |28.08.97 |55 000 000 | |22009 |27.03.97 |25.09.97 |55 000 000 | |22010 |24.04.97 |23.10.97 |60 000 000 | |22011 |15.05.97 |13.11.97 |60 000 000 | |22012 |29.05.97 |27.11.97 |60 000 000 | |24001 |20.03.97 |12.03.98 |30 000 000 | |24002 |08.05.97 |07.05.98 |25 000 000 | Приложение 3.2. Информация о сделках. |Дата |№ бумаги |Цена приобр |Цена продажи|Кол-во | |02.12.96 |22004 |92,99 | |62 | |02.12.96 |22004 |93,00 | |340 | |04.12.96 |22005 |77,50 | |6 | |05.12.96 |22003 |85,14 | |5 | |19.12.96 |22006 |80,05 | |300 | |19.12.96 |22006 |80,21 | |500 | |19.12.96 |22006 |80,37 | |259 | |01.01.97 |22005 |92,06 | |7 | |01.01.97 |21021 |0,00 | |1126 | |01.01.97 |22005 |0,00 | |95 | |01.01.97 |22008 |0,00 | |75 | |01.01.97 |22009 |0,00 | |457 | |01.01.97 |22008 |0,00 | |29 | |01.01.97 |21020 |0,00 | |642 | |01.01.97 |22004 |0,00 | |12 | |01.01.97 |22006 |0,00 | |20 | |01.01.97 |22009 |0,00 | |16 | |01.01.97 |21020 |0,00 | |90 | |01.01.97 |22006 |0,00 | |26 | |01.01.97 |21020 |0,00 | |20 | |01.01.97 |22004 |0,00 | |15 | |01.01.97 |22006 |0,00 | |5 | |01.01.97 |21021 |0,00 | |12 | |01.01.97 |22006 |0,00 | |27 | |01.01.97 |21020 |0,00 | |0 | |01.01.97 |21021 |0,00 | |63 | |01.01.97 |22004 |0,00 | |159 | |01.01.97 |22005 |0,00 | |146 | |01.01.97 |22009 |0,00 | |46 | |01.01.97 |22007 |0,00 | |32 | |01.01.97 |22008 |0,00 | |13 | |01.01.97 |22006 |0,00 | |73 | |01.01.97 |22006 |0,00 | |59 | |01.01.97 |22006 |0,00 | |56 | |01.01.97 |21020 |0,00 | |29 | |01.01.97 |21021 |0,00 | |8 | |01.01.97 |22005 |0,00 | |12 | |01.01.97 |22006 |0,00 | |27 | |01.01.97 |21021 |0,00 | |10 | |01.01.97 |22008 |0,00 | |28 | |01.01.97 |22008 |0,00 | |57 | |01.01.97 |21021 |0,00 | |42 | |01.01.97 |24001 |0,00 | |34 | |01.01.97 |24001 |0,00 | |69 | |01.01.97 |21021 |0,00 | |104 | |09.01.97 |21020 |90,93 | |300 | |09.01.97 |21020 |91,03 | |600 | |09.01.97 |21020 |91,24 | |900 | |09.01.97 |21020 |91,35 | |600 | |09.01.97 |21020 |91,50 | |500 | |10.01.97 |22004 |91,54 | |24 | |13.01.97 |21020 |93,65 | |50 | |14.01.97 |21020 |93,22 | |32 | |15.01.97 |22005 |88,51 | |10 | |17.01.97 |21020 |92,50 | |10 | |28.01.97 |21020 |93,40 | |7 | |31.01.97 |22007 |84,19 | |16 | |31.01.97 |22007 |84,20 | |184 | |06.02.97 |22004 |92,80 | |60 | |10.02.97 |22006 |89,00 | |500 | |13.02.97 |21021 |91,20 | |430 | |13.02.97 |21021 |91,30 | |430 | |13.02.97 |21021 |91,33 | |320 | |17.02.97 |22005 |92,25 | |78 | |17.02.97 |22007 | |88,42 |78 | |19.02.97 |22005 |93,00 | |122 | |19.02.97 |22003 |97,55 | |41 | |19.02.97 |22007 | |89,39 |122 | |20.02.97 |22005 |92,60 | |28 | |25.02.97 |22005 |92,01 | |100 | |25.02.97 |22005 |92,03 | |60 | |25.02.97 |21020 |96,00 | |101 | |26.02.97 |22004 |95,10 | |12 | |26.02.97 |21021 | |92,50 |12 | |27.02.97 |22008 |84,04 | |300 | |27.02.97 |22008 |84,10 | |432 | |27.02.97 |22008 |84,22 | |318 | |27.02.97 |22008 |84,09 | |311 | |27.02.97 |22008 |84,22 | |182 | |27.02.97 |22008 |84,42 | |100 | |28.02.97 |21021 |93,23 | |80 | |03.03.97 |21020 | |97,30 |200 | |03.03.97 |21021 | |94,00 |154 | |03.03.97 |22006 | |92,50 |200 | |04.03.97 |22006 |92,40 | |24 | |04.03.97 |22006 |92,52 | |200 | |04.03.97 |22006 |92,53 | |200 | |06.03.97 |22006 |92,63 | |25 | |06.03.97 |22004 |96,45 | |4 | |06.03.97 |21020 |97,53 | |108 | |12.03.97 |21020 | |97,70 |489 | |13.03.97 |21020 | |97,50 |822 | |13.03.97 |21021 | |94,00 |399 | |17.03.97 |21021 |93,67 | |100 | |19.03.97 |22003 |99,19 | |128 | |19.03.97 |22003 |99,20 | |229 | |20.03.97 |24001 |72,00 | |50 | |20.03.97 |24001 |72,15 | |290 | |21.03.97 |22005 |94,20 | |2 | |21.03.97 |22005 |94,25 | |100 | |24.03.97 |22005 |94,25 | |108 | |24.03.97 |22005 |94,39 | |27 | |24.03.97 |22005 |94,40 | |598 | |24.03.97 |21020 | |98,40 |200 | |25.03.97 |22006 |92,10 | |70 | |25.03.97 |22005 |94,05 | |320 | |25.03.97 |22003 | |99,78 |403 | |26.03.97 |22006 |92,00 | |314 | |26.03.97 |21021 |94,45 | |80 | |26.03.97 |21020 |98,10 | |50 | |28.03.97 |22005 |94,15 | |7 | |28.03.97 |21021 |95,10 | |135 | |28.03.97 |21021 |95,19 | |378 | |28.03.97 |21021 |95,20 | |90 | |28.03.97 |21020 | |99,07 |288 | |28.03.97 |21020 | |99,01 |300 | |31.03.97 |22006 |92,92 | |200 | |31.03.97 |22006 |92,93 | |400 | |31.03.97 |22006 |92,94 | |100 | |31.03.97 |22005 |94,50 | |10 | |31.03.97 |21020 | |99,10 |88 | |31.03.97 |21020 | |99,11 |12 | |31.03.97 |21020 | |99,12 |2 | |31.03.97 |22006 | |92,94 |100 | |31.03.97 |22006 | |92,93 |400 | |31.03.97 |22006 | |92,92 |200 | |01.04.97 |22006 |92,70 | |1 | |01.04.97 |22006 |92,91 | |89 | |01.04.97 |22004 |97,72 | |10 | |03.04.97 |22004 |98,00 | |100 | |03.04.97 |21020 |99,28 | |38 | |03.04.97 |22006 |93,06 | |29 | |03.04.97 |22006 |93,23 | |5 | |03.04.97 |22006 |93,31 | |145 | |04.04.97 |21020 |99,30 | |370 | |04.04.97 |22006 |93,32 | |50 | |04.04.97 |22006 |93,37 | |47 | |04.04.97 |22006 |93,39 | |45 | |08.04.97 |22004 |98,35 | |239 | |08.04.97 |22008 | |87,50 |167 | |08.04.97 |24001 | |73,15 |23 | |08.04.97 |22004 | |98,35 |53 | |09.04.97 |21020 |99,80 | |13 | |09.04.97 |21020 |99,86 | |27 | |09.04.97 |21020 |99,87 | |325 | |09.04.97 |24001 | |73,20 |117 | |09.04.97 |24001 | |73,25 |200 | |09.04.97 |22009 |84,86 | |61 | |10.04.97 |21022 |91,50 | |2101 | |10.04.97 |21020 | |100,00 |1630 | |10.04.97 |21022 |91,50 | |91 | |10.04.97 |21022 |91,65 | |609 | |10.04.97 |21020 | |100,00 |642 | |10.04.97 |21022 |91,65 | |98 | |10.04.97 |21020 | |100,00 |90 | |10.04.97 |21022 |91,50 | |10 | |10.04.97 |21020 | |100,00 |20 | |10.04.97 |21022 |91,65 | |42 | |10.04.97 |21020 | |100,00 |39 | |10.04.97 |21022 |91,65 | |31 | |10.04.97 |21020 | |100,00 |29 | |10.04.97 |21022 |91,50 | |5458 | |11.04.97 |21022 | |92,40 |1 | |11.04.97 |24001 |73,50 | |300 | |14.04.97 |22009 |85,50 | |340 | |14.04.97 |21021 | |97,25 |300 | |14.04.97 |22006 |94,53 | |157 | |16.04.97 |22008 |88,40 | |330 | |16.04.97 |21021 | |97,80 |600 | |16.04.97 |22004 | |99,60 |90 | |16.04.97 |22009 | |86,39 |340 | |16.04.97 |22004 | |99,60 |50 | |17.04.97 |22009 |86,50 | |60 | |17.04.97 |22004 | |99,64 |3 | |17.04.97 |24001 |73,80 | |1 | |21.04.97 |21022 |92,45 | |515 | |21.04.97 |22006 | |95,30 |500 | |21.04.97 |21022 |92,38 | |3 | |21.04.97 |22006 | |95,30 |321 | |22.04.97 |22004 | |99,90 |189 | |22.04.97 |22008 | |88,72 |112 | |23.04.97 |22005 | |97,20 |12 | |24.04.97 |22004 | |100,00 |572 | |24.04.97 |22010 |84,35 | |14 | |24.04.97 |22004 | |100,00 |12 | |24.04.97 |22010 |84,32 | |10 | |24.04.97 |22004 | |100,00 |15 | |24.04.97 |22010 |84,32 | |28 | |24.04.97 |22010 |84,35 | |34 | |24.04.97 |22004 | |100,00 |53 | |24.04.97 |22010 |84,28 | |586 | |24.04.97 |22010 |84,32 | |355 | |25.04.97 |22008 |89,89 | |18 | |25.04.97 |21022 |93,55 | |48 | |25.04.97 |21022 |93,49 | |2 | |25.04.97 |21022 |93,50 | |4 | |28.04.97 |21022 |93,50 | |790 | |28.04.97 |22005 | |97,68 |200 | |28.04.97 |22005 | |97,70 |500 | |28.04.97 |21022 |93,50 | |1008 | |28.04.97 |21022 | |93,65 |982 | |28.04.97 |21022 | |93,60 |80 | |28.04.97 |21022 | |93,55 |468 | |28.04.97 |21022 | |93,56 |67 | |28.04.97 |21022 | |93,50 |1916 | |28.04.97 |21022 | |93,61 |10 | |28.04.97 |21022 | |93,51 |46 | |29.04.97 |21022 |94,01 | |826 | |29.04.97 |22006 | |96,50 |800 | |29.04.97 |21022 | |94,00 |400 | |29.04.97 |21022 | |94,01 |836 | |29.04.97 |21022 | |94,05 |55 | |29.04.97 |21022 | |94,10 |300 | |29.04.97 |21022 | |94,15 |298 | |06.05.97 |21021 | |99,40 |78 | |06.05.97 |21022 | |94,70 |131 | |06.05.97 |22006 | |97,00 |1 | |06.05.97 |22006 | |96,90 |1 | |06.05.97 |22006 | |96,65 |31 | |06.05.97 |22006 | |96,61 |263 | |06.05.97 |22008 | |91,20 |42 | |06.05.97 |22008 | |90,80 |501 | |12.05.97 |21022 |0,00 | |32 | |12.05.97 |22009 |0,00 | |160 | |14.05.97 |21022 | |95,40 |300 | |14.05.97 |21022 | |95,45 |300 | |14.05.97 |21022 | |95,48 |500 | |15.05.97 |22011 |86,30 | |1190 | |15.05.97 |21021 | |100,00 |500 | |15.05.97 |22011 |86,35 | |477 | |15.05.97 |22011 |86,41 | |826 | |15.05.97 |21021 | |100,00 |1126 | |15.05.97 |22011 |86,35 | |13 | |15.05.97 |21021 | |100,00 |12 | |15.05.97 |22011 |86,35 | |63 | |15.05.97 |21021 | |100,00 |63 | |15.05.97 |21021 | |100,00 |8 | |15.05.97 |21021 | |100,00 |10 | |15.05.97 |22011 |86,35 | |48 | |15.05.97 |21021 | |100,00 |42 | |15.05.97 |21021 | |100,00 |104 | |16.05.97 |24001 |79,30 | |50 | |16.05.97 |22011 |87,09 | |60 | |16.05.97 |22011 |87,10 | |90 | |16.05.97 |22011 |87,35 | |353 | |16.05.97 |21022 | |95,75 |355 | |16.05.97 |21022 | |95,80 |145 | |19.05.97 |21022 |96,54 | |50 | |20.05.97 |21022 |96,65 | |13 | |20.05.97 |21022 |96,73 | |44 | |21.05.97 |22005 | |99,65 |1 | |22.05.97 |22011 |88,40 | |92 | |22.05.97 |22011 |88,43 | |17 | |22.05.97 |22011 |88,44 | |391 | |22.05.97 |22011 |88,50 | |1 | |22.05.97 |22011 |88,70 | |350 | |22.05.97 |22005 | |99,80 |500 | |22.05.97 |22005 | |99,82 |252 | |23.05.97 |22011 |88,70 | |224 | |23.05.97 |22005 | |99,82 |119 | |26.05.97 |22011 | |88,55 |129 | |26.05.97 |22011 | |88,54 |26 | |26.05.97 |22011 | |88,53 |410 | |27.05.97 |22011 | |0,00 |791 | |28.05.97 |22011 |88,03 | |2 | |28.05.97 |21022 |96,40 | |10 | |28.05.97 |21022 |96,50 | |12 | |28.05.97 |21022 |96,69 | |100 | |28.05.97 |21022 |96,70 | |45 | |28.05.97 |21022 | |96,88 |144 | |28.05.97 |22008 | |93,30 |25 | |28.05.97 |22011 | |88,21 |50 | |28.05.97 |22011 | |88,26 |20 | |28.05.97 |22011 | |88,25 |100 | |28.05.97 |22011 | |88,20 |48 | |29.05.97 |22012 |87,30 | |108 | |29.05.97 |22005 | |100,00 |95 | |29.05.97 |22012 |87,30 | |8 | |29.05.97 |22005 | |100,00 |7 | |29.05.97 |22012 |87,30 | |64 | |29.05.97 |22005 | |100,00 |57 | |29.05.97 |22005 | |100,00 |12 | |29.05.97 |22012 |87,00 | |573 | |30.05.97 |22007 |95,79 | |73 | |30.05.97 |22006 |98,65 | |82 | |30.05.97 |22012 |87,85 | |50 | |30.05.97 |22012 |87,85 | |13 | Приложение 3.3. Информация о движениях денежных средств. |Дата |Остаток на конец |Ввод |Вывод | |05.02.97 |61 746 712,20 | | | |06.02.97 |481 785 980,60 | | | |10.02.97 |36 340 980,60 | | | |14.02.97 |297 257 974,60 | | | |17.02.97 |294 129 652,00 | | | |19.02.97 |249 467 440,70 | | | |20.02.97 |223 513 512,70 | | | |25.02.97 |20 918 675,30 | | | |26.02.97 |21 253 187,30 | | | |28.02.97 |8 953 377,10 | | | |03.03.97 |532 789 017,10 | | | |04.03.97 |140 120 741,10 | | | |06.03.97 |7 640 493,20 | | | |12.03.97 |484 915 740,20 | | | |13.03.97 |660 249 230,20 | |1 000 000 000,00 | |17.03.97 |566 485 560,20 | | | |19.03.97 |912 000 229,00 |700 000 000,00 | | |21.03.97 |570 289 860,00 | | | |24.03.97 |74 813 572,70 | | | |25.03.97 |8 058 802,70 | | | |26.03.97 |6 123 432,20 | | | |28.03.97 |6 838 506,90 | | | |31.03.97 |97 060 573,30 | | | |01.04.97 |3 578 284,40 | | | |02.04.97 |503 578 284,40 |500 000 000,00 | | |03.04.97 |368 270 852,10 | | | |04.04.97 |493 442,10 | | | |07.04.97 |500 493 442,10 |500 000 000,00 | | |08.04.97 |427 988 436,10 | | | |09.04.97 |295 022 078,40 | | | |11.04.97 |684 663,40 | | | |14.04.97 |1 152 213,40 | | | |16.04.97 |678 336 327,40 | | | |21.04.97 |3 004 364,27 | |675 000 000,00 | |22.04.97 |290 965 631,22 | | | |23.04.97 |302 620 883,22 | | | |24.04.97 |2 620 883,22 | |300 000 000,00 | |25.04.97 |574 620 883,22 | | | |28.04.97 |5 756 283,52 | | | |29.04.97 |72 291,57 | | | |06.05.97 |122 502,22 | |980 000 000,00 | |14.05.97 |533 285 039,72 | |516 000 000,00 | |16.05.97 |5 009 715,72 | | | |22.05.97 |931 583,51 | | | |23.05.97 |1 584 837,51 | | | |26.05.97 |1 432 570,33 | |500 000 000,00 | |28.05.97 |650 729 151,73 |500 000 000,00 | | |29.05.97 |151 229 151,73 | |499 500 000,00 | |30.05.97 |296 336,95 | | | Приложение 3.4. Биржевая информация. |Дата |№ бумаги |Цена | | | |средневзвешенная| |06.01.97 |21018 |99,643 | |06.01.97 |21019 |94,126 | |06.01.97 |22001 |98,422 | |06.01.97 |22002 |94,880 | |06.01.97 |22003 |93,288 | |06.01.97 |22004 |90,318 | |06.01.97 |22005 |87,458 | |06.01.97 |22006 |96,187 | |08.01.97 |21018 |99,886 | |08.01.97 |21019 |96,830 | |08.01.97 |22001 |98,422 | |08.01.97 |22002 |95,664 | |08.01.97 |22003 |93,032 | |08.01.97 |22004 |91,372 | |08.01.97 |22005 |88,078 | |08.01.97 |22006 |86,150 | |09.01.97 |21018 |100,000 | |09.01.97 |21020 |90,832 | |10.01.97 |21019 |97,123 | |10.01.97 |21020 |92,340 | |10.01.97 |22001 |99,009 | |10.01.97 |22002 |95,907 | |10.01.97 |22003 |92,999 | |10.01.97 |22004 |90,773 | |10.01.97 |22005 |88,050 | |10.01.97 |22006 |86,316 | |13.01.97 |21019 |97,245 | |13.01.97 |21020 |93,147 | |13.01.97 |22001 |99,176 | |13.01.97 |22002 |96,648 | |13.01.97 |22003 |94,013 | |13.01.97 |22004 |93,042 | |13.01.97 |22005 |89,735 | |13.01.97 |22006 |90,704 | |14.01.97 |21019 |97,670 | |14.01.97 |21020 |93,335 | |14.01.97 |22001 |99,343 | |14.01.97 |22002 |96,617 | |14.01.97 |22003 |94,127 | |14.01.97 |22004 |92,800 | |14.01.97 |22005 |90,000 | |14.01.97 |22006 |86,999 | |15.01.97 |21019 |97,693 | |15.01.97 |21020 |93,354 | |15.01.97 |22001 |99,621 | |15.01.97 |22002 |96,500 | |15.01.97 |22003 |94,369 | |15.01.97 |22004 |91,988 | |15.01.97 |22005 |89,289 | |15.01.97 |22006 |88,008 | |16.01.97 |21019 |97,685 | |16.01.97 |21020 |92,831 | |16.01.97 |22001 |99,634 | |16.01.97 |22002 |96,500 | |16.01.97 |22003 |94,325 | |16.01.97 |22004 |91,525 | |16.01.97 |22005 |89,500 | |16.01.97 |22006 |87,936 | |17.01.97 |21019 |97,413 | |17.01.97 |21020 |92,541 | |17.01.97 |22001 |99,680 | |17.01.97 |22002 |96,544 | |17.01.97 |22003 |92,338 | |17.01.97 |22004 |91,715 | |17.01.97 |22005 |89,000 | |17.01.97 |22006 |87,373 | |20.01.97 |21019 |97,650 | |20.01.97 |21020 |92,538 | |20.01.97 |22001 |99,826 | |20.01.97 |22002 |95,996 | |20.01.97 |22003 |93,943 | |20.01.97 |22004 |91,855 | |20.01.97 |22005 |87,862 | |20.01.97 |22006 |87,631 | |21.01.97 |21019 |97,557 | |21.01.97 |21020 |92,463 | |21.01.97 |22001 |99,801 | |21.01.97 |22002 |96,402 | |21.01.97 |22003 |94,097 | |21.01.97 |22004 |91,114 | |21.01.97 |22005 |88,438 | |21.01.97 |22006 |86,820 | |22.01.97 |21019 |97,691 | |22.01.97 |21020 |92,509 | |22.01.97 |22001 |99,861 | |22.01.97 |22002 |96,990 | |22.01.97 |22003 |94,097 | |22.01.97 |22004 |91,349 | |22.01.97 |22005 |88,389 | |22.01.97 |22006 |86,710 | |23.01.97 |22001 |100,000 | |23.01.97 |22006 |86,597 | |24.01.97 |21019 |98,164 | |24.01.97 |21020 |92,854 | |24.01.97 |22002 |96,740 | |24.01.97 |22003 |94,233 | |24.01.97 |22004 |91,920 | |24.01.97 |22005 |89,055 | |24.01.97 |22006 |87,196 | |27.01.97 |21019 |98,620 | |27.01.97 |21020 |93,200 | |27.01.97 |22002 |97,327 | |27.01.97 |22003 |94,658 | |27.01.97 |22004 |92,081 | |27.01.97 |22005 |89,153 | |27.01.97 |22006 |87,163 | |28.01.97 |21019 |98,681 | |28.01.97 |21020 |93,369 | |28.01.97 |22002 |97,412 | |28.01.97 |22003 |94,732 | |28.01.97 |22004 |92,486 | |28.01.97 |22005 |89,617 | |28.01.97 |22006 |87,152 | |29.01.97 |21019 |98,242 | |29.01.97 |21020 |93,041 | |29.01.97 |22002 |97,485 | |29.01.97 |22003 |94,821 | |29.01.97 |22004 |91,200 | |29.01.97 |22005 |89,617 | |29.01.97 |22006 |87,353 | |30.01.97 |22007 |83,554 | |31.01.97 |21019 |98,864 | |31.01.97 |21020 |93,385 | |31.01.97 |22002 |97,485 | |31.01.97 |22003 |94,652 | |31.01.97 |22004 |91,787 | |31.01.97 |22005 |85,900 | |31.01.97 |22006 |87,419 | |31.01.97 |22007 |84,043 | |03.02.97 |21019 |99,326 | |03.02.97 |21020 |93,500 | |03.02.97 |22002 |97,880 | |03.02.97 |22003 |94,829 | |03.02.97 |22004 |92,601 | |03.02.97 |22005 |89,415 | |03.02.97 |22006 |88,276 | |03.02.97 |22007 |84,480 | |04.02.97 |21019 |99,155 | |04.02.97 |21020 |93,831 | |04.02.97 |22002 |97,954 | |04.02.97 |22003 |95,089 | |04.02.97 |22004 |92,484 | |04.02.97 |22005 |90,000 | |04.02.97 |22006 |88,181 | |04.02.97 |22007 |84,612 | |05.02.97 |21019 |99,245 | |05.02.97 |21020 |94,120 | |05.02.97 |22002 |97,954 | |05.02.97 |22003 |95,330 | |05.02.97 |22004 |92,705 | |05.02.97 |22005 |90,182 | |05.02.97 |22006 |88,575 | |05.02.97 |22007 |84,749 | |06.02.97 |21019 |99,502 | |06.02.97 |21020 |94,255 | |06.02.97 |22002 |98,440 | |06.02.97 |22003 |95,631 | |06.02.97 |22004 |93,010 | |06.02.97 |22005 |90,650 | |06.02.97 |22006 |89,112 | |06.02.97 |22007 |86,097 | |07.02.97 |21019 |99,646 | |07.02.97 |21020 |94,650 | |07.02.97 |22002 |97,238 | |07.02.97 |22003 |95,946 | |07.02.97 |22004 |93,249 | |07.02.97 |22005 |91,013 | |07.02.97 |22006 |89,136 | |07.02.97 |22007 |86,035 | |10.02.97 |21019 |99,771 | |10.02.97 |21020 |94,990 | |10.02.97 |22002 |98,667 | |10.02.97 |22003 |95,760 | |10.02.97 |22004 |93,520 | |10.02.97 |22005 |90,591 | |10.02.97 |22006 |88,109 | |10.02.97 |22007 |86,113 | |11.02.97 |21019 |99,842 | |11.02.97 |21020 |94,759 | |11.02.97 |22002 |98,667 | |11.02.97 |22003 |96,000 | |11.02.97 |22004 |93,565 | |11.02.97 |22005 |90,800 | |11.02.97 |22006 |89,259 | |11.02.97 |22007 |86,157 | |12.02.97 |21019 |99,875 | |12.02.97 |21020 |94,844 | |12.02.97 |22002 |98,571 | |12.02.97 |22003 |96,000 | |12.02.97 |22004 |93,678 | |12.02.97 |22005 |90,520 | |12.02.97 |22006 |89,239 | |12.02.97 |22007 |86,558 | |13.02.97 |21019 |100,000 | |13.02.97 |21021 |91,357 | |14.02.97 |21020 |95,057 | |14.02.97 |21021 |92,133 | |14.02.97 |22002 |99,233 | |14.02.97 |22003 |96,400 | |14.02.97 |22004 |94,100 | |14.02.97 |22005 |91,400 | |14.02.97 |22006 |90,053 | |14.02.97 |22007 |87,650 | |17.02.97 |21020 |95,604 | |17.02.97 |21021 |92,377 | |17.02.97 |22002 |99,535 | |17.02.97 |22003 |96,852 | |17.02.97 |22004 |94,484 | |17.02.97 |22005 |92,159 | |17.02.97 |22006 |90,548 | |17.02.97 |22007 |88,149 | |18.02.97 |21020 |96,133 | |18.02.97 |21021 |92,625 | |18.02.97 |22002 |99,700 | |18.02.97 |22003 |97,191 | |18.02.97 |22004 |94,987 | |18.02.97 |22005 |92,690 | |18.02.97 |22006 |90,988 | |18.02.97 |22007 |88,547 | |19.02.97 |21020 |96,364 | |19.02.97 |21021 |92,841 | |19.02.97 |22002 |99,702 | |19.02.97 |22003 |97,195 | |19.02.97 |22004 |95,049 | |19.02.97 |22005 |92,979 | |19.02.97 |22006 |91,236 | |19.02.97 |22007 |89,245 | |20.02.97 |21020 |96,263 | |20.02.97 |21021 |93,056 | |20.02.97 |22002 |99,800 | |20.02.97 |22003 |97,400 | |20.02.97 |22004 |95,370 | |20.02.97 |22005 |92,948 | |20.02.97 |22006 |90,918 | |20.02.97 |22007 |89,336 | |21.02.97 |21020 |96,490 | |21.02.97 |21021 |93,234 | |21.02.97 |22002 |99,800 | |21.02.97 |22003 |97,496 | |21.02.97 |22004 |95,310 | |21.02.97 |22005 |92,643 | |21.02.97 |22006 |91,359 | |21.02.97 |22007 |88,513 | |24.02.97 |21020 |96,071 | |24.02.97 |21021 |92,965 | |24.02.97 |22002 |99,800 | |24.02.97 |22003 |97,500 | |24.02.97 |22004 |95,200 | |24.02.97 |22005 |92,007 | |24.02.97 |22006 |90,456 | |24.02.97 |22007 |88,500 | |25.02.97 |21020 |96,000 | |25.02.97 |21021 |90,057 | |25.02.97 |22002 |99,852 | |25.02.97 |22003 |97,427 | |25.02.97 |22004 |95,454 | |25.02.97 |22005 |92,054 | |25.02.97 |22006 |90,930 | |25.02.97 |22007 |88,199 | |26.02.97 |21020 |96,119 | |26.02.97 |21021 |92,786 | |26.02.97 |22002 |99,883 | |26.02.97 |22003 |97,734 | |26.02.97 |22004 |95,019 | |26.02.97 |22005 |92,299 | |26.02.97 |22006 |90,874 | |26.02.97 |22007 |88,730 | |27.02.97 |22002 |100,000 | |27.02.97 |22008 |84,092 | |28.02.97 |21020 |96,809 | |28.02.97 |21021 |93,293 | |28.02.97 |22003 |98,120 | |28.02.97 |22004 |95,190 | |28.02.97 |22005 |93,100 | |28.02.97 |22006 |91,725 | |28.02.97 |22007 |88,782 | |28.02.97 |22008 |84,956 | |03.03.97 |21020 |97,293 | |03.03.97 |21021 |94,125 | |03.03.97 |22003 |98,350 | |03.03.97 |22004 |96,362 | |03.03.97 |22005 |93,100 | |03.03.97 |22006 |92,266 | |03.03.97 |22007 |90,333 | |03.03.97 |22008 |86,453 | |04.03.97 |21020 |97,348 | |04.03.97 |21021 |94,392 | |04.03.97 |22003 |98,436 | |04.03.97 |22004 |96,124 | |04.03.97 |22005 |93,939 | |04.03.97 |22006 |92,416 | |04.03.97 |22007 |89,930 | |04.03.97 |22008 |87,157 | |05.03.97 |21020 |97,600 | |05.03.97 |21021 |94,421 | |05.03.97 |22003 |98,811 | |05.03.97 |22004 |96,685 | |05.03.97 |22005 |94,343 | |05.03.97 |22006 |92,647 | |05.03.97 |22007 |89,930 | |05.03.97 |22008 |87,016 | |06.03.97 |21020 |97,654 | |06.03.97 |21021 |94,503 | |06.03.97 |22003 |98,962 | |06.03.97 |22004 |96,782 | |06.03.97 |22005 |94,450 | |06.03.97 |22006 |92,646 | |06.03.97 |22007 |90,257 | |06.03.97 |22008 |86,887 | |07.03.97 |21020 |97,636 | |07.03.97 |21021 |94,630 | |07.03.97 |22003 |99,125 | |07.03.97 |22004 |96,903 | |07.03.97 |22005 |94,450 | |07.03.97 |22006 |92,953 | |07.03.97 |22007 |90,257 | |07.03.97 |22008 |87,081 | |11.03.97 |21020 |96,775 | |11.03.97 |21021 |94,860 | |11.03.97 |22003 |99,209 | |11.03.97 |22004 |96,650 | |11.03.97 |22005 |94,500 | |11.03.97 |22006 |93,162 | |11.03.97 |22007 |90,993 | |11.03.97 |22008 |87,317 | |12.03.97 |21020 |97,700 | |12.03.97 |21021 |94,132 | |12.03.97 |22003 |97,682 | |12.03.97 |22004 |95,787 | |12.03.97 |22005 |94,000 | |12.03.97 |22006 |92,513 | |12.03.97 |22007 |90,000 | |12.03.97 |22008 |87,138 | |13.03.97 |21020 |97,490 | |13.03.97 |21021 |94,000 | |13.03.97 |22003 |99,000 | |13.03.97 |22004 |96,064 | |13.03.97 |22005 |93,625 | |13.03.97 |22006 |92,141 | |13.03.97 |22007 |90,000 | |13.03.97 |22008 |86,400 | |14.03.97 |21020 |97,485 | |14.03.97 |21021 |94,946 | |14.03.97 |22003 |99,090 | |14.03.97 |22004 |96,501 | |14.03.97 |22005 |93,602 | |14.03.97 |22006 |92,133 | |14.03.97 |22007 |89,000 | |14.03.97 |22008 |86,731 | |17.03.97 |21020 |97,955 | |17.03.97 |21021 |92,545 | |17.03.97 |22003 |99,010 | |17.03.97 |22004 |96,800 | |17.03.97 |22005 |93,890 | |17.03.97 |22006 |92,423 | |17.03.97 |22007 |89,064 | |17.03.97 |22008 |87,328 | |18.03.97 |21020 |98,024 | |18.03.97 |21021 |94,576 | |18.03.97 |22003 |99,112 | |18.03.97 |22004 |96,576 | |18.03.97 |22005 |94,031 | |18.03.97 |22006 |92,455 | |18.03.97 |22007 |89,064 | |18.03.97 |22008 |86,166 | |19.03.97 |21020 |98,007 | |19.03.97 |21021 |94,668 | |19.03.97 |22003 |99,195 | |19.03.97 |22004 |96,819 | |19.03.97 |22005 |93,877 | |19.03.97 |22006 |91,269 | |19.03.97 |22007 |88,900 | |19.03.97 |22008 |86,649 | |20.03.97 |24001 |72,152 | |21.03.97 |21020 |98,278 | |21.03.97 |21021 |94,772 | |21.03.97 |22003 |99,600 | |21.03.97 |22004 |97,004 | |21.03.97 |22005 |94,285 | |21.03.97 |22006 |92,474 | |21.03.97 |22007 |88,900 | |21.03.97 |22008 |86,200 | |21.03.97 |24001 |72,503 | |24.03.97 |21020 |98,542 | |24.03.97 |21021 |94,855 | |24.03.97 |22003 |99,782 | |24.03.97 |22004 |97,333 | |24.03.97 |22005 |94,290 | |24.03.97 |22006 |92,693 | |24.03.97 |22007 |89,014 | |24.03.97 |22008 |86,303 | |24.03.97 |24001 |73,415 | |25.03.97 |21020 |98,273 | |25.03.97 |21021 |94,770 | |25.03.97 |22003 |99,784 | |25.03.97 |22004 |97,212 | |25.03.97 |22005 |94,182 | |25.03.97 |22006 |90,967 | |25.03.97 |22007 |88,855 | |25.03.97 |22008 |86,255 | |25.03.97 |24001 |72,600 | |26.03.97 |21020 |98,248 | |26.03.97 |21021 |94,563 | |26.03.97 |22003 |99,845 | |26.03.97 |22004 |97,248 | |26.03.97 |22005 |94,264 | |26.03.97 |22006 |92,016 | |26.03.97 |22007 |88,934 | |26.03.97 |22008 |86,300 | |26.03.97 |24001 |72,495 | |27.03.97 |22003 |100,000 | |27.03.97 |22009 |83,778 | |28.03.97 |21020 |99,032 | |28.03.97 |21021 |95,190 | |28.03.97 |22004 |97,329 | |28.03.97 |22005 |94,188 | |28.03.97 |22006 |92,888 | |28.03.97 |22007 |89,682 | |28.03.97 |22008 |88,090 | |28.03.97 |22009 |84,019 | |28.03.97 |24001 |72,997 | |31.03.97 |21020 |99,106 | |31.03.97 |21021 |95,565 | |31.03.97 |22004 |97,543 | |31.03.97 |22005 |94,517 | |31.03.97 |22006 |92,818 | |31.03.97 |22007 |89,682 | |31.03.97 |22008 |87,300 | |31.03.97 |22009 |84,050 | |31.03.97 |24001 |72,900 | |01.04.97 |21020 |99,249 | |01.04.97 |21021 |95,723 | |01.04.97 |22004 |97,727 | |01.04.97 |22005 |94,517 | |01.04.97 |22006 |92,953 | |01.04.97 |22007 |90,000 | |01.04.97 |22008 |86,996 | |01.04.97 |22009 |84,330 | |01.04.97 |24001 |73,000 | |02.04.97 |21020 |99,250 | |02.04.97 |21021 |95,693 | |02.04.97 |22004 |97,963 | |02.04.97 |22005 |94,736 | |02.04.97 |22006 |93,156 | |02.04.97 |22007 |90,990 | |02.04.97 |22008 |86,940 | |02.04.97 |22009 |84,022 | |02.04.97 |24001 |73,000 | |03.04.97 |21020 |99,268 | |03.04.97 |21021 |95,807 | |03.04.97 |22004 |98,022 | |03.04.97 |22005 |94,922 | |03.04.97 |22006 |93,274 | |03.04.97 |22007 |90,558 | |03.04.97 |22008 |86,610 | |03.04.97 |22009 |83,988 | |03.04.97 |24001 |72,952 | |04.04.97 |21020 |99,308 | |04.04.97 |21021 |95,800 | |04.04.97 |22004 |98,072 | |04.04.97 |22005 |95,226 | |04.04.97 |22006 |93,486 | |04.04.97 |22007 |90,893 | |04.04.97 |22008 |86,444 | |04.04.97 |22009 |84,133 | |04.04.97 |24001 |72,857 | |07.04.97 |21020 |99,642 | |07.04.97 |21021 |95,765 | |07.04.97 |22004 |98,337 | |07.04.97 |22005 |95,438 | |07.04.97 |22006 |93,650 | |07.04.97 |22007 |91,200 | |07.04.97 |22008 |88,400 | |07.04.97 |22009 |84,131 | |07.04.97 |24001 |73,053 | |08.04.97 |21020 |99,790 | |08.04.97 |21021 |96,330 | |08.04.97 |22004 |98,380 | |08.04.97 |22005 |95,533 | |08.04.97 |22006 |93,841 | |08.04.97 |22007 |91,200 | |08.04.97 |22008 |87,490 | |08.04.97 |22009 |84,432 | |08.04.97 |24001 |73,006 | |09.04.97 |21020 |99,862 | |09.04.97 |21021 |96,427 | |09.04.97 |22004 |98,455 | |09.04.97 |22005 |95,674 | |09.04.97 |22006 |93,827 | |09.04.97 |22007 |91,038 | |09.04.97 |22008 |87,525 | |09.04.97 |22009 |85,103 | |09.04.97 |24001 |73,208 | |10.04.97 |21020 |100,00 | |10.04.97 |21022 |91,650 | |11.04.97 |21021 |96,963 | |11.04.97 |21022 |92,066 | |11.04.97 |22004 |98,780 | |11.04.97 |22005 |95,861 | |11.04.97 |22006 |94,384 | |11.04.97 |22007 |91,498 | |11.04.97 |22008 |87,907 | |11.04.97 |22009 |84,907 | |11.04.97 |24001 |73,500 | |14.04.97 |21021 |97,091 | |14.04.97 |21022 |92,221 | |14.04.97 |22004 |99,137 | |14.04.97 |22005 |96,461 | |14.04.97 |22006 |94,535 | |14.04.97 |22007 |91,570 | |14.04.97 |22008 |88,076 | |14.04.97 |22009 |85,445 | |14.04.97 |24001 |73,561 | |15.04.97 |21021 |97,503 | |15.04.97 |21022 |92,419 | |15.04.97 |22004 |99,180 | |15.04.97 |22005 |96,521 | |15.04.97 |22006 |94,953 | |15.04.97 |22007 |91,891 | |15.04.97 |22008 |88,044 | |15.04.97 |22009 |85,768 | |15.04.97 |24001 |73,568 | |16.04.97 |21021 |97,762 | |16.04.97 |21022 |92,643 | |16.04.97 |22004 |99,514 | |16.04.97 |22005 |96,747 | |16.04.97 |22006 |95,016 | |16.04.97 |22007 |92,800 | |16.04.97 |22008 |88,395 | |16.04.97 |22009 |86,464 | |16.04.97 |24001 |73,614 | |17.04.97 |21021 |97,699 | |17.04.97 |21022 |92,528 | |17.04.97 |22004 |99,647 | |17.04.97 |22005 |96,600 | |17.04.97 |22006 |95,063 | |17.04.97 |22007 |92,009 | |17.04.97 |22008 |88,789 | |17.04.97 |22009 |86,860 | |17.04.97 |24001 |73,647 | |21.04.97 |21021 |97,836 | |21.04.97 |21022 |92,444 | |21.04.97 |22004 |99,809 | |21.04.97 |22005 |96,810 | |21.04.97 |22006 |95,262 | |21.04.97 |22007 |92,009 | |21.04.97 |22008 |86,911 | |21.04.97 |22009 |86,487 | |21.04.97 |24001 |73,671 | |22.04.97 |21021 |97,894 | |22.04.97 |21022 |92,642 | |22.04.97 |22004 |99,862 | |22.04.97 |22005 |96,854 | |22.04.97 |22006 |95,350 | |22.04.97 |22007 |92,487 | |22.04.97 |22008 |88,720 | |22.04.97 |22009 |86,314 | |22.04.97 |24001 |73,938 | |23.04.97 |21021 |98,091 | |23.04.97 |21022 |92,955 | |23.04.97 |22004 |99,893 | |23.04.97 |22005 |97,196 | |23.04.97 |22006 |95,347 | |23.04.97 |22007 |92,693 | |23.04.97 |22008 |88,859 | |23.04.97 |22009 |86,535 | |23.04.97 |24001 |74,051 | |24.04.97 |22004 |100,000 | |24.04.97 |22010 |84,320 | |25.04.97 |21021 |98,472 | |25.04.97 |21022 |93,593 | |25.04.97 |22005 |97,478 | |25.04.97 |22006 |95,920 | |25.04.97 |22007 |92,693 | |25.04.97 |22008 |89,248 | |25.04.97 |22009 |87,185 | |25.04.97 |22010 |84,823 | |25.04.97 |24001 |75,000 | |28.04.97 |21021 |98,686 | |28.04.97 |21022 |93,569 | |28.04.97 |22005 |97,687 | |28.04.97 |22006 |96,382 | |28.04.97 |22007 |93,300 | |28.04.97 |22008 |89,248 | |28.04.97 |22009 |88,132 | |28.04.97 |22010 |86,361 | |28.04.97 |24001 |76,105 | |29.04.97 |21021 |98,913 | |29.04.97 |21022 |94,045 | |29.04.97 |22005 |97,880 | |29.04.97 |22006 |96,498 | |29.04.97 |22007 |93,800 | |29.04.97 |22008 |89,248 | |29.04.97 |22009 |88,106 | |29.04.97 |22010 |86,366 | |29.04.97 |24001 |76,318 | |30.04.97 |21021 |99,023 | |30.04.97 |21022 |94,968 | |30.04.97 |22005 |98,284 | |30.04.97 |22006 |96,779 | |30.04.97 |22007 |93,800 | |30.04.97 |22008 |90,700 | |30.04.97 |22009 |89,266 | |30.04.97 |22010 |86,498 | |30.04.97 |24001 |76,811 | |04.05.97 |21021 |99,205 | |04.05.97 |21022 |94,962 | |04.05.97 |22005 |98,202 | |04.05.97 |22006 |96,818 | |04.05.97 |22007 |94,351 | |04.05.97 |22008 |90,750 | |04.05.97 |22009 |88,884 | |04.05.97 |22010 |86,817 | |04.05.97 |24001 |76,987 | |05.05.97 |21021 |99,378 | |05.05.97 |21022 |94,962 | |05.05.97 |22005 |98,500 | |05.05.97 |22006 |96,600 | |05.05.97 |22007 |94,290 | |05.05.97 |22008 |91,176 | |05.05.97 |22009 |88,810 | |05.05.97 |22010 |86,953 | |05.05.97 |24001 |76,983 | |06.05.97 |21021 |99,433 | |06.05.97 |21022 |94,700 | |06.05.97 |22005 |98,331 | |06.05.97 |22006 |96,649 | |06.05.97 |22007 |94,290 | |06.05.97 |22008 |90,865 | |06.05.97 |22009 |89,017 | |06.05.97 |22010 |86,915 | |06.05.97 |24001 |76,880 | |07.05.97 |21021 |97,211 | |07.05.97 |21022 |94,820 | |07.05.97 |22005 |98,369 | |07.05.97 |22006 |96,859 | |07.05.97 |22007 |94,377 | |07.05.97 |22008 |91,100 | |07.05.97 |22009 |89,046 | |07.05.97 |22010 |86,797 | |07.05.97 |24001 |76,980 | |08.05.97 |24002 |73,909 | |12.05.97 |21021 |99,765 | |12.05.97 |21022 |94,939 | |12.05.97 |22005 |98,501 | |12.05.97 |22006 |95,704 | |12.05.97 |22007 |94,377 | |12.05.97 |22008 |91,260 | |12.05.97 |22009 |89,035 | |12.05.97 |22010 |88,008 | |12.05.97 |24001 |77,406 | |12.05.97 |24002 |73,923 | |13.05.97 |21021 |99,850 | |13.05.97 |21022 |95,315 | |13.05.97 |22005 |98,694 | |13.05.97 |22006 |97,399 | |13.05.97 |22007 |94,698 | |13.05.97 |22008 |90,403 | |13.05.97 |22009 |89,313 | |13.05.97 |22010 |87,685 | |13.05.97 |24001 |77,422 | |13.05.97 |24002 |74,508 | |14.05.97 |21021 |99,892 | |14.05.97 |21022 |95,445 | |14.05.97 |22005 |98,872 | |14.05.97 |22006 |97,414 | |14.05.97 |22007 |95,000 | |14.05.97 |22008 |91,750 | |14.05.97 |22009 |89,683 | |14.05.97 |22010 |87,630 | |14.05.97 |24001 |77,601 | |14.05.97 |24002 |74,762 | |15.05.97 |21021 |100,000 | |15.05.97 |22011 |86,347 | |16.05.97 |21022 |96,203 | |16.05.97 |22005 |99,396 | |16.05.97 |22006 |98,034 | |16.05.97 |22007 |95,000 | |16.05.97 |22008 |92,360 | |16.05.97 |22009 |90,972 | |16.05.97 |22010 |88,562 | |16.05.97 |22011 |87,236 | |16.05.97 |24001 |79,057 | |16.05.97 |24002 |75,700 | |19.05.97 |21022 |96,549 | |19.05.97 |22005 |99,577 | |19.05.97 |22006 |98,254 | |19.05.97 |22007 |95,650 | |19.05.97 |22008 |92,754 | |19.05.97 |22009 |91,107 | |19.05.97 |22010 |88,993 | |19.05.97 |22011 |87,497 | |19.05.97 |24001 |79,448 | |19.05.97 |24002 |77,016 | |20.05.97 |21022 |96,686 | |20.05.97 |22005 |99,765 | |20.05.97 |22006 |98,239 | |20.05.97 |22007 |95,852 | |20.05.97 |22008 |93,027 | |20.05.97 |22009 |91,487 | |20.05.97 |22010 |89,323 | |20.05.97 |22011 |87,627 | |20.05.97 |24001 |79,926 | |20.05.97 |24002 |77,002 | |21.05.97 |21022 |96,819 | |21.05.97 |22005 |99,650 | |21.05.97 |22006 |98,492 | |21.05.97 |22007 |95,850 | |21.05.97 |22008 |93,298 | |21.05.97 |22009 |91,846 | |21.05.97 |22010 |89,554 | |21.05.97 |22011 |87,971 | |21.05.97 |24001 |80,371 | |21.05.97 |24002 |77,202 | |22.05.97 |21022 |98,222 | |22.05.97 |22005 |99,804 | |22.05.97 |22006 |98,492 | |22.05.97 |22007 |96,143 | |22.05.97 |22008 |93,672 | |22.05.97 |22009 |92,145 | |22.05.97 |22010 |89,949 | |22.05.97 |22011 |88,536 | |22.05.97 |24001 |81,219 | |22.05.97 |24002 |78,777 | |23.05.97 |21022 |97,250 | |23.05.97 |22005 |99,811 | |23.05.97 |22006 |98,629 | |23.05.97 |22007 |96,232 | |23.05.97 |22008 |92,804 | |23.05.97 |22009 |92,625 | |23.05.97 |22010 |90,014 | |23.05.97 |22011 |88,937 | |23.05.97 |24001 |81,434 | |23.05.97 |24002 |79,200 | |26.05.97 |21022 |96,616 | |26.05.97 |22005 |99,803 | |26.05.97 |22006 |98,649 | |26.05.97 |22007 |96,232 | |26.05.97 |22008 |93,498 | |26.05.97 |22009 |92,338 | |26.05.97 |22010 |89,902 | |26.05.97 |22011 |88,581 | |26.05.97 |24001 |79,606 | |26.05.97 |24002 |79,001 | |27.05.97 |21022 |96,645 | |27.05.97 |22005 |99,890 | |27.05.97 |22006 |98,094 | |27.05.97 |22007 | | |27.05.97 |22008 |93,545 | |27.05.97 |22009 |91,260 | |27.05.97 |22010 |89,563 | |27.05.97 |22011 |88,897 | |27.05.97 |24001 |81,543 | |27.05.97 |24002 |78,102 | |28.05.97 |21022 |96,287 | |28.05.97 |22005 |99,869 | |28.05.97 |22006 |98,338 | |28.05.97 |22007 | | |28.05.97 |22008 |93,475 | |28.05.97 |22009 |91,221 | |28.05.97 |22010 |89,391 | |28.05.97 |22011 |88,233 | |28.05.97 |24001 |81,067 | |28.05.97 |24002 |78,200 | |29.05.97 |22005 |100,000 | |29.05.97 |22012 |87,303 | |30.05.97 |21022 |96,982 | |30.05.97 |22006 |98,667 | |30.05.97 |22007 |95,814 | |30.05.97 |22008 |93,096 | |30.05.97 |22009 |90,537 | |30.05.97 |22010 |89,430 | |30.05.97 |22011 |88,050 | |30.05.97 |22012 |87,858 | |30.05.97 |24001 |80,994 | |30.05.97 |24002 |77,325 | |
|