else if R <= 1999 then begin

StrNumS:='o mie ' + StrNumS(R mod 1000,f);

end

else if R <= 2999 then begin

StrNumS:='doua mii ' + StrNumS(R mod 1000,f);

end

else if R <= 99999 then begin

L:=R div 1000;

N:=L mod 10;

s:='mii ';

if N = 1 then s:='mie ';

StrNumS:=StrNumS(L,female) + s +

StrNumS(R mod 1000,f);

end

else if R <= 999999 then begin

L:=R div 1000;

N:=L mod 10;

s:='de mii ';

StrNumS:=StrNumS(L,female) + s +

StrNumS(R mod 1000,f);

end

else if R <= 1999999

then begin

StrNumS:= 'un milion ' +

StrNumS(R mod 1000000,f);

end

else if R <= 2999999

then begin

StrNumS:= 'doua milioane ' +

StrNumS(R mod 1000000,f);

end

else if R <= 999999999

then begin

L:=R div 1000000;

N:=L mod 10;

s:='milioane ';

StrNumS:=StrNumS(L,male) + s +

StrNumS(R mod 1000000,f);

end

else if R <= 1999999999

then StrNumS:='un miliard ' +

StrNumS(R mod 1000000000,f)

else StrNumS:='****** N > 1,999,999,999 ******';

end;

procedure P(s :pChar); export;

var i,n :longint; c :integer;

q,t :string;

begin

q:=StrPas(s);

t:='';

for i:=1 to length(q)

do if q[i] <> ','

then t:=t+q[i];

Val(t,n,c);

if c <> 0

then q:='ERROR'

else q:=StrNumS(n, male);

q[1]:=upcase(q[1]);

StrPcopy(s, q);

end;

const M :array [1..12] of string[20] =

('ianuarie ','februarie ','martie ','aprelie ','mai ','iunie ','iulie ',

'august ','septembrie ','oktombrie ','noembrie ','decembrie ');

procedure Q(s :pChar); export;

var q :string; n,c :integer;

begin

q:=StrPas(s);

Val(q,n,c);

if c <> 0

then q:='ERROR 1'

else if (n < 0) or (n > 12)

then q:='ERROR 2'

else q:=M[n];

StrPcopy(s,q);

end;

exports P index 1;

exports Q index 2;

begin

end.

После компоновки библиотеки moldova.dll и размещения его в директории файлов данных бухгалтерии, можно вызывать содержащиеся в нем процедуры из файлов-форм. Приводимые процедуры можно использовать при подготовке первичных документов на молдавском языке вместо встроенных в "Финансы без проблем" "русскоязычных" функций [wn ] и [dt ]. Мы, однако, делать этого не будем и проверим работоспособность функции [DLLcall ], вызвав ее прямо из калькулятора:

Так по молдавски пишется 2458051. А вот так пишется слово 'сентябрь':

"Финансы без проблем" для Windows

Начиная с февраля 1995 года пользователям поставляется версия программы "Финансы без проблем" для Windows. Она полностью совместима с версией 4000 для DOS. Здесь нет никаких отличий ни в концепции, ни в структуре файлов, ни в базовом наборе функций языка форм. Все рассмотренные до сих пор в книге примеры одинаково пригодны как для DOS, так и для Windows версий. Именно поэтому акцент делался на использовании DOS версии программы, как существенно более распространенной.

В то же время, в версии для Windows поддерживаются основные дополнительные возможности, предоставляемые этой операционной системой. Основные отличия состоят в наличии многооконного интерфейса, а также возможности организовать фоновые вычисления и взаимодействие с другими Windows-приложениями на основе динамического обмена данными (DDE).

Прежде, чем перейти к рассмотрению этих новых возможностей, разберем процесс инсталляции Windows-версии программы.

