Aktif Kodlama İle Form Nasıl Çağırılır?

Adım 1 : Çağrılacak form açılır. 

Üst çerçeveye mouseimleci ile gelinerek CTRL+SHIFT ile form ismi öğrenilir.

Adım 2 : Program genelinde formu çağıran menüisimleri form isminin başına a eklenmiş şekildedir.

Örneğin ; FrmStokTipiiçin aFrmStokTipi. Kod içerisinde kullanılacağı için bir köşeye notalıyoruz.

Adım 3 : Örnek olarak Stok Kartında STOK_TIPInesnesinin OnEnter eventinde form çağrılır.

uses

     Menus;

begin

     if // Menü var ise

      Assigned(Application.MainForm.FindComponent('aFrmStokTipi'))then 

     begin

        TMenuItem(Application.MainForm.FindComponent('aFrmStokTipi')).Click;

         //ClickYordamını çalıştır ve Stok Tipi ekranıçağır...        

     end;  

 end;   

Aktif Kodlama İle Menü’ye Item Ekleme Ve Click OlayıTetikleme Nasıl Yapılır ?           

Stok Kartı İçin Örnek Kodlama

uses Menus;

procedure TestMenuClik(Sender: TObject);

begin       

   showmessage('TestMesaj');         

end; 

var   

 xMenuItem : TMenuItem;                                            

begin                                            

    If AppInfo.AppInRunTime Then

    Begin             

         xMenuItem:= TMenuItem.Create(GrdStokHr.PopUpMenu);

        xMenuItem.Caption := 'Test Menü';

        xMenuItem.Name := 'TestMenu';

        TMenu(GrdStokHr.PopUpMenu).Items.Insert(0,xMenuItem);

        xMenuItem.OnClick :='TestMenuClik';        

     end;

end;

Aktif Kodlama İle Belirli Bir Sınıfa Ait Nesne İsimleriNasıl Alınır ?

uses System;

var

    Ind    : Integer;

    StName : String; 

begin                         

    StName:='';   

    for Ind:=0 toPnlStokKartiBilgi.ControlCount-1 do

   begin                                             

       ifPnlStokKartiBilgi.Controls[Ind].ClassNameIs('TBtEdit') then

           StName:=StName+PnlStokKartiBilgi.Controls[Ind].name+',';  

    end;                                                               

    Showmessage(StName); 

end;  

İşlem :   Mobil Platform da  AktifKodlama  Desteği

Bulunduğu program: 1-Atikse

Uygulama Tanım: Atikse üzerinden AtikBI uygulamasıiçin Android için Java, iOS için JavaScript ile aktif kodlama yapılabilmektedir.

Aşağıdaki resimde Aktifkodlama  ekranında  Obje bölümünden hangi  nesnede çalışacağımız seçilir. Dilbölümünden kullandığımız mobil cihaza göre dili belirlenir.  

Aktif Kodlamada Global Değişken Kullanımı

Aktif kodlama ile formlar arasında global değişkenlerikullanarak hızlı bir şekilde veri taşıma işlemi yapabiliriz. Globaldeğişkenlere AppInfo sınıfından erişebilirsiniz. Formlar üzerindekullanabileceğimiz değişken tipleri aşağıdaki gibidir.

AppGlobalResult: Variant

AppGlobalString: String

AppGlobalVariant: Variant

AppGlobalInteger: Integer

AppGlobalDouble: Double

AppGlobalExtended: Extended

AppGlobalDateTime: TDateTime

Örnek Kullanım Şekli: AppInfo.AppGlobalString :=CARI_KODU.Text;

Aşağıdaki örnekte cari karttan, cari hareket raporu açıldığındarapor ekranındaki cari filtresine cari kartta açılmış olan cari kodunu yazalım.

Öncelikle cari kodu editinin OnExit olayında globaldeğişkene atama yapıyoruz.

CARI_KODU.OnExit

---------------------------------------------------------------------

AppInfo.AppGlobalString:= CARI_KODU.Text;

AppInfo.AppGlobalVariant:= CARI_ADI.Text;

Daha sonra cari hareket raporunda ekranın açılışındadeğişkenlerimizdeki değerleri edite yazıyoruz.

Public.OnLoad

---------------------------------------------------------------------

CARI_KODU.Text := AppInfo.AppGlobalString;

CARI_ADI.Text := AppInfo.AppGlobalVariant;                  

Aktif Kodlama ile Stok Kartı  Üst Grup Kodu, Grup Kodu, Alt Grup KoduAlanlarının Açıklamasının Stok Kısa Adına Stok kaydedildiğinde yazılması.

