📄 fmlistbasemaster_bk.asp
字号:
"RELATED_LIST6= '" & Session("formmk").Item("relatedList6") & "'," & _
"DATACLAIM_NOTE= '" & Session("formmk").Item("dataClaimNote") & "'," & _
"UPDATE_YMD= SYSDATE"
'"SECRET_PASSWORD= '" & l_inrec.l_secretPassword & "'," & _
'"TEMPLATE_ID= '" & l_inrec.l_templateId & "'," & _
'"SUBTEMPLATE_ID= '" & l_inrec.l_subTemplateId & "'," & _
'"UPDATE_YMD= SYSDATE"
'儁乕僕巇條ID丄壛岺巇條ID偑敪斣偟側偍偝傟偰偄偨傜峏怴
'If l_inrec.l_pageSpecId <> "" Then
' l_sql = l_sql & ",PAGE_SPEC_ID=" & l_inrec.l_pageSpecId
'End If
'If l_inrec.l_processingSpecId <> "" Then
' l_sql = l_sql & ",PROCESSING_SPEC_ID=" & l_inrec.l_processingSpecId
'End If
'僔僗僥儉ID AND 夛幮ID AND 挔昜娗棟斣崋 AND 嶍彍僼儔僌亗1
l_sql = l_sql & " WHERE SYSTEM_ID = '" & l_inrec.l_sysId & "' AND COMPANY_ID = " & _
"'" & l_inrec.l_coId & "' AND LIST_MANAGE_NO = " & l_inrec.l_listManageNo & _
" AND DEL_FLG <> '1'"
'SQL敪峴
If Not l_dbaccess.ProcExecute(l_sql) Then
'僄儔乕偺応崌偼儘乕儖僶僢僋
l_dbaccess.ProcRollBack
UpdateListBaseStep1 = False
Exit Function
End If
End Function
'/**********************************************************
'/* 挔昜傪傾僢僾僨乕僩偡傞(挔昜僐乕僪偑敪斣偝傟偰偄側偄傕偺)
'/* param丗dbaccess(DBAccess) DB傾僋僙僗
'/* l_listmanage_no丂挔昜娗棟斣崋
'/**********************************************************
Public Function ProcUpdateList(l_db,l_listmanage_no,l_list_cd)
Dim l_strSql
ProcUpdateList = True
l_strSql = "UPDATE LISTBASE_T SET LIST_CD = '" &_
l_list_cd & "',LIST_EDA = '00', " &_
"UPDATE_YMD = SYSDATE " &_
"WHERE SYSTEM_ID = '" & Session("User").Item("SYSTEM_ID") & "' " &_
"AND COMPANY_ID = '" & Session("User").Item("COMPANY_ID") & "' " &_
"AND LIST_MANAGE_NO = '" & l_listmanage_no & "'"
Call l_db.ProcBeginTrans
If l_db.ProcExecute(l_strSql) Then
Call l_db.ProcCommit
Exit Function
Else
ProcUpdateList = False
Call l_db.ProcRollBack
Response.Write "幐攕"
End If
End Function
'/*******************************************************
'/* 挔昜僗僥乕僞僗傪峏怴偡傞
'/* param丗l_dbaccess(DBAccess) DB傾僋僙僗
'/* l_sysid(String) 僔僗僥儉ID
'/* l_coid(String) 夛幮ID
'/* l_listManageNo 挔昜娗棟斣崋
'/* l_listCd 挔昜斣崋
'/* l_listEda 挔昜斣崋巬斣
'/* l_listStatus 挔昜僗僥乕僞僗
'/* return boolean True丗惓忢丄False丗堎忢
'/*******************************************************
Public Function UpdateMake1Set(l_dbaccess, l_sysid, l_coid, l_listManageNo, l_listCd, l_listEda,l_listStatus)
Dim l_strsql 'String
UpdateMake1Set = True
'SQL暥嶌惉
'UPDATE LISTBASE_T
l_strsql = "UPDATE LISTBASE_T SET " & _
"LIST_CD = '" & l_listCd & "'," & _
"LIST_EDA = '" & l_listEda & "'," & _
"LIST_STATUS = '" & l_listStatus & "'," & _
"UPDATE_YMD=SYSDATE"
'WHERE 僔僗僥儉ID AND 夛幮ID AND 挔昜娗棟斣崋 AND 嶍彍僼儔僌亗1
l_strsql = l_strsql & " WHERE SYSTEM_ID = '" & l_sysId & "' AND COMPANY_ID = " & _
"'" & l_coId & "' AND LIST_MANAGE_NO=" & l_listManageNo & " AND DEL_FLG <> '1'"
'SQL敪峴
If Not l_dbaccess.ProcExecute(l_strsql) Then
'僄儔乕偺応崌偼儘乕儖僶僢僋
l_dbaccess.ProcRollBack
UpdateMake1Set = False
Exit Function
End If
End Function
'/*******************************************************
'/* 挔昜婎杮忣曬傪侾儗僐乕僪搊榐偡傞(慡偰偺崁栚)
'/* param丗dbaccess(DBAccess) DB傾僋僙僗
'/* l_inRec(MakeStep1Mdl) 搊榐儗僐乕僪
'/* l_listmanage_no 娗棟斣崋
'/* l_listcd 挔昜僐乕僪
'/* l_listeda 挔昜巬斣
'/* l_pageSpecId 儁乕僕巇條ID
'/* l_processingSpecId 壛岺巇條ID
'/* return ADODB.Recordset 専嶕寢壥
'/*******************************************************
Public Function InsertListBaseRecAll(l_db,l_sysid,l_coid,l_inRec,l_listmanage_no,l_listcd,l_listeda,l_pageSpecId,l_processingSpecId)
Dim l_strSql
InsertListBaseRecAll = true
l_strSql = "INSERT INTO LISTBASE_T VALUES('" &_
l_sysid & "','" &_
l_coid & "'," &_
l_listmanage_no & ",'" &_
l_listcd & "','" &_
l_listeda & "','" &_
l_inRec.Item("LIST_NAME") & "','" &_
l_inRec.Item("SECTION_ID") & "','" &_
l_inRec.Item("USER_ID") & "','" &_
l_inRec.Item("APPLICANT") & "','" &_
LSTS_DRAFT & "','" &_
l_inRec.Item("CALC_SUBJECT") & "','" &_
l_inRec.Item("CLASS1") & "','" &_
l_inRec.Item("CLASS2") & "','" &_
l_inRec.Item("CLASS3") & "','" &_
l_inRec.Item("LIST_UNIT") & "','" &_
l_inRec.Item("SECRET_FLG") & "','" &_
l_inRec.Item("SECRET_PASSWORD") & "','" &_
l_inRec.Item("TEMPLATE_ID") & "','" &_
l_inRec.Item("SUBTEMPLATE_ID") & "','" &_
l_inRec.Item("PRINT_CLASS") & "',"
If l_inRec.Item("PAGE_COUNT") <> "" Then
l_strSql = l_strSql & l_inRec.Item("PAGE_COUNT") & ","
Else
l_strSql = l_strSql & "0,"
End If
If l_inRec.Item("SET_COUNT") <> "" Then
l_strSql = l_strSql & l_inRec.Item("SET_COUNT") & ",'"
Else
l_strSql = l_strSql & "0,'"
End If
l_strSql = l_strSql & l_inRec.Item("RESULT_SIZE") & "',"
If l_inRec.Item("RESULT_ROW") <> "" Then
l_strSql = l_strSql & l_inRec.Item("RESULT_ROW") & ","
Else
l_strSql = l_strSql & "0,"
End If
If l_inRec.Item("RESULT_COL") <> "" Then
l_strSql = l_strSql & l_inRec.Item("RESULT_COL") & ",'"
Else
l_strSql = l_strSql & "0,'"
End If
l_strSql = l_strSql & l_inRec.Item("RESULT_UNIT") & "','" &_
l_inRec.Item("DEPLOY_SIZE") & "',"
If l_inRec.Item("DEPLOY_ROW") <> "" Then
l_strSql = l_strSql & l_inRec.Item("DEPLOY_ROW") & ","
Else
l_strSql = l_strSql & "0,"
End If
If l_inRec.Item("DEPLOY_COL") <> "" Then
l_strSql = l_strSql & l_inRec.Item("DEPLOY_COL") & ",'"
Else
l_strSql = l_strSql & "0,'"
End If
l_strSql = l_strSql & l_inRec.Item("DEPLOY_UNIT") & "','" &_
l_inRec.Item("BOOKBINDING") & "','" &_
l_inRec.Item("BOOKBINDING_OTHER") & "','" &_
l_pageSpecId & "','" &_
l_processingSpecId & "','" &_
l_inRec.Item("PROCESSING_NOTE") & "','" &_
l_inRec.Item("PACKING_FORM") & "',"
If l_inRec.Item("PACKING_COUNT") <> "" Then
l_strSql = l_strSql & l_inRec.Item("PACKING_COUNT") & ",'"
Else
l_strSql = l_strSql & "0,'"
End If
l_strSql = l_strSql & l_inRec.Item("SPECIAL_MATTER") & "','" &_
l_inRec.Item("OPEN_PERIOD_START") & "','" &_
l_inRec.Item("OPEN_PERIOD_END") & "','" &_
l_inRec.Item("CLAIM_PERIOD_START") & "','" &_
l_inRec.Item("CLAIM_PERIOD_END") & "','" &_
l_inRec.Item("CLAIM_PERIOD_FLAG") & "','" &_
l_inRec.Item("ARRIVAL_WAIT") & "',"
If l_inRec.Item("UNIT_PRICE") <> "" Then
l_strSql = l_strSql & l_inRec.Item("UNIT_PRICE") & ",'"
Else
l_strSql = l_strSql & "0,'"
End If
l_strSql = l_strSql & l_inRec.Item("USEPOSSIBLE_TERM_START") & "','" &_
l_inRec.Item("USEPOSSIBLE_TERM_END") & "','" &_
l_inRec.Item("LIST_CLASS1") & "','" &_
l_inRec.Item("STORAGE_PERIOD1") & "','" &_
l_inRec.Item("STORAGE_PERIOD_OTHER1") & "','" &_
l_inRec.Item("HEADOFFICE_KEEP1") & "','" &_
l_inRec.Item("LIST_CLASS2") & "','" &_
l_inRec.Item("STORAGE_PERIOD2") & "','" &_
l_inRec.Item("STORAGE_PERIOD_OTHER2") & "','" &_
l_inRec.Item("HEADOFFICE_KEEP2") & "','" &_
l_inRec.Item("LIST_CLASS3") & "','" &_
l_inRec.Item("STORAGE_PERIOD3") & "','" &_
l_inRec.Item("STORAGE_PERIOD_OTHER3") & "','" &_
l_inRec.Item("HEADOFFICE_KEEP3") & "','" &_
l_inRec.Item("LEAV_DIRECTION") & "',"
If l_inRec.Item("LEAV_DIRECTION_COUNT") <> "" Then
l_strSql = l_strSql & l_inRec.Item("LEAV_DIRECTION_COUNT") & ",'"
Else
l_strSql = l_strSql & "0,'"
End If
l_strSql = l_strSql & l_inRec.Item("OPEN_IMAGE_FLAG") & "','" &_
l_inRec.Item("OPEN_AUTH_LIST") & "','" &_
l_inRec.Item("OPEN_AUTH_LEAV") & "','" &_
l_inRec.Item("LISTNUMBER_NEW1") & "','" &_
l_inRec.Item("LISTNUMBER_NEW2") & "','" &_
l_inRec.Item("LISTNUMBER_NEW3") & "','" &_
l_inRec.Item("LISTNUMBER_OLD1") & "','" &_
l_inRec.Item("LISTNUMBER_OLD2") & "','" &_
l_inRec.Item("LISTNUMBER_OLD3") & "','" &_
l_inRec.Item("RELATED_LIST1") & "','" &_
l_inRec.Item("RELATED_LIST2") & "','" &_
l_inRec.Item("RELATED_LIST3") & "','" &_
l_inRec.Item("RELATED_LIST4") & "','" &_
l_inRec.Item("RELATED_LIST5") & "','" &_
l_inRec.Item("RELATED_LIST6") & "','"
'僇僥僑儕侾偑懚嵼偡傞応崌
If l_inRec.Item("CATEGORY1") <> "" Then
l_strSql = l_strSql & Replace(l_inRec.Item("CATEGORY1"),",","\,") & "','"
Else
l_strSql = l_strSql & "','"
End If
'僇僥僑儕俀偑懚嵼偡傞応崌
If l_inRec.Item("CATEGORY2") <> "" Then
l_strSql = l_strSql & Replace(l_inRec.Item("CATEGORY2"),",","\,") & "','"
Else
l_strSql = l_strSql & "','"
End If
'僇僥僑儕俁偑懚嵼偡傞応崌
If l_inRec.Item("CATEGORY3") <> "" Then
l_strSql = l_strSql & Replace(l_inRec.Item("CATEGORY3"),",","\,") & "','"
Else
l_strSql = l_strSql & "','"
End If
'僇僥僑儕係偑懚嵼偡傞応崌
If l_inRec.Item("CATEGORY4") <> "" Then
l_strSql = l_strSql & Replace(l_inRec.Item("CATEGORY4"),",","\,") & "','"
Else
l_strSql = l_strSql & "','"
End If
'僇僥僑儕俆偑懚嵼偡傞応崌
If l_inRec.Item("CATEGORY5") <> "" Then
l_strSql = l_strSql & Replace(l_inRec.Item("CATEGORY5"),",","\,") & "','"
Else
l_strSql = l_strSql & "','"
End If
l_strSql = l_strSql & l_inRec.Item("DATACLAIM_NOTE") & "','" &_
"0',SYSDATE,'','0')"
If l_db.ProcExecute(l_strSql) Then
InsertListBaseRecAll = true
Else
InsertListBaseRecAll = false
End If
' Call l_db.ProcBeginTrans
' If l_db.ProcExecute(l_strSql) Then
' Call l_db.ProcCommit
' InsertListBaseRecAll = true
' Exit Function
' Else
' Call l_db.ProcRollBack
' Response.Write "幐攕"
' InsertListBaseRecAll = false
' End If
End Function
'/***********************************
'/* 挔昜巬斣偺敪斣
'/* param丗Param1 DbAccess
'/* Param2 僔僗僥儉ID
'/* Param3 挔昜斣崋
'/* return丗
'/***********************************
Public Function GetListEdaRec(Param1,Param2,Param3)
Dim l_SQL
Dim l_rec
l_SQL = "SELECT TRIM(TO_CHAR(MAX(LIST_EDA) + 1,'00')) AS LIST_EDA " &_
" FROM LISTBASE_T " &_
" WHERE SYSTEM_ID = '" & Param2 & "' " &_
" AND LIST_CD = '" & Param3 & "' "
Set l_rec = Param1.ProcRecordset(l_SQL,1,0)
GetListEdaRec = l_rec.Fields.Item("LIST_EDA")
End Function
'/*******************************************************
'/* 挔昜傪嶍彍偡傞(嶍彍僼儔僌傪俷俶偵偡傞)
'/* param丗l_dbaccess(DBAccess) DB傾僋僙僗
'/* l_sysid(String) 僔僗僥儉ID
'/* l_coid(String) 夛幮ID
'/* l_listManageNo 挔昜娗棟斣崋
'/* return boolean True丗惓忢丄False丗堎忢
'/*******************************************************
Public Function DeleteListBaseRec(l_dbaccess, l_sysid, l_coid, l_listManageNo)
Dim l_strsql 'String
DeleteListBaseRec = True
'SQL暥嶌惉
l_strsql = "UPDATE LISTBASE_T SET " & _
"DEL_FLG = '" & FLG_ON & "'," & _
"UPDATE_YMD=SYSDATE"
'WHERE 僔僗僥儉ID AND 夛幮ID AND 挔昜娗棟斣崋
l_strsql = l_strsql & " WHERE SYSTEM_ID = '" & l_sysId & "' AND COMPANY_ID = " & _
"'" & l_coId & "' AND LIST_MANAGE_NO=" & l_listManageNo
'SQL敪峴
If Not l_dbaccess.ProcExecute(l_strsql) Then
'僄儔乕偺応崌偼儘乕儖僶僢僋
l_dbaccess.ProcRollBack
DeleteListBaseRec = False
Exit Function
End If
End Function
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -