NEBİM WİNNER MÜŞTERİ KARTLARI BİRLEŞTİRME

Forum kurallarına uyalım lütfen.

http://www.cozumpark.com/forums/thread/650.aspx

FORUM KURALLARINA AYKIRI NE GİBİ BİR HAREKET VAR ANLAYAMADIM.

FORUM KURALLARINA AYKIRI NE GİBİ BİR HAREKET VAR ANLAYAMADIM.

Mesajınızın tüm karakterleri büyük harf yazmışsınız. Siz de takdir edersinizki sanal dünyada bu tür yazılar karşısındakine bağırma vb. anlam taşır.

Kolay gelsin.

Çok özür dilerim ben o konuyu atlamışım.

Nebim winner da aynı olan müşteri kartlarını birleştirip bir müşteride toplamak ve diğer müşteri kaydını silmek istiyorum. Nasıl yapabilirim. Saygılar... 

 

  Bu çok riskli bir işlem birçok taksit ödeme sonradan teslimat gibi farklı datanızda yapılan işleri anlamak gerek .

Nebim konusunda size destek veren kişiden bunu yapmasını isteyin datanız zarar görebilir ezber sql kullanmayın .

Birleşecek müşteriler belirlenmiş ve çok sayıda değilse destekten fişlerde müşteri kodu değiştirme menüsünde tek tek silinecek müşteriden aktarılacak müşteriye datatları taşıyın .Silinecek müşteriden hareketler taşınırsa sorunsuz müşteri kartını  silebilirsiniz.

--- iki ayri musteri kodunun satislarini tek bir musteride toplar

declare @lMusteri             fisno
declare @lSilinecekMusteri    fisno
declare @nMusteriID           integer
declare @nSilinecekMusteriID  integer
declare @bMusteri1Kontrol     integer
declare @bMusteri2Kontrol     integer

--**********D İ K K A T **************--
select @lMusteri          = 2        -- Buraya Asıl Müşteri Kodunu Giriniz
select @lSilinecekMusteri = 1        -- Buraya Silencek Müşteri Kodunu Giriniz
--******************************************--

 

select @bMusteri1Kontrol = 0
select @bMusteri2Kontrol = 0
if exists (select nMusteriID from tbMusteri where lKodu = @lMusteri )
   begin     
       select @bMusteri1Kontrol = 1
   end
   else
   begin
       print str(@lMusteri) + ' Nolu Musteri Bulunamadi!!!'
   end

if exists (select nMusteriID from tbMusteri where lKodu = @lSilinecekMusteri )
   begin     
       select @bMusteri2Kontrol = 1
   end
   else
   begin
       print str(@lSilinecekMusteri) + ' Nolu Silinecek Musteri Bulunamadi!!!'
   end

if (@bMusteri1Kontrol = 1) AND (@bMusteri2Kontrol = 1) and (@lMusteri <> 0) and (@lSilinecekMusteri <> 0)
 begin
  select @nMusteriID = nMusteriID from tbMusteri where lkodu = @lMusteri            
  select @nSilinecekMusteriID = nMusteriID from tbMusteri where lkodu = @lSilinecekMusteri

  update tbAlisveris        set nMusteriID = @nMusteriID where nMusteriID = @nSilinecekMusteriID
  update tbStokFisiDetayi   set nMusteriID = @nMusteriID where nMusteriID = @nSilinecekMusteriID
  update tbMusteriGozluk    set nMusteriID = @nMusteriID where nMusteriID = @nSilinecekMusteriID
  update tbAVIndirimKuponu  set nMusteriID = @nMusteriID where nMusteriID = @nSilinecekMusteriID
  update tbUrunServisDestek set nVerenMusteriID = @nMusteriID where nVerenMusteriID = @nSilinecekMusteriID
  update tbServisFormu      set nMusteriID = @nMusteriID where nMusteriID = @nSilinecekMusteriID

  delete tbMusteriSinifi  where nMusteriID = @nSilinecekMusteriID
  delete tbMusteriNufusu  where nMusteriID = @nSilinecekMusteriID
  delete tbMusteriKefil1  where nMusteriID = @nSilinecekMusteriID
  delete tbMusteriKefil2  where nMusteriID = @nSilinecekMusteriID
  delete tbMusteriKredisi where nMusteriID = @nSilinecekMusteriID
  delete tbMusteriKarti   where nMusteriID = @nSilinecekMusteriID
  delete tbMusteriEkKart  where nMusteriID = @nSilinecekMusteriID
  delete tbMusteriOzelNot where nMusteriID = @nSilinecekMusteriID
  delete tbMusteriCocugu  where nMusteriID = @nSilinecekMusteriID
  delete tbMusteriPara    where nMusteriID = @nSilinecekMusteriID
                delete tbMusteri        where nMusteriID = @nSilinecekMusteriID

                delete tbMusteriPara    where nMusteriID = @nMusteriID

                insert tbMusteriPara
                       select MusteriID , sum(Tutar)
                           from (
                                  select tbAlisveris.nMusteriID as MusteriID,
                                         case tbAVHediyeCeki.sHediyeCekiTipi when 'ParaPU_KAZ' then case tbAlisveris.nGirisCikis when 3 then tbAVHediyeCeki.lTutar
                                                                                                                                 when 4 then tbAVHediyeCeki.lTutar * -1 end
                                                                             when 'ParaPU_HAR' then tbAVHediyeCeki.lTutar * -1 end as Tutar
                           from tbAlisveris , tbAVHediyeCeki
                           where tbAlisveris.nMusteriID = @nMusteriID and
                                 tbAlisveris.nAlisverisID = tbAVHediyeCeki.nAlisverisID and
                                 ( tbAVHediyeCeki.sHediyeCekiTipi = 'ParaPU_KAZ' or tbAVHediyeCeki.sHediyeCekiTipi = 'ParaPU_HAR' )
                           group by tbAlisveris.nMusteriID , tbAVHediyeCeki.sHediyeCekiTipi , tbAVHediyeCeki.lTutar , tbAlisveris.nGirisCikis
                           ) as TempPara
                           group by TempPara.MusteriID

 end
        else
 begin
        print 'İŞLEM GERÇEKLEŞTİRİLEMEDİ!!!  İŞLEMİN GERÇEKLEŞTİRİLMESİ İÇİN HER İKİ MÜŞTERİ KODUNUN DA VERİ TABANINDA BULUMASI GEREKIYOR'
 end

bu sql sorgusuyla birleştiriyorum fakat silemiyorum