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

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

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

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

Örnek olarak;

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

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

TabloScripti;

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,

CONSTRAINTZZ_PK_TBLCARIUYARITANIM PRIMARY KEY CLUSTERED

(

      REC_NO

))

GO

AktifKodlama;

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:='SELECTISNULL(STUFF((SELECT '+QuotedStr('-/ ')+'+ ACIKLAMA+'+QuotedStr(' ')+' FROMZZ_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;