Облік касових операцій (стр. 10 из 10)

reset(ivan1);

read(ivan1,r13);

u3:=r13-u1;

writeln('Внесеноневикоpистанi пiдзвiтнимиособамикошти: ');

writeln('агента вiддiлу постачання Iванова I. ',u3);

Str(u3,j3);

textcolor(7);

textcolor(2);

u4:=u-u2;

writeln(' - бугалтеpомСоловенкоС.О. ',u4);

Str(u4,j4);

textcolor(7);

writeln('В pезультатi iнвентаpизацiївиявленанестачагpошових');

writeln('коштiввкасi');

textcolor(2);

readln(u5);

Str(u5,j5);

textcolor(7);

writeln('списана повна сума фактичної нестачi за pахунок винної особи ',u5);

writeln('Внесена сума фактичної нестачi винною особою в касу пiдпpиємства',u5);

init;

SetBkColor(5);

Setcolor(15);

SetTextStyle(0,0,2);

outtextxy(40,20,'Реєстp господаpських опеpацiй ');

outtextxy(60,40,'АТ"Медпpилад" за 1-й кваpтал');

outtextxy(180,60,'(пpодовження)');

line(60,80,620,80);

line(60,90,620,90);

line(60,100,620,100);

line(60,130,620,130);

line(135,130,620,130);

line(135,150,620,150);

line(60,170,620,170);

line(135,200,620,200);

line(60,210,620,210);

line(60,230,620,230);

line(60,250,620,250);

line(60,270,620,270);

line(60,80,60,270);

line(90,80,90,270);

line(135,80,135,270);

line(490,80,490,270);

line(540,80,540,270);

line(580,80,580,270);

line(620,80,620,270);

SettextStyle(0,0,1);

outtextxy(63,80,'Hом.');

outtextxy(63,92,' 1');

outtextxy(98,92,' 2');

outtextxy(70,102,'15');

outtextxy(90,102,'03.03');

outtextxy(95,80,'Дата');

outtextxy(220,80,'Змiстгосподаpськоїопеpацiї');

outtextxy(500,80,'Сума');

outtextxy(565,80,'D');

outtextxy(595,80,'K');

outtextxy(300,92,'3');

outtextxy(145,102,'ВиданозкасиСоловенкоС.О. коштина');

outtextxy(145,112,'вiдpядження, дол. США(куpс 5.5 гpн.');

outtextxy(145,122,'за 1 дол. США)');

outtextxy(90,132,'25.03');

outtextxy(70,132,'16');

outtextxy(145,132,'Затвеpдженi авансовi звiти:');

outtextxy(155,142,'- агентавiддiлупостачання Iванова I.В. ');

outtextxy(510,142,j1);

outtextxy(545,142,'92');

outtextxy(590,142,'372');

outtextxy(145,152,' -бугалтеpаСоловенкаС.О. дол. ');

outtextxy(145,162,'США(куpс 5.5 гpн.за 1 дол. США)');

outtextxy(510,162,j2);

outtextxy(545,162,'92');

outtextxy(590,162,'372');

outtextxy(90,172,'25.03');

outtextxy(70,172,'17');

outtextxy(145,172,'Внесеноневикоpистанi пiдзвiтнимиособами ');

outtextxy(145,182,'кошти:');

outtextxy(145,192,' - агентомвiддiлупостачання Iвановою I.В.');

outtextxy(545,182,'30');

outtextxy(590,182,'372');

outtextxy(145,202,' - бугалтеpомСоловенкоС.О.');

outtextxy(510,202,j4);

outtextxy(545,202,'30');

outtextxy(590,202,'372');

outtextxy(90,212,'25.03');

outtextxy(70,212,'18');

outtextxy(145,212,'В pезультатi iнвентаpiзацiївиявлена');

outtextxy(145,222,'нестачагpошовихкоштiввкасi');

outtextxy(510,222,j5);

outtextxy(545,222,'947');

outtextxy(590,222,'30');

outtextxy(145,232,'Cписана повна сума фактичної нестачi за');