Windows-версия "Финансов без проблем" предъявляет более жесткие требования к аппаратному обеспечению, чем версия 4000 для DOS. В качестве минимальных требований к аппаратуре разработчиками указывается наличие процессора 286 с обязательным сопроцессором 287, 2Мб памяти и видеоадаптера VGA. При написании книги использовался компьютер 386DX без сопроцессора с 4Мб памяти и монитором 14". В данной конфигурации DOS версия работает превосходно, а версия для Windows приемлемо. И если расчеты производятся достаточно быстро, то про скорость обновления экрана этого сказать нельзя. Впрочем, любые Windows-приложения при такой конфигурации работают неторопливо. Существенно приятнее работать с программой при наличии процессора 486DX. При использовании программы в многооконном режиме особенно важно наличие "большого" монитора. Здесь хорошим вариантом является монитор 17" при разрешении 1024х768. В этом случае окна действительно являются окнами с хорошей обозреваемостью и возможности программы можно ощутить в полной мере.

Установка программы очень проста. После запуска Windows необходимо стартовать с дискеты файл FINSETUP.EXE. На экране появляется "полосатый" фон и окно "Тест системного шрифта" установщика программы. Для работы необходимо иметь, как минимум, два кириллических шрифта: системный шрифт (System font) и системный шрифт с одинаковой шириной всех букв (System fixed font). Для проверки наличия этих шрифтов в окне выводится тест по которому можно визуально определить их подключение к Windows.

Если какой-либо шрифт отсутствует, то необходимо нажать кнопку "Нет, нужна кириллица". В результате этого в каталог Windows будут добавлены шрифты FINWSYS.FON и FINWFIX.FON, а в файл SYSTEM.INI внесены необходимые изменения. При этом, предыдущая копия SYSTEM.INI будет сохранена в файле SYSTEM.OLD. После этого будет произведен рестарт Windows и повторная загрузка теста. После подключения шрифтов с кириллицей для продолжения процесса инсталляции нажмите клавишу "Да, строки в рамках видны нормально".

На экране появится основное окно установщика программы. Проведя мышью по пунктам диалога этого окна, ознакомьтесь с соответствующими им "баллонами" помощи и установите нужные значения. Далее, следуя указаниям установщика введите полученный от "Хакерс Дизайн" ключ привязки программы, аналогично установке DOS-версии.

При установке программы можно подключить к ней свою базу данных. Для этого надо поставить "крест" около фразы "Подключить свою базу данных", указать путь к директории ее размещения и наименование.

В процессе установки на жесткий диск будут переписаны файлы оболочки программы (FINW.EXE, FINW.HLP), файл ключа привязки (FINW.COD), а также файлы установщика (FINWDDE.EXE), DDE-сервера (FINWDDE.EXE) и файл с информацией о программе (FINW.TXT).

При установке будут созданы (если отсутствовали) каталоги C:\FINW\EXAMPLE, C:\FINW\EXCHANGE, C:\FINW\FILM, C:\FINW\UTILS. В каталог C:\FINW\EXAMPLE будут скопированы файлы, состав которых полностью аналогичен тому, что применительно к DOS-версии мы называли комплектом (вариантом) стандартной поставки. Единственным исключением здесь являются файлы в формате Excel (DIRECTOR.XLS) и Lotus-123 (YEAR.WK4), содержащие примеры организации динамического обмена данными "Финансов без проблем" с другими Windows-приложениями. Содержимое каталогов C:\FINW\EXCHANGE и C:\FINW\FILM полностью идентично тому, что при установке DOS-версии мы скопировали в директории \FBP\STANDART\EXCHANGE и \FBP\STANDART\ROLIK. Здесь находятся примеры правил использования программы в обменном пункте валюты и демонстрационные ролики, посвященные некоторым вопросам использования программы, соответственно. В директорию C:\FINW\UTILS при инсталляции копируются утилита SUF.EXE, предназначенная для слияния информации нескольких рабочих мест и консолидации балансов нескольких предприятий, а также файлы преобразователей формата данных первой, второй и третьей версий в четвертую. Помимо этого, сюда будут переписаны программные файлы RTM.EXE, DPMI16BI.OVL, DPMINST.EXE, обеспечивающие работу утилиты SUF в защищенном режиме процессора.

В ходе инсталляции создается группа "Финансы без проблем". В ней будут присутствовать иконки "Help", "ReadMe", "Fin Setup", "DDE-server", "Example", "Exchange", "Film", назначение которых соответствует информации, размещенной в указанных директориях. Помимо этого, если в основном окне установщика Вы потребовали подключения своей базы данных, то в группе "Финансы без проблем" будет присутствовать пиктограмма с ее названием.

