CEKSENET STATU TESPIT VE UPDATE

Ekteki Query çek ve senet statüsü hatalı olan kayıtları tespit edip update etmektedir.

İşlem öncesinde yedek alınız ve fima dönem numaralarını değiştirmeyi unutmayınız.

—————— CEKSENET STATU TESPIT VE UPDATE ————————————————————-
——- Firma No : _001_01
—————————————————————————————————————-
DECLARE @CEKREF INT
DECLARE @STATUS SMALLINT

DECLARE CEK_STATU_UPDATE CURSOR FOR
———————————————–
SELECT
C.LOGICALREF, T.STATUS
FROM
LG_001_01_CSCARD C WITH(NOLOCK)
LEFT OUTER JOIN
(
SELECT
CSREF, MAX(LOGICALREF) ‘MAX_REF’
FROM
LG_001_01_CSTRANS WITH(NOLOCK)
GROUP BY
CSREF
) TMP ON C.LOGICALREF=TMP.CSREF
LEFT OUTER JOIN
LG_001_01_CSTRANS T WITH(NOLOCK) ON T.LOGICALREF=TMP.MAX_REF
WHERE
TMP.CSREF IS NOT NULL
AND C.CURRSTAT <> T.STATUS
———————————————–
OPEN CEK_STATU_UPDATE FETCH NEXT FROM CEK_STATU_UPDATE

INTO @CEKREF, @STATUS

WHILE @@FETCH_STATUS = 0

BEGIN
———————————————–

UPDATE LG_001_01_CSCARD SET CURRSTAT=@STATUS WHERE LOGICALREF=@CEKREF

———————————————–
FETCH NEXT FROM CEK_STATU_UPDATE

INTO @CEKREF, @STATUS

END

CLOSE CEK_STATU_UPDATE
DEALLOCATE CEK_STATU_UPDATE

Bir yanıt yazın

E-posta adresiniz yayınlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir