Nix
|
| Posted: 04/04/2003, 6:15 AM |
|
I have a project in asp that connects to a mysql database.
The person enters the Month a price, a second price, and a third price. What I want one the grid is a view of all of these things plus a field that says "total". This field would add all the numbers that are entered for the month and display them. How would I go about this?
|
|
|
 |
GreggB
|
| Posted: 04/04/2003, 9:09 AM |
|
Nix
If you are using CCS 2.0.5.6, there is an example in Help under:
Examples & Techniques -> Programming -> Simple Report with Total
Maybe this will help…
GreggB
|
|
|
|
Nix
|
| Posted: 04/04/2003, 11:14 AM |
|
I have gone trough it and it is not what I need. What I need is a way to "add this field, this field, and this field, and put the total in this field!
|
|
|
|
Nix
|
| Posted: 04/04/2003, 11:49 AM |
|
Here is the code. It's long. What I want to do is when I hit the insert or update button add the value in the fields and place that sum into the line_total colum!
<%
'Include Common Files @1-D6EDE132
%>
<!-- #INCLUDE FILE=".\Common.asp"-->
<!-- #INCLUDE FILE=".\Cache.asp" -->
<!-- #INCLUDE FILE=".\Template.asp" -->
<!-- #INCLUDE FILE=".\Sorter.asp" -->
<!-- #INCLUDE FILE=".\Navigator.asp" -->
<%
'End Include Common Files
'Initialize Page @1-13615DD0
' Variables
Dim PathToRoot, ScriptPath
Dim FileName
Dim Redirect
Dim Tpl, HTMLTemplate
Dim TemplateFileName
Dim ComponentName
Dim PathToCurrentPage
' Events
Dim CCSEvents
Dim CCSEventResult
' Connections
Dim DBConnection1
' Page controls
Dim merp_figures
Dim merp_figures1
Redirect = ""
TemplateFileName = "merp_figuresRecord.html"
Set CCSEvents = CreateObject("Scripting.Dictionary")
PathToCurrentPage = "./"
FileName = "merp_figuresRecord.asp"
PathToRoot = "./"
ScriptPath = Left(Request.ServerVariables("PATH_TRANSLATED"), Len(Request.ServerVariables("PATH_TRANSLATED")) - Len(FileName))
'End Initialize Page
'Authenticate User @1-3A3D5059
CCSecurityRedirect "3", Empty
'End Authenticate User
'Initialize Objects @1-AC01B445
Set DBConnection1 = New clsDBConnection1
DBConnection1.Open
' Controls
Set merp_figures = New clsGridmerp_figures
Set merp_figures1 = new clsRecordmerp_figures1
merp_figures.Initialize DBConnection1
merp_figures1.Initialize DBConnection1
CCSEventResult = CCRaiseEvent(CCSEvents, "AfterInitialize", Nothing)
'End Initialize Objects
'Execute Components @1-7DD87288
merp_figures1.Operation
'End Execute Components
'Go to destination page @1-6D35F4FD
If NOT ( Redirect = "" ) Then
UnloadPage
Response.Redirect Redirect
End If
'End Go to destination page
'Initialize HTML Template @1-0155E1BE
CCSEventResult = CCRaiseEvent(CCSEvents, "OnInitializeView", Nothing)
Set HTMLTemplate = new clsTemplate
Set HTMLTemplate.Cache = TemplatesRepository
HTMLTemplate.LoadTemplate ScriptPath & TemplateFileName
Set Tpl = HTMLTemplate.Block("main")
CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeShow", Nothing)
'End Initialize HTML Template
'Show Page @1-55A69283
merp_figures.Show Tpl
merp_figures1.Show Tpl
HTMLTemplate.PParse "main", False
'End Show Page
'Unload Page @1-CB210C62
UnloadPage
Set Tpl = Nothing
Set HTMLTemplate = Nothing
'End Unload Page
'UnloadPage Sub @1-2688D583
Sub UnloadPage()
CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeUnload", Nothing)
If DBConnection1.State = adStateOpen Then _
DBConnection1.Close
Set DBConnection1 = Nothing
Set merp_figures = Nothing
Set merp_figures1 = Nothing
End Sub
'End UnloadPage Sub
Class clsGridmerp_figures 'merp_figures Class @3-062837F9
'merp_figures Variables @3-E8584A43
' Public variables
Public ComponentName, CCSEvents
Public Visible, Errors
Public DataSource, PageSize
Public PageNumber
Public Command
Public TemplateBlock
Public ActiveSorter, SortingDirection
Public Recordset
Private CCSEventResult
' Grid Controls
Public StaticControls, RowControls
Dim merp_figures_fd_Month
Dim merp_figures_merp_setup
Dim merp_figures_ann_fee
Dim merp_figures_emp_fees
Dim merp_figures_pop_ann_fee
Dim merp_figures_Deduc_reimburs
Dim merp_figures_line_total
Dim fd_Month
Dim merp_setup
Dim ann_fee
Dim emp_fees
Dim pop_ann_fee
Dim Deduc_reimburs
Dim line_total
Dim merp_figures_Insert
Dim merp_figures_Navigator
'End merp_figures Variables
'merp_figures Class_Initialize Event @3-096E1177
Private Sub Class_Initialize()
ComponentName = "merp_figures"
Visible = True
Set CCSEvents = CreateObject("Scripting.Dictionary")
Set Errors = New clsErrors
Set DataSource = New clsmerp_figuresDataSource
Set Command = New clsCommand
PageSize = CCGetParam(ComponentName & "PageSize", Empty)
If IsNumeric(PageSize) And Len(PageSize) > 0 Then
If PageSize=0 Then Errors.AddError("(CCS06) Invalid page size.")
End If
If NOT IsNumeric(PageSize) OR IsEmpty(PageSize) Then _
PageSize = 20 _
Else _
PageSize = CInt(PageSize)
PageNumber = CInt(CCGetParam(ComponentName & "Page", 1))
ActiveSorter = CCGetParam("merp_figuresOrder", Empty)
SortingDirection = CCGetParam("merp_figuresDir", Empty)
If NOT(SortingDirection = "ASC" OR SortingDirection = "DESC") Then _
SortingDirection = Empty
Set fd_Month = CCCreateControl(ccsLink, "fd_Month", "fd_Month", ccsText, Empty, CCGetRequestParam("fd_Month", ccsGet))
Set merp_setup = CCCreateControl(ccsLabel, "merp_setup", "merp_setup", ccsInteger, Empty, CCGetRequestParam("merp_setup", ccsGet))
Set ann_fee = CCCreateControl(ccsLabel, "ann_fee", "ann_fee", ccsInteger, Empty, CCGetRequestParam("ann_fee", ccsGet))
Set emp_fees = CCCreateControl(ccsLabel, "emp_fees", "emp_fees", ccsInteger, Empty, CCGetRequestParam("emp_fees", ccsGet))
Set pop_ann_fee = CCCreateControl(ccsLabel, "pop_ann_fee", "pop_ann_fee", ccsInteger, Empty, CCGetRequestParam("pop_ann_fee", ccsGet))
Set Deduc_reimburs = CCCreateControl(ccsLabel, "Deduc_reimburs", "Deduc_reimburs", ccsInteger, Empty, CCGetRequestParam("Deduc_reimburs", ccsGet))
Set line_total = CCCreateControl(ccsLabel, "line_total", "line_total", ccsInteger, Empty, CCGetRequestParam("line_total", ccsGet))
Set merp_figures_fd_Month = CCCreateSorter("merp_figures_fd_Month", Me, FileName)
Set merp_figures_merp_setup = CCCreateSorter("merp_figures_merp_setup", Me, FileName)
Set merp_figures_ann_fee = CCCreateSorter("merp_figures_ann_fee", Me, FileName)
Set merp_figures_emp_fees = CCCreateSorter("merp_figures_emp_fees", Me, FileName)
Set merp_figures_pop_ann_fee = CCCreateSorter("merp_figures_pop_ann_fee", Me, FileName)
Set merp_figures_Deduc_reimburs = CCCreateSorter("merp_figures_Deduc_reimburs", Me, FileName)
Set merp_figures_line_total = CCCreateSorter("merp_figures_line_total", Me, FileName)
Set merp_figures_Insert = CCCreateControl(ccsLink, "merp_figures_Insert", "merp_figures_Insert", ccsText, Empty, CCGetRequestParam("merp_figures_Insert", ccsGet))
Set merp_figures_Navigator = CCCreateNavigator(ComponentName, "merp_figures_Navigator", FileName, 10, tpSimple)
End Sub
'End merp_figures Class_Initialize Event
'merp_figures Initialize Method @3-2AEA3975
Sub Initialize(objConnection)
If NOT Visible Then Exit Sub
Set DataSource.Connection = objConnection
DataSource.PageSize = PageSize
DataSource.SetOrder ActiveSorter, SortingDirection
DataSource.AbsolutePage = PageNumber
End Sub
'End merp_figures Initialize Method
'merp_figures Class_Terminate Event @3-E1528F98
Private Sub Class_Terminate()
Set DataSource = Nothing
Set Command = Nothing
Set Errors = Nothing
End Sub
'End merp_figures Class_Terminate Event
'merp_figures Show Method @3-D46BED33
Sub Show(Tpl)
If NOT Visible Then Exit Sub
Dim RecordCounter, ShownRecords
Dim RowBlock
With DataSource
End With
CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeSelect", Me)
Set Recordset = DataSource.Open(Command)
Set TemplateBlock = Tpl.Block("Grid " & ComponentName)
Set RowBlock = TemplateBlock.Block("Row")
Set StaticControls = CCCreateCollection(TemplateBlock, Null, ccsParseOverwrite, _
Array(merp_figures_fd_Month, merp_figures_merp_setup, merp_figures_ann_fee, merp_figures_emp_fees, merp_figures_pop_ann_fee, merp_figures_Deduc_reimburs, merp_figures_line_total, merp_figures_Insert, merp_figures_Navigator))
Set RowControls = CCCreateCollection(RowBlock, Null, ccsParseAccumulate, _
Array(fd_Month, merp_setup, ann_fee, emp_fees, pop_ann_fee, Deduc_reimburs, line_total))
CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeShow", Me)
If NOT Visible Then Exit Sub
Errors.AddErrors DataSource.Errors
If Errors.Count > 0 Then
TemplateBlock.HTML = CCFormatError("Grid merp_figures", Errors)
Else
' Show NoRecords block if no records are found
If Recordset.EOF Then
TemplateBlock.Block("NoRecords").Parse ccsParseOverwrite
End If
While NOT Recordset.EOF AND ShownRecords < PageSize
emp_fees.Value = "0.00"
fd_Month.Value = Recordset.Fields("fd_Month")
fd_Month.Parameters = CCGetQueryString("QueryString", Array("ccsForm"))
fd_Month.Parameters = CCAddParam(fd_Month.Parameters, "ID", Recordset.Fields("fd_Month_param1"))
fd_Month.Page = "merp_figuresRecord.asp"
merp_setup.Value = Recordset.Fields("merp_setup")
ann_fee.Value = Recordset.Fields("ann_fee")
emp_fees.Value = Recordset.Fields("emp_fees")
pop_ann_fee.Value = Recordset.Fields("pop_ann_fee")
Deduc_reimburs.Value = Recordset.Fields("Deduc_reimburs")
line_total.Value = Recordset.Fields("line_total")
CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeShowRow", Me)
RowControls.Show
Recordset.MoveNext
ShownRecords = ShownRecords + 1
Wend
merp_figures_Insert.Parameters = CCGetQueryString("QueryString", Array("ID", "ccsForm"))
merp_figures_Insert.Page = "merp_figuresRecord.asp"
merp_figures_Navigator.SetDataSource Recordset
StaticControls.Show
End If
End Sub
'End merp_figures Show Method
End Class 'End merp_figures Class @3-A61BA892
Class clsmerp_figuresDataSource 'merp_figuresDataSource Class @3-6970AC5D
'DataSource Variables @3-41CF1C05
Public Errors, Connection, Parameters, CCSEvents
Public Recordset
Public SQL, CountSQL, Order, Where, Orders
Public RecordsCount
Public PageSize
Public PageCount
Public AbsolutePage
Public Fields
Dim WhereParameters
Public AllParamsSet
Private CurrentOperation
Private CCSEventResult
' Datasource fields
Public fd_Month
Public fd_Month_param1
Public merp_setup
Public ann_fee
Public emp_fees
Public pop_ann_fee
Public Deduc_reimburs
Public line_total
'End DataSource Variables
'DataSource Class_Initialize Event @3-1E0A64F5
Private Sub Class_Initialize()
Set CCSEvents = CreateObject("Scripting.Dictionary")
Set Fields = New clsFields
Set Recordset = New clsDataSource
Set Errors = New clsErrors
AllParamsSet = True
Set fd_Month = CCCreateField("fd_Month", "m_fd_Month", ccsText, Empty, Recordset)
Set fd_Month_param1 = CCCreateField("fd_Month_param1", "m_ID", ccsText, Empty, Recordset)
Set merp_setup = CCCreateField("merp_setup", "m_merp_setup", ccsInteger, Empty, Recordset)
Set ann_fee = CCCreateField("ann_fee", "m_ann_fee", ccsInteger, Empty, Recordset)
Set emp_fees = CCCreateField("emp_fees", "m_emp_fees", ccsInteger, Empty, Recordset)
Set pop_ann_fee = CCCreateField("pop_ann_fee", "m_pop_ann_fee", ccsInteger, Empty, Recordset)
Set Deduc_reimburs = CCCreateField("Deduc_reimburs", "m_Deduc_reimburs", ccsInteger, Empty, Recordset)
Set line_total = CCCreateField("line_total", "m_line_total", ccsInteger, Empty, Recordset)
Fields.AddFields Array(fd_Month, fd_Month_param1, merp_setup, ann_fee, emp_fees, pop_ann_fee, Deduc_reimburs, line_total)
Orders = Array( _
Array("merp_figures_fd_Month", "m.fd_Month", ""), _
Array("merp_figures_merp_setup", "m.merp_setup", ""), _
Array("merp_figures_ann_fee", "m.ann_fee", ""), _
Array("merp_figures_emp_fees", "m.emp_fees", ""), _
Array("merp_figures_pop_ann_fee", "m.pop_ann_fee", ""), _
Array("merp_figures_Deduc_reimburs", "m.Deduc_reimburs", ""), _
Array("merp_figures_line_total", "m.line_total", ""))
SQL = "SELECT m.fd_Month AS m_fd_Month, m.ID AS m_ID, m.merp_setup AS m_merp_setup, m.ann_fee AS m_ann_fee, m.emp_fees AS m_emp_fees, m.pop_ann_fee AS m_pop_ann_fee, m.Deduc_reimburs AS m_Deduc_reimburs, m.line_total AS m_line_total " & _
"FROM merp_figures m"
CountSQL = "SELECT COUNT(*) " & _
"FROM merp_figures m"
Where = ""
Order = "m.fd_Month"
End Sub
'End DataSource Class_Initialize Event
'SetOrder Method @3-68FC9576
Sub SetOrder(Column, Direction)
Order = Recordset.GetOrder(Order, Column, Direction, Orders)
End Sub
'End SetOrder Method
'BuildTableWhere Method @3-98E5A92F
Public Sub BuildTableWhere()
End Sub
'End BuildTableWhere Method
'Open Method @3-D0383B6E
Function Open(Cmd)
Errors.Clear
Set Recordset.DataSource = Me
Set Cmd.Connection = Connection
Cmd.CommandOperation = cmdOpen
Cmd.PageSize = PageSize
Cmd.ActivePage = AbsolutePage
Cmd.CommandType = dsTable
CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeBuildSelect", Me)
Cmd.SQL = SQL
Cmd.CountSQL = CountSQL
Cmd.Where = Where
Cmd.OrderBy = Order
CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeExecuteSelect", Me)
If Errors.Count = 0 And CCSEventResult Then _
Set Recordset = Cmd.Exec(Errors)
CCSEventResult = CCRaiseEvent(CCSEvents, "AfterExecuteSelect", Me)
Set Recordset.FieldsCollection = Fields
Set Open = Recordset
End Function
'End Open Method
'DataSource Class_Terminate Event @3-41B4B08D
Private Sub Class_Terminate()
If Recordset.State = adStateOpen Then _
Recordset.Close
Set Recordset = Nothing
Set Parameters = Nothing
Set Errors = Nothing
End Sub
'End DataSource Class_Terminate Event
End Class 'End merp_figuresDataSource Class @3-A61BA892
Class clsRecordmerp_figures1 'merp_figures1 Class @30-26ADE502
'merp_figures1 Variables @30-7A056C13
' Public variables
Public ComponentName
Public HTMLFormAction
Public PressedButton
Public Errors
Public FormSubmitted
Public EditMode
Public Visible
Public Recordset
Public TemplateBlock
Public CCSEvents
Private CCSEventResult
Public InsertAllowed
Public UpdateAllowed
Public DataSource
Public Command
Public ValidatingControls
Public Controls
' Class variables
Dim fd_Month
Dim fd_MonthDataSource
Dim merp_setup
Dim ann_fee
Dim emp_fees
Dim pop_ann_fee
Dim Deduc_reimburs
Dim DoInsert
Dim DoUpdate
Dim DoCancel
Dim line_total
'End merp_figures1 Variables
'merp_figures1 Class_Initialize Event @30-8D1B7C31
Private Sub Class_Initialize()
Visible = True
Set Errors = New clsErrors
Set CCSEvents = CreateObject("Scripting.Dictionary")
Set DataSource = New clsmerp_figures1DataSource
Set Command = New clsCommand
InsertAllowed = True
UpdateAllowed = True
Dim Method
Dim OperationMode
If Visible Then
OperationMode = Split(Request.QueryString("ccsForm"), ":")
If UBound(OperationMode) > -1 Then
FormSubmitted = (OperationMode(0) = "merp_figures1")
End If
If UBound(OperationMode) > 0 Then
EditMode = (OperationMode(1) = "Edit")
End If
ComponentName = "merp_figures1"
Method = IIf(FormSubmitted, ccsPost, ccsGet)
Set fd_MonthDataSource = CCCreateDataSource(dsTable,DBConnection1, Array("SELECT merp_month, merp_month " & _
"FROM merp_months", "", ""))
Set fd_Month = CCCreateList(ccsListBox, "fd_Month", "fd_Month", ccsText, CCGetRequestParam("fd_Month", Method), fd_MonthDataSource)
fd_Month.BoundColumn = "merp_month"
fd_Month.TextColumn = "merp_month"
Set merp_setup = CCCreateControl(ccsTextBox, "merp_setup", "merp_setup", ccsInteger, Empty, CCGetRequestParam("merp_setup", Method))
Set ann_fee = CCCreateControl(ccsTextBox, "ann_fee", "ann_fee", ccsInteger, Empty, CCGetRequestParam("ann_fee", Method))
Set emp_fees = CCCreateControl(ccsTextBox, "emp_fees", "emp_fees", ccsInteger, Empty, CCGetRequestParam("emp_fees", Method))
Set pop_ann_fee = CCCreateControl(ccsTextBox, "pop_ann_fee", "pop_ann_fee", ccsInteger, Empty, CCGetRequestParam("pop_ann_fee", Method))
Set Deduc_reimburs = CCCreateControl(ccsTextBox, "Deduc_reimburs", "Deduc_reimburs", ccsInteger, Empty, CCGetRequestParam("Deduc_reimburs", Method))
Set DoInsert = CCCreateButton("DoInsert")
Set DoUpdate = CCCreateButton("DoUpdate")
Set DoCancel = CCCreateButton("DoCancel")
Set line_total = CCCreateControl(ccsHidden, "line_total", "line_total", ccsInteger, Empty, CCGetRequestParam("line_total", Method))
Set ValidatingControls = new clsControls
ValidatingControls.addControls Array(fd_Month, merp_setup, ann_fee, emp_fees, pop_ann_fee, Deduc_reimburs, line_total)
If Not FormSubmitted Then
If IsEmpty(line_total.Value) Then _
line_total.Value = ann_fee.Summ.Value + emp_fees.Summ.Value
End If
End If
End Sub
'End merp_figures1 Class_Initialize Event
'merp_figures1 Initialize Method @30-F12247EA
Sub Initialize(objConnection)
If NOT Visible Then Exit Sub
Set DataSource.Connection = objConnection
With DataSource
.Parameters("urlID") = CCGetRequestParam("ID", ccsGET)
End With
End Sub
'End merp_figures1 Initialize Method
'merp_figures1 Class_Terminate Event @30-32B847C9
Private Sub Class_Terminate()
Set Errors = Nothing
End Sub
'End merp_figures1 Class_Terminate Event
'merp_figures1 Validate Method @30-7AE5264D
Function Validate()
Dim Validation
Validation = ValidatingControls.Validate
CCSEventResult = CCRaiseEvent(CCSEvents, "OnValidate", Me)
Validate = Validation And (Errors.Count = 0)
End Function
'End merp_figures1 Validate Method
'merp_figures1 Operation Method @30-34EDF534
Sub Operation()
If NOT ( Visible AND FormSubmitted ) Then Exit Sub
If FormSubmitted Then
PressedButton = IIf(EditMode, "DoUpdate", "DoInsert")
If Not IsEmpty(CCGetParam("DoInsert", Empty)) Then
PressedButton = "DoInsert"
ElseIf Not IsEmpty(CCGetParam("DoUpdate", Empty)) Then
PressedButton = "DoUpdate"
ElseIf Not IsEmpty(CCGetParam("DoCancel", Empty)) Then
PressedButton = "DoCancel"
End If
End If
Redirect = "merp_figuresRecord.asp?" & CCGetQueryString("QueryString", Array("ccsForm", "DoInsert", "DoUpdate", "DoCancel"))
If PressedButton = "DoCancel" Then
If NOT DoCancel.OnClick Then
Redirect = ""
End If
ElseIf Validate() Then
If PressedButton = "DoInsert" Then
If NOT DoInsert.OnClick() OR NOT InsertRow() Then
Redirect = ""
End If
ElseIf PressedButton = "DoUpdate" Then
If NOT DoUpdate.OnClick() OR NOT UpdateRow() Then
Redirect = ""
End If
End If
Else
Redirect = ""
End If
End Sub
'End merp_figures1 Operation Method
'merp_figures1 InsertRow Method @30-F7F275C0
Function InsertRow()
CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeInsert", Me)
If NOT InsertAllowed Then InsertRow = False : Exit Function
DataSource.fd_Month.Value = fd_Month.Value
DataSource.merp_setup.Value = merp_setup.Value
DataSource.ann_fee.Value = ann_fee.Value
DataSource.emp_fees.Value = emp_fees.Value
DataSource.pop_ann_fee.Value = pop_ann_fee.Value
DataSource.Deduc_reimburs.Value = Deduc_reimburs.Value
DataSource.line_total.Value = line_total.Value
DataSource.Insert(Command)
CCSEventResult = CCRaiseEvent(CCSEvents, "AfterInsert", Me)
If DataSource.Errors.Count > 0 Then
PrintDBError "Record " & ComponentName & " / Insert Operation", DataSource.Connection.LastSQL, DataSource.Errors.ToString()
DataSource.Errors.Clear
Errors.AddError "Database command error."
End If
InsertRow = (Errors.Count = 0)
End Function
'End merp_figures1 InsertRow Method
'merp_figures1 UpdateRow Method @30-411E65B6
Function UpdateRow()
CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeUpdate", Me)
If NOT UpdateAllowed Then UpdateRow = False : Exit Function
DataSource.fd_Month.Value = fd_Month.Value
DataSource.merp_setup.Value = merp_setup.Value
DataSource.ann_fee.Value = ann_fee.Value
DataSource.emp_fees.Value = emp_fees.Value
DataSource.pop_ann_fee.Value = pop_ann_fee.Value
DataSource.Deduc_reimburs.Value = Deduc_reimburs.Value
DataSource.line_total.Value = line_total.Value
DataSource.Update(Command)
CCSEventResult = CCRaiseEvent(CCSEvents, "AfterUpdate", Me)
If DataSource.Errors.Count > 0 Then
PrintDBError "Record " & ComponentName & " / Update Operation", DataSource.Connection.LastSQL, DataSource.Errors.ToString()
DataSource.Errors.Clear
Errors.AddError "Database command error."
End If
UpdateRow = (Errors.Count = 0)
End Function
'End merp_figures1 UpdateRow Method
'merp_figures1 Show Method @30-259BCBBF
Sub Show(Tpl)
If NOT Visible Then Exit Sub
CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeSelect", Me)
Set Recordset = DataSource.Open(Command)
If Recordset.State = adStateOpen Then
EditMode = NOT Recordset.EOF
Else
EditMode = False
End If
HTMLFormAction = FileName & "?" & CCAddParam(Request.ServerVariables("QUERY_STRING"), "ccsForm", "merp_figures1" & IIf(EditMode, ":Edit", ""))
Set TemplateBlock = Tpl.Block("Record " & ComponentName)
TemplateBlock.Variable("HTMLFormName") = ComponentName
TemplateBlock.Variable("HTMLFormEnctype") ="application/x-www-form-urlencoded"
Set Controls = CCCreateCollection(TemplateBlock, Null, ccsParseOverwrite, _
Array(fd_Month, merp_setup, ann_fee, emp_fees, pop_ann_fee, Deduc_reimburs, DoInsert, DoUpdate, DoCancel, line_total))
If EditMode Then
If Errors.Count = 0 Then
If Recordset.Errors.Count > 0 Then
PrintDBError "Record merp_figures1", DataSource.Connection.LastSQL, Recordset.Errors.ToString
ElseIf Not Recordset.EOF Then
If Not FormSubmitted Then
fd_Month.Value = Recordset.Fields("fd_Month")
merp_setup.Value = Recordset.Fields("merp_setup")
ann_fee.Value = Recordset.Fields("ann_fee")
emp_fees.Value = Recordset.Fields("emp_fees")
pop_ann_fee.Value = Recordset.Fields("pop_ann_fee")
Deduc_reimburs.Value = Recordset.Fields("Deduc_reimburs")
line_total.Value = Recordset.Fields("line_total")
End If
Else
EditMode = False
End If
End If
End If
If Not FormSubmitted Then
End If
If FormSubmitted Then
With TemplateBlock.Block("Error")
.Variable("Error") = ValidatingControls.GetErrors & Errors.ToString _
& DataSource.Errors.ToString
.Parse False
End With
End If
TemplateBlock.Variable("Action") = HTMLFormAction
DoInsert.Visible = NOT EditMode
DoUpdate.Visible = EditMode
CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeShow", Me)
If Visible Then Controls.Show
End Sub
'End merp_figures1 Show Method
End Class 'End merp_figures1 Class @30-A61BA892
Class clsmerp_figures1DataSource 'merp_figures1DataSource Class @30-BE19831D
'DataSource Variables @30-2416DDC2
Public Errors, Connection, Parameters, CCSEvents
Public Recordset
Public SQL, CountSQL, Order, Where, Orders
Public RecordsCount
Public PageSize
Public PageCount
Public AbsolutePage
Public Fields
Dim WhereParameters
Public AllParamsSet
Private CurrentOperation
Private CCSEventResult
' Datasource fields
Public fd_Month
Public merp_setup
Public ann_fee
Public emp_fees
Public pop_ann_fee
Public Deduc_reimburs
Public line_total
'End DataSource Variables
'DataSource Class_Initialize Event @30-7E78DE5B
Private Sub Class_Initialize()
Set CCSEvents = CreateObject("Scripting.Dictionary")
Set Fields = New clsFields
Set Recordset = New clsDataSource
Set Errors = New clsErrors
AllParamsSet = True
Set fd_Month = CCCreateField("fd_Month", "fd_Month", ccsText, Empty, Recordset)
Set merp_setup = CCCreateField("merp_setup", "merp_setup", ccsInteger, Empty, Recordset)
Set ann_fee = CCCreateField("ann_fee", "ann_fee", ccsInteger, Empty, Recordset)
Set emp_fees = CCCreateField("emp_fees", "emp_fees", ccsInteger, Empty, Recordset)
Set pop_ann_fee = CCCreateField("pop_ann_fee", "pop_ann_fee", ccsInteger, Empty, Recordset)
Set Deduc_reimburs = CCCreateField("Deduc_reimburs", "Deduc_reimburs", ccsInteger, Empty, Recordset)
Set line_total = CCCreateField("line_total", "line_total", ccsInteger, Empty, Recordset)
Fields.AddFields Array(fd_Month, merp_setup, ann_fee, emp_fees, pop_ann_fee, Deduc_reimburs, line_total)
Set Parameters = Server.CreateObject("Scripting.Dictionary")
Set WhereParameters = Nothing
SQL = "SELECT * " & _
"FROM merp_figures"
CountSQL = "SELECT COUNT(*) " & _
"FROM merp_figures"
Where = ""
Order = ""
End Sub
'End DataSource Class_Initialize Event
'BuildTableWhere Method @30-65DC853B
Public Sub BuildTableWhere()
Dim WhereParams
If Not WhereParameters Is Nothing Then _
Exit Sub
Set WhereParameters = new clsSQLParameters
With WhereParameters
Set .Connection = Connection
Set .ParameterSources = Parameters
Set .DataSource = Me
.AddParameter 1, "urlID", ccsInteger, Empty, Empty, Empty, False
AllParamsSet = .AllParamsSet
.Criterion(1) = .Operation(opEqual, False, "ID", .getParamByID(1))
.AssembledWhere = .Criterion(1)
WhereParams = .AssembledWhere
If Len(Where) > 0 Then
If Len(WhereParams) > 0 Then _
Where = Where & " AND " & WhereParams
Else
If Len(WhereParams) > 0 Then _
Where = WhereParams
End If
End With
End Sub
'End BuildTableWhere Method
'Open Method @30-DF951BED
Function Open(Cmd)
Errors.Clear
Set Recordset.DataSource = Me
Set Cmd.Connection = Connection
Cmd.CommandOperation = cmdOpen
Cmd.PageSize = PageSize
Cmd.ActivePage = AbsolutePage
Cmd.CommandType = dsTable
CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeBuildSelect", Me)
Cmd.SQL = SQL
BuildTableWhere
Cmd.Where = Where
Cmd.OrderBy = Order
If Not AllParamsSet Then
Set Open = New clsEmptyDataSource
Exit Function
End If
CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeExecuteSelect", Me)
If Errors.Count = 0 And CCSEventResult Then _
Set Recordset = Cmd.Exec(Errors)
CCSEventResult = CCRaiseEvent(CCSEvents, "AfterExecuteSelect", Me)
Set Recordset.FieldsCollection = Fields
Set Open = Recordset
End Function
'End Open Method
'DataSource Class_Terminate Event @30-41B4B08D
Private Sub Class_Terminate()
If Recordset.State = adStateOpen Then _
Recordset.Close
Set Recordset = Nothing
Set Parameters = Nothing
Set Errors = Nothing
End Sub
'End DataSource Class_Terminate Event
'Update Method @30-0F78F6E2
Sub Update(Cmd)
CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeBuildUpdate", Me)
Set Cmd.Connection = Connection
Cmd.CommandOperation = cmdExec
Cmd.CommandType = dsTable
Cmd.CommandParameters = Empty
BuildTableWhere
If NOT AllParamsSet Then
Errors.AddError "Unable to perform the Update operation. There are one or more unspecified parameters."
Exit Sub
End If
Cmd.SQL = "UPDATE merp_figures SET " & _
"fd_Month=" & Connection.ToSQL(fd_Month.SQLText, fd_Month.DataType) & ", " & _
"merp_setup=" & Connection.ToSQL(merp_setup.SQLText, merp_setup.DataType) & ", " & _
"ann_fee=" & Connection.ToSQL(ann_fee.SQLText, ann_fee.DataType) & ", " & _
"emp_fees=" & Connection.ToSQL(emp_fees.SQLText, emp_fees.DataType) & ", " & _
"pop_ann_fee=" & Connection.ToSQL(pop_ann_fee.SQLText, pop_ann_fee.DataType) & ", " & _
"Deduc_reimburs=" & Connection.ToSQL(Deduc_reimburs.SQLText, Deduc_reimburs.DataType) & ", " & _
"line_total=" & Connection.ToSQL(line_total.SQLText, line_total.DataType) & _
IIf(Len(Where) > 0, " WHERE " & Where, "")
CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeExecuteUpdate", Me)
Cmd.Exec(Errors)
CCSEventResult = CCRaiseEvent(CCSEvents, "AfterExecuteUpdate", Me)
End Sub
'End Update Method
'Insert Method @30-38A34C69
Sub Insert(Cmd)
CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeBuildInsert", Me)
Set Cmd.Connection = Connection
Cmd.CommandOperation = cmdExec
Cmd.CommandType = dsTable
Cmd.CommandParameters = Empty
Cmd.SQL = "INSERT INTO merp_figures(" & _
"fd_Month, " & _
"merp_setup, " & _
"ann_fee, " & _
"emp_fees, " & _
"pop_ann_fee, " & _
"Deduc_reimburs, " & _
"line_total" & _
") VALUES (" & _
Connection.ToSQL(fd_Month.SQLText, fd_Month.DataType) & ", " & _
Connection.ToSQL(merp_setup.SQLText, merp_setup.DataType) & ", " & _
Connection.ToSQL(ann_fee.SQLText, ann_fee.DataType) & ", " & _
Connection.ToSQL(emp_fees.SQLText, emp_fees.DataType) & ", " & _
Connection.ToSQL(pop_ann_fee.SQLText, pop_ann_fee.DataType) & ", " & _
Connection.ToSQL(Deduc_reimburs.SQLText, Deduc_reimburs.DataType) & ", " & _
Connection.ToSQL(line_total.SQLText, line_total.DataType) & _
")"
CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeExecuteInsert", Me)
Cmd.Exec(Errors)
CCSEventResult = CCRaiseEvent(CCSEvents, "AfterExecuteInsert", Me)
End Sub
'End Insert Method
End Class 'End merp_figures1DataSource Class @30-A61BA892
%>
|
|
|
|
GreggB
|
| Posted: 04/04/2003, 1:09 PM |
|
If it’s just a display you want,
line_total should be a Label. Select line_total in the Project Explore box in your Form. In the Properties box select Events. Under Server select Before Show. Click on the + and select Add Code. Now add something like the following.
Event
Label -> line_total -> Event -> Server -> Beforw Show
Code:
your_form.line_total.Value = your_form.ann_fee.Value + your_form.emp_fee.Value your_form.pop_ann_fee.Value - your_form.Deduc_reimburs.Value
Something like this should work...
GreggB
|
|
|
|
|
