📄 fmlistbasemaster.asp
字号:
'/* l_listManageNo 挔昜娗棟斣崋
'/* return ADODB.Recordset 専嶕寢壥
'/*******************************************************
Public Function SearchListBaseRecBakup(l_db, l_sysid, l_coid, l_listManageNo)
Dim l_strsql 'String
Dim l_recSet
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'偁偲偱晄梫偵側偭偨傜徚偡両両両
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'SQL暥嶌惉
'SELECT
l_strsql = "SELECT LB.SYSTEM_ID,LB.COMPANY_ID,LB.LIST_CD,LB.LIST_EDA," &_
"LB.LIST_NAME,LB.SECTION_ID,LB.USER_ID,USR.NAME,LB.APPLICANT,LB.LIST_STATUS,LB.CALC_SUBJECT," & _
"LB.CLASS1,LB.CLASS2,LB.CLASS3,LB.LIST_UNIT,LB.SECRET_FLG,LB.SECRET_PASSWORD,LB.TEMPLATE_ID," & _
"LB.SUBTEMPLATE_ID,LB.PRINT_CLASS,LB.PAGE_COUNT,LB.SET_COUNT,LB.RESULT_SIZE,LB.RESULT_ROW," & _
"LB.RESULT_COL,LB.RESULT_UNIT,LB.DEPLOY_SIZE,LB.DEPLOY_ROW,LB.DEPLOY_COL,LB.DEPLOY_UNIT," & _
"LB.BOOKBINDING,LB.BOOKBINDING_OTHER,LB.PAGE_SPEC_ID,LB.PROCESSING_SPEC_ID,LB.PROCESSING_NOTE," & _
"LB.PACKING_FORM,LB.PACKING_COUNT,LB.SPECIAL_MATTER,LB.OPEN_PERIOD_START," & _
"LB.OPEN_PERIOD_END,LB.CLAIM_PERIOD_START,LB.CLAIM_PERIOD_END,LB.CLAIM_PERIOD_FLAG," & _
"LB.ARRIVAL_WAIT,LB.UNIT_PRICE,LB.USEPOSSIBLE_TERM_START,LB.USEPOSSIBLE_TERM_END," &_
"LB.LIST_CLASS1,LB.STORAGE_PERIOD1,LB.STORAGE_PERIOD_OTHER1,LB.HEADOFFICE_KEEP1," & _
"LB.LIST_CLASS2,LB.STORAGE_PERIOD2,LB.STORAGE_PERIOD_OTHER2,LB.HEADOFFICE_KEEP2," & _
"LB.LIST_CLASS3,LB.STORAGE_PERIOD3,LB.STORAGE_PERIOD_OTHER3,LB.HEADOFFICE_KEEP3," & _
"LB.LEAV_DIRECTION,LB.LEAV_DIRECTION_COUNT," & _
"LB.OPEN_IMAGE_FLAG,LB.OPEN_AUTH_LIST,LB.OPEN_AUTH_LEAV,LB.LISTNUMBER_NEW1,LB.LISTNUMBER_NEW2," & _
"LB.LISTNUMBER_NEW3,LB.LISTNUMBER_OLD1,LB.LISTNUMBER_OLD2,LB.LISTNUMBER_OLD3,LB.RELATED_LIST1," & _
"LB.RELATED_LIST2,LB.RELATED_LIST3,LB.RELATED_LIST4,LB.RELATED_LIST5,LB.RELATED_LIST6," & _
"LB.CATEGORY1,LB.CATEGORY2,LB.CATEGORY3,LB.CATEGORY4,LB.CATEGORY5," & _
"LB.DATACLAIM_NOTE,LB.SETLIST_FLG,LB.REG_YMD,LB.UPDATE_YMD,LB.DEL_FLG," & _
"ODR.ORDER_MANAGE_NO,ODR.ORDER_ID,ODR.ORDER_STATUS,ODR.ORDER_AMOUNT,ODR.REF_EST1,ODR.REF_EST2," &_
"ODR.CONTRI_YMD,ODR.CONTRI_FORM_ID,ODR.SECTION_ID1,ODR.COSTSHARE_RATE1,ODR.SECTION_ID2," &_
"ODR.COSTSHARE_RATE2,ODR.SECTION_ID3,ODR.COSTSHARE_RATE3,ODR.SECTION_ID4,ODR.COSTSHARE_RATE4," &_
"ODR.SECTION_ID5,ODR.COSTSHARE_RATE5,ODR.SECTION_ID6,ODR.COSTSHARE_RATE6,ODR.CONTACT," &_
"ODR.REFERENCE_FILE1,ODR.REFERENCE_FILE2,ODR.REFERENCE_FILE3,ODR.REFERENCE_FILE4,ODR.REFERENCE_FILE5," &_
"ODR.LISTIMAGE_TAKING,ODR.LISTSCAN_KIND,ODR.DELIVERY_INFO,ODR.DELIVERY_NOTE,ODR.RECOGNITION_PERSON1," &_
"ODR.RECOGNITION_FLG1,ODR.RECOGNITION_NOTE1,ODR.RECOGNITION_YMD1,ODR.RECOGNITION_PERSON2," &_
"ODR.RECOGNITION_FLG2,ODR.RECOGNITION_NOTE2,ODR.RECOGNITION_YMD2,ODR.RECOGNITION_PERSON3," &_
"ODR.RECOGNITION_FLG3,ODR.RECOGNITION_NOTE3,ODR.RECOGNITION_YMD3,ODR.LAST_DELIVERY_YMD,EXP_ESTIMATE," &_
"ODR.REG_YMD AS ODR_REG_YMD,ODR.UPDATE_YMD AS ODR_UPDATE_YMD,ODR.DEL_FLG AS ODR_DEL_FLG "
'FROM LISTBSE_T LB, ORDER_T ODR,USER_M USR
l_strsql = l_strsql & " FROM LISTBASE_T LB, ORDER_T ODR,USER_M USR"
'WHERE 寢崌忦審(挔昜婎杮忣曬僥乕僽儖丒敪拲僥乕僽儖)
l_strsql = l_strsql & " WHERE LB.SYSTEM_ID = ODR.SYSTEM_ID(+)" & _
" AND LB.SYSTEM_ID = USR.SYSTEM_ID(+)" & _
" AND LB.COMPANY_ID = ODR.COMPANY_ID(+)" & _
" AND LB.COMPANY_ID = USR.COMPANY_ID(+)" & _
" AND LB.USER_ID = USR.USER_ID(+)" & _
" AND LB.LIST_CD = ODR.LIST_CD(+)" & _
" AND LB.LIST_EDA = ODR.LIST_EDA(+)"
'僔僗僥儉ID AND 夛幮ID AND 挔昜娗棟斣崋 AND 嶍彍僼儔僌亗1
l_strsql = l_strsql & " AND LB.SYSTEM_ID = '" & l_sysId & "' AND LB.COMPANY_ID = " & _
"'" & l_coId & "' AND LB.LIST_MANAGE_NO = " & l_listManageNo & " AND LB.DEL_FLG <> '1'"
'DB傛傝儗僐乕僪傪庢摼偟偰曉偡
Set SearchListBaseRecBakup = l_db.ProcRecordset(l_strsql,1,0)
End Function
'/*******************************************************
'/* 挔昜婎杮忣曬傪侾儗僐乕僪搊榐偡傞
'/* param丗dbaccess(DBAccess) DB傾僋僙僗
'/* l_inRec(MakeStep1Mdl) 搊榐儗僐乕僪
'/* return boolean True丗惓忢丄False丗堎忢
'/*******************************************************
Public Function InsertListBaseRec(l_dbaccess, l_inrec, l_status)
Dim l_sql
Dim arr_CompId
Dim i
InsertListBaseRec = True
'--------------
' 挔昜婎杮忣曬
'--------------
'SQL暥惗惉
l_sql = "INSERT INTO LISTBASE_T(" & _
"SYSTEM_ID,COMPANY_ID,LIST_MANAGE_NO,LIST_CD,LIST_EDA,LIST_NAME,SECTION_ID," & _
"USER_ID,APPLICANT,LIST_STATUS,CALC_SUBJECT,CLASS1,CLASS2,CLASS3,LIST_UNIT," & _
"RESULT_SIZE,PACKING_COUNT,SECRET_FLG,SECRET_PASSWORD," & _
"OPEN_PERIOD_START,OPEN_PERIOD_END," & _
"CLAIM_PERIOD_START,CLAIM_PERIOD_END,CLAIM_PERIOD_FLAG,ARRIVAL_WAIT,UNIT_PRICE," & _
"USEPOSSIBLE_TERM_START,USEPOSSIBLE_TERM_END," & _
"LEAV_DIRECTION,LEAV_DIRECTION_COUNT,OPEN_IMAGE_FLAG,OPEN_AUTH_LIST,OPEN_AUTH_LEAV," & _
"LISTNUMBER_NEW1,LISTNUMBER_NEW2,LISTNUMBER_NEW3," & _
"LISTNUMBER_OLD1,LISTNUMBER_OLD2,LISTNUMBER_OLD3," & _
"RELATED_LIST1,RELATED_LIST2,RELATED_LIST3," & _
"RELATED_LIST4,RELATED_LIST5,RELATED_LIST6," & _
"DATACLAIM_NOTE,REG_YMD,UPDATE_YMD,DEL_FLG) VALUES ('" & _
l_inrec.l_sysId & "','" & _
GetCompIdRec(l_dbaccess, l_inrec.l_sysId) & "'," & _
l_inrec.l_listManageNo & ",'" & _
Session("formmk").Item("list_cd") & "','" & _
Session("formmk").Item("list_eda") & "','" & _
Session("formmk").Item("list_name") & "','" & _
Session("formmk").Item("section_id") & "','" & _
l_inrec.l_userId & "','" & _
Session("formmk").Item("applicant") & "','" & _
l_status & "','" & _
Session("formmk").Item("calc_subject") & "','" & _
Session("formmk").Item("class1") & "','" & _
Session("formmk").Item("class2") & "','" & _
Session("formmk").Item("class3") & "','" & _
Session("formmk").Item("list_unit") & "','" & _
Session("formmk").Item("result_size") & "'," & _
Session("formmk").Item("packing_count") & ",'" & _
Session("formmk").Item("secretFlg") & "','" & _
Session("formmk").Item("secretPassword") & "',"
If Session("formmk").Item("open_period_start_yy") <> "" And _
Session("formmk").Item("open_period_start_mm") <> "" And _
Session("formmk").Item("open_period_start_dd") <> "" Then
l_sql = l_sql & "TO_DATE('" & Session("formmk").Item("open_period_start_yy") & _
Session("formmk").Item("open_period_start_mm") & Session("formmk").Item("open_period_start_dd") & "000000', 'YYYYMMDDHH24MISS'),"
Else
l_sql = l_sql & "NULL,"
End If
If Session("formmk").Item("open_period_end_yy") <> "" And _
Session("formmk").Item("open_period_end_mm") <> "" And _
Session("formmk").Item("open_period_end_dd") <> "" Then
l_sql = l_sql & "TO_DATE('" & Session("formmk").Item("open_period_end_yy") & _
Session("formmk").Item("open_period_end_mm") & Session("formmk").Item("open_period_end_dd") & "235959', 'YYYYMMDDHH24MISS'),"
Else
l_sql = l_sql & "NULL,"
End If
If Session("formmk").Item("claim_period_start_yy") <> "" And _
Session("formmk").Item("claim_period_start_mm") <> "" And _
Session("formmk").Item("claim_period_start_dd") <> "" Then
l_sql = l_sql & "TO_DATE('" & Session("formmk").Item("claim_period_start_yy") & _
Session("formmk").Item("claim_period_start_mm") & Session("formmk").Item("claim_period_start_dd") & "000000', 'YYYYMMDDHH24MISS'),"
Else
l_sql = l_sql & "NULL,"
End If
If Session("formmk").Item("claim_period_end_yy") <> "" And _
Session("formmk").Item("claim_period_end_mm") <> "" And _
Session("formmk").Item("claim_period_end_dd") <> "" Then
l_sql = l_sql & "TO_DATE('" & Session("formmk").Item("claim_period_end_yy") & _
Session("formmk").Item("claim_period_end_mm") & Session("formmk").Item("claim_period_end_dd") & "235959', 'YYYYMMDDHH24MISS'),'"
Else
l_sql = l_sql & "NULL,'"
End If
l_sql = l_sql & Session("formmk").Item("claim_period_flag") & "','" & _
Session("formmk").Item("arrival_wait") & "'," & _
Session("formmk").Item("unit_price") & ","
If Session("formmk").Item("usepossible_term_start_yy") <> "" And _
Session("formmk").Item("usepossible_term_start_mm") <> "" And _
Session("formmk").Item("usepossible_term_start_dd") <> "" Then
l_sql = l_sql & "TO_DATE('" & Session("formmk").Item("usepossible_term_start_yy") & _
Session("formmk").Item("usepossible_term_start_mm") & Session("formmk").Item("usepossible_term_start_dd") & "', 'YYYYMMDD'),"
Else
l_sql = l_sql & "NULL,"
End If
If Session("formmk").Item("usepossible_term_end_yy") <> "" And _
Session("formmk").Item("usepossible_term_end_mm") <> "" And _
Session("formmk").Item("usepossible_term_end_dd") <> "" Then
l_sql = l_sql & "TO_DATE('" & Session("formmk").Item("usepossible_term_end_yy") & _
Session("formmk").Item("usepossible_term_end_mm") & Session("formmk").Item("usepossible_term_end_dd") & "', 'YYYYMMDD'),'"
Else
l_sql = l_sql & "NULL,'"
End If
l_sql = l_sql & Session("formmk").Item("leav_direction") & "'," & _
Session("formmk").Item("leav_direction_count") & ",'" & _
Session("formmk").Item("openImageFlag") & "','" & _
Session("formmk").Item("open_auth_list") & "','" & _
Session("formmk").Item("open_auth_leav") & "','" & _
Session("formmk").Item("listnumber_new1") & "','" & _
Session("formmk").Item("listnumber_new2") & "','" & _
Session("formmk").Item("listnumber_new3") & "','" & _
Session("formmk").Item("listnumber_old1") & "','" & _
Session("formmk").Item("listnumber_old2") & "','" & _
Session("formmk").Item("listnumber_old3") & "','" & _
Session("formmk").Item("related_list1") & "','" & _
Session("formmk").Item("related_list2") & "','" & _
Session("formmk").Item("related_list3") & "','" & _
Session("formmk").Item("related_list4") & "','" & _
Session("formmk").Item("related_list5") & "','" & _
Session("formmk").Item("related_list6") & "','" & _
Session("formmk").Item("dataclaim_note") & "'," & _
"SYSDATE, NULL, '0')"
'Response.Write l_sql
'SQL敪峴
If l_dbaccess.ProcExecute(l_sql) Then
'Call l_dbaccess.ProcCommit
Else
'僄儔乕偺応崌偼儘乕儖僶僢僋
l_dbaccess.ProcRollBack
InsertListBaseRec = False
Exit Function
End If
End Function
'/*******************************************************
'/* 挔昜婎杮忣曬(俽俿俤俹侾)傪峏怴偡傞
'/* param丗dbaccess(DBAccess) DB傾僋僙僗
'/* l_inRec(MakeStep1Mdl) 峏怴儗僐乕僪
'/* return ADODB.Recordset 専嶕寢壥
'/*******************************************************
Public Function UpdateListBaseRec(l_dbaccess, l_inrec, l_status)
Dim l_sql
Dim l_fmCmn
Set l_fmCmn = New FmCommon
UpdateListBaseRec = True
'SQL暥惗惉
l_sql = "UPDATE LISTBASE_T SET "
l_sql = l_sql & "LIST_CD= '" & Session("formmk").Item("list_cd") & "',"
l_sql = l_sql & "LIST_EDA= '" & Session("formmk").Item("list_eda") & "',"
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 & "LIST_STATUS= '" & l_status & "',"
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") & "',"
'岞奐婜娫(奐巒)
If Session("formmk").Item("open_period_start_yy") <> "" And _
Session("formmk").Item("open_period_start_mm") <> "" And _
Session("formmk").Item("open_period_start_dd") <> "" Then
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") & "000000', 'YYYYMMDDHH24MISS'),"
End If
'岞奐婜娫(廔椆)
If Session("formmk").Item("open_period_end_yy") <> "" And _
Session("formmk").Item("open_period_end_mm") <> "" And _
Session("formmk").Item("open_period_end_dd") <> "" Then
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") & "235959', 'YYYYMMDDHH24MISS'),"
End If
'惪媮婜娫(奐巒)
If Session("formmk").Item("claim_period_flag") = FLG_OFF Then
If Session("formmk").Item("claim_period_start_yy") <> "" And _
Session("formmk").Item("claim_period_start_mm") <> "" And _
Session("formmk").Item("claim_period_start_dd") <> "" 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") & "000000', 'YYYYMMDDHH24MISS'),"
End If
Else
l_sql = l_sql & "CLAIM_PERIOD_START= NULL,"
End If
'惪媮婜娫(廔椆)
If Session("formmk").Item("claim_period_end_yy") <> "" And _
Session("formmk").Item("claim_period_end_mm") <> "" And _
Session("formmk").Item("claim_period_end_dd") <> "" Then
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") & "235959', 'YYYYMMDDHH24MISS'),"
End If
'惪媮婜娫(擺昳師戞惪媮奐巒)僼儔僌, 擖壸懸偪
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("usepossible_term_start_yy") & _
Session("formmk").Item("usepossible_term_start_mm") & Session("formmk").Item("usepossible_term_start_dd") & "', 'YYYYMMDD'),"
'巊梡壜擻婜尷(奐巒)
l_sql = l_sql & "USEPOSSIBLE_TERM_END= TO_DATE('" & Session("formmk").Item("usepossible_term_end_yy") & _
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -