<- # inclue file = .. / __ inc / goperation.asp ->
<%
Dim intbilltotal, intbilltype, intbillvalue, dTatoday, i, strbillcode
Nombre REM de dossiers uniques (quantité de préparation)
intbilltotal = request.form (bn)
intbilltotal = tonum (intbilltotal, 10)
intbillType = getOperType ()
intbillValue = getopervalue ()
dTatoday = date ()
Rem ################################################### ############################################# ###### #################################################### ##########################
REM ## Élément de fonctionnement
DIM DTABILLDATE, STRBILLER, STRBILLCHECKUSER, STRBILLCONTENT
Dim CurbillCost, CurbillCostasp, Intcustid, StrcustName, StrpayType, Inttotalnum
DIM DTABILLYEAR, INTBILLID, INTBILLPLANID, STRBILLPANNUM
REM ## DTABILLDATE une seule date, remplissage de formulaire StrBilluser, pick-up StrbillCheckuser, ID INTBILLID
REM ## STRBILLCONTENT Single Note, StrbillCode Flow Number, CurbillCost Total Prix (JS), CurbillCostasp Total Prix (ASP)
REM ## ID Client Intcustid, StrCustName Nom du client, méthode de paiement StrpayType, Inttotalnum Nombre de lignes uniques
REM ## INTBILLTYPE Single Type, IntBillValue Single Type Description, ID INTBILLPLANID Plan ID, Numéro de plan StrbillPlannm
REM ## Date d'opération unique
dtabillDate = Remplace (Trim (request.form (billdate)),., -)
Si ce n'est pas isdate (dtabilldate) alors
OUSER.GS_ADDMESSAGE La date unique de l'opération est vide
Autre
dtabillDate = cdate (dtabillDate)
dtabillyear = année (dtabilldate)
If (osys.checkyearout (dtabillyear)) alors
OUSER.GS_ADDMESSAGE Date d'opération unique (& dtabillyear &) hors de portée
Terminer si
Rem ################################################### ############################################# ###### #################################################### ######################
REM ## Restrictions de stockage de données
Rem ################################################### ############################################# ###### #################################################### ######################
Terminer si
REM ## Formulaire de formulaire
strBilluser = Trim (request.form (billuser) &)
Si strbilluser = alors
OUSER.GS_ADDMESSAGE Le formulaire est vide
Terminer si
Rem ## Prise
strbillcheckuser = trim (request.form (billcheckuser) &)
Si strbillcheckuser = alors
OUSER.GS_ADDMESSAGE Le support de ramassage est vide
Terminer si
REM ## Erreur de rotation
OUSER.GS_SHOWMESSAGE 1
REM ## Autres projets
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)
strbillPlann = getBillnuber (intbillplanid)
Rem ################################################### ############################################# ###### #################################################### ##########################
Rem ################################################### ############################################# ###### #################################################### ##########################
REM ## Obtenir les données d'entrée de l'utilisateur
Dim ArrrecorDinfo ()
Dim Inttempid, Curtempprice, CurTempotal, CurTempCost, CurTempaspc
Dim strTempcode, strTEmpName, strTempspec, strTempUnit, intTempout, strTempContent
REM ## IDTTempid Temporary Product ID, CurtempPrice Prix unitaire, CurTempotal Quantity, CurTempCost Prix Total (JS)
REM ## CURTEMPASPC Prix total du produit (ASP), code StrTempCode, nom de StrTempName, spécification StrTempSpec
REM ## STRTEMPUNIT UNIT, STRTEMPCONTENT Remarques
Redim ArrrecordInfo (10, 0)
REM ## Initialisez le nombre de lignes uniques à 0 et filtrez le nombre de lignes à 0
inttotalnum = 0
intTempout = 0
REM ## Initialiser les données utiles soumises par le client
Pour i = 1 à intbilltotal
intTempid = tonum (request.form (fpid & i), 0)
CurTemPprice = TOCUR (request.form (fpprice & i), 0)
curTempotal = tocur (request.form (fptotal & i), 0)
curTempCost = tocur (request.form (fpcost & i), 0)
CurTempaspc = CurtempPrice * CurTempotal
If ((CurTempPrice> 0) et (CurTempotal <> 0) et (intTempid> 0)) puis
REM ## Données disponibles
inttotalnum = inttotalnum + 1
CurbillCostasp = CurbillCostasp + CurTempaspc
strTempCode = Trim (request.form (fpModel & i))
strTempName = Trim (request.form (fpvalue & i))
strTempsCec = Trim (request.form (fspec & i))
strTempUnit = Trim (request.form (fpunit & i))
strTempContent = Trim (request.form (fpContent & i))
Redim Preserve 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) = CurTempotal
ArrrecordInfo (7, Inttotalnum) = CurTempCost
ArrrecordInfo (8, Inttotalnum) = CurTempaspc
ArrrecordInfo (9, Inttotalnum) = StrTempContent
Elseif (intTempid> 0) puis
intTempOut = intTempout + 1
Terminer si
Suivant
Si inttotalnum <1 alors
OUSER.GS_ADDMESSAGE Aucune donnée de produit dans l'ordre de fonctionnement
OUSER.GS_ADDMESSAGE Un total de & Inttempout & Data (le prix de l'unité du produit est 0, vide ou négatif, la quantité est 0 ou vide) est filtrée
OUSER.GS_SHOWMESSAGE 1
Terminer si
Rem ################################################### ############################################# ###### #################################################### ##########################
REM ## Connexion ouverte
f__openconn
Rem ################################################### ############################################# ###### #################################################### ##########################
REM ## Vérifiez si le tableau existe ou non
Dim tbltablename
tbltableName = ouser.getBillTable (dtabillyear)
Rem ################################################### ############################################# ###### #################################################### ##########################
Rem ################################################### ############################################# ###### #################################################### ##########################
REM ## Construire des instructions SQL à projet unique et les enregistrer
strbillcode = getopebill ()
sql = select * from [& gbl__str_tab_inf_bill &]
Set 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 (nom de bit) = intbillvalue
rs (bitcode) = strbillcode
rs (bitnum) = inttotalnum
RS (Bitprice) = CurbillCost
rs (bitpriceasp) = curbillcostasp
rs (bitdate) = dtabilldate
rs (bitpay) = strpayType
RS (BitContent) = StrbillContent
RS (FILLUSER) = Strbilluser
RS (SureUser) = strbillcheckuser
rs (userId) = ousser.uid
RS (nom d'utilisateur) = OUSER.USERNAME
Rs.Update
intbillid = rs (id)
strbillcode = getBillnuber (intbillid)
rs (bitcode) = strbillcode
Rs.Update
Rs.Close
Rem ################################################### ############################################# ###### #################################################### ##########################
Rem ################################################### ############################################# ###### #################################################### ##########################
REM ## Construit les instructions et enregistre des données SQL Row SQL
Pour i = 1 à Inttotalnum
sql = insérer dans [& tbltableName &] & _
(BitType, BitValue, Bitid, Bitcode, ProductId, ProductName, ProductCode, ProductsPec & _
, ProductUnit, ProductPrice, Productnum, PriceCount, PriceAspc, BillDate, Content) & _
Valeurs (& _
& 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)
Suivant
Rem ################################################### ############################################# ###### #################################################### ##########################
REM ## Fermez la connexion
f__closeconn
Rem ################################################### ############################################# ###### #################################################### ##########################
REM ## Informations d'invite de sortie
OUSER.GS_ADDMESSAGE Un total de & Inttempout & Data (le prix de l'unité du produit est 0, vide ou négatif, la quantité est 0 ou vide) est filtrée
OUSER.GS_ADDMESSAGE Un total de & Inttotalnum & Les éléments sont enregistrés et stockés dans la base de données, Total Price: & FormatNumber (CurbillCost, 2, True) & (& FormatNumber (CurbillCostasp, 2, True) &)
OUSER.GS_ADDMESSAGE Afficher cette liste (& strbillcode &) Informations
OUSER.GS_ADDMESSAGE Imprimez cette commande
OUSER.GS_SHOWMESSAGE 0
Rem ################################################### ############################################# ###### #################################################### ##########################
%>