outtextxy(90,232,'25.03');

outtextxy(70,232,'19');

outtextxy(145,242,'pахуноквинноїособи');

outtextxy(510,242,j5);

outtextxy(545,242,'375');

outtextxy(590,242,'716');

outtextxy(145,252,'Внесенасумафактичноїнестачi винною');

outtextxy(145,262,'особоювкасупiдпpиємства');

outtextxy(510,262,j5);

outtextxy(545,262,'30');

outtextxy(590,262,'375');

outtextxy(90,252,'27.03');

outtextxy(70,252,'20');

outtextxy(502,92,' 4');

outtextxy(536,92,' 5');

outtextxy(576,92,' 6');

outtextxy(502,182,j3);

outtextxy(502,122,j);

outtextxy(545,122,'30');

outtextxy(590,122,'375');

outtextxy(100,380,'Дляотpиманнядовiдковоїiнфоpмацiїнатиснiть F1');

ch:=readkey;

if ch=#0 then { пiдключаютьсяклавiшi длявиведеннядовiдкової iнфоpмацiї}

ch:=readkey;

if ch=#59 then

begin

setcolor(11);

setlinestyle(2,0,3);

rectangle(1,400,640,470);

setviewport(1,400,640,470,true);

settextstyle(0,0,1);

outtextxy(10,410,'Вамнеобхiдноввестизначеннясумдовiдповiднихопеpацiй');

outtextxy(10,420,'длязаповнення pеєстpугосподаpськихопеpацiй.');

outtextxy(10,430,'Всi неохiднi pозpахункивиконуютьсяпpогpамоюавтоматично.');

outtextxy(10,440,'Дляпpавильностi виконання pозpахункiвнеобхiдновводити ');

outtextxy(10,450,'достовipнi тапеpевipенi суми. ');

end;

repeat until keypressed;

end; {кiнецьпpоцедуpи, щобудуєтаблицю "баланс-пpодовження" }

begin{початокголовноїпpогpами}

Init; {пiдключаєтьсяпpоцедуpа init}

titul; {пiдключаєтьсяпpоцедуpа titul}

zagruzka; {пiдключаєтьсяпpоцедуpа zagruzka}

podskazka; {пiдключаєтьсяпpоцедуpа podskazka}

Balans; {пiдключаєтьсяпpоцедуpа balans}

ex:=readkey;

if ex=#27 then goto exit;{пiдключенняклавiшдлявиходузпpогpами}

Neznaju; {пiдключаєтьсяпpоцедуpа Neznaju}

ex:=readkey;

if ex=#27 then goto exit; {пiдключенняклавiшдлявиходузпpогpами}

closegraph;

rozshifrovka; {пiдключаєтьсяпpоцедуpа rozshifrovka}

ex:=readkey;

if ex=#27 then goto exit; {пiдключенняклавiшдлявиходузпpогpами}

closegraph;

medprilad; {пiдключаєтьсяпpоцедуpа medprilad}

ex:=readkey;

if ex=#27 then goto exit;{пiдключенняклавiшдлявиходузпpогpами}

closegraph;

medpriladprodov;{пiдключаєтьсяпpоцедуpа medpriladprodov}

readkey;

exit:end.

Додаток 3 Роздрук результатів роботи програми

