<% Function UnsoKeiyakuSyorui(EnshuCD, KaisyaCD, keiyakuNo, AutoFlg, PrintFlg) Dim NRflg , ErrMSG , Action Dim HyojunTankaHyoji Query = "exec SPM‰‰KŽζ“Ύ '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then HyojunTankaHyoji = "" & Content.Fields("•W€”Μ”„’P‰Ώ•\Ž¦") End If '‰^‘—Œ_–ρ Dim TorihikisakiCD 'ŽζˆψζCD Dim TorihikisakiName 'Žζˆψζ–ΌΜ Dim Mosikomibi '\ž”NŒŽ“ϊ Dim SyohinCD '€•iƒR[ƒh Dim Suryo '”—Κ Dim Tanka '’P‰Ώ Dim NiukesakiCD '‰ΧŽσŽζˆψζCD Dim NiukesakiName '‰ΧŽσŽζˆψζ–ΌΜ Dim NiokusakiCD '‰Χ‘—ŽζˆψζCD Dim NiokusakiName '‰Χ‘—Žζˆψζ–ΌΜ Dim Unchin '‰^’ΐ Dim chikuwariRyo '’n‹ζŠ„‘—Ώ Dim HokenRyokin '•ΫŒ―—Ώ‹ΰ Dim Ryoritsu '—Ώ—¦ Dim NizouRyokin '‰Χ‘’—Ώ‹ΰ Dim SekyuKingaku 'Ώ‹‹ΰŠz Dim Biko '”υl Dim Biko2 '”υl Dim HyojyunHanbaiKakaku Dim Syohinjyuryo '€•id—Κ Dim Syohinyouseki '€•i—eΟ Dim Goukeijyuryo '‡Œvd—Κ Dim Goukeiyouseki '‡Œv—eΟ Dim TelTo 'TEL’… Dim YubinTo '—X•Φ”ԍ†’… Dim JyusyoTo1 'ZŠ’…‚P Dim JyusyoTo2 'ZŠ’…‚Q Dim TelFrom 'TEL”­ Dim YubinFrom '—X•Φ”ԍ†”­ Dim JyusyoFrom1 'ZŠ”­‚P Dim JyusyoFrom2 'ZŠ”­‚Q Dim SyoKingaku '¬Œv‹ΰŠz Dim Syouhizei 'Α”οΕŠz Dim Goukeikinngaku '‡Œv‹ΰŠz Dim Query Dim Content '‘Ώۃf[ƒ^‚f‚d‚s•ΫŒ―ξ•ρŽζ“Ύ Query = "exec SPC‰^‘—Œ_–ρŽζ“Ύ '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', "& keiyakuNo &"" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then keiyakuNo= Content.Fields("\ž”ԍ†") TorihikisakiCD = Content.Fields("ŽζˆψζCD") SyohinCD = Content.Fields("€•iCD") Mosikomibi = SetTimeYYYYMMDD(Content.Fields("\ž”NŒŽ“ϊ")) Suryo = Content.Fields("”—Κ") Tanka = Content.Fields("’P‰Ώ") NiukesakiCD = Content.Fields("‰ΧŽσŽζˆψζCD") NiokusakiCD = Content.Fields("‰Χ‘—ŽζˆψζCD") Unchin = Content.Fields("‰^’ΐ") chikuwariRyo = Content.Fields("’n‹ζŠ„‘—Ώ") HokenRyokin = Content.Fields("•ΫŒ―—Ώ‹ΰ") Ryoritsu = Content.Fields("—Ώ—¦") NizouRyokin = Content.Fields("‰Χ‘’—Ώ‹ΰ") SekyuKingaku= Content.Fields("Ώ‹‹ΰŠz") Biko = Content.Fields("”υl") End If Query = "exec SPM€•iˆκ—— '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("€•iCD") = SyohinCD Then HyojyunHanbaiKakaku=Content.Fields("•W€”Μ”„’P‰Ώ") Syohinjyuryo=Content.Fields("€•id—Κ") Syohinyouseki=Content.Fields("€•i—eΟ") Goukeijyuryo=Syohinjyuryo*Suryo Goukeiyouseki=Syohinyouseki*Suryo End If Content.MoveNext Loop Query = "exec SPM‰οŽΠ‘S•”ˆκ—— '" & GB_SystemCD & "','" & EnshuCD & "','" & GakuseiNo & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("‰οŽΠCD") = TorihikisakiCD Then NiukesakiName=Content.Fields("‰οŽΠ—ͺ–ΌΜ") End If Content.MoveNext Loop Query = "exec SPM‰οŽΠ‘S•”ˆκ—— '" & GB_SystemCD & "','" & EnshuCD & "','" & GakuseiNo & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("‰οŽΠCD") = NiokusakiCD Then 'NiukesakiName=Content.Fields("‰οŽΠ—ͺ–ΌΜ") TelFrom= Content.Fields("TEL") YubinFrom= Content.Fields("—X•Φ”ԍ†") JyusyoFrom1=Content.Fields("ZŠ1") 'ZŠ’…‚P JyusyoFrom2=Content.Fields("ZŠ2") 'ZŠ’…‚Q End If Content.MoveNext Loop Query = "exec SPM‰οŽΠ‘S•”ˆκ—— '" & GB_SystemCD & "','" & EnshuCD & "','" & GakuseiNo & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("‰οŽΠCD") = NiukesakiCD Then NiukesakiName=Content.Fields("‰οŽΠ—ͺ–ΌΜ") TelTo= Content.Fields("TEL") YubinTo= Content.Fields("—X•Φ”ԍ†") JyusyoTo1=Content.Fields("ZŠ1") 'ZŠ’…‚P JyusyoTo2=Content.Fields("ZŠ2") 'ZŠ’…‚Q End If Content.MoveNext Loop If Unchin="" or Isnull(Unchin) Then Unchin=0 End If If chikuwariRyo="" or Isnull(chikuwariRyo) Then chikuwariRyo=0 End If If HokenRyokin="" or Isnull(HokenRyokin) Then HokenRyokin=0 End If If NizouRyokin="" or Isnull(NizouRyokin) Then NizouRyokin=0 End If SyoKingaku=Unchin + chikuwariRyo + HokenRyokin + NizouRyokin SyoKingaku= ConvIntToMoney(SyoKingaku, false, false) Syouhizei=SyoKingaku*GB_Shohizei/100 Syouhizei=Int(Syouhizei) Goukeikinngaku=SyoKingaku+Syouhizei Goukeikinngaku=ConvIntToMoney(Goukeikinngaku, false, false) %>

