Hier der Code:
----------------------------------------------------------------------------------------------------------------------------
<%
aktuelle_referenz=" "
summe= 0
While ((Repeat1__numRows <> 0) AND (NOT Rsdaten.EOF))
record_referenz= Rsdaten.Fields.Item("ARTREF").Value
if record_referenz <> aktuelle_referenz then
if aktuelle_referenz <> " " then
set Rscount =
Server.CreateObject("ADODB.Recordset")
Rscount.ActiveConnection = MM_conpara_STRING
Rscount.Source = "SELECT B.NUM, B.REF,
C.ARTREF,C.DOCDATE,Sum(C.QTYMVT) as summi FROM PCIART B, PCIHISTO C WHERE B.REF
between '" + Replace(Rscount__Art1, "'", "''") + "' and '" + Replace(Rscount__Art2,
"'", "''") + "' and B.REF=C.ARTREF and C.FYEAR='2002'and C.DOCDATE between {" +
Replace(Rscount__monat2, "'", "''") + "/" + Replace(Rscount__tag2, "'", "''") + "/" +
Replace(Rscount__jahr2, "'", "''") + "} and date() and B.REF='" + refi + "' ORDER
BY C.ARTREF"
Rscount.Open()
Rscount_numRows = 0
if rscount.eof or rscount.bof or
rscount.fields.item("ARTREF")=" " then
finalstock= Stock
else
finalstock= Stock -
Rscount.Fields.Item("summi").Value
end if
response.write("Summ der Bewegungen:" &summe)
response.write("Summe in stock:" &finalstock)
end if
aktuelle_referenz= record_referenz
summe= 0
//gibt die Titelzeile aus
ref= Rsdaten.Fields.Item("ARTREF").Value
artikel= Rsdaten.Fields.Item("HEADING1").Value
response.write ("<table
bgcolor=""#ffaaaa""><tr><td></td></tr><tr><td></td></tr><tr><td
width=""100""><b>"&ref&"</b></td> <td><b>"&artikel&"</b></td></tr></table>")
end if
%>
<% //Jetzt kommt die Ausgabe von dem Haupteil%>
<%
docdate= Rsdaten.Fields.Item("DOCDATE").Value
dbk= Rsdaten.Fields.Item("DBK").Value
cpid= Rsdaten.Fields.Item("CPID").Value
docno= Rsdaten.Fields.Item("DOCNO").Value
qtymvt= Rsdaten.Fields.Item("QTYMVT").Value
intrem= Rsdaten.Fields.Item("Intrem").Value
instock= Rsdaten.fields.Item("QTYINSTOCK").Value
response.write ("<table><tr><td width=""40"">"&dbk&"</td> <td
width=""60"">"&docno&"</td><td width=""80"">"&docdate&"</td><td
width=""60"">"&cpid&"</td><td align=""right"" width=""30"">"&qtymvt&"</td><td
width=""5""></td><td width=""70"">"&intrem&"</td><td
width=""70"">"&instock&"</td></tr></table>")
refi = Rsdaten.Fields.Item("ARTREF").Value
stock= Rsdaten.Fields.Item("QTYINSTOCK").Value
summe= summe + Rsdaten.Fields.Item("QTYMVT").Value
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Rsdaten.MoveNext()
Wend
response.write("<h3>Summe bewegung:"& summe &"</h3>")%>
<p> </p>
</body>
</html>
<%
Rsdaten.Close()
%>
----------------------------------------------------------------
So das ist ein bischen Code.
Die Fehlermeldung:
Ausnahmefehler aufgetreten in Linie 12.
In Rscount.Source.
-----------------------------------------------------------------
Beim ersten Durchlauf hat alles funktioniert. Doch beim zweiten Durchlauf der Schleife
bekomme ich diese Fehlermeldung.
Ich denke das es daran liegt das in der Tabelle kein Datensatz existiert f�r diese
Abfrage.
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
