Hesap Kontrolü

***MeLeK*** · 28-01-2008, 12:14

[i][i]//************ HESAP KONTROLLERİ
function BankaHesapKontrol(BANKA_HESAP_ID:integer;Q1:tQuery ):integer;
var
s:string;
begin
s:='select isnull(HESAP_ID,0) HESAP_ID, isnull(MM_HESAP_ID,-1) MM_HESAP_ID'+
' from BANKA_HESAPLARI '+
' WHERE BANKA_HESAP_ID='+_N(BANKA_HESAP_ID)+
' AND isnull(HESAP_ID,0)>0 ';
Q1.Close;
Q1.SQL.Text:=s;
Q1.Open;
result:=Q1.RecordCount;
end;//BankaHesapBul;

function CariHesapKontrol(CARI_ID:integer; Q1:TQuery):integer;
var
s:string;
begin
s:='select isnull(HESAP_ID,0) HESAP_ID, isnull(MM_HESAP_ID,-1) MM_HESAP_ID '+
' from CARI '+
' WHERE CARI_ID='+_N(CARI_ID)+
' AND isnull(HESAP_ID,0)>0 ';
Q1.Close;
Q1.SQL.Text:=s;
Q1.Open;
result:=Q1.RecordCount;
end;//CariHesapBul;

function KasaHesapKontrol(KASA_ID:integer; Q1:TQuery):integer;
var
s:string;
begin
s:='select isnull(HESAP_ID,0) HESAP_ID, isnull(MM_HESAP_ID,-1) MM_HESAP_ID '+
' from KASA '+
' WHERE KASA_ID='+_N(KASA_ID)+
' AND isnull(HESAP_ID,0)>0 ';
Q1.Close;
Q1.SQL.Text:=s;
Q1.Open;
result:=Q1.RecordCount;
end;//KasaHesapBul;

function DemirbasHesapKontrol(DEMIRBAS_ID:integer; Q1:TQuery):integer;
begin
result:=0;
Q1.Close;
Q1.SQL.Text:='select DE.* from DEMIRBAS D, F00000.MUHASEBE_ENTEGRASYON ME,
DEMIRBAS_ENTEGRASYON'+DonemYili+' DE '+
' WHERE ME.MODUL_ID=3 '+
' AND D.DEMIRBAS_ID=DE.DEMIRBAS_ID '+
' AND DE.ENT_ID=ME.ENT_ID '+
' AND D.DEMIRBAS_ID='+_n(DEMIRBAS_ID)+
' AND isnull(DE.HESAP_ID,0)>0 ';
Q1.Open;
if Q1.RecordCount>=2 then //eskiden 9 idi şimdilik kaldırıldı
result:=1;
end;

function StokHesapKontrol(STOK_ID:integer; Q1:TQuery):integer;
begin
result:=0;
Q1.Close;
Q1.SQL.Text:='select SE.* from STOK s, F00000.MUHASEBE_ENTEGRASYON ME,
STOK_ENTEGRASYON'+DonemYili+' SE '+
' WHERE ME.MODUL_ID=5 '+//STOK
' AND S.STOK_ID=SE.STOK_ID '+
' AND SE.ENT_ID=ME.ENT_ID '+
' AND isnull(SE.HESAP_ID,0)>0 '+
' AND S.STOK_ID='+_n(STOK_ID);
Q1.Open;
if Q1.RecordCount>=2 then //şimdilik kaldırıldı 12 idi
result:=1;
end;

function HizmetHesapKontrol(HIZMET_ID:integer; Q1:TQuery):integer;
begin
result:=0;
Q1.Close;
Q1.SQL.Text:='select HE.* from HIZMET H, F00000.MUHASEBE_ENTEGRASYON ME,
HIZMET_ENTEGRASYON'+DonemYili+' HE '+
' WHERE ME.MODUL_ID=7 '+//HIZMET
' AND H.HIZMET_ID=HE.HIZMET_ID '+
' AND HE.ENT_ID=ME.ENT_ID '+
' AND isnull(HE.HESAP_ID,0)>0 '+
' AND H.HIZMET_ID='+_n(HIZMET_ID);
Q1.Open;
if Q1.RecordCount>=2 then //10 idi şimdilik kaldırıldı.
result:=1;
end;

function CSKasaHesapKontrol(CS_KASA_ID:integer; Q1:TQuery):integer;
begin
Q1.Close;
Q1.SQL.Text:='select DE.* from CS_KASA D, F00000.MUHASEBE_ENTEGRASYON ME,
CS_ENTEGRASYON'+DonemYili+' DE '+
' WHERE ME.MODUL_ID=4 '+//FINANS
' AND D.CS_KASA_ID=DE.CS_KASA_ID '+
' AND DE.ENT_ID=ME.ENT_ID '+
' AND isnull(DE.HESAP_ID,0)>0 '+
' AND D.CS_KASA_ID='+_n(CS_KASA_ID);
Q1.Open;
if Q1.RecordCount>=2 then //12 idi şimdilik kaldırıldı.
result:=1;
end;

function PersonelHesapKontrol(PERSONEL_ID:integer; Q1:TQuery):integer;
begin
Q1.close;
Q1.sql.text:=' select M.*,P.HESAP_ID, P.PERSONEL_ID, H.HESAP_KODU, H.HESAP_ADI
'+
' from F00000.MUHASEBE_ENTEGRASYON M, '+
' HESAP_PLANI'+DonemYili+' H, PERSONEL_ENTEGRASYON'+DonemYili+' P
'+
' WHERE M.MODUL_ID=2 '+
' AND M.ENT_ID=P.ENT_ID '+
' AND P.HESAP_ID=H.HESAP_ID '+
' AND isnull(P.HESAP_ID,0)>0 '+
' AND P.PERSONEL_ID='+_n(PERSONEL_ID)+
' ORDER BY UZUN_ADI ';
if Q1.RecordCount>=2 then //şimdilik kaldırıldı 15 idi
result:=1;
end;

function Maskele(TiphortInt; ms, Masketring)tring;
var
String;
I:Integer;
k:Integer;
t,tm:integer;
List, ML:TStringList;
TString;
begin
t:=0;
List:=TStringList.Create;
ML:=TStringList.Create;