Aktifkodlamanın tetikleneceği nesne ve olay

 BtnStokKartiKayit.OnBeforePost

Aktifkodlama

 STOK_KISA_ADI.Text:=UST_GRUP_ADI.Text+' '+GRUP_ADI.Text+' '+ALTGRUP_ADI.Text                 

Ekrana Yeni Combobox ve Edit ekleme işlemi

      //Public.OnLoad

var           

    xComboYerliUretim: TBtComboBox;      

    xLabelYerliUretim: TBtLabel;

    xEditAciklama: TBtEdit;         

    xLabelAciklama: TBtLabel;   

begin                     

    if AppInfo.AppInRunTime then

    begin                                

        //ComboBox Ekleme

        xComboYerliUretim := TBtComboBox.Create(PnlStokGrup); //Nesneyi eklemek istediğimiz Panel üzerinde combobox create ediliyor

        PnlStokGrup.InsertControl(xComboYerliUretim);//Create edilen nesneyi panele ekliyoruz

        xLabelYerliUretim:=TBtLabel.Create(PnlStokGrup);

        PnlStokGrup.InsertControl(xLabelYerliUretim);

        xLabelYerliUretim.FocusControl := xComboYerliUretim;

 //Label ile combobox bağlama işlemi yapılıyor.

        xLabelYerliUretim.Caption := 'Yerli Üretim Mi?'; 

        xComboYerliUretim.Name := 'ZZ_YERLI_URETIMMI'; 

//Nesnenin adı tablodaki alanla aynı olması gerekmektedir.

        xComboYerliUretim.BtCaption := xLabelYerliUretim.Caption;  

        xComboYerliUretim.TabOrder := REYON_KODU.TabOrder+1; 

//Nesnenin paneldeki sırası ayarlanıyor. Reyon kodundan sonra gelmesini istediğim için +1 işlemi yaptım.

        xComboYerliUretim.Width := REYON_KODU.Width;

        xComboYerliUretim.BtFieldName := 'ZZ_YERLI_URETIMMI'; 

        xComboYerliUretim.BtChar := '#0';             

        xComboYerliUretim.BtTypeOfData := tdFirstChar ; 

        xComboYerliUretim.BtTypeOfField := ctaString;           

        xComboYerliUretim.Items.Add('Evet');             

        xComboYerliUretim.Items.Add('Hayır')

        //Edit Ekleme                            

        xEditAciklama := TBtEdit.Create(PnlStokGrup);

        ActiveForm.InsertComponent(xEditAciklama);

        PnlStokGrup.InsertControl(xEditAciklama);

        xLabelAciklama:=TBtLabel.Create(PnlStokGrup);

        ActiveForm.InsertComponent(xLabelAciklama);                      

        PnlStokGrup.InsertControl(xLabelAciklama);

        xLabelAciklama.FocusControl := xEditAciklama;

        xLabelAciklama.Caption := 'Açıklama';

        xEditAciklama.Name := 'ZZ_ACIKLAMA';       

        xEditAciklama.BtCaption := xLabelAciklama.Caption;  

        xEditAciklama.TabOrder := REYON_KODU.TabOrder+2;

        xEditAciklama.Width := REYON_KODU.Width;  

        xEditAciklama.BtFieldName := 'ZZ_ACIKLAMA';

        xEditAciklama.Text := '';                                                  

        PnlStokGrup.BtArrangeControls;

//Panel üzerindeki nesnelerin taborderlarına göre hizalama işlemini yapar.

    end;                                        

end;            

Var olan Combobox’a yeni bir item ekleme işlemi

//Public.OnLoad

cbSiralamaField.Items.Add('BARKOD');

Eğer combobox’un BtTypeOfData özelliği tdExItemData ise;

cbSiralamaField.Items.Add('Barkod');

cbSiralamaField. BtExItems.Add('BARKOD');     

Konu: Aktif kodlama ile alış fiyatına girilen değerinüzerinde %20 eklenerek satış fiyatı alanına yazma

Örnek Uygulama:

Stok sabit kartlarıekranında

Alış Fiyatı 1alanının çıkış(ALIS_FIYAT1.OnExit) olayına yazılması gereken kod satırı;

var

x:Extended;  //Yüzdehesabının yapılması için değişken tanımlanır.

begin   

IFALIS_FIYAT1.GETASFLOAT>0 THEN

BEGIN                     

x:=FloatToStr((ALIS_FIYAT1.GetAsFloat/100)*20);// Alış fiyatının yüzde 20’si alınıyor.      

SATIS_FIYAT1.TEXT:=FloatToStr(ALIS_FIYAT1.GetAsFloat+x);//Satış fiyatı 1 alanına alış fiyatının yüzde 20’si eklenerek yazılıyor.

END             

end;

Konu: BtCombo Nesnesine Aktif Kodlama İle DeğerDoldurma

Tanım: Programlarımıza bulunan açılır menü (BtCombo)nesnelerine sabit değerler ya da veri tabanından bir tablodaki kayıtlar iledoldurulması sağlanır.

Örnek Uygulamalar:

Senaryo 1 : Sevkiyat Şekli olarak eklenen belge özel kodalanına müşteri isteğine göre Kendi Aracımız, Alıcının Aracı, Sevkiyat Firmasıgibi seçenekler eklenmesi.

FormunPublic.OnLoadAfter olayında yazılması gereken script kod:

//BELGE_KOD1 combosundaki varolan tüm kayıtlar temizlenir.

BELGE_KOD1.Items.Clear;

//BELGE_KOD1 combosuna KendiAracımız içerikli satır eklenir.

BELGE_KOD1.Items.Add('KendiAracımız');

//BELGE_KOD1 combosuna AlıcınınAracı içerikli satır eklenir.

BELGE_KOD1.Items.Add('AlıcınınAracı');

//BELGE_KOD1 combosuna SevkiyatFirması içerikli satır eklenir.

BELGE_KOD1.Items.Add('SevkiyatFirması');

//BELGE_KOD1 combosunu verigirişine kapatır. Kullanıcı tarafından veri girişini engeller.

BELGE_KOD1.BtEditable:=False;       

Sonuç aşağıdaki gibidir.

Senaryo 2 : Şoför başlığı ile eklenen belge özel kodalanına cari kartlarında özel kod 1 alanı SF olan kayıtların eklenmesi.(Firmanın şoförlere cari kart açarken özel kod 1 sahasına SF(Şoför) yazdığıdüşünülmüştür.)

FormunPublic.OnLoadAfter olayında yazılması gereken script kod:

//BELGE_KOD2 combosundaki varolan tüm kayıtlar temizlenir.

BELGE_KOD2.Items.Clear;

//BELGE_KOD2 combosu TBLCARISBtablosuna bağlanıyor.

BELGE_KOD2.BtTableName:='TBLCARISB';

//BELGE_KOD2 combosununlistelenecek alanı CARI_ADI olarak belirleniyor.

BELGE_KOD2.BtListFields:='CARI_ADI';

//BELGE_KOD2 combosunun anahtarsahası(key) CARI_KODU olarak belirleniyor.

BELGE_KOD2.BtKeyField:='CARI_KODU';             

//TBLCARISB tablosundan gelecekkayıtları özel kod1=SF(şoför) filtresi veriliyor.

//QUOTEDSTR fonksiyonu parametreolarak verilen string değerin başına sonuna tırnak işareti ekler.

BELGE_KOD2.BtFilter:='OZEL_KOD1='+QUOTEDSTR('SF'); 

//BELGE_KOD2 combosunun değeriSQL’e gönderilirken kullanılacak yönetimi belirler. ^{Detay 1}

BELGE_KOD2.BtTypeOfData:=tdToChar;

//BELGE_KOD2 combosunun ayırmakarakterini eşittir “=” olarak belirler. ^{Detay 2}

BELGE_KOD2.BtChar:='='; 

//BELGE_KOD2 combosunun veritabanı bağlantısı özelliğini aktif eder.

BELGE_KOD2.BtSourceDB:=True;  

//BELGE_KOD2 combosununiçeriğini yenileri

BELGE_KOD2.RefreshData;   

//BELGE_KOD2 combosunu verigirişine kapatır. Kullanıcı tarafından veri girişini engeller.

BELGE_KOD2.BtEditable:=False;  

Sonuç aşağıdaki gibidir.

Detay 1 : BtCombo nesnesinin BtTypeOfData özelliğiSQL’e değer gönderilirken kullanılacak yönetimi belirler. Bu yöntemler şuşekildedir.

tdAll : Comboda yazılı olan metnin tamamınıgönderir.

tdFirstChar : Comboda yazılı olan metnin ilkharfini gönderir.

tdItemIndex : Combodan seçilen kaydın sıranumarasını gönderir.

tdToChar : Comboda yazılı olan metnin BtCharkarakterine olan kısmını gönderir.

tdAfterChar : Comboda yazılı olan metnin BtCharkarakterinden sonrasını gönderir.

tdPlusItemIndex : Combodan seçilen kaydın sıranumarasının 1 fazlasını gönderir.

