FrmFilpOutStorage.xml 122 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794279527962797279827992800280128022803280428052806280728082809281028112812281328142815281628172818281928202821282228232824282528262827282828292830283128322833283428352836283728382839284028412842284328442845284628472848284928502851285228532854285528562857285828592860286128622863286428652866286728682869287028712872287328742875287628772878287928802881288228832884288528862887288828892890289128922893289428952896289728982899290029012902290329042905290629072908290929102911291229132914291529162917291829192920292129222923292429252926292729282929293029312932293329342935293629372938293929402941294229432944294529462947294829492950295129522953295429552956295729582959296029612962296329642965296629672968296929702971297229732974297529762977297829792980298129822983298429852986298729882989299029912992299329942995299629972998299930003001300230033004300530063007300830093010301130123013301430153016301730183019302030213022302330243025302630273028302930303031303230333034303530363037303830393040304130423043304430453046304730483049305030513052305330543055305630573058305930603061306230633064306530663067306830693070307130723073307430753076307730783079308030813082308330843085308630873088308930903091309230933094309530963097309830993100310131023103310431053106310731083109311031113112311331143115311631173118311931203121312231233124312531263127312831293130313131323133313431353136313731383139314031413142314331443145314631473148314931503151315231533154315531563157315831593160316131623163316431653166316731683169317031713172317331743175317631773178317931803181318231833184318531863187318831893190319131923193319431953196319731983199320032013202320332043205320632073208320932103211321232133214321532163217321832193220322132223223322432253226322732283229323032313232323332343235323632373238323932403241324232433244324532463247324832493250325132523253325432553256325732583259326032613262326332643265326632673268326932703271327232733274327532763277327832793280328132823283328432853286328732883289329032913292329332943295329632973298329933003301330233033304330533063307330833093310331133123313331433153316331733183319332033213322332333243325332633273328332933303331333233333334333533363337333833393340334133423343334433453346334733483349335033513352335333543355335633573358335933603361336233633364336533663367336833693370337133723373337433753376337733783379338033813382338333843385338633873388338933903391339233933394339533963397339833993400340134023403340434053406340734083409341034113412341334143415341634173418341934203421342234233424342534263427342834293430343134323433343434353436343734383439344034413442344334443445344634473448344934503451345234533454345534563457345834593460346134623463346434653466346734683469347034713472347334743475347634773478347934803481348234833484348534863487348834893490349134923493349434953496349734983499350035013502350335043505350635073508350935103511351235133514351535163517351835193520352135223523352435253526352735283529353035313532353335343535353635373538353935403541354235433544354535463547354835493550355135523553355435553556355735583559356035613562356335643565356635673568356935703571357235733574357535763577357835793580358135823583358435853586358735883589359035913592359335943595359635973598359936003601360236033604360536063607360836093610361136123613361436153616361736183619362036213622362336243625362636273628362936303631363236333634363536363637363836393640364136423643364436453646364736483649365036513652365336543655365636573658365936603661366236633664366536663667366836693670367136723673367436753676367736783679368036813682368336843685368636873688368936903691369236933694369536963697369836993700370137023703370437053706370737083709371037113712371337143715371637173718371937203721372237233724372537263727372837293730373137323733373437353736373737383739374037413742374337443745374637473748374937503751375237533754375537563757375837593760376137623763376437653766376737683769377037713772377337743775377637773778377937803781378237833784378537863787378837893790379137923793379437953796379737983799380038013802380338043805380638073808380938103811381238133814381538163817381838193820382138223823382438253826382738283829383038313832383338343835383638373838383938403841384238433844384538463847384838493850385138523853385438553856385738583859386038613862386338643865386638673868386938703871387238733874387538763877387838793880388138823883388438853886388738883889389038913892389338943895389638973898389939003901390239033904390539063907390839093910391139123913391439153916391739183919392039213922392339243925392639273928392939303931393239333934393539363937393839393940394139423943394439453946394739483949395039513952395339543955
  1. <?xml version="1.0" encoding="UTF-8"?>
  2. <queryMap desc = "倒运出库管理">
  3. <query id = "FrmFilpOutStorage.doQueryData" desc = "查询库存数据">
  4. SELECT (SELECT T2.BASENAME FROM COM_BASE_INFO T2 WHERE T2.BASECODE = T.PRODUCT_FLAG)PRODUCT_FLAG,
  5. (SELECT T1.BASENAME
  6. FROM COM_BASE_INFO T1
  7. WHERE T1.BASECODE = T.MAT_STATUS) MAT_STATUS,
  8. T.MAT_STATUS AS MAT_STATUS_CODE,
  9. T.LOT_NO,
  10. T.STOVE_NO,
  11. T.JUDGE_STOVE_NO,
  12. T.BATCH_NO,
  13. T.BATCH_GROUD_NO,
  14. MAX(T.MATERIAL_NO)MATERIAL_NO,
  15. MAX(T.MATERIAL_NAME)MATERIAL_NAME,
  16. MAX(T.PRODUCCODE)PRODUCCODE,
  17. MAX(T.PRODUCNAME)PRODUCNAME,
  18. MAX(T.STEELCODE)STEELCODE,
  19. MAX(T.STEELNAME)STEELNAME,
  20. MAX(T.GRADECODE)GRADECODE,
  21. MAX(T.GRADENAME)GRADENAME,
  22. MAX(T.SPEC_CODE)SPEC_CODE,
  23. MAX(T.SPEC_NAME)SPEC_NAME,
  24. MAX(T.MODEL_CODE)MODEL_CODE,
  25. MAX(T.MODEL_DESC)MODEL_DESC,
  26. --MAX(T.STD_CODE)STD_CODE,
  27. --MAX(T.STD_NAME)STD_NAME,
  28. MAX(T.STD_STYLE)STD_STYLE,
  29. MAX(T.STD_STYLE_DESC)STD_STYLE_DESC,
  30. MAX(T.PRO_ORDER_NO)PRO_ORDER_NO,
  31. MAX(T.PROCESS_CDOE)PROCESS_CDOE,
  32. MAX(T.PROCESS_DESC)PROCESS_DESC,
  33. T.NEXT_PROCESS_CDOE,
  34. T.NEXT_PROCESS_DESC,
  35. T.PLINE_CODE,
  36. T.PLINE_NAME,
  37. MAX(T.ACT_DIMATER)ACT_DIMATER,
  38. MAX(T.ACT_HEIGHT)ACT_HEIGHT,
  39. SUM(T.ACT_LEN)ACT_LEN,
  40. MAX(T.ACT_LEN_MIN)ACT_LEN_MIN,
  41. MAX(T.ACT_LEN_MAX)ACT_LEN_MAX,
  42. SUM(T.ACT_COUNT) ACT_COUNT,
  43. SUM(T.ACT_WEIGHT) ACT_WEIGHT,
  44. T.BELONG_CODE,
  45. T.BELONG_NAME,
  46. --T.MAT_GOWHERE_CODE,
  47. --T.MAT_GOWHERE_NAME,
  48. --T.MAT_GOWHERE_NAME AS UPDATE_GO_WHERE_CODE,
  49. T.JUDGE_RESULT,
  50. MAX(TO_CHAR(T.JUDGE_RESULT_TIME, 'YYYY-MM-DD HH24:MI:SS')) JUDGE_RESULT_TIME,
  51. MAX(T.JUDGE_MAKER)JUDGE_MAKER,
  52. MAX(T.JUDGE_STD_NAME)JUDGE_STD_NAME,
  53. T.PIPMEMO,
  54. DECODE(T.QCM_STAUS, '00', '合格', '11', '待处理', '22', '废品') QCM_STAUS,
  55. MAX(T.TARGET)TARGET,
  56. T.FLAG_STOVE_NO_ZG,
  57. T.FLAG_STOVE_NO_ZG AS UPDATE_FLAG_STOVE,
  58. (CASE
  59. WHEN T.NEXT_PROCESS_CDOE = 'E' THEN
  60. (SELECT T1.ORDER_NO || '/' || T1.ORDER_SEQ
  61. FROM PLN_ORDER_DBK_S T1
  62. WHERE T1.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  63. AND T1.GX_PLAN_NO = T.GX_PLAN_NO_NEXT)
  64. WHEN T.NEXT_PROCESS_CDOE = 'F' THEN
  65. (SELECT T2.ORDER_NO || '/' || T2.ORDER_SEQ
  66. FROM PLN_ORDER_RCL_S T2
  67. WHERE T2.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  68. AND T2.GX_PLAN_NO = T.GX_PLAN_NO_NEXT)
  69. WHEN T.NEXT_PROCESS_CDOE = 'G' THEN
  70. (SELECT T3.ORDER_NO || '/' || T3.ORDER_SEQ
  71. FROM PLN_ORDER_JGX_S T3
  72. WHERE T3.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  73. AND T3.GX_PLAN_NO = T.GX_PLAN_NO_NEXT)
  74. ELSE
  75. NULL
  76. END) ORDER_NO_NEXT,
  77. --MAX(T.JUDGE_STD_DES)JUDGE_STD_DES,
  78. S.STORAGE_NO,
  79. S.LOCATION_NO,
  80. (SELECT S2.LOCATION_NAME FROM YDM_BS_LOCATION S2 WHERE S2.LOCATION_NO = S.LOCATION_NO)LOCATION_NAME,
  81. S.LARY_NO,
  82. S.LOC_NO,
  83. T.PRO_PLAN_ID_NEXT,
  84. T.GX_PLAN_NO_NEXT,
  85. (SELECT S1.STORAGE_NAME
  86. FROM YDM_BS_STORAGE S1
  87. WHERE S1.STORAGE_NO = S.STORAGE_NO) STORAGE_NAME,
  88. (CASE
  89. WHEN T.NEXT_PROCESS_CDOE = 'E' THEN
  90. (SELECT (SELECT T5.STORAGE_NAME FROM COM_BASE_PLINE T4,YDM_BS_STORAGE T5 WHERE T4.IN_REPOSITORY = T5.STORAGE_NO
  91. AND T4.PLINE_CODE = T1.PLINE_CODE)
  92. FROM PLN_ZY_DBK_M T1
  93. WHERE T1.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  94. AND T1.GX_PLAN_NO = T.GX_PLAN_NO_NEXT
  95. AND ROWNUM = 1)
  96. WHEN T.NEXT_PROCESS_CDOE = 'F' THEN
  97. (SELECT (SELECT T7.STORAGE_NAME FROM COM_BASE_PLINE T6,YDM_BS_STORAGE T7 WHERE T6.IN_REPOSITORY = T7.STORAGE_NO
  98. AND T6.PLINE_CODE = T2.PLINE_CODE)
  99. FROM PLN_ZY_RCL_M T2
  100. WHERE T2.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  101. AND T2.GX_PLAN_NO = T.GX_PLAN_NO_NEXT
  102. AND ROWNUM = 1)
  103. WHEN T.NEXT_PROCESS_CDOE = 'G' THEN
  104. (SELECT (SELECT T9.STORAGE_NAME FROM COM_BASE_PLINE T8,YDM_BS_STORAGE T9 WHERE T8.IN_REPOSITORY = T9.STORAGE_NO
  105. AND T8.PLINE_CODE = T3.PLINE_CODE)
  106. FROM PLN_ZY_JGX_M T3
  107. WHERE T3.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  108. AND T3.GX_PLAN_NO = T.GX_PLAN_NO_NEXT
  109. AND ROWNUM = 1)
  110. ELSE
  111. NULL
  112. END) DIRECTION,
  113. '0' BAR_CODE,
  114. T.SUBCONTRACT_NO,
  115. T.SUBCONTRACT_NO_SEQ,
  116. '否' LOCK_BILL_FLAG
  117. FROM MAT_BC_M T, YDM_BC_BUTTRESS S
  118. WHERE T.MAT_NO = S.MAT_NO
  119. #INSTOCK_TIME#
  120. #JUDGE_STOVE_NO#
  121. #FLAG_STOVE_NO_ZG#
  122. #STORAGE_NO#
  123. #QCM_STATUS#
  124. GROUP BY T.LOT_NO,
  125. T.STOVE_NO,
  126. T.JUDGE_STOVE_NO,
  127. T.BATCH_NO,
  128. T.BATCH_GROUD_NO,
  129. T.PLINE_CODE,
  130. T.PLINE_NAME,
  131. T.MAT_STATUS,
  132. T.QCM_STAUS,
  133. T.BELONG_CODE,
  134. T.BELONG_NAME,
  135. T.MAT_GOWHERE_CODE,
  136. T.MAT_GOWHERE_NAME,
  137. T.PIPMEMO,
  138. T.FLAG_STOVE_NO_ZG,
  139. S.STORAGE_NO,
  140. S.LOCATION_NO,
  141. S.LARY_NO,
  142. S.LOC_NO,
  143. T.PRO_PLAN_ID_NEXT,
  144. T.GX_PLAN_NO_NEXT,
  145. T.JUDGE_RESULT,
  146. T.NEXT_PROCESS_CDOE,
  147. T.NEXT_PROCESS_DESC,
  148. T.PRODUCT_FLAG,
  149. T.SUBCONTRACT_NO,
  150. T.SUBCONTRACT_NO_SEQ
  151. UNION ALL
  152. SELECT
  153. (SELECT T2.BASENAME FROM COM_BASE_INFO T2 WHERE T2.BASECODE = T.PRODUCT_FLAG)PRODUCT_FLAG,
  154. (SELECT T1.BASENAME
  155. FROM COM_BASE_INFO T1
  156. WHERE T1.BASECODE = T.MAT_STATUS) MAT_STATUS,
  157. T.MAT_STATUS AS MAT_STATUS_CODE,
  158. T.LOT_NO,
  159. T.STOVE_NO,
  160. T.JUDGE_STOVE_NO,
  161. T.BATCH_NO,
  162. T.BATCH_GROUD_NO,
  163. MAX(T.MATERIAL_NO)MATERIAL_NO,
  164. MAX(T.MATERIAL_NAME)MATERIAL_NAME,
  165. MAX(T.PRODUCCODE)PRODUCCODE,
  166. MAX(T.PRODUCNAME)PRODUCNAME,
  167. MAX(T.STEELCODE)STEELCODE,
  168. MAX(T.STEELNAME)STEELNAME,
  169. MAX(T.GRADECODE)GRADECODE,
  170. MAX(T.GRADENAME)GRADENAME,
  171. MAX(T.SPEC_CODE)SPEC_CODE,
  172. MAX(T.SPEC_NAME)SPEC_NAME,
  173. MAX(T.MODEL_CODE)MODEL_CODE,
  174. MAX(T.MODEL_DESC)MODEL_DESC,
  175. --MAX(T.STD_CODE)STD_CODE,
  176. --MAX(T.STD_NAME)STD_NAME,
  177. MAX(T.STD_STYLE)STD_STYLE,
  178. MAX(T.STD_STYLE_DESC)STD_STYLE_DESC,
  179. MAX(T.ORDER_NO || '/'||T.ORDER_SEQ)PRO_ORDER_NO,
  180. '' PROCESS_CDOE,
  181. '' PROCESS_DESC,
  182. '' NEXT_PROCESS_CDOE,
  183. '' NEXT_PROCESS_DESC,
  184. T.PLINE_CODE,
  185. T.PLINE_NAME,
  186. MAX(T.ACT_DIMATER)ACT_DIMATER,
  187. MAX(T.ACT_HEIGHT)ACT_HEIGHT,
  188. SUM(T.ACT_LEN)ACT_LEN,
  189. MAX(T.ACT_LEN_MIN)ACT_LEN_MIN,
  190. MAX(T.ACT_LEN_MAX)ACT_LEN_MAX,
  191. SUM(T.ACT_COUNT) ACT_COUNT,
  192. SUM(T.ACT_WEIGHT) ACT_WEIGHT,
  193. T.BELONG_CODE,
  194. T.BELONG_NAME,
  195. --'' MAT_GOWHERE_CODE,
  196. --'' MAT_GOWHERE_NAME,
  197. --'' UPDATE_GO_WHERE_CODE,
  198. T.JUDGE_RESULT,
  199. MAX(TO_CHAR(T.JUDGE_RESULT_TIME, 'YYYY-MM-DD HH24:MI:SS')) JUDGE_RESULT_TIME,
  200. MAX(T.JUDGE_MAKER)JUDGE_MAKER,
  201. MAX(T.JUDGE_STD_NAME)JUDGE_STD_NAME,
  202. T.PIPMEMO,
  203. '合格' QCM_STAUS,
  204. '' TARGET,
  205. T.FLAG_STOVE_NO_ZG,
  206. T.FLAG_STOVE_NO_ZG AS UPDATE_FLAG_STOVE,
  207. ''ORDER_NO_NEXT,
  208. --MAX(T.JUDGE_STD_NAME) JUDGE_STD_DES,
  209. S.STORAGE_NO,
  210. S.LOCATION_NO,
  211. (SELECT S2.LOCATION_NAME FROM YDM_BS_LOCATION S2 WHERE S2.LOCATION_NO = S.LOCATION_NO)LOCATION_NAME,
  212. S.LARY_NO,
  213. S.LOC_NO,
  214. '' PRO_PLAN_ID_NEXT,
  215. '' GX_PLAN_NO_NEXT,
  216. (SELECT S1.STORAGE_NAME
  217. FROM YDM_BS_STORAGE S1
  218. WHERE S1.STORAGE_NO = S.STORAGE_NO) STORAGE_NAME,
  219. '' DIRECTION,
  220. '1' BAR_CODE,
  221. T.SUBCONTRACT_NO,
  222. T.SUBCONTRACT_NO_SEQ,
  223. DECODE(T.LOCK_BILL_FLAG,'0','否','1','是')LOCK_BILL_FLAG
  224. FROM MAT_ZC_M T, YDM_ZC_BUTTRESS S
  225. WHERE T.MAT_NO = S.MAT_NO
  226. AND T.BELONG_CODE IN('100101','100102','100103')
  227. #INSTOCK_TIME#
  228. #JUDGE_STOVE_NO#
  229. #FLAG_STOVE_NO_ZG#
  230. #STORAGE_NO#
  231. #QCM_STATUS1#
  232. GROUP BY T.LOT_NO,
  233. T.STOVE_NO,
  234. T.JUDGE_STOVE_NO,
  235. T.BATCH_NO,
  236. T.BATCH_GROUD_NO,
  237. T.PLINE_CODE,
  238. T.PLINE_NAME,
  239. T.MAT_STATUS,
  240. T.QCM_STAUS,
  241. T.BELONG_CODE,
  242. T.BELONG_NAME,
  243. T.PIPMEMO,
  244. T.FLAG_STOVE_NO_ZG,
  245. S.STORAGE_NO,
  246. S.LOCATION_NO,
  247. S.LARY_NO,
  248. S.LOC_NO,
  249. T.JUDGE_RESULT,
  250. T.PRODUCT_FLAG,
  251. T.SUBCONTRACT_NO,
  252. T.SUBCONTRACT_NO_SEQ,
  253. T.LOCK_BILL_FLAG
  254. </query>
  255. <query id = "FrmFilpOutStorage.doQueryDataBc" desc = "查询BC库存">
  256. SELECT (SELECT T2.BASENAME
  257. FROM COM_BASE_INFO T2
  258. WHERE T2.BASECODE = T.PRODUCT_FLAG) PRODUCT_FLAG,
  259. (SELECT T1.BASENAME
  260. FROM COM_BASE_INFO T1
  261. WHERE T1.BASECODE = T.MAT_STATUS) MAT_STATUS,
  262. T.MAT_STATUS AS MAT_STATUS_CODE,
  263. T.LOT_NO,
  264. T.STOVE_NO,
  265. T.JUDGE_STOVE_NO,
  266. T.BATCH_NO,
  267. T.BATCH_GROUD_NO,
  268. T.MATERIAL_NO,
  269. T.MATERIAL_NAME,
  270. MAX(T.PRODUCCODE) PRODUCCODE,
  271. MAX(T.PRODUCNAME) PRODUCNAME,
  272. MAX(T.STEELCODE) STEELCODE,
  273. MAX(T.STEELNAME) STEELNAME,
  274. MAX(T.GRADECODE) GRADECODE,
  275. MAX(T.GRADENAME) GRADENAME,
  276. MAX(T.SPEC_CODE) SPEC_CODE,
  277. MAX(T.SPEC_NAME) SPEC_NAME,
  278. MAX(T.MODEL_CODE) MODEL_CODE,
  279. MAX(T.MODEL_DESC) MODEL_DESC,
  280. MAX(T.STD_STYLE) STD_STYLE,
  281. MAX(T.STD_STYLE_DESC) STD_STYLE_DESC,
  282. MAX(T.PRO_ORDER_NO) PRO_ORDER_NO,
  283. MAX(T.PROCESS_CDOE) PROCESS_CDOE,
  284. MAX(T.PROCESS_DESC) PROCESS_DESC,
  285. T.NEXT_PROCESS_CDOE,
  286. T.NEXT_PROCESS_DESC,
  287. T.PLINE_CODE,
  288. T.PLINE_NAME,
  289. MAX(T.ACT_DIMATER) ACT_DIMATER,
  290. MAX(T.ACT_HEIGHT) ACT_HEIGHT,
  291. SUM(T.ACT_LEN) ACT_LEN,
  292. MAX(T.ACT_LEN_MIN) ACT_LEN_MIN,
  293. MAX(T.ACT_LEN_MAX) ACT_LEN_MAX,
  294. SUM(T.ACT_COUNT) ACT_COUNT,
  295. SUM(T.ACT_WEIGHT) ACT_WEIGHT,
  296. T.BELONG_CODE,
  297. T.BELONG_NAME,
  298. T.JUDGE_RESULT,
  299. MAX(TO_CHAR(T.JUDGE_RESULT_TIME, 'YYYY-MM-DD HH24:MI:SS')) JUDGE_RESULT_TIME,
  300. MAX(T.JUDGE_MAKER) JUDGE_MAKER,
  301. MAX(T.JUDGE_STD_NAME) JUDGE_STD_NAME,
  302. T.PIPMEMO,
  303. T.MEMO1,
  304. DECODE(T.QCM_STAUS, '00', '合格', '11', '待处理', '22', '废品') QCM_STAUS,
  305. MAX(T.TARGET) TARGET,
  306. T.FLAG_STOVE_NO_ZG,
  307. T.FLAG_STOVE_NO_ZG AS UPDATE_FLAG_STOVE,
  308. (CASE
  309. WHEN T.NEXT_PROCESS_CDOE = 'E' THEN
  310. (SELECT T1.ORDER_NO || '/' || T1.ORDER_SEQ
  311. FROM PLN_ORDER_DBK_S T1
  312. WHERE T1.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  313. AND T1.GX_PLAN_NO = T.GX_PLAN_NO_NEXT)
  314. WHEN T.NEXT_PROCESS_CDOE = 'F' THEN
  315. (SELECT T2.ORDER_NO || '/' || T2.ORDER_SEQ
  316. FROM PLN_ORDER_RCL_S T2
  317. WHERE T2.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  318. AND T2.GX_PLAN_NO = T.GX_PLAN_NO_NEXT)
  319. WHEN T.NEXT_PROCESS_CDOE = 'G' THEN
  320. (SELECT T3.ORDER_NO || '/' || T3.ORDER_SEQ
  321. FROM PLN_ORDER_JGX_S T3
  322. WHERE T3.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  323. AND T3.GX_PLAN_NO = T.GX_PLAN_NO_NEXT)
  324. ELSE
  325. NULL
  326. END) ORDER_NO_NEXT,
  327. T.PRO_PLAN_ID_NEXT,
  328. T.GX_PLAN_NO_NEXT,
  329. S.STORAGE_NO,
  330. S.LOCATION_NO,
  331. (SELECT S2.LOCATION_NAME
  332. FROM YDM_BS_LOCATION S2
  333. WHERE S2.LOCATION_NO = S.LOCATION_NO) LOCATION_NAME,
  334. S.LARY_NO,
  335. S.LOC_NO,
  336. T.PRO_PLAN_ID_NEXT,
  337. T.GX_PLAN_NO_NEXT,
  338. (SELECT S1.STORAGE_NAME
  339. FROM YDM_BS_STORAGE S1
  340. WHERE S1.STORAGE_NO = S.STORAGE_NO) STORAGE_NAME,
  341. (CASE
  342. WHEN T.NEXT_PROCESS_CDOE = 'E' THEN
  343. (SELECT (SELECT T5.STORAGE_NAME
  344. FROM COM_BASE_PLINE T4, YDM_BS_STORAGE T5
  345. WHERE T4.IN_REPOSITORY = T5.STORAGE_NO
  346. AND T4.PLINE_CODE = T1.PLINE_CODE)
  347. FROM PLN_ZY_DBK_M T1
  348. WHERE T1.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  349. AND T1.GX_PLAN_NO = T.GX_PLAN_NO_NEXT
  350. AND ROWNUM = 1)
  351. WHEN T.NEXT_PROCESS_CDOE = 'F' THEN
  352. (SELECT (SELECT T7.STORAGE_NAME
  353. FROM COM_BASE_PLINE T6, YDM_BS_STORAGE T7
  354. WHERE T6.IN_REPOSITORY = T7.STORAGE_NO
  355. AND T6.PLINE_CODE = T2.PLINE_CODE)
  356. FROM PLN_ZY_RCL_M T2
  357. WHERE T2.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  358. AND T2.GX_PLAN_NO = T.GX_PLAN_NO_NEXT
  359. AND ROWNUM = 1)
  360. WHEN T.NEXT_PROCESS_CDOE = 'G' THEN
  361. (SELECT (SELECT T9.STORAGE_NAME
  362. FROM COM_BASE_PLINE T8, YDM_BS_STORAGE T9
  363. WHERE T8.IN_REPOSITORY = T9.STORAGE_NO
  364. AND T8.PLINE_CODE = T3.PLINE_CODE)
  365. FROM PLN_ZY_JGX_M T3
  366. WHERE T3.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  367. AND T3.GX_PLAN_NO = T.GX_PLAN_NO_NEXT
  368. AND ROWNUM = 1)
  369. ELSE
  370. NULL
  371. END) DIRECTION,
  372. '0' BAR_CODE,
  373. T.SUBCONTRACT_NO,
  374. T.SUBCONTRACT_NO_SEQ,
  375. '否' LOCK_BILL_FLAG,
  376. T.OFFLINE_DOC,
  377. T.MEMO
  378. FROM MAT_BC_M T, YDM_BC_BUTTRESS S
  379. WHERE T.MAT_NO = S.MAT_NO
  380. AND T.PRODUCT_FLAG = '801401' #INSTOCK_TIME# #JUDGE_STOVE_NO#
  381. #FLAG_STOVE_NO_ZG# #STORAGE_NO# #QCM_STATUS#
  382. GROUP BY T.LOT_NO,
  383. T.STOVE_NO,
  384. T.JUDGE_STOVE_NO,
  385. T.BATCH_NO,
  386. T.BATCH_GROUD_NO,
  387. T.PLINE_CODE,
  388. T.PLINE_NAME,
  389. T.MAT_STATUS,
  390. T.QCM_STAUS,
  391. T.BELONG_CODE,
  392. T.BELONG_NAME,
  393. T.MAT_GOWHERE_CODE,
  394. T.MAT_GOWHERE_NAME,
  395. T.PIPMEMO,
  396. T.MEMO1,
  397. T.FLAG_STOVE_NO_ZG,
  398. S.STORAGE_NO,
  399. S.LOCATION_NO,
  400. S.LARY_NO,
  401. S.LOC_NO,
  402. T.PRO_PLAN_ID_NEXT,
  403. T.GX_PLAN_NO_NEXT,
  404. T.JUDGE_RESULT,
  405. T.NEXT_PROCESS_CDOE,
  406. T.NEXT_PROCESS_DESC,
  407. T.PRODUCT_FLAG,
  408. T.SUBCONTRACT_NO,
  409. T.SUBCONTRACT_NO_SEQ,
  410. T.OFFLINE_DOC,
  411. T.MEMO,
  412. T.MATERIAL_NO,
  413. T.MATERIAL_NAME
  414. UNION ALL
  415. SELECT (SELECT T2.BASENAME
  416. FROM COM_BASE_INFO T2
  417. WHERE T2.BASECODE = T.PRODUCT_FLAG) PRODUCT_FLAG,
  418. (SELECT T1.BASENAME
  419. FROM COM_BASE_INFO T1
  420. WHERE T1.BASECODE = T.MAT_STATUS) MAT_STATUS,
  421. T.MAT_STATUS AS MAT_STATUS_CODE,
  422. T.LOT_NO,
  423. T.STOVE_NO,
  424. T.JUDGE_STOVE_NO,
  425. T.BATCH_NO,
  426. T.BATCH_GROUD_NO,
  427. T.MATERIAL_NO,
  428. T.MATERIAL_NAME,
  429. MAX(T.PRODUCCODE) PRODUCCODE,
  430. MAX(T.PRODUCNAME) PRODUCNAME,
  431. MAX(T.STEELCODE) STEELCODE,
  432. MAX(T.STEELNAME) STEELNAME,
  433. MAX(T.GRADECODE) GRADECODE,
  434. MAX(T.GRADENAME) GRADENAME,
  435. MAX(T.SPEC_CODE) SPEC_CODE,
  436. MAX(T.SPEC_NAME) SPEC_NAME,
  437. MAX(T.MODEL_CODE) MODEL_CODE,
  438. MAX(T.MODEL_DESC) MODEL_DESC,
  439. MAX(T.STD_STYLE) STD_STYLE,
  440. MAX(T.STD_STYLE_DESC) STD_STYLE_DESC,
  441. MAX(T.PRO_ORDER_NO) PRO_ORDER_NO,
  442. MAX(T.PROCESS_CDOE) PROCESS_CDOE,
  443. MAX(T.PROCESS_DESC) PROCESS_DESC,
  444. T.NEXT_PROCESS_CDOE,
  445. T.NEXT_PROCESS_DESC,
  446. T.PLINE_CODE,
  447. T.PLINE_NAME,
  448. MAX(T.ACT_DIMATER) ACT_DIMATER,
  449. MAX(T.ACT_HEIGHT) ACT_HEIGHT,
  450. SUM(T.ACT_LEN) ACT_LEN,
  451. MAX(T.ACT_LEN_MIN) ACT_LEN_MIN,
  452. MAX(T.ACT_LEN_MAX) ACT_LEN_MAX,
  453. SUM(T.ACT_COUNT) ACT_COUNT,
  454. SUM(T.ACT_WEIGHT) ACT_WEIGHT,
  455. T.BELONG_CODE,
  456. T.BELONG_NAME,
  457. T.JUDGE_RESULT,
  458. MAX(TO_CHAR(T.JUDGE_RESULT_TIME, 'YYYY-MM-DD HH24:MI:SS')) JUDGE_RESULT_TIME,
  459. MAX(T.JUDGE_MAKER) JUDGE_MAKER,
  460. MAX(T.JUDGE_STD_NAME) JUDGE_STD_NAME,
  461. T.PIPMEMO,
  462. T.MEMO1,
  463. DECODE(T.QCM_STAUS, '00', '合格', '11', '待处理', '22', '废品') QCM_STAUS,
  464. MAX(T.TARGET) TARGET,
  465. T.FLAG_STOVE_NO_ZG,
  466. T.FLAG_STOVE_NO_ZG AS UPDATE_FLAG_STOVE,
  467. (CASE
  468. WHEN T.NEXT_PROCESS_CDOE = 'E' THEN
  469. (SELECT T1.ORDER_NO || '/' || T1.ORDER_SEQ
  470. FROM PLN_ORDER_DBK_S T1
  471. WHERE T1.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  472. AND T1.GX_PLAN_NO = T.GX_PLAN_NO_NEXT)
  473. WHEN T.NEXT_PROCESS_CDOE = 'F' THEN
  474. (SELECT T2.ORDER_NO || '/' || T2.ORDER_SEQ
  475. FROM PLN_ORDER_RCL_S T2
  476. WHERE T2.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  477. AND T2.GX_PLAN_NO = T.GX_PLAN_NO_NEXT)
  478. WHEN T.NEXT_PROCESS_CDOE = 'G' THEN
  479. (SELECT T3.ORDER_NO || '/' || T3.ORDER_SEQ
  480. FROM PLN_ORDER_JGX_S T3
  481. WHERE T3.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  482. AND T3.GX_PLAN_NO = T.GX_PLAN_NO_NEXT)
  483. ELSE
  484. NULL
  485. END) ORDER_NO_NEXT,
  486. T.PRO_PLAN_ID_NEXT,
  487. T.GX_PLAN_NO_NEXT,
  488. S.STORAGE_NO,
  489. S.LOCATION_NO,
  490. (SELECT S2.LOCATION_NAME
  491. FROM YDM_BS_LOCATION S2
  492. WHERE S2.LOCATION_NO = S.LOCATION_NO) LOCATION_NAME,
  493. S.LARY_NO,
  494. S.LOC_NO,
  495. T.PRO_PLAN_ID_NEXT,
  496. T.GX_PLAN_NO_NEXT,
  497. (SELECT S1.STORAGE_NAME
  498. FROM YDM_BS_STORAGE S1
  499. WHERE S1.STORAGE_NO = S.STORAGE_NO) STORAGE_NAME,
  500. (CASE
  501. WHEN T.NEXT_PROCESS_CDOE = 'E' THEN
  502. (SELECT (SELECT T5.STORAGE_NAME
  503. FROM COM_BASE_PLINE T4, YDM_BS_STORAGE T5
  504. WHERE T4.IN_REPOSITORY = T5.STORAGE_NO
  505. AND T4.PLINE_CODE = T1.PLINE_CODE)
  506. FROM PLN_ZY_DBK_M T1
  507. WHERE T1.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  508. AND T1.GX_PLAN_NO = T.GX_PLAN_NO_NEXT
  509. AND ROWNUM = 1)
  510. WHEN T.NEXT_PROCESS_CDOE = 'F' THEN
  511. (SELECT (SELECT T7.STORAGE_NAME
  512. FROM COM_BASE_PLINE T6, YDM_BS_STORAGE T7
  513. WHERE T6.IN_REPOSITORY = T7.STORAGE_NO
  514. AND T6.PLINE_CODE = T2.PLINE_CODE)
  515. FROM PLN_ZY_RCL_M T2
  516. WHERE T2.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  517. AND T2.GX_PLAN_NO = T.GX_PLAN_NO_NEXT
  518. AND ROWNUM = 1)
  519. WHEN T.NEXT_PROCESS_CDOE = 'G' THEN
  520. (SELECT (SELECT T9.STORAGE_NAME
  521. FROM COM_BASE_PLINE T8, YDM_BS_STORAGE T9
  522. WHERE T8.IN_REPOSITORY = T9.STORAGE_NO
  523. AND T8.PLINE_CODE = T3.PLINE_CODE)
  524. FROM PLN_ZY_JGX_M T3
  525. WHERE T3.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  526. AND T3.GX_PLAN_NO = T.GX_PLAN_NO_NEXT
  527. AND ROWNUM = 1)
  528. ELSE
  529. NULL
  530. END) DIRECTION,
  531. '0' BAR_CODE,
  532. T.SUBCONTRACT_NO,
  533. T.SUBCONTRACT_NO_SEQ,
  534. '否' LOCK_BILL_FLAG,
  535. T.OFFLINE_DOC,
  536. T.MEMO
  537. FROM MAT_BC_M T, YDM_BC_BUTTRESS S
  538. WHERE T.MAT_NO = S.MAT_NO
  539. AND T.PRODUCT_FLAG = '801402' #INSTOCK_TIME# #JUDGE_STOVE_NO#
  540. #FLAG_STOVE_NO_ZG# #STORAGE_NO# #QCM_STATUS#
  541. GROUP BY T.LOT_NO,
  542. T.STOVE_NO,
  543. T.JUDGE_STOVE_NO,
  544. T.BATCH_NO,
  545. T.BATCH_GROUD_NO,
  546. T.PLINE_CODE,
  547. T.PLINE_NAME,
  548. T.MAT_STATUS,
  549. T.QCM_STAUS,
  550. T.BELONG_CODE,
  551. T.BELONG_NAME,
  552. T.MAT_GOWHERE_CODE,
  553. T.MAT_GOWHERE_NAME,
  554. T.PIPMEMO,
  555. T.MEMO1,
  556. T.FLAG_STOVE_NO_ZG,
  557. S.STORAGE_NO,
  558. S.LOCATION_NO,
  559. S.LARY_NO,
  560. S.LOC_NO,
  561. T.PRO_PLAN_ID_NEXT,
  562. T.GX_PLAN_NO_NEXT,
  563. T.JUDGE_RESULT,
  564. T.NEXT_PROCESS_CDOE,
  565. T.NEXT_PROCESS_DESC,
  566. T.PRODUCT_FLAG,
  567. T.SUBCONTRACT_NO,
  568. T.SUBCONTRACT_NO_SEQ,
  569. T.OFFLINE_DOC,
  570. T.MEMO,
  571. T.MATERIAL_NO,
  572. T.MATERIAL_NAME
  573. </query>
  574. <query id = "FrmFilpOutStorage.doQueryDataZc" desc = "查询ZC库存数据">
  575. SELECT (SELECT T2.BASENAME
  576. FROM COM_BASE_INFO T2
  577. WHERE T2.BASECODE = T.PRODUCT_FLAG) PRODUCT_FLAG,
  578. (SELECT T1.BASENAME
  579. FROM COM_BASE_INFO T1
  580. WHERE T1.BASECODE = T.MAT_STATUS) MAT_STATUS,
  581. T.MAT_STATUS AS MAT_STATUS_CODE,
  582. T.LOT_NO,
  583. T.STOVE_NO,
  584. T.JUDGE_STOVE_NO,
  585. T.BATCH_NO,
  586. T.BATCH_GROUD_NO,
  587. T.MATERIAL_NO,
  588. T.MATERIAL_NAME,
  589. MAX(T.PRODUCCODE) PRODUCCODE,
  590. MAX(T.PRODUCNAME) PRODUCNAME,
  591. MAX(T.STEELCODE) STEELCODE,
  592. MAX(T.STEELNAME) STEELNAME,
  593. MAX(T.GRADECODE) GRADECODE,
  594. MAX(T.GRADENAME) GRADENAME,
  595. MAX(T.SPEC_CODE) SPEC_CODE,
  596. MAX(T.SPEC_NAME) SPEC_NAME,
  597. MAX(T.MODEL_CODE) MODEL_CODE,
  598. MAX(T.MODEL_DESC) MODEL_DESC,
  599. MAX(T.STD_STYLE) STD_STYLE,
  600. MAX(T.STD_STYLE_DESC) STD_STYLE_DESC,
  601. MAX(T.ORDER_NO || '/' || T.ORDER_SEQ) PRO_ORDER_NO,
  602. '' PROCESS_CDOE,
  603. '' PROCESS_DESC,
  604. '' NEXT_PROCESS_CDOE,
  605. '' NEXT_PROCESS_DESC,
  606. T.PLINE_CODE,
  607. T.PLINE_NAME,
  608. MAX(T.ACT_DIMATER) ACT_DIMATER,
  609. MAX(T.ACT_HEIGHT) ACT_HEIGHT,
  610. SUM(T.ACT_LEN) ACT_LEN,
  611. MAX(T.ACT_LEN_MIN) ACT_LEN_MIN,
  612. MAX(T.ACT_LEN_MAX) ACT_LEN_MAX,
  613. SUM(T.ACT_COUNT) ACT_COUNT,
  614. SUM(T.ACT_WEIGHT) ACT_WEIGHT,
  615. T.BELONG_CODE,
  616. T.BELONG_NAME,
  617. T.JUDGE_RESULT,
  618. MAX(TO_CHAR(T.JUDGE_RESULT_TIME, 'YYYY-MM-DD HH24:MI:SS')) JUDGE_RESULT_TIME,
  619. MAX(T.JUDGE_MAKER) JUDGE_MAKER,
  620. MAX(T.JUDGE_STD_NAME) JUDGE_STD_NAME,
  621. T.PIPMEMO,
  622. T.MEMO1,
  623. '合格' QCM_STAUS,
  624. '' TARGET,
  625. T.FLAG_STOVE_NO_ZG,
  626. T.FLAG_STOVE_NO_ZG AS UPDATE_FLAG_STOVE,
  627. '' ORDER_NO_NEXT,
  628. S.STORAGE_NO,
  629. S.LOCATION_NO,
  630. (SELECT S2.LOCATION_NAME
  631. FROM YDM_BS_LOCATION S2
  632. WHERE S2.LOCATION_NO = S.LOCATION_NO) LOCATION_NAME,
  633. S.LARY_NO,
  634. S.LOC_NO,
  635. '' PRO_PLAN_ID_NEXT,
  636. '' GX_PLAN_NO_NEXT,
  637. (SELECT S1.STORAGE_NAME
  638. FROM YDM_BS_STORAGE S1
  639. WHERE S1.STORAGE_NO = S.STORAGE_NO) STORAGE_NAME,
  640. '' DIRECTION,
  641. '1' BAR_CODE,
  642. T.SUBCONTRACT_NO,
  643. T.SUBCONTRACT_NO_SEQ,
  644. DECODE(T.LOCK_BILL_FLAG, '0', '否', '1', '是') LOCK_BILL_FLAG,
  645. ''OFFLINE_DOC,
  646. T.MEMO
  647. FROM MAT_ZC_M T, YDM_ZC_BUTTRESS S
  648. WHERE T.MAT_NO = S.MAT_NO
  649. AND T.BELONG_CODE IN ('100101', '100102', '100103')
  650. AND T.PRODUCT_FLAG = '801402' #INSTOCK_TIME# #JUDGE_STOVE_NO#
  651. #FLAG_STOVE_NO_ZG# #STORAGE_NO# #QCM_STATUS#
  652. GROUP BY T.LOT_NO,
  653. T.STOVE_NO,
  654. T.JUDGE_STOVE_NO,
  655. T.BATCH_NO,
  656. T.BATCH_GROUD_NO,
  657. T.PLINE_CODE,
  658. T.PLINE_NAME,
  659. T.MAT_STATUS,
  660. T.QCM_STAUS,
  661. T.BELONG_CODE,
  662. T.BELONG_NAME,
  663. T.PIPMEMO,
  664. T.MEMO1,
  665. T.FLAG_STOVE_NO_ZG,
  666. S.STORAGE_NO,
  667. S.LOCATION_NO,
  668. S.LARY_NO,
  669. S.LOC_NO,
  670. T.JUDGE_RESULT,
  671. T.PRODUCT_FLAG,
  672. T.SUBCONTRACT_NO,
  673. T.SUBCONTRACT_NO_SEQ,
  674. T.LOCK_BILL_FLAG,
  675. T.MEMO,
  676. T.MATERIAL_NO,
  677. T.MATERIAL_NAME
  678. UNION ALL
  679. SELECT (SELECT T2.BASENAME
  680. FROM COM_BASE_INFO T2
  681. WHERE T2.BASECODE = T.PRODUCT_FLAG) PRODUCT_FLAG,
  682. (SELECT T1.BASENAME
  683. FROM COM_BASE_INFO T1
  684. WHERE T1.BASECODE = T.MAT_STATUS) MAT_STATUS,
  685. T.MAT_STATUS AS MAT_STATUS_CODE,
  686. T.LOT_NO,
  687. T.STOVE_NO,
  688. T.JUDGE_STOVE_NO,
  689. T.BATCH_NO,
  690. T.BATCH_GROUD_NO,
  691. T.MATERIAL_NO,
  692. T.MATERIAL_NAME,
  693. MAX(T.PRODUCCODE) PRODUCCODE,
  694. MAX(T.PRODUCNAME) PRODUCNAME,
  695. MAX(T.STEELCODE) STEELCODE,
  696. MAX(T.STEELNAME) STEELNAME,
  697. MAX(T.GRADECODE) GRADECODE,
  698. MAX(T.GRADENAME) GRADENAME,
  699. MAX(T.SPEC_CODE) SPEC_CODE,
  700. MAX(T.SPEC_NAME) SPEC_NAME,
  701. MAX(T.MODEL_CODE) MODEL_CODE,
  702. MAX(T.MODEL_DESC) MODEL_DESC,
  703. MAX(T.STD_STYLE) STD_STYLE,
  704. MAX(T.STD_STYLE_DESC) STD_STYLE_DESC,
  705. MAX(T.ORDER_NO || '/' || T.ORDER_SEQ) PRO_ORDER_NO,
  706. '' PROCESS_CDOE,
  707. '' PROCESS_DESC,
  708. '' NEXT_PROCESS_CDOE,
  709. '' NEXT_PROCESS_DESC,
  710. T.PLINE_CODE,
  711. T.PLINE_NAME,
  712. MAX(T.ACT_DIMATER) ACT_DIMATER,
  713. MAX(T.ACT_HEIGHT) ACT_HEIGHT,
  714. SUM(T.ACT_LEN) ACT_LEN,
  715. MAX(T.ACT_LEN_MIN) ACT_LEN_MIN,
  716. MAX(T.ACT_LEN_MAX) ACT_LEN_MAX,
  717. SUM(T.ACT_COUNT) ACT_COUNT,
  718. SUM(T.ACT_WEIGHT) ACT_WEIGHT,
  719. T.BELONG_CODE,
  720. T.BELONG_NAME,
  721. T.JUDGE_RESULT,
  722. MAX(TO_CHAR(T.JUDGE_RESULT_TIME, 'YYYY-MM-DD HH24:MI:SS')) JUDGE_RESULT_TIME,
  723. MAX(T.JUDGE_MAKER) JUDGE_MAKER,
  724. MAX(T.JUDGE_STD_NAME) JUDGE_STD_NAME,
  725. T.PIPMEMO,
  726. T.MEMO1,
  727. '合格' QCM_STAUS,
  728. '' TARGET,
  729. T.FLAG_STOVE_NO_ZG,
  730. T.FLAG_STOVE_NO_ZG AS UPDATE_FLAG_STOVE,
  731. '' ORDER_NO_NEXT,
  732. S.STORAGE_NO,
  733. S.LOCATION_NO,
  734. (SELECT S2.LOCATION_NAME
  735. FROM YDM_BS_LOCATION S2
  736. WHERE S2.LOCATION_NO = S.LOCATION_NO) LOCATION_NAME,
  737. S.LARY_NO,
  738. S.LOC_NO,
  739. '' PRO_PLAN_ID_NEXT,
  740. '' GX_PLAN_NO_NEXT,
  741. (SELECT S1.STORAGE_NAME
  742. FROM YDM_BS_STORAGE S1
  743. WHERE S1.STORAGE_NO = S.STORAGE_NO) STORAGE_NAME,
  744. '' DIRECTION,
  745. '1' BAR_CODE,
  746. T.SUBCONTRACT_NO,
  747. T.SUBCONTRACT_NO_SEQ,
  748. DECODE(T.LOCK_BILL_FLAG, '0', '否', '1', '是') LOCK_BILL_FLAG,
  749. ''OFFLINE_DOC,
  750. T.MEMO
  751. FROM MAT_ZC_M T, YDM_ZC_BUTTRESS S
  752. WHERE T.MAT_NO = S.MAT_NO
  753. AND T.BELONG_CODE IN ('100101', '100102', '100103')
  754. AND T.PRODUCT_FLAG = '801403' #INSTOCK_TIME# #JUDGE_STOVE_NO#
  755. #FLAG_STOVE_NO_ZG# #STORAGE_NO# #QCM_STATUS#
  756. GROUP BY T.LOT_NO,
  757. T.STOVE_NO,
  758. T.JUDGE_STOVE_NO,
  759. T.BATCH_NO,
  760. T.BATCH_GROUD_NO,
  761. T.PLINE_CODE,
  762. T.PLINE_NAME,
  763. T.MAT_STATUS,
  764. T.QCM_STAUS,
  765. T.BELONG_CODE,
  766. T.BELONG_NAME,
  767. T.PIPMEMO,
  768. T.MEMO1,
  769. T.FLAG_STOVE_NO_ZG,
  770. S.STORAGE_NO,
  771. S.LOCATION_NO,
  772. S.LARY_NO,
  773. S.LOC_NO,
  774. T.JUDGE_RESULT,
  775. T.PRODUCT_FLAG,
  776. T.SUBCONTRACT_NO,
  777. T.SUBCONTRACT_NO_SEQ,
  778. T.LOCK_BILL_FLAG,
  779. T.MEMO,
  780. T.MATERIAL_NO,
  781. T.MATERIAL_NAME
  782. </query>
  783. <query id = "FrmFilpOutStorage.doQueryDataMat" desc = "查询材料号">
  784. SELECT (SELECT T2.BASENAME
  785. FROM COM_BASE_INFO T2
  786. WHERE T2.BASECODE = T.PRODUCT_FLAG) PRODUCT_FLAG,
  787. (SELECT T1.BASENAME
  788. FROM COM_BASE_INFO T1
  789. WHERE T1.BASECODE = T.MAT_STATUS) MAT_STATUS,
  790. T.MAT_STATUS AS MAT_STATUS_CODE,
  791. T.LOT_NO,
  792. T.STOVE_NO,
  793. T.JUDGE_STOVE_NO,
  794. T.BATCH_NO,
  795. T.BATCH_GROUD_NO,
  796. T.MATERIAL_NO,
  797. T.MATERIAL_NAME,
  798. T.PRODUCCODE,
  799. T.PRODUCNAME,
  800. T.STEELCODE,
  801. T.STEELNAME,
  802. T.GRADECODE,
  803. T.GRADENAME,
  804. T.SPEC_CODE,
  805. T.SPEC_NAME,
  806. T.MODEL_CODE,
  807. T.MODEL_DESC,
  808. T.STD_CODE,
  809. T.STD_NAME,
  810. T.STD_STYLE,
  811. T.STD_STYLE_DESC,
  812. T.PLINE_CODE,
  813. T.PLINE_NAME,
  814. T.ACT_DIMATER,
  815. T.ACT_HEIGHT,
  816. T.ACT_LEN,
  817. T.ACT_LEN_MIN,
  818. T.ACT_LEN_MAX,
  819. T.ACT_COUNT,
  820. T.ACT_WEIGHT,
  821. T.BELONG_CODE,
  822. T.BELONG_NAME,
  823. T.JUDGE_RESULT,
  824. DECODE(T.QCM_STAUS, '00', '合格', '11', '待处理', '22', '废品') QCM_STAUS,
  825. T.FLAG_STOVE_NO_ZG,
  826. S.STORAGE_NO,
  827. S.LOCATION_NO,
  828. (SELECT S2.LOCATION_NAME
  829. FROM YDM_BS_LOCATION S2
  830. WHERE S2.LOCATION_NO = S.LOCATION_NO) LOCATION_NAME,
  831. S.LARY_NO,
  832. S.LOC_NO,
  833. (SELECT S1.STORAGE_NAME
  834. FROM YDM_BS_STORAGE S1
  835. WHERE S1.STORAGE_NO = S.STORAGE_NO) STORAGE_NAME,
  836. '0' BAR_CODE,
  837. T.SUBCONTRACT_NO,
  838. T.SUBCONTRACT_NO_SEQ,
  839. '否' LOCK_BILL_FLAG,
  840. T.MEASURING_SEQ,
  841. T.MAT_NO
  842. FROM MAT_BC_M T, YDM_BC_BUTTRESS S
  843. WHERE T.MAT_NO = S.MAT_NO
  844. #INSTOCK_TIME#
  845. #JUDGE_STOVE_NO#
  846. #FLAG_STOVE_NO_ZG#
  847. #STORAGE_NO#
  848. #QCM_STATUS#
  849. UNION ALL
  850. SELECT (SELECT T2.BASENAME
  851. FROM COM_BASE_INFO T2
  852. WHERE T2.BASECODE = T.PRODUCT_FLAG) PRODUCT_FLAG,
  853. (SELECT T1.BASENAME
  854. FROM COM_BASE_INFO T1
  855. WHERE T1.BASECODE = T.MAT_STATUS) MAT_STATUS,
  856. T.MAT_STATUS AS MAT_STATUS_CODE,
  857. T.LOT_NO,
  858. T.STOVE_NO,
  859. T.JUDGE_STOVE_NO,
  860. T.BATCH_NO,
  861. T.BATCH_GROUD_NO,
  862. T.MATERIAL_NO,
  863. T.MATERIAL_NAME,
  864. T.PRODUCCODE,
  865. T.PRODUCNAME,
  866. T.STEELCODE,
  867. T.STEELNAME,
  868. T.GRADECODE,
  869. T.GRADENAME,
  870. T.SPEC_CODE,
  871. T.SPEC_NAME,
  872. T.MODEL_CODE,
  873. T.MODEL_DESC,
  874. T.STD_CODE,
  875. T.STD_NAME,
  876. T.STD_STYLE,
  877. T.STD_STYLE_DESC,
  878. T.PLINE_CODE,
  879. T.PLINE_NAME,
  880. T.ACT_DIMATER,
  881. T.ACT_HEIGHT,
  882. T.ACT_LEN,
  883. T.ACT_LEN_MIN,
  884. T.ACT_LEN_MAX,
  885. T.ACT_COUNT,
  886. T.ACT_WEIGHT,
  887. T.BELONG_CODE,
  888. T.BELONG_NAME,
  889. T.JUDGE_RESULT,
  890. '合格' QCM_STAUS,
  891. T.FLAG_STOVE_NO_ZG,
  892. S.STORAGE_NO,
  893. S.LOCATION_NO,
  894. (SELECT S2.LOCATION_NAME
  895. FROM YDM_BS_LOCATION S2
  896. WHERE S2.LOCATION_NO = S.LOCATION_NO) LOCATION_NAME,
  897. S.LARY_NO,
  898. S.LOC_NO,
  899. (SELECT S1.STORAGE_NAME
  900. FROM YDM_BS_STORAGE S1
  901. WHERE S1.STORAGE_NO = S.STORAGE_NO) STORAGE_NAME,
  902. '1' BAR_CODE,
  903. T.SUBCONTRACT_NO,
  904. T.SUBCONTRACT_NO_SEQ,
  905. DECODE(T.LOCK_BILL_FLAG, '0', '否', '1', '是') LOCK_BILL_FLAG,
  906. T.MEASURING_SEQ,
  907. T.MAT_NO
  908. FROM MAT_ZC_M T, YDM_ZC_BUTTRESS S
  909. WHERE T.MAT_NO = S.MAT_NO
  910. AND T.BELONG_CODE IN ('100101', '100102', '100103')
  911. #INSTOCK_TIME#
  912. #JUDGE_STOVE_NO#
  913. #FLAG_STOVE_NO_ZG#
  914. #STORAGE_NO#
  915. #QCM_STATUS1#
  916. </query>
  917. <query id = "FrmFilpOutStorage.doQueryOutList" desc = "查询倒库出库信息">
  918. SELECT
  919. T.OUTSTOCK_DOC,
  920. MAX(T.OUTSTOCK_TYPE_CODE)OUTSTOCK_TYPE_CODE,
  921. MAX(T.OUTSTOCK_TYPE_NAME)OUTSTOCK_TYPE_NAME,
  922. T.VEHICLE_NO,
  923. --T.LOT_NO,
  924. T.STOVE_NO,
  925. T.JUDGE_STOVE_NO,
  926. T.BATCH_NO,
  927. T.BATCH_GROUD_NO,
  928. T.MATERIAL_NO,
  929. T.MATERIAL_NAME,
  930. MAX(T.PRODUCCODE)PRODUCCODE,
  931. MAX(T.PRODUCNAME)PRODUCNAME,
  932. MAX(T.STD_CODE)STD_CODE,
  933. MAX(T.STD_NAME)STD_NAME,
  934. MAX(T.GRADECODE)GRADECODE,
  935. MAX(T.GRADENAME)GRADENAME,
  936. MAX(T.STEELCODE)STEELCODE,
  937. MAX(T.STEELNAME)STEELNAME,
  938. MAX(T.STD_STYLE)STD_STYLE,
  939. MAX(T.STD_STYLE_DESC)STD_STYLE_DESC,
  940. MAX(T.SPEC_CODE)SPEC_CODE,
  941. MAX(T.SPEC_NAME)SPEC_NAME,
  942. MAX(T.MODEL_CODE)MODEL_CODE,
  943. MAX(T.MODEL_DESC)MODEL_DESC,
  944. MAX(T.PRO_ORDER_NO)PRO_ORDER_NO,
  945. MAX(T.PLINE_CODE)PLINE_CODE,
  946. MAX(T.PLINE_NAME)PLINE_NAME,
  947. MAX(T.ACT_DIMATER)ACT_DIMATER,
  948. MAX(T.ACT_HEIGHT)ACT_HEIGHT,
  949. SUM(T.ACT_LEN)ACT_LEN,
  950. MAX(T.ACT_LEN_MIN)ACT_LEN_MIN,
  951. MAX(T.ACT_LEN_MAX)ACT_LEN_MAX,
  952. SUM(T.ACT_COUNT)ACT_COUNT,
  953. SUM(T.ACT_WEIGHT)ACT_WEIGHT,
  954. SUM(T.PONDER_GROSS_WT)PONDER_GROSS_WT,
  955. MAX(T.BELONG_CODE)BELONG_CODE,
  956. MAX(T.BELONG_NAME)BELONG_NAME,
  957. MAX(T.STORAGE_NO)STORAGE_NO,
  958. (SELECT T2.STORAGE_NAME FROM YDM_BS_STORAGE T2 WHERE T2.STORAGE_NO = T.STORAGE_NO)STORAGE_NAME,
  959. T.TAR_STORAGE_NO,
  960. (SELECT T1.STORAGE_NAME FROM YDM_BS_STORAGE T1 WHERE T1.STORAGE_NO = T.TAR_STORAGE_NO)TAR_STORAGE_NAME,
  961. MAX(TO_CHAR(T.OUTSTOCK_TIME, 'YYYY-MM-DD HH24:MI:SS')) OUTSTOCK_TIME,
  962. MAX(TO_CHAR(T.LEAVE_FACTORY_TIME, 'YYYY-MM-DD HH24:MI:SS')) LEAVE_FACTORY_TIME,
  963. MAX(T.LEAVE_FACTORY_NAME) LEAVE_FACTORY_NAME,
  964. MAX(T.CREATE_NAME)CREATE_NAME,
  965. MAX(T.JUDGE_STD_NAME)JUDGE_STD_NAME,
  966. DECODE(T.QCM_STAUS,'00','合格','11','待处理','22','判废')QCM_STAUS,
  967. MAX(DECODE(T.TAR_REC_FLAG,'0','未接收','1','已接收'))TAR_REC_FLAG,
  968. MAX(T.DRIVER)DRIVER,
  969. DECODE(T.OUT_TYPE,'0','写卡倒运','1','票据倒运','2','纠错倒运','3','外委倒运','4','装车皮倒运')OUT_TYPE,
  970. MAX(T.FLAG_STOVE_NO_ZG)FLAG_STOVE_NO_ZG,
  971. DECODE(T.PRODUCT_FLAG,'801401','在制品','801402','成品','801403','商品')PRODUCT_FLAG,
  972. MAX((SELECT T1.FINAL_USER_DESC
  973. FROM PLN_SALEORD T1
  974. WHERE (T1.ORD_LN_DLY_PK = T.ORD_LN_DLY_PK OR
  975. T1.ORD_LN_DLY_PK = SUBSTR(T.ORD_LN_DLY_PK,0,INSTR(T.ORD_LN_DLY_PK,'-')-1)))) FINAL_USER_DESC
  976. FROM YDM_BC_OUTLIST T
  977. WHERE T.OUTSTOCK_TYPE_CODE = '800803'
  978. AND T.VALIDFLAG = '1'
  979. </query>
  980. <query id = "FrmFilpOutStorage.doQueryTmsDemand" desc = "查询运输需求">
  981. <![CDATA[
  982. SELECT
  983. T.CAR_WT_VAL,
  984. T.CURRENT_JOB_NO,
  985. TO_CHAR(T.TRANSPORT_START_TIME, 'YYYY-MM-DD HH24:MI:SS') TRANSPORT_START_TIME,
  986. T.COST_COUNT,
  987. DECODE(T.VALIDFLAG,'00','无效','10','草稿','20','待分派','30','执行中','40','结束','50','关闭')VALIDFLAG,
  988. T.OUTPUT_QTY_VAL,
  989. T.DELETE_USERID,
  990. T.URGENCY_TYPE_CODE,
  991. T.DEMAND_ORG_DESC,
  992. T.DIMATER_VAL,
  993. TO_CHAR(T.CREATE_TIME, 'YYYY-MM-DD HH24:MI:SS') CREATE_TIME,
  994. T.START_AREA_DESC,
  995. T.END_AREA_DESC,
  996. T.UOM_DESC,
  997. T.MATERIALS_CODE,
  998. T.ARCHIVE_FLAG,
  999. TO_CHAR(T.DELETE_TIME, 'YYYY-MM-DD HH24:MI:SS') DELETE_TIME,
  1000. T.STATUS,
  1001. T.DEMAND_VERTICAL_NO,
  1002. T.PRO_ORDER_SQE,
  1003. T.DEMAND_NO,
  1004. T.COST_TYPE_DESC,
  1005. T.REFE_TYPE_NAME,
  1006. T.DEMAND_ORG_CODE,
  1007. T.DEMAND_QTY_VAL,
  1008. T.HEAT_NO,
  1009. T.CREATE_NAME,
  1010. T.GROUP_NO,
  1011. T.CARRIER_NAME,
  1012. T.UOM_CODE,
  1013. T.OUTPUT_WT_VAL,
  1014. T.ACCOUNT_YEAR_MONTH,
  1015. T.END_NODE_CODE,
  1016. T.CARRIER_CODE,
  1017. T.START_NODE_DESC,
  1018. T.END_AREA_CODE,
  1019. T.DELETE_NAME,
  1020. T.DEMAND_DESC,
  1021. T.TRAN_CLASS_CODE,
  1022. T.SCRAP_QTY_VAL,
  1023. T.CAR_USE_CODE,
  1024. T.CAR_USE_DESC,
  1025. T.MATERIALS_SPEC,
  1026. T.OFFLINE_QTY_VAL,
  1027. T.EXECUTE_SQE,
  1028. T.BATCH_NO,
  1029. T.HEIGHT_VAL,
  1030. T.LEN_MIN_VAL,
  1031. T.LEN_MAX_VAL,
  1032. T.PREVIOUS_JOB_NO,
  1033. T.ARCHIVE_NO,
  1034. T.DEMAND_WT_VAL,
  1035. T.UPDATE_USERID,
  1036. T.LOGO_NO,
  1037. T.OFFLINE_WT_VAL,
  1038. T.UPDATE_NAME,
  1039. T.END_NODE_DESC,
  1040. T.SCRAP_WT_VAL,
  1041. T.START_NODE_CODE,
  1042. TO_CHAR(T.TRANSPORT_END_TIME, 'YYYY-MM-DD HH24:MI:SS') TRANSPORT_END_TIME,
  1043. T.SOURCE_SIGN,
  1044. T.WEIGHING_IF,
  1045. T.CREATE_USERID,
  1046. T.ARCHIVE_DATE,
  1047. T.URGENCY_TYPE_DESC,
  1048. T.TRAN_CLASS_DESC,
  1049. T.COST_TYPE_CODE,
  1050. T.REFE_TYPE_CODE,
  1051. T.CAR_TYPE_DESC,
  1052. T.WIDE_VAL,
  1053. T.LEN_VAL,
  1054. T.CALCULATE_CAR_VAL,
  1055. T.PRO_ORDER_NO,
  1056. T.CAR_TYPE_CODE,
  1057. T.MEMO,
  1058. TO_CHAR(T.UPDATE_TIME, 'YYYY-MM-DD HH24:MI:SS') UPDATE_TIME,
  1059. T.MATERIALS_DESC,
  1060. T.REFE_NO,
  1061. T.START_AREA_CODE,
  1062. S.PLN_QTY_VAL,
  1063. S.PLN_WT_VAL
  1064. FROM TMS_DEMAND_M T LEFT JOIN TMS_PLN_C S ON T.DEMAND_NO = S.DEMAND_NO
  1065. WHERE 1 = 1
  1066. AND T.IS_SURE = '1'
  1067. ]]>
  1068. </query>
  1069. <query id = "FrmFilpOutStorage.doQueryStorageNo" desc = "查询目标库">
  1070. SELECT T.STORAGE_NAME,T.STORAGE_NO FROM YDM_BS_STORAGE T WHERE T.STORAGE_TYPE_NO IN ('800202','800205') AND T.VALIDFLAG = '1'
  1071. </query>
  1072. <query id = "FrmFilpOutStorage.updateGoWhere" desc = "修改去向">
  1073. <![CDATA[
  1074. DECLARE
  1075. BEGIN
  1076. FOR MYROW IN (SELECT *
  1077. FROM (SELECT T.MAT_NO
  1078. FROM MAT_BC_M T, YDM_BC_BUTTRESS S
  1079. WHERE T.MAT_NO = S.MAT_NO
  1080. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1081. AND T.BATCH_NO = '#BATCH_NO#'
  1082. AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
  1083. AND S.STORAGE_NO = '#STORAGE_NO#'
  1084. AND T.PLINE_CODE = '#PLINE_CODE#'
  1085. AND T.QCM_STAUS = '#QCM_STAUS#'
  1086. AND NVL(T.PRO_PLAN_ID_NEXT,'/') = NVL('#PRO_PLAN_ID_NEXT#','/')
  1087. AND NVL(T.GX_PLAN_NO_NEXT,'/') = NVL('#GX_PLAN_NO_NEXT#','/')
  1088. AND NVL(T.MAT_GOWHERE_CODE,'/') = NVL('#MAT_GOWHERE_CODE#','/')
  1089. AND NVL(T.FLAG_STOVE_NO_ZG,'/') = NVL('#FLAG_STOVE_NO_ZG#','/')
  1090. ORDER BY T.MAT_NO ASC)
  1091. WHERE ROWNUM <= #ACT_COUNT#) LOOP
  1092. UPDATE MAT_BC_M T
  1093. SET T.MAT_GOWHERE_CODE = '#UPDATE_GO_WHERE_CODE#',
  1094. T.MAT_GOWHERE_NAME = '#UPDATE_GO_WHERE#'
  1095. WHERE T.MAT_NO = MYROW.MAT_NO
  1096. AND T.PLINE_CODE = '#PLINE_CODE#';
  1097. END LOOP;
  1098. END;
  1099. ]]>
  1100. </query>
  1101. <query id = "FrmFilpOutStorage.updateFalgStove" desc = "修改标识炉号">
  1102. <![CDATA[
  1103. DECLARE
  1104. BEGIN
  1105. FOR MYROW IN (SELECT *
  1106. FROM (SELECT T.MAT_NO
  1107. FROM MAT_BC_M T, YDM_BC_BUTTRESS S
  1108. WHERE T.MAT_NO = S.MAT_NO
  1109. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1110. AND T.BATCH_NO = '#BATCH_NO#'
  1111. AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
  1112. AND S.STORAGE_NO = '#STORAGE_NO#'
  1113. AND T.PLINE_CODE = '#PLINE_CODE#'
  1114. AND T.QCM_STAUS = '#QCM_STAUS#'
  1115. AND NVL(T.PRO_PLAN_ID_NEXT,'/') = NVL('#PRO_PLAN_ID_NEXT#','/')
  1116. AND NVL(T.GX_PLAN_NO_NEXT,'/') = NVL('#GX_PLAN_NO_NEXT#','/')
  1117. AND NVL(T.FLAG_STOVE_NO_ZG,'/') = NVL('#FLAG_STOVE_NO_ZG#','/')
  1118. ORDER BY T.MAT_NO ASC)
  1119. WHERE ROWNUM <= #ACT_COUNT#) LOOP
  1120. UPDATE MAT_BC_M T
  1121. SET T.FLAG_STOVE_NO_ZG = '#UPDATE_FLAG_STOVE#'
  1122. WHERE T.MAT_NO = MYROW.MAT_NO
  1123. AND T.PLINE_CODE = '#PLINE_CODE#';
  1124. END LOOP;
  1125. END;
  1126. ]]>
  1127. </query>
  1128. <query id = "FrmFilpOutStorage.getOutDoc" desc = "不写卡生成倒库单号">
  1129. SELECT ?|| TO_CHAR(SYSDATE, 'YYMMDD') ||
  1130. LPAD(NVL(MAX(SUBSTR(OUTSTOCK_DOC, 11)), 0) + 1, 5, 0) OUTSTOCK_DOC
  1131. FROM YDM_BC_OUTLISTDOC T
  1132. WHERE T.OUTSTOCK_DOC LIKE ?|| TO_CHAR(SYSDATE, 'YYMMDD')|| '_____'
  1133. </query>
  1134. <query id = "FrmFilpOutStorage.getOutDoc1" desc = "写卡取倒库单号">
  1135. SELECT ?|| TO_CHAR(SYSDATE, 'YYMMDD') ||
  1136. LPAD(NVL(MAX(SUBSTR(OUTSTOCK_DOC, 11)), 0), 5, 0) OUTSTOCK_DOC
  1137. FROM YDM_BC_OUTLISTDOC T
  1138. WHERE T.OUTSTOCK_DOC LIKE ?|| TO_CHAR(SYSDATE, 'YYMMDD')|| '_____'
  1139. </query>
  1140. <query id = "" desc = "生成入库单号">
  1141. SELECT 'IC' || TO_CHAR(?, 'YYMMDD') ||
  1142. LPAD(NVL(MAX(SUBSTR(T.INSTOCK_DOC, 9)), 0) + 1, 5, 0) INSTOCK_DOC
  1143. FROM YDM_BC_INLIST T
  1144. WHERE T.INSTOCK_TYPE_CODE = ?
  1145. AND TO_CHAR(T.CREATE_TIME, 'YYYY-MM-DD') =
  1146. TO_CHAR(?, 'YYYY-MM-DD')
  1147. </query>
  1148. <query id = "FrmFilpOutStorage.doQueryMatBcCount" desc = "查询库存支数">
  1149. SELECT NVL(SUM(T.ACT_COUNT),'0')ACOUNT
  1150. FROM MAT_BC_M T, YDM_BC_BUTTRESS S
  1151. WHERE T.MAT_NO = S.MAT_NO
  1152. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1153. AND T.BATCH_NO = '#BATCH_NO#'
  1154. AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
  1155. AND S.STORAGE_NO = '#STORAGE_NO#'
  1156. AND T.PLINE_CODE = '#PLINE_CODE#'
  1157. AND T.QCM_STAUS = '#QCM_STAUS#'
  1158. AND T.BELONG_CODE = '#BELONG_CODE#'
  1159. AND NVL(T.PRO_PLAN_ID_NEXT, '/') = NVL('#PRO_PLAN_ID_NEXT#', '/')
  1160. AND NVL(T.GX_PLAN_NO_NEXT, '/') = NVL('#GX_PLAN_NO_NEXT#', '/')
  1161. --AND NVL(T.MAT_GOWHERE_CODE, '/') = NVL('#MAT_GOWHERE_CODE#', '/')
  1162. AND NVL(T.FLAG_STOVE_NO_ZG, '/') = NVL('#FLAG_STOVE_NO_ZG#', '/')
  1163. AND NVL(T.SUBCONTRACT_NO,'/') = NVL('#SUBCONTRACT_NO#','/')
  1164. AND NVL(T.SUBCONTRACT_NO_SEQ,'/') = NVL('#SUBCONTRACT_NO_SEQ#','/')
  1165. AND NVL(T.OFFLINE_DOC,'/') = NVL('#OFFLINE_DOC#','/')
  1166. AND NVL(T.MEMO,'/') = NVL('#MEMO#','/')
  1167. </query>
  1168. <query id = "FrmFilpOutStorage.doQueryMatBcScrap" desc = "查询废品是否审核">
  1169. <![CDATA[
  1170. SELECT NVL(SUM(T.ACT_COUNT),'0')ACOUNT
  1171. FROM MAT_BC_M T, YDM_BC_BUTTRESS S
  1172. WHERE T.MAT_NO = S.MAT_NO
  1173. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1174. AND T.BATCH_NO = '#BATCH_NO#'
  1175. AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
  1176. AND S.STORAGE_NO = '#STORAGE_NO#'
  1177. AND T.PLINE_CODE = '#PLINE_CODE#'
  1178. AND T.QCM_STAUS = '#QCM_STAUS#'
  1179. AND T.BELONG_CODE = '#BELONG_CODE#'
  1180. AND T.SCRAP_FRIM_FLAG <> '2'
  1181. ]]>
  1182. </query>
  1183. <query id = "FrmFilpOutStorage.doQueryMatZcCount" desc = "查询库存支数">
  1184. SELECT NVL(SUM(T.ACT_COUNT),'0')ACOUNT
  1185. FROM MAT_ZC_M T, YDM_ZC_BUTTRESS S
  1186. WHERE T.MAT_NO = S.MAT_NO
  1187. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1188. AND T.BATCH_NO = '#BATCH_NO#'
  1189. AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
  1190. AND S.STORAGE_NO = '#STORAGE_NO#'
  1191. AND T.PLINE_CODE = '#PLINE_CODE#'
  1192. AND T.BELONG_CODE = '#BELONG_CODE#'
  1193. AND T.PRODUCT_FLAG = '#PRODUCT_FLAG#'
  1194. AND NVL(T.SUBCONTRACT_NO,'/') = NVL('#SUBCONTRACT_NO#','/')
  1195. AND NVL(T.SUBCONTRACT_NO_SEQ,'/') = NVL('#SUBCONTRACT_NO_SEQ#','/')
  1196. </query>
  1197. <query id = "FrmFilpOutStorage.getPCode" desc = "查询产线集合">
  1198. SELECT T.PLINE_CODE,T.PLINE_NAME FROM COM_BASE_PLINE T WHERE T.VALIDFLAG='1'
  1199. </query>
  1200. <query id = "FrmFilpOutStorage.doQueryMilPlan" desc = "查询炉计划">
  1201. <![CDATA[
  1202. SELECT ID,
  1203. SEQ,
  1204. STOVE_NO,
  1205. JUDGE_STOVE_NO,
  1206. LOT_NO,
  1207. CONTRACT_NO,
  1208. IMP_PROCESS,
  1209. PLINE_CODE,
  1210. (SELECT T1.PLINE_NAME FROM COM_BASE_PLINE T1 WHERE T1.PLINE_CODE = T.PLINE_CODE)PLINE_NAME,
  1211. STATUS,
  1212. PRODUCER,
  1213. PROCESS_STATUS,
  1214. DB_LENGTH,
  1215. DB_HEIGHT,
  1216. ROLL_LENGTH,
  1217. SAW_NUM,
  1218. TARGET_LENGTH,
  1219. FINISH_USER,
  1220. TARGET_LIABRARY,
  1221. VARIETIES,
  1222. PIPE_SIZE,
  1223. BUCKLE_TYPE,
  1224. LENGTH_RANGE,
  1225. ROLL_STANDRAD,
  1226. PIPE_SECTION,
  1227. STEELCODE,
  1228. STEELNAME,
  1229. GRADECODE,
  1230. GRADENAME,
  1231. STEEL_STANDRAD,
  1232. TARGET,
  1233. BRANCH,
  1234. TON,
  1235. CUT_TARGET,
  1236. CUT_LENGTH,
  1237. CUT_WEIGHT,
  1238. DB_NUM,
  1239. START_TIME,
  1240. END_TIME,
  1241. TOM,
  1242. TOC,
  1243. DECODE(NODE_STATUS,
  1244. '70',
  1245. '管排距结炉',
  1246. '80',
  1247. '矫直结炉',
  1248. '90',
  1249. '探伤结炉',
  1250. '96',
  1251. '表检结炉') NODE_STATUS,
  1252. CUT_HEAD_LENGTHP,
  1253. CUT_TRAIL_LENGTHP,
  1254. CONTROL_THICKP,
  1255. OFFLINE_FLAG,
  1256. IS_BATCH,
  1257. OFFLINE_DATE,
  1258. CUT_TYPE,
  1259. ROLLING_STATUS,
  1260. PRODUCE_STANDRAD,
  1261. SIMPLE_PROCESS,
  1262. BACK_LINE_FLAG,
  1263. BACK_PLAN_FLAG,
  1264. FEED_SEQ,
  1265. FEED_TIME,
  1266. LOT_SEQ,
  1267. FEED_HEAT_NO,
  1268. LENGTHCP,
  1269. CUT_HEAD_LENGTHA,
  1270. CUT_TRAIL_LENGTHA,
  1271. ORDER_LENGTHA,
  1272. HOT_CHECK_FLAG,
  1273. BACK_SLAB_FLAG,
  1274. BACK_SLAB_TIME,
  1275. BATCH_MAX,
  1276. CODE_SAMPLE_FLAG,
  1277. VARIETIES_CODE,
  1278. PIPE_SIZE_CODE,
  1279. BUCKLE_TYPE_CODE,
  1280. ROLL_STANDRAD_CODE,
  1281. STD_STYLE,
  1282. STD_STYLE_DESC,
  1283. CHECK_NO,
  1284. ORD_LN_DLY_PK,
  1285. PRT_FLAG,
  1286. PRO_PLAN_ID,
  1287. GX_PLAN_NO,
  1288. TUBE_TYPE,
  1289. TUBE_SUORCE,
  1290. PREDICT_PIECE,
  1291. PREDICT_TON,
  1292. TYPE,
  1293. IS_LOAD,
  1294. COL_TIME,
  1295. COL_USER,
  1296. COL_SHIFT,
  1297. COL_GROUP,
  1298. USER_ID,
  1299. BAL_YEAR_MONTH,
  1300. (SELECT NVL(SUM(T1.ACT_COUNT),0)
  1301. FROM PORT_MIL_BATCH_SAMPLE_RESULT T1
  1302. WHERE T1.PLAN_ID = T.ID
  1303. AND T1.JUDGE_STOVE_NO = T.JUDGE_STOVE_NO
  1304. AND T1.STATUS = '0') ACT_COUNT,
  1305. (SELECT NVL(SUM(T1.ACT_COUNT),0)
  1306. FROM PORT_MIL_BATCH_SAMPLE_RESULT T1
  1307. WHERE T1.PLAN_ID = T.ID
  1308. AND T1.JUDGE_STOVE_NO = T.JUDGE_STOVE_NO
  1309. AND T1.STATUS = '0') LX_COUNT,
  1310. (SELECT NVL(SUM(T1.ACT_COUNT),0)
  1311. FROM PORT_MIL_BATCH_SAMPLE_RESULT T1
  1312. WHERE T1.PLAN_ID = T.ID
  1313. AND T1.JUDGE_STOVE_NO = T.JUDGE_STOVE_NO
  1314. AND T1.STATUS = '3') OFF_COUNT,
  1315. (SELECT NVL(SUM(T1.ACT_COUNT),0)
  1316. FROM PORT_MIL_BATCH_SAMPLE_RESULT T1
  1317. WHERE T1.PLAN_ID = T.ID
  1318. AND T1.JUDGE_STOVE_NO = T.JUDGE_STOVE_NO
  1319. AND T1.STATUS = '3') HT_COUNT
  1320. FROM MIL_PLAN T
  1321. WHERE T.NODE_STATUS >= '70'
  1322. AND T.NODE_STATUS < '99'
  1323. ]]>
  1324. </query>
  1325. <query id = "FrmFilpOutStorage.SelectMilNode" desc = "查询结炉状态">
  1326. SELECT T.NODE_STATUS,T.STATUS FROM MIL_PLAN T WHERE T.ID = '#ID#' AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1327. </query>
  1328. <query id = "FrmFilpOutStorage.SelectQualifiedCount" desc = "查询合格支数">
  1329. SELECT NVL(SUM(T.ACT_COUNT),0)ACOUNT
  1330. FROM PORT_MIL_BATCH_SAMPLE_RESULT T
  1331. WHERE T.PLAN_ID = '#ID#'
  1332. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1333. AND T.STATUS = '0'
  1334. </query>
  1335. <query id = "FrmFilpOutStorage.doQueryStoreNo" desc = "查询仓库">
  1336. SELECT S.STORAGE_NO, S.STORAGE_TYPE_NO, S.STORAGE_TYPE_NAME
  1337. FROM COM_BASE_PLINE T, YDM_BS_STORAGE S
  1338. WHERE T.DEPARTMENT_CODE = S.MANAGEMENT_NO
  1339. AND T.PLINE_CODE = ?
  1340. </query>
  1341. <query id = "FrmFilpOutStorage.OfflineResultSql" desc = "离线">
  1342. <![CDATA[
  1343. DECLARE
  1344. V_OFFCOUNT MIL_OFFLINE_RESLUT.OFFLINE_NUM%TYPE := NULL;
  1345. V_RESULTCOUNT MIL_STRAIGHTENING_RESULT.OFFLINE_NUM_TOTAL%TYPE := NULL;
  1346. V_QUALIFIED_NUM MIL_STRAIGHTENING_RESULT.QUALIFIED_NUM%TYPE := NULL;
  1347. V_COUNT MIL_INSTORE_RESULT.QUALIFIED_NUM%TYPE := NULL;
  1348. BEGIN
  1349. SELECT COUNT(1)
  1350. INTO V_OFFCOUNT
  1351. FROM MIL_OFFLINE_RESLUT T
  1352. WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1353. AND T.PLINE_CODE = '#PLINE_CODE#'
  1354. AND T.OFFLINE_PRO = '#OFFLINE_PRO#';
  1355. IF (V_OFFCOUNT > 0) THEN
  1356. UPDATE MIL_OFFLINE_RESLUT T
  1357. SET T.OFFLINE_NUM = TO_NUMBER(T.OFFLINE_NUM) +
  1358. TO_NUMBER('#OFFLINE_NUM#')
  1359. WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1360. AND T.OFFLINE_PRO = '#OFFLINE_PRO#';
  1361. ELSE
  1362. INSERT INTO MIL_OFFLINE_RESLUT
  1363. (RECHECK_NUM,
  1364. PRODUCNAME,
  1365. STEELCODE,
  1366. STEELNAME,
  1367. GRADECODE,
  1368. GRADENAME,
  1369. SPEC_CODE,
  1370. SPEC_NAME,
  1371. MODEL_CODE,
  1372. MODEL_DESC,
  1373. STD_CODE,
  1374. STD_NAME,
  1375. STD_STYLE,
  1376. STD_STYLE_DESC,
  1377. ACT_LEN_RANGE,
  1378. CONTRACT_NO,
  1379. PRODUCCODE,
  1380. INSTORAGE_NUM,
  1381. QUALIFIED_NUM,
  1382. SCRAP_NUM,
  1383. ZP_M_LH,
  1384. LOT_NO,
  1385. STOVE_NO,
  1386. JUDGE_STOVE_NO,
  1387. DIAMETER,
  1388. THICKNESS,
  1389. LENGTH,
  1390. PLINE_CODE,
  1391. OFFLINE_PRO,
  1392. REAL_TIME_STATUS,
  1393. OFFLINE_NUM,
  1394. BACKLINE_NUM,
  1395. GROUP_NUM,
  1396. FINAL_NUM,
  1397. ZP_FLAG,
  1398. STATUS,
  1399. TYPE_FLAG,
  1400. OFFLINE_TIME,
  1401. REMARK,
  1402. COL_USER,
  1403. COL_SHIFT,
  1404. COL_GROUP,
  1405. OFFLINE_TYPE,
  1406. ZP_HEIGHT,
  1407. TARGET,
  1408. IMP_PROCESS,
  1409. PRO_PLAN_ID,
  1410. GX_PLAN_NO)
  1411. VALUES
  1412. ('0',
  1413. '#PRODUCNAME#',
  1414. '#STEELCODE#',
  1415. '#STEELNAME#',
  1416. '#GRADECODE#',
  1417. '#GRADENAME#',
  1418. '#SPEC_CODE#',
  1419. '#SPEC_NAME#',
  1420. '#MODEL_CODE#',
  1421. '#MODEL_DESC#',
  1422. '#STD_CODE#',
  1423. '#STD_NAME#',
  1424. '#STD_STYLE#',
  1425. '#STD_STYLE_DESC#',
  1426. '#ACT_LEN_RANGE#',
  1427. '#CONTRACT_NO#',
  1428. '#PRODUCCODE#',
  1429. '0',
  1430. '0',
  1431. '0',
  1432. '',
  1433. '#LOT_NO#',
  1434. '#STOVE_NO#',
  1435. '#JUDGE_STOVE_NO#',
  1436. '#DIAMETER#',
  1437. '#THICKNESS#',
  1438. '#LENGTH#',
  1439. '#PLINE_CODE#',
  1440. '#OFFLINE_PRO#',
  1441. '0',
  1442. '#OFFLINE_NUM#',
  1443. '0',
  1444. '0',
  1445. '0',
  1446. '0',
  1447. '0',
  1448. '0',
  1449. TO_DATE('#OFFLINE_TIME#', 'YYYY-MM-DD HH24:MI:SS'),
  1450. '',
  1451. '#COL_USER#',
  1452. '#COL_SHIFT#',
  1453. '#COL_GROUP#',
  1454. '#OFFLINE_TYPE#',
  1455. '#ZP_HEIGHT#',
  1456. '#TARGET#',
  1457. '#IMP_PROCESS#',
  1458. '#PRO_PLAN_ID#',
  1459. '#GX_PLAN_NO#');
  1460. END IF;
  1461. IF ('#OFFLINE_PRO#' = 'JZ') THEN
  1462. UPDATE MIL_STRAIGHTENING_RESULT T
  1463. SET T.OFFLINE_NUM_TOTAL = TO_NUMBER(T.OFFLINE_NUM_TOTAL) +
  1464. TO_NUMBER('#OFFLINE_NUM#'),
  1465. T.QUALIFIED_NUM = TO_NUMBER(T.QUALIFIED_NUM) -
  1466. TO_NUMBER('#OFFLINE_NUM#')
  1467. WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1468. AND T.PLINE_CODE = '#PLINE_CODE#';
  1469. FOR MYROW IN (SELECT *
  1470. FROM (SELECT T.SEQ
  1471. FROM MIL_STRAIGH_RACK T
  1472. WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1473. AND T.PLINE_CODE = '#PLINE_CODE#'
  1474. AND T.OFFLINE_FLAG = '0'
  1475. AND T.STATUS = '0'
  1476. ORDER BY T.SEQ ASC)
  1477. WHERE ROWNUM <= #OFFLINE_NUM#) LOOP
  1478. UPDATE MIL_STRAIGH_RACK T
  1479. SET T.OFFLINE_FLAG = '1',
  1480. T.STATUS = '3',
  1481. T.OFFLINE_TIME = TO_DATE('#OFFLINE_TIME#',
  1482. 'YYYY-MM-DD HH24:MI:SS')
  1483. WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1484. AND T.PLINE_CODE = '#PLINE_CODE#'
  1485. AND T.SEQ = MYROW.SEQ;
  1486. INSERT INTO MIL_SLAB_SCRAP_SEQ
  1487. (COL_NO,
  1488. COL_TYPE,
  1489. JUDGE_STOVE_NO,
  1490. PROCESS_NO,
  1491. SEQ,
  1492. TIME,
  1493. FLAG,
  1494. COL_MODE,
  1495. COL_TIME,
  1496. COL_USER,
  1497. COL_SHIFT,
  1498. COL_GROUP,
  1499. RESULT_NO,
  1500. PRO_PLAN_ID,
  1501. GX_PLAN_NO)
  1502. VALUES
  1503. ('1',
  1504. '1',
  1505. '#JUDGE_STOVE_NO#',
  1506. '9',
  1507. MYROW.SEQ,
  1508. TO_DATE('#OFFLINE_TIME#', 'YYYY-MM-DD HH24:MI:SS'),
  1509. '0',
  1510. '0',
  1511. TO_DATE('#OFFLINE_TIME#', 'YYYY-MM-DD HH24:MI:SS'),
  1512. '#COL_USER#',
  1513. '#COL_SHIFT#',
  1514. '#COL_GROUP#',
  1515. '#ID#',
  1516. '#PRO_PLAN_ID#',
  1517. '#GX_PLAN_NO#');
  1518. END LOOP;
  1519. ELSIF ('#OFFLINE_PRO#' = 'TS') THEN
  1520. IF ('#PLINE_CODE#' = 'C010') THEN
  1521. UPDATE MIL_ET_RESULT T
  1522. SET T.OFFLINE_NUM = TO_NUMBER(T.OFFLINE_NUM) +
  1523. TO_NUMBER('#OFFLINE_NUM#')
  1524. WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1525. AND T.PLINE_CODE = '#PLINE_CODE#';
  1526. ELSE
  1527. UPDATE MIL_MT_RESULT T
  1528. SET T.OFFLINE_NUM = TO_NUMBER(T.OFFLINE_NUM) +
  1529. TO_NUMBER('#OFFLINE_NUM#')
  1530. WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1531. AND T.PLINE_CODE = '#PLINE_CODE#';
  1532. END IF;
  1533. FOR MYROW IN (SELECT *
  1534. FROM (SELECT T.SEQ
  1535. FROM MIL_TESTING_RACK T
  1536. WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1537. AND T.PLINE_CODE = '#PLINE_CODE#'
  1538. AND T.PRO_PLAN_ID = '#PRO_PLAN_ID#'
  1539. AND T.GX_PLAN_NO = '#GX_PLAN_NO#'
  1540. AND T.OFFLINE_FLAG = '0'
  1541. AND T.STATUS = '0'
  1542. AND T.SUSPECT_FLAG = '0'
  1543. ORDER BY T.SEQ ASC)
  1544. WHERE ROWNUM <= #OFFLINE_NUM#) LOOP
  1545. UPDATE MIL_TESTING_RACK T
  1546. SET T.OFFLINE_FLAG = '1',
  1547. T.OFFLINE_TYPE = '1',
  1548. T.OFFLINE_TIME = TO_DATE('#OFFLINE_TIME#',
  1549. 'YYYY-MM-DD HH24:MI:SS')
  1550. WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1551. AND T.PRO_PLAN_ID = '#PRO_PLAN_ID#'
  1552. AND T.GX_PLAN_NO = '#GX_PLAN_NO#'
  1553. AND T.PLINE_CODE = '#PLINE_CODE#'
  1554. AND T.SEQ = MYROW.SEQ;
  1555. INSERT INTO MIL_SLAB_SCRAP_SEQ
  1556. (COL_NO,
  1557. COL_TYPE,
  1558. JUDGE_STOVE_NO,
  1559. PROCESS_NO,
  1560. SEQ,
  1561. TIME,
  1562. FLAG,
  1563. COL_MODE,
  1564. COL_TIME,
  1565. COL_USER,
  1566. COL_SHIFT,
  1567. COL_GROUP,
  1568. RESULT_NO,
  1569. PRO_PLAN_ID,
  1570. GX_PLAN_NO)
  1571. VALUES
  1572. ('1',
  1573. '1',
  1574. '#JUDGE_STOVE_NO#',
  1575. '10',
  1576. MYROW.SEQ,
  1577. TO_DATE('#OFFLINE_TIME#', 'YYYY-MM-DD HH24:MI:SS'),
  1578. '0',
  1579. '0',
  1580. TO_DATE('#OFFLINE_TIME#', 'YYYY-MM-DD HH24:MI:SS'),
  1581. '#COL_USER#',
  1582. '#COL_SHIFT#',
  1583. '#COL_GROUP#',
  1584. '#ID#',
  1585. '#PRO_PLAN_ID#',
  1586. '#GX_PLAN_NO#');
  1587. END LOOP;
  1588. ELSIF ('#OFFLINE_PRO#' = 'ZJ') THEN
  1589. UPDATE MIL_SURFACE_RESULT T
  1590. SET T.OFFLINE_QUANTITY = TO_NUMBER(T.OFFLINE_QUANTITY) +
  1591. TO_NUMBER('#OFFLINE_NUM#')
  1592. WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1593. AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
  1594. AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/');
  1595. FOR MYROWOFFLINE IN (SELECT *
  1596. FROM (SELECT T.SEQ, T.JUDGE_STOVE_NO
  1597. FROM MIL_QA_RACK T
  1598. WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1599. AND T.OFFLINE_FLAG = '0'
  1600. AND T.STATUS = '0'
  1601. ORDER BY T.SEQ ASC)
  1602. WHERE ROWNUM <= #OFFLINE_NUM#) LOOP
  1603. UPDATE MIL_QA_RACK T
  1604. SET T.OFFLINE_FLAG = '1', T.STATUS = '2'
  1605. WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1606. AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
  1607. AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
  1608. AND T.SEQ = MYROWOFFLINE.SEQ;
  1609. INSERT INTO MIL_SLAB_SCRAP_SEQ
  1610. (COL_NO,
  1611. COL_TYPE,
  1612. JUDGE_STOVE_NO,
  1613. PROCESS_NO,
  1614. SEQ,
  1615. TIME,
  1616. FLAG,
  1617. COL_MODE,
  1618. COL_TIME,
  1619. COL_USER,
  1620. COL_SHIFT,
  1621. COL_GROUP,
  1622. RESULT_NO,
  1623. PRO_PLAN_ID,
  1624. GX_PLAN_NO)
  1625. VALUES
  1626. ('0',
  1627. '1',
  1628. '#JUDGE_STOVE_NO#',
  1629. '11',
  1630. MYROWOFFLINE.SEQ,
  1631. TO_DATE('#OFFLINE_TIME#', 'YYYY-MM-DD HH24:MI:SS'),
  1632. '0',
  1633. '0',
  1634. TO_DATE('#OFFLINE_TIME#', 'YYYY-MM-DD HH24:MI:SS'),
  1635. '#COL_USER#',
  1636. '#COL_SHIFT#',
  1637. '#COL_GROUP#',
  1638. '#ID#',
  1639. '#PRO_PLAN_ID#',
  1640. '#GX_PLAN_NO#');
  1641. END LOOP;
  1642. ELSIF ('#OFFLINE_PRO#' = 'XX') THEN
  1643. SELECT COUNT(1)
  1644. INTO V_COUNT
  1645. FROM MIL_INSTORE_RESULT T
  1646. WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1647. AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
  1648. AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
  1649. AND T.RESULT_NO = '#ID#';
  1650. IF (V_COUNT > 0) THEN
  1651. UPDATE MIL_INSTORE_RESULT T
  1652. SET T.OFFLINE_NUM = TO_NUMBER(NVL(OFFLINE_NUM, 0)) + TO_NUMBER('#OFFLINE_NUM#')
  1653. WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1654. AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/')
  1655. AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/')
  1656. AND T.RESULT_NO = '#ID#';
  1657. ELSE
  1658. INSERT INTO MIL_INSTORE_RESULT
  1659. (RESULT_NO,
  1660. JUDGE_STOVE_NO,
  1661. LOT_NO,
  1662. PLINE_CODE,
  1663. TYPE,
  1664. TARGET_DIAMETER,
  1665. TARGET_THICKNESS,
  1666. TARGET_LENGTH,
  1667. QUALIFIED_NUM,
  1668. QUALIFIED_TONS,
  1669. SCRAP_NUM,
  1670. SCRAP_TONS,
  1671. OFFLINE_NUM,
  1672. OFFLINE_TONS,
  1673. PRO_PLAN_ID,
  1674. GX_PLAN_NO)
  1675. VALUES
  1676. ('#ID#',
  1677. '#JUDGE_STOVE_NO#',
  1678. '#LOT_NO#',
  1679. '#PLINE_CODE#',
  1680. '#GRADENAME#',
  1681. '',
  1682. '',
  1683. '#ACT_LEN_RANGE#',
  1684. '',
  1685. '',
  1686. '',
  1687. '',
  1688. '#OFFLINE_NUM#',
  1689. '',
  1690. '#PRO_PLAN_ID#',
  1691. '#GX_PLAN_NO#');
  1692. END IF;
  1693. END IF;
  1694. END;
  1695. ]]>
  1696. </query>
  1697. <query id = "FrmFilpOutStorage.queryMatNoM" desc = "查询材料号">
  1698. <![CDATA[
  1699. SELECT ? || ? ||
  1700. LPAD(NVL(MAX(SUBSTR(T.MAT_NO, LENGTH(T.MAT_NO) - 3)), 0) + 1, 4, 0) MAT_NO
  1701. FROM (SELECT MAX(T1.MAT_NO) MAT_NO
  1702. FROM MAT_BC_M T1
  1703. WHERE T1.JUDGE_STOVE_NO = ?
  1704. AND T1.BATCH_NO = ?
  1705. UNION ALL
  1706. SELECT MAX(T3.MAT_NO) MAT_NO
  1707. FROM MAT_ZC_BACKUP T3
  1708. WHERE T3.JUDGE_STOVE_NO = ?
  1709. AND T3.BATCH_NO = ?
  1710. UNION ALL
  1711. SELECT MAX(T4.MAT_NO) MAT_NO
  1712. FROM YDM_BC_INLIST T4
  1713. WHERE T4.JUDGE_STOVE_NO = ?
  1714. AND T4.BATCH_NO = ?) T
  1715. ]]>
  1716. </query>
  1717. <query id = "FrmFilpOutStorage.insertMatSql" desc = "离线入库存">
  1718. DECLARE
  1719. V_TIME MIL_OFFLINE_RESLUT.OFFLINE_TIME%TYPE := SYSDATE;
  1720. BEGIN
  1721. INSERT INTO YDM_BC_BUTTRESS
  1722. (JUDGE_STOVE_NO,
  1723. BATCH_NO,
  1724. BATCH_GROUD_NO,
  1725. STORAGE_NO,
  1726. LOCATION_NO,
  1727. STORAGE_TYPE_NO,
  1728. STORAGE_TYPE_NAME,
  1729. CREATE_NAME,
  1730. MAT_NO,
  1731. CREATE_TIME,
  1732. MANAGEMENT_NO,
  1733. MANAGEMENT_NAME,
  1734. DEPARTMENT_CODE,
  1735. DEPARTMENT_DESC)
  1736. VALUES
  1737. ('#JUDGE_STOVE_NO#',
  1738. '#BATCH_NO#',
  1739. '#BATCH_GROUD_NO#',
  1740. '#STORAGE_NO#',
  1741. '#LOCATION_NO#',
  1742. '#STORAGE_TYPE_NO#',
  1743. '#STORAGE_TYPE_NAME#',
  1744. '#CREATE_NAME#',
  1745. '#MAT_NO#',
  1746. TO_DATE('#CREATE_TIME#', 'YYYY-MM-DD HH24:MI:SS'),
  1747. '#MANAGEMENT_NO#',
  1748. '#MANAGEMENT_NAME#',
  1749. '#DEPARTMENT_CODE#',
  1750. '#DEPARTMENT_DESC#');
  1751. INSERT INTO MAT_BC_M
  1752. (JUDGE_STOVE_NO,
  1753. BATCH_NO,
  1754. BATCH_GROUD_NO,
  1755. ACT_COUNT,
  1756. ACT_WEIGHT,
  1757. CREATE_TIME,
  1758. MAT_NO,
  1759. PRODUCT_FLAG,
  1760. MAT_STATUS,
  1761. PLINE_CODE,
  1762. PLINE_NAME,
  1763. QCM_STAUS,
  1764. HEAT_PLAN_NO,
  1765. ZG_STOVE_SQE,
  1766. PRODUCCODE,
  1767. PRODUCNAME,
  1768. STEELCODE,
  1769. STEELNAME,
  1770. SPEC_CODE,
  1771. SPEC_NAME,
  1772. GRADECODE,
  1773. GRADENAME,
  1774. MODEL_CODE,
  1775. MODEL_DESC,
  1776. STD_CODE,
  1777. STD_NAME,
  1778. BELONG_CODE,
  1779. BELONG_NAME,
  1780. STD_STYLE,
  1781. STD_STYLE_DESC,
  1782. ACT_DIMATER,
  1783. ACT_HEIGHT,
  1784. ACT_LEN_MIN,
  1785. ACT_LEN_MAX,
  1786. LOT_NO,
  1787. PRO_ORDER_NO,
  1788. ACT_LEN,
  1789. TARGET,
  1790. PROCESS_STATUS,
  1791. FLAG_STOVE_NO_ZG,
  1792. INSTOCK_TIME,
  1793. STOVE_NO)
  1794. VALUES
  1795. ('#JUDGE_STOVE_NO#',
  1796. '#BATCH_NO#',
  1797. '#BATCH_GROUD_NO#',
  1798. '#ACT_COUNT#',
  1799. '#ACT_WEIGHT#',
  1800. TO_DATE('#CREATE_TIME#', 'YYYY-MM-DD HH24:MI:SS'),
  1801. '#MAT_NO#',
  1802. '#PRODUCT_FLAG#',
  1803. '#MAT_STATUS#',
  1804. '#PLINE_CODE#',
  1805. '#PLINE_NAME#',
  1806. '#QCM_STAUS#',
  1807. '#HEAT_PLAN_NO#',
  1808. '#ZG_STOVE_SQE#',
  1809. '#PRODUCCODE#',
  1810. '#PRODUCNAME#',
  1811. '#STEELCODE#',
  1812. '#STEELNAME#',
  1813. '#SPEC_CODE#',
  1814. '#SPEC_NAME#',
  1815. '#GRADECODE#',
  1816. '#GRADENAME#',
  1817. '#MODEL_CODE#',
  1818. '#MODEL_DESC#',
  1819. '#STD_CODE#',
  1820. '#STD_NAME#',
  1821. '#BELONG_CODE#',
  1822. '#BELONG_NAME#',
  1823. '#STD_STYLE#',
  1824. '#STD_STYLE_DESC#',
  1825. '#ACT_DIMATER#',
  1826. '#ACT_HEIGHT#',
  1827. '#ACT_LEN_MIN#',
  1828. '#ACT_LEN_MAX#',
  1829. '#LOT_NO#',
  1830. '#PRO_ORDER_NO#',
  1831. '#ACT_LEN#',
  1832. '#TARGET#',
  1833. '#PROCESS_STATUS#',
  1834. '#JUDGE_STOVE_NO#',
  1835. TO_DATE('#CREATE_TIME#', 'YYYY-MM-DD HH24:MI:SS'),
  1836. '#STOVE_NO#');
  1837. END;
  1838. </query>
  1839. <query id = "FrmFilpOutStorage.insertCheckDeatil" desc = "插入表检详细表">
  1840. DECLARE
  1841. V_COUNT MIL_CHECK_DEATIL_SIMPLE.OFFLINE_PRODUCT%TYPE := NULL;
  1842. BEGIN
  1843. SELECT NVL(COUNT(1),0)
  1844. INTO V_COUNT
  1845. FROM MIL_CHECK_DEATIL_SIMPLE T
  1846. WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1847. AND T.RESULT_NO = '#RESULT_NO#'
  1848. AND T.DEFECT_CODE = '#DEFECT_CODE#';
  1849. IF (V_COUNT > 0) THEN
  1850. UPDATE MIL_CHECK_DEATIL_SIMPLE T
  1851. SET T.OFFLINE_PRODUCT = TO_NUMBER(NVL(T.OFFLINE_PRODUCT, 0)) +
  1852. TO_NUMBER('#OFFLINE_PRODUCT#')
  1853. WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1854. AND T.RESULT_NO = '#RESULT_NO#'
  1855. AND T.DEFECT_CODE = '#DEFECT_CODE#';
  1856. ELSE
  1857. INSERT INTO MIL_CHECK_DEATIL_SIMPLE
  1858. (JUDGE_STOVE_NO,
  1859. DEFECT_ITEM,
  1860. OFFLINE_PRODUCT,
  1861. DEFECT_CODE,
  1862. RESULT_NO,
  1863. PRO_PLAN_ID,
  1864. GX_PLAN_NO)
  1865. VALUES
  1866. ('#JUDGE_STOVE_NO#',
  1867. '#DEFECT_ITEM#',
  1868. '#OFFLINE_PRODUCT#',
  1869. '#DEFECT_CODE#',
  1870. '#RESULT_NO#',
  1871. '#PRO_PLAN_ID#',
  1872. '#GX_PLAN_NO#');
  1873. END IF;
  1874. END;
  1875. </query>
  1876. <query id = "FrmFilpOutStorage.getStoreAll" desc = "查询所有仓库">
  1877. SELECT T.STORAGE_NO,T.STORAGE_NAME FROM YDM_BS_STORAGE T WHERE T.STORAGE_TYPE_NO IN('800202','800205') AND T.VALIDFLAG = '1' and t.seam_area = '1'
  1878. </query>
  1879. <query id = "FrmFilpOutStorage.doAdd" desc = "票据倒库">
  1880. <![CDATA[
  1881. DECLARE
  1882. V_OUTSTOCK_DOC YDM_BC_OUTLIST.OUTSTOCK_DOC%TYPE := NULL; --出库单号
  1883. V_OUTSTOCK_SQE YDM_BC_OUTLIST.OUTSTOCK_SQE%TYPE := NULL; --出库流水
  1884. V_MEMO COM_BASE_INFO.MEMO%TYPE := NULL;
  1885. V_BASENAME COM_BASE_INFO.BASENAME%TYPE := NULL;
  1886. V_OCOUNT NUMBER := 1;
  1887. V_TIME YDM_BC_OUTLIST.CREATE_TIME%TYPE := SYSDATE;
  1888. V_BATHYEAR MAT_BC_M.BAL_YEAR_MONTH%TYPE := TO_CHAR(SYSDATE, 'YYYYMM');
  1889. V_DATA_SOURCE YDM_BC_OUTLIST.DATA_SUORCE%TYPE := NULL;
  1890. V_COUNT YDM_BC_OUTLIST.ACT_COUNT%TYPE :=NULL;
  1891. BEGIN
  1892. SELECT COUNT(1)INTO V_COUNT FROM YDM_BC_OUTLISTDOC T WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#';
  1893. --生成出库单号
  1894. V_OUTSTOCK_DOC := '#OUTSTOCK_DOC#';
  1895. SELECT MEMO, BASENAME
  1896. INTO V_MEMO, V_BASENAME
  1897. FROM COM_BASE_INFO
  1898. WHERE BASECODE = '#OUTSTOCK_TYPE_CODE#';
  1899. SELECT TO_NUMBER(LPAD((NVL(MAX(SUBSTR(T.OUTSTOCK_SQE, 16)), 0) + 1), 4, 0)) OUTSTOCK_SQE
  1900. INTO V_OCOUNT
  1901. FROM YDM_BC_OUTLIST T
  1902. WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#';
  1903. IF ('#BAR_CODE#' = '0') THEN
  1904. V_DATA_SOURCE := '0';
  1905. FOR MYROW IN (SELECT T.*,
  1906. S.STORAGE_NO,
  1907. S.LOCATION_NO,
  1908. S.LARY_NO,
  1909. S.LOC_NO,
  1910. S.STORAGE_ATTR,
  1911. S.STORAGE_ATTR_NAME,
  1912. S.STORAGE_TYPE_NO,
  1913. S.STORAGE_TYPE_NAME
  1914. FROM MAT_BC_M T, YDM_BC_BUTTRESS S
  1915. WHERE T.MAT_NO = S.MAT_NO
  1916. AND NVL(T.LOT_NO,'/') = NVL('#LOT_NO#','/')
  1917. AND NVL(T.STOVE_NO, '/') = NVL('#STOVE_NO#', '/')
  1918. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1919. AND T.BATCH_NO = '#BATCH_NO#'
  1920. AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
  1921. AND T.PRODUCT_FLAG = '#PRODUCT_FLAG#'
  1922. AND T.MAT_STATUS = '#MAT_STATUS_CODE#'
  1923. AND NVL(S.STORAGE_NO, '/') = NVL('#STORAGE_NO#', '/')
  1924. AND T.QCM_STAUS = '#QCM_STAUS#'
  1925. AND NVL(S.LOCATION_NO, '/') = NVL('#LOCATION_NO#', '/')
  1926. AND NVL(S.LARY_NO, '1') = NVL('#LARY_NO#', '1')
  1927. AND NVL(T.PRO_PLAN_ID_NEXT, '/') =
  1928. NVL('#PRO_PLAN_ID_NEXT#', '/')
  1929. AND NVL(T.GX_PLAN_NO_NEXT, '/') =
  1930. NVL('#GX_PLAN_NO_NEXT#', '/')
  1931. AND T.BELONG_CODE = '#BELONG_CODE#'
  1932. AND NVL(T.SUBCONTRACT_NO,'/') = NVL('#SUBCONTRACT_NO#','/')
  1933. AND NVL(T.SUBCONTRACT_NO_SEQ,'/') = NVL('#SUBCONTRACT_NO_SEQ#','/')
  1934. AND NVL(T.FLAG_STOVE_NO_ZG,'/') = NVL('#FLAG_STOVE_NO_ZG#','/')
  1935. AND S.STORAGE_NO IS NOT NULL
  1936. AND NVL(T.OFFLINE_DOC,'/') = NVL('#OFFLINE_DOC#','/')
  1937. AND NVL(T.MEMO,'/') = NVL('#MEMO#','/')
  1938. AND NVL(T.PIPMEMO,'/') = NVL('#PIPMEMO#','/')
  1939. AND NVL(T.MEMO1,'/') = NVL('#MEMO1#','/')
  1940. AND ROWNUM <= #ACT_COUNT#
  1941. ORDER BY T.MAT_NO DESC) LOOP
  1942. V_OUTSTOCK_SQE := V_OUTSTOCK_DOC || LPAD(V_OCOUNT, 4, 0);
  1943. INSERT INTO YDM_BC_OUTLIST
  1944. (OUTSTOCK_SQE,
  1945. OUTSTOCK_DOC,
  1946. OUTSTOCK_TYPE_CODE,
  1947. OUTSTOCK_TYPE_NAME,
  1948. ICCAR_NO,
  1949. VEHICLE_NO,
  1950. MAT_NO,
  1951. LOT_NO,
  1952. STOVE_NO,
  1953. JUDGE_STOVE_NO,
  1954. BATCH_NO,
  1955. BATCH_GROUD_NO,
  1956. MATERIAL_NO,
  1957. MATERIAL_NAME,
  1958. PRODUCCODE,
  1959. PRODUCNAME,
  1960. STD_CODE,
  1961. STD_NAME,
  1962. GRADECODE,
  1963. GRADENAME,
  1964. STEELCODE,
  1965. STEELNAME,
  1966. STD_STYLE,
  1967. STD_STYLE_DESC,
  1968. SPEC_CODE,
  1969. SPEC_NAME,
  1970. MODEL_CODE,
  1971. MODEL_DESC,
  1972. PRO_ORDER_NO,
  1973. PLINE_CODE,
  1974. PLINE_NAME,
  1975. ACT_DIMATER,
  1976. ACT_HEIGHT,
  1977. ACT_LEN,
  1978. ACT_LEN_MIN,
  1979. ACT_LEN_MAX,
  1980. ACT_COUNT,
  1981. ACT_WEIGHT,
  1982. ACT_THEORY_WEIGHT,
  1983. BELONG_CODE,
  1984. BELONG_NAME,
  1985. STORAGE_NO,
  1986. LOCATION_NO,
  1987. LARY_NO,
  1988. LOC_NO,
  1989. STORAGE_ATTR,
  1990. STORAGE_ATTR_NAME,
  1991. STORAGE_TYPE_NO,
  1992. STORAGE_TYPE_NAME,
  1993. TAR_STORAGE_NO,
  1994. TAR_REC_FLAG,
  1995. INSTOCK_TIME,
  1996. OUTSTOCK_TIME,
  1997. OUT_BC,
  1998. OUT_BZ,
  1999. CREATE_NAME,
  2000. CREATE_TIME,
  2001. ORD_PK,
  2002. ORD_LN_PK,
  2003. ORD_LN_DLY_PK,
  2004. ORDER_NO,
  2005. ORDER_SEQ,
  2006. DELIVERY_NO,
  2007. PRODUCT_FLAG,
  2008. MAT_STATUS,
  2009. JUDGE_STD_NAME,
  2010. BAL_YEAR_MONTH,
  2011. DATA_SUORCE,
  2012. QCM_STAUS,
  2013. LEAVE_FACTORY_FLAG,
  2014. BELONG_CODE_RESPONSE,
  2015. BELONG_NAME_RESPONSE,
  2016. DRIVER,
  2017. OUT_TYPE,
  2018. FLAG_STOVE_NO_ZG,
  2019. SUPERVISOR_NAME,
  2020. SUPERVISOR_CALL,
  2021. PRO_ORDER_ID,
  2022. GX_PLAN_NO,
  2023. PIPMEMO,
  2024. MEMO
  2025. )
  2026. VALUES
  2027. (V_OUTSTOCK_SQE,
  2028. V_OUTSTOCK_DOC,
  2029. '#OUTSTOCK_TYPE_CODE#',
  2030. '#OUTSTOCK_TYPE_NAME#',
  2031. '#ICCAR_NO#',
  2032. '#VEHICLE_NO#',
  2033. MYROW.MAT_NO,
  2034. MYROW.LOT_NO,
  2035. MYROW.STOVE_NO,
  2036. MYROW.JUDGE_STOVE_NO,
  2037. MYROW.BATCH_NO,
  2038. MYROW.BATCH_GROUD_NO,
  2039. MYROW.MATERIAL_NO,
  2040. MYROW.MATERIAL_NAME,
  2041. MYROW.PRODUCCODE,
  2042. MYROW.PRODUCNAME,
  2043. MYROW.STD_CODE,
  2044. MYROW.STD_NAME,
  2045. MYROW.GRADECODE,
  2046. MYROW.GRADENAME,
  2047. MYROW.STEELCODE,
  2048. MYROW.STEELNAME,
  2049. MYROW.STD_STYLE,
  2050. MYROW.STD_STYLE_DESC,
  2051. MYROW.SPEC_CODE,
  2052. MYROW.SPEC_NAME,
  2053. MYROW.MODEL_CODE,
  2054. MYROW.MODEL_DESC,
  2055. MYROW.PRO_ORDER_NO,
  2056. MYROW.PLINE_CODE,
  2057. MYROW.PLINE_NAME,
  2058. MYROW.ACT_DIMATER,
  2059. MYROW.ACT_HEIGHT,
  2060. MYROW.ACT_LEN,
  2061. MYROW.ACT_LEN_MIN,
  2062. MYROW.ACT_LEN_MAX,
  2063. MYROW.ACT_COUNT,
  2064. MYROW.ACT_WEIGHT,
  2065. MYROW.ACT_THEORY_WEIGHT,
  2066. MYROW.BELONG_CODE,
  2067. MYROW.BELONG_NAME,
  2068. MYROW.STORAGE_NO,
  2069. MYROW.LOCATION_NO,
  2070. MYROW.LARY_NO,
  2071. MYROW.LOC_NO,
  2072. MYROW.STORAGE_ATTR,
  2073. MYROW.STORAGE_ATTR_NAME,
  2074. MYROW.STORAGE_TYPE_NO,
  2075. MYROW.STORAGE_TYPE_NAME,
  2076. '#TAR_STORAGE_NO#',
  2077. '0',
  2078. MYROW.INSTOCK_TIME,
  2079. V_TIME,
  2080. '#OUT_BC#',
  2081. '#OUT_BZ#',
  2082. '#CREATE_NAME#',
  2083. V_TIME,
  2084. MYROW.ORD_PK,
  2085. MYROW.ORD_LN_PK,
  2086. MYROW.ORD_LN_DLY_PK,
  2087. MYROW.ORDER_NO,
  2088. MYROW.ORDER_SEQ,
  2089. MYROW.ORDER_SEQ_NO,
  2090. MYROW.PRODUCT_FLAG,
  2091. MYROW.MAT_STATUS,
  2092. MYROW.JUDGE_STD_DES,
  2093. V_BATHYEAR,
  2094. V_DATA_SOURCE,
  2095. MYROW.QCM_STAUS,
  2096. '0',
  2097. (SELECT T1.DEPARTMENT_CODE_P FROM COM_BASE_PLINE T1 WHERE T1.PLINE_CODE = MYROW.PLINE_CODE),
  2098. (SELECT T2.DEPARTMENT_DESC_P FROM COM_BASE_PLINE T2 WHERE T2.PLINE_CODE = MYROW.PLINE_CODE),
  2099. '#DRIVER#',
  2100. '#OUT_TYPE#',
  2101. MYROW.FLAG_STOVE_NO_ZG,
  2102. '#SUPERVISOR_NAME#',
  2103. '#SUPERVISOR_CALL#',
  2104. MYROW.PRO_ORDER_ID,
  2105. MYROW.GX_PLAN_NO,
  2106. MYROW.PIPMEMO,
  2107. MYROW.MEMO
  2108. );
  2109. UPDATE YDM_BC_BUTTRESS T SET T.STORAGE_NO = '',T.LOCATION_NO = '',T.LARY_NO = '' WHERE T.MAT_NO = MYROW.MAT_NO;
  2110. --UPDATE MAT_BC_M T
  2111. --SET T.MAT_GOWHERE_CODE = '#MAT_GOWHERE_CODE#',
  2112. -- T.MAT_GOWHERE_NAME = '#MAT_GOWHERE_NAME#'
  2113. --WHERE T.MAT_NO = MYROW.MAT_NO;
  2114. V_OCOUNT := V_OCOUNT + 1;
  2115. END LOOP;
  2116. ELSE
  2117. V_DATA_SOURCE := '1';
  2118. FOR MYROW IN (SELECT F.*,S1.BILL_NO
  2119. FROM (SELECT T.*,
  2120. S.STORAGE_NO,
  2121. S.LOCATION_NO,
  2122. S.LARY_NO,
  2123. S.LOC_NO,
  2124. S.STORAGE_ATTR,
  2125. S.STORAGE_ATTR_NAME,
  2126. S.STORAGE_TYPE_NO,
  2127. S.STORAGE_TYPE_NAME
  2128. FROM MAT_ZC_M T, YDM_ZC_BUTTRESS S
  2129. WHERE T.MAT_NO = S.MAT_NO
  2130. AND NVL(T.LOT_NO, '/') = NVL('#LOT_NO#', '/')
  2131. AND NVL(T.STOVE_NO, '/') = NVL('#STOVE_NO#', '/')
  2132. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  2133. AND T.BATCH_NO = '#BATCH_NO#'
  2134. AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
  2135. AND T.PRODUCT_FLAG = '#PRODUCT_FLAG#'
  2136. AND T.MAT_STATUS = '#MAT_STATUS_CODE#'
  2137. AND NVL(S.STORAGE_NO, '/') = NVL('#STORAGE_NO#', '/')
  2138. AND NVL(S.LOCATION_NO, '/') = NVL('#LOCATION_NO#', '/')
  2139. AND NVL(S.LARY_NO, '1') = NVL('#LARY_NO#', '1')
  2140. AND T.BELONG_CODE = '#BELONG_CODE#'
  2141. AND NVL(T.SUBCONTRACT_NO, '/') = NVL('#SUBCONTRACT_NO#', '/')
  2142. AND NVL(T.SUBCONTRACT_NO_SEQ, '/') =
  2143. NVL('#SUBCONTRACT_NO_SEQ#', '/')
  2144. AND NVL(T.FLAG_STOVE_NO_ZG,'/') = NVL('#FLAG_STOVE_NO_ZG#','/')
  2145. AND S.STORAGE_NO IS NOT NULL
  2146. AND T.LOCK_BILL_FLAG = '0'
  2147. AND NVL(T.PIPMEMO,'/') = NVL('#PIPMEMO#','/')
  2148. AND NVL(T.MEMO1,'/') = NVL('#MEMO1#','/')
  2149. AND NVL(T.MEMO,'/') = NVL('#MEMO#','/')
  2150. AND ROWNUM <= #ACT_COUNT#
  2151. ORDER BY T.MAT_NO DESC) F
  2152. LEFT JOIN YDM_ZC_BILL_C S1
  2153. ON F.MAT_NO = S1.MAT_NO
  2154. AND S1.EDIT_FLAG = '0') LOOP
  2155. V_OUTSTOCK_SQE := V_OUTSTOCK_DOC || LPAD(V_OCOUNT, 4, 0);
  2156. INSERT INTO YDM_BC_OUTLIST
  2157. (OUTSTOCK_SQE,
  2158. OUTSTOCK_DOC,
  2159. OUTSTOCK_TYPE_CODE,
  2160. OUTSTOCK_TYPE_NAME,
  2161. ICCAR_NO,
  2162. VEHICLE_NO,
  2163. MAT_NO,
  2164. LOT_NO,
  2165. STOVE_NO,
  2166. JUDGE_STOVE_NO,
  2167. BATCH_NO,
  2168. BATCH_GROUD_NO,
  2169. MATERIAL_NO,
  2170. MATERIAL_NAME,
  2171. PRODUCCODE,
  2172. PRODUCNAME,
  2173. STD_CODE,
  2174. STD_NAME,
  2175. GRADECODE,
  2176. GRADENAME,
  2177. STEELCODE,
  2178. STEELNAME,
  2179. STD_STYLE,
  2180. STD_STYLE_DESC,
  2181. SPEC_CODE,
  2182. SPEC_NAME,
  2183. MODEL_CODE,
  2184. MODEL_DESC,
  2185. PRO_ORDER_NO,
  2186. PLINE_CODE,
  2187. PLINE_NAME,
  2188. ACT_DIMATER,
  2189. ACT_HEIGHT,
  2190. ACT_LEN,
  2191. ACT_LEN_MIN,
  2192. ACT_LEN_MAX,
  2193. ACT_COUNT,
  2194. ACT_WEIGHT,
  2195. ACT_THEORY_WEIGHT,
  2196. BELONG_CODE,
  2197. BELONG_NAME,
  2198. STORAGE_NO,
  2199. LOCATION_NO,
  2200. LARY_NO,
  2201. LOC_NO,
  2202. STORAGE_ATTR,
  2203. STORAGE_ATTR_NAME,
  2204. STORAGE_TYPE_NO,
  2205. STORAGE_TYPE_NAME,
  2206. TAR_STORAGE_NO,
  2207. TAR_REC_FLAG,
  2208. INSTOCK_TIME,
  2209. OUTSTOCK_TIME,
  2210. OUT_BC,
  2211. OUT_BZ,
  2212. CREATE_NAME,
  2213. CREATE_TIME,
  2214. ORD_PK,
  2215. ORD_LN_PK,
  2216. ORD_LN_DLY_PK,
  2217. ORDER_NO,
  2218. ORDER_SEQ,
  2219. DELIVERY_NO,
  2220. PRODUCT_FLAG,
  2221. MAT_STATUS,
  2222. JUDGE_STD_NAME,
  2223. JUDGE_STD_CODE,
  2224. BAL_YEAR_MONTH,
  2225. DATA_SUORCE,
  2226. QCM_STAUS,
  2227. LEAVE_FACTORY_FLAG,
  2228. BELONG_CODE_RESPONSE,
  2229. BELONG_NAME_RESPONSE,
  2230. DRIVER,
  2231. OUT_TYPE,
  2232. FLAG_STOVE_NO_ZG,
  2233. M_BILL_NO,
  2234. SUPERVISOR_NAME,
  2235. SUPERVISOR_CALL,
  2236. PRO_ORDER_ID,
  2237. GX_PLAN_NO,
  2238. PIPMEMO,
  2239. MEMO)
  2240. VALUES
  2241. (V_OUTSTOCK_SQE,
  2242. V_OUTSTOCK_DOC,
  2243. '#OUTSTOCK_TYPE_CODE#',
  2244. '#OUTSTOCK_TYPE_NAME#',
  2245. '#ICCAR_NO#',
  2246. '#VEHICLE_NO#',
  2247. MYROW.MAT_NO,
  2248. MYROW.LOT_NO,
  2249. MYROW.STOVE_NO,
  2250. MYROW.JUDGE_STOVE_NO,
  2251. MYROW.BATCH_NO,
  2252. MYROW.BATCH_GROUD_NO,
  2253. MYROW.MATERIAL_NO,
  2254. MYROW.MATERIAL_NAME,
  2255. MYROW.PRODUCCODE,
  2256. MYROW.PRODUCNAME,
  2257. MYROW.STD_CODE,
  2258. MYROW.STD_NAME,
  2259. MYROW.GRADECODE,
  2260. MYROW.GRADENAME,
  2261. MYROW.STEELCODE,
  2262. MYROW.STEELNAME,
  2263. MYROW.STD_STYLE,
  2264. MYROW.STD_STYLE_DESC,
  2265. MYROW.SPEC_CODE,
  2266. MYROW.SPEC_NAME,
  2267. MYROW.MODEL_CODE,
  2268. MYROW.MODEL_DESC,
  2269. MYROW.PRO_ORDER_NO,
  2270. MYROW.PLINE_CODE,
  2271. MYROW.PLINE_NAME,
  2272. MYROW.ACT_DIMATER,
  2273. MYROW.ACT_HEIGHT,
  2274. MYROW.ACT_LEN,
  2275. MYROW.ACT_LEN_MIN,
  2276. MYROW.ACT_LEN_MAX,
  2277. MYROW.ACT_COUNT,
  2278. MYROW.ACT_WEIGHT,
  2279. MYROW.ACT_THEORY_WEIGHT,
  2280. MYROW.BELONG_CODE,
  2281. MYROW.BELONG_NAME,
  2282. MYROW.STORAGE_NO,
  2283. MYROW.LOCATION_NO,
  2284. MYROW.LARY_NO,
  2285. MYROW.LOC_NO,
  2286. MYROW.STORAGE_ATTR,
  2287. MYROW.STORAGE_ATTR_NAME,
  2288. MYROW.STORAGE_TYPE_NO,
  2289. MYROW.STORAGE_TYPE_NAME,
  2290. '#TAR_STORAGE_NO#',
  2291. '0',
  2292. MYROW.INSTOCK_TIME,
  2293. V_TIME,
  2294. '#OUT_BC#',
  2295. '#OUT_BZ#',
  2296. '#CREATE_NAME#',
  2297. V_TIME,
  2298. MYROW.ORD_PK,
  2299. MYROW.ORD_LN_PK,
  2300. MYROW.ORD_LN_DLY_PK,
  2301. MYROW.ORDER_NO,
  2302. MYROW.ORDER_SEQ,
  2303. MYROW.ORDER_SEQ_NO,
  2304. MYROW.PRODUCT_FLAG,
  2305. MYROW.MAT_STATUS,
  2306. MYROW.JUDGE_STD_NAME,
  2307. MYROW.JUDGE_STD_CODE,
  2308. V_BATHYEAR,
  2309. V_DATA_SOURCE,
  2310. '00',
  2311. '0',
  2312. (SELECT T1.DEPARTMENT_CODE_P FROM COM_BASE_PLINE T1 WHERE T1.PLINE_CODE = MYROW.PLINE_CODE),
  2313. (SELECT T2.DEPARTMENT_DESC_P FROM COM_BASE_PLINE T2 WHERE T2.PLINE_CODE = MYROW.PLINE_CODE),
  2314. '#DRIVER#',
  2315. '#OUT_TYPE#',
  2316. MYROW.FLAG_STOVE_NO_ZG,
  2317. MYROW.BILL_NO,
  2318. '#SUPERVISOR_NAME#',
  2319. '#SUPERVISOR_CALL#',
  2320. MYROW.PRO_ORDER_ID,
  2321. MYROW.GX_PLAN_NO,
  2322. MYROW.PIPMEMO,
  2323. MYROW.MEMO);
  2324. UPDATE YDM_ZC_BUTTRESS T SET T.STORAGE_NO = '',T.LOCATION_NO = '',T.LARY_NO = '' WHERE T.MAT_NO = MYROW.MAT_NO;
  2325. V_OCOUNT := V_OCOUNT + 1;
  2326. END LOOP;
  2327. END IF;
  2328. IF(V_COUNT = 0)THEN
  2329. INSERT INTO YDM_BC_OUTLISTDOC (OUTSTOCK_DOC)VALUES ('#OUTSTOCK_DOC#');
  2330. END IF;
  2331. END;
  2332. ]]>
  2333. </query>
  2334. <query id = "FrmFilpOutStorage.doAddMat" desc = "按支倒库">
  2335. <![CDATA[
  2336. DECLARE
  2337. V_OUTSTOCK_DOC YDM_BC_OUTLIST.OUTSTOCK_DOC%TYPE := NULL; --出库单号
  2338. V_OUTSTOCK_SQE YDM_BC_OUTLIST.OUTSTOCK_SQE%TYPE := NULL; --出库流水
  2339. V_MEMO COM_BASE_INFO.MEMO%TYPE := NULL;
  2340. V_BASENAME COM_BASE_INFO.BASENAME%TYPE := NULL;
  2341. V_OCOUNT NUMBER := 1;
  2342. V_TIME YDM_BC_OUTLIST.CREATE_TIME%TYPE := SYSDATE;
  2343. V_BATHYEAR MAT_BC_M.BAL_YEAR_MONTH%TYPE := TO_CHAR(SYSDATE, 'YYYYMM');
  2344. V_DATA_SOURCE YDM_BC_OUTLIST.DATA_SUORCE%TYPE := NULL;
  2345. V_COUNT YDM_BC_OUTLIST.ACT_COUNT%TYPE :=NULL;
  2346. BEGIN
  2347. SELECT COUNT(1)INTO V_COUNT FROM YDM_BC_OUTLISTDOC T WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#';
  2348. --生成出库单号
  2349. V_OUTSTOCK_DOC := '#OUTSTOCK_DOC#';
  2350. SELECT MEMO, BASENAME
  2351. INTO V_MEMO, V_BASENAME
  2352. FROM COM_BASE_INFO
  2353. WHERE BASECODE = '#OUTSTOCK_TYPE_CODE#';
  2354. SELECT TO_NUMBER(LPAD((NVL(MAX(SUBSTR(T.OUTSTOCK_SQE, 16)), 0) + 1), 4, 0)) OUTSTOCK_SQE
  2355. INTO V_OCOUNT
  2356. FROM YDM_BC_OUTLIST T
  2357. WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#';
  2358. IF ('#BAR_CODE#' = '0') THEN
  2359. V_DATA_SOURCE := '0';
  2360. FOR MYROW IN (SELECT T.*,
  2361. S.STORAGE_NO,
  2362. S.LOCATION_NO,
  2363. S.LARY_NO,
  2364. S.LOC_NO,
  2365. S.STORAGE_ATTR,
  2366. S.STORAGE_ATTR_NAME,
  2367. S.STORAGE_TYPE_NO,
  2368. S.STORAGE_TYPE_NAME
  2369. FROM MAT_BC_M T, YDM_BC_BUTTRESS S
  2370. WHERE T.MAT_NO = S.MAT_NO
  2371. AND T.MAT_NO = '#MAT_NO_S#'
  2372. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  2373. AND T.BATCH_NO = '#BATCH_NO#'
  2374. AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
  2375. AND S.STORAGE_NO IS NOT NULL) LOOP
  2376. V_OUTSTOCK_SQE := V_OUTSTOCK_DOC || LPAD(V_OCOUNT, 4, 0);
  2377. INSERT INTO YDM_BC_OUTLIST
  2378. (OUTSTOCK_SQE,
  2379. OUTSTOCK_DOC,
  2380. OUTSTOCK_TYPE_CODE,
  2381. OUTSTOCK_TYPE_NAME,
  2382. ICCAR_NO,
  2383. VEHICLE_NO,
  2384. MAT_NO,
  2385. LOT_NO,
  2386. STOVE_NO,
  2387. JUDGE_STOVE_NO,
  2388. BATCH_NO,
  2389. BATCH_GROUD_NO,
  2390. MATERIAL_NO,
  2391. MATERIAL_NAME,
  2392. PRODUCCODE,
  2393. PRODUCNAME,
  2394. STD_CODE,
  2395. STD_NAME,
  2396. GRADECODE,
  2397. GRADENAME,
  2398. STEELCODE,
  2399. STEELNAME,
  2400. STD_STYLE,
  2401. STD_STYLE_DESC,
  2402. SPEC_CODE,
  2403. SPEC_NAME,
  2404. MODEL_CODE,
  2405. MODEL_DESC,
  2406. PRO_ORDER_NO,
  2407. PLINE_CODE,
  2408. PLINE_NAME,
  2409. ACT_DIMATER,
  2410. ACT_HEIGHT,
  2411. ACT_LEN,
  2412. ACT_LEN_MIN,
  2413. ACT_LEN_MAX,
  2414. ACT_COUNT,
  2415. ACT_WEIGHT,
  2416. ACT_THEORY_WEIGHT,
  2417. BELONG_CODE,
  2418. BELONG_NAME,
  2419. STORAGE_NO,
  2420. LOCATION_NO,
  2421. LARY_NO,
  2422. LOC_NO,
  2423. STORAGE_ATTR,
  2424. STORAGE_ATTR_NAME,
  2425. STORAGE_TYPE_NO,
  2426. STORAGE_TYPE_NAME,
  2427. TAR_STORAGE_NO,
  2428. TAR_REC_FLAG,
  2429. INSTOCK_TIME,
  2430. OUTSTOCK_TIME,
  2431. OUT_BC,
  2432. OUT_BZ,
  2433. CREATE_NAME,
  2434. CREATE_TIME,
  2435. ORD_PK,
  2436. ORD_LN_PK,
  2437. ORD_LN_DLY_PK,
  2438. ORDER_NO,
  2439. ORDER_SEQ,
  2440. DELIVERY_NO,
  2441. PRODUCT_FLAG,
  2442. MAT_STATUS,
  2443. JUDGE_STD_NAME,
  2444. BAL_YEAR_MONTH,
  2445. DATA_SUORCE,
  2446. QCM_STAUS,
  2447. LEAVE_FACTORY_FLAG,
  2448. BELONG_CODE_RESPONSE,
  2449. BELONG_NAME_RESPONSE,
  2450. DRIVER,
  2451. OUT_TYPE,
  2452. FLAG_STOVE_NO_ZG,
  2453. SUPERVISOR_NAME,
  2454. SUPERVISOR_CALL,
  2455. PRO_ORDER_ID,
  2456. GX_PLAN_NO)
  2457. VALUES
  2458. (V_OUTSTOCK_SQE,
  2459. V_OUTSTOCK_DOC,
  2460. '#OUTSTOCK_TYPE_CODE#',
  2461. '#OUTSTOCK_TYPE_NAME#',
  2462. '#ICCAR_NO#',
  2463. '#VEHICLE_NO#',
  2464. MYROW.MAT_NO,
  2465. MYROW.LOT_NO,
  2466. MYROW.STOVE_NO,
  2467. MYROW.JUDGE_STOVE_NO,
  2468. MYROW.BATCH_NO,
  2469. MYROW.BATCH_GROUD_NO,
  2470. MYROW.MATERIAL_NO,
  2471. MYROW.MATERIAL_NAME,
  2472. MYROW.PRODUCCODE,
  2473. MYROW.PRODUCNAME,
  2474. MYROW.STD_CODE,
  2475. MYROW.STD_NAME,
  2476. MYROW.GRADECODE,
  2477. MYROW.GRADENAME,
  2478. MYROW.STEELCODE,
  2479. MYROW.STEELNAME,
  2480. MYROW.STD_STYLE,
  2481. MYROW.STD_STYLE_DESC,
  2482. MYROW.SPEC_CODE,
  2483. MYROW.SPEC_NAME,
  2484. MYROW.MODEL_CODE,
  2485. MYROW.MODEL_DESC,
  2486. MYROW.PRO_ORDER_NO,
  2487. MYROW.PLINE_CODE,
  2488. MYROW.PLINE_NAME,
  2489. MYROW.ACT_DIMATER,
  2490. MYROW.ACT_HEIGHT,
  2491. MYROW.ACT_LEN,
  2492. MYROW.ACT_LEN_MIN,
  2493. MYROW.ACT_LEN_MAX,
  2494. MYROW.ACT_COUNT,
  2495. MYROW.ACT_WEIGHT,
  2496. MYROW.ACT_THEORY_WEIGHT,
  2497. MYROW.BELONG_CODE,
  2498. MYROW.BELONG_NAME,
  2499. MYROW.STORAGE_NO,
  2500. MYROW.LOCATION_NO,
  2501. MYROW.LARY_NO,
  2502. MYROW.LOC_NO,
  2503. MYROW.STORAGE_ATTR,
  2504. MYROW.STORAGE_ATTR_NAME,
  2505. MYROW.STORAGE_TYPE_NO,
  2506. MYROW.STORAGE_TYPE_NAME,
  2507. '#TAR_STORAGE_NO#',
  2508. '0',
  2509. MYROW.INSTOCK_TIME,
  2510. V_TIME,
  2511. '#OUT_BC#',
  2512. '#OUT_BZ#',
  2513. '#CREATE_NAME#',
  2514. V_TIME,
  2515. MYROW.ORD_PK,
  2516. MYROW.ORD_LN_PK,
  2517. MYROW.ORD_LN_DLY_PK,
  2518. MYROW.ORDER_NO,
  2519. MYROW.ORDER_SEQ,
  2520. MYROW.ORDER_SEQ_NO,
  2521. MYROW.PRODUCT_FLAG,
  2522. MYROW.MAT_STATUS,
  2523. MYROW.JUDGE_STD_DES,
  2524. V_BATHYEAR,
  2525. V_DATA_SOURCE,
  2526. MYROW.QCM_STAUS,
  2527. '0',
  2528. (SELECT T1.DEPARTMENT_CODE_P FROM COM_BASE_PLINE T1 WHERE T1.PLINE_CODE = MYROW.PLINE_CODE),
  2529. (SELECT T2.DEPARTMENT_DESC_P FROM COM_BASE_PLINE T2 WHERE T2.PLINE_CODE = MYROW.PLINE_CODE),
  2530. '#DRIVER#',
  2531. '#OUT_TYPE#',
  2532. MYROW.FLAG_STOVE_NO_ZG,
  2533. '#SUPERVISOR_NAME#',
  2534. '#SUPERVISOR_CALL#',
  2535. MYROW.PRO_ORDER_ID,
  2536. MYROW.GX_PLAN_NO);
  2537. UPDATE YDM_BC_BUTTRESS T SET T.STORAGE_NO = '',T.LOCATION_NO = '',T.LARY_NO = '' WHERE T.MAT_NO = MYROW.MAT_NO;
  2538. UPDATE MAT_GP_M T
  2539. SET T.MAT_GOWHERE_CODE = '#MAT_GOWHERE_CODE#',
  2540. T.MAT_GOWHERE_NAME = '#MAT_GOWHERE_NAME#'
  2541. WHERE T.MAT_NO = MYROW.MAT_NO;
  2542. END LOOP;
  2543. ELSE
  2544. V_DATA_SOURCE := '1';
  2545. FOR MYROW IN (SELECT F.*,S1.BILL_NO
  2546. FROM (SELECT T.*,
  2547. S.STORAGE_NO,
  2548. S.LOCATION_NO,
  2549. S.LARY_NO,
  2550. S.LOC_NO,
  2551. S.STORAGE_ATTR,
  2552. S.STORAGE_ATTR_NAME,
  2553. S.STORAGE_TYPE_NO,
  2554. S.STORAGE_TYPE_NAME
  2555. FROM MAT_ZC_M T, YDM_ZC_BUTTRESS S
  2556. WHERE T.MAT_NO = S.MAT_NO
  2557. AND T.MAT_NO = '#MAT_NO_S#'
  2558. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  2559. AND T.BATCH_NO = '#BATCH_NO#'
  2560. AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
  2561. AND S.STORAGE_NO IS NOT NULL
  2562. AND T.LOCK_BILL_FLAG = '0') F
  2563. LEFT JOIN YDM_ZC_BILL_C S1
  2564. ON F.MAT_NO = S1.MAT_NO
  2565. AND S1.EDIT_FLAG = '0') LOOP
  2566. V_OUTSTOCK_SQE := V_OUTSTOCK_DOC || LPAD(V_OCOUNT, 4, 0);
  2567. INSERT INTO YDM_BC_OUTLIST
  2568. (OUTSTOCK_SQE,
  2569. OUTSTOCK_DOC,
  2570. OUTSTOCK_TYPE_CODE,
  2571. OUTSTOCK_TYPE_NAME,
  2572. ICCAR_NO,
  2573. VEHICLE_NO,
  2574. MAT_NO,
  2575. LOT_NO,
  2576. STOVE_NO,
  2577. JUDGE_STOVE_NO,
  2578. BATCH_NO,
  2579. BATCH_GROUD_NO,
  2580. MATERIAL_NO,
  2581. MATERIAL_NAME,
  2582. PRODUCCODE,
  2583. PRODUCNAME,
  2584. STD_CODE,
  2585. STD_NAME,
  2586. GRADECODE,
  2587. GRADENAME,
  2588. STEELCODE,
  2589. STEELNAME,
  2590. STD_STYLE,
  2591. STD_STYLE_DESC,
  2592. SPEC_CODE,
  2593. SPEC_NAME,
  2594. MODEL_CODE,
  2595. MODEL_DESC,
  2596. PRO_ORDER_NO,
  2597. PLINE_CODE,
  2598. PLINE_NAME,
  2599. ACT_DIMATER,
  2600. ACT_HEIGHT,
  2601. ACT_LEN,
  2602. ACT_LEN_MIN,
  2603. ACT_LEN_MAX,
  2604. ACT_COUNT,
  2605. ACT_WEIGHT,
  2606. ACT_THEORY_WEIGHT,
  2607. BELONG_CODE,
  2608. BELONG_NAME,
  2609. STORAGE_NO,
  2610. LOCATION_NO,
  2611. LARY_NO,
  2612. LOC_NO,
  2613. STORAGE_ATTR,
  2614. STORAGE_ATTR_NAME,
  2615. STORAGE_TYPE_NO,
  2616. STORAGE_TYPE_NAME,
  2617. TAR_STORAGE_NO,
  2618. TAR_REC_FLAG,
  2619. INSTOCK_TIME,
  2620. OUTSTOCK_TIME,
  2621. OUT_BC,
  2622. OUT_BZ,
  2623. CREATE_NAME,
  2624. CREATE_TIME,
  2625. ORD_PK,
  2626. ORD_LN_PK,
  2627. ORD_LN_DLY_PK,
  2628. ORDER_NO,
  2629. ORDER_SEQ,
  2630. DELIVERY_NO,
  2631. PRODUCT_FLAG,
  2632. MAT_STATUS,
  2633. JUDGE_STD_NAME,
  2634. JUDGE_STD_CODE,
  2635. BAL_YEAR_MONTH,
  2636. DATA_SUORCE,
  2637. QCM_STAUS,
  2638. LEAVE_FACTORY_FLAG,
  2639. BELONG_CODE_RESPONSE,
  2640. BELONG_NAME_RESPONSE,
  2641. DRIVER,
  2642. OUT_TYPE,
  2643. FLAG_STOVE_NO_ZG,
  2644. M_BILL_NO,
  2645. SUPERVISOR_NAME,
  2646. SUPERVISOR_CALL,
  2647. PRO_ORDER_ID,
  2648. GX_PLAN_NO)
  2649. VALUES
  2650. (V_OUTSTOCK_SQE,
  2651. V_OUTSTOCK_DOC,
  2652. '#OUTSTOCK_TYPE_CODE#',
  2653. '#OUTSTOCK_TYPE_NAME#',
  2654. '#ICCAR_NO#',
  2655. '#VEHICLE_NO#',
  2656. MYROW.MAT_NO,
  2657. MYROW.LOT_NO,
  2658. MYROW.STOVE_NO,
  2659. MYROW.JUDGE_STOVE_NO,
  2660. MYROW.BATCH_NO,
  2661. MYROW.BATCH_GROUD_NO,
  2662. MYROW.MATERIAL_NO,
  2663. MYROW.MATERIAL_NAME,
  2664. MYROW.PRODUCCODE,
  2665. MYROW.PRODUCNAME,
  2666. MYROW.STD_CODE,
  2667. MYROW.STD_NAME,
  2668. MYROW.GRADECODE,
  2669. MYROW.GRADENAME,
  2670. MYROW.STEELCODE,
  2671. MYROW.STEELNAME,
  2672. MYROW.STD_STYLE,
  2673. MYROW.STD_STYLE_DESC,
  2674. MYROW.SPEC_CODE,
  2675. MYROW.SPEC_NAME,
  2676. MYROW.MODEL_CODE,
  2677. MYROW.MODEL_DESC,
  2678. MYROW.PRO_ORDER_NO,
  2679. MYROW.PLINE_CODE,
  2680. MYROW.PLINE_NAME,
  2681. MYROW.ACT_DIMATER,
  2682. MYROW.ACT_HEIGHT,
  2683. MYROW.ACT_LEN,
  2684. MYROW.ACT_LEN_MIN,
  2685. MYROW.ACT_LEN_MAX,
  2686. MYROW.ACT_COUNT,
  2687. MYROW.ACT_WEIGHT,
  2688. MYROW.ACT_THEORY_WEIGHT,
  2689. MYROW.BELONG_CODE,
  2690. MYROW.BELONG_NAME,
  2691. MYROW.STORAGE_NO,
  2692. MYROW.LOCATION_NO,
  2693. MYROW.LARY_NO,
  2694. MYROW.LOC_NO,
  2695. MYROW.STORAGE_ATTR,
  2696. MYROW.STORAGE_ATTR_NAME,
  2697. MYROW.STORAGE_TYPE_NO,
  2698. MYROW.STORAGE_TYPE_NAME,
  2699. '#TAR_STORAGE_NO#',
  2700. '0',
  2701. MYROW.INSTOCK_TIME,
  2702. V_TIME,
  2703. '#OUT_BC#',
  2704. '#OUT_BZ#',
  2705. '#CREATE_NAME#',
  2706. V_TIME,
  2707. MYROW.ORD_PK,
  2708. MYROW.ORD_LN_PK,
  2709. MYROW.ORD_LN_DLY_PK,
  2710. MYROW.ORDER_NO,
  2711. MYROW.ORDER_SEQ,
  2712. MYROW.ORDER_SEQ_NO,
  2713. MYROW.PRODUCT_FLAG,
  2714. MYROW.MAT_STATUS,
  2715. MYROW.JUDGE_STD_NAME,
  2716. MYROW.JUDGE_STD_CODE,
  2717. V_BATHYEAR,
  2718. V_DATA_SOURCE,
  2719. '00',
  2720. '0',
  2721. (SELECT T1.DEPARTMENT_CODE_P FROM COM_BASE_PLINE T1 WHERE T1.PLINE_CODE = MYROW.PLINE_CODE),
  2722. (SELECT T2.DEPARTMENT_DESC_P FROM COM_BASE_PLINE T2 WHERE T2.PLINE_CODE = MYROW.PLINE_CODE),
  2723. '#DRIVER#',
  2724. '#OUT_TYPE#',
  2725. MYROW.FLAG_STOVE_NO_ZG,
  2726. MYROW.BILL_NO,
  2727. '#SUPERVISOR_NAME#',
  2728. '#SUPERVISOR_CALL#',
  2729. MYROW.PRO_ORDER_ID,
  2730. MYROW.GX_PLAN_NO);
  2731. UPDATE YDM_ZC_BUTTRESS T SET T.STORAGE_NO = '',T.LOCATION_NO = '',T.LARY_NO = '' WHERE T.MAT_NO = MYROW.MAT_NO;
  2732. END LOOP;
  2733. END IF;
  2734. IF(V_COUNT = 0)THEN
  2735. INSERT INTO YDM_BC_OUTLISTDOC (OUTSTOCK_DOC)VALUES ('#OUTSTOCK_DOC#');
  2736. END IF;
  2737. END;
  2738. ]]>
  2739. </query>
  2740. <query id = "FrmFilpOutStorage.selectYdmOutTarFlag" desc = "查询倒运记录是否已接收">
  2741. SELECT COUNT(1)ACOUNT
  2742. FROM YDM_BC_OUTLIST T
  2743. WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#'
  2744. --AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  2745. --AND T.BATCH_NO = '#BATCH_NO#'
  2746. -- AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
  2747. AND T.TAR_REC_FLAG = '1'
  2748. --AND T.QCM_STAUS = '#QCM_STAUS#'
  2749. </query>
  2750. <query id = "FrmFilpOutStorage.doDelte" desc = "撤销倒运">
  2751. DECLARE
  2752. BEGIN
  2753. FOR MYROW IN (SELECT *
  2754. FROM YDM_BC_OUTLIST T
  2755. WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#'
  2756. --AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  2757. --AND T.BATCH_NO = '#BATCH_NO#'
  2758. --AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
  2759. --AND T.QCM_STAUS = '#QCM_STAUS#'
  2760. AND T.VALIDFLAG = '1'
  2761. ORDER BY T.MAT_NO ASC) LOOP
  2762. IF (MYROW.DATA_SUORCE = '0') THEN
  2763. IF (MYROW.QCM_STAUS = '22') THEN
  2764. UPDATE YDM_BC_BUTTRESS S
  2765. SET S.STORAGE_NO = MYROW.STORAGE_NO,
  2766. S.LOCATION_NO = MYROW.LOCATION_NO,
  2767. S.LARY_NO = MYROW.LARY_NO
  2768. WHERE S.MAT_NO = MYROW.MAT_NO
  2769. AND S.STORAGE_NO IS NULL;
  2770. ELSE
  2771. UPDATE YDM_BC_BUTTRESS S
  2772. SET S.STORAGE_NO = MYROW.STORAGE_NO,
  2773. S.LOCATION_NO = MYROW.LOCATION_NO,
  2774. S.LARY_NO = MYROW.LARY_NO
  2775. WHERE S.MAT_NO = MYROW.MAT_NO
  2776. AND S.STORAGE_NO IS NULL;
  2777. END IF;
  2778. ELSE
  2779. UPDATE YDM_ZC_BUTTRESS S
  2780. SET S.STORAGE_NO = MYROW.STORAGE_NO,
  2781. S.LOCATION_NO = MYROW.LOCATION_NO,
  2782. S.LARY_NO = MYROW.LARY_NO
  2783. WHERE S.MAT_NO = MYROW.MAT_NO
  2784. AND S.STORAGE_NO IS NULL;
  2785. END IF;
  2786. DELETE FROM YDM_BC_OUTLIST T
  2787. WHERE T.MAT_NO = MYROW.MAT_NO
  2788. AND T.OUTSTOCK_DOC = MYROW.OUTSTOCK_DOC;
  2789. END LOOP;
  2790. DELETE FROM YDM_BC_OUTLISTDOC T WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#';
  2791. END;
  2792. </query>
  2793. <query id = "FrmFilpOutStorage.selectOutBcWgt" desc= "查询倒运支数重量">
  2794. <![CDATA[
  2795. SELECT SUM(T.ACT_WEIGHT)ACT_WEIGHT
  2796. FROM MAT_BC_M T, YDM_BC_BUTTRESS S
  2797. WHERE T.MAT_NO = S.MAT_NO
  2798. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  2799. AND T.BATCH_NO = '#BATCH_NO#'
  2800. AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
  2801. AND T.QCM_STAUS = '#QCM_STAUS#'
  2802. AND NVL(T.PRO_PLAN_ID_NEXT, '/') = NVL('#PRO_PLAN_ID_NEXT#', '/')
  2803. AND NVL(T.GX_PLAN_NO_NEXT, '/') = NVL('#GX_PLAN_NO_NEXT#', '/')
  2804. AND S.STORAGE_NO = '#STORAGE_NO#'
  2805. AND S.LOCATION_NO = '#LOCATION_NO#'
  2806. AND NVL(S.LARY_NO,'/') = NVL('#LARY_NO#','/')
  2807. WHERE ROWNUM <= #ACOUNT#
  2808. ]]>
  2809. </query>
  2810. <query id = "FrmFilpOutStorage.selectOutZcWgt" desc = "查询成品倒运支数重量">
  2811. <![CDATA[
  2812. SELECT SUM(T.ACT_WEIGHT)ACT_WEIGHT
  2813. FROM MAT_ZC_M T, YDM_ZC_BUTTRESS S
  2814. WHERE T.MAT_NO = S.MAT_NO
  2815. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  2816. AND T.BATCH_NO = '#BATCH_NO#'
  2817. AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
  2818. AND S.STORAGE_NO = '#STORAGE_NO#'
  2819. AND S.LOCATION_NO = '#LOCATION_NO#'
  2820. AND NVL(S.LARY_NO,'/') = NVL('#LARY_NO#','/')
  2821. WHERE ROWNUM <= #ACOUNT#
  2822. ]]>
  2823. </query>
  2824. <query id = "FrmFilpOutStorage.doQueryTarDepart" desc = "查询仓库对应科室">
  2825. SELECT T.MANAGEMENT_NO,T.MANAGEMENT_NAME FROM YDM_BS_STORAGE T WHERE T.STORAGE_NO = ?
  2826. </query>
  2827. <query id = "FrmFilpOutStorage.doQueryCount" desc = "查询单号下未接收">
  2828. SELECT NVL(SUM(T.ACT_COUNT), 0) ACT_COUNT
  2829. FROM YDM_BC_OUTLIST T
  2830. WHERE T.OUTSTOCK_DOC = ?
  2831. AND T.TAR_REC_FLAG = '0'
  2832. AND T.QCM_STAUS IN('00','11')
  2833. </query>
  2834. <query id = "FrmFilpOutStorage.insertOutdoc" desc = "保存倒库单号">
  2835. INSERT INTO YDM_BC_OUTLISTDOC (OUTSTOCK_DOC) VALUES (?)
  2836. </query>
  2837. <query id = "FrmFilpOutStorage.deleteDoc" desc = "删除倒库单号">
  2838. DELETE FROM YDM_BC_OUTLISTDOC T WHERE T.OUTSTOCK_DOC = ?
  2839. </query>
  2840. <query id = "FrmFilpOutStorage.doQueryMatBcCountMatNo" desc = "查询材料号是否在库">
  2841. SELECT NVL(COUNT(1),'0') ACOUNT
  2842. FROM MAT_BC_M T, YDM_BC_BUTTRESS S
  2843. WHERE T.MAT_NO = S.MAT_NO
  2844. AND T.MAT_NO = '#MAT_NO#'
  2845. AND S.STORAGE_NO = '#STORAGE_NO#'
  2846. </query>
  2847. <query id = "FrmFilpOutStorage.doQueryMatZcCountMatNo" desc = "查询材料号是否在库">
  2848. SELECT NVL(COUNT(1),'0') ACOUNT
  2849. FROM MAT_ZC_M T, YDM_ZC_BUTTRESS S
  2850. WHERE T.MAT_NO = S.MAT_NO
  2851. AND T.MAT_NO = '#MAT_NO#'
  2852. AND S.STORAGE_NO = '#STORAGE_NO#'
  2853. </query>
  2854. <query id = "FrmFilpOutStorage.getBcMatNo" desc = "查询BC队列">
  2855. SELECT T.*
  2856. FROM MAT_BC_M T, YDM_BC_BUTTRESS S
  2857. WHERE T.MAT_NO = S.MAT_NO
  2858. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  2859. AND T.BATCH_NO = '#BATCH_NO#'
  2860. AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
  2861. AND NVL(T.PRODUCCODE,'/') = NVL('#PRODUCCODE#','/')
  2862. AND NVL(T.MODEL_CODE,'/') = NVL('#MODEL_CODE#','/')
  2863. AND T.QCM_STAUS = '#QCM_STAUS#'
  2864. AND NVL(T.PRO_PLAN_ID_NEXT,'/') = NVL('#PRO_PLAN_ID_NEXT#','/')
  2865. AND NVL(T.GX_PLAN_NO_NEXT,'/') = NVL('#GX_PLAN_NO_NEXT#','/')
  2866. AND T.PLINE_CODE = '#PLINE_CODE#'
  2867. AND T.MAT_STATUS = '#MAT_STATUS_CODE#'
  2868. AND T.BELONG_CODE = '#BELONG_CODE#'
  2869. AND S.STORAGE_NO = '#STORAGE_NO#'
  2870. AND NVL(T.SUBCONTRACT_NO,'/') = NVL('#SUBCONTRACT_NO#','/')
  2871. AND NVL(T.SUBCONTRACT_NO_SEQ,'/') = NVL('#SUBCONTRACT_NO_SEQ#','/')
  2872. AND NVL(T.OFFLINE_DOC,'/') = NVL('#OFFLINE_DOC#','/')
  2873. AND NVL(T.MEMO,'/') = NVL('#MEMO#','/')
  2874. AND NVL(T.MEMO1,'/') = NVL('#MEMO1#','/')
  2875. AND NVL(T.PIPMEMO,'/') = NVL('#PIPMEMO#','/')
  2876. ORDER BY TO_NUMBER(T.MEASURING_SEQ) ASC
  2877. </query>
  2878. <query id = "FrmFilpOutStorage.getZcMatNo" desc = "查询ZC队列">
  2879. SELECT T.*
  2880. FROM MAT_ZC_M T, YDM_ZC_BUTTRESS S
  2881. WHERE T.MAT_NO = S.MAT_NO
  2882. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  2883. AND T.BATCH_NO = '#BATCH_NO#'
  2884. AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
  2885. AND NVL(T.PRODUCCODE,'/') = NVL('#PRODUCCODE#','/')
  2886. AND NVL(T.MODEL_CODE,'/') = NVL('#MODEL_CODE#','/')
  2887. AND T.BELONG_CODE = '#BELONG_CODE#'
  2888. AND T.PLINE_CODE = '#PLINE_CODE#'
  2889. AND T.MAT_STATUS = '#MAT_STATUS_CODE#'
  2890. AND S.STORAGE_NO = '#STORAGE_NO#'
  2891. AND NVL(T.SUBCONTRACT_NO,'/') = NVL('#SUBCONTRACT_NO#','/')
  2892. AND NVL(T.SUBCONTRACT_NO_SEQ,'/') = NVL('#SUBCONTRACT_NO_SEQ#','/')
  2893. AND NVL(T.MEMO,'/') = NVL('#MEMO#','/')
  2894. AND NVL(T.MEMO1,'/') = NVL('#MEMO1#','/')
  2895. AND NVL(T.PIPMEMO,'/') = NVL('#PIPMEMO#','/')
  2896. ORDER BY TO_NUMBER(T.MEASURING_SEQ) ASC
  2897. </query>
  2898. <query id = "FrmFilpOutStorage.getSuperName" desc = "加载监装人">
  2899. SELECT T1.SUPERVISOR_CODE, T1.SUPERVISOR_NAME
  2900. FROM YDM_BC_SUPERVISOR T1,
  2901. (SELECT T.PLINE_CODE FROM COM_BASE_PLINE T WHERE T.PROCESS_CODE NOT IN('A','B','C')
  2902. </query>
  2903. <query id = "FrmFilpOutStorage.selectSuper" desc = "查询监装人">
  2904. SELECT T.SUPERVISOR_NAME,T.SUPERVISOR_CALL FROM YDM_BC_SUPERVISOR T WHERE T.SUPERVISOR_CODE = ?
  2905. </query>
  2906. <query id = "FrmFilpOutStorage.selectWayBill" desc = "查询司机是否有接单记录">
  2907. SELECT NVL(COUNT(1),0) ACOUNT,MAX(S.END_AREA_CODE)END_AREA_CODE,MAX(T.WAYBILL_NO)WAYBILL_NO
  2908. FROM TMS_WAYBILL_M T,TMS_PLN_C S,TMS_PLN_M P
  2909. WHERE T.PLN_NO = S.PLN_NO
  2910. AND T.PLN_NO = P.PLN_NO
  2911. AND S.PLN_NO = P.PLN_NO
  2912. AND S.HEAT_NO = ?
  2913. AND S.START_AREA_CODE = ?
  2914. AND T.CAR_LICENSE = ?
  2915. AND T.VALIDFLAG IN('20','35')
  2916. AND P.STATUS = '20'
  2917. </query>
  2918. <query id = "FrmFilpOutStorage.SelectWayM" desc = "查询运单主表信息">
  2919. SELECT T.*,S.START_NODE_CODE
  2920. FROM TMS_WAYBILL_M T,TMS_COM_LINE_M S
  2921. WHERE T.LINE_CODE = S.LINE_CODE
  2922. AND T.CAR_LICENSE = ?
  2923. AND T.VALIDFLAG IN('20','35')
  2924. </query>
  2925. <query id = "FrmFilpOutStorage.selectWgt" desc = "查询对应支数重量">
  2926. SELECT T.JUDGE_STOVE_NO,
  2927. T.BATCH_NO,
  2928. T.BATCH_GROUD_NO,
  2929. T.MATERIAL_NO,
  2930. T.MATERIAL_NAME,
  2931. T.SPEC_NAME,
  2932. T.ACT_DIMATER,
  2933. T.ACT_HEIGHT,
  2934. T.FLAG_STOVE_NO_ZG,
  2935. T.SUPERVISOR_NAME,
  2936. T.SUPERVISOR_CALL,
  2937. T.OUTSTOCK_DOC,
  2938. T.PRODUCT_FLAG,
  2939. T.MAT_STATUS,
  2940. T.STORAGE_NO,
  2941. T.PLINE_CODE,
  2942. T.PLINE_NAME,
  2943. T.PRODUCCODE,
  2944. T.PRODUCNAME,
  2945. T.QCM_STAUS,
  2946. T.PRODUCT_FLAG,
  2947. T.MAT_STATUS,
  2948. (SELECT T1.PRODUC_HEAD FROM COM_BASE_PRODUCT T1 WHERE T1.PRODUCCODE = T.PRODUCCODE)PRODUCT_CODE,
  2949. (SELECT S.BASENAME FROM COM_BASE_PRODUCT T2,COM_BASE_INFO S WHERE T2.PRODUC_HEAD = S.BASECODE AND T2.PRODUCCODE = T.PRODUCCODE)PRODUCT_NAME,
  2950. MAX(T.SUPERVISOR_NAME)SUPERVISOR_NAME,
  2951. MAX(T.SUPERVISOR_CALL)SUPERVISOR_CALL,
  2952. SUM(T.ACT_COUNT) ACT_COUNT,
  2953. SUM(T.ACT_WEIGHT) ACT_WEIGHT
  2954. FROM YDM_BC_OUTLIST T
  2955. WHERE T.OUTSTOCK_DOC = ?
  2956. GROUP BY T.JUDGE_STOVE_NO,
  2957. T.BATCH_NO,
  2958. T.BATCH_GROUD_NO,
  2959. T.MATERIAL_NO,
  2960. T.MATERIAL_NAME,
  2961. T.SPEC_NAME,
  2962. T.ACT_DIMATER,
  2963. T.ACT_HEIGHT,
  2964. T.FLAG_STOVE_NO_ZG,
  2965. T.SUPERVISOR_NAME,
  2966. T.SUPERVISOR_CALL,
  2967. T.OUTSTOCK_DOC,
  2968. T.PRODUCT_FLAG,
  2969. T.MAT_STATUS,
  2970. T.STORAGE_NO,
  2971. T.PLINE_CODE,
  2972. T.PLINE_NAME,
  2973. T.PRODUCCODE,
  2974. T.PRODUCNAME,
  2975. T.QCM_STAUS,
  2976. T.PRODUCT_FLAG,
  2977. T.MAT_STATUS
  2978. </query>
  2979. <query id = "FrmFilpOutStorage.insertWayC" desc = "新增运单子表信息">
  2980. DECLARE
  2981. V_WAYBILL_SQE TMS_WAYBILL_C.WAYBILL_SQE%TYPE := NULL;
  2982. BEGIN
  2983. SELECT LPAD(NVL(MAX(SUBSTR(T.WAYBILL_SQE,0)), 0) + 1,3,0)
  2984. INTO V_WAYBILL_SQE
  2985. FROM TMS_WAYBILL_C T
  2986. WHERE T.WAYBILL_NO = '#WAYBILL_NO#';
  2987. INSERT INTO TMS_WAYBILL_C
  2988. (MATERIALS_DIMATER,
  2989. MATERIALS_HEIGHT,
  2990. MAT_STATUS,
  2991. SUPERVISOR_NAME,
  2992. SUPERVISOR_CALL,
  2993. PRODUCT_FLAG,
  2994. MAT_TYPE,
  2995. WAYBILL_NO,
  2996. WAYBILL_SQE,
  2997. PLN_NO,
  2998. PLN_SQE,
  2999. HEAT_NO,
  3000. BATCH_NO,
  3001. LOGO_NO,
  3002. GROUP_NO,
  3003. MATERIALS_CODE,
  3004. MATERIALS_DESC,
  3005. MATERIALS_SPEC,
  3006. WAYBILL_QTY_VAL,
  3007. WAYBILL_WT_VAL,
  3008. REF_PLN_NO,
  3009. START_NODE_CODE,
  3010. START_NODE_DESC,
  3011. START_AREA_CODE,
  3012. START_AREA_DESC,
  3013. END_NODE_CODE,
  3014. END_NODE_DESC,
  3015. END_AREA_CODE,
  3016. END_AREA_DESC,
  3017. PLINE_CODE,
  3018. PLINE_NAME,
  3019. PROCESS_CDOE,
  3020. PROCESS_DESC,
  3021. PRODUCCODE,
  3022. PRODUCNAME,
  3023. PRODUCT_CODE,
  3024. PRODUCT_NAME,
  3025. QCM_STAUS,
  3026. DEMAND_ORG_CODE,
  3027. DEMAND_ORG_DESC
  3028. )
  3029. VALUES
  3030. ('#MATERIALS_DIMATER#',
  3031. '#MATERIALS_HEIGHT#',
  3032. '#MAT_STATUS#',
  3033. '#SUPERVISOR_NAME#',
  3034. '#SUPERVISOR_CALL#',
  3035. '#PRODUCT_FLAG#',
  3036. '#MAT_TYPE#',
  3037. '#WAYBILL_NO#',
  3038. V_WAYBILL_SQE,
  3039. '#PLN_NO#',
  3040. V_WAYBILL_SQE,
  3041. '#HEAT_NO#',
  3042. '#BATCH_NO#',
  3043. '#LOGO_NO#',
  3044. '#GROUP_NO#',
  3045. '#MATERIALS_CODE#',
  3046. '#MATERIALS_DESC#',
  3047. '#MATERIALS_SPEC#',
  3048. '#WAYBILL_QTY_VAL#',
  3049. '#WAYBILL_WT_VAL#',
  3050. '#REF_PLN_NO#',
  3051. '#START_NODE_CODE#',
  3052. '#START_NODE_DESC#',
  3053. '#START_AREA_CODE#',
  3054. '#START_AREA_DESC#',
  3055. '#END_NODE_CODE#',
  3056. '#END_NODE_DESC#',
  3057. '#END_AREA_CODE#',
  3058. '#END_AREA_DESC#',
  3059. '#PLINE_CODE#',
  3060. '#PLINE_NAME#',
  3061. '#PROCESS_CDOE#',
  3062. '#PROCESS_DESC#',
  3063. '#PRODUCCODE#',
  3064. '#PRODUCNAME#',
  3065. '#PRODUCT_CODE#',
  3066. '#PRODUCT_NAME#',
  3067. '#QCM_STAUS#',
  3068. '#DEMAND_ORG_CODE#',
  3069. '#DEMAND_ORG_DESC#');
  3070. END;
  3071. </query>
  3072. <query id = "FrmFilpOutStorage.insertExcute" desc = "新增装车实绩表">
  3073. DECLARE
  3074. V_EXECUTE_NO TMS_EXECUTE_B.EXECUTE_NO%TYPE := NULL;
  3075. BEGIN
  3076. SELECT TO_CHAR(SYSDATE, 'YYYYMMDD') ||
  3077. LPAD(NVL(MAX(SUBSTR(T.EXECUTE_NO,9)), 0) + 1, 5, 0)
  3078. INTO V_EXECUTE_NO
  3079. FROM TMS_EXECUTE_B T
  3080. WHERE EXECUTE_NO LIKE TO_CHAR(SYSDATE, 'YYYYMMDD')|| '_____';
  3081. INSERT INTO TMS_EXECUTE_B
  3082. (EXECUTE_NO,
  3083. UNLOADING_CODE,
  3084. CAR_LICENSE,
  3085. PLN_NO,
  3086. WAYBILL_NO,
  3087. EXECUTE_TIME,
  3088. REFE_NO,
  3089. ACCOUNT_YEAR_MONTH,
  3090. CREATE_TIME)
  3091. VALUES
  3092. ( V_EXECUTE_NO,
  3093. '#UNLOADING_CODE#',
  3094. '#CAR_LICENSE#',
  3095. '#PLN_NO#',
  3096. '#WAYBILL_NO#',
  3097. SYSDATE,
  3098. '#REFE_NO#',
  3099. '#ACCOUNT_YEAR_MONTH#',
  3100. SYSDATE);
  3101. END;
  3102. </query>
  3103. <query id = "FrmFilpOutStorage.updateWayM" desc = "修改运单主表状态">
  3104. UPDATE TMS_WAYBILL_M T SET T.VALIDFLAG = '#VALIDFLAG#' WHERE T.WAYBILL_NO = '#WAYBILL_NO#'
  3105. </query>
  3106. <query id = "FrmFilpOutStorage.insertCraneWayC" desc = "新增吊车运单子表">
  3107. INSERT INTO TMS_WAYBILL_C
  3108. (WAYBILL_NO,
  3109. WAYBILL_SQE,
  3110. PLN_NO,
  3111. PLN_SQE,
  3112. HEAT_NO,
  3113. BATCH_NO,
  3114. LOGO_NO,
  3115. GROUP_NO,
  3116. MATERIALS_CODE,
  3117. MATERIALS_DESC,
  3118. MATERIALS_SPEC,
  3119. WAYBILL_QTY_VAL,
  3120. WAYBILL_WT_VAL,
  3121. UOM_CODE,
  3122. UOM_DESC,
  3123. PRO_ORDER_NO,
  3124. PRO_ORDER_SQE,
  3125. CURRENT_JOB_NO,
  3126. NEXT_JOB_NO,
  3127. MEMO,
  3128. REF_PLN_NO,
  3129. REF_PLN_SQE,
  3130. REFE_NO,
  3131. CAR_LICENSE,
  3132. AFFIRM_TIME,
  3133. MATERIALS_DIMATER,
  3134. MATERIALS_HEIGHT,
  3135. IS_SORT,
  3136. SUPERVISOR_NAME,
  3137. SUPERVISOR_CALL,
  3138. PRODUCT_FLAG,
  3139. MAT_STATUS,
  3140. MAT_TYPE,
  3141. START_NODE_CODE,
  3142. START_NODE_DESC,
  3143. END_NODE_CODE,
  3144. END_NODE_DESC,
  3145. START_AREA_CODE,
  3146. START_AREA_DESC,
  3147. END_AREA_DESC,
  3148. END_AREA_CODE,
  3149. PLINE_CODE,
  3150. PLINE_NAME,
  3151. PROCESS_CDOE,
  3152. PROCESS_DESC,
  3153. PRODUCCODE,
  3154. PRODUCNAME,
  3155. PRODUCT_CODE,
  3156. PRODUCT_NAME,
  3157. QCM_STAUS,
  3158. DEMAND_ORG_CODE,
  3159. DEMAND_ORG_DESC)
  3160. SELECT '#CRANE_WAYBILL_NO#',
  3161. (SELECT NVL(MAX(TO_NUMBER(WAYBILL_SQE)), 0)
  3162. FROM TMS_WAYBILL_C
  3163. WHERE WAYBILL_NO = '#CRANE_WAYBILL_NO#' ) + ROWNUM,
  3164. (SELECT PLN_NO FROM TMS_WAYBILL_M WHERE WAYBILL_NO = '#CRANE_WAYBILL_NO#'),
  3165. '1',
  3166. HEAT_NO,
  3167. BATCH_NO,
  3168. LOGO_NO,
  3169. GROUP_NO,
  3170. MATERIALS_CODE,
  3171. MATERIALS_DESC,
  3172. MATERIALS_SPEC,
  3173. WAYBILL_QTY_VAL,
  3174. WAYBILL_WT_VAL,
  3175. UOM_CODE,
  3176. UOM_DESC,
  3177. PRO_ORDER_NO,
  3178. PRO_ORDER_SQE,
  3179. CURRENT_JOB_NO,
  3180. NEXT_JOB_NO,
  3181. MEMO,
  3182. PLN_NO,
  3183. PLN_SQE,
  3184. '#WAYBILL_NO#',
  3185. (SELECT CAR_LICENSE FROM TMS_WAYBILL_M WHERE WAYBILL_NO = '#WAYBILL_NO#'),
  3186. SYSDATE,
  3187. MATERIALS_DIMATER,
  3188. MATERIALS_HEIGHT,
  3189. IS_SORT,
  3190. SUPERVISOR_NAME,
  3191. SUPERVISOR_CALL,
  3192. PRODUCT_FLAG,
  3193. MAT_STATUS,
  3194. MAT_TYPE,
  3195. START_NODE_CODE,
  3196. START_NODE_DESC,
  3197. START_NODE_CODE,
  3198. START_NODE_DESC,
  3199. START_AREA_CODE,
  3200. START_AREA_DESC,
  3201. START_AREA_DESC,
  3202. START_AREA_CODE,
  3203. PLINE_CODE,
  3204. PLINE_NAME,
  3205. PROCESS_CDOE,
  3206. PROCESS_DESC,
  3207. PRODUCCODE,
  3208. PRODUCNAME,
  3209. PRODUCT_CODE,
  3210. PRODUCT_NAME,
  3211. QCM_STAUS,
  3212. DEMAND_ORG_CODE,
  3213. DEMAND_ORG_DESC
  3214. FROM TMS_WAYBILL_C T
  3215. WHERE T.WAYBILL_NO = '#WAYBILL_NO#'
  3216. AND T. START_NODE_CODE= '#NODE_CODE#'
  3217. </query>
  3218. <query id = "FrmFilpOutStorage.insertTraceM" desc = "写跟踪记录">
  3219. INSERT INTO TMS_TRACE_M
  3220. (WAYBILL_NO,
  3221. TRACE_NO,
  3222. NODE_CODE,
  3223. NODE_DESC,
  3224. NODE_TYPE_CODE,
  3225. NODE_TYPE_DESC,
  3226. REFE_NO,
  3227. EVENT_CODE,
  3228. EVENT_DESC,
  3229. EVENT_TIME
  3230. )
  3231. VALUES
  3232. ('#WAYBILL_NO#',
  3233. (SELECT TO_NUMBER(MAX(T.TRACE_NO), 0) + 1
  3234. FROM TMS_TRACE_M T
  3235. WHERE T.WAYBILL_NO = '#WAYBILL_NO#'),
  3236. '#NODE_CODE#',
  3237. '#NODE_DESC#',
  3238. '#NODE_TYPE_CODE#',
  3239. '#NODE_TYPE_DESC#',
  3240. '#REFE_NO#',
  3241. '#EVENT_CODE#',
  3242. '#EVENT_DESC#',
  3243. SYSDATE
  3244. )
  3245. </query>
  3246. <query id = "FrmFilpOutStorage.selectWayBillStaus" desc = "查询运单状态">
  3247. SELECT T.VALIDFLAG,T.WAYBILL_NO,T.PLN_NO
  3248. FROM TMS_WAYBILL_M T, TMS_WAYBILL_C S
  3249. WHERE T.WAYBILL_NO = S.WAYBILL_NO
  3250. AND S.REF_PLN_NO = ?
  3251. AND ROWNUM = 1
  3252. </query>
  3253. <query id = "FrmFilpOutStorage.cancelLoadFrim" desc = "撤销装车确认">
  3254. DECLARE
  3255. V_FLAG TMS_TRACE_M.EVENT_CODE%TYPE := NULL;
  3256. BEGIN
  3257. DELETE FROM TMS_WAYBILL_C T
  3258. WHERE (T.WAYBILL_NO = '#WAYBILL_NO#' AND T.LOGO_NO = '#LOGO_NO#' AND
  3259. T.REF_PLN_NO = '#REFE_NO#')
  3260. OR (T.REFE_NO = '#WAYBILL_NO#' AND T.START_NODE_CODE = '#NODE_CODE#');
  3261. DELETE FROM TMS_EXECUTE_B T
  3262. WHERE T.WAYBILL_NO = '#WAYBILL_NO#'
  3263. AND T.REFE_NO = '#REFE_NO#'
  3264. AND T.REFE_NO = '#REFE_NO#';
  3265. DELETE FROM TMS_TRACE_M T
  3266. WHERE T.WAYBILL_NO = '#WAYBILL_NO#'
  3267. AND T.REFE_NO = '#REFE_NO#'
  3268. AND T.EVENT_CODE IN ('RC04', 'RC14');
  3269. SELECT T.EVENT_CODE INTO V_FLAG
  3270. FROM TMS_TRACE_M T
  3271. WHERE T.WAYBILL_NO = '#WAYBILL_NO#'
  3272. AND T.TRACE_NO = (SELECT MAX(T1.TRACE_NO)
  3273. FROM TMS_TRACE_M T1
  3274. WHERE T1.WAYBILL_NO = '#WAYBILL_NO#');
  3275. IF(V_FLAG = 'RC18')THEN
  3276. UPDATE
  3277. TMS_WAYBILL_M T SET T.VALIDFLAG = '35'
  3278. WHERE T.WAYBILL_NO = '#WAYBILL_NO#';
  3279. ELSE
  3280. UPDATE
  3281. TMS_WAYBILL_M T SET T.VALIDFLAG = '20'
  3282. WHERE T.WAYBILL_NO = '#WAYBILL_NO#';
  3283. END IF;
  3284. END;
  3285. </query>
  3286. <query id = "FrmFilpOutStorage.SelectStorageIsCarUser" desc = "查询是否限制了一车一卡">
  3287. SELECT T.IS_CAR_TAKING,T.IS_CAR_TAKING_BILL FROM YDM_BS_STORAGE T WHERE T.STORAGE_NO = ?
  3288. </query>
  3289. <query id = "FrmFilpOutStorage.selectStartArea" desc = "查询起点、区域">
  3290. SELECT T.START_NODE_CODE,
  3291. T.START_NODE_DESC,
  3292. T.START_AREA_CODE,
  3293. T.START_AREA_DESC,
  3294. T.END_NODE_CODE,
  3295. T.END_NODE_DESC,
  3296. T.END_AREA_CODE,
  3297. T.END_AREA_DESC,
  3298. S.DEMAND_ORG_CODE,
  3299. S.DEMAND_ORG_DESC
  3300. FROM TMS_PLN_C T,TMS_DEMAND_M S
  3301. WHERE T.DEMAND_NO = S.DEMAND_NO
  3302. AND T.PLN_NO = ?
  3303. AND T.HEAT_NO = ?
  3304. AND T.START_AREA_CODE = ?
  3305. </query>
  3306. <query id = "FrmFilpOutStorage.selectLineCount" desc = "查询计划线路条数">
  3307. SELECT COUNT(1) ACOUNT
  3308. FROM (SELECT T.START_NODE_CODE,
  3309. T.START_NODE_DESC,
  3310. T.START_AREA_CODE,
  3311. T.START_AREA_DESC,
  3312. T.END_NODE_CODE,
  3313. T.END_NODE_DESC,
  3314. T.END_AREA_CODE,
  3315. T.END_NODE_DESC
  3316. FROM TMS_PLN_C T
  3317. WHERE T.PLN_NO = ?
  3318. AND T.START_AREA_CODE = ?
  3319. GROUP BY T.START_NODE_CODE,
  3320. T.START_NODE_DESC,
  3321. T.START_AREA_CODE,
  3322. T.START_AREA_DESC,
  3323. T.END_NODE_CODE,
  3324. T.END_NODE_DESC,
  3325. T.END_AREA_CODE,
  3326. T.END_NODE_DESC)
  3327. </query>
  3328. <query id = "FrmFilpOutStorage.selectTmsWCount" desc = "查询实际打卡出库线路条数">
  3329. SELECT COUNT(1) ACOUNT
  3330. FROM (SELECT T.START_NODE_CODE,
  3331. T.START_NODE_DESC,
  3332. T.START_AREA_CODE,
  3333. T.START_AREA_DESC,
  3334. T.END_NODE_CODE,
  3335. T.END_NODE_DESC,
  3336. T.END_AREA_CODE,
  3337. T.END_AREA_DESC
  3338. FROM TMS_WAYBILL_C T
  3339. WHERE T.WAYBILL_NO = ?
  3340. AND T.START_AREA_CODE = ?
  3341. GROUP BY T.START_NODE_CODE,
  3342. T.START_NODE_DESC,
  3343. T.START_AREA_CODE,
  3344. T.START_AREA_DESC,
  3345. T.END_NODE_CODE,
  3346. T.END_NODE_DESC,
  3347. T.END_AREA_CODE,
  3348. T.END_AREA_DESC)
  3349. </query>
  3350. <query id = "FrmFilpOutStorage.selectTmsWayRealation" desc = "查询拖车、吊车关系表">
  3351. SELECT T.* FROM TMS_WAYBILL_RELATION T WHERE T.WAYBILL_NO = '#WAYBILL_NO#' AND T.NODE_CODE = '#NODE_CODE#'
  3352. </query>
  3353. <query id = "FrmFilpOutStorage.doQueryDataCarMat" desc = "根据车号查询库存">
  3354. SELECT (SELECT T2.BASENAME
  3355. FROM COM_BASE_INFO T2
  3356. WHERE T2.BASECODE = T.PRODUCT_FLAG) PRODUCT_FLAG,
  3357. (SELECT T1.BASENAME
  3358. FROM COM_BASE_INFO T1
  3359. WHERE T1.BASECODE = T.MAT_STATUS) MAT_STATUS,
  3360. T.MAT_STATUS AS MAT_STATUS_CODE,
  3361. T.LOT_NO,
  3362. T.STOVE_NO,
  3363. T.JUDGE_STOVE_NO,
  3364. T.BATCH_NO,
  3365. T.BATCH_GROUD_NO,
  3366. T.MATERIAL_NO,
  3367. T.MATERIAL_NAME,
  3368. MAX(T.PRODUCCODE) PRODUCCODE,
  3369. MAX(T.PRODUCNAME) PRODUCNAME,
  3370. MAX(T.STEELCODE) STEELCODE,
  3371. MAX(T.STEELNAME) STEELNAME,
  3372. MAX(T.GRADECODE) GRADECODE,
  3373. MAX(T.GRADENAME) GRADENAME,
  3374. MAX(T.SPEC_CODE) SPEC_CODE,
  3375. MAX(T.SPEC_NAME) SPEC_NAME,
  3376. MAX(T.MODEL_CODE) MODEL_CODE,
  3377. MAX(T.MODEL_DESC) MODEL_DESC,
  3378. MAX(T.STD_STYLE) STD_STYLE,
  3379. MAX(T.STD_STYLE_DESC) STD_STYLE_DESC,
  3380. MAX(T.PRO_ORDER_NO) PRO_ORDER_NO,
  3381. MAX(T.PROCESS_CDOE) PROCESS_CDOE,
  3382. MAX(T.PROCESS_DESC) PROCESS_DESC,
  3383. T.NEXT_PROCESS_CDOE,
  3384. T.NEXT_PROCESS_DESC,
  3385. T.PLINE_CODE,
  3386. T.PLINE_NAME,
  3387. MAX(T.ACT_DIMATER) ACT_DIMATER,
  3388. MAX(T.ACT_HEIGHT) ACT_HEIGHT,
  3389. SUM(T.ACT_LEN) ACT_LEN,
  3390. MAX(T.ACT_LEN_MIN) ACT_LEN_MIN,
  3391. MAX(T.ACT_LEN_MAX) ACT_LEN_MAX,
  3392. SUM(T.ACT_COUNT) ACT_COUNT,
  3393. SUM(T.ACT_WEIGHT) ACT_WEIGHT,
  3394. T.BELONG_CODE,
  3395. T.BELONG_NAME,
  3396. T.JUDGE_RESULT,
  3397. T.PIPMEMO,
  3398. T.MEMO1,
  3399. MAX(TO_CHAR(T.JUDGE_RESULT_TIME, 'YYYY-MM-DD HH24:MI:SS')) JUDGE_RESULT_TIME,
  3400. MAX(T.JUDGE_MAKER) JUDGE_MAKER,
  3401. MAX(T.JUDGE_STD_NAME) JUDGE_STD_NAME,
  3402. DECODE(T.QCM_STAUS, '00', '合格', '11', '待处理', '22', '废品') QCM_STAUS,
  3403. MAX(T.TARGET) TARGET,
  3404. T.FLAG_STOVE_NO_ZG,
  3405. T.FLAG_STOVE_NO_ZG AS UPDATE_FLAG_STOVE,
  3406. (CASE
  3407. WHEN T.NEXT_PROCESS_CDOE = 'E' THEN
  3408. (SELECT T1.ORDER_NO || '/' || T1.ORDER_SEQ
  3409. FROM PLN_ORDER_DBK_S T1
  3410. WHERE T1.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  3411. AND T1.GX_PLAN_NO = T.GX_PLAN_NO_NEXT)
  3412. WHEN T.NEXT_PROCESS_CDOE = 'F' THEN
  3413. (SELECT T2.ORDER_NO || '/' || T2.ORDER_SEQ
  3414. FROM PLN_ORDER_RCL_S T2
  3415. WHERE T2.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  3416. AND T2.GX_PLAN_NO = T.GX_PLAN_NO_NEXT)
  3417. WHEN T.NEXT_PROCESS_CDOE = 'G' THEN
  3418. (SELECT T3.ORDER_NO || '/' || T3.ORDER_SEQ
  3419. FROM PLN_ORDER_JGX_S T3
  3420. WHERE T3.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  3421. AND T3.GX_PLAN_NO = T.GX_PLAN_NO_NEXT)
  3422. ELSE
  3423. NULL
  3424. END) ORDER_NO_NEXT,
  3425. T.PRO_PLAN_ID_NEXT,
  3426. T.GX_PLAN_NO_NEXT,
  3427. S.STORAGE_NO,
  3428. S.LOCATION_NO,
  3429. (SELECT S2.LOCATION_NAME
  3430. FROM YDM_BS_LOCATION S2
  3431. WHERE S2.LOCATION_NO = S.LOCATION_NO) LOCATION_NAME,
  3432. S.LARY_NO,
  3433. S.LOC_NO,
  3434. T.PRO_PLAN_ID_NEXT,
  3435. T.GX_PLAN_NO_NEXT,
  3436. (SELECT S1.STORAGE_NAME
  3437. FROM YDM_BS_STORAGE S1
  3438. WHERE S1.STORAGE_NO = S.STORAGE_NO) STORAGE_NAME,
  3439. (CASE
  3440. WHEN T.NEXT_PROCESS_CDOE = 'E' THEN
  3441. (SELECT (SELECT T5.STORAGE_NAME
  3442. FROM COM_BASE_PLINE T4, YDM_BS_STORAGE T5
  3443. WHERE T4.IN_REPOSITORY = T5.STORAGE_NO
  3444. AND T4.PLINE_CODE = T1.PLINE_CODE)
  3445. FROM PLN_ZY_DBK_M T1
  3446. WHERE T1.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  3447. AND T1.GX_PLAN_NO = T.GX_PLAN_NO_NEXT
  3448. AND ROWNUM = 1)
  3449. WHEN T.NEXT_PROCESS_CDOE = 'F' THEN
  3450. (SELECT (SELECT T7.STORAGE_NAME
  3451. FROM COM_BASE_PLINE T6, YDM_BS_STORAGE T7
  3452. WHERE T6.IN_REPOSITORY = T7.STORAGE_NO
  3453. AND T6.PLINE_CODE = T2.PLINE_CODE)
  3454. FROM PLN_ZY_RCL_M T2
  3455. WHERE T2.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  3456. AND T2.GX_PLAN_NO = T.GX_PLAN_NO_NEXT
  3457. AND ROWNUM = 1)
  3458. WHEN T.NEXT_PROCESS_CDOE = 'G' THEN
  3459. (SELECT (SELECT T9.STORAGE_NAME
  3460. FROM COM_BASE_PLINE T8, YDM_BS_STORAGE T9
  3461. WHERE T8.IN_REPOSITORY = T9.STORAGE_NO
  3462. AND T8.PLINE_CODE = T3.PLINE_CODE)
  3463. FROM PLN_ZY_JGX_M T3
  3464. WHERE T3.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  3465. AND T3.GX_PLAN_NO = T.GX_PLAN_NO_NEXT
  3466. AND ROWNUM = 1)
  3467. ELSE
  3468. NULL
  3469. END) DIRECTION,
  3470. '0' BAR_CODE,
  3471. T.SUBCONTRACT_NO,
  3472. T.SUBCONTRACT_NO_SEQ,
  3473. '否' LOCK_BILL_FLAG,
  3474. T.OFFLINE_DOC,
  3475. T.MEMO
  3476. FROM MAT_BC_M T, YDM_BC_BUTTRESS S
  3477. WHERE T.MAT_NO = S.MAT_NO
  3478. AND T.PRODUCT_FLAG = '801401' #JUDGE_STOVE_NO# #STORAGE_NO#
  3479. #JUDGE_STOVE_NO1#
  3480. GROUP BY T.LOT_NO,
  3481. T.STOVE_NO,
  3482. T.JUDGE_STOVE_NO,
  3483. T.BATCH_NO,
  3484. T.BATCH_GROUD_NO,
  3485. T.PLINE_CODE,
  3486. T.PLINE_NAME,
  3487. T.MAT_STATUS,
  3488. T.QCM_STAUS,
  3489. T.BELONG_CODE,
  3490. T.BELONG_NAME,
  3491. T.MAT_GOWHERE_CODE,
  3492. T.MAT_GOWHERE_NAME,
  3493. T.FLAG_STOVE_NO_ZG,
  3494. S.STORAGE_NO,
  3495. S.LOCATION_NO,
  3496. S.LARY_NO,
  3497. S.LOC_NO,
  3498. T.PRO_PLAN_ID_NEXT,
  3499. T.GX_PLAN_NO_NEXT,
  3500. T.JUDGE_RESULT,
  3501. T.NEXT_PROCESS_CDOE,
  3502. T.NEXT_PROCESS_DESC,
  3503. T.PRODUCT_FLAG,
  3504. T.SUBCONTRACT_NO,
  3505. T.SUBCONTRACT_NO_SEQ,
  3506. T.OFFLINE_DOC,
  3507. T.MEMO,
  3508. T.PIPMEMO,
  3509. T.MEMO1,
  3510. T.MATERIAL_NO,
  3511. T.MATERIAL_NAME
  3512. UNION ALL
  3513. SELECT (SELECT T2.BASENAME
  3514. FROM COM_BASE_INFO T2
  3515. WHERE T2.BASECODE = T.PRODUCT_FLAG) PRODUCT_FLAG,
  3516. (SELECT T1.BASENAME
  3517. FROM COM_BASE_INFO T1
  3518. WHERE T1.BASECODE = T.MAT_STATUS) MAT_STATUS,
  3519. T.MAT_STATUS AS MAT_STATUS_CODE,
  3520. T.LOT_NO,
  3521. T.STOVE_NO,
  3522. T.JUDGE_STOVE_NO,
  3523. T.BATCH_NO,
  3524. T.BATCH_GROUD_NO,
  3525. T.MATERIAL_NO,
  3526. T.MATERIAL_NAME,
  3527. MAX(T.PRODUCCODE) PRODUCCODE,
  3528. MAX(T.PRODUCNAME) PRODUCNAME,
  3529. MAX(T.STEELCODE) STEELCODE,
  3530. MAX(T.STEELNAME) STEELNAME,
  3531. MAX(T.GRADECODE) GRADECODE,
  3532. MAX(T.GRADENAME) GRADENAME,
  3533. MAX(T.SPEC_CODE) SPEC_CODE,
  3534. MAX(T.SPEC_NAME) SPEC_NAME,
  3535. MAX(T.MODEL_CODE) MODEL_CODE,
  3536. MAX(T.MODEL_DESC) MODEL_DESC,
  3537. MAX(T.STD_STYLE) STD_STYLE,
  3538. MAX(T.STD_STYLE_DESC) STD_STYLE_DESC,
  3539. MAX(T.PRO_ORDER_NO) PRO_ORDER_NO,
  3540. MAX(T.PROCESS_CDOE) PROCESS_CDOE,
  3541. MAX(T.PROCESS_DESC) PROCESS_DESC,
  3542. T.NEXT_PROCESS_CDOE,
  3543. T.NEXT_PROCESS_DESC,
  3544. T.PLINE_CODE,
  3545. T.PLINE_NAME,
  3546. MAX(T.ACT_DIMATER) ACT_DIMATER,
  3547. MAX(T.ACT_HEIGHT) ACT_HEIGHT,
  3548. SUM(T.ACT_LEN) ACT_LEN,
  3549. MAX(T.ACT_LEN_MIN) ACT_LEN_MIN,
  3550. MAX(T.ACT_LEN_MAX) ACT_LEN_MAX,
  3551. SUM(T.ACT_COUNT) ACT_COUNT,
  3552. SUM(T.ACT_WEIGHT) ACT_WEIGHT,
  3553. T.BELONG_CODE,
  3554. T.BELONG_NAME,
  3555. T.JUDGE_RESULT,
  3556. T.PIPMEMO,
  3557. T.MEMO1,
  3558. MAX(TO_CHAR(T.JUDGE_RESULT_TIME, 'YYYY-MM-DD HH24:MI:SS')) JUDGE_RESULT_TIME,
  3559. MAX(T.JUDGE_MAKER) JUDGE_MAKER,
  3560. MAX(T.JUDGE_STD_NAME) JUDGE_STD_NAME,
  3561. DECODE(T.QCM_STAUS, '00', '合格', '11', '待处理', '22', '废品') QCM_STAUS,
  3562. MAX(T.TARGET) TARGET,
  3563. T.FLAG_STOVE_NO_ZG,
  3564. T.FLAG_STOVE_NO_ZG AS UPDATE_FLAG_STOVE,
  3565. (CASE
  3566. WHEN T.NEXT_PROCESS_CDOE = 'E' THEN
  3567. (SELECT T1.ORDER_NO || '/' || T1.ORDER_SEQ
  3568. FROM PLN_ORDER_DBK_S T1
  3569. WHERE T1.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  3570. AND T1.GX_PLAN_NO = T.GX_PLAN_NO_NEXT)
  3571. WHEN T.NEXT_PROCESS_CDOE = 'F' THEN
  3572. (SELECT T2.ORDER_NO || '/' || T2.ORDER_SEQ
  3573. FROM PLN_ORDER_RCL_S T2
  3574. WHERE T2.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  3575. AND T2.GX_PLAN_NO = T.GX_PLAN_NO_NEXT)
  3576. WHEN T.NEXT_PROCESS_CDOE = 'G' THEN
  3577. (SELECT T3.ORDER_NO || '/' || T3.ORDER_SEQ
  3578. FROM PLN_ORDER_JGX_S T3
  3579. WHERE T3.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  3580. AND T3.GX_PLAN_NO = T.GX_PLAN_NO_NEXT)
  3581. ELSE
  3582. NULL
  3583. END) ORDER_NO_NEXT,
  3584. T.PRO_PLAN_ID_NEXT,
  3585. T.GX_PLAN_NO_NEXT,
  3586. S.STORAGE_NO,
  3587. S.LOCATION_NO,
  3588. (SELECT S2.LOCATION_NAME
  3589. FROM YDM_BS_LOCATION S2
  3590. WHERE S2.LOCATION_NO = S.LOCATION_NO) LOCATION_NAME,
  3591. S.LARY_NO,
  3592. S.LOC_NO,
  3593. T.PRO_PLAN_ID_NEXT,
  3594. T.GX_PLAN_NO_NEXT,
  3595. (SELECT S1.STORAGE_NAME
  3596. FROM YDM_BS_STORAGE S1
  3597. WHERE S1.STORAGE_NO = S.STORAGE_NO) STORAGE_NAME,
  3598. (CASE
  3599. WHEN T.NEXT_PROCESS_CDOE = 'E' THEN
  3600. (SELECT (SELECT T5.STORAGE_NAME
  3601. FROM COM_BASE_PLINE T4, YDM_BS_STORAGE T5
  3602. WHERE T4.IN_REPOSITORY = T5.STORAGE_NO
  3603. AND T4.PLINE_CODE = T1.PLINE_CODE)
  3604. FROM PLN_ZY_DBK_M T1
  3605. WHERE T1.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  3606. AND T1.GX_PLAN_NO = T.GX_PLAN_NO_NEXT
  3607. AND ROWNUM = 1)
  3608. WHEN T.NEXT_PROCESS_CDOE = 'F' THEN
  3609. (SELECT (SELECT T7.STORAGE_NAME
  3610. FROM COM_BASE_PLINE T6, YDM_BS_STORAGE T7
  3611. WHERE T6.IN_REPOSITORY = T7.STORAGE_NO
  3612. AND T6.PLINE_CODE = T2.PLINE_CODE)
  3613. FROM PLN_ZY_RCL_M T2
  3614. WHERE T2.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  3615. AND T2.GX_PLAN_NO = T.GX_PLAN_NO_NEXT
  3616. AND ROWNUM = 1)
  3617. WHEN T.NEXT_PROCESS_CDOE = 'G' THEN
  3618. (SELECT (SELECT T9.STORAGE_NAME
  3619. FROM COM_BASE_PLINE T8, YDM_BS_STORAGE T9
  3620. WHERE T8.IN_REPOSITORY = T9.STORAGE_NO
  3621. AND T8.PLINE_CODE = T3.PLINE_CODE)
  3622. FROM PLN_ZY_JGX_M T3
  3623. WHERE T3.PRO_PLAN_ID = T.PRO_PLAN_ID_NEXT
  3624. AND T3.GX_PLAN_NO = T.GX_PLAN_NO_NEXT
  3625. AND ROWNUM = 1)
  3626. ELSE
  3627. NULL
  3628. END) DIRECTION,
  3629. '0' BAR_CODE,
  3630. T.SUBCONTRACT_NO,
  3631. T.SUBCONTRACT_NO_SEQ,
  3632. '否' LOCK_BILL_FLAG,
  3633. T.OFFLINE_DOC,
  3634. T.MEMO
  3635. FROM MAT_BC_M T, YDM_BC_BUTTRESS S
  3636. WHERE T.MAT_NO = S.MAT_NO
  3637. AND T.PRODUCT_FLAG = '801402' #JUDGE_STOVE_NO# #STORAGE_NO#
  3638. #JUDGE_STOVE_NO1#
  3639. GROUP BY T.LOT_NO,
  3640. T.STOVE_NO,
  3641. T.JUDGE_STOVE_NO,
  3642. T.BATCH_NO,
  3643. T.BATCH_GROUD_NO,
  3644. T.PLINE_CODE,
  3645. T.PLINE_NAME,
  3646. T.MAT_STATUS,
  3647. T.QCM_STAUS,
  3648. T.BELONG_CODE,
  3649. T.BELONG_NAME,
  3650. T.MAT_GOWHERE_CODE,
  3651. T.MAT_GOWHERE_NAME,
  3652. T.FLAG_STOVE_NO_ZG,
  3653. S.STORAGE_NO,
  3654. S.LOCATION_NO,
  3655. S.LARY_NO,
  3656. S.LOC_NO,
  3657. T.PRO_PLAN_ID_NEXT,
  3658. T.GX_PLAN_NO_NEXT,
  3659. T.JUDGE_RESULT,
  3660. T.NEXT_PROCESS_CDOE,
  3661. T.NEXT_PROCESS_DESC,
  3662. T.PRODUCT_FLAG,
  3663. T.SUBCONTRACT_NO,
  3664. T.SUBCONTRACT_NO_SEQ,
  3665. T.OFFLINE_DOC,
  3666. T.MEMO,
  3667. T.PIPMEMO,
  3668. T.MEMO1,
  3669. T.MATERIAL_NO,
  3670. T.MATERIAL_NAME
  3671. UNION ALL
  3672. SELECT (SELECT T2.BASENAME
  3673. FROM COM_BASE_INFO T2
  3674. WHERE T2.BASECODE = T.PRODUCT_FLAG) PRODUCT_FLAG,
  3675. (SELECT T1.BASENAME
  3676. FROM COM_BASE_INFO T1
  3677. WHERE T1.BASECODE = T.MAT_STATUS) MAT_STATUS,
  3678. T.MAT_STATUS AS MAT_STATUS_CODE,
  3679. T.LOT_NO,
  3680. T.STOVE_NO,
  3681. T.JUDGE_STOVE_NO,
  3682. T.BATCH_NO,
  3683. T.BATCH_GROUD_NO,
  3684. T.MATERIAL_NO,
  3685. T.MATERIAL_NAME,
  3686. MAX(T.PRODUCCODE) PRODUCCODE,
  3687. MAX(T.PRODUCNAME) PRODUCNAME,
  3688. MAX(T.STEELCODE) STEELCODE,
  3689. MAX(T.STEELNAME) STEELNAME,
  3690. MAX(T.GRADECODE) GRADECODE,
  3691. MAX(T.GRADENAME) GRADENAME,
  3692. MAX(T.SPEC_CODE) SPEC_CODE,
  3693. MAX(T.SPEC_NAME) SPEC_NAME,
  3694. MAX(T.MODEL_CODE) MODEL_CODE,
  3695. MAX(T.MODEL_DESC) MODEL_DESC,
  3696. MAX(T.STD_STYLE) STD_STYLE,
  3697. MAX(T.STD_STYLE_DESC) STD_STYLE_DESC,
  3698. MAX(T.ORDER_NO || '/' || T.ORDER_SEQ) PRO_ORDER_NO,
  3699. '' PROCESS_CDOE,
  3700. '' PROCESS_DESC,
  3701. '' NEXT_PROCESS_CDOE,
  3702. '' NEXT_PROCESS_DESC,
  3703. T.PLINE_CODE,
  3704. T.PLINE_NAME,
  3705. MAX(T.ACT_DIMATER) ACT_DIMATER,
  3706. MAX(T.ACT_HEIGHT) ACT_HEIGHT,
  3707. SUM(T.ACT_LEN) ACT_LEN,
  3708. MAX(T.ACT_LEN_MIN) ACT_LEN_MIN,
  3709. MAX(T.ACT_LEN_MAX) ACT_LEN_MAX,
  3710. SUM(T.ACT_COUNT) ACT_COUNT,
  3711. SUM(T.ACT_WEIGHT) ACT_WEIGHT,
  3712. T.BELONG_CODE,
  3713. T.BELONG_NAME,
  3714. T.JUDGE_RESULT,
  3715. T.PIPMEMO,
  3716. T.MEMO1,
  3717. MAX(TO_CHAR(T.JUDGE_RESULT_TIME, 'YYYY-MM-DD HH24:MI:SS')) JUDGE_RESULT_TIME,
  3718. MAX(T.JUDGE_MAKER) JUDGE_MAKER,
  3719. MAX(T.JUDGE_STD_NAME) JUDGE_STD_NAME,
  3720. '合格' QCM_STAUS,
  3721. '' TARGET,
  3722. T.FLAG_STOVE_NO_ZG,
  3723. T.FLAG_STOVE_NO_ZG AS UPDATE_FLAG_STOVE,
  3724. '' ORDER_NO_NEXT,
  3725. '' PRO_PLAN_ID_NEXT,
  3726. '' GX_PLAN_NO_NEXT,
  3727. S.STORAGE_NO,
  3728. S.LOCATION_NO,
  3729. (SELECT S2.LOCATION_NAME
  3730. FROM YDM_BS_LOCATION S2
  3731. WHERE S2.LOCATION_NO = S.LOCATION_NO) LOCATION_NAME,
  3732. S.LARY_NO,
  3733. S.LOC_NO,
  3734. '' PRO_PLAN_ID_NEXT,
  3735. '' GX_PLAN_NO_NEXT,
  3736. (SELECT S1.STORAGE_NAME
  3737. FROM YDM_BS_STORAGE S1
  3738. WHERE S1.STORAGE_NO = S.STORAGE_NO) STORAGE_NAME,
  3739. '' DIRECTION,
  3740. '1' BAR_CODE,
  3741. T.SUBCONTRACT_NO,
  3742. T.SUBCONTRACT_NO_SEQ,
  3743. DECODE(T.LOCK_BILL_FLAG, '0', '否', '1', '是') LOCK_BILL_FLAG,
  3744. '' OFFLINE_DOC,
  3745. T.MEMO
  3746. FROM MAT_ZC_M T, YDM_ZC_BUTTRESS S
  3747. WHERE T.MAT_NO = S.MAT_NO
  3748. AND T.BELONG_CODE IN ('100101', '100102', '100103')
  3749. AND T.PRODUCT_FLAG = '801402' #JUDGE_STOVE_NO# #STORAGE_NO#
  3750. #JUDGE_STOVE_NO1#
  3751. GROUP BY T.LOT_NO,
  3752. T.STOVE_NO,
  3753. T.JUDGE_STOVE_NO,
  3754. T.BATCH_NO,
  3755. T.BATCH_GROUD_NO,
  3756. T.PLINE_CODE,
  3757. T.PLINE_NAME,
  3758. T.MAT_STATUS,
  3759. T.QCM_STAUS,
  3760. T.BELONG_CODE,
  3761. T.BELONG_NAME,
  3762. T.FLAG_STOVE_NO_ZG,
  3763. S.STORAGE_NO,
  3764. S.LOCATION_NO,
  3765. S.LARY_NO,
  3766. S.LOC_NO,
  3767. T.JUDGE_RESULT,
  3768. T.PRODUCT_FLAG,
  3769. T.SUBCONTRACT_NO,
  3770. T.SUBCONTRACT_NO_SEQ,
  3771. T.LOCK_BILL_FLAG,
  3772. T.MEMO,
  3773. T.PIPMEMO,
  3774. T.MEMO1,
  3775. T.MATERIAL_NO,
  3776. T.MATERIAL_NAME
  3777. UNION ALL
  3778. SELECT (SELECT T2.BASENAME
  3779. FROM COM_BASE_INFO T2
  3780. WHERE T2.BASECODE = T.PRODUCT_FLAG) PRODUCT_FLAG,
  3781. (SELECT T1.BASENAME
  3782. FROM COM_BASE_INFO T1
  3783. WHERE T1.BASECODE = T.MAT_STATUS) MAT_STATUS,
  3784. T.MAT_STATUS AS MAT_STATUS_CODE,
  3785. T.LOT_NO,
  3786. T.STOVE_NO,
  3787. T.JUDGE_STOVE_NO,
  3788. T.BATCH_NO,
  3789. T.BATCH_GROUD_NO,
  3790. T.MATERIAL_NO,
  3791. T.MATERIAL_NAME,
  3792. MAX(T.PRODUCCODE) PRODUCCODE,
  3793. MAX(T.PRODUCNAME) PRODUCNAME,
  3794. MAX(T.STEELCODE) STEELCODE,
  3795. MAX(T.STEELNAME) STEELNAME,
  3796. MAX(T.GRADECODE) GRADECODE,
  3797. MAX(T.GRADENAME) GRADENAME,
  3798. MAX(T.SPEC_CODE) SPEC_CODE,
  3799. MAX(T.SPEC_NAME) SPEC_NAME,
  3800. MAX(T.MODEL_CODE) MODEL_CODE,
  3801. MAX(T.MODEL_DESC) MODEL_DESC,
  3802. MAX(T.STD_STYLE) STD_STYLE,
  3803. MAX(T.STD_STYLE_DESC) STD_STYLE_DESC,
  3804. MAX(T.ORDER_NO || '/' || T.ORDER_SEQ) PRO_ORDER_NO,
  3805. '' PROCESS_CDOE,
  3806. '' PROCESS_DESC,
  3807. '' NEXT_PROCESS_CDOE,
  3808. '' NEXT_PROCESS_DESC,
  3809. T.PLINE_CODE,
  3810. T.PLINE_NAME,
  3811. MAX(T.ACT_DIMATER) ACT_DIMATER,
  3812. MAX(T.ACT_HEIGHT) ACT_HEIGHT,
  3813. SUM(T.ACT_LEN) ACT_LEN,
  3814. MAX(T.ACT_LEN_MIN) ACT_LEN_MIN,
  3815. MAX(T.ACT_LEN_MAX) ACT_LEN_MAX,
  3816. SUM(T.ACT_COUNT) ACT_COUNT,
  3817. SUM(T.ACT_WEIGHT) ACT_WEIGHT,
  3818. T.BELONG_CODE,
  3819. T.BELONG_NAME,
  3820. T.JUDGE_RESULT,
  3821. T.PIPMEMO,
  3822. T.MEMO1,
  3823. MAX(TO_CHAR(T.JUDGE_RESULT_TIME, 'YYYY-MM-DD HH24:MI:SS')) JUDGE_RESULT_TIME,
  3824. MAX(T.JUDGE_MAKER) JUDGE_MAKER,
  3825. MAX(T.JUDGE_STD_NAME) JUDGE_STD_NAME,
  3826. '合格' QCM_STAUS,
  3827. '' TARGET,
  3828. T.FLAG_STOVE_NO_ZG,
  3829. T.FLAG_STOVE_NO_ZG AS UPDATE_FLAG_STOVE,
  3830. '' ORDER_NO_NEXT,
  3831. '' PRO_PLAN_ID_NEXT,
  3832. '' GX_PLAN_NO_NEXT,
  3833. S.STORAGE_NO,
  3834. S.LOCATION_NO,
  3835. (SELECT S2.LOCATION_NAME
  3836. FROM YDM_BS_LOCATION S2
  3837. WHERE S2.LOCATION_NO = S.LOCATION_NO) LOCATION_NAME,
  3838. S.LARY_NO,
  3839. S.LOC_NO,
  3840. '' PRO_PLAN_ID_NEXT,
  3841. '' GX_PLAN_NO_NEXT,
  3842. (SELECT S1.STORAGE_NAME
  3843. FROM YDM_BS_STORAGE S1
  3844. WHERE S1.STORAGE_NO = S.STORAGE_NO) STORAGE_NAME,
  3845. '' DIRECTION,
  3846. '1' BAR_CODE,
  3847. T.SUBCONTRACT_NO,
  3848. T.SUBCONTRACT_NO_SEQ,
  3849. DECODE(T.LOCK_BILL_FLAG, '0', '否', '1', '是') LOCK_BILL_FLAG,
  3850. '' OFFLINE_DOC,
  3851. T.MEMO
  3852. FROM MAT_ZC_M T, YDM_ZC_BUTTRESS S
  3853. WHERE T.MAT_NO = S.MAT_NO
  3854. AND T.BELONG_CODE IN ('100101', '100102', '100103')
  3855. AND T.PRODUCT_FLAG = '801403' #JUDGE_STOVE_NO# #STORAGE_NO#
  3856. #JUDGE_STOVE_NO1#
  3857. GROUP BY T.LOT_NO,
  3858. T.STOVE_NO,
  3859. T.JUDGE_STOVE_NO,
  3860. T.BATCH_NO,
  3861. T.BATCH_GROUD_NO,
  3862. T.PLINE_CODE,
  3863. T.PLINE_NAME,
  3864. T.MAT_STATUS,
  3865. T.QCM_STAUS,
  3866. T.BELONG_CODE,
  3867. T.BELONG_NAME,
  3868. T.FLAG_STOVE_NO_ZG,
  3869. S.STORAGE_NO,
  3870. S.LOCATION_NO,
  3871. S.LARY_NO,
  3872. S.LOC_NO,
  3873. T.JUDGE_RESULT,
  3874. T.PRODUCT_FLAG,
  3875. T.SUBCONTRACT_NO,
  3876. T.SUBCONTRACT_NO_SEQ,
  3877. T.LOCK_BILL_FLAG,
  3878. T.MEMO,
  3879. T.PIPMEMO,
  3880. T.MEMO1,
  3881. T.MATERIAL_NO,
  3882. T.MATERIAL_NAME
  3883. </query>
  3884. <query id = "FrmFilpOutStorage.doQueryJudgeNo" desc = "根据车号查询炉号">
  3885. SELECT S.*
  3886. FROM TMS_PLN_M T, TMS_PLN_C S
  3887. WHERE T.PLN_NO = S.PLN_NO
  3888. AND T.CAR_LICENSE LIKE '%'||?||'%'
  3889. AND T.VALIDFLAG = '30'
  3890. </query>
  3891. <query id = "FrmFilpOutStorage.selectTmsPlanCount" desc = "查询装车点是否都已装车完毕">
  3892. SELECT COUNT(1)ACOUNT
  3893. FROM TMS_WAYBILL_C S
  3894. WHERE S.START_AREA_CODE = '#START_AREA_CODE#'
  3895. AND S.WAYBILL_NO = '#WAYBILL_NO#'
  3896. </query>
  3897. <query id = "FrmFilpOutStorage.selectTmsPlnC" desc = "查询运单计划表信息">
  3898. SELECT T.*,S. WAYBILL_NO FROM TMS_PLN_C T,TMS_WAYBILL_M S WHERE T.PLN_NO = S.PLN_NO
  3899. AND S.WAYBILL_NO = '#WAYBILL_NO#'
  3900. </query>
  3901. <query id = "FrmFilpOutStorage.selectTraceM" desc = "查询最大事件代码">
  3902. SELECT T.EVENT_CODE FROM TMS_TRACE_M T WHERE T.WAYBILL_NO = '#WAYBILL_NO#' ORDER BY T.TRACE_NO DESC
  3903. </query>
  3904. <query id = "FrmFilpOutStorage.selectTraceMNode" desc = "查询跟踪表最大的点">
  3905. SELECT T.NODE_CODE FROM TMS_TRACE_M T WHERE T.WAYBILL_NO = '#WAYBILL_NO#' ORDER BY T.TRACE_NO DESC
  3906. </query>
  3907. <query id = "FrmFilpOutStorage.selectTraceMUnload" desc = "查询到达点">
  3908. SELECT S.UNLOADING_AREA_CODE
  3909. FROM TMS_TRACE_M T, TMS_COM_UNLOADING S
  3910. WHERE T.NODE_CODE = S.UNLOADING_CODE
  3911. AND T.WAYBILL_NO = ?
  3912. ORDER BY T.TRACE_NO DESC
  3913. </query>
  3914. <query id = "FrmFilpOutStorage.selectProcess" desc = "查询工序代码">
  3915. SELECT T.PROCESS_CODE,T.PROCESS_DESC FROM COM_BASE_PLINE T WHERE T.PLINE_CODE = ?
  3916. </query>
  3917. <query id = "FrmFilpOutStorage.selectLoadingFlag" desc = "查询装点是否需要吊车">
  3918. SELECT T.IS_CRANE_LOADING,T.IS_CRANE_UNLOADING FROM YDM_BS_STORAGE T WHERE T.STORAGE_NO = '#STORAGE_NO#'
  3919. </query>
  3920. <query id = "FrmFilpOutStorage.selectTmsRelation" desc = "查询装点是否吊车已扫码">
  3921. SELECT COUNT(1)ACOUNT FROM TMS_WAYBILL_RELATION T WHERE T.WAYBILL_NO = ? AND T.AREA_CODE = ?
  3922. </query>
  3923. <query id = "FrmFilpOutStorage.queryStoreArea" desc = "查询仓库所属区域">
  3924. SELECT T.SEAM_AREA FROM YDM_BS_STORAGE T WHERE T.STORAGE_NO = ?
  3925. </query>
  3926. <query id = "FrmFilpOutStorage.doQueryCarNo" desc = "查询已过皮重车辆">
  3927. SELECT DISTINCT T.CAR_NO,T.CAR_NO AS CAR_NO1
  3928. FROM CMM_WEIGHT_RECORD T
  3929. WHERE T.VALIDFLAG = '1'
  3930. AND T.WT_TYPE = '0'
  3931. ORDER BY T.CAR_NO ASC
  3932. </query>
  3933. </queryMap>