Stapeldateneingabe, Hilfseingabedaten und zugehörige Erkennung (ASP Server -Seite)

Autor：Eve Cole Aktualisierungszeit：2025-03-21 15:48:02

<-#include file = ../__ inc/goperation.asp->

Dim intbilltotal, intbilltype, intbillValue, dtatoday, i, strbillcode

REM -Anzahl einzelner Datensätze (Vorbereitungsmenge)

intbilltotal = request.form (bn)

intbilltotal = tonum (intbilltotal, 10)

intbilltype = getoperType ()

intbillValue = getopervalue ()

dtatoday = date ()

Rem ############################################################################################################################## zuraut, ####################################################################################################################### zurild ####################################################################################################################### zu erhalten ############################################################################################################ zu erhalten

REM ## Betriebselement

Dim Dtabilldate, Strbilluser, Strbillcheckuser, StrbillContent

Dim CurbillCost, CurbillCostasp, Intcustid, StrcustName, Strpaytype, Inttotalnum

Dunkler dtabillyear, intbillid, intbillplanid, strbillplannum

REM ## Dtabilldate Single Date, Strbilluser Formularfüller, Strbillcheckuser -Pickup, intbillid Single ID

REM ## StrbillContent Single Note, Strbillcode -Durchflusszahl, CurbillCost Gesamtpreis (JS), CurbillCostasp Total Price (ASP)

REM ## Intcustid Customer ID, StrcustName -Kundenname, StrpayType -Zahlungsmethode, Inttotalnum Anzahl einzelner Zeilen

REM ## IntBillType Einzeltyp, IntBillValue Einzeltyp Beschreibung, IntBillPlanid -Plan -ID, StrbillPlannum -Plannummer

REM ## Einzelgeführungsdatum

dtabilldate = ersetzen (trimm (request.form (billdate)),., -)

Wenn nicht isdate (dtabilldate) dann

OUSER.GS_ADDMESSAGE Das einzelne Datum der Operation ist leer

Anders

dtabilldate = cdate (dtabilldate)

dtabillyear = Jahr (dtabilldate)

If (osys.Checkyearout (dtabirear)) dann

OUSER.GS_ADDMESSAGE INGENSAME DATUM (& DTABILLEYEAR &) OUT OUT RANGE

Ende wenn

REM ## Datenspeicherbeschränkungen

Ende wenn

REM ## Formularfüller

strbilluser = trim (request.form (billuser) &)

Wenn Strbilluser = dann

OUSER.GS_ADDMESSAGE Das Formular ist leer

Ende wenn

Rem ## pickup

strbillcheckuser = trim (request.form (billcheckuser) &)

Wenn Strbillcheckuser = dann

OUSER.GS_ADDMESSAGE Der Abholhalter ist leer

Ende wenn

REM ## Fehler drehen

ouser.gs_showmessage 1

Rem ## Andere Projekte

CurbillCost = Tocur (Request.Form (TotalPrice) &, 0)

CurbillCostasp = 0

intcustid = tonum (request.Form (CustID) &, 0)

StrCustName = Request.form (CustName)

StrpayType = request.form (payType)

StrbillContent = Request.Form (BillContent)

intbillPlanid = tonum (request.form (billPlan) &, 0)

StrbillPlannum = getBillnuber (intbillPlanid)

Rem ############################################################################################################################## zurild ####################################################################################################################### zurild ####################################################################################################################### zu erhalten ############################################################################################################ zu erhalten

REM ## Benutzerneingabedaten erhalten

Dimer Arrrecordinfo ()

Dim inttempid, Curtempprice, Curtemptotal, Curtempcost, Curtempaspc

Dim StrtempCode, StrtempName, Strtempspec, Strtempunit, Inttempout, StrtempContent

REM ## Inttempid Temporäre Produkt -ID, Curtempprice -Einheit Preis, curtemptotale Menge, CurtempCost Total Price (JS)

REM ## Curtempaspc Total Product Price (ASP), StrtempCode Code, Strtempname -Name, StrtempSpec -Spezifikation

REM ## Strtempunit Unit, StrtempContent Notes

Redim arrrecordinfo (10, 0)

REM ## Initialisieren Sie die Anzahl der einzelnen Zeilen auf 0 und filtern Sie die Anzahl der Zeilen auf 0 heraus

inttotalnum = 0

inttempout = 0

REM ## Initialisieren Sie nützliche Daten, die vom Client übermittelt wurden

Für i = 1 bis intbilltotal

inttempid = tonum (request.form (fpid & i), 0)

curtempprice = tocur (request.form (fpprice & i), 0)

curtemptotal = tocur (request.form (fptotal & i), 0)

CurtempCost = tocur (Request.form (fpcost & i), 0)

curtempaspc = curtempprice * curtemptotal

If ((curtempprice> 0) und (curtemptotal <> 0) und (inttempid> 0)) dann

REM ## verfügbare Daten

inttotalnum = inttotalnum + 1

CurbillCostasp = CurbillCostasp + Curtempaspc