tdExItemData : Comboda seçilen kaydın sıranumarasına karşılık gelen ExItemData listedindeki değeri gönderir.

Detay 2 : BtChar özelliği comboda anahtar(key) velistelenen(list) değerlerini ayırmak için kullanılır.

Örneğin cari kodu:120-0001, cari adı:Sami ve BtChar:eşittir “=” olursa comboda görünen metin şöyle olacaktır. 120-0001=Sami

Seri Kodundan Stok Kodu ve Seri Kaydı Desteği

Seri kodunu barkod gibi görüp bir faturada kalem sayısı fazla olan işletmelerde

satış Faturası, satış İrsaliyesi gibi ürün yönü çıkış olan belgelerde LPS uygulaması açıkken,

sistemde olan bir serinin belgede girilip hem stok kartının bulunması hem de LPS hareketinin oluşması istenebilir.

Öncelikle bu işlemin olması için;

1-) Belge Seçeneklerinden LPS işleminin açık ve tipinin Belge Kayıt⁽¹⁾ olması,

2-) Belge Seçeneklerinden Kalemde Hızlı Giriş Desteğinin açık olması,

3-) Belge Seçeneklerinden Miktar için ön değer parametresinin “1” olması

Ayrıca her serinin ayrı ayrı kalem olmaması için;

4-) Belge Seçeneklerinden “Tekrar Eden Stok Engellensin” ve  “Tekrar Eden Stok Listeden Bulunsun” parametrelerinin açık olması,

5-) Eğer stoklarda fiyat yok ve fiyatların sonradan girilmesi isteniyorsa “Tutarsız Kayıt Girişine İzin Ver” parametresinin gerekmektedir.

6-) Ayrıca Elle Seri yazılıyorsa hızlı giriş açık olmasından dolayı “Tab” Değil “Enter” tuşuna basılması gerekmektedir.

İşlem Adımları ;

1-) Aşağıdaki fonksiyonu sisteme ekleyiniz.

CREATE FUNCTION dbo.ZZ_PrgFn_GetStokKoduWithSeriNo(@SERI_NO VARCHAR(100))

RETURNS TABLE

AS

RETURN

(

    /* ***** Bakiye Kontrolü Olmadan Seri Desteği ***** */

       --SELECT STOK_KODU FROM TBLSTOKLPSHR HR (NOLOCK)

    --INNER JOIN TBLSTOKSB SB (NOLOCK) ON SB.REC_NO=HR.STOK_KODU_RECID WHERE ISNULL(SERI_NO,'')=@SERI_NO

       /* ***** Bakiye Kontrolü ile Seri Desteği ***** */

       SELECT STOK_KODU FROM PRG_VIEW_LPSSTOKHR WITH(NOLOCK)

       WHERE ISNULL(SERI_NO,'')=@SERI_NO

       GROUP BY STOK_KODU,SERI_NO HAVING SUM(GCMIK*GC_ISLEM)>0

)

2-) Aktif Kodlamaları ilgili alanlara yazınız.

STOK_KODU.OnAfterChange

if STOK_KODU.Text <> '' then

    if AppInfo.AppGlobalInteger = 0 then

    begin                   

        AppInfo.AppGlobalString := STOK_KODU.Text;

    end;  

STOK_KODU.OnBeforeExit(Seri Numarasının KontrolüYapılıyor)

AppQuery.Close;

AppQuery.SQL.Text:='SELECT * FROM TBLSTOKSB WHERE STOK_KODU='+QuotedStr(AppInfo.AppGlobalString);

AppQuery.Open;    

If AppQuery.Found Then     

Begin

    AppInfo.AppGlobalString := '';

    AppInfo.AppGlobalInteger := 0; 

End

Else

Begin      

    AppQuery.SQL.Text:='SELECT * FROM DBO.ZZ_PrgFn_GetStokKoduWithSeriNo('+quotedstr(AppInfo.AppGlobalString)+')';

    AppQuery.Open;   

    If AppQuery.RecordCount > 1 Then

    Begin              

        ShowMessage('Seri Kodu Birden Fazla Stok İle Eşleşti! Kayıtları Kontrol Ediniz.');

        Exit;               

    End;               

    If AppQuery.Found Then                                               

    Begin

    AppInfo.AppGlobalInteger := 1; //Seri Bulundu İse

    STOK_KODU.Text := AppQuery.Fields[0].AsString;

    STOK_KODU.SetFocus;                   

    STOK_ADI.SetFocus;

    End

    Else

    Begin                                 

    End;

End;                                                             

AppQuery.Close;     

Public.OnLoad