⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 fmlistbasemaster_bk.asp

📁 印刷物の発注、在庫管理、出庫処理を一元管理
💻 ASP
📖 第 1 页 / 共 3 页
字号:
<%
'/
'/挔昜娗棟婡擻
'/挔昜婎杮僥乕僽儖傾僋僙僗僋儔僗
'/
Class FmListBaseMaster

	'/*******************************************************
	'/* 挔昜堦棗夋柺偵昞帵偡傞儗僐乕僪傪拪弌偡傞
	'/* param丗l_dbaccess(DBAccess) 	DB傾僋僙僗
	'/*        l_sysid(String) 僔僗僥儉ID
	'/*        l_coid(String) 夛幮ID
	'/*        l_secId(String) 晹栧ID
	'/*        l_menuAuth(String) 儊僯儏乕尃尷乮挔昜娗棟尃尷)
	'/*		   l_indata(Scripting.Dictionary) 夋柺擖椡抣
	'/* return ADODB.Recordset 専嶕寢壥
	'/*******************************************************
	Public Function SearchListBase(l_dbaccess, l_cutil, l_sysid, l_coid, l_secId, l_menuAuth, l_indata)
		Dim l_strsql

		'SQL暥嶌惉
		'SELECT
		l_strsql = "SELECT LB.SYSTEM_ID," &_
			"LB.COMPANY_ID," &_
			"LB.LIST_MANAGE_NO," &_
			"LB.LIST_CD," &_
			"LB.LIST_EDA," &_
			"LB.LIST_NAME," &_
			"LB.SECTION_ID," &_
			"LB.USER_ID," &_
			"LB.APPLICANT," &_
			"LB.LIST_STATUS," &_
			"LB.CALC_SUBJECT," &_
			"LB.CLASS1," &_
			"LB.CLASS2," &_
			"LB.CLASS3," &_
			"LB.LIST_UNIT," &_
			"LB.RESULT_SIZE," &_
			"LB.RESULT_ROW," &_
			"LB.RESULT_COL," &_
			"LB.RESULT_UNIT," &_
			"LB.PACKING_COUNT," &_
			"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.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.DATACLAIM_NOTE," &_
			"LB.REG_YMD," &_
			"LB.UPDATE_YMD," &_
			"LB.DEL_FLG," &_
       		"(SELECT NAME " &_
       		"   FROM CODE_M " &_
            "   WHERE SYSTEM_ID = LB.SYSTEM_ID " &_
	        "    AND CLASSIFIED_CODE = '" & CD_LIST_STATUS & "' " &_
       		"    AND CODE=LB.LIST_STATUS) AS LIST_STATUS_NAME," &_
      		"(SELECT SECTION_NAME " &_
		    "   FROM SECTION_M " &_ 
        	"  WHERE SYSTEM_ID = LB.SYSTEM_ID " &_   
          	"    AND COMPANY_ID=LB.COMPANY_ID " &_
          	"    AND SECTION_ID=LB.SECTION_ID) AS SECTION_NAME," &_
	        "(SELECT NAME " &_
       	    "   FROM CODE_M " &_ 
            "   WHERE SYSTEM_ID = LB.SYSTEM_ID " &_
       		"     AND CLASSIFIED_CODE='" & CD_CLASS1 & "' " &_
       		"     AND CODE=LB.CLASS1) AS CLASS1_NAME" 

		'FROM LISTBSE_T
		l_strsql = l_strsql & " FROM LISTBASE_T LB "

		'僔僗僥儉ID AND 夛幮ID AND 嶍彍僼儔僌<>'1'
		l_strsql = l_strsql & " WHERE LB.SYSTEM_ID =" & "'" & l_sysid & "' AND LB.COMPANY_ID = " &_
				"'" & l_coid & "' AND LB.DEL_FLG <> '1'"

		'娗棟尃尷偑偁傞応崌偼慡僨乕僞昞帵丅
		'尃尷偑側偄応崌偼丄帺暘偺晹栧偺僨乕僞偲丄岞奐壜擻側挔昜傪堦棗昞帵偡傞
		If l_menuAuth <> FLG_ON Then
			l_strsql = l_strsql & "AND (LB.SECTION_ID='" & l_secId & "' OR LB.SECRET_FLG = '1')"
		End If

		'夋柺擖椡偟偨撪梕傪愝掕
		If IsObject(l_indata) Then
			'AND 儊僯儏乕挔昜斣崋
			If l_indata.Item("menulistcd") <> "" Then
				l_strsql = l_strsql & " AND LB.LIST_CD=" & "'" & l_indata.Item("menulistcd") & "'"
			End If
			'AND 挔昜斣崋
			If l_indata.Item("listcd") <> "" Then
				l_strsql = l_strsql & " AND LB.LIST_CD=" & "'" & l_indata.Item("listcd") & "'"
			End If
			'AND 挔昜斣崋巬斣
			If l_indata.Item("listeda") <> "" Then
				l_strsql = l_strsql & " AND LB.LIST_EDA=" & "'" & l_indata.Item("listeda") & "'"
			End If
			'AND 挔昜柤
			If l_indata.Item("listname") <> "" Then
				l_strsql = l_strsql & " AND LB.LIST_NAME LIKE('%" & l_cutil.chg_HantoZen(l_indata.Item("listname")) & "%')"
			End If
			'AND 僥儞僾儗乕僩
			'If l_indata.Item("pdtemplate") <> "" Then
			'	l_strsql = l_strsql & " AND LB.TEMPLATE_ID=" & "'" & l_indata.Item("pdtemplate") & "'"
			'End If
			'AND 挔昜僗僥乕僞僗
			If l_indata.Item("pdliststatus") <> "" Then
				l_strsql = l_strsql & " AND LB.LIST_STATUS=" & "'" & l_indata.Item("pdliststatus") & "'"
			End If
			'AND 庡娗晹栧
			If l_indata.Item("pdsel") <> "" Then
				l_strsql = l_strsql & " AND LB.SECTION_ID=" & "'" & l_indata.Item("pdsel") & "'"
			End If
			'AND 搊榐擔亖嶌惉擔(FROM)乣嶌惉擔(TO)
			Dim l_fromymd
			Dim l_toymd
			l_fromymd = Trim(l_indata.Item("pdfromyear") & l_indata.Item("pdfrommonth") & l_indata.Item("pdfromday"))
			l_toymd = Trim(l_indata.Item("pdtoyear") & l_indata.Item("pdtomonth") & l_indata.Item("pdtoday"))

			If l_fromymd <> "" and l_toymd <> "" Then	'REG_YMD BETWEEN l_fromymd AND l_toymd
				l_strsql = l_strsql & " AND TO_CHAR(LB.REG_YMD, 'yyyymmdd') BETWEEN '" & l_fromymd & _
					 "' AND '" & l_toymd  & "'"
			ElseIf l_fromymd <> "" Then				'REG_YMD = fromymd
				l_strsql = l_strsql & " AND TO_CHAR(LB.REG_YMD, 'yyyymmdd') >= '" & l_fromymd & "'"
			ElseIf l_toymd <> "" Then					'REG_YMD = toymd
				l_strsql = l_strsql & " AND TO_CHAR(LB.REG_YMD, 'yyyymmdd') <= '" & l_toymd & "'"
			End If
		End If


		'ORDER BY
		If IsObject(l_indata) Then
			'ORDER BY
			l_strsql = l_strsql & " ORDER BY " & GetOrderByStr(l_indata.Item("sortkey"),l_indata.Item("sortdesc"))
		Else
			'ORDER BY (擖椡抣偑側偄応崌偼僨僼僅儖僩偺僜乕僩弴愝掕)
			l_strsql = l_strsql & " ORDER BY LB.REG_YMD DESC, LB.LIST_CD DESC, LB.LIST_EDA DESC"
		End If

		'DB傛傝堦棗傪庢摼偟偰曉偡(1儁乕僕亖10峴傪愝掕)
		Set SearchListBase = l_dbaccess.ProcRecordset(l_strsql,MAXROW_FORM_LIST,0)

	End Function

	'/*******************************************************
	'/* 僜乕僩暥庢摼
	'/* param丗l_sortkey(String) 僜乕僩僉乕
	'/* return String 僜乕僩暥
	'/*******************************************************
	Private Function GetOrderByStr(l_sortkey, l_sortdesc)
		Dim l_retStr	'String
		Dim l_seq		'String

		'僜乕僩弴愝掕
		If l_sortdesc = FLG_ON Then
			l_seq = " DESC"
		End If

		'僜乕僩暥嶌惉
		If l_sortkey = SORT_KEY1 Then				'僨僼僅儖僩(嶌惉擔(崀弴)亄挔昜斣崋(崀弴))
			l_retStr = "LB.REG_YMD DESC, LB.LIST_CD DESC, LB.LIST_EDA DESC"
		ElseIf l_sortkey = SORT_KEY2 Then			'嶌惉擔弴
			l_retStr = "LB.REG_YMD" & l_seq			
		ElseIf l_sortkey = SORT_KEY3 Then			'挔昜斣崋弴
			l_retStr = "LB.LIST_CD" & l_seq & ", "&_
					   "LB.LIST_EDA" & l_seq			
		ElseIf  l_sortkey = SORT_KEY4 Then			'挔昜柤弴
			l_retStr = "LB.LIST_NAME" & l_seq			
		End If

		GetOrderByStr = l_retStr
	End Function
	
	'/*******************************************************
	'/* 挔昜婎杮忣曬懚嵼僠僃僢僋
	'/* param丗dbaccess(DBAccess) 	DB傾僋僙僗
	'/*        sysid(String) 僔僗僥儉ID
	'/*        coid(String) 夛幮ID
	'/*        l_listManageNo(String) 挔昜娗棟斣崋
	'/* return boolean True丗巜掕儗僐乕僪偑懚嵼偡傞丄False丗懚嵼偟側偄
	'/*******************************************************
	Public Function CheckListBaseRec(l_dbaccess, l_sysId, l_coId, l_listManageNo)
		Dim l_recSet
		Dim l_sql

		CheckListBaseRec = False

		'SQL暥惗惉
		l_sql = "SELECT COUNT(*) FROM LISTBASE_T" & _
				" WHERE SYSTEM_ID  = '" & l_sysId & "'"  & _
				"   AND COMPANY_ID = '" & l_coId & "'" & _
				"   AND LIST_MANAGE_NO = '" & l_listManageNo & "'" & _
				"   AND DEL_FLG <> '1'"

		Set l_recSet = l_dbaccess.ProcRecordset(l_sql,10,0)

		'懚嵼偡傟偽True丄側偗傟偽False
		If l_recSet.Fields.Item("COUNT(*)") <> 0 Then
			CheckListBaseRec = True
		End If
	End Function

	'/*******************************************************
	'/* 挔昜婎杮忣曬丄敪拲忣曬傪侾儗僐乕僪拪弌偡傞
	'/* param丗dbaccess(DBAccess) 	DB傾僋僙僗
	'/*        sysid(String) 僔僗僥儉ID
	'/*        coid(String) 夛幮ID
	'/*		   l_listManageNo 挔昜娗棟斣崋
	'/* return ADODB.Recordset 専嶕寢壥
	'/*******************************************************
	Public Function SearchListBaseRec(l_db, l_sysid, l_coid, l_listManageNo, l_orderManageNo)
		Dim l_strsql	'String
		Dim l_recSet, l_maxOrderRs, l_wkDeliveryInfo

		'嵟怴偺敪拲儗僐乕僪偺擺昳忣曬ID傪拪弌偡傞丅擺昳忣曬偑懚嵼偟側偗傟偽専嶕忦審偵擖傟側偄
'		Set l_maxOrderRs = SelectMaxOrderRec(l_db, l_sysid, l_coid, l_listManageNo)
'		l_wkDeliveryInfo = ""
'		If IsObject(l_maxOrderRs) Then
'			l_wkDeliveryInfo  = l_maxOrderRs.Fields.Item("DELIVERY_INFO")
'		End If
		
		'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.RC_FLG1," & _
			"ODR.RECOGNITION_PERSON2,ODR.RECOGNITION_FLG2,ODR.RECOGNITION_NOTE2,ODR.RECOGNITION_YMD2,ODR.RC_FLG2," & _
			"ODR.RECOGNITION_PERSON3,ODR.RECOGNITION_FLG3,ODR.RECOGNITION_NOTE3,ODR.RECOGNITION_YMD3,ODR.RC_FLG3," & _
			"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' "
		'AND 擺昳忣曬ID
'		If l_wkDeliveryInfo <> "" Then
'			l_strsql = l_strsql & " AND ODR.DELIVERY_INFO=" & l_wkDeliveryInfo
'		End If

		'AND 敪拲娗棟斣崋
		If Not IsNull(l_orderManageNo) Then
			If l_orderManageNo <> "" Then
				l_strsql = l_strsql & " AND ODR.ORDER_MANAGE_NO=" & l_orderManageNo
			End If
		End If

		'DB傛傝儗僐乕僪傪庢摼偟偰曉偡
		Set SearchListBaseRec = l_db.ProcRecordset(l_strsql,1,0)
	End Function

	'/*******************************************************
	'/* 挔昜婎杮忣曬丄敪拲忣曬傪侾儗僐乕僪拪弌偡傞(僶僢僋傾僢僾丒偁偲偱晄梫偵側傟偽徚偡両)
	'/* param丗dbaccess(DBAccess) 	DB傾僋僙僗
	'/*        sysid(String) 僔僗僥儉ID
	'/*        coid(String) 夛幮ID
	'/*		   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 "

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -