Kommer bara att klistra in kod så får ni la fråga om ni inte fattar.Ett litet problem. [LÖST]
asp-sida:
<code>
Set XALComp = Server.CreateObject("XALTeracom")
FixProdNr = instr(Request("prodnumber"),",")
DelProdNr = Right(Request("prodnumber"),FixProdNr)
For a = 1 To Request("loop")
b = a*6
If Request("ch" & b) = "on" Then
Items = XALComp.FromSer(DelProdNr,Request("toseriesno" & a) ,Request("toitemno" & a))
End If
Next
FromSeriesNo = XALComp.FromSeriesNo
FromItemNo = XALComp.FromItemNo
Qty = XALComp.Qty
RowNumber = XALComp.RowNumber
For i = 1 To Items
On Error Resume next
If FromSeriesNo(i) = "" Then
var = ""
Else
var = FromSeriesNo(i)
End If
Response.Write var & FromItemNo(i) & Qty(i) & RowNumber(i) & "<br>"
Next
</code>
Som ovan vill jag ha det!
Comisen funktion:
<code>
Function FromSer(prodnumber,toseriesno,toitemno)
Dim rs
Dim DBConn
Dim sql
StockItemLength = 1
sql = "SELECT * FROM eStockFrSer WHERE DATASET = 'TCC' AND ProdNumber = '" & prodnumber & "' AND ToSeriesNo = '" & toseriesno & "' AND ToItemNo = '" & toitemno & "' ORDER BY FromItemNo"
If Session.Contents("Function").OpenDBConn(DBConn) Then
If Session.Contents("Function").OpenRS(DBConn, rs, sql) Then
Do While Not RS.EOF
FromSeriesNo(StockItemLength) = RS("FromSeriesNo")
FromItemNo(StockItemLength) = RS("FromItemNo")
Qty(StockItemLength) = RS("Qty")
RowNumber(StockItemLength) = RS("RowNumber")
StockItemLength = StockItemLength + 1
RS.MoveNext
Loop
StockItemLength = StockItemLength - 1
FromSer = StockItemLength
Call Session.Contents("Function").CloseRS(rs)
End If
End If
End Function
</code>
Om jag på aspsidan ändrar:
<code>
Items = XALComp.FromSer(DelProdNr,Request("toseriesno" & a) ,Request("toitemno" & a))
</code>
TILL
<code>
Items = XALComp.FromSer(Request("prodnumber"),Request("toseriesno" & a) ,Request("toitemno" & a))
</code>
Så funkar så när på en sak. Request("prodnumber") består kanske av 3, 4 eller 5 stycken likadan värden.. typ 9456,9456,9456... osv och det blir inte heller rätt..
Det översta jag skriver borde fan funka....
(Uppdaterar och ändrar kod efter en konsultfirma som gjort applikationen till oss)
Någon som har en ide????? Saknas det fnuttar eller vad? ;)