Ts:='';
k:=1;
while k>0 do
begin
t:=t+1;
k:=Pos('.',Maske);
if k<=0 then Ts:=Maske
else
begin
Ts:=Copy(Maske,1,k-1);
Delete(Maske,1,k);
end;
ML.Add(Ts);
end;

if t>0 then
begin
tm:=1;
end;
if ms='' then
begin
Result:=ML[0];
List.Free;
ML.Free;
exit;
end;

Ts:='';
k:=1;
t:=0;
while k>0 do
begin
t:=t+1;
k:=Pos('.',ms);
if k<=0 then Ts:=ms
else
begin
Ts:=Copy(ms,1,k-1);
Delete(ms,1,k);
end;
S:='';
for I:=1 to Length(Ts) do
S:=S+'\'+Ts[i];
List.Add(S);
end;
if t>0 then
begin
tm:=1;
end;
t:=0;
while ML.Count<List.Count do
begin
t:=t+1;
List.Delete(List.Count-1);
end;

Result:='';
I:=List.Count-1;
if tip=0 then I:=List.Count-2;

for k:=0 to I do
Result:=Result+List[k]+'.';

if I<ML.Count-1 then Result:=Result+ML[I+1]+'.';
Delete(Result,Length(Result),1);
if t>0 then
begin
tm:=1;
end;

List.Free;
ML.Free;
end;

function Mesaj(String;MB,tip:UINT):Integer;
begin
case Tip of
MsgBilgi:Result:=MessageBox(GetActiveWindow,PChar( s),'Bilgi',MB or Tip);
MsgUyari:Result:=MessageBox(GetActiveWindow,PChar( s),'Uyarı',MB or tip);
MsgHata:Result:=MessageBox(GetActiveWindow,PChar(s ),'Hata',MB or tip);
MsgSoru:Result:=MessageBox(GetActiveWindow,PChar(s ),'Soru',MB or tip);
end;//case
end;//Mesaj

function BoslukSil(String)tring;
var
i:integer;
begin
i:=Length(S);
if S='' then Result:=''
else
begin
while S[i] in [' ','.','_'] do
begin
dec(i);
end;
Result:=Copy(S,1,i);
end;
end;

function Encrypt(String)tring;
var i,L:Integer;
S2tring;
begin
L:=Length(S);
if L=0 then begin S:='?';L:=1;end;
for i:=1 to 9-L do S:=S+Chr(ord(S[i])+$1);
S:=S+Chr($aaaaL);
S2:='';
for i:=1 to Length(S)-1 do S2:=S2+Char(ord(S[i])+ord(S[i+1])-$5F);
Result:=S2+S[10];
end;//Encrypt

function Decrypt(String)tring;
var i:Integer;
S2tring;
begin
S2:=S[10];
for i:=Length(S)-1 downto 1 do S2:=Char(ord(S[i])-ord(S2[1])+$5F)+S2;
Result:=Copy(S2,1,ord(S[10])-$19);
if Result='?' then Result:='';
end;//Decrypt

procedure
ShowMenu(Q1:TQuery;Menu1:TMenuItem;Menu2:TMenuItem ;Menu3:TMenuItem;Menu4:TMenuItem;
R_id:integer);
begin
Menu1.Visible:=false;
Menu2.Visible:=false;
Menu3.Visible:=false;
Menu4.Visible:=false;
Q1.Close;
Q1.SQL.Text:=' select * from F00000.BAGLANTILAR '+
' WHERE BAG_KODU='+_n(R_ID);
Q1.Open;
if Q1.FieldByName('RAPOR_ID').AsInteger>3000 then
begin
Menu1.Caption:= Q1.FieldByName('BAG_ADI').Asstring;
Menu1.Visible:=true;
Menu2.Caption:= Q1.FieldByName('BAG_ADI').Asstring;
Menu2.Visible:=true;
Menu3.Caption:= Q1.FieldByName('BAG_ADI').Asstring;
Menu3.Visible:=true;
Menu4.Caption:= Q1.FieldByName('BAG_ADI').Asstring;
Menu4.Visible:=true;
end;
end;//ShowMenu

function AQ(sTRING)TRING;
var s2TRING;
i,ts,k:INTEGER;
begin
s2:='';
ts:=0;
k:=Length(s);
for i:=1 to k do
begin
ts:=1;
s2:=s2+s[i];
if s[i]=#39 then s2:=s2+#39;
end;{for ...}
AQ:=s2;
end;{AQ}

procedure showpopup(btn:TBitBtn;p:TPopupMenu);
var
MyPt:Tpoint;
begin
TBitBtn(btn).PopupMenu:=P;
MyPt:=TBitBtn(btn).ClientOrigin;
MyPt.Y:=MyPt.Y+TBitBtn(Btn).Height;
TBitBtn(Btn).PopupMenu.Popup(MyPt.X,MyPt.Y);
end;

procedure showpopupSB(sb:TSpeedButton;p:TPopupMenu);
var
MyPt:Tpoint;
begin
TSpeedButton(sb).PopupMenu:=P;
MyPt:=TSpeedButton(sb).ClientOrigin;
MyPt.Y:=MyPt.Y+TSpeedButton(sb).Height;
TSpeedButton(sb).PopupMenu.Popup(MyPt.X,MyPt.Y);
end;

//Database ile bağlantıyı sağlıyor...

procedure TF_Myunit.medasa_connect;
begin
db2.Connected:=false; //MEDASA OLARAK BAGLANIYOR
db2.Params.Clear;
db2.Params.Add('DATABASE NAME='+DATABASE_NAME);
db2.Params.Add('SERVER NAME='+SERVER_NAME);
db2.Params.Add('USER NAME='+'medasa');
db2.Params.Add('OPEN MODE=READ/WRITE');
db2.Params.Add('SCHEMA CACHE SIZE=8');
db2.Params.Add('BLOB EDIT LOGGING=');
db2.Params.Add('LANGDRIVER=');
db2.Params.Add('SQLQRYMODE=');
db2.Params.Add('SQLPASSTHRU MODE=SHARED AUTOCOMMIT');
db2.Params.Add('DATE MODE=0');
db2.Params.Add('SCHEMA CACHE TIME=-1');
db2.Params.Add('MAX QUERY TIME=3000');
db2.Params.Add('MAX ROWS=-1');
db2.Params.Add('BATCH COUNT=200');
db2.Params.Add('ENABLE SCHEMA CACHE=FALSE');
db2.Params.Add('SCHEMA CACHE DIR=');
db2.Params.Add('HOST NAME=');
db2.Params.Add('APPLICATION NAME=');
db2.Params.Add('NATIONAL LANG NAME=');
db2.Params.Add('ENABLE BCD=FALSE');
db2.Params.Add('TDS PACKET SIZE=4096');
db2.Params.Add('BLOBS TO CACHE=64');
db2.Params.Add('BLOB SIZE=32');
db2.Params.Add('PASSWORD='+'19');
db2.LoginPrompt:=false;
db2.DatabaseName:='db2';
db2.DriverName:='MSSQL';
db2.Connected:=true;
end; //medasa_connect

