outlistmaster.asp

印刷物の発注、在庫管理、出庫処理を一元管理

<%
Class OutListMaster
	'/*******************************************************
	'/* 挔昜堦棗夋柺偵昞帵偡傞儗僐乕僪傪拪弌偡傞
	'/* param丗l_dbaccess(DBAccess) 	DB傾僋僙僗
	'/*        l_coId	夛幮ID
	'/*		   l_indata 夋柺擖椡抣
	'/*        l_cutil	CharUtil
	'/* return ADODB.Recordset 専嶕寢壥
	'/*******************************************************
	Public Function SearchClaimList(l_db,l_coId,l_indata,l_cutil)
		Dim l_strsql	'String

		l_strSql = "SELECT D_M.DEL_FLG," &_
				   "       D_M.SEND_YMD," &_
				   "	   D_M.RECEPT_NO," &_
				   "       D_M.LIST_CD," &_
				   "       D_M.LIST_EDA," &_
				   "       L_T.LIST_NAME," &_
				   "       SUM(D_M.QUANTITY) AS QUANTITY," &_
				   "       (SELECT NAME FROM CODE_M " &_
				   "         WHERE SYSTEM_ID = '" & l_indata.l_sysId & "' " &_
				   "           AND CLASSIFIED_CODE = '" & CD_LEAVING_SITUATION & "' " &_
				   "    AND CODE=D_M.CLAIM_SITUATION) AS CLAIM_SITUATION " &_
				   "  FROM DATACLAIMORDER_M D_M," &_
				   "       LISTBASE_T L_T " &_
				   " WHERE D_M.SYSTEM_ID = '" & l_indata.l_sysId & "' " &_
				   "   AND D_M.SYSTEM_ID = L_T.SYSTEM_ID " &_
				   "   AND D_M.WAREHOUSE_ID = '" & l_coId & "' " &_
				   "   AND D_M.LIST_CD = L_T.LIST_CD " &_
				   "   AND D_M.LIST_EDA = L_T.LIST_EDA "
		'専嶕忦審偵庴晅斣崋
		If l_indata.l_inReceptNo <> "" Then
			l_strSql = l_strSql & "AND D_M.RECEPT_NO = '" & l_indata.l_inReceptNo & "' "
		End If
		'専嶕忦審偵挔昜僐乕僪
		If l_indata.l_inListCd <> "" Then
			l_strSql = l_strSql & "AND D_M.LIST_CD = '" & l_indata.l_inListCd & "' "
		End If
		'専嶕忦審偵挔昜巬斣
		If l_indata.l_inListEda <> "" Then
			l_strSql = l_strSql & "AND D_M.LIST_EDA = '" & l_indata.l_inListEda & "' "
		End If
		'専嶕忦審偵挔昜柤
		If l_indata.l_inListName <> "" Then
			l_strSql = l_strSql & "AND L_T.LIST_NAME LIKE '" & l_cutil.chg_HantoZen(l_indata.l_inListName) & "%' "
		End If
		'専嶕忦審偵忬嫷
		If l_indata.l_inSituation <> "" Then
			l_strSql = l_strSql & "AND D_M.CLAIM_SITUATION = '" & l_indata.l_inSituation & "' "
		End If
		'専嶕忦審偵摉擔
		If l_indata.l_inRdoutDay = "1" Or l_indata.l_inRdoutDay = "" Then
			l_strSql = l_strSql & "AND D_M.SEND_YMD = '" & l_indata.l_inToday & "' "
		'専嶕忦審偵偦偺懠
		Else
			Dim l_fromymd
			Dim l_toymd
			l_fromymd = Trim(l_indata.l_inPdoutFromYear & l_indata.l_inPdoutFromMonth & l_indata.l_inPdoutFromDay)
			l_toymd = Trim(l_indata.l_inPdoutToYear & l_indata.l_inPdoutToMonth & l_indata.l_inPdoutToDay)

			If l_fromymd <> "" and l_toymd <> "" Then	'SEND_YMD BETWEEN l_fromymd AND l_toymd
				l_strSql = l_strSql & " AND TO_CHAR(D_M.SEND_YMD, 'yyyymmdd') BETWEEN '" & l_fromymd & _
				 "' AND '" & l_toymd  & "'"
			ElseIf l_fromymd <> "" Then				'SEND_YMD = fromymd
				l_strSql = l_strSql & " AND TO_CHAR(D_M.SEND_YMD, 'yyyymmdd') >= '" & l_fromymd & "'"
			ElseIf l_toymd <> "" Then					'SEND_YMD = toymd
				l_strSql = l_strSql & " AND TO_CHAR(D_M.SEND_YMD, 'yyyymmdd') <= '" & l_toymd & "'"
			End If
			'If l_indata.l_inPdoutFromYear <> "" And _
			'	l_indata.l_inPdoutFromMonth <> "" And _
			'	l_indata.l_inPdoutFromDay <> "" Then
			'	l_strSql = l_strSql & "AND D_M.SEND_YMD > '" & l_indata.l_inPdoutFromYear & _
			'												"/" & l_indata.l_inPdoutFromMonth & _
			'												"/" & l_indata.l_inPdoutFromDay & "' "
			'End If
		End If
		l_strSql = l_strSql & " AND D_M.DEL_FLG = '0' "
		l_strSql = l_strSql & "GROUP BY D_M.DEL_FLG,D_M.SEND_YMD, D_M.RECEPT_NO, D_M.LIST_CD, " &_
								"D_M.LIST_EDA, L_T.LIST_NAME, D_M.CLAIM_SITUATION "
		l_strSql = l_strSql & "ORDER BY " & GetOrderByStr(l_indata.l_sortkey, l_indata.l_sortdesc)
'Response.Write l_strSql
debug_t(l_strsql)
		Set SearchClaimList = l_db.ProcRecordset(l_strsql,10,1)
	End Function

	'/*******************************************************
	'/* 僜乕僩暥庢摼
	'/* param丗l_sortkey(String) 僜乕僩僉乕
	'/*        l_sortdesc	僜乕僩DESC僉乕
	'/* 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 = "D_M.SEND_YMD DESC,D_M.RECEPT_NO"
		ElseIf l_sortkey = SORT_KEY2 Then			'弌屔擔弴
			l_retStr = "D_M.SEND_YMD" & l_seq			
		ElseIf l_sortkey = SORT_KEY3 Then			'庴晅斣崋弴
			l_retStr = "D_M.RECEPT_NO" & l_seq 
		ElseIf l_sortkey = SORT_KEY4 Then			'挔昜斣崋弴
			l_retStr = "D_M.LIST_CD" & l_seq & "," &_
						"D_M.LIST_EDA" & l_seq
		ElseIf l_sortkey = SORT_KEY5 Then			'挔昜柤弴
			l_retStr = "L_T.LIST_NAME" & l_seq
		End If

		GetOrderByStr = l_retStr
	End Function

	'/*********************************
	'/* 挔昜徻嵶庢摼
	'/* param丗l_db		DbAccess
	'/*        l_indata 慡夋柺僷儔儊乕僞
	'/* return丗RecordSet
	'/*********************************
	Public Function GetListDetailsRec(l_db,l_indata)
		Dim l_SQL
		l_SQL = "SELECT DISTINCT D_M.COMPANY_ID," &_
				"       D_M.SECTION_ID," &_
				"       D_M.USER_ID," &_ 
				"       TO_CHAR(D_M.SEND_YMD,'YYYY/MM/DD') AS SEND_YMD," &_
				"       D_M.TOTAL_SITUATION," &_
				"       (SELECT NAME " &_
				"          FROM CODE_M " &_
				"         WHERE SYSTEM_ID = D_M.SYSTEM_ID " &_
				"           AND CLASSIFIED_CODE = '" & CD_LEAVING_SITUATION & "' " &_
				"           AND CODE = D_M.TOTAL_SITUATION) AS SITUATION_NAME," &_
				"       (SELECT SECTION_NAME " &_ 
				"          FROM SECTION_M " &_
				"         WHERE SYSTEM_ID = D_M.SYSTEM_ID " &_
				"           AND COMPANY_ID = D_M.COMPANY_ID " &_
				"           AND SECTION_ID = D_M.SECTION_ID) AS CLAIM_SECTION_NAME," &_
				"       (SELECT NAME " &_
				"          FROM USER_M " &_
				"         WHERE SYSTEM_ID = D_M.SYSTEM_ID " &_
				"           AND COMPANY_ID = D_M.COMPANY_ID " &_
				"           AND USER_ID = D_M.USER_ID) AS USER_NAME," &_
				"       (SELECT NAME " &_
				"          FROM CODE_M " &_
				"         WHERE SYSTEM_ID = D_M.SYSTEM_ID " &_
				"           AND CLASSIFIED_CODE = '" & CD_DELIVERY_KIND & "' " &_
				"           AND CODE = D_M.DELIVERY_KIND) AS DELIVERY_KIND," &_
				"       D_M.POSTCODE," &_
				"       D_M.PREFECTURE," &_
				"       D_M.TOWN," &_
				"       D_M.HOUSE_NUMBER," &_
				"       D_M.BUILDING," &_
				"       D_M.COMPANY_NAME," &_
				"       D_M.SECTION_NAME," &_
				"       D_M.RECEIVE_NAME," &_
				"       D_M.TEL," &_
				"       D_M.FAX," &_
				"       D_M.NOTE, " &_
				"		D_M.CLAIM_METHOD " &_
				"  FROM DATACLAIMORDER_M D_M,LISTBASE_T L_T " &_
				" WHERE D_M.SYSTEM_ID = '" & l_indata.l_sysId & "' " &_
				"   AND D_M.SYSTEM_ID = L_T.SYSTEM_ID " &_
				"   AND D_M.WAREHOUSE_ID = '" & l_indata.l_coId & "' " &_
				"   AND D_M.RECEPT_NO = '" & l_indata.l_receptNo & "' " &_
				"   AND D_M.DEL_FLG = '" & FLG_OFF & "' "
