배치 데이터 입력, 보조 입력 데이터 및 관련 감지 (ASP 서버 측)

저자：Eve Cole 업데이트 시간：2025-03-21 15:48:02

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

Dim IntbillTotal, IntbillType, IntbillValue, dtatoday, I, StrbillCode

REM 단일 레코드 수 (준비 수량)

intbilltotal = request.form (bn)

intbilltotal = tonum (intbilltotal, 10)

intbillType = getOperType ()

intbillValue = getOpervalue ()

dtatoday = date ()

rem #########################################################################################################YYYYYM ######################################## ####### #################################### ########################################################################. ######################

REM ## 작동 항목

Dim Dtabilldate, Strbilluser, Strbillcheckuser, StrbillContent

Dim CurbillCost, CurbillCostasp, Intcustid, StrcustName, StrpayType, inttotalnum

희미한 dtabillyear, intbillid, intbillplanid, stbillplannum

rem ## dtabilldate 단일 날짜, Strbilluser Form 필러, StrbillCheckuser 픽업, intbillid 단일 ID

REM ## strbillContent 단일 음, StrbillCode 흐름 번호, 커 빌 코스트 총 가격 (JS), CurbillCostasp 총 가격 (ASP)

rem ## IntCustid 고객 ID, StrcustName 고객 이름, StrpayType 지불 방법, inttotalnum 단일 줄 수

rem ## intbilltype 단일 유형, intbillValue 단일 유형 설명, intbillplanid plan ID, StrbillPlannum 계획 번호

REM ## 단일 운영 날짜

dtabillDate = replace (trim (request.form (BillDate)),., -)

그렇지 않다면 (dtabilldate)

OUSER.GS_ADDMESSAGE 작업의 단일 날짜가 비어 있습니다

또 다른

dtabilldate = cdate (dtabilldate)

dtabillyear = 년 (dtabilldate)

if (osys.checkyearout (dtabillyear))

ouser.gs_addmessage 단일 운영 날짜 (& dtabillyear &) 범위 내

끝 If

REM ## 데이터 저장 제한

끝 If

rem ## 형태 필러

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

strbilluser =이면 그때

ouser.gs_addmessage 양식이 비어 있습니다

끝 If

REM ## 픽업

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

strbillCheckuser = if then

ouser.gs_addmessage 픽업 홀더가 비어 있습니다

끝 If

REM ## 오류 회전

ouser.gs_showmessage 1

REM ## 기타 프로젝트

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 ## 사용자 입력 데이터를 얻습니다

dim arrrecordinfo ()

dim inttempid, curtempprice, curtemptotal, curtempcost, curtempaspc

dim strtempcode, strtempname, strtempspec, strtempunit, inttempout, strtempcontent

rem ## inttempid 임시 제품 ID, curtempprice 단가, curtemptotal 수량, CurtempCost 총 가격 (JS)

rem ## curtempaspc 총 제품 가격 (ASP), strtempcode 코드, strtempname 이름, strtempspec 사양

rem ## strtempunit 단위, strtempcontent notes

redim arrrecordinfo (10, 0)

rem ## 단일 행 수를 0으로 초기화하고 행의 수를 0으로 필터링합니다.

inttotalnum = 0

inttempout = 0

REM ## 클라이언트가 제출 한 유용한 데이터 초기화

i = 1에서 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) 및 (curtemptotal <> 0) 및 (inttempid> 0))

REM ## 사용 가능한 데이터

inttotalnum = inttotalnum + 1

CurbillCostasp = CurbillCostasp + curtempaspc

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

strtempname = trim (request.form (fpvalue & i))

strtempspec = 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) = curtemptotal

arrrecordinfo (7, inttotalnum) = curtempCost

arrrecordinfo (8, inttotalnum) = curtempaspc

arrrecordinfo (9, inttotalnum) = strtempcontent

그렇다면 elseif (inttempid> 0)

inttempout = inttempout + 1

끝 If

inttotalnum <1 인 경우

OUSER.GS_ADDMESSAGE 운영 순서의 제품 데이터가 없습니다

ouser.gs_addmessage 총 & inttempout & data (제품 단위 가격은 0, 비어 있거나 음수, 수량이 0 또는 비어 있음)

ouser.gs_showmessage 1

끝 If

REM ## 개방형 연결

f__openconn

REM ## 테이블이 존재하는지 아닌지 확인하십시오

dim tbltablename

tbltablename = ouser.getbilltable (dtabillyear)

REM ## 단일 프로젝트 SQL 문을 구축하고 저장하십시오

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 (bitname) = intbillValue

rs (비트 코드) = 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) = ouser.uid

rs (username) = ouser.username

Rs.update

intbillid = rs (id)

strbillcode = getbillnuber (intbillid)

rs (비트 코드) = strbillCode

Rs.update

Rs.Close

REM ## 데이터 행 SQL 문 및 저장을 구성합니다

i = 1에서 inttotalnum의 경우

sql = [& tbltablename &] & _에 삽입

(Bittype, BitValue, BiTid, Bitcode, ProductID, ProductName, ProductCode, ProductsPec & _

, ProductUnit, ProductPrice, ProductNum, PriceCount, PriceAspc, Billdate, Content) & _

값 (& _

& 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 ## 연결을 닫습니다

f__closeconn

REM ## 출력 프롬프트 정보

ouser.gs_addmessage 총 & inttempout & data (제품 단위 가격은 0, 비어 있거나 음수, 수량이 0 또는 비어 있음)

OUSER.GS_ADDMESSAGE 총계의 & inttotalnum & 품목은 데이터베이스에 저장 및 저장됩니다. 총 가격 : & FormatNumber (CurbillCost, 2, True) & (& formatnumber (CurbillCostasp, 2, True) &)

ouser.gs_addmessage이 목록보기 (& strbillCode &) 정보

ouser.gs_addmessage이 순서를 인쇄합니다

ouser.gs_showmessage 0