Procedure DBConnect;
begin
F_DM.db1.Connected:=false;
F_DM.db1.Params.Clear;
F_DM.db1.Params.Add('DATABASE NAME='+DATABASE_NAME);
F_DM.db1.Params.Add('SERVER NAME='+SERVER_NAME);
F_DM.db1.Params.Add('USER NAME='+DB_USER_NAME);
F_DM.db1.Params.Add('OPEN MODE=READ/WRITE');
F_DM.db1.Params.Add('SCHEMA CACHE SIZE=8');
F_DM.db1.Params.Add('BLOB EDIT LOGGING=');
F_DM.db1.Params.Add('LANGDRIVER=');
F_DM.db1.Params.Add('SQLQRYMODE=');
F_DM.db1.Params.Add('SQLPASSTHRU MODE=SHARED AUTOCOMMIT');
F_DM.db1.Params.Add('DATE MODE=0');
F_DM.db1.Params.Add('SCHEMA CACHE TIME=-1');
F_DM.db1.Params.Add('MAX QUERY TIME=3000');
F_DM.db1.Params.Add('MAX ROWS=-1');
F_DM.db1.Params.Add('BATCH COUNT=200');
F_DM.db1.Params.Add('ENABLE SCHEMA CACHE=FALSE');
F_DM.db1.Params.Add('SCHEMA CACHE DIR=');
F_DM.db1.Params.Add('HOST NAME=');
F_DM.db1.Params.Add('APPLICATION NAME=');
F_DM.db1.Params.Add('NATIONAL LANG NAME=');
F_DM.db1.Params.Add('ENABLE BCD=FALSE');
F_DM.db1.Params.Add('TDS PACKET SIZE=4096');
F_DM.db1.Params.Add('BLOBS TO CACHE=64');
F_DM.db1.Params.Add('BLOB SIZE=32');
F_DM.db1.Params.Add('PASSWORD='+PSW);
F_DM.db1.LoginPrompt:=false;
F_DM.db1.DatabaseName:='db';
F_DM.db1.DriverName:='MSSQL';
F_DM.db1.Connected:=true;
F_Myunit.medasa_connect;
F_RapLogin.MyDataBase.Connected:=false;
F_RapLogin.MyDataBase.Params.Clear;
F_RapLogin.MyDataBase.Params.Add('DATABASE NAME='+DATABASE_NAME);
F_RapLogin.MyDataBase.Params.Add('SERVER NAME='+SERVER_NAME);
F_RapLogin.MyDataBase.Params.Add('USER NAME='+DB_USER_NAME);
F_RapLogin.MyDataBase.Params.Add('OPEN MODE=READ/WRITE');
F_RapLogin.MyDataBase.Params.Add('SCHEMA CACHE SIZE=8');
F_RapLogin.MyDataBase.Params.Add('BLOB EDIT LOGGING=');
F_RapLogin.MyDataBase.Params.Add('LANGDRIVER=');
F_RapLogin.MyDataBase.Params.Add('SQLQRYMODE=');
F_RapLogin.MyDataBase.Params.Add('SQLPASSTHRU MODE=SHARED AUTOCOMMIT');
F_RapLogin.MyDataBase.Params.Add('DATE MODE=0');
F_RapLogin.MyDataBase.Params.Add('SCHEMA CACHE TIME=-1');
F_RapLogin.MyDataBase.Params.Add('MAX QUERY TIME=3000');
F_RapLogin.MyDataBase.Params.Add('MAX ROWS=-1');
F_RapLogin.MyDataBase.Params.Add('BATCH COUNT=200');
F_RapLogin.MyDataBase.Params.Add('ENABLE SCHEMA CACHE=FALSE');
F_RapLogin.MyDataBase.Params.Add('SCHEMA CACHE DIR=');
F_RapLogin.MyDataBase.Params.Add('HOST NAME=');
F_RapLogin.MyDataBase.Params.Add('APPLICATION NAME=');
F_RapLogin.MyDataBase.Params.Add('NATIONAL LANG NAME=');
F_RapLogin.MyDataBase.Params.Add('ENABLE BCD=FALSE');
F_RapLogin.MyDataBase.Params.Add('TDS PACKET SIZE=4096');
F_RapLogin.MyDataBase.Params.Add('BLOBS TO CACHE=64');
F_RapLogin.MyDataBase.Params.Add('BLOB SIZE=32');
F_RapLogin.MyDataBase.Params.Add('PASSWORD='+PSW);
F_RapLogin.MyDataBase.LoginPrompt:=false;
F_RapLogin.MyDataBase.DatabaseName:='MyDB';
F_RapLogin.MyDataBase.DriverName:='MSSQL';
F_RapLogin.MyDataBase.Connected:=true;
end;//DBConnect
procedure iniKaydet; //ini file yaratılıyor...
begin
inisil;
Meda := TIniFile.Create('meda.ini');
with Meda do
begin
Writestring('MSSQL', 'ServerName',Server_Name);
WriteString('MSSQL', 'DataBase',DataBase_Name);
WriteString('MSSQL', 'User',User_Name);
Free;
end;
end;

procedure inisil; //ini file siliniyor...
begin
inibul;
while inibul=true do
begin
DeleteFile(FileToFind);
inibul;
end;
end;