'Response.Write l_SQL
		Set GetListDetailsRec = l_db.ProcRecordset(l_SQL,1,0)

	End Function

	'/*********************************
	'/* 敪拲悢検嶼弌
	'/* param丗l_db		DbAccess
	'/*        l_indata	夋柺擖椡抣
	'/*********************************
	Public Function GetTotalQuantityRec(l_db,l_coId,l_indata)  
		Dim l_SQL
		l_SQL = "SELECT SUM(QUANTITY) AS QUANTITY " &_
				"  FROM DATACLAIMORDER_M " &_
				" WHERE SYSTEM_ID = '" & l_indata.l_sysId & "' " &_
				"   AND COMPANY_ID = '" & l_indata.l_companyId & "' " &_
				"   AND WAREHOUSE_ID = '" & l_indata.l_coId & "' " &_
				"   AND RECEPT_NO = '" & l_indata.l_ReceptNo & "' " &_
				"   AND LIST_CD = '" & l_indata.l_listCd & "' " &_
				"   AND LIST_EDA = '" & l_indata.l_listEda & "' "
'Response.Write l_SQL

		Set GetTotalQuantityRec = l_db.ProcRecordset(l_SQL,1,0)
	End Function  

	'/*********************************
	'/* 慡惪媮忬嫷庢摼
	'/* param丗l_db		DbAccess
	'/*        l_indata	夋柺擖椡抣
	'/*********************************
	Public Function GetTotalSituationRec(l_db,l_indata)  
		l_SQL = "SELECT DISTINCT TOTAL_SITUATION " &_
				"  FROM DATACLAIMORDER_M " &_
				" WHERE SYSTEM_ID = '" & l_indata.l_sysId & "' " &_
				"   AND COMPANY_ID = '" & l_indata.l_coId & "' " &_
				"   AND RECEPT_NO = '" & l_indata.l_ReceptNo & "' " 
		Set GetTotalSituation = l_db.ProcRecordset(l_strsql,1,0)
	End Function  

	'/*********************************
	'/* 弌屔忣曬庢摼
	'/* param丗
	'/*********************************
	Public Function GetDeliInfoRec(l_db,l_indata)
		Dim l_SQL

		l_SQL = "SELECT D_M.LIST_CD," &_
				"       D_M.LIST_EDA," &_
				"       L_T.LIST_NAME," &_
				"       D_M.QUANTITY," &_
				"       (SELECT NAME " &_
				"          FROM CODE_M " &_
				"         WHERE SYSTEM_ID = D_M.SYSTEM_ID " &_
				"           AND CLASSIFIED_CODE = '" & CD_LEAVING_SITUATION & "' " &_
				"           AND CODE = D_M.CLAIM_SITUATION) CLAIM_SITUATIONNAME " &_
				"  FROM DATACLAIMORDER_M D_M,LISTBASE_T L_T " &_
				" WHERE D_M.SYSTEM_ID = '" & l_indata.l_sysId & "' " &_
				"   AND D_M.SYSTEM_ID = L_T.SYSTEM_ID " &_
				"   AND D_M.COMPANY_ID = '" & l_indata.l_companyId & "' " &_
				"   AND D_M.RECEPT_NO = '" & l_indata.l_ReceptNo & "' " &_
				"   AND D_M.WAREHOUSE_ID = '" & l_indata.l_coId & "' " &_
				"   AND D_M.LIST_CD = L_T.LIST_CD " &_
				"   AND D_M.LIST_EDA = L_T.LIST_EDA " &_
				"   AND D_M.DEL_FLG = '0' "
