%
'
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Query
Dim Content
Dim w_no
Dim w_tc
Dim w_biko
Dim w_aite
Dim ii
Dim jj
Dim KK
Dim q_siwake
Dim r_siwake
Dim SakuseiKaisyaCD '作成会社CD
Dim TorihikisakiCD '取引先CD
Dim UnsoGaisyaCD '運送会社CD
Dim KitakuGaisyaCD '寄託会社CD
Dim SenpoKitakuGaisyaCD '先方寄託会社CD
Dim BunsyoSyuruiCD '文書種類CD
Dim BunsyoNaiyoCD '文書内容CD
Dim SenpoBunsyoSyuruiCD '先方文書種類CD
Dim SenpoBunsyoNaiyoCD '先方文書内容CD
Dim OldBunsyoNaiyoCD
Dim Syoribi '処理日
Dim SenpoSyoribi '先方処理日
Dim NonyuBasyoKubun '納入場所区分
Dim NonyuKijitsu '納入期日
Dim UntinSyogakariKubun '運賃諸掛区分
Dim Unsohi '運送費
Dim UnsohiSeikyuFlg '運送費請求フラグ
Dim Tekiyo '摘要
Dim ShiharaiHoho '支払方法
Dim HasshinFlg '発信フラグ
Dim Kakeritsu '掛率
Dim RouteType
Dim BinType
Dim SyohinCD(5) '商品コード
Dim Suryo(5) '数量
Dim Tanka(5) '単価
Dim TaxRate(5) '消費税率
Dim Kakaku(5) '標準価格
Dim SyohinName(5) '商品名称
Dim Kingaku(5) '金額
Dim SojyushinKubun '送受信区分
Dim AddFlg
Dim UnsoTanka(5) '運送単価
'寄託
Dim KitakuNo '寄託受付番号
Dim KitakuFrom '寄託期間始
Dim KitakuTo '寄託期間終
Dim NyukoNengappi '入庫年月日
Dim Basyo '倉庫場所
Dim SokoBetsu '倉庫種別
Dim KasaiHokenKin '火災保険料金
Dim KasaiHokenRitsu '火災保険料率
Dim NiyakuKin '荷役料金
Dim Niyakuritsu '荷役率
Dim Jyoryoritsu '従量率
Dim Jyokaritsu '従価率
Dim HokanKin '保管料金
Dim SyokenNum '倉荷証券番号
Dim SyokenTesuryo '倉荷証券発行手数料
Dim TmpBunsyoSyuruiCD
Dim TmpSenpoBunsyoSyuruiCD
SakuseiKaisyaCD = Request("SakuseiKaisyaCD") '作成会社CD
TorihikisakiCD = Request("TorihikisakiCD") '取引先CD
UnsoGaisyaCD = Request("UnsoGaisyaCD") '運送会社CD
KitakuGaisyaCD = Request("KitakuGaisyaCD") '寄託会社CD
SenpoKitakuGaisyaCD = Request("SenpoKitakuGaisyaCD") '先方寄託会社CD
BunsyoSyuruiCD = Request("BunsyoSyuruiCD") '文書種類CD
BunsyoNaiyoCD = Request("BunsyoNaiyoCD") '文書内容CD
SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD") '先方文書種類CD
SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD") '先方文書内容CD
OldBunsyoNaiyoCD = Request("OldBunsyoNaiyoCD")
' Syoribi = Request("SenpoSyoribi") '処理日
' SenpoSyoribi = Request("Syoribi") '先方処理日
Syoribi = Request("Syoribi") '処理日
SenpoSyoribi = Request("SenpoSyoribi") '先方処理日
NonyuKijitsu = Request("NonyuKijitsu") '納入期日
NonyuBasyoKubun = Request("NonyuBasyoKubun") '納入場所区分
UntinSyogakariKubun = Request("UntinSyogakariKubun") '運賃諸掛区分
Unsohi = ConvMoneyToInt(Request("Unsohi")) '運送費
UnsohiSeikyuFlg = Request("UnsohiSeikyuFlg") '運送費請求フラグ
Tekiyo = Request("Tekiyo") '摘要
ShiharaiHoho = Request("ShiharaiHoho") '支払方法
HasshinFlg = Request("HasshinFlg") '発行フラグ
Kakeritsu = Request("Kakeritsu") '掛率
BinType = Request("BinType")
RouteType = Request("RouteType")
SojyushinKubun = Request("SojyushinKubun") '送受信区分
TmpBunsyoSyuruiCD = BunsyoSyuruiCD
TmpSenpoBunsyoSyuruiCD = SenpoBunsyoSyuruiCD
'明細部
For ii = 1 To 5
SyohinCD(ii) = Request("SyohinCD" & ii) '商品CD
Suryo(ii) = ConvMoneyToInt(Request("Suryo" & ii)) '数量
Tanka(ii) = ConvMoneyToInt(Request("Tanka" & ii)) '単価
TaxRate(ii) = ConvMoneyToInt(Request("TaxRate" & ii)) '消費税率
UnsoTanka(ii) = ConvMoneyToInt(Request("UnsoTanka" & ii)) '運送単価
Next
If SakuseiKaisyaCD = "" Then
SakuseiKaisyaCD = KaisyaCD
End If
If Unsohi = "" Then
Unsohi = "0"
End If
If BinType = "Kaifu" Then
Query = "exec SPD仕入売上書類開封 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "','" & SakuseiKaisyaCD &"', 'KU', '" & BunsyoNaiyoCD & "'"
Set Content = OpenQuery(Query)
Query = "exec SPD仕入売上書類開封 '" & GB_SystemCD & "','" & EnshuCD & "','" & SakuseiKaisyaCD & "','" & SakuseiKaisyaCD &"', 'KU', '" & BunsyoNaiyoCD & "'"
Set Content = OpenQuery(Query)
Response.Redirect("fd_kitaku_syukko_view.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD)
End If
'''''''''''削除
If Request("BinType") = "Sakujyo" Then
Query = "exec SPD仕入売上書類削除"
Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD
Query = Query & ",'" & KaisyaCD & "'" '会社CD
Query = Query & ",'" & KaisyaCD & "'" '作成会社CD
Query = Query & ",'" & BunsyoSyuruiCD & "'"
Query = Query & ",'" & BunsyoNaiyoCD & "'"
Set Content = OpenQuery(Query)
If InStr(RouteType, "RMail") > 0 Then
Response.Redirect("/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?PageType=Recv")
ElseIf InStr(RouteType, "SMail") > 0 Then
Response.Redirect("/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?PageType=Send")
Else
Response.Redirect("fd_kitaku_syukko_view.asp?RouteType=" & RouteType & "&SojyushinKubun=" & SojyushinKubun & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD)
End If
Exit Sub
End if
'''''''''''一括更新
' If Kakeritsu <> "" Then
If 1 = 0 Then
Query = "exec SPD仕入売上一括更新 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & BunsyoSyuruiCD & "','" & Kakeritsu & "'"
Set Content = OpenQuery(Query)
Response.Redirect("fd_kitaku_syukko_ikkatsu.asp?BunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD )
End If
'在庫挿入処理##############################################
If BunsyoSyuruiCD = "KV" Then '管理部の納品請求書の場合限定
'文書種類CD変換
If BunsyoSyuruiCD = "KV" Then
BunsyoSyuruiCD = "SU"
SenpoBunsyoSyuruiCD = "SS"
End if
'TGA入出庫TRNへデータを登録##############################
'キー:システムCD,演習CD,会社CD,作成会社CD,文書種類CD
AddFlg = 0
If BunsyoNaiyoCD = "" Then '追加モード
AddFlg = 1
End If
If AddFlg = 1 Then
Query = "exec SPD入出庫挿入4 '" & GB_SystemCD & "',"
Query = Query & " '" & EnshuCD & "'" '演習CD
Query = Query & ",'" & KaisyaCD & "'" '会社CD
Query = Query & ",'" & KaisyaCD & "'" '作成会社CD
Query = Query & ",'" & BunsyoSyuruiCD & "'" '文書種類CD
If BunsyoNaiyoCD = "" Then
Query = Query & ",''"
Else
Query = Query & ",'" & BunsyoNaiyoCD & "'" '文書内容CD
End If
Query = Query & ",1" '処理時期区分
Query = Query & ",'" & Syoribi & "'" '処理日
Query = Query & ",'" & TorihikisakiCD & "'" '取引先CD
If SenpoBunsyoNaiyoCD = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & SenpoBunsyoNaiyoCD & "'" '先方文書内容CD
End If
Query = Query & ",'" & SenpoBunsyoSyuruiCD & "'" '先方文書種類CD
If SenpoSyoribi = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & SenpoSyoribi & "'" '先方処理日
End If
If UntinSyogakariKubun = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & UntinSyogakariKubun & "'" '運賃諸掛区分
End If
If Unsohi = "" Then
Query = Query & ", null"
Else
Query = Query & "," & Unsohi & "" '運送費
End If
If GakuseiNo = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & GakuseiNo & "'" '学生番号
End If
If KitakuGaisyaCD = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & KitakuGaisyaCD & "'" '寄託会社CD
End If
If SenpoKitakuGaisyaCD = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & SenpoKitakuGaisyaCD & "'" '先方寄託会社CD
End If
If UnsoGaisyaCD = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & UnsoGaisyaCD & "'" '運送会社CD
End If
'明細部
jj = 0
For ii = 1 To 5
If SyohinCD(ii) = "" Then
Query = Query & ",null,null,null,null,null"
Else
jj = jj + 1
Query = Query & "," & jj '伝票SEQ
Query = Query & ",'"& SyohinCD(ii) & "'" '商品CD
Query = Query & ","& Suryo(ii) '数量
If Tanka(ii) = "" Then
Query = Query & ", null"
Else
Query = Query & "," & Tanka(ii) & "" '単価
End If
If UnsoTanka(ii) = "" Then
Query = Query & ", null"
Else
Query = Query & "," & UnsoTanka(ii) & "" '運送単価
End If
End If
Next
Set Content = OpenQuery(Query)
'文書内容CD取得
While Not Content Is Nothing
If Content.Fields.Count > 0 Then
BunsyoNaiyoCD = Content.Fields(0)
End If
Set Content = Content.NextRecordset
Wend
'採番のためのダミーレコード作成(苦肉の辻褄合わせ(^^;)
Query = "exec SPD入出庫挿入4dummy '" & GB_SystemCD & "',"
Query = Query & " '" & EnshuCD & "'" '演習CD
Query = Query & ",'" & TorihikisakiCD & "'" '会社CD
Query = Query & ",'" & KaisyaCD & "'" '作成会社CD
Query = Query & ",'" & BunsyoSyuruiCD & "'" '文書種類CD
If BunsyoNaiyoCD = "" Then
Query = Query & ",''"
Else
Query = Query & ",'" & BunsyoNaiyoCD & "'" '文書内容CD
End If
Query = Query & ",1" '処理時期区分
Query = Query & ",'" & Syoribi & "'" '処理日
Query = Query & ",'" & TorihikisakiCD & "'" '取引先CD
If SenpoBunsyoNaiyoCD = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & SenpoBunsyoNaiyoCD & "'" '先方文書内容CD
End If
Query = Query & ",'" & SenpoBunsyoSyuruiCD & "'" '先方文書種類CD
If SenpoSyoribi = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & SenpoSyoribi & "'" '先方処理日
End If
If UntinSyogakariKubun = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & UntinSyogakariKubun & "'" '運賃諸掛区分
End If
If Unsohi = "" Then
Query = Query & ", null"
Else
Query = Query & "," & Unsohi & "" '運送費
End If
If GakuseiNo = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & GakuseiNo & "'" '学生番号
End If
If KitakuGaisyaCD = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & KitakuGaisyaCD & "'" '寄託会社CD
End If
If SenpoKitakuGaisyaCD = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & SenpoKitakuGaisyaCD & "'" '先方寄託会社CD
End If
If UnsoGaisyaCD = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & UnsoGaisyaCD & "'" '運送会社CD
End If
'明細部
jj = 0
For ii = 1 To 5
If SyohinCD(ii) = "" Then
Query = Query & ",null,null,null,null,null"
Else
jj = jj + 1
Query = Query & "," & jj '伝票SEQ
Query = Query & ",'"& SyohinCD(ii) & "'" '商品CD
Query = Query & ","& Suryo(ii) '数量
If Tanka(ii) = "" Then
Query = Query & ", null"
Else
Query = Query & "," & Tanka(ii) & "" '単価
End If
If UnsoTanka(ii) = "" Then
Query = Query & ", null"
Else
Query = Query & "," & UnsoTanka(ii) & "" '運送単価
End If
End If
Next
Set Content = OpenQuery(Query)
End If
'TGA入出庫TRNへ出庫先の会社用のデータを作成##############################
If (BunsyoSyuruiCD = "SU" OR BunsyoSyuruiCD = "SX") THen
Query = "exec SPD入出庫発信4 '" & GB_SystemCD & "',"
Query = Query & " '" & EnshuCD & "'" '演習CD
Query = Query & ",'" & KaisyaCD & "'" '会社CD
Query = Query & ",'" & KaisyaCD & "'" '作成会社CD
Query = Query & ",'" & TorihikisakiCD & "'" '取引先CD
Query = Query & ",'" & BunsyoSyuruiCD & "'" '文書種類CD
Query = Query & ",'" & BunsyoNaiyoCD & "'" '文書内容CD
Query = Query & ",'" & Syoribi & "'" '処理日
Query = Query & ",0" '発行フラグ
Query = Query & ",0" '返信フラグ
Query = Query & ",0" '削除フラグ
Query = Query & ",0" '有効フラグ
If GakuseiNo = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & GakuseiNo & "'" '学生番号
End If
Set Content = OpenQuery(Query)
End If
'TGC寄託在庫Fへデータを登録##############################################
'キー:システムCD,演習CD,会社CD(寄託会社CD),作成会社CD(出庫した会社),寄託依頼会社CD(寄託を依頼している会社CD)
If AddFlg = 1 Then
Query = "exec SPD寄託在庫挿入 '" & GB_SystemCD & "',"
Query = Query & " '" & EnshuCD & "'" '演習CD
Query = Query & ",'" & SenpoKitakuGaisyaCD & "'" '会社CD
Query = Query & ",'" & KaisyaCD & "'" '作成会社CD
Query = Query & ",'" & TorihikisakiCD & "'" '寄託依頼会社CD
Query = Query & ",'" & KitakuFrom & "'" '寄託開始年月日
Query = Query & ",'" & KitakuTo & "'" '寄託保管期日
Query = Query & ",'" & NyukoNengappi & "'" '入庫年月日
Query = Query & ",'" & Basyo & "'" '倉庫場所
Query = Query & ",'" & SokoBetsu & "'" '倉庫種別
Query = Query & ",'" & Syoribi & "'" '処理日
Query = Query & ",'" & GakuseiNo & "'" '学生番号
Query = Query & ",'" & Tekiyo & "'" '摘要
If KasaiHokenKin = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & KasaiHokenKin & "'" '火災保険料金
End If
If KasaiHokenRitsu = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & KasaiHokenRitsu & "'" '火災保険料率
End If
If NiyakuKin = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & NiyakuKin & "'" '荷役料金
End If
If Niyakuritsu = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & Niyakuritsu & "'" '荷役量率
End If
If Jyoryoritsu = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & Jyoryoritsu & "'" '従量率
End If
If Jyokaritsu = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & Jyokaritsu & "'" '従価率
End If
If HokanKin = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & HokanKin & "'" '保管料金
End If
If SyokenNum = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & SyokenNum & "'" '倉荷証券番号
End If
If SyokenTesuryo = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & SyokenTesuryo & "'" '倉荷証券発行手数料
End If
'明細部
jj = 0
For ii = 1 To 5
If SyohinCD(ii) = "" Then
Query = Query & ",null,null,null,null,null"
Else
jj = jj + 1
Query = Query & "," & jj '寄託受付番号SEQ
Query = Query & ",'"& SyohinCD(ii) & "'" '商品CD
Query = Query & ","& Suryo(ii) '数量
If Tanka(ii) = "" Then
Query = Query & ", null"
Else
Query = Query & "," & Tanka(ii) & "" '単価
End If
If UnsoTanka(ii) = "" Then
Query = Query & ", null"
Else
Query = Query & "," & UnsoTanka(ii) & "" '運送単価
End If
End If
Next
Set Content = OpenQuery(Query)
End If
BunsyoSyuruiCD = TmpBunsyoSyuruiCD
SenpoBunsyoSyuruiCD = TmpSenpoBunsyoSyuruiCD
End If
'発信#################################################################
If BinType = "Hasshin" Then
Query = "exec SPD仕入売上書類発信4"
Query = Query & " '" & GB_SystemCD & "'"
Query = Query & ",'" & EnshuCD & "'" '演習CD
Query = Query & ",'" & KaisyaCD & "'" '会社CD
Query = Query & ",'" & SakuseiKaisyaCD & "'" '作成会社CD
Query = Query & ",'" & BunsyoSyuruiCD & "'" '文書種類CD
Query = Query & ",'" & BunsyoNaiyoCD & "'" '文書内容CD
Query = Query & ",'" & Syoribi & "'" '処理日
Query = Query & ",'" & GakuseiNo & "'" '学生番号
'Response.Write("Query:" & Query)
'Exit sub
Set Content = OpenQuery(Query)
Response.Redirect("fd_kitaku_syukko_view.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&BinType=HasshinZumi")
End If
'寄託依頼############################################################
'fd_kitaku_syuko.aspから文書内容CD他、レコードを特定できる情報を受け取り、
'SPD寄託出庫依頼書挿入で、文書種類CD=KS(出庫依頼書)として、TSA仕入売上書類Fに新規挿入。
'Queryは、既存レコードから該当するレコードをコピーするので、書類発信タイプで作成。
If InStr(BinType, "KitakuSyukoIrai") > 0 Then
Query = "exec SPD寄託出庫依頼書挿入"
Query = Query & " '" & GB_SystemCD & "'"
Query = Query & ",'" & EnshuCD & "'" '演習CD
Query = Query & ",'" & KaisyaCD & "'" '会社CD
Query = Query & ",'" & SakuseiKaisyaCD & "'" '作成会社CD
Query = Query & ",'" & BunsyoSyuruiCD & "'" '文書種類CD
Query = Query & ",'" & BunsyoNaiyoCD & "'" '文書内容CD
Query = Query & ",'" & Syoribi & "'" '処理日
Query = Query & ",'" & SenpoSyoribi & "'" '先方処理日
Query = Query & ",'" & GakuseiNo & "'" '学生番号
'Response.Write("Query:" & Query)
'Exit Sub
Set Content = OpenQuery(Query)
Response.Redirect("fd_kitaku_syukko_view.asp?SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=KS&BunsyoNaiyoCD=" & BunsyoNaiyoCD & "&BinType=Hasshin")
End If
'#####################################################################
If BunsyoNaiyoCD <> OldBunsyoNaiyoCD Then
Query = "exec SPD仕入売上書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
DebugQuery(Query)
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Response.Write("この書類番号は存在しています。
")
%>
戻る
<%
Exit Sub
End If
End If
'出庫側文書作成
If OldBunsyoNaiyoCD = "" Then '追加モード
Query = "exec SPD仕入売上書類挿入4 '" & GB_SystemCD & "',"
Else
Query = "exec SPD仕入売上書類更新4 '" & GB_SystemCD & "',"
End If
Query = Query & " '" & EnshuCD & "'" '演習CD
Query = Query & ",'" & KaisyaCD & "'" '会社CD
Query = Query & ",'" & KaisyaCD & "'" '作成会社CD
Query = Query & ",'" & BunsyoSyuruiCD & "'" '文書種類CD
Query = Query & ",'" & BunsyoNaiyoCD & "'" '文書内容CD
If OldBunsyoNaiyoCD = "" Then
Else
Query = Query & ",'" & OldBunsyoNaiyoCD & "'"
End If
Query = Query & ",'S'" '送受信区分
If Syoribi = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & Syoribi & "'" '処理日
End If
Query = Query & ",'" & TorihikisakiCD & "'" '取引先CD
If SenpoBunsyoNaiyoCD = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & SenpoBunsyoNaiyoCD & "'" '先方文書内容CD
End If
If SenpoBunsyoSyuruiCD = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & SenpoBunsyoSyuruiCD & "'" '先方文書種類CD
End If
If SenpoSyoribi = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & SenpoSyoribi & "'" '先方処理日
End If
If NonyuKijitsu = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & NonyuKijitsu & "'" '納入期日
End If
If NonyuBasyoKubun = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & NonyuBasyoKubun & "'" '納入場所区分
End If
If UntinSyogakariKubun = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & UntinSyogakariKubun & "'" '運賃諸掛区分
End If
If UnsoGaisyaCD = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & UnsoGaisyaCD & "'" '運送会社CD
End If
If Unsohi = "" Then
Query = Query & ", null"
Else
Query = Query & "," & Unsohi & "" '運送費
End If
If UnsohiSeikyuFlg = "" Then
Query = Query & ", null"
Else
Query = Query & "," & UnsohiSeikyuFlg & "" '運送費請求フラグ
End If
If Tekiyo = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & Tekiyo & "'" '摘要
End If
If ShiharaiHoho = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & ShiharaiHoho & "'" '支払方法
End If
Query = Query & ",'" & HasshinFlg & "'" '発行フラグ
Query = Query & ",'0'" '返信フラグ
Query = Query & ",'0'" '削除フラグ
If GB_EnshuKubun = "P" AND GB_JisyaFlag = "0" Then
Query = Query & ",null"
Else
Query = Query & ",'" & GakuseiNo & "'" '学生番号
End If
If KitakuGaisyaCD = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & KitakuGaisyaCD & "'" '寄託会社CD
End If
If SenpoKitakuGaisyaCD = "" Then
Query = Query & ", null"
Else
Query = Query & ",'" & SenpoKitakuGaisyaCD & "'" '先方寄託会社CD
End If
'名細部
jj = 0
For ii = 1 To 5
If SyohinCD(ii) = "" Then
Query = Query & ",null,null,null,null,null,null"
Else
jj = jj + 1
Query = Query & "," & jj '伝票SEQ
Query = Query & ",'"& SyohinCD(ii) & "'" '商品CD
Query = Query & ","& Suryo(ii) '数量
If Tanka(ii) = "" Then
Query = Query & ",null"
Else
Query = Query & ","& Tanka(ii) '単価
End If
If TaxRate(ii) = "" Then
Query = Query & ", null"
Else
Query = Query & ","& TaxRate(ii) '消費税率
End If
If UnsoTanka(ii) = "" Then
Query = Query & ", null"
Else
Query = Query & "," & UnsoTanka(ii) & "" '運送単価
End If
End If
Next
Set Content = OpenQuery(Query)
'文書内容CD取得
While Not Content Is Nothing
If Content.Fields.Count > 0 Then
BunsyoNaiyoCD = Content.Fields(0)
End If
Set Content = Content.NextRecordset
Wend
'###############################################
Response.Redirect("fd_kitaku_syukko_view.asp?SakuseiKaisyaCD=" & KaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD)
End Sub
%>