StrtempCode = trim (request.form (fpmodel & i))

StrtempName = trim (request.form (fpValue & i))

Strtemppec = trim (request.form (fspec & i))

Strtempunit = trim (request.form (fpunit & i))

StrtempContent = trim (request.form (fpcontent & i))

REDIM -Erhaltung Arrrecordinfo (10, Inttotalnum)

arrrecordinfo (0, inttotalnum) = inttempid

arrrecordinfo (1, inttotalnum) = strtempname

arrrecordinfo (2, inttotalnum) = strtempCode

arrrecordinfo (3, inttotalnum) = strtempspec

arrrecordinfo (4, inttotalnum) = strtempunit

arrrecordinfo (5, inttotalnum) = curtempprice

arrrecordinfo (6, inttotalnum) = curtemptotal

arrrecordinfo (7, inttotalnum) = curtempCost

arrrecordinfo (8, inttotalnum) = curtempaspc

arrrecordinfo (9, inttotalnum) = strtempContent

Elseif (inttempid> 0) dann

inttempout = inttempout + 1

Ende wenn

Wenn inttotalnum <1 dann dann

OUSER.GS_ADDMESSAGE Keine Produktdaten in der Betriebsreihenfolge

OUSER.GS_ADDMESSAGE Insgesamt & inttempout & Daten (der Produkteinheitspreis ist 0, leer oder negativ, die Menge ist 0 oder leer) wird gefiltert

ouser.gs_showmessage 1

Ende wenn

REM ## Open Connection

f__openconn

REM ## Überprüfen Sie, ob die Tabelle vorhanden ist oder nicht

Dim TbltableName

tBltableName = ouser.getBilltable (dtabillyear)

REM ## Konstruieren Sie SQL-Anweisungen mit Einzelprojekten und speichern Sie sie

strbillcode = getopebill ()

SQL = SELECT * von [& gbl__str_tab_inf_bill &]

Setzen Sie rs = server.createObject (adodb.Recordset)

Rs.open SQL, Conn, 1, 3

rs.addnew

RS (CustomerID) = intcustid

RS (Customername) = StrCustName

rs (bitplanid) = intbillPlanid

RS (Bitplannum) = strbillPlannum

rs (bittype) = intbilltype

rs (bitname) = intbillValue

rs (bitcode) = strbillcode

rs (bitnum) = inttotalnum

RS (Bitprice) = CurbillCost

RS (BitPriceEP) = CurbillCostasp

rs (bitdate) = dtabilldate

rs (bitpay) = strpaytype

RS (Bitcontent) = strbillContent

RS (FILLUSER) = strbilluser

RS (SUREUSER) = strbillcheckuser

rs (userId) = ouser.uid

RS (Benutzername) = OUSER.Unername

Rs.Update

intbillid = rs (id)

strbillcode = getbillnuber (intbillid)

rs (bitcode) = strbillcode

Rs.Update

rs.close

REM ## konstruiert Datenzeilen SQL -Anweisungen und speichert

Für i = 1 bis intotalnum

sql = in [& tbltableName &] & _ einfügen und _

(BitType, BitValue, Bitid, Bitcode, ProductID, ProductName, ProductCode, ProductSpec & _

, ProductUnit, ProductPrice, ProductNum, PriceCount, PriceAsPC, Billdate, Inhalt) & _

Werte( & _

& intbilltype & & _

, '& tosqlr (intbillValue) &' & _

, & intbillid & & _

, '& tosqlr (strbillcode) &' & _

, & arrrecordinfo (0, i) & & _

, '& tosqlr (arrrecordinfo (1, i)) &' & _

, '& tosqlr (arrrecordinfo (2, i)) &' & _

, '& tosqlr (arrrecordinfo (3, i)) &' & _

, '& tosqlr (arrrecordinfo (4, i)) &' & _

, & arrrecordinfo (5, i) & & _

, & arrrecordinfo (6, i) & & _

, & arrrecordinfo (7, i) & & _

, & arrrecordinfo (8, i) & & _

, # & dtabilldate & # & _

, '& tosqlr (arrrecordinfo (9, i)) &' & _

)

Conn.Execute (SQL)

REM ## Schließen Sie die Verbindung

f__closeconn

REM ## Ausgabe Eingabeaufforderungsinformationen

OUSER.GS_ADDMESSAGE Insgesamt & inttempout & Daten (der Produkteinheitspreis ist 0, leer oder negativ, die Menge ist 0 oder leer) wird gefiltert

OUSER.GS_ADDMESSAGE In der Datenbank werden in der Datenbank, des Gesamtpreises (CurbillCost, 2, True) & (& FormatNumber (CurbillCostasp) (CurbillCostasp, 2, True) und) gespeichert und gespeichert.

OUSER.GS_ADDMESSAGE Zeigen Sie diese Liste an (& Strbillcode &) Informationen

OUSER.GS_ADDMESSAGE Drucken Sie diese Bestellung drucken

ouser.gs_showmessage 0