genel1.pas

Basic Marketing stock Program

unit genel1;

interface

uses
	Classes, Forms, Quickrpt, Dialogs, Controls, SysUtils, ExtCtrls, QrExtra,
	Printers, DirectPrint, Db, Math;

const
	ALT_SATIR                          = #13+#10;
	RAPOR_REFRESH_RATE                 = 50; // dokunma !!!
	KREDI_REESKONT_REFRESH_RATE        = 15;

var
        yaz:string;
        s1,s2 : string;
        grup    : array[1..5] of string[3];
        grupyaz : string;
        say,uz,k : word;
        ch : char;
        z:double;

	nLastDay: Word;
	//////////////////////////////////////////////////////////////////////////////
	// STANDART RENKLER
	GRID_BASLIK_RENGI                  : Integer = $92c8fa;		// sari
	GRID_ARATOPLAM_RENGI               : Integer = $aeddc0;		// yesil
	GRID_DETAY_RENGI                   : Integer = $e4c6a7;		// mavi
	GRID_GENELTOPLAM_RENGI             : Integer = $b0b0db;		// kahve
	GRID_EXTRA_RENK                    : Integer = $d8b4d1;		// pembe
	//////////////////////////////////////////////////////////////////////////////
	// STANDART MESAJLAR
	BASLIK_UYARI                       : PChar  = 'UYARI !';
	KAYIT_SILINECEK_EMINMISINIZ        : PChar  = 'Bu Kay齮 Silinecek ! Eminmisiniz';
	KREDI_ACIK                         : string = 'Belirtilen Kredi Numaras