Tiger2 Bordro Asgari Geçim İndirimi Hatası

Tiger2 Bordro programında Asgari Geçim İndirimde çıkan sorun için Aile bireyleri tablosunu kontrol ederek FAMILYHIST tablosuna kayıt açan SQL scripti.
Not: Bu scripti çalıştırmadan önce FAMILYHIST tablosunun yedeğini alınız.
Örnek yedek alma komutu SELECT * INTO LH_001_FAMILYHIST_20100310 FROM LH_001_FAMILYHIST


--Personel'e ait aile bireyleri girişini düzenler
DECLARE @FamilyLref INT
DECLARE @PersonLref INT
DECLARE @Support INT
DECLARE @LastSeq INT
DECLARE @IsAvail INT
DECLARE @Donem DATETIME
SET @Donem='20100201'
DECLARE processes CURSOR FOR
SELECT
dbo.LH_001_FAMILY.LREF AS FAMILY_LREF,
dbo.LH_001_PERSON.LREF AS PERSON_LREF,
dbo.LH_001_FAMILY.SUPPORTED AS SUPPORT
FROM dbo.LH_001_PERIDINF RIGHT OUTER JOIN
dbo.LH_001_FAMILY ON dbo.LH_001_PERIDINF.LREF = dbo.LH_001_FAMILY.IDREF RIGHT OUTER JOIN
dbo.LH_001_PERSON ON dbo.LH_001_FAMILY.PERREF = dbo.LH_001_PERSON.LREF
WHERE dbo.LH_001_PERSON.FIRMNR = 382
OPEN processes
FETCH NEXT FROM processes
INTO @FamilyLref,@PersonLref,@Support
WHILE @@FETCH_STATUS = 0
BEGIN
SET @IsAvail = 0
SELECT @IsAvail = LREF FROM [LH_001_FAMILYHIST] where [CARDREF] = @FamilyLref AND [BEGDATE] = @Donem
IF @IsAvail = 0
BEGIN
print @FamilyLref
SELECT @LastSeq = LASTLREF from LH_001_FAMILYHISTSEQ where ID=1
UPDATE dbo.LH_001_FAMILYHISTSEQ SET LASTLREF = @LastSeq + 1 WHERE ID=1
INSERT INTO [bordro_db].[dbo].[LH_001_FAMILYHIST] ([LREF],[BEGDATE],[ENDDATE],[CARDREF],[SUPPORTED],[INJUREDEGREE],[MINWGDISCSTAT],[ORGLOGICREF],[RECSTATUS],[SITEID])
VALUES(@LastSeq,@Donem,NULL,@FamilyLref,@Support,0,1,0,0,0)
END
FETCH NEXT FROM processes
INTO @FamilyLref,@PersonLref,@Support
END
CLOSE processes
DEALLOCATE processes

LVF dosyası nasıl açılır?

LVF dosyası Logo tarafından üretilen programlarda oluşturulmuş rapor çıktısı formatıdır. Bu dosyayı açmak için Logo tarafından verilen kurulum CD'sinde Report Viewer programını bulabilirsiniz.

Elinizde CD yoksa aşağıdaki linkten gerekli Report Viewer programını indirip LVF dosyasını açabilirsiniz.

Programlar:
Report Viewer
LVF Linki:
ftp://download.logo.com.tr/Windows/TOOLS/tools/ReportViewer.rar

Örnek Program Görünümü:

Tiger/Unity'deki tarih bilgisinin çevrim işlemleri

Tiger/Unity veritabanında integer olarak tutulan tarih bilgisininin datetime'a çeviren fonksiyon.

CREATE FUNCTION fn_LogoDatetoSystemDate (@DEGER INT)
RETURNS datetime
AS
BEGIN
DECLARE @GUN VARCHAR(2), @AY VARCHAR(2), @YIL VARCHAR(4)

DECLARE @SONUC datetime
SELECT
@GUN=CAST((CONVERT(INT,CONVERT(BINARY,@DEGER,2),0)-(CONVERT(INT,CONVERT(BINARY,@DEGER,2),0)/256*256)) AS VARCHAR(3))
SELECT
@AY=CAST(((CONVERT(INT,CONVERT(BINARY,@DEGER,2),0)-(65536*(CONVERT(INT,CONVERT(BINARY,@DEGER,2),0)/65536)))-(CONVERT(INT,CONVERT(BINARY,@DEGER,2),0)-(CONVERT(INT,CONVERT(BINARY,@DEGER,2),0)/256*256)))/256 AS VARCHAR(3))
SELECT
@YIL=CAST((CONVERT(INT,CONVERT(BINARY,@DEGER,2),0)/65536) AS VARCHAR(6))
SET @GUN=CASE WHEN LEN(@GUN)<2 THEN '0'+@GUN ELSE @GUN END
SET @AY=CASE WHEN LEN(@AY)<2 THEN '0'+@AY ELSE @AY END
SONUC:
IF @DEGER<>0
BEGIN
SET @SONUC=CONVERT(DATETIME, @YIL + '-' + @AY + '-' + @GUN + ' 00:00:00', 102)
END
IF @DEGER=0
SET @SONUC= NULL
RETURN @SONUC
END


Tiger/Unity için tarih bilgisinini datetime'a integer olarak çeviren fonksiyon.

CREATE FUNCTION fn_LogoTimetoSystemTime (@GELENDEGER INT)
RETURNS VARCHAR(8)
AS
BEGIN
DECLARE @SAAT VARCHAR(2), @DAKIKA VARCHAR(2), @SANIYE VARCHAR(2), @SONUC VARCHAR(8)
SELECT
@SAAT=RTRIM(CONVERT(char(20), ROUND(@GELENDEGER / 16777216, 2))),
@DAKIKA=RTRIM(CONVERT(char(20), ROUND((@GELENDEGER - ROUND(@GELENDEGER / 16777216, 2) * 16777216)/ 65536, 2))),
@SANIYE=RTRIM(CONVERT(char(20), ROUND((@GELENDEGER - ROUND(@GELENDEGER / 16777216, 2) * 16777216 - ROUND((@GELENDEGER - ROUND(@GELENDEGER / 16777216, 2) * 16777216) / 65536, 2) * 65536) / 256, 2)))
SET @SAAT=CASE WHEN LEN(@SAAT)=1 THEN '0'+@SAAT ELSE @SAAT END
SET @DAKIKA=CASE WHEN LEN(@DAKIKA)=1 THEN '0'+@DAKIKA ELSE @DAKIKA END
SET @SANIYE=CASE WHEN LEN(@SANIYE)=1 THEN '0'+@SANIYE ELSE @SANIYE END
SET @SONUC= @SAAT + ':' +@DAKIKA + ':' + @SANIYE
RETURN @SONUC
END

Logo Tiger'da Muhasebe Kodu olmayan cari kartların kontrolü

SELECT LOGICALREF,CODE, DEFINITION_, CITY FROM LG_106_CLCARD WHERE
(LOGICALREF NOT IN (SELECT CARDREF FROM LG_106_CRDACREF WHERE (LG_106_CRDACREF.TRCODE = 5)))
ORDER BY DEFINITION_