AtikSE Muhtelif Cari Özel Ekran

Muhtelif fatura, cari bilgilerinin cari kartı kaydedilmeden fatura kesilmesi işlemidir. Muhtelif bir fatura kesmek için öncelikle cari kodu 13 haneli sıfırdan oluşan muhtelif cari kartı açılması gerekmektedir. Satış faturasında cari kodu alanına gelindiğinde herhangi bir cari seçmeden tarih alanına geçildiğinde otomatik olarak muhtelif cari bilgilerinin girilebileceği ekran gelmektedir. Bu ekranda istenirse cari sabit olarak kaydedebilir, istenirse faturada görünecek bilgileri girip geçilebilir.

  Muhtelif Cari Kartı Açma

                                                                                                      Resim 1  

       Muhtelif Fatura 

                                                     Resim 2

Cari kodu alanı boş geçildiğinde aktif kodlama ile cari kodu alanı 13 haneli ‘0’  olarak dolar ve cari adı alanından çıkış yapıldığında eğer cari kodu alanı 13 haneli 0 ise muhtelif cari bilgileri ekranı gelir.

 (Bkz. Resim 2)

Eğer cari bilgileri, yeni bir cari kartı olarak açılmak isteniyor ise yeni cari kaydı parametresinin seçilmesi gerekmektedir. Yeni cari kaydı seçili ise  girilen cari bilgileri faturada güncellenecektir.(Bkz. Resim 4) 

Cari bilgileri muhtelif olarak kalacak ise cari kodu girilmeden diğer bilgiler doldurularak devam edilebilir.  (Bkz. Resim 3) 

Bu ekranda kaydedilen veriler ZZ_TBLFATCARISB tablosuna kayıt edilmektedir. Tablo TBLCARISB tablosundan farkı sadece belge numarasını da barındırıyor olmasıdır. Girilen bilgiler belge numarası referans alınarak kaydedilmektedir. Faturaya tekrar girilip cari kodu alanından çıkış yapıldığında belge numarasına ait kayıt var ise bilgiler listelenmektedir.

                                                   Resim 3

                                                    Resim 4

Teknik Bilgiler

Muhtelif cari tanım ekranından yapılan kayıtlar ZZ_FATCARISB tablosunda tutulmaktadır.

Ekte bulunan rar dosyası içindekiler;

Özel ekran dizayn dosyası,

ZZ_FATCARISB tablosu,

RDznProc_FaturaIrsaliye prosedürünün muhtelif bilgiler eklenmiş hali.

Satış faturası ekranına yazılacak aktif kodlama bilgileri aşağıdadır;

·         CARI_KODU.OnBeforeExit olayına yazılacak olan kodlama

If CARI_KODU.Text='' then

Begin

    CARI_KODU.Text:='0000000000000'                            

End;

·         CARI_ADI.OnExit olayına yazılacak olan kodlama

  IF CARI_KODU.TEXT='0000000000000' then

  begin

          AppInfo.AppGlobalString := BELGE_NO.Text;

  If PageKalem.Visible = False Then

            AppInfo.AppRunProject('110');

  end;          

·         BtnBelgeGiris.OnBeforePos olayına yazılacak olan kodlama

Var

  xCariRec:Integer;

  xCariAd:string;

  Q:TAdoQuery;

begin

  IF CARI_KODU.TEXT<>'0000000000000' then Exit;

  Q:=TAdoQuery.Create(Nil); 

With Q Do                          

Begin          

  Close;

  Connection := GLOBAL_DATABASE;

  SQL.Text :='SELECT TBLCARISB.REC_NO,TBLCARISB.CARI_KODU,TBLCARISB.CARI_ADI FROM ZZ_TBLFATCARISB,TBLCARISB where ZZ_TBLFATCARISB.CARI_KODU=TBLCARISB.CARI_KODU AND BELGE_NO='+BELGE_NO.SQLText;

  Open;     

  IF FieldByName('CARI_KODU').AsString<>'' THEN

  CARI_KODU.Text:=FieldByName('CARI_KODU').AsString;

  xCariRec:=FieldByName('REC_NO').AsInteger;

  xCariAd:=FieldByName('CARI_ADI').AsString;

  Close;                       

End;             

if xCariRec=0 then Exit;                          

AppQuery.Close;

AppQuery.SQL.Text:='UPDATE TBLFATSB SET CARI_KODU_RECID='+InttoSTr(xCariRec)+' WHERE BELGE_NO='+BELGE_NO.SQLText;  

AppQuery.ExecSQL;                      

AppQuery.Close; 

 end;