AtikSEMuhtelif Cari Özel Ekran

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

  MuhtelifCari Kartı Açma

                                                                                                      Resim 1  

       MuhtelifFatura 

                                                     Resim 2

Cari kodu alanı boş geçildiğinde aktif kodlama ile cari kodualanı 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çılmakisteniyor ise yeni cari kaydı parametresinin seçilmesi gerekmektedir. Yeni carikaydı seçili ise  girilen cari bilgileri faturada güncellenecektir.(Bkz.Resim 4) 

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

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

                                                   Resim 3

                                                    Resim 4

TeknikBilgiler

Muhtelif cari tanım ekranından yapılan kayıtlar ZZ_FATCARISB tablosundatutulmaktadı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.OnBeforeExitolayı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 olankodlama

Var

  xCariRec:Integer;

  xCariAd:string;

  Q:TAdoQuery;

begin

  IFCARI_KODU.TEXT<>'0000000000000' then Exit;

  Q:=TAdoQuery.Create(Nil); 

With QDo                          

Begin          

  Close;

  Connection := GLOBAL_DATABASE;

  SQL.Text :='SELECTTBLCARISB.REC_NO,TBLCARISB.CARI_KODU,TBLCARISB.CARI_ADI FROMZZ_TBLFATCARISB,TBLCARISB where ZZ_TBLFATCARISB.CARI_KODU=TBLCARISB.CARI_KODUAND BELGE_NO='+BELGE_NO.SQLText;

  Open;     

  IFFieldByName('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 thenExit;                          

AppQuery.Close;

AppQuery.SQL.Text:='UPDATE TBLFATSB SETCARI_KODU_RECID='+InttoSTr(xCariRec)+' WHEREBELGE_NO='+BELGE_NO.SQLText;  

AppQuery.ExecSQL;                      

AppQuery.Close; 

 end;