createfilemaster.asp

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

				"   AND O_T.SYSTEM_ID = L_T.SYSTEM_ID " &_
				"   AND O_T.COMPANY_ID = '" & l_coId & "' " &_
				"   AND O_T.COMPANY_ID = D_T.COMPANY_ID " &_
				"   AND O_T.COMPANY_ID = L_T.COMPANY_ID " &_
				"   AND O_T.DELIVERY_INFO = D_T.DELIVERY_INFO " &_
				"   AND O_T.LIST_CD = L_T.LIST_CD " &_
				"   AND O_T.LIST_EDA = L_T.LIST_EDA " &_
				"   AND O_T.ORDER_STATUS IN ('" & OSTS_ORDER & "','" &_
											OSTS_DELIVERY_INST & "','" &_
											OSTS_DELIVERY & "','" &_
											OSTS_DELIVERY_CONF & "','" &_
											OSTS_PAYMENT_CONF & "','" &_
											OSTS_PAYMENT_FIN & "') " &_
				"   AND O_T.DEL_FLG <> '1' " &_
				"   AND O_T.DEL_FLG = D_T.DEL_FLG " &_
				"   AND O_T.DEL_FLG = L_T.DEL_FLG " &_
				"   AND D_T.DELIVERY_NUM > 0 "
		'忦審偵擔晅偑巜掕偝傟偨応崌
		If IsDate(l_sDate) And l_radio = "2" Then
			l_SQL = l_SQL & "AND O_T.ORDER_YMD > '" & l_sDate & "' " 
		End If

		If IsDate(l_eDate) And l_radio = "2" Then
			l_SQL = l_SQL & "AND O_T.ORDER_YMD < '" & l_eDate & "' " 
		End If

		If l_radio = "1" Then
			l_SQL = l_SQL & "AND O_T.ORDER_YMD = SYSDATE "
		End If
'Response.Write l_SQL
		Set GetOrderRec = l_db.ProcRecordset(l_SQL,10,0)
	End Function

	'/**********************************
	'/* 弌屔忣曬庢摼
	'/* param丗l_db		DbAccess
	'/*        l_sysId	僔僗僥儉ID
	'/*        l_coId	夛幮ID
	'/*        l_sDate	拪弌奐巒擔
	'/*        l_eDate	拪弌廔椆擔
	'/*        l_radio	儔僕僆儃僞儞
	'/**********************************
	Public Function GetWare(l_db,l_sysId,l_coId,l_sDate,l_eDate,l_radio)
		l_SQL = "SELECT W.RECEPT_NO," &_
				"       W.LIST_CD," &_
				"       W.LIST_EDA," &_
				"       W.WAREHOUSE_ID," &_
				"       (SELECT COMPANY_NAME " &_
				"          FROM COMPANY_M " &_
				"         WHERE SYSTEM_ID = W.SYSTEM_ID " &_
				"           AND COMPANY_ID = W.WAREHOUSE_ID)," &_
				"       W.LEAVING_NUM," &_
				"       L_T.LIST_UNIT," &_
				"       W.SCHEDULE_YMD," &_
				"       '0' || W.CLASS," &_
				"       TO_CHAR(SYSDATE,'YYYY/MM/DD')" &_
				"  FROM WAREHOUSELEAVING_T W," &_
				"       LISTBASE_T L_T " &_
				" WHERE W.SYSTEM_ID = '" & l_sysId & "' " &_
				"   AND W.SYSTEM_ID = L_T.SYSTEM_ID " &_
				"   AND W.LIST_CD = L_T.LIST_CD " &_
				"   AND W.LIST_EDA = L_T.LIST_EDA "
		'拪弌婜娫偑巜掕偝傟偨応崌
		If IsDate(l_sDate) And l_radio = "2" Then
			l_SQL = l_SQL & "AND W.REPORT_YMD > '" & l_sDate & "' " 
		End If

		If IsDate(l_eDate) And l_radio = "2" Then
			l_SQL = l_SQL & "AND W.REPORT_YMD < '" & l_eDate & "' " 
		End If

		If l_radio = "1" Then
			l_SQL = l_SQL & "AND W.REPORT_YMD = SYSDATE "
		End If
