coba yang satu ini deh
<head>
<title></title>
</head>
<body bgcolor="#FFFFCC">
<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open strString
Set Session("oRs") = Server.CreateObject("ADODB.RecordSet")'
Session("oRs").ActiveConnection = oConn
Str = " select a.partid, "
str = str & " fgood = case when stocktransactypeid='OB' or "
str = str & " stocktransactypeid='NO' or"
str = str & " stocktransactypeid='RM' or"
str = str & " stocktransactypeid='RR' or"
str = str & " stocktransactypeid='AN' "
str = str & " Then sum(qtytransac)"
str = str & " end, "
str = str & " out = case when stocktransactypeid='AP' or"
str = str & " stocktransactypeid='ID' or"
str = str & " stocktransactypeid='IM' or"
str = str & " stocktransactypeid='IN' or"
str = str & " stocktransactypeid='ST' "
str = str & " Then sum(qtytransac)"
str = str & " end, "
str = str & " retur = case when stocktransactypeid='RD' "
str = str & " Then sum(qtytransac)"
str = str & " end, "
str = str & " reject =case when stocktransactypeid='RT' "
str = str & " Then sum(qtytransac)"
str = str & " end,"
str = str & " b.partdesc "
str = str & " from stocktransac a,"
str = str & " item b"
str = str & " where "
str = str & " datepart(dd,stocktransacdate)=datepart(dd,getdate()) and "
str = str & " datepart(mm,stocktransacdate)=datepart(mm,getdate()) and "
str = str & " datepart(yyyy,stocktransacdate)=datepart(yyyy,getdate()) and
"
str = str & " a.partid=b.partid"
str = str & " group by "
str = str & " a.partid,stocktransactypeid,"
str = str & " b.partdesc"
Session("oRs").open (str)
ReportName = "dailymaterial.rpt"
if not IsObject (Session("oApp")) then
Set Session("oApp") = Server.CreateObject("Crystal.CRPE.Application")
end if
Path = Request.ServerVariables("PATH_TRANSLATED")
while (Right(Path,1) <> "\" and Len(Path) <> 0)
iLen = Len(Path) - 1
Path = left(Path, iLen)
wend
if IsObject(Session("oRpt")) then
set Session("oRpt") = nothing
end if
Set Session("oRpt") = Session("oApp").OpenReport(Path & reportname,1)
Set Session("oRptOptions") = Session("oRpt").options
Session("oRptOptions").MorePrintEngineErrorMessages = 0
Session("oRpt").DiscardSavedData
Set Database = Session("oRpt").Database
Set Tables = Database.Tables
Set Table1 = Tables.Item(1)
Table1.SetPrivateData 3, Session("oRs")
On Error Resume Next
Session("oRpt").ReadRecords
if Err.Number <> 0 then
Response.Write "No Record Found"
else
if IsObject(Session("oPageEngine")) then
Set Session("oPageEngine") = nothing
end if
Set Session("oPageEngine") = Session("oRpt").PageEngine
%>
<!-- #include file="SmartViewerActiveX.asp" -->
<%
end if
%>
tapi sebelumnya desain layout di crystal report designer
Hendikin
ASP Programmer / WEB Developer
Indonusa Computer System
Jln. M.H. Thamrin No.53 Lt 18
Jakarta Pusat 10350
HP : 0816-1369935
Ph : 021-3142356
-----Original Message-----
From: Irvan [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, December 06, 2000 8:34 PM
To: [EMAIL PROTECTED]
Subject: Re: [MasterWeb] perintah print di ASP
Sorry freinds belum dicoba......
Oh yach sekalian nanya kalo mau bikin report dengan Seagate Crystal Report
lalu datanya dengan ASP,
Bagaimana yach caranya....................
Engky wrote :
> bukannya script itu sendiri akan memunculkan jendela print..dimana kita
> bisa menentukan jenis kertas yang akan digunakan,printernya apa.
> belum dicoba ya ;-)....coba aja dulu...soalnya saya jalan koq menu
> printnya..
> wassalam
> >
Analisa Web Berhadiah GRATIS Webhosting 30 MB + Domain :
http://www.master.web.id/cgi-bin/webkritik/nopember.cgi
-------[ Master Web Indonesia - www.master.web.id ] -------
Moderator : [EMAIL PROTECTED]
Berlangganan : [EMAIL PROTECTED]
Stop Berlangganan : [EMAIL PROTECTED]
-----------------------------------------------------------
Analisa Web Berhadiah GRATIS Webhosting 30 MB + Domain :
http://www.master.web.id/cgi-bin/webkritik/nopember.cgi
-------[ Master Web Indonesia - www.master.web.id ] -------
Moderator : [EMAIL PROTECTED]
Berlangganan : [EMAIL PROTECTED]
Stop Berlangganan : [EMAIL PROTECTED]
-----------------------------------------------------------
