<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Cnt Dim PageType PageType = Request("PageType") Dim Label If PageType = "Uriage" Then Label = "売上帳" Else Label = "仕入帳" End If Label = "原価計算表" Dim RouteType RouteType = Request("RouteType") Dim BunsyoNaiyoCD BunsyoNaiyoCD = Request("BunsyoNaiyoCD") Dim Mode Mode = Request("Mode") Dim ii, jj Dim Query Dim Content 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 AutoZandakaNyuryoku ' AutoZandakaNyuryoku = GetEnshuParam(EnshuCD, "残高自動計算") %> <% = HtmlHeader("sj3tyobored11") %>
<% If InStr(RouteType, "HojyoboOnly") > 0 Then Response.Write(HtmlDesign(2)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(3)) If InStr(RouteType, "HojyoboOnly") > 0 Then Response.Write(HttpL2("補助簿ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s12.asp?RouteType=" & RouteType & "')", Label, "", "", "", "", "","", "", "", "")) ElseIf PackageMode = 1 Then Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "手入力帳簿", "tblbtn( '/" & HomeAlias & "/user/bk/menu_cyac3.asp')", Label, "", "", "", "", "", "", "")) Else ' Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s1.asp')", "帳簿", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s12.asp')", Label, "", "", "")) Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s6.asp')", Label, "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) ' Response.Write(HttpL3_1("保存", "SubmitCheck()", "行の追加", "SpreadAddItem2(document.vaSpread1);", "行の挿入", "SpreadInsertItem(document.vaSpread1);", "行の削除", "SpreadDelItem(document.vaSpread1);", "", "")) If GB_IEmode = "1" Then '※HttpL3_1にボタンを追加する事前処理(210107小野) ' Call HttpL3_1_AddBtn( "", "", "", "", "", "", "", "", "", "") Response.Write(HttpL3_1("保存", "SubmitCheck()", "行の追加", "SpreadAddItem2(document.vaSpread1);", "行の挿入", "SpreadInsertItem(document.vaSpread1);", "行の削除", "SpreadDelItem(document.vaSpread1);", "", "")) Else '※HttpL3_1にボタンを追加する事前処理(210107小野) ' Call HttpL3_1_AddBtn( "", "", "", "", "", "", "", "", "", "") Response.Write(HttpL3_1("保存", "SubmitCheck()", "行挿入", "SpRowInsert();", "行削除", "SpRowDelete();", "行↑", "SpRowShift('Up');", "行↓", "SpRowShift('Dn');")) End If Response.Write(HttpL3_2("照会", "tblbtn('fk_genkakeisanhyo_view.asp?RouteType=" & RouteType & "&PageType=" & PageType & "&Mode=" & Mode & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "')", "戻る", "tblbtn('" & HomeAliasSL & "user/bk/shiireuriage/fd_seizosashizusho_ichiran.asp?RouteType=" & RouteType & "&Mode=" & Mode & "&GenkaHyo=1')", "", "", "", "", "", "")) Response.Write(HttpL4(Label, "")) %>
<% If GB_IEmode <> "1" Then %> <% Else 'IEモード %> <% End If %> <% = HtmlFooter %> <% End Sub %>