create procedure [dbo].[_Brk_Mutabakat_CariBaBs](@SUBEKODU int) as 
begin 
select 
IncKeyNo = TBLBFORMU.INCKEYNO, 
OlusturmaTarihi = TBLBFORMU.KAYITTARIHI, 
VergiNo = (CASE WHEN ISNULL(TBLBFORMU.VERGINUMARASI,'')='' THEN TBLBFORMU.TCKIMLIKNO ELSE TBLBFORMU.VERGINUMARASI END), 
VergiDairesi = (select dbo.trk(TBLCASABIT.VERGI_DAIRESI) from TBLCASABIT WITH(NOLOCK) where TBLBFORMU.CARI_KOD = TBLCASABIT.CARI_KOD), 
CariKodu = dbo.trk(TBLBFORMU.CARI_KOD), 
Unvani = dbo.trk(TBLBFORMU.UNVAN),
CariAdresi = (select dbo.trk(TBLCASABIT.CARI_ADRES) from TBLCASABIT WITH(NOLOCK) where TBLBFORMU.CARI_KOD = TBLCASABIT.CARI_KOD), 
CariIl = (select dbo.trk(TBLCASABIT.CARI_IL) from TBLCASABIT WITH(NOLOCK) where TBLBFORMU.CARI_KOD = TBLCASABIT.CARI_KOD), 
CariIlce = (select dbo.trk(TBLCASABIT.CARI_ILCE) from TBLCASABIT WITH(NOLOCK) where TBLBFORMU.CARI_KOD = TBLCASABIT.CARI_KOD), 
GrupKodu = (select top(1)dbo.trk(TBLCASABIT.GRUP_KODU) from TBLCASABIT WITH(NOLOCK) where TBLBFORMU.CARI_KOD = TBLCASABIT.CARI_KOD), 
Kod1 = (select dbo.trk(TBLCASABIT.RAPOR_KODU1) from TBLCASABIT WITH(NOLOCK) where TBLBFORMU.CARI_KOD = TBLCASABIT.CARI_KOD), 
Kod2 = (select dbo.trk(TBLCASABIT.RAPOR_KODU2) from TBLCASABIT WITH(NOLOCK) where TBLBFORMU.CARI_KOD = TBLCASABIT.CARI_KOD), 
Kod3 = (select dbo.trk(TBLCASABIT.RAPOR_KODU3) from TBLCASABIT WITH(NOLOCK) where TBLBFORMU.CARI_KOD = TBLCASABIT.CARI_KOD), 
Kod4 = (select dbo.trk(TBLCASABIT.RAPOR_KODU4) from TBLCASABIT WITH(NOLOCK) where TBLBFORMU.CARI_KOD = TBLCASABIT.CARI_KOD), 
Kod5 = (select dbo.trk(TBLCASABIT.RAPOR_KODU5) from TBLCASABIT WITH(NOLOCK) where TBLBFORMU.CARI_KOD = TBLCASABIT.CARI_KOD), 
Telefon = (select dbo.trk(TBLCASABIT.CARI_TEL) from TBLCASABIT WITH(NOLOCK) where TBLBFORMU.CARI_KOD = TBLCASABIT.CARI_KOD), 
Faks = (select dbo.trk(TBLCASABIT.FAX) from TBLCASABIT WITH(NOLOCK) where TBLBFORMU.CARI_KOD = TBLCASABIT.CARI_KOD), 
CariTipi = (select dbo.trk(TBLCASABIT.CARI_TIP) from TBLCASABIT WITH(NOLOCK) where TBLBFORMU.CARI_KOD = TBLCASABIT.CARI_KOD), 
BaBelgeSayisi = case when TBLBFORMU.ALISSATIS='A' then TBLBFORMU.BELGESAYISI else 0 end, 
BaTutar = case when TBLBFORMU.ALISSATIS='A' then TBLBFORMU.TUTAR else 0 end, 
BsBelgeSayisi = case when TBLBFORMU.ALISSATIS='S' then TBLBFORMU.BELGESAYISI else 0 end, 
BsTutar = case when TBLBFORMU.ALISSATIS='S' then TBLBFORMU.TUTAR else 0 end 
from TBLBFORMU WITH(NOLOCK)
where 
TBLBFORMU.VERGINUMARASI <> '-1' 
and TBLBFORMU.TCKIMLIKNO <> '-1' 
and TBLBFORMU.BELGESAYISI <> '-1' 
and TBLBFORMU.ISLETME_KODU = (SELECT TOP 1 TBLSUBELER.ISLETME_KODU FROM TBLSUBELER WITH(NOLOCK) WHERE TBLSUBELER.SUBE_KODU = @SUBEKODU )
end 