createfilemaster.asp

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

<%
Class CreateFileMaster
	Dim l_SQL
	'/**********************************
	'/* 敪憲嵪傒斕懀昳庢摼
	'/* param丗l_db		DbAccess
	'/*        l_mdl	僙僢僔儑儞忣曬
	'/* return丗儗僐乕僪僙僢僩
	'/**********************************
	Public Function GetDeliveryEnd(l_db,l_mdl)
		l_SQL = "SELECT '70'," &_
				"       P_M.RECEPT_YMD," &_
				"       P_M.SEND_YMD," &_
				"       P_M.GOODS_CD," &_
				"       P_M.GOODS_EDA," &_
				"       P_M.QUANTITY," &_
				"       P_M.UNIT_PRICE," &_
				"       P_M.MAILING_COST," &_
				"       P_M.SUB_TOTAL," &_
				"       C_M.NAME," &_
				"       P_M.GRANT_ID," &_
				"       '敪憲嵪傒'," &_
				"       P_M.CLAIM_ID," &_
				"       P_M.DELIVERY_ID," &_
				"       P_M.DELIVERY_POSTCODE," &_
				"       P_M.DELIVERY_PREFECTURE," &_
				"       P_M.DELIVERY_TOWN," &_
				"       P_M.DELIVERY_HOUSE_NUMBER," &_
				"       P_M.DELIVERY_COMPANY_NAME," &_
				"       P_M.DELIVERY_SECTION_NAME," &_
				"       P_M.DELIVERY_RECEIVE_NAME," &_
				"       P_M.DELIVERY_TEL," &_
				"       P_M.DELIVERY_FAX," &_
				"       P_M.NOTE," &_
				"       P_M.MAIL," &_
				"       SYSDATE " &_
				"  FROM PROMOTIONORDER_M P_M,CODE_M C_M " &_
				" WHERE P_M.SYSTEM_ID = '" & l_mdl.l_sysId & "' " &_
				"   AND P_M.COMPANY_ID = '" & l_mdl.l_coId & "' " &_
				"   AND P_M.SECTION_ID = '" & l_mdl.l_secId & "' " &_
				"   AND P_M.USER_ID = '" & l_mdl.l_userId & "' " &_
				"   AND P_M.CLAIM_SITUATION = '" & PROM_DELIVERY_END & "' " &_
				"   AND C_M.CLASSIFIED_CODE = '" & CD_PAYMENT & "' " &_
				"   AND P_M.CLAIM_METHOD = C_M.CODE "

		 Set GetDeliveryEnd = l_db.ProcRecordset(l_SQL,10,0)

	End Function

    '/**********************************
	'/* 挔昜忣曬庢摼
	'/* param丗l_db		DbAccess
	'/*        l_sysId	僔僗僥儉ID
	'/*        l_coId	夛幮ID
	'/**********************************
	Public Function GetListRec(l_db,l_sysId,l_coId)
		L_SQL = "SELECT L_T.LIST_CD," &_
		        "L_T.LIST_EDA," &_
		        "L_T.LIST_NAME,''," &_
       			"L_T.PRINT_CLASS," &_
        		"(SELECT NAME " &_
          		"   FROM CODE_M " &_
                "   WHERE SYSTEM_ID = L_T.SYSTEM_ID " &_
		        "    AND CLASSIFIED_CODE = '" & CD_PRINT_CLASS & "' " &_
           		"    AND CODE=L_T.PRINT_CLASS)," &_
				"L_T.CLASS1," &_
		        "(SELECT NAME " &_
         	    "   FROM CODE_M " &_ 
	            "   WHERE SYSTEM_ID = L_T.SYSTEM_ID " &_
           		"     AND CLASSIFIED_CODE='" & CD_CLASS1 & "' " &_
           		"     AND CODE=L_T.CLASS1) AS CLASS1," &_   
		        "L_T.CLASS2," &_
		        "(SELECT NAME " &_ 
          		"FROM CODE_M " &_
 		        "WHERE SYSTEM_ID = L_T.SYSTEM_ID " &_
		        "  AND CLASSIFIED_CODE = '" & CD_CLASS2 & "' " &_
           		"  AND CODE=L_T.CLASS2) AS CLASS1," &_  
      			"L_T.OPEN_PERIOD_START," &_
		        "L_T.OPEN_PERIOD_END,'0'," &_
      			"L_T.SECTION_ID," &_
      			"(SELECT SECTION_NAME " &_
		        "   FROM SECTION_M " &_ 
        		"  WHERE SYSTEM_ID = L_T.SYSTEM_ID " &_   
          		"    AND COMPANY_ID=L_T.COMPANY_ID " &_
          		"    AND SECTION_ID=L_T.SECTION_ID)," &_
      			"(SELECT U_M.SECTION_ID " &_        
  		       	"   FROM SECTION_M S_M,USER_M U_M " &_
        		"  WHERE S_M.SYSTEM_ID=L_T.SYSTEM_ID " &_
	            "    AND U_M.SYSTEM_ID = L_T.SYSTEM_ID " &_
		        "    AND S_M.COMPANY_ID = L_T.COMPANY_ID " &_
          		"    AND U_M.COMPANY_ID = L_T.COMPANY_ID " &_
          		"    AND U_M.USER_ID = L_T.USER_ID " &_
          		"    AND U_M.SECTION_ID = S_M.SECTION_ID)," &_
		        "(SELECT S_M.SECTION_NAME " &_
         		"   FROM SECTION_M S_M,USER_M U_M " &_
        		"  WHERE S_M.SYSTEM_ID=L_T.SYSTEM_ID " &_
          		"    AND U_M.SYSTEM_ID = L_T.SYSTEM_ID " &_
          		"    AND S_M.COMPANY_ID = L_T.COMPANY_ID " &_
          		"    AND U_M.COMPANY_ID = L_T.COMPANY_ID " &_
          		"    AND U_M.USER_ID = L_T.USER_ID " &_
     		    "    AND U_M.SECTION_ID = S_M.SECTION_ID)," &_
      			"L_T.UNIT_PRICE," &_
		     	"L_T.SET_COUNT," &_
				"(SELECT NAME " &_
				"   FROM CODE_M " &_
				"  WHERE SYSTEM_ID = L_T.SYSTEM_ID " &_
                "    AND CLASSIFIED_CODE = '" & CD_LIST_UNIT & "' " &_
           		"    AND CODE=L_T.LIST_UNIT)," &_
		      	"L_T.LIST_STATUS," &_
		      	"(SELECT NAME " &_
         		"   FROM CODE_M " &_
         		"  WHERE SYSTEM_ID = L_T.SYSTEM_ID " &_
                "    AND CLASSIFIED_CODE = '" & CD_LIST_STATUS & "' " &_
           		"    AND CODE=L_T.LIST_STATUS)," &_
				"NVL(L_T.SETLIST_FLG,'0')," &_
      			"TO_CHAR(SYSDATE,'YYYY/MM/DD') " &_  
				" FROM LISTBASE_T L_T " &_
				"WHERE L_T.SYSTEM_ID = '" & l_sysId & "' " &_
  				"  AND L_T.COMPANY_ID = '" & l_coId & "' " &_
				"  AND L_T.DEL_FLG <> '1' "
