*/ Resim ekleyemedim ekran çıktısı için
*/ SET FILTER için benzer bir seçim
*/ M_BTN_DEVAM CLICK
Aranan = ""
IF ThisForm.cmb_raporturu.Value = 'TÜM BORÇLULAR' && Bakiyesi olanlar
Aranan = Aranan + '(MBorc!=0 OR UsBorc!=0 OR NBorc!=0)' + " AND "
ENDIF
IF LEN(ALLTRIM(ThisForm.cmb_firmakodu.Value)) <> 0 && Firma Kodu Girilmiş...
IF ThisForm.G_FirKodN.Value <> 1 && Eşit olan
IF ThisForm.cmb_firmakodu.Value = "M" OR ;
ThisForm.cmb_firmakodu.Value = "A" OR ;
ThisForm.cmb_firmakodu.Value = "H" OR ;
ThisForm.cmb_firmakodu.Value = "T" OR ;
ThisForm.cmb_firmakodu.Value = "R" OR ;
ThisForm.cmb_firmakodu.Value = "O" OR ;
ThisForm.cmb_firmakodu.Value = "K"
Aranan = Aranan + "Kod='" + ALLTRIM(ThisForm.cmb_firmakodu.Value) + "'" + " AND "
ENDIF
ELSE && Farklı olan
IF ThisForm.cmb_firmakodu.Value = "M" OR ;
ThisForm.cmb_firmakodu.Value = "A" OR ;
ThisForm.cmb_firmakodu.Value = "H" OR ;
ThisForm.cmb_firmakodu.Value = "T" OR ;
ThisForm.cmb_firmakodu.Value = "R" OR ;
ThisForm.cmb_firmakodu.Value = "O" OR ;
ThisForm.cmb_firmakodu.Value = "K"
Aranan = Aranan + "Kod!='" + ALLTRIM(ThisForm.cmb_firmakodu.Value) + "'" + " AND "
ENDIF
ENDIF
ENDIF
IF LEN(ALLTRIM(ThisForm.cmb_bolgekod.Value)) <> 0 && Bölge Kodu Girilmiş...
IF ThisForm.G_BolgeN.Value <> 1 && Eşit olan
Aranan = Aranan + "BolgeKod='" + ALLTRIM(ThisForm.cmb_bolgekod.Value) + "'" + " AND "
ELSE && Farklı olan
Aranan = Aranan + "BolgeKod!='" + ALLTRIM(ThisForm.cmb_bolgekod.Value) + "'" + " AND "
ENDIF
ENDIF
IF LEN(ALLTRIM(ThisForm.cmb_firma.Value)) <> 0 && Firma Adı Girilmiş...
IF ThisForm.G_FirmaN.Value <> 1 && Eşit olan
Aranan = Aranan + "HesAdi='" + ALLTRIM(ThisForm.cmb_Firma.Value) + "'" + " AND "
ELSE && Farklı olan
Aranan = Aranan + "HesAdi!='" + ALLTRIM(ThisForm.cmb_Firma.Value) + "'" + " AND "
ENDIF
ENDIF
IF LEN(ALLTRIM(Aranan)) > 0
Aranan= ALLTRIM(SUBSTR(Aranan,1,LEN(Aranan)-4))
ENDIF
IF ThisForm.Cmb_ozetturu.Value <> "ÖZET LİSTE"
DO CASE
CASE ThisForm.Cmb_siralamaturu.Value = "BÖLGE - FİRMA ADI"
Gl_SiraBakiye = "BolgeKod, HesAdi, HesTip"
CASE ThisForm.Cmb_siralamaturu.Value = "FİRMA ADI"
Gl_SiraBakiye = "HesAdi, HesTip"
CASE ThisForm.Cmb_siralamaturu.Value = "AÇIKLAMA"
Gl_SiraBakiye = "Not_Ozet, BolgeKod, HesAdi"
OTHERWISE
Gl_SiraBakiye = "HesAdi, HesTip"
ENDCASE
ELSE
Gl_SiraBakiye = "BolgeKod, HesAdi, HesTip"
* Gl_SiraBakiye = "" && Ver_Bakiye.PRG dosyasında önemli, hataya sebep olucaktır. Düzenle
ENDIF
DO Ver_Bakiye
DO FORM ver_bak_sonuc.scx
*/ PROCEDURE Ver_Bakiye && Başlangıç kısmı
xHaving = "1 = 1" && kendi hesaplattığınız istediğiniz koşulu verin
xAranan = Aranan && Do Case yerine kullanılacak kalıp
SELECT ;
Bolgekod, Hesno, Hesadi, ;
(MBorc-MAlac) AS HasBorc, ;
(UsBorc-UsAlac) AS UsdBorc, ;
(NBorc - NAlac) AS NakitBorc, ;
ALLTRIM(Telko) + " " + ALLTRIM(Telno) AS Telefon ;
FROM Hesplan ;
WHERE &xAranan ;
ORDER BY BolgeKod ASC, HesAdi ASC ;
HAVING &xHaving ;
INTO CURSOR HesBak
*/ Yada Özetle
SET FILTER TO xAranan
Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır. Türk Atasözü