財務憑證查詢

if object_id('tempdb..#pz') is not null begin

drop table #pz

endselect * into #pz from (

select a.fdate ,a.fyear,a.fnumber as fpznum,b.fexplanation ,

case when charindex('.',replace(replace(b.fexplanation,'，','.'),'(','.'))= 0

then replace(replace(substring(b.fexplanation ,charindex('g' ,b.fexplanation) ,16),'，','.'),'(','.')

else substring(replace(replace(replace(b.fexplanation,'收款',''),'，','.'),'(','.'),1,charindex('.',replace(replace(b.fexplanation,'，','.'),'(','.'))-1 )

end as 'seorderno',

--case

--when charindex('款',b.fexplanation) > 0 then substring(b.fexplanation, charindex('款',b.fexplanation)+1,99)

--when charindex(',',b.fexplanation) > 0 then substring(b.fexplanation,1, charindex(',',b.fexplanation)-1)

--when charindex('（',b.fexplanation) > 0 then substring(b.fexplanation,1, charindex('（',b.fexplanation)-1)

--when charindex(' ',b.fexplanation) > 0 then substring(b.fexplanation,1, charindex(' ',b.fexplanation)-1)

--else b.fexplanation end,

t1.fname ,t3.fnumber ,b.famountfor ,

case when b.fdc = 1 then b.famountfor else 0 end as '借方金額',case when b.fdc = 0 then b.famountfor else 0 end as '貸方金額',

case when b.fdc = 1 then b.famountfor else 0 end - case when b.fdc = 0 then b.famountfor else 0 end as '餘額'

from t_voucher a

inner join t_voucherentry b on a.fvoucherid = b.fvoucherid

inner join t_account t1 on b.faccountid = t1.faccountid

left join t_itemdetail t2 on b.fdetailid = t2.fdetailid

left join t_organization t3 on t2.f1 = t3.fitemid

where

a.fvoucherid in (select fvoucherid from t_voucherentry where faccountid = '1018' ) and t1.fname = '應收賬款'

and a.fexplanation <> '結轉匯兌損益'

--and t3.fnumber = '203'

) a-------

select * from (

select fdate,fyear,fpznum,fexplanation,

case

when charindex('.',seorderno) > 0 then substring(seorderno,1, charindex('.',seorderno)-1)

when charindex(' ',seorderno) > 0 then substring(seorderno,1, charindex(' ',seorderno)-1)

when charindex('餘',seorderno) > 0 then substring(seorderno,1, charindex('餘',seorderno)-1)

when charindex('部',seorderno) > 0 then substring(seorderno,1, charindex('部',seorderno)-1)

when charindex('訂',seorderno) > 0 then substring(seorderno,1, charindex('訂',seorderno)-1)

when charindex('全',seorderno) > 0 then substring(seorderno,1, charindex('全',seorderno)-1)

when charindex('未',seorderno) > 0 then substring(seorderno,1, charindex('未',seorderno)-1)

when charindex('樣',seorderno) > 0 then substring(seorderno,1, charindex('樣',seorderno)-1)

when charindex('收款',seorderno) > 0 then substring(seorderno, charindex('收款',seorderno),99)

else seorderno

end as fseorderno,

fname,fnumber,借方金額,貸方金額,餘額 from #pz

) aunion all

select max(fdate),2018,0,'',fseorderno,'小計',max(fnumber) as fnumber,sum(借方金額),sum(貸方金額),sum(餘額) from (

select fdate,fyear,fexplanation,