IT Manager

CodeCharge Studio

Web Reports

Visually create Web Reports in PHP, ASP, .NET, Java, Perl and ColdFusion.
CodeCharge.com

YesSoftware Forums -> Help/Consulting -> Help - Jobs Wanted

IT Manager

Author

Message

Travis

Posted: 02/16/2005, 10:07 AM

I have a report that was custom built for us and I am wanting to learn how to create them, but to start with I just need to get a report converted to CCS and see what it looks like, if possible. I can't post the report here because it utilizes 4 .asp files (vbscript) and want to see if anyone is interested in giving me a bid. Just so you know ahead of time. I would not be able to send the database that the report connects to because it is over 650 tables (sql Server) but could send samples of a current report and such. Thanks. I will post the code from one of the files below and see how it goes:

<%@ Language=VBScript %>



<%
REM Dim Variables
rem DIM IntLaborHours,IntWOID,IntWOID2,IntSumLaborID
CreateDBConnection()

REM Get Data
CommandObject.CommandText = "wip_actvsest"
CommandObject.CommandType = 4
Set RSQry = CommandObject.Execute()

CloseDBConnection()

strTitle = "Actual vs Estimated " & date
%>
<%
'The const's are For the colors and the Flag is needed
Const sPrimaryColor = "WHITE"
Const sSecondaryColor = "CCCCCC"
Dim bColorFlag
Dim lCounter
'This function does all the work For you.
function LineColor()
bColorFlag = Not bColorFlag
if bColorFlag Then
LineColor = sPrimaryColor
Else
LineColor = sSecondaryColor
End if
End function
%>
<html>
<head>
<title>Picosecond Pulse Labs, Work Order Report <%=strTitle%></title>
<link REL="STYLESHEET" TYPE="text/css" HREF="/include/styles.css">
</head>
<body BGCOLOR="white" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0">
<table width="800" border="0" cellpadding="0" cellspacing="0" ID="Table1">



<tr>
<td background="/images/left_vert18x8.jpg" width="18"></td>
<td width="10"> </td>

<td width="772">
<table width="772" cellpadding="2" cellspacing="0" border="0" ID="Table2">
<tr>
<td colspan="3"> </td>
</tr>
<tr>

<td width="15"> </td>
<td valign="top" align="left">

<table width="100%" cellpadding="0" cellspacing="0" border="0" ID="Table3">
<tr>
<td>
Inventory Transactions with Actual Vs Estimated Cost
<hr size="2" width="100%" color="#6B0CAA" align="left">
</td>
</tr>
<tr>
<td>
<a href="estvsact_print.asp">View printable version</a>
</td>
</tr>
<%If not RSQry.eof then%>
<tr>
<td>
<table width="100%" cellpadding="4" cellspacing="0" border="1" bordercolor="black" ID="Table4">
<tr bgcolor="999999">
<td valign="top" width="6%">Trans ID</td>
<td valign="top" width="15%">WO_BASE_ID</td>
<td valign="top" width="6%">PART_ID</td>
<td valign="top" width="6%">ENG MSTR QTY</td>
<td valign="top" width="6%">QTY</td>
<td valign="top" width="24%">Trans_Date</td>
<td valign="top" width="6%">Act Total</td>
<td valign="top" width="15%">Est Total</td>
<td valign="top" width="6%">Material Cost</td>
<td valign="top" width="10%">Est. Material Cost</td>
<td valign="top" width="6%">Labor Cost</td>
<td valign="top" width="6%">Est. Labor Cost</td>
<td valign="top" width="6%">Service Cost</td>
<td valign="top" width="6%">Est. Service Cost</td>
<td valign="top" width="6%">Burden Cost</td>
<td valign="top" width="6%">Est. Burden Cost</td>
<td valign="top" width="6%">Unit Cost</td>
<td valign="top" width="6%">Est. Unit Cost</td>
<td valign="top" width="6%">Variance</td>
<td valign="top" width="6%">Percentage of Estimate</td>
</tr>
<%

DO while not RSQry.eof

