<% Function GenkaKeisanhyo(EnshuCD, KaisyaCD, BunsyoNaiyoCD, Yobi1, Yobi2, Yobi3, Yobi4, Yobi5, Yobi6, Yobi7, Yobi8, Yobi9, Yobi10, AutoFlg, PrintFlg) Dim PageType ' If BunsyoSyuruiCD = "MC" Then PageType = "Þ—¿Žd“ü’ " ' Else ' PageType = "”„ã’ " ' End If Dim RowBreakNum, RowCount Dim Page RowCount = 0 If PrintFlg = 1 Then RowBreakNum = 30 Else RowBreakNum = MaxRowBreakNum MaxPage = 1 End If Dim Content2 Dim SyohinKubun Dim SyohinKubunMei Dim SyohinCD Dim ShohinMeisho Dim Lot Dim Tani Dim SeizoLot Dim SoSeizoSu Dim SyohinTanka Dim Syoribi Dim Kanryobi Dim SeizouKubun Dim ZBunsyoNaiyoCD Dim RoumuHi Dim KeiHi Dim GokeiKingaku Query = "exec SPD»‘¢Žw}‘Žæ“¾ '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & BunsyoNaiyoCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then SyohinCD = Content.Fields("¤•iCD") KeiHi = Content.Fields("Œo”ï") RoumuHi = Content.Fields("˜J–±”ï") 'Response.Write(SyohinCD) 'Exit Function ' Lot = 1 'ƒ[ƒœŽZ—áŠO‘Îô If Left(Content.Fields("»‘¢ó‹µ‹æ•ª"), 1) = "P" Or Left(Content.Fields("»‘¢ó‹µ‹æ•ª"), 1) = "M" Then SyohinKubun = "S" SyohinKubunMei = "¤•i" Query = "exec SPM¤•iŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "','" & SyohinCD & "'" Set Content2 = OpenQuery(Query) If Not(Content2.BOF Or Content2.EOF) Then ShohinMeisho = Content2.Fields("¤•i–¼Ì") Lot = Content2.Fields("ƒƒbƒg") Tani = Content2.Fields("’PˆÊ") End If Else SyohinKubun = "Z" SyohinKubunMei = "Þ—¿" Query = "exec SPMÞ—¿Žæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "','" & SyohinCD & "'" Set Content2 = OpenQuery(Query) If Not(Content2.BOF Or Content2.EOF) Then ShohinMeisho = Content2.Fields("Þ—¿–¼Ì") Lot = Content2.Fields("ƒƒbƒg") Tani = Content2.Fields("’PˆÊ") End If End If SeizoLot = Content.Fields("¤•i”—Ê") If Lot <> 0 Then SeizoLot = SeizoLot / Lot End If SoSeizoSu = Content.Fields("¤•i”—Ê") SyohinTanka = Content.Fields("¤•i’P‰¿") Syoribi = SetTimeYYYYMMDD(Content.Fields("ˆ—“ú")) Kanryobi = SetTimeYYYYMMDD(Content.Fields("Š®—¹“ú")) SeizouKubun = Content.Fields("»‘¢ó‹µ‹æ•ª") ZBunsyoNaiyoCD = Content.Fields("Þ—¿oŒÉCD") End If If "" & KeiHi = "" Then KeiHi = 0 End If If "" & RoumuHi = "" Then RoumuHi = 0 End If GokeiKingaku = 0 Dim DbKarikataKingakuTotal Dim DbKashikataKingakuTotal DbKarikataKingakuTotal = 0 DbKashikataKingakuTotal = 0 Dim SyoruiMei If AutoFlg = 2 Then If BunsyoSyuruiCD = "MC" Then Query = "exec SPKŽ©“®“]‹L•â••ëƉï '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'AH', '%', '', ''" SyoruiMei = "Žd“ü’ iŽ©“®j" Else Query = "exec SPKŽ©“®“]‹L•â••ëƉï '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'AG', '%', '', ''" SyoruiMei = "”„ã’ iŽ©“®j" End If ElseIf AutoFlg = 1 Then If BunsyoSyuruiCD = "MC" Then Query = "exec SPRŽd“ü”„ãŽÀÑ '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','SC','SS','SX',''" SyoruiMei = "“üŒÉŽÀÑ" Else Query = "exec SPRŽd“ü”„ãŽÀÑ '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','SU', 'SY', '',''" SyoruiMei = "oŒÉŽÀÑ" End If Else ' If BunsyoSyuruiCD = "MC" Then Query = "exec SPK•â••ë_Œ´‰¿ŒvŽZ•\Žæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & BunsyoNaiyoCD & "'" SyoruiMei = "Œ´‰¿ŒvŽZ•\" ' Else ' Query = "exec SPK•â••ë_”„ã’ Žæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" ' SyoruiMei = "”„ã’ " ' End If End If 'Response.Write(Query) Set Content = OpenQuery(Query) If PrintFlg = 0 Then %>
<% End If '•\Ž¦‚ƈóü‚ŃTƒCƒY‰Â•Ï Dim WidthTorihikibi, WidthTekiyo, WidthKingaku, WidthParent, WidthParent2 Dim HeightCell If PrintFlg = 0 Then HeightCell = 23 WidthTorihikibi = 40 WidthTekiyo = 56 WidthKingaku = 82 WidthParent = 922 WidthParent2 = 902 Else HeightCell = 21 WidthTorihikibi = 32 WidthTekiyo = 40 WidthKingaku = 68 WidthParent = 724 WidthParent2 = 722 End If For Page = 1 To MaxPage If Page <> 1 Then Response.Write(PageBreakBefore) End If %>
<% If PrintFlg = 1 Then Response.Write(PrintHeader1(AutoFlg)) End if %>
<% = SetStringInsertSpace(SyoruiMei) %> <% If AutoFlg <> -1 And PrintFlg = 1 Then %><% = Page %>ƒy[ƒW<% End If %>
»‘¢Žw}‘   ”<% = BunsyoNaiyoCD %> 
»   •i   –¼   <% = ShohinMeisho %> 
’…Žè“ú   <% = SetDate(Syoribi, 3) %> 
Š®¬“ú   <% = SetDate(Kanryobi, 3) %> 
–½—ß”—Ê   <% = SeizoLot %> ƒƒbƒg 
Š®¬”—Ê  <% If Kanryobi <> "" Then %>  <% = SeizoLot %> ƒƒbƒg  <% Else %>   <% End If %>
’¼ÚÞ—¿”ï ’¼Ú˜J–±”ï ’¼ÚŒo”ï »‘¢ŠÔÚ”ï W@@@Œv
“ú•t “E—v ‹àŠz “ú•t “E—v ‹àŠz “ú•t “E—v ‹àŠz “ú•t “E—v ‹àŠz “E@@—v ‹àŠz
<% If PrintFlg <> 1 Then %>
<% End If %> <% Dim Query Dim Content Dim ii, jj ii = 0 Dim PageRowCnt PageRowCnt = 0 Dim Gokei1, Gokei2, Gokei3, Gokei4 Gokei1 = 0 Gokei2 = 0 Gokei3 = 0 Gokei4 = 0 Dim Bottom Bottom = 0 If Not(Content.BOF Or Content.EOF) Then Do While Not(Content.BOF Or Content.EOF) Bottom = Bottom + 1 If "" & Content.Fields("’¼ÚÞ—¿”ï") <> "" Then Gokei1 = Gokei1 + Content.Fields("’¼ÚÞ—¿”ï") End If If "" & Content.Fields("’¼Ú˜J–±”ï") <> "" Then Gokei2 = Gokei2 + Content.Fields("’¼Ú˜J–±”ï") End If If "" & Content.Fields("’¼ÚŒo”ï") <> "" Then Gokei3 = Gokei3 + Content.Fields("’¼ÚŒo”ï") End If If "" & Content.Fields("»‘¢ŠÔÚ”ï") <> "" Then Gokei4 = Gokei4 + Content.Fields("»‘¢ŠÔÚ”ï") End If Content.MoveNext Loop Content.MoveFirst End If PageRowCnt = 0 Do While Not(Content.BOF Or Content.EOF) Dim Torihikibi1, Torihikibi2, Torihikibi3, Torihikibi4, Tekiyo1, Tekiyo2, Tekiyo3, Tekiyo4, Kingaku1, Kingaku2, Kingaku3, Kingaku4 If AutoFlg = 2 Then ElseIf AutoFlg = 1 Then Else Torihikibi1 = SetTimeMMDD(Content.Fields("’¼ÚÞ—¿”ï“ú•t")) Torihikibi2 = SetTimeMMDD(Content.Fields("’¼Ú˜J–±”ï“ú•t")) Torihikibi3 = SetTimeMMDD(Content.Fields("’¼ÚŒo”ï“ú•t")) Torihikibi4 = SetTimeMMDD(Content.Fields("»‘¢ŠÔÚ”ï“ú•t")) Tekiyo1 = Content.Fields("’¼ÚÞ—¿”ï“E—v") Tekiyo2 = Content.Fields("’¼Ú˜J–±”ï“E—v") Tekiyo3 = Content.Fields("’¼ÚŒo”ï“E—v") Tekiyo4 = Content.Fields("»‘¢ŠÔÚ”ï“E—v") Kingaku1 = Content.Fields("’¼ÚÞ—¿”ï") Kingaku2 = Content.Fields("’¼Ú˜J–±”ï") Kingaku3 = Content.Fields("’¼ÚŒo”ï") Kingaku4 = Content.Fields("»‘¢ŠÔÚ”ï") End If RowCount = RowCount + 1 PageRowCnt = PageRowCnt + 1 Response.Write("" & vbCrLf) If RowCount = Bottom + 1 Then Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) If RowCount = Bottom Then Response.Write("" & vbCrLf) ElseIf RowCount = Bottom + 1 Then Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) End If If RowCount = Bottom + 1 Then Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) If RowCount = Bottom Then Response.Write("" & vbCrLf) ElseIf RowCount = Bottom + 1 Then Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) End If If RowCount = Bottom + 1 Then Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) If RowCount = Bottom Then Response.Write("" & vbCrLf) ElseIf RowCount = Bottom + 1 Then Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) End If If RowCount = Bottom + 1 Then Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) If RowCount = Bottom Then Response.Write("" & vbCrLf) ElseIf RowCount = Bottom + 1 Then Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) End If If PageRowCnt = 1 Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ElseIf PageRowCnt = 2 Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ElseIf PageRowCnt = 3 Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ElseIf PageRowCnt = 4 Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ElseIf PageRowCnt = 5 Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) ii = ii + 1 Content.MoveNext If RowCount <> 0 And (RowCount Mod RowBreakNum = 0) Then Exit Do End If Loop PageRowCnt = PageRowCnt + 1 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If PageRowCnt = 1 Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ElseIf PageRowCnt = 2 Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ElseIf PageRowCnt = 3 Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ElseIf PageRowCnt = 4 Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ElseIf PageRowCnt = 5 Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) End If For jj = RowCount + 1 To Max(30, Max(RowBreakNum, (Int((RowCount - 1) / RowBreakNum) + 1) * RowBreakNum) * PrintFlg) PageRowCnt = PageRowCnt + 1 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If PageRowCnt = 1 Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ElseIf PageRowCnt = 2 Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ElseIf PageRowCnt = 3 Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ElseIf PageRowCnt = 4 Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ElseIf PageRowCnt = 5 Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) Next %>
" & Torihikibi1 & "" & Torihikibi1 & "" & Tekiyo1 & "" & ConvIntToMoney(Kingaku1, false, false) & "" & ConvIntToMoney(Gokei1, false, false) & "" & ConvIntToMoney(Kingaku1, false, false) & "" & Torihikibi2 & "" & Torihikibi2 & "" & Tekiyo2 & "" & ConvIntToMoney(Kingaku2, false, false) & "" & ConvIntToMoney(Gokei2, false, false) & "" & ConvIntToMoney(Kingaku2, false, false) & "" & Torihikibi3 & "" & Torihikibi3 & "" & Tekiyo3 & "" & ConvIntToMoney(Kingaku3, false, false) & "" & ConvIntToMoney(Gokei3, false, false) & "" & ConvIntToMoney(Kingaku3, false, false) & "" & Torihikibi4 & "" & Torihikibi4 & "" & Tekiyo4 & "" & ConvIntToMoney(Kingaku4, false, false) & "" & ConvIntToMoney(Gokei4, false, false) & "" & ConvIntToMoney(Kingaku4, false, false) & "’¼ÚÞ—¿”ï" & ConvIntToMoney(Gokei1, false, false) & "’¼Ú˜J–±”ï" & ConvIntToMoney(Gokei2, false, false) & "’¼ Ú Œo ”ï" & ConvIntToMoney(Gokei3, false, false) & "»‘¢ŠÔÚ”ï" & ConvIntToMoney(Gokei4, false, false) & "» ‘¢ Œ´ ‰¿" & ConvIntToMoney(Gokei1 + Gokei2 + Gokei3 + Gokei4, false, false) & "

