<!-- #include file="../../../include.asp" --> <% '<!-- '################################################ ' 名称 :仕入売上書類表示 ' 作成日:2002/9/10 ' 作成者:山崎 貴史 ' 目的 :仕入売上書類画面を表示する。 ' 概要 : ' <<表示>> ' 修正変更:(080327)材料入庫モードを追加 '################################################ '--> ' %> <% main() Sub main() Dim BunsyoNaiyoCD, Syoribi, TorihikisakiCD, NonyuKijitsu Dim UnsoGaisyaCD, UntinSyogakariKubun, Unsohi, UnsohiSeikyuFlg, Tekiyo, ShiharaiHoho, HasshinFlg Dim SenpoBunsyoNaiyoCD, SenpoBunsyoSyuruiCD, SenpoSyoribi Dim BunsyoSyuruiCD Dim Kakaku(5) '標準単価 Dim SyohinCD(5) '商品コード Dim SyohinName(5) '商品名称 Dim Suryo(5) '数量 Dim Tanka(5) '単価 Dim UnsoTanka(5) '運送単価 Dim GakuseiShimei '学生氏名(係印) Dim SyoruiMei Dim Query Dim Content Dim Shimei Dim PageType Dim RouteType RouteType = Request("RouteType") PageType = Request("PageType") BunsyoNaiyoCD = Request("BunsyoNaiyoCD") BunsyoSyuruiCD = Request("BunsyoSyuruiCD") SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD") SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD") TorihikisakiCD = Request("TorihikisakiCD") Dim SakuseiKaisyaCD SakuseiKaisyaCD = Request("SakuseiKaisyaCD") Dim SenpoFlg SenpoFlg = 0 If SenpoBunsyoNaiyoCD <> "" Then SenpoFlg = 1 End If If SenpoFlg = 0 Then SakuseiKaisyaCD = KaisyaCD End If Dim SenpoTmpBunsyoSyuruiCD Dim SyoruiKubun Select Case BunsyoSyuruiCD Case "SC" SyoruiMei = "オリジナル商品入庫" SyoruiKubun = "S" SenpoTmpBunsyoSyuruiCD = "U" Case "SS" SyoruiMei = "仕入入庫" SyoruiKubun = "S" SenpoTmpBunsyoSyuruiCD = "U" Case "SX" SyoruiMei = "仕入返品" SyoruiKubun = "X" Case "SU" SyoruiMei = "売上出庫" SyoruiKubun = "U" Case "SY" SyoruiMei = "売上返品" SyoruiKubun = "1" Case "ZS" SyoruiMei = "材料入庫" SyoruiKubun = "S" Case "ZU" SyoruiMei = "材料出庫" SyoruiKubun = "S" Case "MU" SyoruiMei = "製品出庫" SyoruiKubun = "U" Case Else End Select Dim Label If BunsyoSyuruiCD = "ZS" Then Label = "材料" Else Label = "商品" End If Dim ButtonLabel If BunsyoSyuruiCD = "SU" Or BunsyoSyuruiCD = "SX" Or BunsyoSyuruiCD = "MU" Then ButtonLabel = "出庫" Else ButtonLabel = "入庫" End If If BunsyoNaiyoCD <> "" Or SenpoBunsyoNaiyoCD <> "" Then If SenpoFlg = 1 Then If GB_JisyaFlag <> "" Then '運用管理・演習管理(自社フラグ無し)では開封フラグを立てない(061213小野) Query = "exec SPD仕入売上書類開封 '" & GB_SystemCD & "','" & EnshuCD & "','" & TorihikisakiCD &"', '" & SenpoBunsyoSyuruiCD & "', '" & SenpoBunsyoNaiyoCD & "'" Set Content = OpenQuery(Query) End If Query = "exec SPD仕入売上書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & TorihikisakiCD &"', '" & KaisyaCD & "', '" & SenpoBunsyoSyuruiCD & "', '" & SenpoBunsyoNaiyoCD & "'" Else Query = "exec SPD入出庫取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'" End If 'Response.Write(Query) 'Exit Sub Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then If SenpoFlg = 1 Then TorihikisakiCD = Content.Fields("会社CD") SenpoSyoribi = Content.Fields("処理日") Else TorihikisakiCD = Content.Fields("取引先CD") SenpoSyoribi = Content.Fields("先方処理日") Syoribi = Content.Fields("処理日") End If If 1 = 0 Then UntinSyogakariKubun = Content.Fields("運賃諸掛区分") Unsohi = Content.Fields("運送費") End If ' GakuseiShimei = Content.Fields("氏名") ' SenpoBunsyoNaiyoCD = Content.Fields("先方文書内容CD") ' SenpoBunsyoSyuruiCD = Content.Fields("先方文書種類CD") Do While Not(Content.BOF Or Content.EOF) Dim NyusyukoSEQ If SenpoFlg = 1 Then NyusyukoSEQ = Content.Fields("文書内容SEQ") Else NyusyukoSEQ = Content.Fields("入出庫SEQ") End If If BunsyoSyuruiCD = "ZS" Then ' SyohinGazo(NyusyukoSEQ) = ConvZairyoGazo(EnshuCD, Content.Fields("商品CD")) Kakaku(NyusyukoSEQ) = ConvZairyoHanbaiTanka(Content.Fields("商品CD")) Else ' SyohinGazo(NyusyukoSEQ) = ConvSyohinGazo(EnshuCD, Content.Fields("商品CD")) Kakaku(NyusyukoSEQ) = ConvSyohinHanbaiTanka(Content.Fields("商品CD")) End If SyohinCD(NyusyukoSEQ) = Content.Fields("商品CD") Suryo(NyusyukoSEQ) = Content.Fields("数量") Tanka(NyusyukoSEQ) = Content.Fields("単価") ' If SyoruiKubun = "X" Or SyoruiKubun = "1" Then ' If Suryo(NyusyukoSEQ) <> "" Then ' Suryo(NyusyukoSEQ) = -1 * Suryo(NyusyukoSEQ) ' End If ' End If If 1 = 0 Then If SenpoFlg = 1 Then UnsoTanka(NyusyukoSEQ) = "" Else UnsoTanka(NyusyukoSEQ) = Content.Fields("運送単価") End If End If Content.MoveNext Loop End If End If Dim HyojunTankaHyoji Dim HaraidashiTankaRiyo Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then HyojunTankaHyoji = "" & Content.Fields("標準販売単価表示") HaraidashiTankaRiyo = "" & Content.Fields("出庫時払出単価入力") End If 'HaraidashiTankaRiyo = "1" Dim jj,tmps %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=shift_jis"> <meta http-equiv="Pragma" content="no-cache"> <meta http-equiv="Cache-Control" content="no-cache"> <meta http-equiv="Expires" content="-1"> <link href="../../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css"> <title><% = AppTitle %></title> <script language="JScript" src="../../../include.js?<% = TimeUniq() %>"></script> <script language="JScript" src="../../../includesj.js?<% = TimeUniq() %>"></script> <script language="JScript.Encode" src="../../../include_enc.js?<% = TimeUniq() %>"></script> <script language="JScript.Encode" src="../../../includesj_enc.js?<% = TimeUniq() %>"></script> <script type=""text/javascript"" src="../../../javascript.js?<% = TimeUniq() %>"></script> </head> <SCRIPT LANGUAGE="JavaScript"> <!-- HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; ExitFlg = 0; //印刷余白指定(ミリ指定) PrintTopMargin = 20; PrintLeftMargin = 20; // PrintTopMargin = 0; // PrintLeftMargin = 0; --> </SCRIPT> <body onload="<% = PrintOnLoad %>" onkeydown="if(ExitFlg==2)ExitFlg=3;" bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <% = PrintScriptX %> <table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" style="border:solid 0px #000000"> <tr> <td height="30" align="left" valign="top"> <% Response.Write(PrintHeader(0, "")) %> <table width="600" border="0" cellspacing="0" cellpadding="10" height="305" bgcolor="#FFFFFF" style="border:solid 1px #000000"> <tr> <td width="600" height="305" align="CENTER" valign="top"> <table width="600" border="0" cellspacing="0" cellpadding="0" height="305"> <tr> <td height="40" align="CENTER" valign="middle"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" height="30" width="580" class="tx1416"> <tr> <td width="25%"> <table width="190" border="0" cellpadding="0" cellspacing="0"> <tr class="tx1214"> <td width="190" align="left"> <table width="130" class="tx2224b" border="0" cellpadding="0" cellspacing="0" > <tr> <td align="center" nowrap><% If Len(SyoruiMei) < 8 Then Response.Write(SetStringInsertSpace(SyoruiMei)) Else Response.Write(SyoruiMei) End If %></td> </tr> </table> </td> </tr> </table> </td> <td> </td> </tr> </table> </td> </tr> <tr> <td height="45" align="CENTER" valign="BOTTOM"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" height="54" width="580" class="tx1618"> <tr> <td width="12%" height="20"><% = ButtonLabel %>番号</td> <td width="38%" height="20"><% = BunsyoNaiyoCD %></td> <td width="20%" height="20"> 処理日</td> <td width="30%" height="20"><% = Syoribi %></td> </tr> <% 'If BunsyoSyuruiCD <> "SC" And BunsyoSyuruiCD <> "MU" Then %> <% If BunsyoSyuruiCD <> "MU" And TorihikisakiCD <> KaisyaCD Then %> <tr> <td height="20">取引先</td> <td height="20"> <% If TorihikisakiCD = "SJ4KOURIHANBAI" Then Response.Write("小売販売") Else Response.Write(ConvKaisyaMeisyoDx(EnshuCD, TorihikisakiCD)) End If %> <td width="80" height="20"></td> <td width="120" height="20"></td> </tr> <% End If %> </table> </td> </tr> <tr> <td align="CENTER"> <table width="580" height="230" border="0" cellpadding="4" cellspacing="0" style="border-collapse: collapse; border:solid 2px #FFFFFF"> <tr> <td width="100%" align="RIGHT"> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="580" bordercolor="#000000"> <tr> <td height="30" valign="TOP"> <table width="100%" height="30" border="1" cellpadding="0" cellspacing="0" frame="below" style="border-collapse: collapse" bordercolor="#000000" class="tx1618" bgcolor="#CCCCCC"> <tr> <td align="center"><% = Label %>名称</td> <% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %> <td align="center" width="17%"><% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("標準単価") End If %></td> <% End If %> <td align="center" width="16%">数 量</td> <% If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Or BunsyoSyuruiCD = "ZS" Then %> <td align="center" width="17%">単 価</td> <% ElseIf HaraidashiTankaRiyo <> "1" Then %> <td align="center" width="17%">払出単価</td> <% End If %> <% If 1 = 0 Then %> <td align="center" width="17%">運送単価</td> <% End If %> </tr> </table> </td> </tr> <tr> <td> <table width="100%" height="180" border="1" cellpadding="3" cellspacing="0" frame="below" style="border-collapse: collapse" bordercolor="#000000" class="tx1618"> <tr> <% If BunsyoSyuruiCD = "ZS" Then %> <td align="left"><% = AscLeft(ConvZairyoMeisyo(SyohinCD(1)),38) %><br></td> <!-- 商品名称を38Byteで切り捨て(061031小野)--> <% Else %> <td align="left"><% = AscLeft(ConvSyohinMeisyo(SyohinCD(1)),38) %><br></td> <!-- 商品名称を38Byteで切り捨て(061031小野)--> <% End If %> <% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %> <td align="right" width="17%"><% = SetMoney(Kakaku(1), false, true) %><br></td> <% End If %> <td align="right" width="16%"><% = SetMoney(Suryo(1), false, true) %><br></td> <% 'If 1 = 1 Or BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then %> <% If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Or HaraidashiTankaRiyo <> "1" Then %> <td align="right" width="17%"><% = SetMoney(Tanka(1), false, true) %><br></td> <% End If %> </tr> <tr> <% If BunsyoSyuruiCD = "ZS" Then %> <td align="left"><% = AscLeft(ConvZairyoMeisyo(SyohinCD(2)),38) %><br></td> <!-- 商品名称を38Byteで切り捨て(061031小野)--> <% Else %> <td align="left"><% = AscLeft(ConvSyohinMeisyo(SyohinCD(2)),38) %><br></td> <!-- 商品名称を38Byteで切り捨て(061031小野)--> <% End If %> <% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %> <td align="right" width="17%"><% = SetMoney(Kakaku(2), false, true) %><br></td> <% End If %> <td align="right" width="16%"><% = SetMoney(Suryo(2), false, true) %><br></td> <% 'If 1 = 1 Or BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then %> <% If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Or HaraidashiTankaRiyo <> "1" Then %> <td align="right" width="17%"><% = SetMoney(Tanka(2), false, true) %><br></td> <% End If %> </tr> <tr> <% If BunsyoSyuruiCD = "ZS" Then %> <td align="left"><% = AscLeft(ConvZairyoMeisyo(SyohinCD(3)),38) %><br></td> <!-- 商品名称を38Byteで切り捨て(061031小野)--> <% Else %> <td align="left"><% = AscLeft(ConvSyohinMeisyo(SyohinCD(3)),38) %><br></td> <!-- 商品名称を38Byteで切り捨て(061031小野)--> <% End If %> <% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %> <td align="right" width="17%"><% = SetMoney(Kakaku(3), false, true) %><br></td> <% End If %> <td align="right" width="16%"><% = SetMoney(Suryo(3), false, true) %><br></td> <% 'If 1 = 1 Or BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then %> <% If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Or HaraidashiTankaRiyo <> "1" Then %> <td align="right" width="17%"><% = SetMoney(Tanka(3), false, true) %><br></td> <% End If %> </tr> <tr> <% If BunsyoSyuruiCD = "ZS" Then %> <td align="left"><% = AscLeft(ConvZairyoMeisyo(SyohinCD(4)),38) %><br></td> <!-- 商品名称を38Byteで切り捨て(061031小野)--> <% Else %> <td align="left"><% = AscLeft(ConvSyohinMeisyo(SyohinCD(4)),38) %><br></td> <!-- 商品名称を38Byteで切り捨て(061031小野)--> <% End If %> <% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %> <td align="right" width="17%"><% = SetMoney(Kakaku(4), false, true) %><br></td> <% End If %> <td align="right" width="16%"><% = SetMoney(Suryo(4), false, true) %><br></td> <% 'If 1 = 1 Or BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then %> <% If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Or HaraidashiTankaRiyo <> "1" Then %> <td align="right" width="17%"><% = SetMoney(Tanka(4), false, true) %><br></td> <% End If %> </tr> <tr> <% If BunsyoSyuruiCD = "ZS" Then %> <td align="left"><% = AscLeft(ConvZairyoMeisyo(SyohinCD(5)),38) %><br></td> <!-- 商品名称を38Byteで切り捨て(061031小野)--> <% Else %> <td align="left"><% = AscLeft(ConvSyohinMeisyo(SyohinCD(5)),38) %><br></td> <!-- 商品名称を38Byteで切り捨て(061031小野)--> <% End If %> <% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %> <td align="right" width="17%"><% = SetMoney(Kakaku(5), false, true) %><br></td> <% End If %> <td align="right" width="16%"><% = SetMoney(Suryo(5), false, true) %><br></td> <% 'If 1 = 1 Or BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then %> <% If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Or HaraidashiTankaRiyo <> "1" Then %> <td align="right" width="17%"><% = SetMoney(Tanka(5), false, true) %><br></td> <% End If %> </tr> </table> </td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </td> </tr> </table> <% Response.Write(PrintFooter()) %> </body> <% = HtmlFooter %> <% End Sub %>