📄 fmlistbasemaster.asp
字号:
Session("formmk").Item("usepossible_term_end_mm") & Session("formmk").Item("usepossible_term_end_dd") & "', 'YYYYMMDD')," '"SECRET_FLG= '" & l_inrec.l_secretFlg & "'," & _
'戝検弌屔巜帵
l_sql = l_sql & "LEAV_DIRECTION= '" & Session("formmk").Item("leav_direction") & "',"
'戝検弌屔巜帵悢
l_sql = l_sql & "LEAV_DIRECTION_COUNT= " & l_fmCmn.GetNumSql(Session("formmk").Item("leav_direction_count")) & ","
l_sql = l_sql & _
"OPEN_AUTH_LIST= '" & Session("formmk").Item("open_auth_list") & "'," & _
"OPEN_AUTH_LEAV= '" & Session("formmk").Item("open_auth_leav") & "'," & _
"LISTNUMBER_NEW1= '" & Session("formmk").Item("listnumber_new1") & "'," & _
"LISTNUMBER_NEW2= '" & Session("formmk").Item("listnumber_new2") & "'," & _
"LISTNUMBER_NEW3= '" & Session("formmk").Item("listnumber_new3") & "'," & _
"LISTNUMBER_OLD1= '" & Session("formmk").Item("listnumber_old1") & "'," & _
"LISTNUMBER_OLD2= '" & Session("formmk").Item("listnumber_old2") & "'," & _
"LISTNUMBER_OLD3= '" & Session("formmk").Item("listnumber_old3") & "'," & _
"RELATED_LIST1= '" & Session("formmk").Item("related_list1") & "'," & _
"RELATED_LIST2= '" & Session("formmk").Item("related_list2") & "'," & _
"RELATED_LIST3= '" & Session("formmk").Item("related_list3") & "'," & _
"RELATED_LIST4= '" & Session("formmk").Item("related_list4") & "'," & _
"RELATED_LIST5= '" & Session("formmk").Item("related_list5") & "'," & _
"RELATED_LIST6= '" & Session("formmk").Item("related_list6") & "'," & _
"DATACLAIM_NOTE= '" & Session("formmk").Item("dataclaim_note") & "'," & _
"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'"
'Response.Write l_sql
'SQL敪峴
If Not l_dbaccess.ProcExecute(l_sql) Then
'僄儔乕偺応崌偼儘乕儖僶僢僋
l_dbaccess.ProcRollBack
UpdateListBaseRec = False
Exit Function
End If
End Function
'/*******************************************************
'/* 挔昜斣崋傪敪斣偡傞
'/* param丗l_dbaccess(DBAccess) DB傾僋僙僗
'/* l_sysId(String) 僔僗僥儉ID
'/* l_coId(String) 夛幮ID丂仸枹巊梡
'/* return ADODB.Recordset 専嶕寢壥
'/*******************************************************
Public Function GetListCd(l_dbaccess, l_sysId, l_coId)
Dim l_sql
Dim l_recSet
'儘僢僋傪偐偗傞
l_sql = "SELECT * FROM LISTBASE_T WHERE SYSTEM_ID = '" & l_sysId & _
"' FOR UPDATE"
Call l_dbaccess.ProcRecordset(l_sql,10,1)
'挔昜斣崋傪敪斣偡傞(挔昜娗棟僥乕僽儖偺嵟戝抣挔昜斣崋亄侾傪庢摼)
l_sql = "SELECT TRIM(TO_CHAR(NVL(MAX(LIST_CD),0)+1,'0000000')) AS LIST_CD FROM LISTBASE_T " & _
" WHERE SYSTEM_ID = '" & l_sysId & "'"
Set l_recSet = l_dbaccess.ProcRecordset(l_sql,10,0)
GetListCd = l_recSet.Fields.Item("LIST_CD")
End Function
'/*******************************************************
'/* 挔昜僗僥乕僞僗傪峏怴偡傞
'/* param丗l_dbaccess(DBAccess) DB傾僋僙僗
'/* l_sysid(String) 僔僗僥儉ID
'/* l_coid(String) 夛幮ID
'/* l_listManageNo 挔昜娗棟斣崋
'/* l_listStatus 挔昜僗僥乕僞僗
'/* return boolean True丗惓忢丄False丗堎忢
'/*******************************************************
Public Function UpdateListStatus(l_dbaccess, l_sysid, l_coid, l_listManageNo, l_listStatus)
Dim l_strsql 'String
UpdateListStatus = True
'SQL暥嶌惉
'UPDATE LISTBASE_T SET LIST_STATUS
l_strsql = "UPDATE LISTBASE_T SET LIST_STATUS = '" & l_listStatus & "'"
'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
UpdateListStatus = False
Exit Function
End If
End Function
'/*******************************************************
'/* 挔昜婎杮忣曬(俽俿俤俹侾)傪峏怴偡傞
'/* param丗dbaccess(DBAccess) DB傾僋僙僗
'/* l_inRec(MakeStep1Mdl) 峏怴儗僐乕僪
'/* return ADODB.Recordset 専嶕寢壥
'/*******************************************************
Public Function UpdateListBaseStep1(l_dbaccess, l_inrec)
Dim l_sql
Dim l_fmCmn
Set l_fmCmn = New FmCommon
UpdateListBaseStep1 = True
'SQL暥惗惉
l_sql = "UPDATE LISTBASE_T SET "
l_sql = l_sql & "LIST_NAME= '" & Session("formmk").Item("list_name") & "',"
l_sql = l_sql & "SECTION_ID= '" & Session("formmk").Item("section_id") & "',"
l_sql = l_sql & "USER_ID= '" & Session("formmk").Item("userId") & "',"
l_sql = l_sql & "APPLICANT= '" & Session("formmk").Item("applicant") & "',"
l_sql = l_sql & "CALC_SUBJECT= '" & Session("formmk").Item("calc_subject") & "',"
l_sql = l_sql & "CLASS1= '" & Session("formmk").Item("class1") & "',"
l_sql = l_sql & "CLASS2= '" & Session("formmk").Item("class2") & "',"
l_sql = l_sql & "CLASS3= '" & Session("formmk").Item("class3") & "',"
l_sql = l_sql & "LIST_UNIT= '" & Session("formmk").Item("list_unit") & "',"
l_sql = l_sql & "RESULT_SIZE= '" & Session("formmk").Item("result_size") & "',"
l_sql = l_sql & "PACKING_COUNT= " & l_fmCmn.GetNumSql(Session("formmk").Item("packing_count")) & ","
l_sql = l_sql & "SECRET_FLG= '" & Session("formmk").Item("secretFlg") & "',"
l_sql = l_sql & "SECRET_PASSWORD= '" & Session("formmk").Item("secretPassword") & "',"
'岞奐婜娫(奐巒)
l_sql = l_sql & "OPEN_PERIOD_START= TO_DATE('" & Session("formmk").Item("open_period_start_yy") & _
Session("formmk").Item("open_period_start_mm") & Session("formmk").Item("open_period_start_dd") & "', 'YYYYMMDD'),"
'岞奐婜娫(廔椆)
l_sql = l_sql & "OPEN_PERIOD_END= TO_DATE('" & Session("formmk").Item("open_period_end_yy") & _
Session("formmk").Item("open_period_end_mm") & Session("formmk").Item("open_period_end_dd") & "', 'YYYYMMDD'),"
'惪媮婜娫(奐巒)
If Session("formmk").Item("claim_period_flag") = FLG_OFF Then
l_sql = l_sql & "CLAIM_PERIOD_START= TO_DATE('" & Session("formmk").Item("claim_period_start_yy") & _
Session("formmk").Item("claim_period_start_mm") & Session("formmk").Item("claim_period_start_dd") & "', 'YYYYMMDD'),"
Else
l_sql = l_sql & "CLAIM_PERIOD_START= NULL,"
End If
'惪媮婜娫(廔椆)
l_sql = l_sql & "CLAIM_PERIOD_END= TO_DATE('" & Session("formmk").Item("claim_period_end_yy") & _
Session("formmk").Item("claim_period_end_mm") & Session("formmk").Item("claim_period_end_dd") & "', 'YYYYMMDD'),"
'惪媮婜娫(擺昳師戞惪媮奐巒)僼儔僌, 擖壸懸偪
l_sql = l_sql & "CLAIM_PERIOD_FLAG= '" & Session("formmk").Item("claim_period_flag") & "'," & _
"ARRIVAL_WAIT= '" & Session("formmk").Item("arrival_wait") & "',"
'攝晩扨壙
l_sql = l_sql & "UNIT_PRICE= " & l_fmCmn.GetNumSql(Session("formmk").Item("unit_price")) & ","
'巊梡壜擻婜尷(奐巒)
l_sql = l_sql & "USEPOSSIBLE_TERM_START= TO_DATE('" & Session("formmk").Item("use_possible_term_start_yy") & _
Session("formmk").Item("use_possible_term_start_mm") & Session("formmk").Item("use_possible_term_start_dd") & "', 'YYYYMMDD'),"
'巊梡壜擻婜尷(廔椆)
l_sql = l_sql & "USEPOSSIBLE_TERM_END= TO_DATE('" & Session("formmk").Item("use_possible_term_end_yy") & _
Session("formmk").Item("use_possible_term_end_mm") & Session("formmk").Item("use_possible_term_end_dd") & "', 'YYYYMMDD')," '"SECRET_FLG= '" & l_inrec.l_secretFlg & "'," & _
'戝検弌屔巜帵
l_sql = l_sql & "LEAV_DIRECTION= '" & Session("formmk").Item("leav_direction") & "',"
'戝検弌屔巜帵悢
l_sql = l_sql & "LEAV_DIRECTION_COUNT= " & l_fmCmn.GetNumSql(Session("formmk").Item("leav_direction_count")) & ","
l_sql = l_sql & _
"OPEN_IMAGE_FLAG= '" & Session("formmk").Item("openImageFlag") & "'," & _
"OPEN_AUTH_LIST= '" & Session("formmk").Item("open_auth_list") & "'," & _
"OPEN_AUTH_LEAV= '" & Session("formmk").Item("open_auth_leav") & "'," & _
"LISTNUMBER_NEW1= '" & Session("formmk").Item("listnumber_new1") & "'," & _
"LISTNUMBER_NEW2= '" & Session("formmk").Item("listnumber_new2") & "'," & _
"LISTNUMBER_NEW3= '" & Session("formmk").Item("listnumber_new3") & "'," & _
"LISTNUMBER_OLD1= '" & Session("formmk").Item("listnumber_old1") & "'," & _
"LISTNUMBER_OLD2= '" & Session("formmk").Item("listnumber_old2") & "'," & _
"LISTNUMBER_OLD3= '" & Session("formmk").Item("listnumber_old3") & "'," & _
"RELATED_LIST1= '" & Session("formmk").Item("related_list1") & "'," & _
"RELATED_LIST2= '" & Session("formmk").Item("related_list2") & "'," & _
"RELATED_LIST3= '" & Session("formmk").Item("related_list3") & "'," & _
"RELATED_LIST4= '" & Session("formmk").Item("related_list4") & "'," & _
"RELATED_LIST5= '" & Session("formmk").Item("related_list5") & "'," & _
"RELATED_LIST6= '" & Session("formmk").Item("related_list6") & "'," & _
"DATACLAIM_NOTE= '" & Session("formmk").Item("dataclaim_note") & "'," & _
"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_inRec(MakeStep2Mdl) 峏怴儗僐乕僪
'/* return ADODB.Recordset 専嶕寢壥
'/*******************************************************
Public Function UpdateListBaseStep2(l_dbaccess, l_inrec)
Dim l_sql
Dim l_fmCmn
Set l_fmCmn = New FmCommon
UpdateListBaseStep2 = True
'SQL暥惗惉乮巇忋偘僒僀僘(廲墶)丄揥奐僒僀僘(廲墶)偼枹擖椡偺応崌偼NULL)
'UPDATE LISTBASE_T SET
l_sql = "UPDATE LISTBASE_T SET " & _
"PRINT_CLASS= '" & l_inrec.l_printClass & "',"
l_sql = l_sql & "PAGE_COUNT= " & l_fmCmn.GetNumSql(l_inrec.l_pageCount) & ","
l_sql = l_sql & "SET_COUNT= " & l_fmCmn.GetNumSql(l_inrec.l_setCount) & ","
l_sql = l_sql & "RESULT_SIZE= '" & l_inrec.l_resultSize & "',"
l_sql = l_sql & "RESULT_ROW= " & l_fmCmn.GetNumSqlNull(l_inrec.l_resultRow) & ","
l_sql = l_sql & "RESULT_COL= " & l_fmCmn.GetNumSqlNull(l_inrec.l_resultCol) & ","
l_sql = l_sql & "RESULT_UNIT= '" & l_inrec.l_resultUnit & "'," & _
"DEPLOY_SIZE= '" & l_inrec.l_deploySize & "',"
l_sql = l_sql & "DEPLOY_ROW= " & l_fmCmn.GetNumSqlNull(l_inrec.l_deployRow) & ","
l_sql = l_sql & "DEPLOY_COL= " & l_fmCmn.GetNumSqlNull(l_inrec.l_deployCol) & ","
l_sql = l_sql & "DEPLOY_UNIT= '" & l_inrec.l_deployUnit & "'," & _
"BOOKBINDING= '" & l_inrec.l_bookbinding & "'," & _
"BOOKBINDING_OTHER= '" & l_inrec.l_bookbindingOther & "'," & _
"PROCESSING_NOTE= '" & l_inrec.l_processingNote & "'," & _
"PACKING_FORM= '" & l_inrec.l_packingForm & "',"
l_sql = l_sql & "PACKING_COUNT= " & l_fmCmn.GetNumSql(l_inrec.l_packingCount) & ","
l_sql = l_sql & "SPECIAL_MATTER= '" & l_inrec.l_specialMatter & "'," & _
"UPDATE_YMD= SYSDATE"
'僔僗僥儉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
UpdateListBaseStep2 = False
Exit Function
End If
End Function
'/*******************************************************
'/* 岞奐忣曬(俽俿俤俹俁)傪峏怴偡傞
'/* param丗dbaccess(DBAccess) DB傾僋僙僗
'/* l_inRec(MakeStep3Mdl) 峏怴儗僐乕僪
'/* return ADODB.Recordset 専嶕寢壥
'/*******************************************************
Public Function UpdateListBaseStep3(l_dbaccess, l_inrec)
Dim l_sql
Dim l_fmCmn
Set l_fmCmn = New FmCommon
UpdateListBaseStep3 = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -