<%
response.Charset="ISO-8859-7"
user=request.cookies("user")
'user="col_glyfada"
theDate=cstr(request.form("thedate"))
shp_id=request.form("shp_id")
'response.write thedate
'response.end
if len(theDate1)=10 then
myd1="'"&left(theDate1,4)&mid(theDate1,6,2)&right(theDate1,2)&"'"
else
myd1="convert(varchar(10),getdate(),112)"
end if
' DB Connection
' -------------
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "Driver=SQL Server;Server=apollon;Database=po; UID=sa; PWD=CODEBLOCK"
if len(shp_id)>0 then
sqlstr="exec ipr2.dbo.sp_closetam " & shp_id & ", '" & theDate &"'"
' response.write thedate
' response.write myd1
' response.end
adocon.execute(sqlstr)
end if
sqlstr="select " & myd1 & " myd1, tam.* from ipr2.dbo.atl_tamday tam left join ipr2.dbo.shop shp on shp.id=tam.shp_id where tamdate=" & myd1 & " and username='" & user & "' and shp.isactive=1"
'response.write sqlstr
'response.end
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sqlstr, adoCon
if rs.eof then
sqlstr=""
sqlstr = sqlstr &"select "
sqlstr = sqlstr &" isnull(ftr.ftrdate,getdate()) tamdate "
sqlstr = sqlstr &" , " & myd1 & " myd1 "
sqlstr = sqlstr &" ,shp.id shp_id "
sqlstr = sqlstr &" ,cast(sum(isnull(itr.outputquantmode*itr.primaryqty,0)) as int) qout "
sqlstr = sqlstr &" ,cast(sum(isnull(case when itr.outputquantmode*itr.primaryqty < 0 then -itr.outputquantmode*itr.primaryqty end,0)) as int) ret "
sqlstr = sqlstr &" ,count(distinct case itr.tnacode when 14 then ftr.tradecode end)-count(distinct case when (itr.tnacode=15 or itr.tnacode=16) then ftr.tradecode end) trn "
sqlstr = sqlstr &" ,cast(sum(isnull(itr.outputvalmode*itr.ltrnvalue,0)) as dec(10,2)) vout "
sqlstr = sqlstr &" ,cast(sum(isnull(ftl2.llinevalue*(ctr2.creditupd-ctr2.debitupd),0)) as dec(10,2)) depv "
sqlstr = sqlstr &" ,cast(sum(isnull(ftl.llinevalue*(ctr.creditupd-ctr.debitupd),0)) as dec(10,2)) turnover "
sqlstr = sqlstr &" ,cast(sum(isnull(itr.outputquantmode*itr.primaryqty*mtr.rtlprice,0)) as dec(10,2)) gross "
sqlstr = sqlstr &" ,cast(case sum(isnull(itr.outputquantmode*itr.primaryqty*mtr.rtlprice,0)) when 0 then 0 else 100-((sum(isnull(itr.outputvalmode*itr.ltrnvalue,0))*1.19)/sum(isnull(itr.outputquantmode*itr.primaryqty*mtr.rtlprice,0)))*100 end as dec(10,2)) disc "
sqlstr = sqlstr &" ,cast(sum(isnull(case when ftr.source in (1,3) then ftr.totamount end,0)) as dec(10,2)) expenses "
sqlstr = sqlstr &" ,cast(sum(isnull(bat.trnvalue,0)) as dec(10,2)) deposit "
sqlstr = sqlstr &" ,cast(sum(isnull(case ftl.trnid when 100 then ftl.llinevalue*(ctr.creditupd-ctr.debitupd) end ,0)) as dec(10,2)) cash "
sqlstr = sqlstr &" ,cast(sum(isnull(case when ftl.trnid not in (100,124) then ftl.llinevalue*(ctr.creditupd-ctr.debitupd) end ,0)) as dec(10,2)) cards "
sqlstr = sqlstr &" ,cast(sum(isnull(case when ftl.trnid in (124,113) then ftl.llinevalue*(ctr.creditupd-ctr.debitupd) end,0)) as dec(10,2)) vouchers "
sqlstr = sqlstr &" ,cast(sum(isnull(case when ftl.trnid in (201,101,107) then ftl.llinevalue*(ctr.creditupd-ctr.debitupd) end,0)) as dec(10,2)) crddin "
sqlstr = sqlstr &" ,cast(sum(isnull(case when ftl.trnid in (202,102,108) then ftl.llinevalue*(ctr.creditupd-ctr.debitupd) end,0)) as dec(10,2)) crdeth "
sqlstr = sqlstr &" ,cast(sum(isnull(case when ftl.trnid in (205,109) then ftl.llinevalue*(ctr.creditupd-ctr.debitupd) end,0)) as dec(10,2)) crdxpr_p "
sqlstr = sqlstr &" ,cast(sum(isnull(case when ftl.trnid in (203,103) then ftl.llinevalue*(ctr.creditupd-ctr.debitupd) end,0)) as dec(10,2)) crdxpr_m "
sqlstr = sqlstr &" ,cast(sum(isnull(case when ftl.trnid in (204,106,112) then ftl.llinevalue*(ctr.creditupd-ctr.debitupd) end,0)) as dec(10,2)) crdcti "
sqlstr = sqlstr &" ,cast(sum(isnull(case when ftl.trnid in (206,105,111,119) then ftl.llinevalue*(ctr.creditupd-ctr.debitupd) end,0)) as dec(10,2)) crdeur "
sqlstr = sqlstr &" ,cast(sum(isnull(case when ftl.trnid in (208,110) then ftl.llinevalue*(ctr.creditupd-ctr.debitupd) end,0)) as dec(10,2)) crdpis_p "
sqlstr = sqlstr &" ,cast(sum(isnull(case when ftl.trnid in (207) then ftl.llinevalue*(ctr.creditupd-ctr.debitupd) end,0)) as dec(10,2)) crdpis_m "
sqlstr = sqlstr &" ,cast(isnull((select top 1 ncash from ipr2.dbo.atl_tamday where shp_id=shp.id order by tamdate desc),0) as dec(10,2)) pcash "
sqlstr = sqlstr &" ,cast(isnull((select top 1 ncash from ipr2.dbo.atl_tamday where shp_id=shp.id order by tamdate desc),0)+sum(isnull(case ftl.trnid when 100 then ftl.llinevalue*(ctr.creditupd-ctr.debitupd) end,0))-sum(isnull(case when ftr.source in (1,3) then ftr.totamount end,0))-isnull(sum(bat.trnvalue),0) as dec(10,2)) ncash "
sqlstr = sqlstr &"from "
sqlstr = sqlstr &" ipr2.dbo.shop shp "
sqlstr = sqlstr &" left join po.dbo.fintrade ftr on shp.braid=ftr.braid and ftr.ftrdate=" & myd1 & " "
sqlstr = sqlstr &" left join po.dbo.itemtrans itr on itr.ftrid=ftr.id and itr.updmode=1 "
sqlstr = sqlstr &" left join po.dbo.storetradelines stl on stl.id=itr.stlid "
sqlstr = sqlstr &" left join po.dbo.material mtr on itr.iteid=mtr.id "
sqlstr = sqlstr &" left join po.dbo.fundtradelines ftl on ftl.ftrid=ftr.id and ftl.source=0 "
sqlstr = sqlstr &" left join po.dbo.customertrans ctr on ctr.ftrid=ftr.id and ctr.perid=ftl.traderid and ctr.braid=shp.braid "
sqlstr = sqlstr &" left join po.dbo.bankacctrans bat on bat.ftrid=ftr.id and ftr.source=2 "
sqlstr = sqlstr &" left join po.dbo.fincustdoctype fdt on fdt.codeid=ftr.fdtid and fdt.comid=ftr.comid "
sqlstr = sqlstr &" left join po.dbo.fundtradelines ftl2 on ftl2.ftrid=ftridpayment and fdt.tnacode=7 "
sqlstr = sqlstr &" left join po.dbo.customertrans ctr2 on ctr2.ftrid=ftr.ftridpayment and ctr2.perid=ftl2.traderid and ctr2.braid=ftr.braid "
sqlstr = sqlstr &"where "
sqlstr = sqlstr &" shp.isactive=1 "
sqlstr = sqlstr &" and shp.username='"&user&"' "
sqlstr = sqlstr &"group by "
sqlstr = sqlstr &" shp.id "
sqlstr = sqlstr &" ,ftr.ftrdate "
rs.close
rs.open sqlstr, adoCon
if not rs.eof then
theDate1 = left(rs("myd1"),4) & "/" & mid(rs("myd1"),5,2) & "/" & right(rs("myd1"),2)
end if
else
disabled="disabled"
end if
'response.write sqlstr
'response.end
'set rs=Server.CreateObject("ADODB.Recordset")
'ncash=cdbl(rs("pcash"))-cdbl(rs("deposit"))-cdbl(rs("expenses"))+cdbl(rs("cash"))
%>
Prince Oliver - Ταμείο