TRANS_ID=RSQry("TRANS_ID")
WORKORDER_BASE_ID=RSQry("WORKORDER_BASE_ID")
PART_ID= RSQry("PART_ID")
ENG_MASTER_QTY= RSQry("ENG")
QTY= RSQry("QTY")
Trans_Date= RSQry("Trans_Date")
Act_Total= RSQry("Act_Total")
Est_Total= RSQry("Est_Total")
ACT_MATERIAL_COST = RSQry("ACT_MATERIAL_COST")
EST_MATERIAL_COST= RSQry("EST_MATERIAL_COST")
ACT_LABOR_COST= RSQry("ACT_LABOR_COST")
EST_LABOR_COST= RSQry("EST_LABOR_COST")
ACT_SERVICE_COST= RSQry("ACT_SERVICE_COST")
EST_SERVICE_COST=RSQry("EST_SERVICE_COST")
ACT_BURDEN_COST=RSQry("ACT_BURDEN_COST")
EST_BURDEN_COST=RSQry("EST_BURDEN_COST")
Variance=RSQry("Variance")
Act_Unit_Cost=RSQry("Act_Unit_Cost")
Est_Unit_Cost=RSQry("Est_Unit_Cost")
PERC_of_EST=RSQry("PERC_of_EST")

Response.write "<tr bgcolor='" & LineColor & "' id='" & lCounter & "'><td>" & TRANS_ID & "</td><td>" & WORKORDER_BASE_ID & " </td><td>" & PART_ID & " </td><td>"
Response.write ENG_MASTER_QTY & " </td><td>" & QTY & " </td><td>" & Trans_Date & " </td><td>"
Response.write Act_Total & " </td><td>" & Est_Total & " </td><td>"
Response.write ACT_MATERIAL_COST & " </td><td>" & EST_MATERIAL_COST & " </td><td>" & ACT_LABOR_COST & " </td><td>"
Response.write EST_LABOR_COST & " </td><td>" & ACT_SERVICE_COST & " </td><td>" & EST_SERVICE_COST & " </td><td>"
Response.write ACT_BURDEN_COST & " </td><td>" & EST_BURDEN_COST & " </td><td>" & Act_Unit_Cost & " </td><td>"
Response.write Est_Unit_Cost & " </td><td>" & Variance & " </td><td>" & PERC_of_EST & " </td><t/r>"

RSQry.Movenext
loop
IF RSQry.Eof then
response.write "<tr><td Colspan=""7"" BGCOLOR=""#FFFFFF""> </td><td></td><td>" &"</td><td>" &"</td><td Colspan=""1"" BGCOLOR=""#FFFFFF""></td></tr>"
END IF
%>

</table>
</td>
</tr>
<% else
REM no assets exist%>
<tr>
<td>There are currently no records.

<hr size="2" width="100%" color="#6B0CAA">
</td>
</tr>
<tr><td> </td></tr>
<% end if%>
<tr><td> </td></tr>
</table>
</td>
</tr>
</table>
</td>

</tr>
</table>

</body>
</html>

Travis

Posted: 02/16/2005, 10:09 AM

That looks like it posted well so I will enclose the second part to the one. The other two files are for the database connection. So here is file 2 entitled estvsact_print.asp:
<%@ Language=VBScript %>
<% Response.ContentType = "application/vnd.ms-excel"
Response.Buffer = TRUE
%>



<%
REM Dim Variables

CreateDBConnection()

REM Get Data
CommandObject.CommandText = "wip_actvsest"
CommandObject.CommandType = 4
Set RSQry = CommandObject.Execute()

CloseDBConnection()

strTitle = "Actual vs Estimated Cost" & date
%>
<%
'The const's are For the colors and the Flag is needed
Const sPrimaryColor = "WHITE"
Const sSecondaryColor = "CCCCCC"
Dim bColorFlag
Dim lCounter
'This function does all the work For you.
function LineColor()
bColorFlag = Not bColorFlag
if bColorFlag Then
LineColor = sPrimaryColor
Else
LineColor = sSecondaryColor
End if
End function
%>
<html>
<head>
<title>Picosecond Pulse Labs, <%=strTitle%></title>
<link REL="STYLESHEET" TYPE="text/css" HREF="/include/styles.css">
</head>
<body BGCOLOR="white" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0">

<%If not RSQry.eof then%>
<table width="100%" cellpadding="4" cellspacing="0" border="1" bordercolor="black" ID="Table4">
<tr bgcolor="999999">
<td valign="top" width="6%">Trans ID</td>
<td valign="top" width="15%">WO_BASE_ID</td>
<td valign="top" width="6%">PART_ID</td>
<td valign="top" width="6%">ENG</td>
<td valign="top" width="6%">QTY</td>
<td valign="top" width="24%">Trans_Date</td>
<td valign="top" width="6%">Act Total</td>
<td valign="top" width="15%">Est Total</td>
<td valign="top" width="6%">Material </td>
<td valign="top" width="10%">Est. Material</td>
<td valign="top" width="6%">Labor</td>
<td valign="top" width="6%">Est. Labor</td>
<td valign="top" width="6%">Service </td>
<td valign="top" width="6%">Est. Service</td>
<td valign="top" width="6%">Burden </td>
<td valign="top" width="6%">Est. Burden</td>
<td valign="top" width="6%">Unit</td>
<td valign="top" width="6%">Est. Unit</td>
<td valign="top" width="6%">Variance</td>
<td valign="top" width="6%">% of Est</td>
</tr>
<%
DO while not RSQry.eof
TRANS_ID=RSQry("TRANS_ID")
WORKORDER_BASE_ID=RSQry("WORKORDER_BASE_ID")
PART_ID= RSQry("PART_ID")
ENG_MASTER_QTY= RSQry("ENG")
QTY= RSQry("QTY")
Trans_Date= RSQry("Trans_Date")
Act_Total= RSQry("Act_Total")
Est_Total= RSQry("Est_Total")
ACT_MATERIAL_COST = RSQry("ACT_MATERIAL_COST")
EST_MATERIAL_COST= RSQry("EST_MATERIAL_COST")
ACT_LABOR_COST= RSQry("ACT_LABOR_COST")
EST_LABOR_COST= RSQry("EST_LABOR_COST")
ACT_SERVICE_COST= RSQry("ACT_SERVICE_COST")
EST_SERVICE_COST=RSQry("EST_SERVICE_COST")
ACT_BURDEN_COST=RSQry("ACT_BURDEN_COST")
EST_BURDEN_COST=RSQry("EST_BURDEN_COST")
Variance=RSQry("Variance")
Act_Unit_Cost=RSQry("Act_Unit_Cost")
Est_Unit_Cost=RSQry("Est_Unit_Cost")
PERC_of_EST=RSQry("PERC_of_EST")

Response.write "<TR bgcolor='" & LineColor & "' id='" & lCounter & "'><td>" & TRANS_ID & "</td><td>" & WORKORDER_BASE_ID & " </td><td>" & PART_ID & " </td><td>"
Response.write ENG_MASTER_QTY & " </td><td>" & QTY & " </td><td>" & Trans_Date & " </td><td>"
Response.write Act_Total & " </td><td>" & Est_Total & " </td><td>"
Response.write ACT_MATERIAL_COST & " </td><td>" & EST_MATERIAL_COST & " </td><td>" & ACT_LABOR_COST & " </td><td>"
Response.write EST_LABOR_COST & " </td><td>" & ACT_SERVICE_COST & " </td><td>" & EST_SERVICE_COST & " </td><td>"
Response.write ACT_BURDEN_COST & " </td><td>" & EST_BURDEN_COST & " </td><td>" & Act_Unit_Cost & " </td><td>"
Response.write Est_Unit_Cost & " </td><td>" & Variance& " </td><td>" & PERC_of_EST & " </td><t/r>"

RSQry.Movenext
loop
IF RSQry.Eof then
rem response.write "<tr><td Colspan=""7"" BGCOLOR=""#FFFFFF""> </td><td></td><td>" &"</td><td>" &"</td><td Colspan=""1"" BGCOLOR=""#FFFFFF""></td></tr>"
END IF
%>

</table>
</td>
</tr>
<% else
REM no assets exist%>
<tr>
<td>There are currently no records.

<hr size="2" width="100%" color="#6B0CAA">
</td>
</tr>

<% end if%>

</table>
</td>
</tr>

</tr>
</table>
</body>
</html>

Graham Pearson

Posted: 02/17/2005, 2:24 PM