Также, как и при использовании DOS-версии имеется возможность обслуживания с помощью одной копии программы нескольких бухгалтерий. Если соответствующие им директории с файлами данных и форм уже существуют, достаточно повторно вызвать установщик уже не с дискеты, а из окна группы "Финансы без проблем". Теперь в его главном окне будет доступна только возможность подключения новой базы данных. Действуя аналогично основному процессу инсталляции, укажите путь и название базы данных и установщик разместит ее пиктограмму в окне группы. Количество подключаемых таким образом баз данных ничем не ограничено.

Рассмотрим теперь основные отличия использования Windows-версии программы.

Как уже говорилось, основным отличием является возможность размещения на экране нескольких окон программы одновременно и организации фоновых вычислений. Так, например, можно одновременно открыть на экране окна операций и оборотного баланса.

Запустите "Финансы без проблем" и максимизируйте окно программы. Откройте окно реестра операций, а потом окно оборотного баланса. Обратите внимание, что в меню появились новые пункты Window и Edit. В меню Window выберите пункт "Tile по вертикали". Теперь видны одновременно оба окна.

Теперь попробуйте вводить операции. После завершения ввода операции окно "Обороты счетов" на какое-то мгновение окажется перечеркнутым. А потом в нем изменятся строки, соответствующие счетам, сальдо и обороты которых изменились. Таким образом, если окно "Обороты счетов" открыто, то при вводе новых операций или редактировании существующих, осуществляются фоновые вычисления, обновляющие сальдо и обороты счетов. При этом можно спокойно продолжать работу - вычисления каждый раз будут "отбрасываться" назад, но процессорное время будет использоваться эффективно: в тот момент, пока Вы ищете на клавиатуре нужную клавишу, программа трудится на Ваше благо. Когда в ее распоряжении окажется достаточно времени, чтобы завершить вычисления, перечеркивания с окна "Обороты" счетов изчезнут и его содержимое будет обновлено.

В Windows-версии несколько иначе реализованы функции синтаксического контроля правил. Так, при удалении или изменении ветви дерева, зарегистрированные на ее основе операции уже не "мигают", но в них зачеркнутыми оказываются фразы, соответствующие отсутствующим ветвям:

Коды счетов и субсчетов, отсутствующих в плане счетов, в дереве операций также оказываются зачеркнутыми:

Также, как и при выполнении фоновых вычислений, при наличии неверных данных окно оборотного баланса перечеркивается.

По сравнению с DOS-версией упростился процесс поиска ошибок. При их наличии в нижней строке окна программы всегда присутствует кнопка с надписью "Где ошибка?" и рядом с ней пояснение о типе ошибки. Достаточно щелкнуть мышью по этой кнопке или нажать Alt/E и "Финансы без проблем" прямиком отправят Вас к месту ее возникновения. Иногда, повторные нажатия клавиши "Где ошибка ?" активируют еще одно окно, чтобы дать дополнительную информацию. Например, в какой-либо операции возникло деление на ноль. Тогда первое нажатие на кнопку выведет Вас на соответствующий лист дерева операций, а повторное укажет на операцию, в которой эта ситуация возникла.

После исправления всех ошибок кнопка исчезает. Теперь оборотный баланс может быть построен и перечеркивание с окна "Обороты счетов" снимается.

Программа имеет особенности при работе с принтерами. Считается, что Windows сама должна выполнять всю работу по печати. Однако, часто оказывается, что из-за беспорядка с наборами шрифтов и опциями драйверов возникают серьезные проблемы. "Финансы без проблем" решают эту проблему радикально. Здесь, детали изображения предназначенного для вывода на принтер подготавливаются в памяти компьютера в виде графического образа и, далее, преобразуются для конкретного принтера с подходящим для него коэфициентом поточечного расширения. Такой метод позволяет печатать русский текст на любых принтерах, способных выводить графику, имея только системные шрифты экрана с кириллицей. При этом получается удовлетворительное качество печати, в том числе на цветных принтерах.

Страницы: 1, 2, 3, 4, 5, 6, 7