<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Cnt Dim HyojiFlg HyojiFlg = Request("HyojiFlg") Dim ShijoCD ShijoCD = Request("ShijoCD") '運用管理対応(080415小野) Dim TmpGakuseiNo Dim Tmp2GakuseiNo '製造部対応(080411小野) Dim Mode Mode = Request("Mode") Dim Label If Mode = "Seizo" Then '製造部対応(080411小野) Label = "材料" Else Label = "商品" End If Dim GenkinNyusyukinCD, Genkin , Kingaku Dim Query, Content, Content1, ContentKoza , QueryKoza , Query1 Dim NumGinko NumGinko = 0 Dim ii, jj, kk Dim bCheck Query = "exec SPK現金入出金取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 0, 0" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Genkin = Content.Fields("金額") End If Dim TmpKaikeiSyuryobi Dim JishaZaikoHitsuyo Dim Kitakuriyou Dim KitakuKeiyaku Dim KitakuGaisyaCD Dim HyojunTankaHyoji Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then TmpKaikeiSyuryobi = Content.Fields("会計終了日") JishaZaikoHitsuyo = "" & Content.Fields("出庫時在庫必要") HyojunTankaHyoji = "" & Content.Fields("標準販売単価表示") Kitakuriyou = "" & Content.Fields("寄託倉庫利用") Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KitakuGaisyaCD = "" & Content.Fields("寄託会社CD") '運用管理対応(080415小野) TmpGakuseiNo = "" & Content.Fields("学生番号") If "" & Content.Fields("自社フラグ") = "1" Then Tmp2GakuseiNo = "" & Content.Fields("学生番号") End If End If End If If Kitakuriyou = "1" Then Kitakuriyou = 1 Else Kitakuriyou = 0 End If KitakuKeiyaku = KitakuKeiyakuJoutai() 'int型1文字 'GyosyuCDをGB_Gyosyuに引継ぎ(運用管理用) If Request("GyosyuCD") <> "" Then GB_Gyosyu = Request("GyosyuCD") End If '商品市場配列作成(081111小野)※製造部は材料配列 Dim ShohinMeishoAry ReDim ShohinMeishoAry(0) Dim ShohinShijoAry ReDim ShohinShijoAry(0) Query = "exec SPM" & Label & "一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & TmpGakuseiNo & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) ReDim PreServe ShohinMeishoAry(UBound(ShohinMeishoAry) + 1) ReDim PreServe ShohinShijoAry(UBound(ShohinShijoAry) + 1) ShohinMeishoAry(UBound(ShohinMeishoAry)) = "" & Content.Fields("" & Label & "名称") If "" & Content.Fields("市場CD") <> "" Then ShohinShijoAry(UBound(ShohinShijoAry)) = "" & Content.Fields("市場CD") Else ShohinShijoAry(UBound(ShohinShijoAry)) = "higenteietnegih" End If Content.MoveNext Loop %> <% = HtmlHeader("") %>
"> <% Response.Write(HtmlDesign(1)) If GB_Admin >= 1 Then Response.Write(HttpL1(4)) Else Response.Write(HttpL1(2)) End If If GB_Admin >= 1 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu.asp')", "マスター管理", "tblbtn( '/" & HomeAlias & "/admin/master/fm_master_select.asp')", "会社マスター", "tblbtn( '/" & HomeAlias & "/admin/master/kaisya/fm_kaisya_view.asp?Action=2&KaisyaCD=" & KaisyaCD & "&HyojiFlg=" & HyojiFlg & "&ShijoCD=" & ShijoCD & "' )", "繰越残高設定", "", "", "", "", "")) ElseIf Mode = "Seizo" Then '製造部対応(080411小野) Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s6.asp')", "繰越残高設定" , "", "", "", "", "")) ElseIf GB_Gyosyu <> "B" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s1.asp')", "繰越残高設定", "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo , "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & "1.asp')", "繰越残高設定", "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) If Mode <> "Seizo" And GB_Gyosyu = "S" And Kitakuriyou = 1 And KitakuKeiyaku < 1 Then Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", "")) Else ' Response.Write(HttpL3_1("保存", "SubmitCheck()", "行の追加", "SpreadAddItemTGL();", "行の挿入", "SpreadInsertItemTGL();", "行の削除", "SpreadDelItemTGL();", "", "")) If GB_IEmode = "1" Then Response.Write(HttpL3_1("保存", "SubmitCheck()", "行の追加", "SpreadAddItemTGL();", "行の挿入", "SpreadInsertItemTGL();", "行の削除", "SpreadDelItemTGL();", "", "")) Else '※HttpL3_1にボタンを追加する事前処理(210107小野) Call HttpL3_1_AddBtn( "", "", "", "", "", "", "", "", "", "") 'Response.Write(HttpL3_1("保存", "SubmitCheck()", "行挿入", "SpRowInsertSub();", "行削除", "SpRowDeleteSub();", "行↑", "SpRowShiftSub('Up');", "行↓", "SpRowShiftSub('Dn');")) Response.Write(HttpL3_1("保存", "SubmitCheck()", "行挿入", "SpRowInsertSub();", "行削除", "SpRowDeleteSub();", "", "", "", "")) End If End If Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Dim KaishaHyoji If GB_Admin > 0 Then KaishaHyoji = ConvKaisyaRyakuMeisyoDx(EnshuCD, KaisyaCD) End If If Mode = "Seizo" Then '製造部対応(080411小野) Response.Write(HttpL4("製造部繰越残高設定", KaishaHyoji)) Else Response.Write(HttpL4("繰越残高設定", KaishaHyoji)) End If If GB_Admin < 1 And Mode <> "Seizo" Then Response.Write(HttpL5("会計期間内に取引のある口座は削除できません")) End If %>
<% If GB_IEmode <> "1" Then %> <% Else 'IEモード %> <% For ii = 1 To 2 'vaSpread1・2の定義を生成する %> <% Next %> <% If Mode <> "Seizo" And GB_Gyosyu = "S" And Kitakuriyou = 1 And KitakuKeiyaku < 1 Then %> <% Else %> <% End If %> <% End If %> <% = HtmlFooter %> <% End Sub %>