<-#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 ############################################################################################################################## zuraut, ####################################################################################################################### zurild ####################################################################################################################### zu erhalten ######################
REM ## Datenspeicherbeschränkungen
Rem ############################################################################################################################## zuraut, ####################################################################################################################### zurild ####################################################################################################################### zu erhalten ######################
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 ############################################################################################################################## zuraut, ####################################################################################################################### 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
Nächste
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 ############################################################################################################################## zuraut, ####################################################################################################################### zurild ####################################################################################################################### zu erhalten ############################################################################################################ zu erhalten
REM ## Open Connection
f__openconn
Rem ############################################################################################################################## zurild ####################################################################################################################### zurild ####################################################################################################################### zu erhalten ############################################################################################################ zu erhalten
REM ## Überprüfen Sie, ob die Tabelle vorhanden ist oder nicht
Dim TbltableName
tBltableName = ouser.getBilltable (dtabillyear)
Rem ############################################################################################################################## zuraut, ####################################################################################################################### zurild ####################################################################################################################### zu erhalten ############################################################################################################ zu erhalten
Rem ############################################################################################################################## zuraut, ####################################################################################################################### zurild ####################################################################################################################### zu erhalten ############################################################################################################ zu erhalten
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 ############################################################################################################################## zuraut, ####################################################################################################################### zurild ####################################################################################################################### zu erhalten ############################################################################################################ zu erhalten
Rem ############################################################################################################################## zuraut, ####################################################################################################################### zurild ####################################################################################################################### zu erhalten ############################################################################################################ zu erhalten
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)
Nächste
Rem ############################################################################################################################## zuraut, ####################################################################################################################### zurild ####################################################################################################################### zu erhalten ############################################################################################################ zu erhalten
REM ## Schließen Sie die Verbindung
f__closeconn
Rem ############################################################################################################################## zurild ####################################################################################################################### zurild ####################################################################################################################### zu erhalten ############################################################################################################ zu erhalten
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
Rem ############################################################################################################################## zuraut, ####################################################################################################################### zurild ####################################################################################################################### zu erhalten ############################################################################################################ zu erhalten
%>