I have done reports with a program called OpenReports (www.
sourceforge.net/projects/oreports) which once installed allows you to
create PDF, HTML, Image and CVS reports on the fly. This is very easy
to intergrate into CCS as it is just a form to post variables to CCS.
2/16/2005 1:07:04 PM
Travis <Travis@forum.codecharge> wrote in message
<2142138bc8539d6@news.codecharge.com>

> I have a report that was custom built for us and I am wanting to
learn how to
> create them, but to start with I just need to get a report
converted to CCS and
> see what it looks like, if possible. I can't post the report here
because it
> utilizes 4 .asp files (vbscript) and want to see if anyone is
interested in
> giving me a bid. Just so you know ahead of time. I would not be
able to send
> the database that the report connects to because it is over 650
tables (sql
> Server) but could send samples of a current report and such.
Thanks. I will
> post the code from one of the files below and see how it goes:
>
> <%@ Language=VBScript %>
> 
> 
>
> <%
> REM Dim Variables
> rem DIM IntLaborHours,IntWOID,IntWOID2,IntSumLaborID
> CreateDBConnection()
>
> REM Get Data
> CommandObject.CommandText = "wip_actvsest"
> CommandObject.CommandType = 4
> Set RSQry = CommandObject.Execute()
>
> CloseDBConnection()
>
> strTitle = "Actual vs Estimated " & date
> %>
> <%
> 'The const's are For the colors and the Flag is needed
> Const sPrimaryColor = "WHITE"
> Const sSecondaryColor = "CCCCCC"
> Dim bColorFlag
> Dim lCounter
> 'This function does all the work For you.
> function LineColor()
> bColorFlag = Not bColorFlag
> if bColorFlag Then
> LineColor = sPrimaryColor
> Else
> LineColor = sSecondaryColor
> End if
> End function
> %>
> <html>
> <head>
> <title>Picosecond Pulse Labs, Work Order Report
<%=strTitle%></title>
> <link REL="STYLESHEET" TYPE="text/css" HREF="/include/styles.css">
> </head>
> <body BGCOLOR="white" topmargin="0" leftmargin="0" marginwidth="0"
> marginheight="0">
> <table width="800" border="0" cellpadding="0" cellspacing="0"
ID="Table1">
> 
> 
> 
> <tr>
> <td background="/images/left_vert18x8.jpg" width="18"></td>
> <td width="10"> </td>
> 
> <td width="772">
> <table width="772" cellpadding="2" cellspacing="0" border="0"
ID="Table2">
> <tr>
> <td colspan="3"> </td>
> </tr>
> <tr>
> 
> <td width="15"> </td>
> <td valign="top" align="left">
>
> <table width="100%" cellpadding="0" cellspacing="0"
border="0"
> ID="Table3">
> <tr>
> <td>
> Inventory Transactions with Actual Vs
Estimated
> Cost
> <hr size="2" width="100%" color="#6B0CAA" align="left">
> </td>
> </tr>
> <tr>
> <td>
> <a href="estvsact_print.asp">View printable version</a>
> </td>
> </tr>
> <%If not RSQry.eof then%>
> <tr>
> <td>
> <table width="100%" cellpadding="4" cellspacing="0"
border="1"
> bordercolor="black" ID="Table4">
> <tr bgcolor="999999">
> <td valign="top" width="6%">Trans
> ID</td>
> <td valign="top" width="15%"> size="1">WO_BASE_ID</td>
> <td valign="top" width="6%"> size="1">PART_ID</td>
> <td valign="top" width="6%">ENG MSTR
> QTY</td>
> <td valign="top" width="6%"> size="1">QTY</td>
> <td valign="top" width="24%"> size="1">Trans_Date</td>
> <td valign="top" width="6%">Act
> Total</td>
> <td valign="top" width="15%">Est
> Total</td>
> <td valign="top" width="6%">Material
> Cost</td>
> <td valign="top" width="10%">Est.
> Material Cost</td>
> <td valign="top" width="6%">Labor
> Cost</td>
> <td valign="top" width="6%">Est. Labor
> Cost</td>
> <td valign="top" width="6%">Service
> Cost</td>
> <td valign="top" width="6%">Est.
> Service Cost</td>
> <td valign="top" width="6%">Burden
> Cost</td>
> <td valign="top" width="6%">Est. Burden
> Cost</td>
> <td valign="top" width="6%">Unit
> Cost</td>
> <td valign="top" width="6%">Est. Unit
> Cost</td>
> <td valign="top" width="6%"> size="1">Variance</td>
> <td valign="top" width="6%">Percentage
> of Estimate</td>
> </tr>
> <%
>
> DO while not RSQry.eof
>
>
>
> TRANS_ID=RSQry("TRANS_ID")
> WORKORDER_BASE_ID=RSQry("WORKORDER_BASE_ID")
> PART_ID= RSQry("PART_ID")
> ENG_MASTER_QTY= RSQry("ENG")
> QTY= RSQry("QTY")
> Trans_Date= RSQry("Trans_Date")
> Act_Total= RSQry("Act_Total")
> Est_Total= RSQry("Est_Total")
> ACT_MATERIAL_COST = RSQry("ACT_MATERIAL_COST")
> EST_MATERIAL_COST= RSQry("EST_MATERIAL_COST")
> ACT_LABOR_COST= RSQry("ACT_LABOR_COST")
> EST_LABOR_COST= RSQry("EST_LABOR_COST")
> ACT_SERVICE_COST= RSQry("ACT_SERVICE_COST")
> EST_SERVICE_COST=RSQry("EST_SERVICE_COST")
> ACT_BURDEN_COST=RSQry("ACT_BURDEN_COST")
> EST_BURDEN_COST=RSQry("EST_BURDEN_COST")
> Variance=RSQry("Variance")
> Act_Unit_Cost=RSQry("Act_Unit_Cost")
> Est_Unit_Cost=RSQry("Est_Unit_Cost")
> PERC_of_EST=RSQry("PERC_of_EST")
>
>
>
> Response.write "<tr bgcolor='" & LineColor & "' id='" &
lCounter &
> "'><td>" & TRANS_ID &
"</td><td> size=""1""" & strFontColor & ">" & WORKORDER_BASE_ID & "
</td><td> size=""1""" & strFontColor & ">" & PART_ID & " </td><td> & strFontColor & ">"
> Response.write ENG_MASTER_QTY & " </td><td> strFontColor & ">" & QTY & " </td><td> ">" & Trans_Date & " </td><td>"
> Response.write Act_Total & " </td><td> strFontColor & ">" & Est_Total & " </td><td> strFontColor & ">"
> Response.write ACT_MATERIAL_COST & " </td><td> strFontColor & ">" & EST_MATERIAL_COST & " </td><td> strFontColor & ">" & ACT_LABOR_COST & " </td><td> strFontColor & ">"
> Response.write EST_LABOR_COST & " </td><td> strFontColor & ">" & ACT_SERVICE_COST & " </td><td> strFontColor & ">" & EST_SERVICE_COST & " </td><td> strFontColor & ">"
> Response.write ACT_BURDEN_COST & " </td><td> strFontColor & ">" & EST_BURDEN_COST & " </td><td> strFontColor & ">" & Act_Unit_Cost & " </td><td> strFontColor & ">"
> Response.write Est_Unit_Cost & " </td><td> strFontColor & ">" & Variance & " </td><td> strFontColor & ">" & PERC_of_EST & " </td><t/r>"
>
> RSQry.Movenext
> loop
> IF RSQry.Eof then
> response.write "<tr><td Colspan=""7""
> BGCOLOR=""#FFFFFF""> </td><td></td><td>"
> &"</td><td>" &"</td><td Colspan=""1""
> BGCOLOR=""#FFFFFF""></td></tr>"
> END IF
> %>
>
> </table>
> </td>
> </tr>
> <% else
> REM no assets exist%>
> <tr>
> <td>There are currently no records.

>
> <hr size="2" width="100%" color="#6B0CAA">
> </td>
> </tr>
> <tr><td> </td></tr>
> <% end if%>
> <tr><td> </td></tr>
> </table>
> </td>
> </tr>
> </table>
> </td>
> 
> </tr>
> </table>
> 
> </body>
> </html>
> ---------------------------------------
> Sent from YesSoftware forum
> http://forums.codecharge.com/

These are Community Forums for users to exchange information.
If you would like to obtain technical product help please visit http://support.yessoftware.com.

Internet Database

Visually create Web enabled database applications in minutes.
CodeCharge.com

Home | Search | Members | Register | Login