Приложение 2.
ПАСПОРТ СДЕЛКИ № 1/26334251/000/3974
от .98 г.
Реквизиты Банка:
Наименование – Кузбассоцбанк
Филиал – ……………………………………………………………….
Почтовый адрес – г. Кемерово, пр.Ленина, 7
Реквизиты Экспортера:
Наименование – Фирма«САН»
Код ОКПО – 26332461
Адрес – г. Кемерово, ул. Краснормейская, 21
Номер счета - № 40702840800400001012
Реквизиты иностранного покупателя:
Наименование – Фирма «Urroiw»
Страна - Польша
Адрес – г. Варшава, ул. Победы, 34
Реквизиты и условия контракта:
Номер – 12 Последний платеж – 31.10 .98
Дата – 19.08.98 Валюта платежа – Доллар США
Сумма контракта – 7.200.000 Код валюты платежа - 001
Валюта цены – Доллар США Форма расчетов - 30
Код валюты цены – 001 Поступление выручки - 02
Валютная оговорка - .............................................................................
Лицензия Банка России
Номер - ................... Дата - .........................
Отсрочка - ...................................................
Подписи уполномоченных лиц:
От Банка От Экспортера
Должность: Нач. вал. отд. Должность: Директор
Фамилия И.О. Лукин. В.А. (подпись) Фамилия И.О. Круглов И. Д..(подпись)
........................ ..........................
М.П. Дата: ...... М.П. Дата: ......
Особые отметки Банка:
______________________________________________________________________________________________________________________________________________________________________________________________________
КОПИЯ ВЕРНА: Должность Фамилия И.О. (подпись)
............. ................ ……........
М.П. Дата: ..........
Приложение 3.
Приложение N 2
к Инструкции Центрального банка Российской Федерации от 29 июня 1992 г. N 7
Типовой образец
Фирма «САН» АКБ Кузбассоцбанк
ПОРУЧЕНИЕ N 456/03
ОТ 1998 Г.
НА ОБЯЗАТЕЛЬНУЮ ПРОДАЖУ ВАЛЮТЫ
Из общей суммы выручки 7200000-00 долларов США (семь миллионов двести тысяч долларов США)
----------------------------------------------------------------------------------------------------
просим списать с нашего транзитного счета № 40702840800400001012
----------------------------------------------------------------------------------------------------
с зачислением на текущий 1799100-00 долларов США (один миллион
валютный счет семьсот девяносто девять тысяч сто долларов
№ 4070284090000010037 США)
----------------------------------------------------------------------------------------------------
с перечислением на счет 5397300-00 долларов США (пять миллионов
№ 47405... триста девяносто семь тысяч сто долларов
для обязательной продажи США)
на валютном рынке 22 руб. 77 коп.
(75% экспортной выручки) (по согласованному с Вами курсу)
----------------------------------------------------------------------------------------------------
с перечислением на транзитный 3600-00 долларов США
валютный счет ТПП Новосибирская (девяносто семь тысяч двадцать
№ 40702840900200000089 долларов США)
(оплата таможенных пошлин)
__________________________________________________________________
Платежное требование - поручение для возмещения рублевого эквивалента проданной валюты прилагается.
Руководитель предприятия Подпись
Главный бухгалтер Подпись
М.П.
--------------------------------
Приложение 4 .
Пароль (Ключ)......
Реестр № 5927
учетных карточек (УК) валютного контроля
по отгрузкам товаров на экспорт в период
с «___»________________199__г. по «___»_______________199__г.
Наименование и адрес банка: НФ АКБ Токобанк
г. Новосибирск, ул. Линейная, 7
Контрольный срок возврата реестра (КС)_________________________ 19__ г.
№.5927/001|ПС-1/26334251/000/3974|КС-. .98| В.сч- 40702840800400001012
----------------------------------------------------------------------------------------------------
ЭК – Фирма «САН» | ОКПО - 26332461
----------------------------------------------------------------------------------------------------
К-т №. 17 ¦ Дата - 16.07.98
----------------------------------------------------------------------------------------------------
ГТД - 12100/ 9/000155| Дата В. - . . | Товар - 270111900
----------------------------------------------------------------------------------------------------
Сумма Т | Сумма Б | Разница | Обоснов. | КО | Необоснов.
----------------------------------------------------------------------------------------------------
7200000 | 7200000 | | | |
----------------------------------------------------------------------------------------------------
| Срок | КВ | ФР |Кол.товара| Ед.изм. | Таможня - ......
----------------------------------------------------------------------------------------------------
Инф. Т | 00 | 001| 30 | 15 | шт. | Новосибирская
Инф. Б | 31.10.98 | 001| 30 | Особые отметки: ...................…………………….
----------------------------------------------------------------------------------------------------
М.П. (Подпись) Фамилия И.О.
1
2
UPDATE Messages
SET MsgStatus = GlobalConst.cMsgSourceError
WHERE MessageID = aMessageID;
RETURN GlobalConst.cMsgSourceError;
END;
IF aBankStatus = GlobalConst.cBankNotWork THEN
UPDATE Messages
SET MsgStatus = GlobalConst.cMsgSourceError
WHERE MessageID = aMessageID;
RETURN GlobalConst.cMsgSourceError;
END IF;
BEGIN
SELECT BankStatus INTO aBankStatus FROM BankState
WHERE BankID = aDebitBank;
EXCEPTION
WHEN No_Data_Found THEN
UPDATE Messages
SET MsgStatus = GlobalConst.cMsgDebitError
WHERE MessageID = aMessageID;
RETURN GlobalConst.cMsgDebitError;
END;
IF aBankStatus = GlobalConst.cBankNotWork THEN
UPDATE Messages
SET MsgStatus = GlobalConst.cMsgDebitError
WHERE MessageID = aMessageID;
RETURN GlobalConst.cMsgDebitError;
END IF;
BEGIN
SELECT BankStatus INTO aBankStatus FROM BankState
WHERE BankID = aCreditBank;
EXCEPTION
WHEN No_Data_Found THEN
UPDATE Messages
SET MsgStatus = GlobalConst.cMsgCreditError
WHERE MessageID = aMessageID;
RETURN GlobalConst.cMsgCreditError;
END;
IF aBankStatus = GlobalConst.cBankNotWork THEN
UPDATE Messages
SET MsgStatus = GlobalConst.cMsgCreditError
WHERE MessageID = aMessageID;
RETURN GlobalConst.cMsgCreditError;
END IF;
UPDATE Messages
SET MsgStatus = GlobalConst.cMsgProcessed
WHERE MessageID = aMessageID;
RETURN GlobalConst.cMsgProcessed;
END CheckMessage;
-- Подтверждает платежный документ, вызывается при наличии необходимых
-- документов
PROCEDURE ConfirmMessage(aMessageID IN INT)
IS
aMsgStatus INT;
aTmpID INT;
aAmount INT;
aDebitBank INT;
aCreditBank INT;
BEGIN
SELECT MsgStatus, DebitBankID, CreditBankID
INTO aMsgStatus, aDebitBank, aCreditBank
FROM Messages
WHERE MessageID = aMessageID;
IF aMessageID = GlobalConst.cMsgProcessed THEN
UPDATE Messages
SET MsgStatus = GlobalConst.cMsgAccepted
WHERE MessageID = aMessageID;
SELECT Amount INTO aAmount FROM Messages
WHERE MessageID = aMessageID;
BEGIN
SELECT BankID INTO aTmpID FROM TmpRes
WHERE BankID = aDebitBank;
EXCEPTION
WHEN No_Data_Found THEN
INSERT INTO TmpRes (BankID, DebitPos, CreditPos)
VALUES (aDebitBank, 0, 0);
END;
UPDATE TmpRes
SET DebitPos = DebitPos + aAmount
WHERE BankID = aDebitBank;
BEGIN
SELECT BankID INTO aTmpID FROM TmpRes
WHERE BankID = aCreditBank;
EXCEPTION
WHEN No_Data_Found THEN
INSERT INTO TmpRes (BankID, DebitPos, CreditPos)
VALUES (aCreditBank, 0, 0);
END;
UPDATE TmpRes
SET CreditPos = CreditPos - aAmount
WHERE BankID = aCreditBank;
END IF;
END ConfirmMessage;
END ServerUtils;
/
SHOW ERROR;
---------------------------------------------------------
-- Таблица и последовательность для ведения статистики
---------------------------------------------------------
PROMPT Create table Statistics...
PROMPT Creating sequence Stat_Seq...
CREATE SEQUENCE Stat_Seq
INCREMENT BY 1
START WITH 1
MAXVALUE 99999999
MINVALUE 1
NOCACHE
CYCLE;
CREATE TABLE Statistics
(
ItemNo NUMBER(8) -- Номер элемента выборки
CONSTRAINT itemno_pk PRIMARY KEY,
WorkDay DATE, -- Дата и время платежа
BankID NUMBER(8) -- Номер банка
DebitPos INT, -- Дебетовая позиция
CreditPos INT -- Кредитовая позиция
);
-----------------------------------------------
-- Заполнение таблицы классификаторов
-----------------------------------------------
PROMPT Inserting data into table Status ...
BEGIN
DELETE FROM Status WHERE StatusClass = 1;
INSERT INTO Status VALUES (1, GlobalConst.cStatusClass,
'Статус банка в текущем сеансе');
INSERT INTO Status VALUES (1, GlobalConst.cBankWork,
'Банк участвует в текущем сеансе');
INSERT INTO Status VALUES (1, GlobalConst.cBankStopWork,
'Банк закончил текущий сенс');
INSERT INTO Status VALUES (1, GlobalConst.cBankNotWork,
'Банк не участвует в текущем сенсе');
COMMIT;
DELETE FROM Status WHERE StatusClass = 2;
INSERT INTO Status VALUES (2, GlobalConst.cStatusClass,
'Статус сообщения о платеже');
INSERT INTO Status VALUES (2, GlobalConst.cMsgNotProcessed,
'Сообщение не обработано');
INSERT INTO Status VALUES (2, GlobalConst.cMsgSourceError,
'Банк-источник не работает');
INSERT INTO Status VALUES (2, GlobalConst.cMsgDebitError,
'Банк по дебету счета не работает');
INSERT INTO Status VALUES (2, GlobalConst.cMsgCreditError,
'Банк по кредиту счета не работает');
INSERT INTO Status VALUES (2, GlobalConst.cMsgProcessed,
'Сообщение обработано и требует документального подтверждения');
INSERT INTO Status VALUES (2, GlobalConst.cMsgAccepted,
'Сообщение обработано и принято в систему взаимозачета');
COMMIT;
END;
/
-----------------------------------------------
-- Таблица классификаторов
-----------------------------------------------
PROMPT Create table Status ...
CREATE TABLE Status
(
StatusClass NUMBER(3),
StatusNo NUMBER(3),
StatusText VARCHAR2(70) NOT NULL,
CONSTRAINT status_pk PRIMARY KEY (StatusClass, StatusNo)
);
-------------------------------------------------------
-- Таблица текущих результатов клирингового сеанса
-------------------------------------------------------
PROMPT Creating table TmpRes...
CREATE TABLE TmpRes
(
BankID NUMBER(8)
CONSTRAINT tmpresbankid_fk REFERENCES Banks ON DELETE CASCADE,
DebitPos INT,
CreditPos INT
);
---------------------------------------------------
-- Удаление объектов системы
---------------------------------------------------
PROMPT Deleting databases...
SET ECHO ON;
DROP SEQUENCE Stat_Seq;
DROP TABLE Statistics;
DROP TABLE BankState;
DROP TABLE Status;
DROP SEQUENCE Msg_Seq;
DROP TABLE Messages;
DROP TABLE Results;
DROP TABLE TmpRes;
DROP SEQUENCE BankID_Seq;
DROP TABLE Banks;
PROMPT Deleting packages...
DROP PACKAGE BODY ServerUtils;
DROP PACKAGE ServerUtils;
DROP PACKAGE BODY ClientUtils;
DROP PACKAGE ClientUtils;
DROP PACKAGE BODY CommonUtils;
DROP PACKAGE CommonUtils;
SET ECHO OFF;
----------------------------------------------------------------
1
1