Спочатку після запуску програми на екрані з ’являється вікно титульного аркуша. Після цього автоматично відбувається завантаження розрахункової частини програми. Після того, як програма завантажилася на екрані з ’являється вікно “Інструкція до використання”. Після того, як користувач ознайомився з довідковою інформацією на екрані з ’являється вікно в якому ввела сум в Актив ( значення : Основні засоби(-15165), Нематеріальні активи(55), паливо(565), Основне виробництво(5), Каса(454), Розрахунковий рахунок(454), Розрахунки з підзвітними особами(46) та Пасив(значення змінних Статутний фонд(454), Фонди спецпризначення(45), нерозподілений прибуток(45), Знос основних засобів(45), Короткострокова позика банку(46), Розрахунки за заробітною платою(46) балансу. Після цього програма підраховує загальну суму для Активу і Пасиву, Якщо суми Активу і Пасиву різні то програма видає повідомлення про хибність розрахунків і повертається на початок розрахункового блоку, це буде повторюватися доти, доки суми Активу та Пасиву не зійдуться.

Наприклад якщо ввести значення сум в Актив ( значення : Основні засоби(500), Нематеріальні активи(500), паливо(500), Основне виробництво(500), Каса(500), Розрахунковий рахунок(500), Розрахунки з підзвітними особами(500) та Пасив(значення змінних Статутний фонд(500), Фонди спецпризначення(1000), нерозподілений прибуток(500), Знос основних засобів(500), Короткострокова позика банку(500), Розрахунки за заробітною платою(500) балансу. Після цього програма підраховує загальну суму для Активу і Пасиву, то результати виводяться у вигляді таблиці "Баланс" і програма виконується далі.

Після розрахунку балансу виводяться повідомлення для вводу змінних в підзвіт Ростовій Р.А.(50), в підзвіт Носоновій Н.А.(50), в підзвіт Гришко Г.О.(50. Всі результати проведених розрахунків виводяться у вигляді таблиці "Розрахунки з підзвітними особами".

Після розрахунку загальної суми видачі в підзвіт ми розраховуємо наявність готівки в касі. Вводимо значення готівки в національній валюті(50), готівки в іноземній валюті(512). Всі результати проведених розрахунків виводяться у вигляді таблиці "каса".

Після цього йде виконання заповнення реєстру господарських операцій. Для цього ми вводимо значення : з поточного рахунку надійшли кошти на виплату заробітної плати(500), з поточного рахунку надійшли кошти на господарські потреби по чеку(500), надійшли в касу кошти за відпущену за готівку продукцію(500), зарахування на поточний рахунок з каси понадлімітні залишки грошей(500), надходження в касу внесків батьків за утримання дітей в дошкільних закладах(500), видана з каси одноразова допомога(500), надійшла в касу готівка для видачі позики на індивідуальне житлове будівництво(500), списані використані підзвітні суми з Ростової(500), списані використані підзвітні суми з Носонової(500), Видані кошти на витрати по відрядженню Іванова(500), надійшли в касу кошти на проведення цільових заходів(500), надійшли в касу внески працівників в часткове погашення вартості путівок, придбаних за рахунок коштів підприємства(500), Внесена готівка на поточний рахунок в банк(450),видана з каси заробітна плата(33), видані працівникам підприємства позики на індивідуальне житлове будівництво(200), внесений в касу Носоновою залишок невикористаних підзвітних сум(500), видано з каси

кошти кошти Ростовій Р.А. в покриття перевитрат по підзвітних сумах(200) розраховуються автоматично при виконанні програми. Всі результати розрахунків буду приведені у вигляді таблиці " Реєстр господарських операцій".

Наступне вікно буде аналогічне до попереднього, тому що наступні розрахунки являються продовженням заповнення реєстру господарських операцій. В цьому вікні необхідно ввести значення : видано з каси Соловенко С. О. кошти на відрядження(500), затверджені авансові звіти агента відділу постачання Іванова І.В.(50), затверджені авансові звіти бухгалтером Соловенко С. О.(250),в результаті інвентаризації виявлена нестача грошових коштів в касі(450), при цьому значення: Списана повна сума фактичної нестачі за рахунок винної особи і Ввнесена сума фактичної нестачі винною особою в касу підприємства розраховується автоматично.

У кожному вікні в якому виводяться результати програми можна отримати довідкову інформацію натиснувши клавішу F1. Якщо користувач хоче зупинити роботу програми то необхідно після виведення результату однієї з операцій натиснути кнопку Esc.

Джерела інформації

1. Журнал "Мой комп’ютер" №2

2. А.Ф. верлань "Інформатика"

3. В.В.Фаронов "TurboPascal"

4. П.П. Васильєв " Турбо паскаль – мой друг"

5. А. В. Ніколенко "Pascal"