Yapılan ÖzelEkranda Kaydedilen Veriyi Yazıcı Dizaynına Çekme, 

Aktif olunan Belge NumarasınıÖzel Ekrana çağırma ve Sağ click olayında özel ekran çağırma;

Örnek olarak satış teklif modülü için kullanılan ödemedetayları ekranını kullanacağız.  Ödeme detayları satış teklifi için ödemeplanının kaydedilebilmesi için yapılan özel ekrandır. 

Satış teklif ekranı kalembilgileri sekmesinde sağ click yapılarak Ödeme Detayları ekranına erişilir.(BkzResim 1)

Özel ekrana otomatik olarak belge numarası çekilerekbelgeye ait ödeme planı kaydedilir.(Bkz Resim 2)  

Belge numarası referans alınarak kaydedildiği için satışteklif dizaynına ekranda girilen bilgiler çekilebilir.(Bkz Resim 3)

                              Resim 1

                         Resim 2

                         Resim 3

Özel ekranda kullanılan bazı teknik detaylar;

AtikSE herhangi bir ekranda sağ click özel ekran çağırmakiçin aşağıdaki kodlar yazılır;(Bkz Resim 4)

Menu:(ActiveForm) objesinin  PopupMenu:1_OnClickolayına AppInfo.AppRunProject(‘ÖzelEkranKodu’,’SHOW=NORMAL’);

Özel ekrana aktif olunan belge numarasının gönderilmesiiçin aşağıdaki kod kullanılır;

AppInfo.AppGlobalString := BELGE_NO.Text;

Özel ekranda formun create olayına ise aşağıdaki kodyazılır.

BELGE_NO_L.Caption := AppInfo.AppGlobalString; 

Dizayna özel ekrandan girilen verilen çekilmesi içinaşağıdaki sql cümlesi kullanılır;

ODEME=SELECT ODEME_TARIHI,TUTAR,ACIKLAMA FROMZZTBLODEMEDETAYLARI WHERE BELGE_NO={BELGE_NO}

Özel ekranda girilen verilen tabloya kaydedilmesi içinaşağıdaki kod bloğu kullanılır;

procedure BtnKaydetBtBeforePost(Sender: TObject); 

var            

    Qry:TBTQuery;                                                           

        with Qry do

        begin

            Close;                                        

            RequestLive:=True;

            SQL.Text:='SELECT* FROM ZZTBLODEMEDETAYLARI WHERE REC_NO='+REC_NO.SQLText;

           Open;                                                         

            ifFound Then Edit ElseInsert;                                             

            Fieldbyname('BELGE_NO').AsString:=BELGE_NO_L.Caption;

           Fieldbyname('ODEME_TARIHI').AsDateTime:=ODEME_TARIHI.GetAsDate;                

            Fieldbyname('TUTAR').AsFloat:=TUTAR.GetAsFloat;                  

            Fieldbyname('ACIKLAMA').AsString:=ACIKLAMA.Text;

           Post;                                      

        end;                      

    Finally

   Qry.Free;                                   

    BtnKaydet.RunForOperations(rfNew);

    end;    

end;