Peter Donovan
19-Mar-2005, 08:57 AM
Hi,
I am a little over my head with a webapp where I am shipping inventory
and
am trying to make a shopping cart to ship the inventory.
The inventory record is selected, and I need to update it as "Selected"
so a
shipping address can be matched to it.
Here is my attempted code for the body of the report which should be
entertaining since I have no idea how to do this...<g>
Could someone help me please: I want to execute a function (see code)
and
then refresh the report.
Send WriteHtmlRowBegin
Get AddRecordLink sAdsinvTitle To sText
Send WriteHtmlCell sText 'Class="Data" Align="Left"'
Send WriteHtmlCell sAdsinvFormat 'Class="Data" Align="Left"'
Send WriteHtmlCell (FormatNumber (sAdsinvControl_Num,0))
'Class="Data" Align="Right"'
Send WriteHtmlCell sAdsinvId_No 'Class="Data" Align="Left"'
Send WriteHtmlCell sRequestsDate 'Class="Data" Align="Left"'
Send WriteHtmlCell sRequestsStatus_Desc 'Class="Data"
Align="Left"'
If (sRequestsStatus = "1") Begin
Move '<A Href= (Err =
oSelectInventoryForShipping.call("Get_DoSelectInventory", iRecordNum))'
To
sText
Append sText "Select For Shipping" '</A>'
Send WriteHtmlCell sText 'Class="Data" Align="center"'
End
Else If (sRequestsStatus = "2") Begin
Move '<A Href= (Err =
oSelectInventoryForShipping.call("Get_DoSelectInventory", iRecordNum))'
To
sText
Append sText "UN-Select For Shipping" '</A>'
Send WriteHtmlCell sText 'Class="Data" Align="center"'
End
Else Send WriteHtmlCell "" 'Class="Text" Align="Left"'
Send WriteHtmlRowEnd
End_Procedure // OnBody
With the following picture of the result:
Any help would be appreciated,
Regards,
Peter Donovan
Sonata Software
Boston
I am a little over my head with a webapp where I am shipping inventory
and
am trying to make a shopping cart to ship the inventory.
The inventory record is selected, and I need to update it as "Selected"
so a
shipping address can be matched to it.
Here is my attempted code for the body of the report which should be
entertaining since I have no idea how to do this...<g>
Could someone help me please: I want to execute a function (see code)
and
then refresh the report.
Send WriteHtmlRowBegin
Get AddRecordLink sAdsinvTitle To sText
Send WriteHtmlCell sText 'Class="Data" Align="Left"'
Send WriteHtmlCell sAdsinvFormat 'Class="Data" Align="Left"'
Send WriteHtmlCell (FormatNumber (sAdsinvControl_Num,0))
'Class="Data" Align="Right"'
Send WriteHtmlCell sAdsinvId_No 'Class="Data" Align="Left"'
Send WriteHtmlCell sRequestsDate 'Class="Data" Align="Left"'
Send WriteHtmlCell sRequestsStatus_Desc 'Class="Data"
Align="Left"'
If (sRequestsStatus = "1") Begin
Move '<A Href= (Err =
oSelectInventoryForShipping.call("Get_DoSelectInventory", iRecordNum))'
To
sText
Append sText "Select For Shipping" '</A>'
Send WriteHtmlCell sText 'Class="Data" Align="center"'
End
Else If (sRequestsStatus = "2") Begin
Move '<A Href= (Err =
oSelectInventoryForShipping.call("Get_DoSelectInventory", iRecordNum))'
To
sText
Append sText "UN-Select For Shipping" '</A>'
Send WriteHtmlCell sText 'Class="Data" Align="center"'
End
Else Send WriteHtmlCell "" 'Class="Text" Align="Left"'
Send WriteHtmlRowEnd
End_Procedure // OnBody
With the following picture of the result:
Any help would be appreciated,
Regards,
Peter Donovan
Sonata Software
Boston