'Response.Write l_SQL
		Set GetListRec = l_db.ProcRecordset(l_SQL,10,0)
	End Function

	'/***********************************
	'/* 嵼屔忣曬庢摼
	'/* param丗l_db		DbAccess
	'/*        l_sysId	僔僗僥儉ID
	'/*        l_coId	夛幮ID
	'/***********************************
	Public Function GetStockRec(l_db,l_sysId,l_coId)
		l_SQL = "SELECT S_T.LIST_CD," &_
				"       S_T.LIST_EDA," &_
				"       S_T.DELIVERY_PLACE1," &_
				"       (SELECT COMPANY_NAME " &_ 
				"          FROM COMPANY_M " &_
				"         WHERE SYSTEM_ID = S_T.SYSTEM_ID " &_
				"           AND COMPANY_ID = S_T.DELIVERY_PLACE1) AS COMPANY_NAME1," &_
				"       S_T.NUM1," &_
				"       S_T.RESERVE_STOCK_NUM1," &_
				"       S_T.DELIVERY_PLACE2," &_
				"       (SELECT COMPANY_NAME " &_ 
				"          FROM COMPANY_M " &_
				"         WHERE SYSTEM_ID = S_T.SYSTEM_ID " &_
				"           AND COMPANY_ID = S_T.DELIVERY_PLACE2) AS COMPANY_NAME2," &_
				"       S_T.NUM2," &_
				"       S_T.RESERVE_STOCK_NUM2," &_
				"       S_T.DELIVERY_PLACE3," &_
				"       (SELECT COMPANY_NAME " &_ 
				"          FROM COMPANY_M " &_
				"         WHERE SYSTEM_ID = S_T.SYSTEM_ID " &_
				"           AND COMPANY_ID = S_T.DELIVERY_PLACE3) AS COMPANY_NAME3," &_
				"       S_T.NUM3," &_
				"       S_T.RESERVE_STOCK_NUM3," &_
				"       TO_CHAR(SYSDATE,'YYYY/MM/DD') AS FILEDATE" &_
				"  FROM STOCK_T S_T " &_
				" WHERE S_T.SYSTEM_ID = '" & l_sysId & "' " &_
				"   AND S_T.COMPANY_ID = '" & l_coId & "' " &_
				"   AND S_T.DEL_FLG <> '1' "
		Set GetStockRec = 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 GetOrderRec(l_db,l_sysId,l_coId,l_sDate,l_eDate,l_radio)
		l_SQL = "SELECT DISTINCT O_T.ORDER_ID," &_
				"       O_T.LIST_CD," &_
				"       O_T.LIST_EDA," &_
				"       TO_CHAR(O_T.ORDER_YMD,'YYYY/MM/DD') AS ORDER_YMD," &_
				"       D_T.DELIVERY_PLACE," &_
 				"      (SELECT COMPANY_NAME " &_
				"          FROM COMPANY_M " &_
				"         WHERE SYSTEM_ID = O_T.SYSTEM_ID " &_
				"           AND COMPANY_ID = D_T.DELIVERY_PLACE) AS COMPANY_NAME," &_
				"       O_T.ORDER_AMOUNT," &_
				"       L_T.LIST_UNIT," &_
				"       D_T.STORE_NUM," &_
				"       TO_CHAR(D_T.DELIVERY_YMD,'YYYY/MM/DD') AS DELIVERY_YMD," &_
				"       TO_CHAR(O_T.LAST_DELIVERY_YMD,'YYYY/MM/DD') AS LAST_DELIVERY_YMD," &_
				"       O_T.ORDER_MONEY," &_
				"       O_T.ORDER_STATUS," &_
				"       (SELECT NAME " &_
				"          FROM CODE_M " &_
				"         WHERE SYSTEM_ID = O_T.SYSTEM_ID " &_
				"           AND CLASSIFIED_CODE = '" & CD_ORDER_STATUS & "' " &_
				"           AND CODE = O_T.ORDER_STATUS) AS ORDER_STATUS_NAME," &_
				"       TO_CHAR(SYSDATE,'YYYY/MM/DD') AS FILEDATE " &_
				"  FROM ORDER_T O_T, " &_
				"       DELIVERYINFO_T D_T," &_
				"       LISTBASE_T L_T " &_ 
				" WHERE O_T.SYSTEM_ID = '" & l_sysId & "' " &_ 
				"   AND O_T.SYSTEM_ID = D_T.SYSTEM_ID " &_