Det här med subbar....

annesophieMedlem sedan juni 20012 236 inlägg

Frågan20 dec. 2002 09:49#1

Hej,

Nedan kod ställer till det lite för mig.

Följande är problemet...förenklat då...

************************************************
START SUB 1

Hämta information

skapa RecSet1
************************************************

Skriv ut data från RecSet1

************************************************
END SUB 1
************************************************

************************************************
START SUB 2

Hämta information

skapa RecSet2
************************************************

Skriv ut data från RecSet2 PLUS ett fält från RecSet1.
Men då SUB 1 är avslutad får jag naturligtvis inte skriva ut detta
fält - VbOrdSum - från RecSet1. Det blir fel, fel och fel.

Om någon känner sig manad att bli förvirrad ;) ta gärna en titt på koden. Jag har skrivit mer förklaringar däri.

************************************************
END SUB 2
************************************************


<BODY>

<% 
dim OrderNr, strSessionID, ForetagKod, LangID, IntrnCoNo, strFtgNr, searched

strSessionID = request.Cookies("jvsweb")("SessionID")

if request("OrderNr") = "" and request("ForetagKod") then	
	response.write MSG_ORDERNO_IS_MISSING & "!!"	
	response.end
else
	OrderNr = request("OrderNr")
	ForetagKod = request("ForetagKod")
	getOrderHeader
'NOTE - remmad, anrop till getOrderLines görs i getOrderHeader 
	'getOrderLines		
	getOrderOther(strFtgNr)
	getInvoice(strFtgNr)
end if

'****************************************************************************************************************************
'GENERAL INFORMATION SUB
'****************************************************************************************************************************

'--- START Order General Information SUB***

sub getOrderHeader()

'---Declares variables

	dim objOrderHeader, objOrder, strEstDeliveryDate, strInventoryLocation,strSumma
	
	set objOrder = Server.CreateObject("jvsECOM.Common")
	
	with objOrder
		.dbConnection = Application("conString")    
		.ConnectionName = Application("conName")    
		.CompanyId = JvsCompanyID
		.Language = JvsLanguage

'---Parametrar

	'@c_IntrnCoNO smallint = 0
	'@c_LangID smallint = 0
	'@c_SessionID varchar(35)
	'@c_ForetagKod smallint = 0
	'@c_OrderNo int = null
	'@c_FtgNr varchar(20) = null

		set objOrderHeader = .ExecProcedure (strSessionID,"SHOW_web_getOrder","","",strSessionID,ForetagKod,OrderNr,"")
		
	end with

	strFtgNr = objOrderHeader("FtgNr")
		
	showOrderHeader objOrderHeader
	
'NOTE - här skrivs raderna

	getOrderLines 

'NOTE - TOTAL SUMMA 

	Response.Write(objOrderHeader("VbOrdSum")&" "&objOrderHeader("ValKod")) 

'NOTE - **** Haer kan man starta ett anrop till en ny sub tex showOrderTotals ***

	set objOrderHeader = nothing
	set objOrder = nothing
	
end sub

sub showOrderHeader (objOrderHeader)

%>

*****************************************************************************************************************************
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
*****************************************************************************************************************************

Här kommer TABLE med information från recordsetet objOrderHeader. Allt funkar OK.

Nedan börjar nästa SUB - getOrderLines()

*****************************************************************************************************************************
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
*****************************************************************************************************************************

<%end sub%>

<!--**********************************************************************************************************************-->
<!-- ORDER ROWS														  -->
<!--**********************************************************************************************************************-->

<%
'--- START Order ROWS Information SUB***

sub getOrderLines()

'---Declares variables

	dim objOrderRows, objOrder, strEstDeliveryDate, strInventoryLocation
		
	set objOrder = Server.CreateObject("jvsECOM.Common")
	
	with objOrder
		.dbConnection = Application("conString")    
		.ConnectionName = Application("conName")    
		.CompanyId = JvsCompanyID
		.Language = JvsLanguage

'---Parametrar

	'@c_IntrnCoNO smallint = 0
	'@c_LangID smallint = 0
	'@c_SessionID varchar(35)
	'@c_ForetagKod smallint = 0
	'@c_OrderNo int = null

		set objOrderRows = .ExecProcedure (strSessionID,"SHOW_web_getOrderRows",IntrnCoNo,LangID,strSessionID,ForetagKod,OrderNr)
		
	end with
		
	showOrderLines objOrderRows
	
	set objOrderRows = nothing
	set objOrder = nothing
	
end sub

sub showOrderLines (objRst)
	
	dim i
	dim strColor
	i = 1
	
'--- END Order ROWS Information SUB***			
%>

*****************************************************************************************************************************
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
*****************************************************************************************************************************

Här kommer TABLE med information från recordsetet objRst

Men...

Jag vill i denna tabell hämta ett fält (VbOrdSum) som kommer från Subben sub getOrderHeader(). Alltså Subben som ligger överst.
Men då subben sub getOrderHeader() är stängd vet jag inte riktigt hur jag skall få fram det. 
Förslag på hur jag ska få fram: <%=objOrderHeader("VbOrdSUm")%> här?!?

*****************************************************************************************************************************
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
*****************************************************************************************************************************
</BODY>