Cariye Özel Uyarı Tanımlama ve Program İçerisinde Destekleme;

Öncelikle cariye özel uyarıların tanımlanacağı bir özel ekran hazırlanmalıdır.

Ekranda seçilen cariye ait, durumu aktif / pasif olarak açıklamalar girilecektir.

Bu girilen açıklamalardan aktif olanlarını yan yana birleştirerek istenilen ekranda aktif kodlama aracılığıyla uyarı mesajı olarak kullanıcıya gösterebilirsiniz.

Örnek olarak;

Aşağıdaki resimdeki gibi özel ekran tasarımı yapıyoruz. (Resim 1)

 Sonrasında kasa işlem hareketlerinde cariye tahsil veya tediye işlemi yaparken carinin hakkında tanımlı bir mesaj varsa cari seçildikten sonra mesaj verecek aktif kodlamayı yazıyoruz. (Resim 2)

Tablo Scripti;

CREATE TABLE ZZ_TBLCARIUYARITANIM(

       REC_NO int IDENTITY(1,1) NOT FOR REPLICATION NOT NULL,

       REC_DATE smalldatetime,

       REC_USERNAME varchar(50),

       REC_USERID int,

       REC_UPDATE smalldatetime,

       REC_UPUSERNAME varchar(50),

       REC_UPUSERID int,

       REC_CHANGED varchar(1),

       REC_LOCKED varchar(1),

       REC_VERSION varchar(50),

       CARI_KODU AyoDBKod NOT NULL,

       DURUM varchar(5) NOT NULL,

       ACIKLAMA varchar(5000) NOT NULL,

CONSTRAINT ZZ_PK_TBLCARIUYARITANIM PRIMARY KEY CLUSTERED

(

       REC_NO

))

GO

Aktif Kodlama;

CMBK_KODU.OnExit

IF CMBK_KODU.TEXT='' THEN EXIT;

IF (BELGE_TIPI.BTDATATEXT=1) OR (BELGE_TIPI.BTDATATEXT=2) THEN

BEGIN

    AppQuery.Close;

    AppQuery.SQL.Text:='SELECT ISNULL(STUFF((SELECT '+QuotedStr('-/ ')+'+ ACIKLAMA+'+QuotedStr(' ')+' FROM ZZ_TBLCARIUYARITANIM WHERE ISNULL(DURUM,'+QuotedStr('')+')='+QuotedStr('A')+' AND CARI_KODU='+QuotedStr(CMBK_KODU.TEXT)+' FOR XML PATH('+QuotedStr('')+'),TYPE).value('+QuotedStr('.')+','+QuotedStr('VARCHAR(MAX)')+'),1,2,'+QuotedStr('')+'),'+QuotedStr('')+')';  

    AppQuery.Open;

    If (AppQuery.Found) and (AppQuery.Fields[0].AsString<>'') Then

    Begin

       AppInfo.AppMes(AppQuery.Fields[0].AsString);

       AppQuery.Next;                                                            

    End;       

    AppQuery.Close;