'Response.Write l_SQL
		Set GetWare = l_db.ProcRecordset(l_SQL,10,0)
	End Function

	'/**********************************
	'/* 敪拲壽嬥儗億乕僩庢摼
	'/* param丗l_db
	'/*        l_sysId
	'/*        l_coId
	'/*        l_sDate
	'/*        l_eDate
	'/*        l_radio	儔僕僆儃僞儞偺抣
	'/**********************************
	Public Function GetOrdMoneyRec(l_db,l_sysId,l_coId,l_sDate,l_eDate,l_radio)
		l_SQL = "SELECT '80'," &_
				"       O_T.ORDER_ID," &_
				"       TO_CHAR(O_T.ORDER_YMD,'YYYY/MM/DD')," &_
				"       L_T.SECTION_ID," &_
				"       A_T.COMPANY_ID," &_
				"       L_T.USER_ID," &_
				"       L_T.LIST_CD || '-' || L_T.LIST_EDA," &_
				"       L_T.LIST_NAME," &_
				"       O_T.ORDER_AMOUNT," &_
				"      (SELECT NAME " &_
         	    "         FROM CODE_M " &_ 
	            "        WHERE SYSTEM_ID = L_T.SYSTEM_ID " &_
           		"          AND CLASSIFIED_CODE='" & CD_ORDER_STATUS & "' " &_
           		"          AND CODE = O_T.ORDER_STATUS) " &_   
				"  FROM LISTBASE_T L_T," &_
				"       ORDER_T O_T," &_ 
				"       AUCTION_T A_T " &_
				" WHERE L_T.SYSTEM_ID = '" & l_sysId & "' " &_
				"   AND L_T.SYSTEM_ID = O_T.SYSTEM_ID " &_
				"   AND L_T.SYSTEM_ID = A_T.SYSTEM_ID " &_
				"   AND L_T.COMPANY_ID = '" & l_coId & "' " &_
				"   AND L_T.COMPANY_ID = O_T.COMPANY_ID " &_
				"   AND L_T.LIST_CD = O_T.LIST_CD " &_ 
				"   AND L_T.LIST_EDA = O_T.LIST_EDA " &_
				"   AND A_T.CONTRACTOR_STATUS = '" & ESTIMATE_DECISION & "' " &_
				"   AND O_T.ORDER_ID = A_T.ORDER_ID " &_
				"   AND O_T.CHARGE_IMPOSE_FLG = '1' " &_
				"   AND O_T.ORDER_STATUS IN ('" & OSTS_ORDER &_
				"','" & OSTS_DELIVERY_INST &_
				"','" & OSTS_DELIVERY &_
				"','" & OSTS_DELIVERY_CONF &_
				"','" & OSTS_PAYMENT_CONF &_
				"','" & OSTS_PAYMENT_FIN & "') "
		'拪弌婜娫偑巜掕偝傟偨応崌
		If IsDate(l_sDate) And l_radio = "2" Then
			l_SQL = l_SQL & "AND TO_CHAR(ORDER_YMD,'YYYY/MM') >= '" & l_sDate & "' "
		End If

		If IsDate(l_eDate) And l_radio = "2" Then
			l_SQL = l_SQL & "AND TO_CHAR(ORDER_YMD,'YYYY/MM') <= '" & l_eDate & "' "
		End If

		If Not IsDate(l_sDate) And Not IsDate(l_eDate)  And l_radio = "1" Then
			l_SQL = l_SQL & "AND TO_CHAR(ORDER_YMD,'YYYY/MM') = " &_
							"    TO_CHAR(SYSDATE,'YYYY/MM') "
		End If

		Set GetOrdMoneyRec = l_db.ProcRecordset(l_SQL,10,0)
	End Function

	'/**********************************
	'/* 帒椏惪媮壽嬥儗億乕僩庢摼
	'/* param丗l_db
	'/*        l_sysId
	'/*        l_coId
	'/*        l_sDate
	'/*        l_eDate
	'/*        l_radio	儔僕僆儃僞儞偺抣
	'/**********************************
	Public Function GetClaimMoneyRec(l_db,l_sysId,l_coId,l_sDate,l_eDate,l_radio)
		l_SQL = "SELECT '81'," &_
				"       D_M.RECEPT_NO," &_
				"       TO_CHAR(D_M.RECEPT_YMD,'YYYYMMDD')," &_
				"       TO_CHAR(D_M.SEND_YMD,'YYYYMMDD')," &_
				"       D_M.SECTION_ID," &_
				"       (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)," &_
				"       D_M.DELIVERY_ID," &_
				"       (SELECT NAME " &_
				"          FROM CODE_M " &_
				"         WHERE SYSTEM_ID = D_M.SYSTEM_ID " &_
				"           AND CLASSIFIED_CODE = '" & CD_METHOD & "' " &_
				"           AND CODE = D_M.CLAIM_METHOD)," &_
				"       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_SITUATION & "' " &_
				"           AND CODE = D_M.TOTAL_SITUATION) " &_
				"  FROM DATACLAIMORDER_M D_M,LISTBASE_T L_T " &_
				" WHERE D_M.SYSTEM_ID = '" & l_sysId & "' " &_
				"   AND D_M.SYSTEM_ID = L_T.SYSTEM_ID " &_
				"   AND D_M.COMPANY_ID = '" & l_coId & "' " &_
				"   AND D_M.COMPANY_ID = L_T.COMPANY_ID " &_
				"   AND D_M.LIST_CD = L_T.LIST_CD " &_
				"   AND D_M.LIST_EDA = L_T.LIST_EDA " &_
				"   AND D_M.TOTAL_SITUATION = '" & CLM_SITUATION_SHIPPING & "' "

		'拪弌婜娫偑巜掕偝傟偨応崌
		If IsDate(l_sDate) And l_radio = "2" Then
			l_SQL = l_SQL & "AND TO_CHAR(RECEPT_YMD,'YYYY/MM') >= '" & l_sDate & "' "
		End If

		If IsDate(l_eDate) And l_radio = "2" Then
			l_SQL = l_SQL & "AND TO_CHAR(RECEPT_YMD,'YYYY/MM') <= '" & l_eDate & "' "
		End If

		If Not IsDate(l_sDate) And Not IsDate(l_eDate)  And l_radio = "1" Then
			l_SQL = l_SQL & "AND TO_CHAR(RECEPT_YMD,'YYYY/MM') = " &_
							"    TO_CHAR(SYSDATE,'YYYY/MM') "
		End If
		Set GetClaimMoneyRec = l_db.ProcRecordset(l_SQL,10,0)
	End Function
End Class

%>