•

2.2. ПОРЯДОК ОСУЩЕСТВЛЕНИЯ МЕЖДУНАРОДНЫХ РАСЧЕТОВ.

Для осуществления международных расчетов "Ошхамахо" установил кор­респондентские отношения с Инкомбанком. Он открыл в последнем рублевый и валютный счета. При наличии двух корсчетов в одном уполномоченном банке уп­рощается конвертация рублей в твердую валюту, и, наоборот, появляется возмож­ность игры на разнице валютных курсов в различных регионах СНГ."Ошхамахо" осуществлял международные расчеты по экспортно- импортным операциям. Расче­ты осуществлялись в форме банковского перевода и все через корсчет, открытый в Инкомбанке. Проведение операций в такой форме характеризуется простотой оформления, небольшой стоимостью и высокой скоростью получения платежа, но и повышенной рискованностью для продавца. Поэтому, чтобы сделать их более надежными, следует использовать различные формы гарантий.

11

2.3. автоматизация учета купли-продажи валюты.

В СУБД Fox Pro была реализована задача автоматизации учета купли- про­дажи валюты. Все данные по купле и продаже валюты собираются и хранятся в информационной базе данных "Valuta.dbf". Обслуживание, расчет и заполнение базы данных выполняют различные подпрограммы. Входной оперативной информацией является:

- курс покупки валюты;

- курс продажи валюты;

- количество проданной за день валюты;

- количество вырученной за день валюты.

Состав выходной информации.

В результате решения задачи формируются следующие выходные данные:

- дата;

- курс покупки валюты;

- курс продажи валюты;

- количество вырученной за день валюты.

- остаток на начало дня;

- остаток на конец дня;

- затраты на покупку в рублях;

- поступления от продажи в рублях;

- выручка.

Из них расчетными являются:

- остаток на начало дня;

- остаток на конец дня;

- затраты на покупку в рублях;

- выручка.

Расчетные данные имеют числовой тип.

Структура программного файла

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

производящей расчет данных Текст программы:

procedure bank

set talk off

set bell off

set date to german

set hour to 24

set clock on

set deleted on

col_ek='w/b,b/w,w/w,b/w1

col_wn='w/b,b/w,w+/n,b/w'

store ' ' to pnaim, padr, ps,-h

store ctod ( ' . . ' ) to t>dr, pdz

store ctod (f 31 .12.99' ) to pdrl,pdzl

store 0 to psl

psll=1000000000000

do keys

select а

use client index cnaim

select b

ч

use kurs index kd clear

define window wO from 21,0 to 24,79 COLOR (col_wn) double activate window wO

@ 0,1 say ' <:Е1>-Реклама <±2>-Ввод <f3>-Коррект. <f4>-Поиск <f5>-OT6op'

@ 1,1 say ' <f6>-()тделы <f7>-Календ. <f6>-Удален. <f9>-Калькул.' Езс-Выход' @ 0,1 FILL TO 1,79 COLOR (;-;ol_ek)

define window wl from 0,0 i.o 19,79 COLOR (coi_ekj activate window wl select a

browse fields naim:I 5:h='H .именование клиен­та ',adr:h='Адрес',tel:h='Телефон’, ;

ns :h=’Номер счета ' , clr : h='Ддта открытия счета ' , si : h=‘Сумма на­чального взноса’,;

ps:h='Показатель счета',dz:h=’Дата закрытия счета'; partition 10 lock 1 redit nomodify Ipartitior. freeze naim;

13

title ' Список клиентов банка'

release window wl,wO

pack

clear

clear all

close databases

return

*

procedure keys

on key label Fl run d;\temp\kursov\pcxshow

d:\temp\kursov\cat.pcx /Q

on key label F2 do vvod

on key label F3 do correct

on key label F4 do poisk

on key label F5 do otbor

on key label F6 do otdel

on key label F7 run d:\temp\kursov\calen91

on key label F8 do udalen

on key label F9 run d:\temp\kursov\calc91

return

*

procedure relkeys

on key label F2 do nole

on key label F3 do nole

on key label F4 do nole

on key label F5 do nole

on key label F6 do nole

on key label F8 do nole

return

*

procedure nole

return

*

procedure vvod

do relkeys

m.sl=0

store ' ' to rn . nairn, m. adr, :u. tel,m.ns,m.pp

m.dr=date()

m.ps=.t.

14

m.dz=ctod(‘ . . ‘)

define window w5 from 4,5 <;o 14,75 COLOR (col_wn) double;

title 'Ввод нового клиента'

activate window w5

@ 1,2 say 'Наименование клиента' get m.naim size 1,30

@ 2,2 say 'Юридический адрес' get m.adr size 1,40

@ 3,2 say 'Телефон клиента' get m.tel size 1,14

@ 4,2 say 'Номер счета1 get m.ns size 1,9

@ 5,2 say 'Сумма первоначального взноса’ get m.s1 size 1,15

@ 6,2 say 'Дополнительные введения' get m.pp size 2,40

read cycle

release window w5

select a

append blank

replace naim with m.naim,a.ir with m.adr,tel with m.tel,ns with

m.ns,;

dr with m.dr,sl with m.sl,ps with m.ps,dz with m.dz,pp with m.pp

do keys

return *

procedure correct

do relkeys

select a

m.naim=naim

m.adr=adr

m,tel=tel

m.ns=ns

m.dr=dr

m,sl=sl

m.ps=ps

m.dz=dz

m.pp=pp

define window w5 from 3,5 to 16,75 COLOR (со. wn; double;

title 'Корректировка данных клиента'

activate window w5

@ 1,2 say 'Наименование клиента' get m.naim size 1,30

@ 2,2 say 'Юридический адрес' get m.adr size 1,40

@ 3,2 say ' Телефон клиента' get m.tel size 1, 1.4

@ 4,2 say 'Номер счета' ge- m.ns size 1,9

15

@ 5,2 say 'Дата открытия счета' get m.dr size

@ 6,2 say ' Сумма первоначального взноса1 get ' .::: size 1,15

@ 1,2 say 'Показатель счета' get m.ps size 1, :

@ 8,2 say 'Дата закрытия счета' get m.dz size 1,8

@ 9, 2 say 'Дополнительные сведения' get m.pp size 2,40

read cycle

release window w5

replace naim with ma.naim, adr with m.adr,tel with m.tel,ns with

m,ns,;

dr with m.dr,sl with m.sl/ps with m.ps,dz with m.dz,pp with m.pp

do keys

return

*

procedure poisk

do relkeys

define window w3 from 5,20 to 11,60 COLOR (cc:._ek);

title 'Поиск по фрагменту кредитования'

activate window w3

f=’ ’

@ 1,3 say 'Введите наименование клиента'

@ 3,5 get f size 1,30

read

go top

locate for alltrim(f)$alltrim(naim)

if .not.found()

clear

@ 2,5 say alltrim(f)+'не найдена’

key=inkey(0) endif

release window w3 do keys

return

*

procedure otbor

do relkeys

store ' ' to pnaim,padr

psch='И1

store ctod(1 . . ' ) to pdr, pdz, pdr2,pdz2

store ctod('31.12.99') to pdrl,pdzl

16

store 0 to psl,ps2

ps 11 = 1000000000000000

define window w6 from 3,5 r.o 15,75 COLOR (col wn) double;

title 'Вывод полного списка клиентов при пустых параметрах отбора1

activate window w6

@ 1,2 say 'Наименование клиента' get pnaim size 1,30

@ 2,2 say 'Юридический адрес' get padr size 1,40

@ 3,2 say 'Показатель счета (Откр. /Закр. /Игнор.)' get psch size