<% ' ' %> <% main() Sub main() Dim KanjyoCD, KanjyoMeisyo, TekiyoCD, Tekiyo, KarikataKingaku, KashikataKingaku Dim Query, Content, Content2 Dim db Dim Genkin Dim SyohinCD, Suryo, Tanka Dim GinkoCD(), GinkoKingaku(), GinkoKozaKubun(), GinkoSakujyo(), SyohinSakujyo(), DistGinkoCD() Dim TmpSyohinCD, TmpSyohinKosu, TmpSyohinKingaku, TmpGinkoCD, TmpGinkoKingaku, TmpGinkoSakujyo, TmpSyohinSakujyo Dim SyohinKosu1 , SyohinCD1 , Kingaku Dim KozaBango, KozaKubun, GinkoCD1, GinkoCD2 Dim NumGinko NumGinko = CInt(Request("NumGinko")) ReDim GinkoCD(NumGinko), GinkoKingaku(NumGinko), GinkoKozaKubun(NumGinko), GinkoSakujyo(NumGinko), DistGinkoCD(NumGinko) Genkin = Request("Genkin") Dim Kitakuriyou Kitakuriyou = Request("Kitakuriyou") Dim KitakuGaisyaCD KitakuGaisyaCD = Request("KitakuGaisyaCD") Dim SendValue1, SendValue2, TmpValue1, TmpValue2 SendValue1 = Request("SendValue1") SendValue2 = Request("SendValue2") If Request("KaisyaCD") <> "" Then KaisyaCD = Request("KaisyaCD") End If '運用管理対応(080415小野) Dim Tmp2GakuseiNo Tmp2GakuseiNo = Request("TmpGakuseiNo") '製造部対応(080411小野) Dim Mode Mode = Request("Mode") Dim Label If Mode = "Seizo" Then '製造部対応(080411小野) Label = "材料" Else Label = "商品" End If Dim ii, jj, kk For ii = 1 To NumGinko 'NumGinkoはフォームの口座数 jj = "" & ii TmpGinkoCD = Request("GinkoCD" & jj) TmpGinkoKingaku = ConvMoneyToInt(Request("GinkoKingaku" & jj)) TmpGinkoSakujyo = Request("GinkoSakujyo" & jj) If TmpGinkoCD <> "" Then Dim Tmp Tmp = split(TmpGinkoCD, "_") GinkoCD(ii) = Tmp(0) GinkoKozaKubun(ii) = Tmp(1) End If If TmpGinkoKingaku <> "" Then GinkoKingaku(ii) = ConvMoneyToInt(TmpGinkoKingaku) End If If TmpGinkoSakujyo = "ON" Then GinkoSakujyo(ii) = 1 Else GinkoSakujyo(ii) = 0 End If Next Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Kitakuriyou = "" & Content.Fields("寄託倉庫利用") End If 'Response.Write(SendValue1 & vbCrlf) 'Response.Write(SendValue2 & vbCrlf) 'Response.Write(GinkoCD(1) & vbCrlf) 'Response.Write(GinkoKingaku(1) & vbCrlf) 'Exit Sub '残高設定一括コピー用追加(080325小野)コピー元を取得する Dim ShijoCD ShijoCD = Request("ShijoCD") Dim HyojiFlg HyojiFlg = Request("HyojiFlg") If "" & HyojiFlg = "" Then HyojiFlg = "1" '表示フラグが無い場合は通常処理なので同時同業会社も含める End If Dim CopyMoto CopyMoto = Request("CopyMoto") Dim TmpGakuseiNo TmpGakuseiNo = "" Dim TmpGyoshu '会社絞込み用業種CD If CopyMoto <> "" Then KaisyaCD = "" Query = "exec SPM会社取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & CopyMoto & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then TmpGyoshu = Content.Fields("業種CD") If GB_EnshuKubun = "P" And "" & Content.Fields("学生番号") <> "" Then TmpGakuseiNo = "-" & Content.Fields("学生番号") End If Else Exit Sub End If Query = "exec SPK現金入出金取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & CopyMoto & "', 0, 0" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Genkin = Content.Fields("金額") End If ReDim GinkoCD(0), GinkoKingaku(0), GinkoKozaKubun(0), GinkoSakujyo(0), DistGinkoCD(0) 'リセット ii = 0 Query = "exec SPB銀行口座一覧4 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & CopyMoto & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) ii = ii + 1 ReDim PreServe GinkoCD(ii), GinkoKingaku(ii), GinkoKozaKubun(ii), GinkoSakujyo(ii), DistGinkoCD(ii) GinkoCD(ii) = Replace(Content.Fields("銀行CD"), TmpGakuseiNo, "") '銀行CDから学生番号を除外する GinkoKozaKubun(ii) = Content.Fields("口座区分") GinkoKingaku(ii) = 0 GinkoSakujyo(ii) = 0 Query = "exec SPB銀行口座入出金一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & CopyMoto & "', '" & GinkoCD(ii) & TmpGakuseiNo & "', '" & GinkoKozaKubun(ii) & "', ''" Set Content2 = OpenQuery(Query) Do While Not(Content2.BOF Or Content2.EOF) If Content2.Fields("処理時期区分") = 0 Then GinkoKingaku(ii) = GinkoKingaku(ii) + Content2.Fields("金額") End If Content2.MoveNext Loop Content.MoveNext Loop NumGinko = ii 'コピー元の口座数を保持 Dim BunsyoSyuruiCD Dim SyorijikiKubun0 '製造部対応(080411小野) If Mode = "Seizo" Then BunsyoSyuruiCD = "ZS" Else BunsyoSyuruiCD = "SS" End If SendValue1 = "" 'リセット '処理時期区分0の入出庫番号を取得 Query = "exec SPD入出庫一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & CopyMoto & "', '', '" & BunsyoSyuruiCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("処理時期区分") = 0 Then SyorijikiKubun0 = Content.Fields("文書内容CD") End If Content.MoveNext Loop Query = "exec SPD入出庫取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & CopyMoto & "', '', '" & BunsyoSyuruiCD & "', '" & SyorijikiKubun0 & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Mode = "Seizo" Then '製造部対応(080411小野) SendValue1 = SendValue1 & "" & ConvZairyoMeisyo(Content.Fields("商品CD")) & "," Else SendValue1 = SendValue1 & "" & ConvSyohinMeisyo(Content.Fields("商品CD")) & "," End If SendValue1 = SendValue1 & "" & Content.Fields("数量") & "," SendValue1 = SendValue1 & "" & Content.Fields("単価") & "," SendValue1 = SendValue1 & "" & Content.Fields("数量") * Content.Fields("単価") & ";" Content.MoveNext Loop SendValue2 = "" 'リセット '処理時期区分0の入出庫番号を取得 Query = "exec SPD入出庫一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & CopyMoto & "', '', 'MS'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("処理時期区分") = 0 Then SyorijikiKubun0 = Content.Fields("文書内容CD") End If Content.MoveNext Loop Query = "exec SPD入出庫取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & CopyMoto & "', '', 'MS', '" & SyorijikiKubun0 & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) SendValue2 = SendValue2 & "" & ConvSyohinMeisyo(Content.Fields("商品CD")) & "," SendValue2 = SendValue2 & "" & Content.Fields("数量") & "," SendValue2 = SendValue2 & "" & Content.Fields("単価") & "," SendValue2 = SendValue2 & "" & Content.Fields("数量") * Content.Fields("単価") & ";" Content.MoveNext Loop Else Query = "exec SPM会社取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then TmpGyoshu = Content.Fields("業種CD") If GB_EnshuKubun = "P" And "" & Content.Fields("学生番号") <> "" Then TmpGakuseiNo = "-" & Content.Fields("学生番号") End If End If For ii = 1 To NumGinko GinkoCD(ii) = Replace(GinkoCD(ii), TmpGakuseiNo, "") '銀行CDから学生番号を除外する Next End If 'Response.Write(GinkoCD(1) & vbCrlf) 'Response.Write(GinkoKingaku(1) & vbCrlf) 'Response.Write(SendValue1 & vbCrlf) 'Response.Write(SendValue2 & vbCrlf) 'Exit Sub Dim SakuseisakiGinkoCD '一括コピーかそうでないかのフラグ '(MST処理のため。KaisyaCDが存在&マスタ会社の場合のみMST処理とする) Dim MSTKaishaCD If GB_Admin > 0 Then MSTKaishaCD = KaisyaCD If MSTKaishaCD <> "" Then Query = "exec SPM会社取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & MSTKaishaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then If "" & Content.Fields("学生番号") <> "" Then MSTKaishaCD = "" End If End If End If End If '残高設定一括コピー用追加(080325小野)会社CDがNULLならば会社一覧ループで処理する Query = "exec SPM会社一覧2 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & TmpGyoshu & "', " & HyojiFlg Set Content2 = OpenQuery(Query) Do While Not(Content2.BOF Or Content2.EOF) If ShijoCD = "" Or "" & Content2.Fields("市場CD") = ShijoCD Then '市場絞込み If KaisyaCD <> "" & Content2.Fields("会社CD") Then KaisyaCD = Content2.Fields("会社CD") End If TmpGakuseiNo = "" If GB_EnshuKubun = "P" And "" & Content2.Fields("学生番号") <> "" Then TmpGakuseiNo = "-" & Content2.Fields("学生番号") End If Dim NumGinko2 NumGinko2 = NumGinko If CopyMoto <> "" Then '残高設定一括コピー用追加(080325小野)学生番号・作成先銀行CDを取得する SakuseisakiGinkoCD = "" If GB_EnshuKubun = "P" And "" & Content2.Fields("自社フラグ") <> "1" And "" & Content2.Fields("学生番号") <> "" Then SakuseisakiGinkoCD = Request("GinkoCD_" & Replace(Content2.Fields("会社CD"), "-" & Content2.Fields("学生番号"), "HyphenehpyH" & Content2.Fields("学生番号"))) Else SakuseisakiGinkoCD = Request("GinkoCD_" & Content2.Fields("会社CD")) End If For ii = 1 To NumGinko GinkoCD(ii) = SakuseisakiGinkoCD '上書き Next '残高設定一括コピー用追加(080325小野)期首段高を0にすべき銀行口座を取得する '※上記で上書きした銀行CDが基準になるため口座区分がコピー元に該当しない口座のみ0になる Dim bExistDistGinko Query = "exec SPB銀行口座一覧4 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) bExistDistGinko = 0 For ii = 1 To NumGinko 'コピー元配列ループ ↓此処では学生番号を除外して比較する If GinkoCD(ii) = Replace(Content.Fields("銀行CD"), TmpGakuseiNo, "") And GinkoKozaKubun(ii) = Content.Fields("口座区分") Then bExistDistGinko = 1 Exit For End If Next If bExistDistGinko = 0 Then NumGinko2 = NumGinko2 + 1 ReDim PreServe GinkoCD(NumGinko2), GinkoKingaku(NumGinko2), GinkoKozaKubun(NumGinko2), GinkoSakujyo(NumGinko2), DistGinkoCD(NumGinko2) GinkoCD(NumGinko2) = Replace(Content.Fields("銀行CD"), TmpGakuseiNo, "") '銀行CDから学生番号を除外する GinkoKozaKubun(NumGinko2) = Content.Fields("口座区分") GinkoKingaku(NumGinko2) = 0 GinkoSakujyo(NumGinko2) = 0 End If Content.MoveNext Loop '残高設定一括コピー用追加(080325小野)寄託会社を取得する If Kitakuriyou = "1" Then Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KitakuGaisyaCD = "" & Content.Fields("寄託会社CD") End If End If End If 'Response.Write(GinkoKingaku(1) & vbCrlf) 'Response.Write(GinkoSakujyo(1) & vbCrlf) 'Response.Write(KaisyaCD & vbCrlf) 'Exit Sub Set db = InitQuery() jj = 0 For jj = 1 To 2 '2は製造部製品 'テンポラリを強制削除(090917小野) Query = " DELETE FROM YTMP_TGA入出庫明細TRN " Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' " Query = Query & " AND 演習CD = '" & EnshuCD & "' " Query = Query & " AND 会社CD = '" & KaisyaCD & "' " Query = Query & " AND 文書種類CD = " If Mode = "Seizo" And jj = 1 Then Query = Query & " 'ZS' " '材料入庫 ElseIf jj <> 1 Then Query = Query & " 'MS' " '製品入庫 Else Query = Query & " 'SS' " '商品入庫 End If Query = Query & " AND 文書内容CD = '0' " 'Response.Write(Query) 'Exit Sub ' Set Content = ExecQuery(db, Query) 'テンポラリを強制削除(寄託在庫) Query = " DELETE FROM YTMP_TGC寄託在庫明細F " Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' " Query = Query & " AND 演習CD = '" & EnshuCD & "' " Query = Query & " AND 寄託依頼会社CD = '" & KaisyaCD & "' " Query = Query & " AND 寄託受付番号 = 0 " 'Response.Write(Query) 'Exit Sub Set Content = ExecQuery(db, Query) 'ここで商品毎にYTMPに明細を挿入 If jj = 1 Then TmpValue1 = split(SendValue1, ";") Else '製造部製品(080502小野) TmpValue1 = split(SendValue2, ";") End If Call Application.Lock() '同時処理でテンポラリに同一番号が発生しないようアプリケーションロック(090917小野) For kk = 0 To UBound(TmpValue1) - 1 TmpValue2 = split(TmpValue1(kk), ",") 'Response.Write(TmpValue2(0) & vbCrlf) 'Response.Write(TmpValue2(1) & vbCrlf) 'Response.Write(TmpValue2(2) & vbCrlf) 'Response.Write(SendValue1 & vbCrlf) 'Response.Write(Tmp2GakuseiNo & vbCrlf) 'Exit Sub If Mode = "Seizo" And jj = 1 Then '製造部対応(080411小野) If GB_Admin >= 1 Then SyohinCD = ConvRevZairyoMeisyoAdmin(TmpValue2(0), Tmp2GakuseiNo) Else SyohinCD = ConvRevZairyoMeisyo(TmpValue2(0)) End If Else '商品及び製造部製品はこちら If GB_Admin >= 1 Then SyohinCD = ConvRevSyohinMeisyoAdmin(TmpValue2(0), Tmp2GakuseiNo) Else SyohinCD = ConvRevSyohinMeisyo(TmpValue2(0)) End If 'Response.Write(SyohinCD & vbCrlf) 'Exit Sub End If Suryo = ConvMoneyToInt(TmpValue2(1)) Tanka = ConvMoneyToInt(TmpValue2(2)) '同時同業で一括コピー時はオリジナル商品は除外される(どうにもならない仕様です) If SyohinCD <> "" Then Query = "exec SPK繰越商品挿入" Query = Query & " '" & GB_SystemCD & "'" Query = Query & ", '" & EnshuCD & "'" '演習CD Query = Query & ", '" & KaisyaCD & "'" '会社CD If Mode = "Seizo" And jj = 1 Then Query = Query & ", 'ZS'" '材料入庫 ElseIf jj <> 1 Then Query = Query & ", 'MS'" '製品入庫 Else Query = Query & ", 'SS'" '商品入庫 End If Query = Query & ", '" & SyohinCD & "'" '商品CD If Suryo = "" Then Query = Query & ", null" Else Query = Query & "," & Suryo & "" '数量 End If If Tanka = "" Then Query = Query & ", null" Else Query = Query & "," & Tanka & "" '仕入単価 End If Query = Query & ",0" '受注単価 DebugQuery(Query) 'Response.Write(Query & vbCrlf) 'Exit Sub Set Content = ExecQuery(db, Query) 'Exit Sub ' If (Mode <> "Seizo" Or jj = 2) And Kitakuriyou = "1" Then '商品 If Mode <> "Seizo" And jj = 1 And Kitakuriyou = "1" Then '商品 Query = "exec SPD寄託在庫繰越商品挿入 '" & GB_SystemCD & "'," Query = Query & " '" & EnshuCD & "'" '演習CD Query = Query & ",'" & KaisyaCD & "'" '会社CD Query = Query & ",'" & KitakuGaisyaCD & "'" '寄託会社CD If GB_Admin >= 1 Then Query = Query & ",''" Else Query = Query & ",'" & GakuseiNo & "'" '学生番号 End If Query = Query & ",'" & SyohinCD & "'" '商品CD Query = Query & "," & Suryo '数量 If Tanka = "" Then Query = Query & ", null" Else Query = Query & "," & Tanka & "" '単価 End If Query = Query & ",0" '運送単価 DebugQuery(Query) Set Content = ExecQuery(db, Query) 'Response.Write(Query & vbCrlf) 'Exit Sub End If End If Next '繰越商品の入庫を作成しYTMPから明細を一括挿入しYTMP削除 If kk > 0 Then Query = "exec SPK繰越商品更新" Query = Query & " '" & GB_SystemCD & "'" Query = Query & ", '" & EnshuCD & "'" Query = Query & ", '" & KaisyaCD & "'" If Mode = "Seizo" And jj = 1 Then Query = Query & ", 'ZS'" '材料入庫 ElseIf jj <> 1 Then Query = Query & ", 'MS'" '製品入庫 Else Query = Query & ", 'SS'" '商品入庫 End If Query = Query & ", '" & GB_KaikeiKaishibi & "'" If GB_Admin >= 1 Then Query = Query & ",''" Else Query = Query & ",'" & GakuseiNo & "'" End If DebugQuery(Query) 'Response.Write(Query & vbCrlf) 'Exit Sub Set Content = ExecQuery(db, Query) 'Response.Write(Query & vbCrlf) 'Exit Sub ' If Mode <> "Seizo" And Kitakuriyou = "1" Then '商品 If Mode <> "Seizo" And jj = 1 And Kitakuriyou = "1" Then '商品 Query = "exec SPD寄託在庫繰越商品更新 '" & GB_SystemCD & "'," Query = Query & " '" & EnshuCD & "'" '演習CD Query = Query & ",'" & KaisyaCD & "'" '会社CD Query = Query & ",'" & KitakuGaisyaCD & "'" '寄託会社CD If GB_Admin >= 1 Then Query = Query & ",''" Else Query = Query & ",'" & GakuseiNo & "'" '学生番号 End If DebugQuery(Query) Set Content = ExecQuery(db, Query) End If '繰越商品の入庫を削除(明細はYTMP操作時に空になる) Else Query = "exec SPK繰越商品削除" Query = Query & " '" & GB_SystemCD & "'" Query = Query & ", '" & EnshuCD & "'" Query = Query & ", '" & KaisyaCD & "'" If Mode = "Seizo" And jj = 1 Then Query = Query & ", 'ZS'" '材料入庫 ElseIf jj <> 1 Then Query = Query & ", 'MS'" '製品入庫 Else Query = Query & ", 'SS'" '商品入庫 End If Query = Query & ", '" & GB_KaikeiKaishibi & "'" If GB_Admin >= 1 Then Query = Query & ", ''" Else Query = Query & ", '" & GakuseiNo & "'" End If DebugQuery(Query) Set Content = ExecQuery(db, Query) If Mode <> "Seizo" And jj = 1 And Kitakuriyou = "1" Then '商品 Query = "exec SPD寄託在庫繰越商品削除 '" & GB_SystemCD & "'," Query = Query & " '" & EnshuCD & "'" '演習CD Query = Query & ",'" & KaisyaCD & "'" '会社CD Query = Query & ",'" & GB_KaikeiKaishibi & "'" If GB_Admin >= 1 Then Query = Query & ",''" Else Query = Query & ",'" & GakuseiNo & "'" '学生番号 End If DebugQuery(Query) Set Content = ExecQuery(db, Query) End If End If Call Application.Unlock() '同時処理でテンポラリに同一番号が発生しないようアプリケーションロック(090917小野) Next If Mode <> "Seizo" Then For ii = 1 To NumGinko2 DistGinkoCD(ii) = GinkoCD(ii) '(共通項目)同時同業で作成先銀行が自社設定でない場合のみ学生番号を付加 If GB_EnshuKubun = "P" Then 'この段階では -学生番号 は除外されているので自社銀行若しくはマスター銀行が取得される Query = "exec SPM会社取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & DistGinkoCD(ii) & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then If "" & Content.Fields("自社フラグ") <> "1" Then 'マスター銀行の場合に成立 DistGinkoCD(ii) = DistGinkoCD(ii) & TmpGakuseiNo End If End If End If Next Dim bCheck ' For ii = 1 To UBound(GinkoCD) For ii = 1 To NumGinko2 '一括処理のため変更 bCheck = 0 If GinkoCD(ii) <> "" And GinkoKozaKubun(ii) <> "" Then KozaKubun = GinkoKozaKubun(ii) GinkoCD1 = GinkoCD(ii) GinkoCD2 = DistGinkoCD(ii) Kingaku = GinkoKingaku(ii) 'Response.Write(Kingaku & vbCrlf) 'Exit Sub Query = "exec SPB銀行口座一覧4 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Replace(Content.Fields("銀行CD"), TmpGakuseiNo, "") = GinkoCD1 And Content.Fields("口座区分") = KozaKubun Then '学生番号を除外して比較 KozaBango = Content.Fields("口座番号") bCheck = 1 End If Content.MoveNext Loop If GinkoSakujyo(ii) = 1 Then If bCheck = 1 Then Query = "exec SPB銀行口座削除" Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD Query = Query & ",'" & GinkoCD2 & "'" '銀行CD Query = Query & ",'" & KozaKubun & "'" '口座区分 Query = Query & ",'" & KozaBango & "'" '口座番号 Set Content = OpenQuery(Query) End If Else If bCheck = 0 Then Query = "exec SPB銀行口座挿入" Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD Query = Query & ",'" & KaisyaCD & "'" '会社CD Query = Query & ",'" & GinkoCD2 & "'" '銀行CD Query = Query & ",'" & KozaKubun & "'" '口座区分 Query = Query & ",''" Query = Query & ",'" & GB_KaikeiKaishibi & "'" '処理日 If GB_Admin >= 1 Then Query = Query & ",''" Else Query = Query & ",'" & GakuseiNo & "'" End If Query = Query & ",0" '金額 Query = Query & ",'繰越'" '摘要 If GB_Admin >= 1 Then Query = Query & ",''" Else Query = Query & ",'" & GakuseiNo & "'" End If Set Content = OpenQuery(Query) While Not Content Is Nothing If Content.Fields.Count > 0 Then KozaBango = Content.Fields(0) End If Set Content = Content.NextRecordset Wend End If If Kingaku = "" Then Kingaku = "0" End If Query = "exec SPB銀行口座入出金挿入" Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD Query = Query & ",'" & GinkoCD2 & "'" '銀行CD Query = Query & ",'" & KozaKubun & "'" '口座区分 Query = Query & ",'" & KozaBango & "'" '口座番号 Query = Query & ",0" Query = Query & ",'" & GB_KaikeiKaishibi & "'" '処理日 Query = Query & "," & Kingaku '金額 Query = Query & ",'GN'" '銀行取引区分 Query = Query & ",'繰越'" '摘要 If GB_Admin >= 1 Then Query = Query & ",''" Else Query = Query & ",'" & GakuseiNo & "'" End If Query = Query & ",'','',''" '結果通知銀行CD・結果通知種類CD・結果通知内容CD(繰越では不要) Set Content = OpenQuery(Query) End If End If Next Dim bExistGenkin bExistGenkin = 0 Query = "exec SPK現金入出金取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 0, 0" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then bExistGenkin = 1 End If If Not(bExistGenkin = 0 And Genkin = "") Then Genkin = ConvMoneyToInt(Genkin) If Genkin = "" Then Genkin = 0 End If Query = "exec SPK現金入出金挿入" Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD Query = Query & ",'" & KaisyaCD & "'" '会社CD Query = Query & ", null" Query = Query & ",'" & GB_KaikeiKaishibi & "'" '処理日 Query = Query & "," & Genkin '金額 Query = Query & ",'GN'" '現金取引区分 Query = Query & ",0" Query = Query & ",'繰越'" '摘要 If GB_Admin >= 1 Then Query = Query & ",''" Else Query = Query & ",'" & GakuseiNo & "'" End If Set Content = OpenQuery(Query) End If End If End If Content2.MoveNext Loop 'マスタ会社のMST処理 If MSTKaishaCD <> "" Then Query = "exec SPM期首残高マスタ複製繰越" Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "', '" & MSTKaishaCD & "'" Set Content = OpenQuery(Query) End If '############################################### 1.データの引継ぎ '修正 BY Hamada 2006/06/09 ' Query = "exec SPM記帳チェック挿入集計更新 '" & GB_SystemCD & "'," ' Query = Query & " '" & EnshuCD & "'," ' Query = Query & " '" & GakuseiNo & "'" ' Set Content = OpenQuery(Query) 'SPM記帳チェック挿入集計更新は使わず '別ASPモジュールから個別クエリするようにしてみた 'これでSQL無応答現象が抑えられれば良いのだが・・・(070228小野) If CopyMoto <> "" Then If Mode <> "Seizo" Then Response.Redirect("fk_kurikoshizandaka_bin.asp?CopyMoto=" & CopyMoto & "&ShijoCD=" & ShijoCD & "&HyojiFlg=" & HyojiFlg & "&Mode=Seizo") 'Mode<>"Seizo"なら製造部門の処理へ飛ぶ Else Response.Redirect("fk_kanjyozandaka_bin.asp?CopyMoto=" & CopyMoto & "&ShijoCD=" & ShijoCD & "&HyojiFlg=" & HyojiFlg & "&Mode=") 'Mode="Seizo"ならModeをクリアして勘定残高の処理へ飛ぶ End If Else Response.Redirect("fk_kityochecksonyusyukeikoushin_bin.asp?KaisyaCD=" & Request("KaisyaCD") & "&GyosyuCD=" & Request("GyosyuCD") & "&Mode=" & Mode & "&Zandaka=kurikoshi&ShijoCD=" & ShijoCD & "&HyojiFlg=" & HyojiFlg) End If 'Response.Redirect("fk_kurikoshizandaka_view.asp?KaisyaCD=" & Request("KaisyaCD")) End Sub %>