'response.write l_sql & "<br>"
		Set GetDeliInfoRec = l_db.ProcRecordset(l_SQL,1,0)
	End Function

	'/*********************************
	'/* 弌屔悢庢摼
	'/* param丗
	'/*********************************
	Public Function GetAmount(l_db,l_indata)
		Dim l_SQL
		
		l_SQL = "SELECT SUM(LEAVING_NUM) AS NUM " &_
				"  FROM WAREHOUSELEAVING_T " &_
				" WHERE SYSTEM_ID = '" & l_indata.l_sysId & "' " &_
				"   AND WAREHOUSE_ID = '" & l_indata.l_coId & "' " &_
				"   AND RECEPT_NO = '" & l_indata.l_ReceptNo & "' " &_
				"   AND LIST_CD = '" & l_indata.l_listCd & "' " &_
				"   AND LIST_EDA = '" & l_indata.l_listEda & "' "
		Set GetAmount = l_db.ProcRecordset(l_SQL,1,0)
	End Function

	'/*********************************
	'/* 埶棅尦庢摼
	'/* param丗
	'/*********************************
	Public Function GetClaimRec(l_db,l_indata)
		Dim l_SQL

		'If l_indata.l_claimMethod = CLM_METHOD_DIRECT Then
			'憅屔夛幮丒捈愙拲暥偺応崌
			l_SQL = "SELECT C_M.COMPANY_NAME," &_
					"       S_M.SECTION_NAME," &_
					"       S_M.PERSON AS NAME," &_
					"       S_M.POSTCODE," &_
					"       S_M.PREFECTURE," &_
					"       S_M.TOWN," &_
					"       S_M.HOUSE_NUMBER," &_
					"       S_M.BUILDING," &_
					"       S_M.TEL," &_
					"       S_M.FAX," &_ 
					"       S_M.MAIL " &_ 
					"  FROM COMPANY_M C_M," &_
					"       SECTION_M S_M " &_
					" WHERE C_M.SYSTEM_ID = '" & l_indata.l_sysId & "' " &_
					"   AND C_M.SYSTEM_ID = S_M.SYSTEM_ID " &_
					"   AND C_M.COMPANY_ID = '" & l_indata.l_companyId & "' " &_
					"   AND C_M.COMPANY_ID = S_M.COMPANY_ID "
		'Else
			'偦傟埲奜偺応崌
			l_SQL = "SELECT C_M.COMPANY_NAME," &_
					"       S_M.SECTION_NAME," &_
					"       U_M.NAME," &_
					"       S_M.POSTCODE," &_
					"       S_M.PREFECTURE," &_
					"       S_M.TOWN," &_
					"       S_M.HOUSE_NUMBER," &_
					"       S_M.BUILDING," &_
					"       S_M.TEL," &_
					"       S_M.FAX," &_ 
					"       S_M.MAIL " &_ 
					"  FROM COMPANY_M C_M," &_
					"       SECTION_M S_M," &_
					"       USER_M U_M " &_
					" WHERE C_M.SYSTEM_ID = '" & l_indata.l_sysId & "' " &_
					"   AND C_M.SYSTEM_ID = S_M.SYSTEM_ID " &_
					"   AND C_M.SYSTEM_ID = U_M.SYSTEM_ID " &_
					"   AND C_M.COMPANY_ID = '" & l_indata.l_companyId & "' " &_
					"   AND C_M.COMPANY_ID = S_M.COMPANY_ID " &_
					"   AND C_M.COMPANY_ID = U_M.COMPANY_ID " &_
					"   AND S_M.SECTION_ID = '" & l_indata.l_sectionId & "' " &_
					"   AND U_M.USER_ID = '" & l_indata.l_userId & "' "
		'End If

'Response.Write l_SQL & "<br>"
		Set GetClaimRec = l_db.ProcRecordset(l_SQL,1,0)
	End Function

End Class
%>