" & ConvIntToMoney(Gokei1, false, false) & "" & ConvIntToMoney(Gokei2, false, false) & "" & ConvIntToMoney(Gokei3, false, false) & "" & ConvIntToMoney(Gokei4, false, false) & "’¼ÚÞ—¿”ï" & ConvIntToMoney(Gokei1, false, false) & "’¼Ú˜J–±”ï" & ConvIntToMoney(Gokei2, false, false) & "’¼ Ú Œo ”ï" & ConvIntToMoney(Gokei3, false, false) & "»‘¢ŠÔÚ”ï" & ConvIntToMoney(Gokei4, false, false) & "» ‘¢ Œ´ ‰¿" & ConvIntToMoney(Gokei1 + Gokei2 + Gokei3 + Gokei4, false, false) & "

        ’¼ÚÞ—¿”ï" & ConvIntToMoney(Gokei1, false, false) & "’¼Ú˜J–±”ï" & ConvIntToMoney(Gokei2, false, false) & "’¼ Ú Œo ”ï" & ConvIntToMoney(Gokei3, false, false) & "»‘¢ŠÔÚ”ï" & ConvIntToMoney(Gokei4, false, false) & "» ‘¢ Œ´ ‰¿" & ConvIntToMoney(Gokei1 + Gokei2 + Gokei3 + Gokei4, false, false) & "

<% If PrintFlg <> 1 Then %>
<% End If %>
<% If PrintFlg = 1 Then Response.Write(PrintFooter()) End If %>
<% If (Content.BOF Or Content.EOF) Then Exit For End If Next If PrintFlg = 0 Then %>
<% End if End Function %>