Kod: Tümünü seç
Incorrect syntax near the keyword 'CASE'
Eklediğim alan ;
Kod: Tümünü seç
'(CASE WHEN a.TIPI=''2'' Then '+#39+'Açık Fatura'+#39+' ELSE 0 END) AS FaturaTipi'+
'(CASE WHEN a.TIPI=''1'' Then '+#39+'Kapalı Fatura'+#39+' ELSE 0 END) AS FaturaTipi'+
'(CASE WHEN a.TIPI=''4'' Then '+#39+'İade Fatura'+#39+' ELSE 0 END) AS FaturaTipi'+
'(CASE WHEN a.TIPI=''3'' Then '+#39+'Muhtelif Fatura'+#39+' ELSE 0 END) AS FaturaTipi'+
'(CASE WHEN a.TIPI=''5'' Then '+#39+'Zayi İade Fatura'+#39+' ELSE 0 END) AS FaturaTipi'+
Kod: Tümünü seç
begin
with NRapor1 do
begin
Close;
SQL.Text := 'SELECT a.fatirs_no,a.gib_fatirs_no,a.tarih, c.cari_isim, a.bruttutar, a.SAT_ISKT, (a.GEN_ISK1T+a.GEN_ISK2T+a.GEN_ISK3T) AS GENEL_ISKonto,' +
'a.GENELTOPLAM,sum(CASE WHEN b.STHAR_KDV=''1'' THEN (b.STHAR_NF*b.STHAR_KDV*b.STHAR_GCMIK)/100 ELSE 0 END ) ' +
'AS KDV1, Sum(CASE WHEN b.STHAR_KDV=''8'' THEN (b.STHAR_NF*b.STHAR_KDV*b.STHAR_GCMIK)/100 ELSE 0 END) AS KDV8, ' +
'(CASE WHEN b.STHAR_KDV=''18'' THEN (b.STHAR_NF*b.STHAR_KDV*b.STHAR_GCMIK)/100 ELSE 0 END) AS KDV18,a.TIPI, ' +
'(CASE WHEN a.TIPI=''2'' Then '+#39+'Açık Fatura'+#39+' ELSE 0 END) AS FaturaTipi'+
'(CASE WHEN a.TIPI=''1'' Then '+#39+'Kapalı Fatura'+#39+' ELSE 0 END) AS FaturaTipi'+
'(CASE WHEN a.TIPI=''4'' Then '+#39+'İade Fatura'+#39+' ELSE 0 END) AS FaturaTipi'+
'(CASE WHEN a.TIPI=''3'' Then '+#39+'Muhtelif Fatura'+#39+' ELSE 0 END) AS FaturaTipi'+
'(CASE WHEN a.TIPI=''5'' Then '+#39+'Zayi İade Fatura'+#39+' ELSE 0 END) AS FaturaTipi'+
'FROM (TBLFATUIRS as a inner join TBLSTHAR as b on a.FATIRS_NO = b.FISNO) AS FaturaTipi'+
'Inner Join TBLCASABIT as c on a.cari_kodu = c.cari_kod ' +
'WHERE a.FTIRSIP=''1'' and a.Tarih between :ptarih1 and :ptarih2 ' +
'Group by a.fatirs_no,a.gib_fatirs_no,a.tarih, c.cari_isim, a.bruttutar, a.SAT_ISKT, (a.GEN_ISK1T+a.GEN_ISK2T+a.GEN_ISK3T), a.geneltoplam,a.TIPI';
Parameters.ParamByName('pTarih1').Value := DateTimePicker1.Date;
Parameters.ParamByName('pTarih2').Value := DateTimePicker2.Date;
Active := True;
if not IsEmpty then
begin