<% Function HokenRyo(EnshuCD, KaisyaCD, MousikomiNum, AutoFlg, PrintFlg) Dim EnshuName Dim TekiyoCD , Tekiyo '“E—vƒR�[ƒh�A“E—v ' Dim MousikomiNum '�\�ž”Ô�† Dim KanrenKaisyaCD '‰ïŽÐƒR�[ƒh�AŠÖ˜A‰ïŽÐƒR�[ƒh Dim TorihikisakiCD,HokenkikanFrom,HokenkikanTo Dim SyohinCD '�¤•iƒR�[ƒh Dim SyohinName '�¤•i–¼�Ì Dim Tanka '’P‰¿ Dim Suryo '�”—Ê Dim Kakaku '•W�€‰¿Ši Dim Kingaku '•ÛŒ¯‘Î�Û‹àŠz Dim Ryoritsu '—¿—¦ Dim HokenRyokin '•ÛŒ¯—¿‹à Dim HSyubetsuCode '•ÛŒ¯Ží•ÊCD Dim Biko '”õ�l Dim Mosikomibi Dim KaisyaRyakuMeisyo Dim HokenName Dim HokenKubun Dim Query Dim Content MousikomiNum = Request("MousikomiNum") '‘Î�Ûƒf�[ƒ^‚f‚d‚s•ÛŒ¯�î•ñŽæ“¾ Query = "exec SPC•ÛŒ¯Žæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', "& MousikomiNum & "" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KaisyaCD = Content.Fields("‰ïŽÐCD") MousikomiNum = Content.Fields("�\�ž”Ô�†") if IsNull(Content.Fields("Žæˆø�æCD")) then TorihikisakiCD = "" else TorihikisakiCD=Content.Fields("Žæˆø�æCD") 'KaisyaRyakuMeisyo=ConvKaisyaRyakuMeisyoDx(EnshuCD, TorihikisakiCD) KaisyaRyakuMeisyo=ConvKaisyaMeisyoDx(EnshuCD, TorihikisakiCD) end if if IsNull(Content.Fields("•ÛŒ¯Ží•Ê")) then HSyubetsuCode="" else HSyubetsuCode = Content.Fields("•ÛŒ¯Ží•Ê") Dim Query1,Content1 Query1 = "exec SPC•ÛŒ¯ˆê—— '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'" Set Content1 = OpenQuery(Query1) Do While Not(Content1.BOF Or Content1.EOF) If Content1.Fields("‹æ•ªCD") = HSyubetsuCode Then HokenName = Content1.Fields("‹æ•ª–¼�Ì") End If Content1.MoveNext Loop end if HokenKubun = "" & Content.Fields("•ÛŒ¯‹æ•ª") If HokenKubun = "" Then HokenKubun = "0" End If if IsNull(Content.Fields("�\�ž”NŒŽ“ú")) then Mosikomibi="" else Mosikomibi = SetTimeYYYYMMDD(Content.Fields("�\�ž”NŒŽ“ú")) end if if IsNull(Content.Fields("•ÛŒ¯ŠJŽn”NŒŽ“ú")) then HokenkikanFrom="" else HokenkikanFrom = SetTimeYYYYMMDD(Content.Fields("•ÛŒ¯ŠJŽn”NŒŽ“ú")) end if if IsNull(Content.Fields("•ÛŒ¯�I—¹”NŒŽ“ú")) then HokenkikanTo="" else HokenkikanTo = SetTimeYYYYMMDD(Content.Fields("•ÛŒ¯�I—¹”NŒŽ“ú")) end if if IsNull(Content.Fields("�¤•iCD")) then SyohinCD="" else SyohinCD = Content.Fields("�¤•iCD") SyohinName=ConvSyohinMeisyo(SyohinCD) end if '•W�€”Ì”„’P‰¿‚Å‚Í‚È‚­’P‰¿‚ðŽw’è‚·‚é•ûŽ®‚É•Ï�X If IsNull(Content.Fields("’P‰¿")) Then If SyohinCD <> "" then '‹Œƒo�[ƒWƒ‡ƒ“Žd—l Tanka = ConvSyohinHanbaiTanka(SyohinCD) Else Tanka = "" End If Else Tanka = Content.Fields("’P‰¿") End If if IsNull(Content.Fields("�”—Ê")) then Suryo="" else Suryo = Content.Fields("�”—Ê") end if Kingaku = Content.Fields("•ÛŒ¯‘Î�Û‹àŠz") If "" & Kingaku = "" And "" & Tanka <> "" And "" & Suryo <> "" Then On Error Resume Next Err.Clear() Kingaku = Tanka * Suryo If Err.Description <> "" Then Kingaku = 0 End If On Error Goto 0 End If if IsNull(Content.Fields("—¿—¦")) then Ryoritsu="" else Ryoritsu = Content.Fields("—¿—¦") end if if IsNull(Content.Fields("�¿‹�‹àŠz")) then HokenRyokin="" else HokenRyokin = Content.Fields("�¿‹�‹àŠz") end if 'if IsNull(Content.Fields("”õ�l")) then if Content.Fields("”õ�l")="" then Biko="" else Biko = Content.Fields("”õ�l") end if End If %> <% If PrintFlg = 1 Then %> <% Else %> <% End If %>

<% If HSyubetsuCode = "H1" Then %> <% End If %> <% If HokenKubun = "0" Then %> <% End If %> �\�ž”Ô�† <% = MousikomiNum %> Žæˆø�æ <% = KaisyaRyakuMeisyo %> •ÛŒ¯Ží•Ê <% = HokenName %> �\�ž”NŒŽ“ú <% = Mosikomibi %> •ÛŒ¯ŠúŠÔ <% = HokenkikanFrom %> �@�` �@<% = HokenkikanTo %> •ÛŒ¯‹æ•ª <% If HokenKubun = "2" Then %>”õ•i<% ElseIf HokenKubun = "1" Then %>Œš•¨<% Else %>�¤•i<% End If %> �¤•i <% = SyohinName %> ’P‰¿ <% = SetMoney(Tanka, false, false) %> �¤•i�”—Ê <% = SetNumber(Suryo, false) %> •ÛŒ¯‘Î�Û‹àŠz <% = SetMoney(Kingaku, false, false) %> —¿—¦ <% = SetNumber(Ryoritsu, false) %> •ÛŒ¯—¿‹à <% = SetMoney(HokenRyokin, false, false) %> ”õ�l <% = Biko %>

<% End Function %>