function inibul:boolean;// true bulundu, false bulunamadı, (ini file
aranıyor...)
var
buffer: array [0..255] of char;
begin
SetCurrentDir('c:\');
GetWindowsDirectory(buffer, SizeOf(buffer));
FileToFind := FileSearch('Meda.ini', GetCurrentDir + ';' + buffer);
if FileToFind = '' then
begin
// ShowMessage('Couldn''t find ' + 'Meda.ini' + '.');
result:=false;
end
else
begin
// ShowMessage('Found ' + FileToFind + '.');
result:=true;
end;
end;

procedure inioku; //ini file okunuyor...
begin
Meda := TIniFile.Create('meda.ini');
with Meda do
begin
Server_Name:=Readstring('MSSQL', 'ServerName','' );
DataBase_Name:=ReadString('MSSQL', 'DataBase', '');
User_Name:=ReadString('MSSQL', 'User', '');
Free;
end;
end;

function KodMaskesiBul(Q1:TQuery;ModulID:integer;Seviye:int eger):string;
var
s:string;
Kod:string;
i:integer;
k:integer;
begin
s:='select * from F00000.FIRMA_KIRILIMLARI '+
' WHERE MODUL_ID='+_N(MODULID)+
' AND FIRMA_ID='+_N(FirmaID);
Q1.Close;
Q1.SQL.Text:=s;
Q1.Open;
Q1.First;
Kod:='';
k:=1;
while not Q1.Eof do
begin
if k<=seviye then
for i:=1 to Q1.FieldByName('UZUNLUK').AsInteger do
begin
Kod:=Kod+'<>a';
end;
Q1.Next;
k:=k+1;
if (not Q1.Eof) and (k<=seviye) then
Kod:=Kod+'.';
end; //while
result:=Kod;
end; //KodMa****iBul

procedure AllCheck(CL_List: TCheckListBox); //CheckListBox'daki item'ları seçili
hale getirmek için
var
i:integer;
begin
for i:=0 to CL_List.Items.Count-1 do
begin
CL_List.Checked[i]:=true;
end;
CL_List.SetFocus;
end;

procedure AllNotCheck(CL_List: TCheckListBox); //CheckListBox'daki item'ların
seçimini iptal etmek için
var
i:integer;
begin
for i:=0 to CL_List.Items.Count-1 do
begin
CL_List.Checked:=false;
end;
CL_List.SetFocus;
end;

procedure CheckDownClick(CL_List:
TCheckListBox;SB_Check:TSpeedButton;SB_NotCheck:TS peedButton);//ComboCheckListBox
Down Click
begin
if CL_List.Visible=false then
begin
CL_List.Visible:=true;
SB_Check.Enabled:=true;
SB_NotCheck.Enabled:=true;
CL_List.SetFocus;
end
else
begin
CL_List.Visible:=false;
SB_Check.Enabled:=false;
SB_NotCheck.Enabled:=false;
end;
end;

procedure CheckExit(CL_List:
TCheckListBox;SB_Check:TSpeedButton;SB_NotCheck:TS peedButton);//Onexit'a
yazılacak...
begin
CL_List.Visible:=false;
SB_Check.Enabled:=false;
SB_NotCheck.Enabled:=false;
end;

procedure SagdakiSutunaGit(DxGrid:TdxDBGrid);
var
i:Integer;
begin
if DxGrid.State=tsEditing then DxGrid.CloseEditor;
for i:=DxGrid.FocusedColumn+1 to DxGrid.VisibleColumnCount-1 do
begin
if DxGrid.VisibleColumns.DisableEditor=False then Break;
end;
if i<DxGrid.VisibleColumnCount then DxGrid.FocusedColumn:=i;
end;

function _yazi(Nmbr:Extended)tring;
const
SAYI:array[0..2,0..9] of STRING[10]=
(
('','Bir','İki','Üç','Dört','Beş','Altı','Yedi','S ekiz','Dokuz'),

('','On','Yirmi','Otuz','Kırk','Elli','Altmış','Ye tmiş','****en','Doksan'),

('','Yüz','İkiYüz','ÜçYüz','DörtYüz','BeşYüz','Alt ıYüz','YediYüz','SekizYüz','DokuzYüz')
);
BASAMAK:array[0..4] of STRING[8]=
('','Bin','Milyon','Milyar','Trilyon');

var uzunluk,i,k,l,m,n,MF:Integer;
String[20];
MS,DPtring;
begin
S:=FloatToStr(Nmbr);
i:=Pos(DecimalSeparator,S);
if i>0 then
begin
DP:=Copy(S,i+1,6);
DP:=Copy(IntToStr(Round(StrToInt(DP))),1,2);
S:=Copy(S,1,i-1);
end else DP:='';
uzunluk:=Length(S);
if uzunluk Mod 3=1 then S:='00'+S;
if uzunluk Mod 3=2 then S:='0'+S;
uzunluk:=Length(S);
l:=(uzunluk div 3)-1;
MS:='';
for i:=0 to l do
begin
MF:=0;
for k:=0 to 2 do
begin
n:=(i*3+1)+k;
m:=ord(S[n])-48;
if (k=2) and (MF=0) and (l=1) and (m=1) then begin m:=0;MF:=1;end;
if m>0 then MF:=1;
MS:=MS+SAYI[2-k,m];
end;//for k:=0
if MF=1 then MS:=MS+BASAMAK[l-i];
end;// for i:=

if (Nmbr<1000000) and (int(NMBR)>1) then
begin
if
int(strtofloat(copy(floattostr(int(nmbr)),length(f loattostr(int(nmbr)))-2,3)))=1
then
ms:=ms+'Bir';
nmbr:=
int(strtofloat(copy(floattostr(int(nmbr)),length(f loattostr(int(nmbr)))-2,3)));
end;

if DP<>'' then Result:=MS+'%'+DP else Result:=MS;
end;//_yazi

procedure SQLTemizle;
begin
SQLStr1:='';
SQLStr2:='';
SQLStr3:='';
SQLStr4:='';
SQLStr5:='';
BagKodu:=-1;
end;

function Rapor_Goster(RAporid:integer)tring;
var
BF:array[0..255] of Char;
BL:Integer;
begin
BL:=255;
GetWindowsDirectory(BF,BL);
_WinPath:=BF;
_WinPath:=_WinPath+'\';
F_Onizleme2:=TF_Onizleme2.Create(Application);
if _Devt=1 then F_Onizleme2.WindowState:=wsMaximized;
F_Onizleme2.Goster(RaporId);
end;

28-01-2008, 12:14	#1 (permalink)
*MeLeK* SO Üyesi Üyelik tarihi: 22-11-2007 Nerden: napıcan ziyaretemi geLcen!! Mesajlar: 4.536 Konular: 2724 Üye No: 11416 Ruh halim: Rep Gücü : 268 Rep Puanı : 4991 Rep Seviyesi :	Hesap Kontrolü [i][i]//************ HESAP KONTROLLERİ function BankaHesapKontrol(BANKA_HESAP_ID:integer;Q1:tQuery ):integer; var s:string; begin s:='select isnull(HESAP_ID,0) HESAP_ID, isnull(MM_HESAP_ID,-1) MM_HESAP_ID'+ ' from BANKA_HESAPLARI '+ ' WHERE BANKA_HESAP_ID='+_N(BANKA_HESAP_ID)+ ' AND isnull(HESAP_ID,0)>0 '; Q1.Close; Q1.SQL.Text:=s; Q1.Open; result:=Q1.RecordCount; end;//BankaHesapBul; function CariHesapKontrol(CARI_ID:integer; Q1:TQuery):integer; var s:string; begin s:='select isnull(HESAP_ID,0) HESAP_ID, isnull(MM_HESAP_ID,-1) MM_HESAP_ID '+ ' from CARI '+ ' WHERE CARI_ID='+_N(CARI_ID)+ ' AND isnull(HESAP_ID,0)>0 '; Q1.Close; Q1.SQL.Text:=s; Q1.Open; result:=Q1.RecordCount; end;//CariHesapBul; function KasaHesapKontrol(KASA_ID:integer; Q1:TQuery):integer; var s:string; begin s:='select isnull(HESAP_ID,0) HESAP_ID, isnull(MM_HESAP_ID,-1) MM_HESAP_ID '+ ' from KASA '+ ' WHERE KASA_ID='+_N(KASA_ID)+ ' AND isnull(HESAP_ID,0)>0 '; Q1.Close; Q1.SQL.Text:=s; Q1.Open; result:=Q1.RecordCount; end;//KasaHesapBul; function DemirbasHesapKontrol(DEMIRBAS_ID:integer; Q1:TQuery):integer; begin result:=0; Q1.Close; Q1.SQL.Text:='select DE.* from DEMIRBAS D, F00000.MUHASEBE_ENTEGRASYON ME, DEMIRBAS_ENTEGRASYON'+DonemYili+' DE '+ ' WHERE ME.MODUL_ID=3 '+ ' AND D.DEMIRBAS_ID=DE.DEMIRBAS_ID '+ ' AND DE.ENT_ID=ME.ENT_ID '+ ' AND D.DEMIRBAS_ID='+_n(DEMIRBAS_ID)+ ' AND isnull(DE.HESAP_ID,0)>0 '; Q1.Open; if Q1.RecordCount>=2 then //eskiden 9 idi şimdilik kaldırıldı result:=1; end; function StokHesapKontrol(STOK_ID:integer; Q1:TQuery):integer; begin result:=0; Q1.Close; Q1.SQL.Text:='select SE.* from STOK s, F00000.MUHASEBE_ENTEGRASYON ME, STOK_ENTEGRASYON'+DonemYili+' SE '+ ' WHERE ME.MODUL_ID=5 '+//STOK ' AND S.STOK_ID=SE.STOK_ID '+ ' AND SE.ENT_ID=ME.ENT_ID '+ ' AND isnull(SE.HESAP_ID,0)>0 '+ ' AND S.STOK_ID='+_n(STOK_ID); Q1.Open; if Q1.RecordCount>=2 then //şimdilik kaldırıldı 12 idi result:=1; end; function HizmetHesapKontrol(HIZMET_ID:integer; Q1:TQuery):integer; begin result:=0; Q1.Close; Q1.SQL.Text:='select HE.* from HIZMET H, F00000.MUHASEBE_ENTEGRASYON ME, HIZMET_ENTEGRASYON'+DonemYili+' HE '+ ' WHERE ME.MODUL_ID=7 '+//HIZMET ' AND H.HIZMET_ID=HE.HIZMET_ID '+ ' AND HE.ENT_ID=ME.ENT_ID '+ ' AND isnull(HE.HESAP_ID,0)>0 '+ ' AND H.HIZMET_ID='+_n(HIZMET_ID); Q1.Open; if Q1.RecordCount>=2 then //10 idi şimdilik kaldırıldı. result:=1; end; function CSKasaHesapKontrol(CS_KASA_ID:integer; Q1:TQuery):integer; begin Q1.Close; Q1.SQL.Text:='select DE.* from CS_KASA D, F00000.MUHASEBE_ENTEGRASYON ME, CS_ENTEGRASYON'+DonemYili+' DE '+ ' WHERE ME.MODUL_ID=4 '+//FINANS ' AND D.CS_KASA_ID=DE.CS_KASA_ID '+ ' AND DE.ENT_ID=ME.ENT_ID '+ ' AND isnull(DE.HESAP_ID,0)>0 '+ ' AND D.CS_KASA_ID='+_n(CS_KASA_ID); Q1.Open; if Q1.RecordCount>=2 then //12 idi şimdilik kaldırıldı. result:=1; end; function PersonelHesapKontrol(PERSONEL_ID:integer; Q1:TQuery):integer; begin Q1.close; Q1.sql.text:=' select M.,P.HESAP_ID, P.PERSONEL_ID, H.HESAP_KODU, H.HESAP_ADI '+ ' from F00000.MUHASEBE_ENTEGRASYON M, '+ ' HESAP_PLANI'+DonemYili+' H, PERSONEL_ENTEGRASYON'+DonemYili+' P '+ ' WHERE M.MODUL_ID=2 '+ ' AND M.ENT_ID=P.ENT_ID '+ ' AND P.HESAP_ID=H.HESAP_ID '+ ' AND isnull(P.HESAP_ID,0)>0 '+ ' AND P.PERSONEL_ID='+_n(PERSONEL_ID)+ ' ORDER BY UZUN_ADI '; if Q1.RecordCount>=2 then //şimdilik kaldırıldı 15 idi result:=1; end; function Maskele(TiphortInt; ms, Masketring)tring; var String; I:Integer; k:Integer; t,tm:integer; List, ML:TStringList; TString; begin t:=0; List:=TStringList.Create; ML:=TStringList.Create; Ts:=''; k:=1; while k>0 do begin t:=t+1; k:=Pos('.',Maske); if k<=0 then Ts:=Maske else begin Ts:=Copy(Maske,1,k-1); Delete(Maske,1,k); end; ML.Add(Ts); end; if t>0 then begin tm:=1; end; if ms='' then begin Result:=ML[0]; List.Free; ML.Free; exit; end; Ts:=''; k:=1; t:=0; while k>0 do begin t:=t+1; k:=Pos('.',ms); if k<=0 then Ts:=ms else begin Ts:=Copy(ms,1,k-1); Delete(ms,1,k); end; S:=''; for I:=1 to Length(Ts) do S:=S+'\'+Ts[i]; List.Add(S); end; if t>0 then begin tm:=1; end; t:=0; while ML.Count<List.Count do begin t:=t+1; List.Delete(List.Count-1); end; Result:=''; I:=List.Count-1; if tip=0 then I:=List.Count-2; for k:=0 to I do Result:=Result+List[k]+'.'; if I<ML.Count-1 then Result:=Result+ML[I+1]+'.'; Delete(Result,Length(Result),1); if t>0 then begin tm:=1; end; List.Free; ML.Free; end; function Mesaj(String;MB,tip:UINT):Integer; begin case Tip of MsgBilgi:Result:=MessageBox(GetActiveWindow,PChar( s),'Bilgi',MB or Tip); MsgUyari:Result:=MessageBox(GetActiveWindow,PChar( s),'Uyarı',MB or tip); MsgHata:Result:=MessageBox(GetActiveWindow,PChar(s ),'Hata',MB or tip); MsgSoru:Result:=MessageBox(GetActiveWindow,PChar(s ),'Soru',MB or tip); end;//case end;//Mesaj function BoslukSil(String)tring; var i:integer; begin i:=Length(S); if S='' then Result:='' else begin while S[i] in [' ','.','_'] do begin dec(i); end; Result:=Copy(S,1,i); end; end; function Encrypt(String)tring; var i,L:Integer; S2tring; begin L:=Length(S); if L=0 then begin S:='?';L:=1;end; for i:=1 to 9-L do S:=S+Chr(ord(S[i])+$1); S:=S+Chr($aaaaL); S2:=''; for i:=1 to Length(S)-1 do S2:=S2+Char(ord(S[i])+ord(S[i+1])-$5F); Result:=S2+S[10]; end;//Encrypt function Decrypt(String)tring; var i:Integer; S2tring; begin S2:=S[10]; for i:=Length(S)-1 downto 1 do S2:=Char(ord(S[i])-ord(S2[1])+$5F)+S2; Result:=Copy(S2,1,ord(S[10])-$19); if Result='?' then Result:=''; end;//Decrypt procedure ShowMenu(Q1:TQuery;Menu1:TMenuItem;Menu2:TMenuItem ;Menu3:TMenuItem;Menu4:TMenuItem; R_id:integer); begin Menu1.Visible:=false; Menu2.Visible:=false; Menu3.Visible:=false; Menu4.Visible:=false; Q1.Close; Q1.SQL.Text:=' select from F00000.BAGLANTILAR '+ ' WHERE BAG_KODU='+_n(R_ID); Q1.Open; if Q1.FieldByName('RAPOR_ID').AsInteger>3000 then begin Menu1.Caption:= Q1.FieldByName('BAG_ADI').Asstring; Menu1.Visible:=true; Menu2.Caption:= Q1.FieldByName('BAG_ADI').Asstring; Menu2.Visible:=true; Menu3.Caption:= Q1.FieldByName('BAG_ADI').Asstring; Menu3.Visible:=true; Menu4.Caption:= Q1.FieldByName('BAG_ADI').Asstring; Menu4.Visible:=true; end; end;//ShowMenu function AQ(sTRING)TRING; var s2TRING; i,ts,k:INTEGER; begin s2:=''; ts:=0; k:=Length(s); for i:=1 to k do begin ts:=1; s2:=s2+s[i]; if s[i]=#39 then s2:=s2+#39; end;{for ...} AQ:=s2; end;{AQ} procedure showpopup(btn:TBitBtn;p:TPopupMenu); var MyPt:Tpoint; begin TBitBtn(btn).PopupMenu:=P; MyPt:=TBitBtn(btn).ClientOrigin; MyPt.Y:=MyPt.Y+TBitBtn(Btn).Height; TBitBtn(Btn).PopupMenu.Popup(MyPt.X,MyPt.Y); end; procedure showpopupSB(sb:TSpeedButton;p:TPopupMenu); var MyPt:Tpoint; begin TSpeedButton(sb).PopupMenu:=P; MyPt:=TSpeedButton(sb).ClientOrigin; MyPt.Y:=MyPt.Y+TSpeedButton(sb).Height; TSpeedButton(sb).PopupMenu.Popup(MyPt.X,MyPt.Y); end; //Database ile bağlantıyı sağlıyor... procedure TF_Myunit.medasa_connect; begin db2.Connected:=false; //MEDASA OLARAK BAGLANIYOR db2.Params.Clear; db2.Params.Add('DATABASE NAME='+DATABASE_NAME); db2.Params.Add('SERVER NAME='+SERVER_NAME); db2.Params.Add('USER NAME='+'medasa'); db2.Params.Add('OPEN MODE=READ/WRITE'); db2.Params.Add('SCHEMA CACHE SIZE=8'); db2.Params.Add('BLOB EDIT LOGGING='); db2.Params.Add('LANGDRIVER='); db2.Params.Add('SQLQRYMODE='); db2.Params.Add('SQLPASSTHRU MODE=SHARED AUTOCOMMIT'); db2.Params.Add('DATE MODE=0'); db2.Params.Add('SCHEMA CACHE TIME=-1'); db2.Params.Add('MAX QUERY TIME=3000'); db2.Params.Add('MAX ROWS=-1'); db2.Params.Add('BATCH COUNT=200'); db2.Params.Add('ENABLE SCHEMA CACHE=FALSE'); db2.Params.Add('SCHEMA CACHE DIR='); db2.Params.Add('HOST NAME='); db2.Params.Add('APPLICATION NAME='); db2.Params.Add('NATIONAL LANG NAME='); db2.Params.Add('ENABLE BCD=FALSE'); db2.Params.Add('TDS PACKET SIZE=4096'); db2.Params.Add('BLOBS TO CACHE=64'); db2.Params.Add('BLOB SIZE=32'); db2.Params.Add('PASSWORD='+'19'); db2.LoginPrompt:=false; db2.DatabaseName:='db2'; db2.DriverName:='MSSQL'; db2.Connected:=true; end; //medasa_connect Procedure DBConnect; begin F_DM.db1.Connected:=false; F_DM.db1.Params.Clear; F_DM.db1.Params.Add('DATABASE NAME='+DATABASE_NAME); F_DM.db1.Params.Add('SERVER NAME='+SERVER_NAME); F_DM.db1.Params.Add('USER NAME='+DB_USER_NAME); F_DM.db1.Params.Add('OPEN MODE=READ/WRITE'); F_DM.db1.Params.Add('SCHEMA CACHE SIZE=8'); F_DM.db1.Params.Add('BLOB EDIT LOGGING='); F_DM.db1.Params.Add('LANGDRIVER='); F_DM.db1.Params.Add('SQLQRYMODE='); F_DM.db1.Params.Add('SQLPASSTHRU MODE=SHARED AUTOCOMMIT'); F_DM.db1.Params.Add('DATE MODE=0'); F_DM.db1.Params.Add('SCHEMA CACHE TIME=-1'); F_DM.db1.Params.Add('MAX QUERY TIME=3000'); F_DM.db1.Params.Add('MAX ROWS=-1'); F_DM.db1.Params.Add('BATCH COUNT=200'); F_DM.db1.Params.Add('ENABLE SCHEMA CACHE=FALSE'); F_DM.db1.Params.Add('SCHEMA CACHE DIR='); F_DM.db1.Params.Add('HOST NAME='); F_DM.db1.Params.Add('APPLICATION NAME='); F_DM.db1.Params.Add('NATIONAL LANG NAME='); F_DM.db1.Params.Add('ENABLE BCD=FALSE'); F_DM.db1.Params.Add('TDS PACKET SIZE=4096'); F_DM.db1.Params.Add('BLOBS TO CACHE=64'); F_DM.db1.Params.Add('BLOB SIZE=32'); F_DM.db1.Params.Add('PASSWORD='+PSW); F_DM.db1.LoginPrompt:=false; F_DM.db1.DatabaseName:='db'; F_DM.db1.DriverName:='MSSQL'; F_DM.db1.Connected:=true; F_Myunit.medasa_connect; F_RapLogin.MyDataBase.Connected:=false; F_RapLogin.MyDataBase.Params.Clear; F_RapLogin.MyDataBase.Params.Add('DATABASE NAME='+DATABASE_NAME); F_RapLogin.MyDataBase.Params.Add('SERVER NAME='+SERVER_NAME); F_RapLogin.MyDataBase.Params.Add('USER NAME='+DB_USER_NAME); F_RapLogin.MyDataBase.Params.Add('OPEN MODE=READ/WRITE'); F_RapLogin.MyDataBase.Params.Add('SCHEMA CACHE SIZE=8'); F_RapLogin.MyDataBase.Params.Add('BLOB EDIT LOGGING='); F_RapLogin.MyDataBase.Params.Add('LANGDRIVER='); F_RapLogin.MyDataBase.Params.Add('SQLQRYMODE='); F_RapLogin.MyDataBase.Params.Add('SQLPASSTHRU MODE=SHARED AUTOCOMMIT'); F_RapLogin.MyDataBase.Params.Add('DATE MODE=0'); F_RapLogin.MyDataBase.Params.Add('SCHEMA CACHE TIME=-1'); F_RapLogin.MyDataBase.Params.Add('MAX QUERY TIME=3000'); F_RapLogin.MyDataBase.Params.Add('MAX ROWS=-1'); F_RapLogin.MyDataBase.Params.Add('BATCH COUNT=200'); F_RapLogin.MyDataBase.Params.Add('ENABLE SCHEMA CACHE=FALSE'); F_RapLogin.MyDataBase.Params.Add('SCHEMA CACHE DIR='); F_RapLogin.MyDataBase.Params.Add('HOST NAME='); F_RapLogin.MyDataBase.Params.Add('APPLICATION NAME='); F_RapLogin.MyDataBase.Params.Add('NATIONAL LANG NAME='); F_RapLogin.MyDataBase.Params.Add('ENABLE BCD=FALSE'); F_RapLogin.MyDataBase.Params.Add('TDS PACKET SIZE=4096'); F_RapLogin.MyDataBase.Params.Add('BLOBS TO CACHE=64'); F_RapLogin.MyDataBase.Params.Add('BLOB SIZE=32'); F_RapLogin.MyDataBase.Params.Add('PASSWORD='+PSW); F_RapLogin.MyDataBase.LoginPrompt:=false; F_RapLogin.MyDataBase.DatabaseName:='MyDB'; F_RapLogin.MyDataBase.DriverName:='MSSQL'; F_RapLogin.MyDataBase.Connected:=true; end;//DBConnect procedure iniKaydet; //ini file yaratılıyor... begin inisil; Meda := TIniFile.Create('meda.ini'); with Meda do begin Writestring('MSSQL', 'ServerName',Server_Name); WriteString('MSSQL', 'DataBase',DataBase_Name); WriteString('MSSQL', 'User',User_Name); Free; end; end; procedure inisil; //ini file siliniyor... begin inibul; while inibul=true do begin DeleteFile(FileToFind); inibul; end; end; function inibul:boolean;// true bulundu, false bulunamadı, (ini file aranıyor...) var buffer: array [0..255] of char; begin SetCurrentDir('c:\'); GetWindowsDirectory(buffer, SizeOf(buffer)); FileToFind := FileSearch('Meda.ini', GetCurrentDir + ';' + buffer); if FileToFind = '' then begin // ShowMessage('Couldn''t find ' + 'Meda.ini' + '.'); result:=false; end else begin // ShowMessage('Found ' + FileToFind + '.'); result:=true; end; end; procedure inioku; //ini file okunuyor... begin Meda := TIniFile.Create('meda.ini'); with Meda do begin Server_Name:=Readstring('MSSQL', 'ServerName','' ); DataBase_Name:=ReadString('MSSQL', 'DataBase', ''); User_Name:=ReadString('MSSQL', 'User', ''); Free; end; end; function KodMaskesiBul(Q1:TQuery;ModulID:integer;Seviye:int eger):string; var s:string; Kod:string; i:integer; k:integer; begin s:='select * from F00000.FIRMA_KIRILIMLARI '+ ' WHERE MODUL_ID='+_N(MODULID)+ ' AND FIRMA_ID='+_N(FirmaID); Q1.Close; Q1.SQL.Text:=s; Q1.Open; Q1.First; Kod:=''; k:=1; while not Q1.Eof do begin if k<=seviye then for i:=1 to Q1.FieldByName('UZUNLUK').AsInteger do begin Kod:=Kod+'<>a'; end; Q1.Next; k:=k+1; if (not Q1.Eof) and (k<=seviye) then Kod:=Kod+'.'; end; //while result:=Kod; end; //KodMa**iBul procedure AllCheck(CL_List: TCheckListBox); //CheckListBox'daki item'ları seçili hale getirmek için var i:integer; begin for i:=0 to CL_List.Items.Count-1 do begin CL_List.Checked[i]:=true; end; CL_List.SetFocus; end; procedure AllNotCheck(CL_List: TCheckListBox); //CheckListBox'daki item'ların seçimini iptal etmek için var i:integer; begin for i:=0 to CL_List.Items.Count-1 do begin CL_List.Checked:=false; end; CL_List.SetFocus; end; procedure CheckDownClick(CL_List: TCheckListBox;SB_Check:TSpeedButton;SB_NotCheck:TS peedButton);//ComboCheckListBox Down Click begin if CL_List.Visible=false then begin CL_List.Visible:=true; SB_Check.Enabled:=true; SB_NotCheck.Enabled:=true; CL_List.SetFocus; end else begin CL_List.Visible:=false; SB_Check.Enabled:=false; SB_NotCheck.Enabled:=false; end; end; procedure CheckExit(CL_List: TCheckListBox;SB_Check:TSpeedButton;SB_NotCheck:TS peedButton);//Onexit'a yazılacak... begin CL_List.Visible:=false; SB_Check.Enabled:=false; SB_NotCheck.Enabled:=false; end; procedure SagdakiSutunaGit(DxGrid:TdxDBGrid); var i:Integer; begin if DxGrid.State=tsEditing then DxGrid.CloseEditor; for i:=DxGrid.FocusedColumn+1 to DxGrid.VisibleColumnCount-1 do begin if DxGrid.VisibleColumns.DisableEditor=False then Break; end; if i<DxGrid.VisibleColumnCount then DxGrid.FocusedColumn:=i; end; function _yazi(Nmbr:Extended)tring; const SAYI:array[0..2,0..9] of STRING[10]= ( ('','Bir','İki','Üç','Dört','Beş','Altı','Yedi','S ekiz','Dokuz'), ('','On','Yirmi','Otuz','Kırk','Elli','Altmış','Ye tmiş','*en','Doksan'), ('','Yüz','İkiYüz','ÜçYüz','DörtYüz','BeşYüz','Alt ıYüz','YediYüz','SekizYüz','DokuzYüz') ); BASAMAK:array[0..4] of STRING[8]= ('','Bin','Milyon','Milyar','Trilyon'); var uzunluk,i,k,l,m,n,MF:Integer; String[20]; MS,DPtring; begin S:=FloatToStr(Nmbr); i:=Pos(DecimalSeparator,S); if i>0 then begin DP:=Copy(S,i+1,6); DP:=Copy(IntToStr(Round(StrToInt(DP))),1,2); S:=Copy(S,1,i-1); end else DP:=''; uzunluk:=Length(S); if uzunluk Mod 3=1 then S:='00'+S; if uzunluk Mod 3=2 then S:='0'+S; uzunluk:=Length(S); l:=(uzunluk div 3)-1; MS:=''; for i:=0 to l do begin MF:=0; for k:=0 to 2 do begin n:=(i3+1)+k; m:=ord(S[n])-48; if (k=2) and (MF=0) and (l=1) and (m=1) then begin m:=0;MF:=1;end; if m>0 then MF:=1; MS:=MS+SAYI[2-k,m]; end;//for k:=0 if MF=1 then MS:=MS+BASAMAK[l-i]; end;// for i:= if (Nmbr<1000000) and (int(NMBR)>1) then begin if int(strtofloat(copy(floattostr(int(nmbr)),length(f loattostr(int(nmbr)))-2,3)))=1 then ms:=ms+'Bir'; nmbr:= int(strtofloat(copy(floattostr(int(nmbr)),length(f loattostr(int(nmbr)))-2,3))); end; if DP<>'' then Result:=MS+'%'+DP else Result:=MS; end;//_yazi procedure SQLTemizle; begin SQLStr1:=''; SQLStr2:=''; SQLStr3:=''; SQLStr4:=''; SQLStr5:=''; BagKodu:=-1; end; function Rapor_Goster(RAporid:integer)tring; var BF:array[0..255] of Char; BL:Integer; begin BL:=255; GetWindowsDirectory(BF,BL); _WinPath:=BF; _WinPath:=_WinPath+'\'; F_Onizleme2:=TF_Onizleme2.Create(Application); if _Devt=1 then F_Onizleme2.WindowState:=wsMaximized; F_Onizleme2.Goster(RaporId); end; __________________ Büyük bir Derdin oLduğunda ALLah'a dönüp 'Benim büyük bi derdim var' deme. Derdine dönüp 'Benim senden büyük ALLah'ım var'de !!! Yüz Verip AdAm EttsiYsem SıfırLa çaRpar Yok Ederİm SensizOlmuyor.oRg Ailesi olarak dosya ve resim uploadlarınız için www.upload.gen.tr sitesini öneriyoruz!

Konu Araçları
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-şeklinde gösterime geç Ağaç şeklinde gösterime geç