<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim DenpyoNo, Torihikibi, DenpyoTekiyo '“`•[”Ô�†�AŽæˆø“ú�A“`•[“E—v Dim KanjyoCD(10) 'Š¨’è‰È–ÚƒR�[ƒh Dim Kanjyomei(10) 'Š¨’è‰È–Ú–¼�Ì Dim Kingaku(10) '‹àŠz Dim Tekiyo(10) '“E—v Dim TekiyoCD(10) 'Žæˆø�æCD Dim KarikataGokei, KashikataGokei 'ŽØ•û�‡Œv�A‘Ý•û�‡Œv Dim Query Dim Content Dim Genkin, Toza Dim Amend Dim Shimei Dim GakuseiBango Dim PageType, RouteType, AutoFlg PageType = "Š¨’èŽc�‚�Ý’è" If PackageMode = 1 Then PageType = "ŠúŽñŽc�‚�Ý’è" End If '�»‘¢•”‘Ήž�i080411�¬–ì�j Dim Mode Mode = Request("Mode") Dim ShijoCD ShijoCD = Request("ShijoCD") Dim GyosyuKubun GyosyuKubun = ConvKaisyaGyosyuKubun(KaisyaCD) If Mode = "Seizo" Then '�»‘¢•”‘Ήž�i080411�¬–ì�j GyosyuKubun = "G" End If Amend = Request("amend") DenpyoNo = Request("DenpyoNo") Genkin = 0 Toza = 0 KashikataGokei = 0 KarikataGokei = 0 Dim TekiyoCDs Query = "exec SPM“E—v•\Ž¦ˆê—— '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If TekiyoCDs <> "" Then TekiyoCDs = TekiyoCDs & "," End If TekiyoCDs = TekiyoCDs & Content.Fields("“E—vCD") Content.MoveNext Loop Query = "exec SPKŒ»‹à“ü�o‹àŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 0, 0" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Genkin = Content.Fields("‹àŠz") End If Dim QueryNyusyuko, ContentNyusyuko, KingakuNyusyuko, NyusyukoBango KingakuNyusyuko = 0 QueryNyusyuko = "exec SPD“ü�oŒÉˆê—— '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', 'S'" Set ContentNyusyuko = OpenQuery(QueryNyusyuko) Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF) If ContentNyusyuko.Fields("�ˆ—�ŽžŠú‹æ•ª") = 0 Then NyusyukoBango = ContentNyusyuko.Fields("•¶�‘“à—eCD") End If ContentNyusyuko.MoveNext Loop QueryNyusyuko = "exec SPD“ü�oŒÉŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', 'S', '" & NyusyukoBango & "'" Set ContentNyusyuko = OpenQuery(QueryNyusyuko) Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF) KingakuNyusyuko = KingakuNyusyuko + ContentNyusyuko.Fields("�”—Ê") * ContentNyusyuko.Fields("’P‰¿") ContentNyusyuko.MoveNext Loop Dim QueryKoza, ContentKoza Dim TozaKinagku,FutsuKingaku, TeikiKingaku, TsumitateKingaku, BetsudanKingaku TozaKinagku = 0 FutsuKingaku = 0 TeikiKingaku = 0 TsumitateKingaku = 0 BetsudanKingaku = 0 QueryKoza = "exec SPB‹â�sŒû�Àˆê—— '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', ''" Set ContentKoza = OpenQuery(QueryKoza) Do While Not(ContentKoza.BOF Or ContentKoza.EOF) Dim MyGinkoCD, MyKozaKubun MyGinkoCD = "" MyKozaKubun = "" If Not(ContentKoza.BOF Or ContentKoza.EOF) Then MyGinkoCD = ContentKoza.Fields("‹â�sCD") MyKozaKubun = ContentKoza.Fields("Œû�À‹æ•ª") End If Query = "exec SPB‹â�sŒû�À“ü�o‹àˆê—— '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & MyGinkoCD & "', '" & MyKozaKubun & "', ''" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("�ˆ—�ŽžŠú‹æ•ª") = 0 Then If MyKozaKubun = "B" Then BetsudanKingaku = BetsudanKingaku + Content.Fields("‹àŠz") ElseIf MyKozaKubun = "F" Then FutsuKingaku = FutsuKingaku + Content.Fields("‹àŠz") ElseIf MyKozaKubun = "L" Then TeikiKingaku = TeikiKingaku + Content.Fields("‹àŠz") ElseIf MyKozaKubun = "M" Then TsumitateKingaku = TsumitateKingaku + Content.Fields("‹àŠz") ElseIf MyKozaKubun = "T" Then TozaKinagku = TozaKinagku + Content.Fields("‹àŠz") End If End If Content.MoveNext Loop ContentKoza.MoveNext Loop Query = "exec SPM‰ïŽÐŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KaisyaMeisyo = Content.Fields("‰ïŽÐ–¼�Ì") KaisyaRyakuMeisyo = Content.Fields("‰ïŽÐ—ª–¼�Ì") End If If RouteType = "Hakushi" Then AutoFlg = -1 Else AutoFlg = 0 End If %> <% = PrintScriptX %>

<% Dim PageNo, RowBreakNum, RowCount, KaiPageFlg, TotalRowCount PageNo = 1 RowCount = 0 KaiPageFlg = 1 TotalRowCount = 0 Query = "exec SPK“`•[_�U‘Ö“`•[Žæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '0000000', '" & GyosyuKubun & "'" Set Content = OpenQuery(Query) Dim jj, ii ii = 0 Do While Not(Content.BOF Or Content.EOF) RowCount = RowCount + 1 RowBreakNum = 35 TotalRowCount = TotalRowCount + 1 if KaiPageFlg = 1 then Response.Write(PrintHeader(AutoFlg, "")) Response.Write(PrintFooter()) %> <% If Mode = "Seizo" Then Response.Write("�»‘¢•”") End If %><% = PageType %> <% 'If Len(SyoruiMei) < 8 Then ' Response.Write(SetStringInsertSpace(SyoruiMei)) 'Else ' Response.Write(SyoruiMei) 'End If %> <% end if ii = ii + 1 Dim KarikataKingaku, KashikataKingaku KarikataKingaku = Content.Fields("ŽØ•û‹àŠz") KashikataKingaku = Content.Fields("‘Ý•û‹àŠz") If Not(IsNull(KarikataKingaku)) Then KarikataGokei = KarikataGokei + KarikataKingaku End If If Not(IsNull(KashikataKingaku)) Then KashikataGokei = KashikataGokei + KashikataKingaku End If Response.Write("") Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Content.MoveNext KaiPageFlg = 0 if (RowCount Mod RowBreakNum = 0) then Response.Write(" Š¨’è‰È–Ú “E—v –¾�× ŽØ•û‹àŠz ‘Ý•û‹àŠz " & Content.Fields("Š¨’èCD") & " " & ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, Content.Fields("Š¨’èCD")) & " " & HardWrap(ConvTekiyoMeisyoDx(EnshuCD, KaisyaCD, Content.Fields("“E—vCD"))) & " " & Content.Fields("“E—v") & " " & ConvIntToMoney(KarikataKingaku, false ,false) & " " & ConvIntToMoney(KashikataKingaku, false ,false) & " " & vbCrLf) 'Response.Write(" " & vbCrLf) Response.Write(PageBreakBefore) RowCount = 0 KaiPageFlg = 1 end If Loop %>

�‡Œv <% = ConvIntToMoney(KarikataGokei, false ,false) %> <% = ConvIntToMoney(KashikataGokei, false ,false) %>

<% = HtmlFooter %> <% End Sub %>