<% ' ' %> <% Function KitakuSyukkoIrai(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg) ' Dim SakuseiKaisyaCD '作成会社CD Dim TorihikisakiCD '取引先CD Dim KitakuGaisyaCD '寄託会社CD Dim SenpoKitakuGaisyaCD '先方寄託会社CD Dim UnsoGaisyaCD '運送会社CD Dim UnsoGaisyaMei '運送会社名 ' Dim BunsyoSyuruiCD '文書種類CD ' Dim BunsyoNaiyoCD '文書内容CD Dim SenpoBunsyoSyuruiCD '先方文書種類CD Dim SenpoBunsyoNaiyoCD '先方文書内容CD Dim Syoribi '処理日 Dim SenpoSyoribi '先方処理日 Dim NonyuKijitsu '納入期日 Dim UntinSyogakariKubun '運賃諸掛区分 Dim Unsohi '運送費 Dim UnsohiSeikyuFlg '運送請求フラグ Dim Tekiyo '摘要 Dim ShiharaiHoho '支払方法 Dim HasshinFlg '発信フラグ Dim Kakaku(6) '標準単価 Dim SyohinCD(6) '商品コード Dim SyohinName(6) '商品名称 Dim Suryo(6) '数量 Dim Tanka(6) '単価 Dim UnsoTanka(6) '運送単価 Dim Zaiko(6) '在庫数量 Dim GakuseiShimei '学生氏名(係印) Dim SyoruiMei '書類名 Dim Query Dim Content Dim Shimei '氏名 Dim PageType Dim ZaikoTemp Dim ShijyoCD(5) '市場CD Dim SyohinNyusyukkoSeikousei BunsyoNaiyoCD = Request("BunsyoNaiyoCD") BunsyoSyuruiCD = Request("BunsyoSyuruiCD") SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD") SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD") SyohinNyusyukkoSeikousei = GetEnshuParam(EnshuCD, "商品入出庫整合性利用") PageType = Request("PageType") Dim SenpoFlg ' SenpoFlg = 0 ' If SenpoBunsyoNaiyoCD <> "" Then ' SenpoFlg = 1 ' End If If KaisyaCD <> SakuseiKaisyaCD Then SenpoFlg = 1 Else SenpoFlg = 0 End If Dim BinType BinType = Request("BinType") Dim RouteType RouteType = Request("RouteType") 'SyoruiMei = ConvKubunMeisyo("入出庫区分", BunsyoSyuruiCD) If BunsyoSyuruiCD = "SX" Then SyoruiMei = "寄託確認" Else SyoruiMei = "寄託出庫依頼" End If If BunsyoNaiyoCD <> "" Or SenpoBunsyoNaiyoCD <> "" Then If SenpoFlg = 1 Then Query = "exec SPD仕入売上書類取得4 '" & GB_SystemCD & "','" & EnshuCD & "','" & SakuseiKaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'" ' Query = "exec SPD仕入売上書類取得4 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & SenpoBunsyoSyuruiCD & "', '" & SenpoBunsyoNaiyoCD & "'" Else Query = "exec SPD仕入売上書類取得4 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'" End If 'Response.Write(Query) Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then If SenpoFlg = 1 Then TorihikisakiCD = Content.Fields("取引先CD") Syoribi = Content.Fields("処理日") SenpoSyoribi = Content.Fields("先方処理日") Else TorihikisakiCD = Content.Fields("取引先CD") Syoribi = Content.Fields("処理日") SenpoSyoribi = Content.Fields("先方処理日") End If UnsoGaisyaCD = Content.Fields("運送会社CD") KitakuGaisyaCD = Content.Fields("寄託会社CD") SenpoKitakuGaisyaCD = Content.Fields("先方寄託会社CD") Do While Not(Content.BOF Or Content.EOF) Dim DenpyoSEQ,PreDenpyoSEQ DenpyoSEQ = Content.Fields("文書内容SEQ") SyohinCD(DenpyoSEQ) = Content.Fields("商品CD") Zaiko(DenpyoSEQ) = ConvSyohinZaiko(Content.Fields("商品CD")) ShijyoCD(DenpyoSEQ) = Content.Fields("市場CD") SyohinName(DenpyoSEQ) = ConvSyohinMeisyo(Content.Fields("商品CD")) Kakaku(DenpyoSEQ) = ConvSyohinHanbaiTanka(Content.Fields("商品CD")) Suryo(DenpyoSEQ) = Content.Fields("数量") Tanka(DenpyoSEQ) = Content.Fields("単価") Content.MoveNext Loop End If End If Query = "exec SPD仕入売上書類取得4 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & KaisyaCD & "', 'KS', '" & BunsyoNaiyoCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then HasshinFlg = Content.Fields("発行フラグ") End If Dim jj,tmps Dim SyohinMeisyo, SyohinMeisyoListWidth, ShijyoListWidth SyohinMeisyo = "商品略名称" SyohinMeisyoListWidth = "width: 120;" ShijyoListWidth = "width:80" If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then SyohinMeisyo = "商品略名称" SyohinMeisyoListWidth = "width: 120;" ShijyoListWidth = "width:80" Else SyohinMeisyo = "商品名称" End If Dim Kitakuriyou Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Kitakuriyou = Content.Fields("寄託倉庫利用") End If '何らかの理由で仕入売上書類Fの寄託会社・先方寄託会社にNULLがセットされてしまうことがあるので保険(091225) If "" & KitakuGaisyaCD = "" Then Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KitakuGaisyaCD = Content.Fields("寄託会社CD") End If End If If "" & SenpoKitakuGaisyaCD = "" Then Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & TorihikisakiCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then SenpoKitakuGaisyaCD = Content.Fields("寄託会社CD") End If End If 'TTX文書F開封処理 ' If InStr(RouteType, "MailOnly") > 0 Then If BunsyoNaiyoCD <> "" Then If GB_JisyaFlag <> "" Then '運用管理・演習管理(自社フラグ無し)では開封フラグを立てない(061213小野) Query = "exec SPD入出庫書類開封2 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'" Set Content = OpenQuery(Query) End If End If ' End If %>
<% If PrintFlg = 1 Then Response.Write(PrintHeader(AutoFlg, "")) End if %>
<% If Len(SyoruiMei) < 8 Then Response.Write(SetStringInsertSpace(SyoruiMei)) Else Response.Write(SyoruiMei) End If %>
 