\ž”ԍ† <% = keiyakuNo %> Žζˆψζ–Ό <% = ConvKaisyaMeisyoDx(EnshuCD, TorihikisakiCD) %> \ž”NŒŽ“ϊ <% = Mosikomibi %> €•i–Ό <% = ConvSyohinRyakuMeisyo(SyohinCD) %> ”—Κ <% = SetNumber(Suryo, false) %> ’P‰Ώ <% = SetMoney(Tanka, false, true) %> “E—v <% = Biko %> €•iξ•ρ <% If HyojunTankaHyoji <> "0" Then '•W€”Μ”„’P‰Ώ•\Ž¦ %> <% End If %> •W€”Μ”„’P‰Ώ <% = SetNumber(HyojyunHanbaiKakaku, false) %> €•id—Κ <% = SetNumber(Syohinjyuryo, false) %> kg €•i—eΟ <% = SetNumber(Syohinyouseki, false) %> ‡Œvd—Κ <% = SetNumber(Goukeijyuryo, false) %> kg ‡Œv—eΟ <% = SetNumber(Goukeiyouseki, false) %>

‰ΧŽσl(’ j <% = ConvKaisyaMeisyoDx(EnshuCD, NiukesakiCD ) %> TEL@<% = TelTo %> §<% = YubinTo %> <% = JyusyoTo1 %> @ <% = JyusyoTo2 %> ‰^’ΐξ•ρ ‰^’ΐ <% = SetMoney(Unchin, false, true) %> ’n‹ζŠ„‘—Ώ <% = SetMoney(chikuwariRyo, false, true) %> ‰Χ‘’—Ώ‹ΰ <% = SetMoney(NizouRyokin, false, true) %> •ΫŒ―—Ώ‹ΰ <% = SetMoney(HokenRyokin, false, true) %> —Ώ—¦ <% = SetMoney(Ryoritsu, false, true) %> ¬Œv‹ΰŠz <% = SetMoney(SyoKingaku, false, true) %> Α”οΕŠz <% = SetMoney(Syouhizei, false, true) %> ‡Œv‹ΰŠz <% = SetMoney(Goukeikinngaku, false, true) %> ‰Χ‘—l(”­j <% = ConvKaisyaMeisyoDx(EnshuCD, NiokusakiCD ) %> TEL@<% = TelFrom %> §<% = YubinFrom %> <% = JyusyoFrom1 %> @ <% = JyusyoFrom2 %>

<% End Function %>