ALpMontana
КЯaL´da TaNıMaM КuяaL´da
işte Çok Revaşta ßir program
... kayit=Record stok_turu : string[10] ; stok_kodu : string[06] ; ...
...: string[10] ; stok_kodu : string[06] ; stok_adi : string[15] ; ...
...: string[06] ; stok_adi : string[15] ; stok_birim : string[10] ; ...
...: string[15] ; stok_birim : string[10] ; stok_atar : string[10] ; ...
...: string[10] ; stok_atar : string[10] ; adet,afiat,sfiat,kar : longint ; ...
... end; procedure Stok_Fatura; begin clrscr; textcolor(11); gotoxy(...
...8);write('³ ADET ³ STOK C�NS� ³ B�R�M F�ATI ³ TOPLAM �CRET ³'); gotoxy(12,09);write('...
...xy(22,10);write(kay.stok_adi); gotoxy(36,10);write(kay.sfiat); top:=adet*kay.sfiat...
... end; procedure Stok_Kayit; begin textcolor(11); Assign(dosya,'MARKET.DAT');...
...otoxy(08,04);write('STOK G�R���'); GetDate(y,m,d,dow); gotoxy(53,04);writeln...
...otoxy(22,08);write('Stok T�r�.............:'); gotoxy(22,09);write('Stok Kodu..............
...otoxy(22,09);write('Stok Kodu.............:'); gotoxy(22,10);write('Stok Ad�...............
...otoxy(22,10);write('Stok Ad�..............:'); gotoxy(22,11);write('Stok Al�m Tarihi.......
...otoxy(22,11);write('Stok Al�m Tarihi......:'); gotoxy(22,12);write('Stok Birimi............
...otoxy(22,12);write('Stok Birimi...........:'); gotoxy(22,13);write('Stok Miktar�...........
...otoxy(22,13);write('Stok Miktar�..........:'); gotoxy(22,14);write('Stok Al�� Fiat�........
...otoxy(22,14);write('Stok Al�� Fiat�.......:'); gotoxy(22,15);write('Stok Sat�� Fiat�.......
...otoxy(22,15);write('Stok Sat�� Fiat�......:'); gotoxy(22,16);write('Stok K�ri..............
...otoxy(22,16);write('Stok K�ri.............:'); gotoxy(22,21);write('Stok Dosyaya Yaz�ls�...
...otoxy(22,21);write('Stok Dosyaya Yaz�ls�n m�? [E/H]'); textcolor(14); gotox...
...otoxy(22,08);write('Stok T�r�.............:'); textcolor(11); gotoxy(46,08);...
...y(46,08);readln(kay.stok_turu); if kay.stok_turu=" then exit; textcolor(14);...
... if kay.stok_turu=" then exit; textcolor(14); gotoxy(22,09);writ...
...otoxy(22,09);write('Stok Kodu.............:'); textcolor(11); gotoxy(46,09);...
...y(46,09);readln(kay.stok_kodu); textcolor(14); gotoxy(22,10);write('Stok Ad�...
...otoxy(22,10);write('Stok Ad�..............:'); textcolor(11); gotoxy(46,10);...
...y(46,10);readln(kay.stok_adi); textcolor(14); gotoxy(22,11);write('Stok Al�m...
...otoxy(22,11);write('Stok Al�m Tarihi......:'); textcolor(11); gotoxy(46,11);...
...y(46,11);readln(kay.stok_atar); textcolor(14); gotoxy(22,12);write('Stok Bir...
...otoxy(22,12);write('Stok Birimi...........:'); textcolor(11); gotoxy(46,12);...
...y(46,12);readln(kay.stok_birim); textcolor(14); gotoxy(22,13);write('Stok Mi...
...otoxy(22,13);write('Stok Miktar�..........:'); textcolor(11); gotoxy(46,13);...
...otoxy(22,14);write('Stok Al�� Fiat�.......:'); textcolor(11); gotoxy(46,14);...
...otoxy(22,15);write('Stok Sat�� Fiat�......:'); textcolor(11); gotoxy(46,15);...
...otoxy(22,16);write('Stok K�ri.............:'); textcolor(11); kay.kar:=(kay....
...otoxy(22,21);write('Stok Dosyaya Yaz�ls�n m�? [E/H]'); repeat gotoxy(54,2...
... end; procedure Stok_Liste; var ara : string ; s : integer ; sec : char ; ...
...(2,4);write('KOD STOK ADI STOK T�R� '+ 'M�KTARI A-F�ATI S-F�ATI ST...
TOK ADI STOK T�R� '+ 'M�KTARI A-F�ATI S-F�ATI STOK KAR�'); ...
...�ATI S-F�ATI STOK KAR�'); textbackground(0); textcolor(11); ...
... gotoxy(4,2);write('STOK L�STELEME'); GetDate(y,m,d,dow); gotoxy(59,02);writ...
...toxy(2,s);write(kay.stok_kodu); gotoxy(09,s);write(kay.stok_adi); go...
...oxy(09,s);write(kay.stok_adi); gotoxy(25,s);write(kay.stok_turu); go...
...oxy(25,s);write(kay.stok_turu); gotoxy(38,s);write(kay.adet); gotoxy...
...(2,4);write('KOD STOK ADI STOK T�R� '+ 'M�KTARI A-F�ATI S-F�ATI ...
TOK ADI STOK T�R� '+ 'M�KTARI A-F�ATI S-F�ATI STOK KAR�'); ...
...�ATI S-F�ATI STOK KAR�'); textbackground(0); textcolor(11); ...
... gotoxy(4,2);write('STOK L�STELEME'); GetDate(y,m,d,dow); gotoxy(59,...
...);write(lst,'KOD STOK ADI M�KTARI A-F�ATI '+ ' S-F�ATI STOK KAR�'); ...
... ' S-F�ATI STOK KAR�'); gotoxy(7,3);write(lst,'--------------------------------...
...07,s);write(lst,kay.stok_kodu); gotoxy(14,s);write(lst,kay.stok_adi); ...
...14,s);write(lst,kay.stok_adi); gotoxy(26,s);write(lst,kay.adet); got...
...);write(lst,'KOD STOK ADI M�KTARI A-F�ATI '+ ' S-F�ATI STOK KAR�')...
... ' S-F�ATI STOK KAR�'); gotoxy(7,3);write(lst,'----------------------------...
...write('Listelenecek Stok Cinsi : ');readln(ara); if ara=" then begin ...
...(2,4);write('KOD STOK ADI STOK T�R� '+ 'M�KTARI A-F�ATI S-F�ATI ...
TOK ADI STOK T�R� '+ 'M�KTARI A-F�ATI S-F�ATI STOK KAR�'); ...
...�ATI S-F�ATI STOK KAR�'); textbackground(0); textcolor(11); ...
... gotoxy(2,2);write('Stok Cinsi : ',ara); GetDate(y,m,d,dow); gotoxy(59...
...kay.f='*') and (kay.stok_turu=ara) then begin s:=s+1; ...
...toxy(2,s);write(kay.stok_kodu); gotoxy(09,s);write(kay.stok_adi); ...
...oxy(09,s);write(kay.stok_adi); gotoxy(25,s);write(kay.stok_atar); ...
...oxy(25,s);write(kay.stok_atar); gotoxy(38,s);write(kay.adet); ...
...(2,4);write('KOD STOK ADI STOK T�R� '+ 'M�KTARI A-F�ATI S-F�...
TOK ADI STOK T�R� '+ 'M�KTARI A-F�ATI S-F�ATI STOK KAR�'); ...
...�ATI S-F�ATI STOK KAR�'); textbackground(0); textco...
... gotoxy(2,2);write('Stok Cinsi : ',ara); GetDate(y,m,d,dow); ...
... end; procedure Stok_Ekleme; begin textcolor(11); Assign(dosya,'MARKET.DA...
...otoxy(08,04);write('STOK EKLEME'); GetDate(y,m,d,dow); gotoxy(53,04);write...
...otoxy(22,08);write('Stok T�r�.............:'); gotoxy(22,09);write('Stok Kodu.............
...otoxy(22,09);write('Stok Kodu.............:'); gotoxy(22,10);write('Stok Ad�..............
...otoxy(22,10);write('Stok Ad�..............:'); gotoxy(22,11);write('Stok Al�m Tarihi......
...otoxy(22,11);write('Stok Al�m Tarihi......:'); gotoxy(22,12);write('Stok Birimi...........
...otoxy(22,12);write('Stok Birimi...........:'); gotoxy(22,13);write('Stok Miktar�..........
...otoxy(22,13);write('Stok Miktar�..........:'); gotoxy(22,14);write('Stok Al�� Fiat�.......
...otoxy(22,14);write('Stok Al�� Fiat�.......:'); gotoxy(22,15);write('Stok Sat�� Fiat�......
...otoxy(22,15);write('Stok Sat�� Fiat�......:'); gotoxy(22,16);write('Stok K�ri.............
...otoxy(22,16);write('Stok K�ri.............:'); gotoxy(22,21);write('Stok Dosyaya Eklens...
...otoxy(22,21);write('Stok Dosyaya Eklensin mi? [E/H]'); textcolor(14); got...
...otoxy(22,08);write('Stok T�r�.............:'); textcolor(11); gotoxy(46,08...
...y(46,08);readln(kay.stok_turu); if kay.stok_turu=" then exit; textcolor(14...
... if kay.stok_turu=" then exit; textcolor(14); gotoxy(22,09);wr...
...otoxy(22,09);write('Stok Kodu.............:'); textcolor(11); gotoxy(46,09...
...y(46,09);readln(kay.stok_kodu); textcolor(14); gotoxy(22,10);write('Stok A...
...otoxy(22,10);write('Stok Ad�..............:'); textcolor(11); gotoxy(46,10...
...y(46,10);readln(kay.stok_adi); textcolor(14); gotoxy(22,11);write('Stok Al...
...otoxy(22,11);write('Stok Al�m Tarihi......:'); textcolor(11); gotoxy(46,11...
...y(46,11);readln(kay.stok_atar); textcolor(14); gotoxy(22,12);write('Stok B...
...otoxy(22,12);write('Stok Birimi...........:'); textcolor(11); gotoxy(46,12...
...y(46,12);readln(kay.stok_birim); textcolor(14); gotoxy(22,13);write('Stok ...
...otoxy(22,13);write('Stok Miktar�..........:'); textcolor(11); gotoxy(46,13...
...otoxy(22,14);write('Stok Al�� Fiat�.......:'); textcolor(11); gotoxy(46,14...
...otoxy(22,15);write('Stok Sat�� Fiat�......:'); textcolor(11); gotoxy(46,15...
...otoxy(22,16);write('Stok K�ri.............:'); textcolor(11); kay.kar:=(ka...
...otoxy(22,21);write('Stok Dosyaya Eklensin mi? [E/H]'); repeat gotoxy(54...
... end; procedure Stok_Duzeltme; var ara:string[30]; begin textcolor(11); Assign(d...
...Duzeltilecek Kayd�n Stok Kodu : ');readln(ara); if ara=" then exit; for i:=0 to filesi...
...kay.f='*') and (kay.stok_kodu=ara) then begin clrscr; ...
...otoxy(08,04);write('STOK DUZELTME'); GetDate(y,m,d,dow); gotox...
...otoxy(22,09);write('Stok T�r�.............: ',kay.stok_turu ); gotoxy(22,10);writ...
...............: ',kay.stok_turu ); gotoxy(22,10);write('Stok Kodu.............: ',k...
...otoxy(22,10);write('Stok Kodu.............: ',kay.stok_kodu ); gotoxy(22,11);writ...
...............: ',kay.stok_kodu ); gotoxy(22,11);write('Stok Ad�..............: ',k...
...otoxy(22,11);write('Stok Ad�..............: ',kay.stok_adi ); gotoxy(22,12);writ...
...............: ',kay.stok_adi ); gotoxy(22,12);write('Stok Al�m Tarihi......: ',k...
...otoxy(22,12);write('Stok Al�m Tarihi......: ',kay.stok_atar ); gotoxy(22,13)...
...Tarihi......: ',kay.stok_atar ); gotoxy(22,13);write('Stok Birimi..............
...otoxy(22,13);write('Stok Birimi...........: ',kay.stok_birim); gotoxy(22,14);writ...
...i...........: ',kay.stok_birim); gotoxy(22,14);write('Stok Miktar�..........: ',k...
...otoxy(22,14);write('Stok Miktar�..........: ',kay.adet ); gotoxy(22,15);writ...
...otoxy(22,15);write('Stok Al�� Fiat�.......: ',kay.afiat ); gotoxy(22,16);writ...
...otoxy(22,16);write('Stok Sat�� Fiat�......: ',kay.sfiat ); gotoxy(22,17);writ...
...otoxy(22,17);write('Stok K�ri.............: ',kay.kar ); gotoxy(22,21);writ...
...write('D�zeltilecek Stok Bu nu? [E/H]'); repeat gotoxy(53,2...
...otoxy(08,04);write('STOK DUZELTME'); GetDate(y,m,d,dow); ...
...y(22,09);write('[1]-Stok T�r�.............: ',kay.stok_turu ); gotoxy(22,10);...
...............: ',kay.stok_turu ); gotoxy(22,10);write('[2]-Stok Kodu.............
...y(22,10);write('[2]-Stok Kodu.............: ',kay.stok_kodu ); gotoxy(22,11);...
...............: ',kay.stok_kodu ); gotoxy(22,11);write('[3]-Stok Ad�..............
...y(22,11);write('[3]-Stok Ad�..............: ',kay.stok_adi ); gotoxy(22,12);...
...............: ',kay.stok_adi ); gotoxy(22,12);write('[4]-Stok Al�m Tarihi......
...y(22,12);write('[4]-Stok Al�m Tarihi......: ',kay.stok_atar ); gotoxy(22,13);...
...Tarihi......: ',kay.stok_atar ); gotoxy(22,13);write('[5]-Stok Birimi...........
...y(22,13);write('[5]-Stok Birimi...........: ',kay.stok_birim); gotoxy(22,14);...
...i...........: ',kay.stok_birim); gotoxy(22,14);write('[6]-Stok Miktar�..........
...y(22,14);write('[6]-Stok Miktar�..........: ',kay.adet ); gotoxy(22,15);...
...y(22,15);write('[7]-Stok Al�� Fiat�.......: ',kay.afiat ); gotoxy(22,16);...
...y(22,16);write('[8]-Stok Sat�� Fiat�......: ',kay.sfiat ); gotoxy(22,17);...
...otoxy(12,13);write('Stok T�r� : '); readln(kay.stok_turu); ...
... readln(kay.stok_turu); end; '2':begin...
...otoxy(12,13);write('Stok Kodu : '); readln(kay.stok_kodu); ...
... readln(kay.stok_kodu); end; '3':begin...
...otoxy(12,13);write('Stok Ad� : '); readln(kay.stok_adi); ...
... readln(kay.stok_adi); end; '4':begin ...
...otoxy(12,13);write('Stok Al�m Tarihi : '); readln(kay.stok_atar);...
... readln(kay.stok_atar); end; '5':begin...
...otoxy(12,13);write('Stok Birimi : '); readln(kay.stok_birim); ...
... readln(kay.stok_birim); end; '6':begi...
...otoxy(12,13);write('Stok Miktar� : '); readln(kay.adet); ...
...otoxy(12,13);write('Stok Al�� Fiat� : '); readln(kay.afiat); ...
...otoxy(12,13);write('Stok Sat�� Fiat� : '); readln(kay.sfiat); ...
... end; procedure Stok_Arama; var ara:string[30]; begin textcolor(11); Assign(dosy...
...rite('Aranan Kayd�n Stok Kodu : ');readln(ara); if ara=" then exit; for i:=0 to filesi...
...kay.f='*') and (kay.stok_kodu=ara) then begin clrscr; ...
...otoxy(08,04);write('STOK ARAMA'); GetDate(y,m,d,dow); gotoxy(5...
...otoxy(22,09);write('Stok T�r�.............: ',kay.stok_turu ); gotoxy(22,10);writ...
...............: ',kay.stok_turu ); gotoxy(22,10);write('Stok Kodu.............: ',k...
...otoxy(22,10);write('Stok Kodu.............: ',kay.stok_kodu ); gotoxy(22,11);writ...
...............: ',kay.stok_kodu ); gotoxy(22,11);write('Stok Ad�..............: ',k...
...otoxy(22,11);write('Stok Ad�..............: ',kay.stok_adi ); gotoxy(22,12);writ...
...............: ',kay.stok_adi ); gotoxy(22,12);write('Stok Al�m Tarihi......: ',k...
...otoxy(22,12);write('Stok Al�m Tarihi......: ',kay.stok_atar ); gotoxy(22,13)...
...Tarihi......: ',kay.stok_atar ); gotoxy(22,13);write('Stok Birimi..............
...otoxy(22,13);write('Stok Birimi...........: ',kay.stok_birim); gotoxy(22,14);writ...
...i...........: ',kay.stok_birim); gotoxy(22,14);write('Stok Miktar�..........: ',k...
...otoxy(22,14);write('Stok Miktar�..........: ',kay.adet ); gotoxy(22,15);writ...
...otoxy(22,15);write('Stok Al�� Fiat�.......: ',kay.afiat ); gotoxy(22,16);writ...
...otoxy(22,16);write('Stok Sat�� Fiat�......: ',kay.sfiat ); gotoxy(22,17);writ...
...otoxy(22,17);write('Stok K�ri.............: ',kay.kar ); gotoxy(22,21);writ...
...);write('Arad�§�n�z Stok Bu nu? [E/H]'); repeat gotoxy(51,2...
... end; procedure Stok_Silme; var ara:string[20]; begin textcolor(11); Assign(dosy...
...e('Silinecek Kayd�n Stok Kodu : ');readln(ara); if ara=" then exit; for i:=0 to filesi...
...kay.f='*') and (kay.stok_kodu=ara) then begin clrscr; ...
...otoxy(08,04);write('STOK S�LME'); GetDate(y,m,d,dow); gotoxy(5...
...otoxy(22,09);write('Stok T�r�.............: ',kay.stok_turu ); gotoxy(22,10);writ...
...............: ',kay.stok_turu ); gotoxy(22,10);write('Stok Kodu.............: ',k...
...otoxy(22,10);write('Stok Kodu.............: ',kay.stok_kodu ); gotoxy(22,11);writ...
...............: ',kay.stok_kodu ); gotoxy(22,11);write('Stok Ad�..............: ',k...
...otoxy(22,11);write('Stok Ad�..............: ',kay.stok_adi ); gotoxy(22,12);writ...
...............: ',kay.stok_adi ); gotoxy(22,12);write('Stok Al�m Tarihi......: ',k...
...otoxy(22,12);write('Stok Al�m Tarihi......: ',kay.stok_atar ); gotoxy(22,13)...
...Tarihi......: ',kay.stok_atar ); gotoxy(22,13);write('Stok Birimi..............
...otoxy(22,13);write('Stok Birimi...........: ',kay.stok_birim); gotoxy(22,14);writ...
...i...........: ',kay.stok_birim); gotoxy(22,14);write('Stok Miktar�..........: ',k...
...otoxy(22,14);write('Stok Miktar�..........: ',kay.adet ); gotoxy(22,15);writ...
...otoxy(22,15);write('Stok Al�� Fiat�.......: ',kay.afiat ); gotoxy(22,16);writ...
...otoxy(22,16);write('Stok Sat�� Fiat�......: ',kay.sfiat ); gotoxy(22,17);writ...
...otoxy(22,17);write('Stok K�ri.............: ',kay.kar ); gotoxy(22,21);writ...
...1);write('Silinecek Stok Bu mu? [E/H]'); repeat gotoxy(50,2...
... end; procedure Stok_Cikisi; var ara : string[30] ; begin textcolor(11); As...
...3);write('Sat�lacak Stok T�r� : ');readln(ara); if ara=" then exit; for i:=0 to filesi...
...kay.f='*') and (kay.stok_turu=ara) then begin clrscr; ...
...otoxy(08,04);write('STOK �IKI�I'); GetDate(y,m,d,dow); gotoxy(...
...otoxy(22,09);write('Stok T�r�.............: ',kay.stok_turu ); gotoxy(22,10);writ...
...............: ',kay.stok_turu ); gotoxy(22,10);write('Stok Kodu.............: ',k...
...otoxy(22,10);write('Stok Kodu.............: ',kay.stok_kodu ); gotoxy(22,11);writ...
...............: ',kay.stok_kodu ); gotoxy(22,11);write('Stok Ad�..............: ',k...
...otoxy(22,11);write('Stok Ad�..............: ',kay.stok_adi ); gotoxy(22,12);writ...
...............: ',kay.stok_adi ); gotoxy(22,12);write('Stok Al�m Tarihi......: ',k...
...otoxy(22,12);write('Stok Al�m Tarihi......: ',kay.stok_atar ); gotoxy(22,13)...
...Tarihi......: ',kay.stok_atar ); gotoxy(22,13);write('Stok Birimi..............
...otoxy(22,13);write('Stok Birimi...........: ',kay.stok_birim); gotoxy(22,14);writ...
...i...........: ',kay.stok_birim); gotoxy(22,14);write('Stok Miktar�..........: ',k...
...otoxy(22,14);write('Stok Miktar�..........: ',kay.adet ); gotoxy(22,15);writ...
...otoxy(22,15);write('Stok Al�� Fiat�.......: ',kay.afiat ); gotoxy(22,16);writ...
...otoxy(22,16);write('Stok Sat�� Fiat�......: ',kay.sfiat ); gotoxy(22,17);writ...
...otoxy(22,17);write('Stok K�ri.............: ',kay.kar ); gotoxy(22,21);writ...
...te('��lem Yap�lacak Stok Bu mu [E/H]'); repeat gotoxy(54,21)...
...otoxy(08,04);write('STOK �IKI�I'); GetDate(y,m,d,dow); ...
...2,09);write('Toplam Stok Miktar�....: ',kay.adet); gotoxy(22,11);write('S...
...otoxy(22,11);write('Stok Sat�s Fiat�.......: ',kay.sfiat); gotoxy(22,13);...
...otoxy(09,12);write('Stok miktar� yeterli de§il. Devam etmek i�in bir ®TU�A¯ Bas�n...'); ...
...22,17);write('Kalan Stok Miktar�.....: ',kay.adet); seek(dosya,i); ...
... Stok_Fatura; end; ...
... end; procedure Stok_Ekran; var sec:char; begin textbackground(0); repeat ...
...30,07);write(' [1]-STOK G�R��� '); textbackground(15); textcolor(0); gotoxy(...
...30,09);write(' [2]-STOK L�STE '); textbackground(15); textcolor(0); gotoxy(...
...30,11);write(' [3]-STOK EKLEME '); textbackground(15); textcolor(0); gotoxy(...
...30,13);write(' [4]-STOK DUZELTME '); textbackground(15); textcolor(0); gotoxy(...
...30,15);write(' [5]-STOK ARAMA '); textbackground(15); textcolor(0); gotoxy(...
...30,17);write(' [6]-STOK S�LME '); textbackground(15); textcolor(0); gotoxy(...
...30,19);write(' [7]-STOK �IKI�I '); textbackground(0); textcolor(11); gotoxy(...
... '1':Stok_Kayit; '2':Stok_Liste; ...
... '2':Stok_Liste; '3':Stok_Ekleme; ...
... '3':Stok_Ekleme; '4':Stok_Duzeltme; ...
... '4':Stok_Duzeltme; '5':Stok_Arama; ...
... '5':Stok_Arama; '6':Stok_Silme; ...
... '6':Stok_Silme; '7':Stok_Cikisi; end;...
... '7':Stok_Cikisi; end; until sec=#27; ...
... Stok_Ekran; end. ...
... kayit=Record stok_turu : string[10] ; stok_kodu : string[06] ; ...
...: string[10] ; stok_kodu : string[06] ; stok_adi : string[15] ; ...
...: string[06] ; stok_adi : string[15] ; stok_birim : string[10] ; ...
...: string[15] ; stok_birim : string[10] ; stok_atar : string[10] ; ...
...: string[10] ; stok_atar : string[10] ; adet,afiat,sfiat,kar : longint ; ...
... end; procedure Stok_Fatura; begin clrscr; textcolor(11); gotoxy(...
...8);write('³ ADET ³ STOK C�NS� ³ B�R�M F�ATI ³ TOPLAM �CRET ³'); gotoxy(12,09);write('...
...xy(22,10);write(kay.stok_adi); gotoxy(36,10);write(kay.sfiat); top:=adet*kay.sfiat...
... end; procedure Stok_Kayit; begin textcolor(11); Assign(dosya,'MARKET.DAT');...
...otoxy(08,04);write('STOK G�R���'); GetDate(y,m,d,dow); gotoxy(53,04);writeln...
...otoxy(22,08);write('Stok T�r�.............:'); gotoxy(22,09);write('Stok Kodu..............
...otoxy(22,09);write('Stok Kodu.............:'); gotoxy(22,10);write('Stok Ad�...............
...otoxy(22,10);write('Stok Ad�..............:'); gotoxy(22,11);write('Stok Al�m Tarihi.......
...otoxy(22,11);write('Stok Al�m Tarihi......:'); gotoxy(22,12);write('Stok Birimi............
...otoxy(22,12);write('Stok Birimi...........:'); gotoxy(22,13);write('Stok Miktar�...........
...otoxy(22,13);write('Stok Miktar�..........:'); gotoxy(22,14);write('Stok Al�� Fiat�........
...otoxy(22,14);write('Stok Al�� Fiat�.......:'); gotoxy(22,15);write('Stok Sat�� Fiat�.......
...otoxy(22,15);write('Stok Sat�� Fiat�......:'); gotoxy(22,16);write('Stok K�ri..............
...otoxy(22,16);write('Stok K�ri.............:'); gotoxy(22,21);write('Stok Dosyaya Yaz�ls�...
...otoxy(22,21);write('Stok Dosyaya Yaz�ls�n m�? [E/H]'); textcolor(14); gotox...
...otoxy(22,08);write('Stok T�r�.............:'); textcolor(11); gotoxy(46,08);...
...y(46,08);readln(kay.stok_turu); if kay.stok_turu=" then exit; textcolor(14);...
... if kay.stok_turu=" then exit; textcolor(14); gotoxy(22,09);writ...
...otoxy(22,09);write('Stok Kodu.............:'); textcolor(11); gotoxy(46,09);...
...y(46,09);readln(kay.stok_kodu); textcolor(14); gotoxy(22,10);write('Stok Ad�...
...otoxy(22,10);write('Stok Ad�..............:'); textcolor(11); gotoxy(46,10);...
...y(46,10);readln(kay.stok_adi); textcolor(14); gotoxy(22,11);write('Stok Al�m...
...otoxy(22,11);write('Stok Al�m Tarihi......:'); textcolor(11); gotoxy(46,11);...
...y(46,11);readln(kay.stok_atar); textcolor(14); gotoxy(22,12);write('Stok Bir...
...otoxy(22,12);write('Stok Birimi...........:'); textcolor(11); gotoxy(46,12);...
...y(46,12);readln(kay.stok_birim); textcolor(14); gotoxy(22,13);write('Stok Mi...
...otoxy(22,13);write('Stok Miktar�..........:'); textcolor(11); gotoxy(46,13);...
...otoxy(22,14);write('Stok Al�� Fiat�.......:'); textcolor(11); gotoxy(46,14);...
...otoxy(22,15);write('Stok Sat�� Fiat�......:'); textcolor(11); gotoxy(46,15);...
...otoxy(22,16);write('Stok K�ri.............:'); textcolor(11); kay.kar:=(kay....
...otoxy(22,21);write('Stok Dosyaya Yaz�ls�n m�? [E/H]'); repeat gotoxy(54,2...
... end; procedure Stok_Liste; var ara : string ; s : integer ; sec : char ; ...
...(2,4);write('KOD STOK ADI STOK T�R� '+ 'M�KTARI A-F�ATI S-F�ATI ST...
TOK ADI STOK T�R� '+ 'M�KTARI A-F�ATI S-F�ATI STOK KAR�'); ...
...�ATI S-F�ATI STOK KAR�'); textbackground(0); textcolor(11); ...
... gotoxy(4,2);write('STOK L�STELEME'); GetDate(y,m,d,dow); gotoxy(59,02);writ...
...toxy(2,s);write(kay.stok_kodu); gotoxy(09,s);write(kay.stok_adi); go...
...oxy(09,s);write(kay.stok_adi); gotoxy(25,s);write(kay.stok_turu); go...
...oxy(25,s);write(kay.stok_turu); gotoxy(38,s);write(kay.adet); gotoxy...
...(2,4);write('KOD STOK ADI STOK T�R� '+ 'M�KTARI A-F�ATI S-F�ATI ...
TOK ADI STOK T�R� '+ 'M�KTARI A-F�ATI S-F�ATI STOK KAR�'); ...
...�ATI S-F�ATI STOK KAR�'); textbackground(0); textcolor(11); ...
... gotoxy(4,2);write('STOK L�STELEME'); GetDate(y,m,d,dow); gotoxy(59,...
...);write(lst,'KOD STOK ADI M�KTARI A-F�ATI '+ ' S-F�ATI STOK KAR�'); ...
... ' S-F�ATI STOK KAR�'); gotoxy(7,3);write(lst,'--------------------------------...
...07,s);write(lst,kay.stok_kodu); gotoxy(14,s);write(lst,kay.stok_adi); ...
...14,s);write(lst,kay.stok_adi); gotoxy(26,s);write(lst,kay.adet); got...
...);write(lst,'KOD STOK ADI M�KTARI A-F�ATI '+ ' S-F�ATI STOK KAR�')...
... ' S-F�ATI STOK KAR�'); gotoxy(7,3);write(lst,'----------------------------...
...write('Listelenecek Stok Cinsi : ');readln(ara); if ara=" then begin ...
...(2,4);write('KOD STOK ADI STOK T�R� '+ 'M�KTARI A-F�ATI S-F�ATI ...
TOK ADI STOK T�R� '+ 'M�KTARI A-F�ATI S-F�ATI STOK KAR�'); ...
...�ATI S-F�ATI STOK KAR�'); textbackground(0); textcolor(11); ...
... gotoxy(2,2);write('Stok Cinsi : ',ara); GetDate(y,m,d,dow); gotoxy(59...
...kay.f='*') and (kay.stok_turu=ara) then begin s:=s+1; ...
...toxy(2,s);write(kay.stok_kodu); gotoxy(09,s);write(kay.stok_adi); ...
...oxy(09,s);write(kay.stok_adi); gotoxy(25,s);write(kay.stok_atar); ...
...oxy(25,s);write(kay.stok_atar); gotoxy(38,s);write(kay.adet); ...
...(2,4);write('KOD STOK ADI STOK T�R� '+ 'M�KTARI A-F�ATI S-F�...
TOK ADI STOK T�R� '+ 'M�KTARI A-F�ATI S-F�ATI STOK KAR�'); ...
...�ATI S-F�ATI STOK KAR�'); textbackground(0); textco...
... gotoxy(2,2);write('Stok Cinsi : ',ara); GetDate(y,m,d,dow); ...
... end; procedure Stok_Ekleme; begin textcolor(11); Assign(dosya,'MARKET.DA...
...otoxy(08,04);write('STOK EKLEME'); GetDate(y,m,d,dow); gotoxy(53,04);write...
...otoxy(22,08);write('Stok T�r�.............:'); gotoxy(22,09);write('Stok Kodu.............
...otoxy(22,09);write('Stok Kodu.............:'); gotoxy(22,10);write('Stok Ad�..............
...otoxy(22,10);write('Stok Ad�..............:'); gotoxy(22,11);write('Stok Al�m Tarihi......
...otoxy(22,11);write('Stok Al�m Tarihi......:'); gotoxy(22,12);write('Stok Birimi...........
...otoxy(22,12);write('Stok Birimi...........:'); gotoxy(22,13);write('Stok Miktar�..........
...otoxy(22,13);write('Stok Miktar�..........:'); gotoxy(22,14);write('Stok Al�� Fiat�.......
...otoxy(22,14);write('Stok Al�� Fiat�.......:'); gotoxy(22,15);write('Stok Sat�� Fiat�......
...otoxy(22,15);write('Stok Sat�� Fiat�......:'); gotoxy(22,16);write('Stok K�ri.............
...otoxy(22,16);write('Stok K�ri.............:'); gotoxy(22,21);write('Stok Dosyaya Eklens...
...otoxy(22,21);write('Stok Dosyaya Eklensin mi? [E/H]'); textcolor(14); got...
...otoxy(22,08);write('Stok T�r�.............:'); textcolor(11); gotoxy(46,08...
...y(46,08);readln(kay.stok_turu); if kay.stok_turu=" then exit; textcolor(14...
... if kay.stok_turu=" then exit; textcolor(14); gotoxy(22,09);wr...
...otoxy(22,09);write('Stok Kodu.............:'); textcolor(11); gotoxy(46,09...
...y(46,09);readln(kay.stok_kodu); textcolor(14); gotoxy(22,10);write('Stok A...
...otoxy(22,10);write('Stok Ad�..............:'); textcolor(11); gotoxy(46,10...
...y(46,10);readln(kay.stok_adi); textcolor(14); gotoxy(22,11);write('Stok Al...
...otoxy(22,11);write('Stok Al�m Tarihi......:'); textcolor(11); gotoxy(46,11...
...y(46,11);readln(kay.stok_atar); textcolor(14); gotoxy(22,12);write('Stok B...
...otoxy(22,12);write('Stok Birimi...........:'); textcolor(11); gotoxy(46,12...
...y(46,12);readln(kay.stok_birim); textcolor(14); gotoxy(22,13);write('Stok ...
...otoxy(22,13);write('Stok Miktar�..........:'); textcolor(11); gotoxy(46,13...
...otoxy(22,14);write('Stok Al�� Fiat�.......:'); textcolor(11); gotoxy(46,14...
...otoxy(22,15);write('Stok Sat�� Fiat�......:'); textcolor(11); gotoxy(46,15...
...otoxy(22,16);write('Stok K�ri.............:'); textcolor(11); kay.kar:=(ka...
...otoxy(22,21);write('Stok Dosyaya Eklensin mi? [E/H]'); repeat gotoxy(54...
... end; procedure Stok_Duzeltme; var ara:string[30]; begin textcolor(11); Assign(d...
...Duzeltilecek Kayd�n Stok Kodu : ');readln(ara); if ara=" then exit; for i:=0 to filesi...
...kay.f='*') and (kay.stok_kodu=ara) then begin clrscr; ...
...otoxy(08,04);write('STOK DUZELTME'); GetDate(y,m,d,dow); gotox...
...otoxy(22,09);write('Stok T�r�.............: ',kay.stok_turu ); gotoxy(22,10);writ...
...............: ',kay.stok_turu ); gotoxy(22,10);write('Stok Kodu.............: ',k...
...otoxy(22,10);write('Stok Kodu.............: ',kay.stok_kodu ); gotoxy(22,11);writ...
...............: ',kay.stok_kodu ); gotoxy(22,11);write('Stok Ad�..............: ',k...
...otoxy(22,11);write('Stok Ad�..............: ',kay.stok_adi ); gotoxy(22,12);writ...
...............: ',kay.stok_adi ); gotoxy(22,12);write('Stok Al�m Tarihi......: ',k...
...otoxy(22,12);write('Stok Al�m Tarihi......: ',kay.stok_atar ); gotoxy(22,13)...
...Tarihi......: ',kay.stok_atar ); gotoxy(22,13);write('Stok Birimi..............
...otoxy(22,13);write('Stok Birimi...........: ',kay.stok_birim); gotoxy(22,14);writ...
...i...........: ',kay.stok_birim); gotoxy(22,14);write('Stok Miktar�..........: ',k...
...otoxy(22,14);write('Stok Miktar�..........: ',kay.adet ); gotoxy(22,15);writ...
...otoxy(22,15);write('Stok Al�� Fiat�.......: ',kay.afiat ); gotoxy(22,16);writ...
...otoxy(22,16);write('Stok Sat�� Fiat�......: ',kay.sfiat ); gotoxy(22,17);writ...
...otoxy(22,17);write('Stok K�ri.............: ',kay.kar ); gotoxy(22,21);writ...
...write('D�zeltilecek Stok Bu nu? [E/H]'); repeat gotoxy(53,2...
...otoxy(08,04);write('STOK DUZELTME'); GetDate(y,m,d,dow); ...
...y(22,09);write('[1]-Stok T�r�.............: ',kay.stok_turu ); gotoxy(22,10);...
...............: ',kay.stok_turu ); gotoxy(22,10);write('[2]-Stok Kodu.............
...y(22,10);write('[2]-Stok Kodu.............: ',kay.stok_kodu ); gotoxy(22,11);...
...............: ',kay.stok_kodu ); gotoxy(22,11);write('[3]-Stok Ad�..............
...y(22,11);write('[3]-Stok Ad�..............: ',kay.stok_adi ); gotoxy(22,12);...
...............: ',kay.stok_adi ); gotoxy(22,12);write('[4]-Stok Al�m Tarihi......
...y(22,12);write('[4]-Stok Al�m Tarihi......: ',kay.stok_atar ); gotoxy(22,13);...
...Tarihi......: ',kay.stok_atar ); gotoxy(22,13);write('[5]-Stok Birimi...........
...y(22,13);write('[5]-Stok Birimi...........: ',kay.stok_birim); gotoxy(22,14);...
...i...........: ',kay.stok_birim); gotoxy(22,14);write('[6]-Stok Miktar�..........
...y(22,14);write('[6]-Stok Miktar�..........: ',kay.adet ); gotoxy(22,15);...
...y(22,15);write('[7]-Stok Al�� Fiat�.......: ',kay.afiat ); gotoxy(22,16);...
...y(22,16);write('[8]-Stok Sat�� Fiat�......: ',kay.sfiat ); gotoxy(22,17);...
...otoxy(12,13);write('Stok T�r� : '); readln(kay.stok_turu); ...
... readln(kay.stok_turu); end; '2':begin...
...otoxy(12,13);write('Stok Kodu : '); readln(kay.stok_kodu); ...
... readln(kay.stok_kodu); end; '3':begin...
...otoxy(12,13);write('Stok Ad� : '); readln(kay.stok_adi); ...
... readln(kay.stok_adi); end; '4':begin ...
...otoxy(12,13);write('Stok Al�m Tarihi : '); readln(kay.stok_atar);...
... readln(kay.stok_atar); end; '5':begin...
...otoxy(12,13);write('Stok Birimi : '); readln(kay.stok_birim); ...
... readln(kay.stok_birim); end; '6':begi...
...otoxy(12,13);write('Stok Miktar� : '); readln(kay.adet); ...
...otoxy(12,13);write('Stok Al�� Fiat� : '); readln(kay.afiat); ...
...otoxy(12,13);write('Stok Sat�� Fiat� : '); readln(kay.sfiat); ...
... end; procedure Stok_Arama; var ara:string[30]; begin textcolor(11); Assign(dosy...
...rite('Aranan Kayd�n Stok Kodu : ');readln(ara); if ara=" then exit; for i:=0 to filesi...
...kay.f='*') and (kay.stok_kodu=ara) then begin clrscr; ...
...otoxy(08,04);write('STOK ARAMA'); GetDate(y,m,d,dow); gotoxy(5...
...otoxy(22,09);write('Stok T�r�.............: ',kay.stok_turu ); gotoxy(22,10);writ...
...............: ',kay.stok_turu ); gotoxy(22,10);write('Stok Kodu.............: ',k...
...otoxy(22,10);write('Stok Kodu.............: ',kay.stok_kodu ); gotoxy(22,11);writ...
...............: ',kay.stok_kodu ); gotoxy(22,11);write('Stok Ad�..............: ',k...
...otoxy(22,11);write('Stok Ad�..............: ',kay.stok_adi ); gotoxy(22,12);writ...
...............: ',kay.stok_adi ); gotoxy(22,12);write('Stok Al�m Tarihi......: ',k...
...otoxy(22,12);write('Stok Al�m Tarihi......: ',kay.stok_atar ); gotoxy(22,13)...
...Tarihi......: ',kay.stok_atar ); gotoxy(22,13);write('Stok Birimi..............
...otoxy(22,13);write('Stok Birimi...........: ',kay.stok_birim); gotoxy(22,14);writ...
...i...........: ',kay.stok_birim); gotoxy(22,14);write('Stok Miktar�..........: ',k...
...otoxy(22,14);write('Stok Miktar�..........: ',kay.adet ); gotoxy(22,15);writ...
...otoxy(22,15);write('Stok Al�� Fiat�.......: ',kay.afiat ); gotoxy(22,16);writ...
...otoxy(22,16);write('Stok Sat�� Fiat�......: ',kay.sfiat ); gotoxy(22,17);writ...
...otoxy(22,17);write('Stok K�ri.............: ',kay.kar ); gotoxy(22,21);writ...
...);write('Arad�§�n�z Stok Bu nu? [E/H]'); repeat gotoxy(51,2...
... end; procedure Stok_Silme; var ara:string[20]; begin textcolor(11); Assign(dosy...
...e('Silinecek Kayd�n Stok Kodu : ');readln(ara); if ara=" then exit; for i:=0 to filesi...
...kay.f='*') and (kay.stok_kodu=ara) then begin clrscr; ...
...otoxy(08,04);write('STOK S�LME'); GetDate(y,m,d,dow); gotoxy(5...
...otoxy(22,09);write('Stok T�r�.............: ',kay.stok_turu ); gotoxy(22,10);writ...
...............: ',kay.stok_turu ); gotoxy(22,10);write('Stok Kodu.............: ',k...
...otoxy(22,10);write('Stok Kodu.............: ',kay.stok_kodu ); gotoxy(22,11);writ...
...............: ',kay.stok_kodu ); gotoxy(22,11);write('Stok Ad�..............: ',k...
...otoxy(22,11);write('Stok Ad�..............: ',kay.stok_adi ); gotoxy(22,12);writ...
...............: ',kay.stok_adi ); gotoxy(22,12);write('Stok Al�m Tarihi......: ',k...
...otoxy(22,12);write('Stok Al�m Tarihi......: ',kay.stok_atar ); gotoxy(22,13)...
...Tarihi......: ',kay.stok_atar ); gotoxy(22,13);write('Stok Birimi..............
...otoxy(22,13);write('Stok Birimi...........: ',kay.stok_birim); gotoxy(22,14);writ...
...i...........: ',kay.stok_birim); gotoxy(22,14);write('Stok Miktar�..........: ',k...
...otoxy(22,14);write('Stok Miktar�..........: ',kay.adet ); gotoxy(22,15);writ...
...otoxy(22,15);write('Stok Al�� Fiat�.......: ',kay.afiat ); gotoxy(22,16);writ...
...otoxy(22,16);write('Stok Sat�� Fiat�......: ',kay.sfiat ); gotoxy(22,17);writ...
...otoxy(22,17);write('Stok K�ri.............: ',kay.kar ); gotoxy(22,21);writ...
...1);write('Silinecek Stok Bu mu? [E/H]'); repeat gotoxy(50,2...
... end; procedure Stok_Cikisi; var ara : string[30] ; begin textcolor(11); As...
...3);write('Sat�lacak Stok T�r� : ');readln(ara); if ara=" then exit; for i:=0 to filesi...
...kay.f='*') and (kay.stok_turu=ara) then begin clrscr; ...
...otoxy(08,04);write('STOK �IKI�I'); GetDate(y,m,d,dow); gotoxy(...
...otoxy(22,09);write('Stok T�r�.............: ',kay.stok_turu ); gotoxy(22,10);writ...
...............: ',kay.stok_turu ); gotoxy(22,10);write('Stok Kodu.............: ',k...
...otoxy(22,10);write('Stok Kodu.............: ',kay.stok_kodu ); gotoxy(22,11);writ...
...............: ',kay.stok_kodu ); gotoxy(22,11);write('Stok Ad�..............: ',k...
...otoxy(22,11);write('Stok Ad�..............: ',kay.stok_adi ); gotoxy(22,12);writ...
...............: ',kay.stok_adi ); gotoxy(22,12);write('Stok Al�m Tarihi......: ',k...
...otoxy(22,12);write('Stok Al�m Tarihi......: ',kay.stok_atar ); gotoxy(22,13)...
...Tarihi......: ',kay.stok_atar ); gotoxy(22,13);write('Stok Birimi..............
...otoxy(22,13);write('Stok Birimi...........: ',kay.stok_birim); gotoxy(22,14);writ...
...i...........: ',kay.stok_birim); gotoxy(22,14);write('Stok Miktar�..........: ',k...
...otoxy(22,14);write('Stok Miktar�..........: ',kay.adet ); gotoxy(22,15);writ...
...otoxy(22,15);write('Stok Al�� Fiat�.......: ',kay.afiat ); gotoxy(22,16);writ...
...otoxy(22,16);write('Stok Sat�� Fiat�......: ',kay.sfiat ); gotoxy(22,17);writ...
...otoxy(22,17);write('Stok K�ri.............: ',kay.kar ); gotoxy(22,21);writ...
...te('��lem Yap�lacak Stok Bu mu [E/H]'); repeat gotoxy(54,21)...
...otoxy(08,04);write('STOK �IKI�I'); GetDate(y,m,d,dow); ...
...2,09);write('Toplam Stok Miktar�....: ',kay.adet); gotoxy(22,11);write('S...
...otoxy(22,11);write('Stok Sat�s Fiat�.......: ',kay.sfiat); gotoxy(22,13);...
...otoxy(09,12);write('Stok miktar� yeterli de§il. Devam etmek i�in bir ®TU�A¯ Bas�n...'); ...
...22,17);write('Kalan Stok Miktar�.....: ',kay.adet); seek(dosya,i); ...
... Stok_Fatura; end; ...
... end; procedure Stok_Ekran; var sec:char; begin textbackground(0); repeat ...
...30,07);write(' [1]-STOK G�R��� '); textbackground(15); textcolor(0); gotoxy(...
...30,09);write(' [2]-STOK L�STE '); textbackground(15); textcolor(0); gotoxy(...
...30,11);write(' [3]-STOK EKLEME '); textbackground(15); textcolor(0); gotoxy(...
...30,13);write(' [4]-STOK DUZELTME '); textbackground(15); textcolor(0); gotoxy(...
...30,15);write(' [5]-STOK ARAMA '); textbackground(15); textcolor(0); gotoxy(...
...30,17);write(' [6]-STOK S�LME '); textbackground(15); textcolor(0); gotoxy(...
...30,19);write(' [7]-STOK �IKI�I '); textbackground(0); textcolor(11); gotoxy(...
... '1':Stok_Kayit; '2':Stok_Liste; ...
... '2':Stok_Liste; '3':Stok_Ekleme; ...
... '3':Stok_Ekleme; '4':Stok_Duzeltme; ...
... '4':Stok_Duzeltme; '5':Stok_Arama; ...
... '5':Stok_Arama; '6':Stok_Silme; ...
... '6':Stok_Silme; '7':Stok_Cikisi; end;...
... '7':Stok_Cikisi; end; until sec=#27; ...
... Stok_Ekran; end. ...
