<% Function GenkaKeisanhyo(EnshuCD, KaisyaCD, BunsyoNaiyoCD, Yobi1, Yobi2, Yobi3, Yobi4, Yobi5, Yobi6, Yobi7, Yobi8, Yobi9, Yobi10, AutoFlg, PrintFlg) Dim PageType ' If BunsyoSyuruiCD = "MC" Then PageType = "材料仕入帳" ' 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製造指図書取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & BunsyoNaiyoCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then SyohinCD = Content.Fields("商品CD") KeiHi = Content.Fields("経費") RoumuHi = Content.Fields("労務費") 'Response.Write(SyohinCD) 'Exit Function ' Lot = 1 'ゼロ除算例外対策 If Left(Content.Fields("製造状況区分"), 1) = "P" Or Left(Content.Fields("製造状況区分"), 1) = "M" Then SyohinKubun = "S" 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("ロット") Tani = Content2.Fields("単位") 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("ロット") Tani = Content2.Fields("単位") End If End If SeizoLot = Content.Fields("商品数量") If Lot <> 0 Then SeizoLot = SeizoLot / Lot End If SoSeizoSu = Content.Fields("商品数量") SyohinTanka = Content.Fields("商品単価") Syoribi = SetTimeYYYYMMDD(Content.Fields("処理日")) Kanryobi = SetTimeYYYYMMDD(Content.Fields("完了日")) SeizouKubun = Content.Fields("製造状況区分") ZBunsyoNaiyoCD = Content.Fields("材料出庫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自動転記補助簿照会 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'AH', '%', '', ''" SyoruiMei = "仕入帳(自動)" Else Query = "exec SPK自動転記補助簿照会 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'AG', '%', '', ''" SyoruiMei = "売上帳(自動)" End If ElseIf AutoFlg = 1 Then If BunsyoSyuruiCD = "MC" Then Query = "exec SPR仕入売上実績 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','SC','SS','SX',''" SyoruiMei = "入庫実績" Else Query = "exec SPR仕入売上実績 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','SU', 'SY', '',''" SyoruiMei = "出庫実績" End If Else ' If BunsyoSyuruiCD = "MC" Then Query = "exec SPK補助簿_原価計算表取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & BunsyoNaiyoCD & "'" SyoruiMei = "原価計算表" ' Else ' Query = "exec SPK補助簿_売上帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" ' SyoruiMei = "売上帳" ' End If End If 'Response.Write(Query) Set Content = OpenQuery(Query) If PrintFlg = 0 Then %> <TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" STYLE="BORDER:0px solid #000000" WIDTH="660" HEIGHT="100%"><tr><td> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="100%" HEIGHT="100%"><tr><td> <% End If '表示と印刷でサイズ可変 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 %> <TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" WIDTH="660" HEIGHT="100%"> <TR> <TD ALIGN="CENTER" valign="top"> <% If PrintFlg = 1 Then Response.Write(PrintHeader1(AutoFlg)) End if %> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="<% If PrintFlg = 1 Then %>0<% Else %>10<% End If %>" BGCOLOR="#FFFFFF" WIDTH="100%" HEIGHT="100%"> <TR> <TD ALIGN="CENTER" valign="top"> <TABLE WIDTH="<% = WidthParent %>" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%"> <tr> <td valign="top" align="center" height="30"> <table border="0" width="<% = WidthParent2 %>" cellspacing="0" cellpadding="0"> <tr> <td align="left" width="35%" nowrap></td> <td align="center" width="30%" class="bb2" nowrap><% = SetStringInsertSpace(SyoruiMei) %></td> <td align="right" width="35%" nowrap class="tx1214"><% If AutoFlg <> -1 And PrintFlg = 1 Then %><% = Page %>ページ<% End If %></td> </tr> </table> </td> </tr> <tr> <td valign="top" align="center" height="30"> <table border="0" width="700" cellspacing="0" cellpadding="0"> <tr> <td class="tx1416" align="left" nowrap> <table border="0" cellspacing="4" cellpadding="0"> <tr> <td class="tx1416" nowrap> 製造指図書 </td> <td class="tx1416" style="border-bottom: 1px solid red;" nowrap> #<% = BunsyoNaiyoCD %> </td> </tr> <tr> <td class="tx1416" nowrap> 製 品 名 </td> <td class="tx1416" style="border-bottom: 1px solid red;" nowrap> <% = ShohinMeisho %> </td> </tr> </table> </td> <td class="tx1618" align="center" nowrap> <table border="0" cellspacing="4" cellpadding="0"> <tr> <td class="tx1416" nowrap> 着手日 </td> <td class="tx1416" style="border-bottom: 1px solid red;" nowrap> <% = SetDate(Syoribi, 3) %> </td> </tr> <tr> <td class="tx1416" nowrap> 完成日 </td> <td class="tx1416" style="border-bottom: 1px solid red;" nowrap> <% = SetDate(Kanryobi, 3) %> </td> </tr> </table> </td> <td class="tx1416" align="right" nowrap> <table border="0" cellspacing="4" cellpadding="0"> <tr> <td class="tx1416" nowrap> 命令数量 </td> <td class="tx1416" style="border-bottom: 1px solid red;" nowrap> <% = SeizoLot %> ロット </td> </tr> <tr> <td class="tx1416" nowrap> 完成数量 </td> <td class="tx1416" style="border-bottom: 1px solid red;" nowrap> <% If Kanryobi <> "" Then %> <% = SeizoLot %> ロット <% Else %> <% End If %> </td> </tr> </table> </td> </tr> </table> </td> </tr> <TR> <TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="600"> <TABLE WIDTH="<% = WidthParent2 %>" HEIGHT="20" BORDER="0" CELLPADDING="0" CELLSPACING="0" CLASS="bt3" STYLE="border-collapse: collapse"> <TR ALIGN="CENTER"> <TD class="br3b1" colspan="3">直接材料費</TD> <TD class="br3b1" colspan="3">直接労務費</TD> <TD class="br3b1" colspan="3">直接経費</TD> <TD class="br3b1" colspan="3">製造間接費</TD> <TD class="bb1" colspan="2">集 計</TD> </TR> <TR ALIGN="CENTER"> <TD WIDTH="<% = WidthTorihikibi %>" HEIGHT="<% = HeightCell %>" class="br1b1">日付</TD> <TD WIDTH="<% = WidthTekiyo %>" HEIGHT="<% = HeightCell %>" class="br3b1">摘要</TD> <TD WIDTH="<% = WidthKingaku %>" HEIGHT="<% = HeightCell %>" class="br3b1">金額</TD> <TD WIDTH="<% = WidthTorihikibi %>" HEIGHT="<% = HeightCell %>" class="br1b1">日付</TD> <TD WIDTH="<% = WidthTekiyo %>" HEIGHT="<% = HeightCell %>" class="br3b1">摘要</TD> <TD WIDTH="<% = WidthKingaku %>" HEIGHT="<% = HeightCell %>" class="br3b1">金額</TD> <TD WIDTH="<% = WidthTorihikibi %>" HEIGHT="<% = HeightCell %>" class="br1b1">日付</TD> <TD WIDTH="<% = WidthTekiyo %>" HEIGHT="<% = HeightCell %>" class="br3b1">摘要</TD> <TD WIDTH="<% = WidthKingaku %>" HEIGHT="<% = HeightCell %>" class="br3b1">金額</TD> <TD WIDTH="<% = WidthTorihikibi %>" HEIGHT="<% = HeightCell %>" class="br1b1">日付</TD> <TD WIDTH="<% = WidthTekiyo %>" HEIGHT="<% = HeightCell %>" class="br3b1">摘要</TD> <TD WIDTH="<% = WidthKingaku %>" HEIGHT="<% = HeightCell %>" class="br3b1">金額</TD> <TD HEIGHT="<% = HeightCell %>" class="br3b1">摘 要</TD> <TD WIDTH="<% = WidthKingaku %>" HEIGHT="<% = HeightCell %>" class="bb1">金額</TD> </TR> </TABLE> </TD> </TR> <TR> <TD VALIGN="TOP"> <% If PrintFlg <> 1 Then %> <DIV ID="Layer1" STYLE="position:relative; left:0px; top:-1px; width:<% = WidthParent %>px; height:100%; z-index:1; overflow: auto;"> <% End If %> <TABLE ID="SyoukaiList" WIDTH="<% = WidthParent2 %>" BORDER="0" CELLSPACING="0" CELLPADDING="0" CLASS="tx1416" STYLE="border-collapse: collapse"> <% 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("直接労務費") <> "" Then Gokei2 = Gokei2 + Content.Fields("直接労務費") End If If "" & Content.Fields("直接経費") <> "" Then Gokei3 = Gokei3 + Content.Fields("直接経費") 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("直接材料費日付")) Torihikibi2 = SetTimeMMDD(Content.Fields("直接労務費日付")) Torihikibi3 = SetTimeMMDD(Content.Fields("直接経費日付")) Torihikibi4 = SetTimeMMDD(Content.Fields("製造間接費日付")) Tekiyo1 = Content.Fields("直接材料費摘要") Tekiyo2 = Content.Fields("直接労務費摘要") Tekiyo3 = Content.Fields("直接経費摘要") Tekiyo4 = Content.Fields("製造間接費摘要") Kingaku1 = Content.Fields("直接材料費") Kingaku2 = Content.Fields("直接労務費") Kingaku3 = Content.Fields("直接経費") Kingaku4 = Content.Fields("製造間接費") End If RowCount = RowCount + 1 PageRowCnt = PageRowCnt + 1 Response.Write("<TR ALIGN=""CENTER"" class=""br1"">" & vbCrLf) If RowCount = Bottom + 1 Then Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1b3"">" & Torihikibi1 & "</TD>" & vbCrLf) Else Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1"">" & Torihikibi1 & "</TD>" & vbCrLf) End If Response.Write("<TD WIDTH=""" & WidthTekiyo & """ ALIGN=""LEFT"" class=""br3"">" & Tekiyo1 & "</TD>" & vbCrLf) If RowCount = Bottom Then Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3b1"">" & ConvIntToMoney(Kingaku1, false, false) & "</TD>" & vbCrLf) ElseIf RowCount = Bottom + 1 Then Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3b3"">" & ConvIntToMoney(Gokei1, false, false) & "</TD>" & vbCrLf) Else Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3"">" & ConvIntToMoney(Kingaku1, false, false) & "</TD>" & vbCrLf) End If If RowCount = Bottom + 1 Then Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1b3"">" & Torihikibi2 & "</TD>" & vbCrLf) Else Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1"">" & Torihikibi2 & "</TD>" & vbCrLf) End If Response.Write("<TD WIDTH=""" & WidthTekiyo & """ ALIGN=""LEFT"" class=""br3"">" & Tekiyo2 & "</TD>" & vbCrLf) If RowCount = Bottom Then Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3b1"">" & ConvIntToMoney(Kingaku2, false, false) & "</TD>" & vbCrLf) ElseIf RowCount = Bottom + 1 Then Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3b3"">" & ConvIntToMoney(Gokei2, false, false) & "</TD>" & vbCrLf) Else Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3"">" & ConvIntToMoney(Kingaku2, false, false) & "</TD>" & vbCrLf) End If If RowCount = Bottom + 1 Then Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1b3"">" & Torihikibi3 & "</TD>" & vbCrLf) Else Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1"">" & Torihikibi3 & "</TD>" & vbCrLf) End If Response.Write("<TD WIDTH=""" & WidthTekiyo & """ ALIGN=""LEFT"" class=""br3"">" & Tekiyo3 & "</TD>" & vbCrLf) If RowCount = Bottom Then Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3b1"">" & ConvIntToMoney(Kingaku3, false, false) & "</TD>" & vbCrLf) ElseIf RowCount = Bottom + 1 Then Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3b3"">" & ConvIntToMoney(Gokei3, false, false) & "</TD>" & vbCrLf) Else Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3"">" & ConvIntToMoney(Kingaku3, false, false) & "</TD>" & vbCrLf) End If If RowCount = Bottom + 1 Then Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1b3"">" & Torihikibi4 & "</TD>" & vbCrLf) Else Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1"">" & Torihikibi4 & "</TD>" & vbCrLf) End If Response.Write("<TD WIDTH=""" & WidthTekiyo & """ ALIGN=""LEFT"" class=""br3"">" & Tekiyo4 & "</TD>" & vbCrLf) If RowCount = Bottom Then Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3b1"">" & ConvIntToMoney(Kingaku4, false, false) & "</TD>" & vbCrLf) ElseIf RowCount = Bottom + 1 Then Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3b3"">" & ConvIntToMoney(Gokei4, false, false) & "</TD>" & vbCrLf) Else Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3"">" & ConvIntToMoney(Kingaku4, false, false) & "</TD>" & vbCrLf) End If If PageRowCnt = 1 Then Response.Write("<TD ALIGN=""CENTER"" class=""br3"">直接材料費</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""b0"">" & ConvIntToMoney(Gokei1, false, false) & "</TD>" & vbCrLf) ElseIf PageRowCnt = 2 Then Response.Write("<TD ALIGN=""CENTER"" class=""br3"">直接労務費</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""b0"">" & ConvIntToMoney(Gokei2, false, false) & "</TD>" & vbCrLf) ElseIf PageRowCnt = 3 Then Response.Write("<TD ALIGN=""CENTER"" class=""br3"">直 接 経 費</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""b0"">" & ConvIntToMoney(Gokei3, false, false) & "</TD>" & vbCrLf) ElseIf PageRowCnt = 4 Then Response.Write("<TD ALIGN=""CENTER"" class=""br3"">製造間接費</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""b0"">" & ConvIntToMoney(Gokei4, false, false) & "</TD>" & vbCrLf) ElseIf PageRowCnt = 5 Then Response.Write("<TD ALIGN=""CENTER"" class=""br3"">製 造 原 価</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""b0"">" & ConvIntToMoney(Gokei1 + Gokei2 + Gokei3 + Gokei4, false, false) & "</TD>" & vbCrLf) Else Response.Write("<TD ALIGN=""CENTER"" class=""br3""><br></TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""b0""><br></TD>" & vbCrLf) End If Response.Write("</TR>" & 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("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1b3""></TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthTekiyo & """ ALIGN=""LEFT"" class=""br3""></TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3b3"">" & ConvIntToMoney(Gokei1, false, false) & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1b3""></TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthTekiyo & """ ALIGN=""LEFT"" class=""br3""></TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3b3"">" & ConvIntToMoney(Gokei2, false, false) & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1b3""></TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthTekiyo & """ ALIGN=""LEFT"" class=""br3""></TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3b3"">" & ConvIntToMoney(Gokei3, false, false) & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1b3""></TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthTekiyo & """ ALIGN=""LEFT"" class=""br3""></TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3b3"">" & ConvIntToMoney(Gokei4, false, false) & "</TD>" & vbCrLf) If PageRowCnt = 1 Then Response.Write("<TD ALIGN=""CENTER"" class=""br3"">直接材料費</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""b0"">" & ConvIntToMoney(Gokei1, false, false) & "</TD>" & vbCrLf) ElseIf PageRowCnt = 2 Then Response.Write("<TD ALIGN=""CENTER"" class=""br3"">直接労務費</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""b0"">" & ConvIntToMoney(Gokei2, false, false) & "</TD>" & vbCrLf) ElseIf PageRowCnt = 3 Then Response.Write("<TD ALIGN=""CENTER"" class=""br3"">直 接 経 費</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""b0"">" & ConvIntToMoney(Gokei3, false, false) & "</TD>" & vbCrLf) ElseIf PageRowCnt = 4 Then Response.Write("<TD ALIGN=""CENTER"" class=""br3"">製造間接費</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""bb1"">" & ConvIntToMoney(Gokei4, false, false) & "</TD>" & vbCrLf) ElseIf PageRowCnt = 5 Then Response.Write("<TD ALIGN=""CENTER"" class=""br3"">製 造 原 価</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""bb3"">" & ConvIntToMoney(Gokei1 + Gokei2 + Gokei3 + Gokei4, false, false) & "</TD>" & vbCrLf) Else Response.Write("<TD ALIGN=""CENTER"" class=""br3""><br></TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""b0""><br></TD>" & vbCrLf) End If For jj = RowCount + 1 To Max(15, Max(RowBreakNum, (Int((RowCount - 1) / RowBreakNum) + 1) * RowBreakNum) * PrintFlg) PageRowCnt = PageRowCnt + 1 Response.Write("<TR ALIGN=""CENTER"" class=""br1"">" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1""> </TD>" & vbCrLf) Response.Write("<TD ALIGN=""LEFT"" class=""br3""></TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3""> </TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1""> </TD>" & vbCrLf) Response.Write("<TD ALIGN=""LEFT"" class=""br3""></TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3""> </TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1""> </TD>" & vbCrLf) Response.Write("<TD ALIGN=""LEFT"" class=""br3""></TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3""> </TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthTorihikibi & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" class=""br1""> </TD>" & vbCrLf) Response.Write("<TD ALIGN=""LEFT"" class=""br3""></TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""br3""> </TD>" & vbCrLf) If PageRowCnt = 1 Then Response.Write("<TD ALIGN=""CENTER"" class=""br3"">直接材料費</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""b0"">" & ConvIntToMoney(Gokei1, false, false) & "</TD>" & vbCrLf) ElseIf PageRowCnt = 2 Then Response.Write("<TD ALIGN=""CENTER"" class=""br3"">直接労務費</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""b0"">" & ConvIntToMoney(Gokei2, false, false) & "</TD>" & vbCrLf) ElseIf PageRowCnt = 3 Then Response.Write("<TD ALIGN=""CENTER"" class=""br3"">直 接 経 費</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""b0"">" & ConvIntToMoney(Gokei3, false, false) & "</TD>" & vbCrLf) ElseIf PageRowCnt = 4 Then Response.Write("<TD ALIGN=""CENTER"" class=""br3"">製造間接費</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""bb1"">" & ConvIntToMoney(Gokei4, false, false) & "</TD>" & vbCrLf) ElseIf PageRowCnt = 5 Then Response.Write("<TD ALIGN=""CENTER"" class=""br3"">製 造 原 価</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""bb3"">" & ConvIntToMoney(Gokei1 + Gokei2 + Gokei3 + Gokei4, false, false) & "</TD>" & vbCrLf) Else Response.Write("<TD ALIGN=""CENTER"" class=""br3""><br></TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthKingaku & """ ALIGN=""RIGHT"" class=""b0""><br></TD>" & vbCrLf) End If Response.Write("</TR>" & vbCrLf) Next %> </TABLE> <% If PrintFlg <> 1 Then %> </DIV> <% End If %> </TD> </TR> </TABLE> <% If PrintFlg = 1 Then Response.Write(PrintFooter()) End If %> </TD> </TR> </TABLE> </TD> </TR> </TABLE> <% If (Content.BOF Or Content.EOF) Then Exit For End If Next If PrintFlg = 0 Then %> </td></tr></table> </td></tr></table> <% End if End Function %>