出庫番号 <% = BunsyoNaiyoCD %> 処 理 日 <% If HasshinFlg = 1 Or BinType = "Hasshin" Or SenpoFlg = 1 Then %> <% = Syoribi %> <% Else %> <% End If %>
取引先 <% If BunsyoNaiyoCD <> "" Then %> <% =ConvKaisyaMeisyoDX(EnshuCD, TorihikisakiCD) %> <% Else %> <% End If %> 注文請日 <% If BunsyoNaiyoCD <> "" Then %> <% = SenpoSyoribi %> <% Else %> <% End If %>
依頼会社 <% =ConvKaisyaMeisyoDX(EnshuCD, SakuseiKaisyaCD) %>
寄託倉庫 <% =ConvKaisyaMeisyoDX(EnshuCD, KitakuGaisyaCD) %>
納入場所 <% If BunsyoNaiyoCD <> "" Then %> <% =ConvKaisyaMeisyoDX(EnshuCD, SenpoKitakuGaisyaCD) %> <% Else %> <% End If %>
運送会社 <% If BunsyoNaiyoCD <> "" Then %> <% =ConvKaisyaMeisyoDX(EnshuCD, UnsoGaisyaCD) %> <% Else %> <% End If %>
商品名称 <% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("標準単価") End If %> 数 量
<% dim ii For ii = 1 to 5 Response.Write("") Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Next %>
" & ConvSyohinRyakuMeisyo(SyohinCD(ii)) & "
" & SetMoney(Kakaku(ii), false, true) & "
" & SetMoney(Suryo(ii), false, true) & "
<% If PrintFlg = 1 Then Response.Write(PrintFooter()) End if %>
<% End Function %>