Netsis İK Personel Ücret değişikliği Mail sistemi

Merhabalar ;

Netsis İK üzerinden personel ücret değişikliği yapıldığında mail gönderen script kodunu ekliyorum.

Yararlı olması dileğiyle

ISYERI = SICILAYQ.FieldByName("ISYERI").AsString
YIL= SICILAYQ.FieldByName("YIL").AsString
AY = SICILAYQ.FieldByName("AY").AsString
 MSGBOX    SICILAYQ.FieldByName("SICILNO").AsString 
MAIL ="mail.com.tr"
cc = "cc.mail.com.tr"

SET XXX = NETSISCORE.NetLibDB.GetNewQuery
QUERY = "SELECT REPLACE(REPLACE(UCRETI,',',''),'.',',') as UCRETI FROM TBLSICILAY WHERE SICILno = '"& SICIL_NO.TEXT &"'  and yil = '"& YIL &"' and ay = '"& AY &"' and ISYERI = '"& ISYERI &"' "
        
XXX.RECSQL(QUERY)
MSGBOX XXX.FIELDS(0).AsString
UCRET=XXX.FIELDS(0).AsString
  
XXX.CLOSE
SET XXX = NOTHING

ICERIK=" "&SICIL_NO.text&" nolu personelin ücreti ; "&UCRET&" olarak değiştirilmiştir. "   
ICERIK = " "&ICERIK & "Değişlik Yapan :  " &NETSISCORE.NetLibSession.NetsisUserName&" "
IF UCRETI__2.TEXT*1.0 <> UCRET*1.0  THEN 
call appglobal.mail(MAIL,cc,"UCRET DEĞİŞİKLİĞİ HK.","",ICERIK)
END IF

İlk Yorumu Siz Yapın

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir