<%
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim RouteType
RouteType = Request("RouteType")
Dim Action
Action = Request("Action")
Dim PageType
PageType = Request("PageType")
Dim SakuseiKaisyaCD
SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
Dim BunsyoSyuruiCD
BunsyosyuruiCD = Request("BunsyoSyuruiCD")
Dim BunsyoNaiyoCD
BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
Dim Title
Title = "領収書"
Dim Query, Content
Dim Kaisyamei
Dim KaisyaRyakumei
Dim kaisyaKanamei
Dim ZipCode
Dim Adr1
Dim Adr2
Dim Tel
Dim Fax
Dim GyosyuCD
Dim Set_ShijyoCD
Dim jj,tmps
Dim SyohinMeisyo, SyohinMeisyoListWidth, ShijyoListWidth
'↓市場・商品表示幅の指定及び商品名称・商品略名称の指定？
SyohinMeisyo = "商品名称"
SyohinMeisyoListWidth = "width: 155;"
ShijyoListWidth = "width:85"
' For Debug
'Response.Write("GB_SystemCD:" & GB_SystemCD & "
")
'Response.Write("EnshuCD:" & EnshuCD & "
")
'Response.Write("KaisyaCD:" & KaisyaCD & "
")
'Response.Write("SakuseiKaisyaCD:" & SakuseiKaisyaCD & "
")
'Response.Write("BunsyoSyuruiCD:" & BunsyoSyuruiCD & "
")
'Response.Write("BunsyoNaiyoCD:" & BunsyoNaiyoCD & "
")
'Response.Write("RouteType:" & RouteType & "
")
'販売会社名の情報取得
Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Kaisyamei = Content.Fields("会社名称")
KaisyaRyakumei = Content.Fields("会社略名称")
kaisyaKanamei = Content.Fields("会社カナ名称")
ZipCode = Content.Fields("郵便番号")
Adr1 = Content.Fields("住所1")
Adr2 = Content.Fields("住所2")
Tel = Content.Fields("TEL")
Fax = Content.Fields("FAX")
GyosyuCD = Content.Fields("業種CD")
Set_ShijyoCD = Content.Fields("市場CD")
Content.MoveNext
End If
Dim KaiageTensu '買上点数
Dim KaiageKingaku '買上金額
Dim ShohiZei '消費税
Dim GokeiKingaku '合計金額
Dim Unsohi '運送費
Dim KyakuShimei '客氏名
Dim Tekiyo '摘要
Dim GakuseiShimei '学生氏名
Dim GakuseiBango '学生番号
Dim GakuseiRyakusho '学生略称（印）
Dim Kaiagebi '買上日
Dim KaiagehyoF '買上票印刷フラグ
Dim RyoshushoF '領収書印刷フラグ
Dim ShukkaF '出荷フラグ
Dim NyuShukkoF '入出庫フラグ
Dim SakujyoF '削除フラグ
Dim kitakuSokoF '寄託倉庫利用フラグ
' 小売販売テーブル読み込み（TTL部）
Query = "exec SPK小売販売取得_合計 '" & GB_SystemCD & "'" 'システムCD
Query = Query & ",'" & EnshuCD & "'" '演習CD
Query = Query & ",'" & KaisyaCD & "'" '会社CD
Query = Query & ",'" & KaisyaCD & "'" '作成会社CD
Query = Query & ",'" & BunsyoSyuruiCD & "'" '文書種類CD
Query = Query & ",'" & BunsyoNaiyoCD & "'" '文書内容CD
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
KaiageTensu = Content.Fields("買上点数")
KaiageKingaku = Content.Fields("買上金額")
ShohiZei = Content.Fields("消費税")
GokeiKingaku = Content.Fields("合計金額")
Tekiyo = Content.Fields("摘要")
Unsohi = Content.Fields("送料")
KyakuShimei = Content.Fields("客氏名")
GakuseiBango = Content.Fields("学生番号")
GakuseiShimei = Content.Fields("学生氏名")
Tekiyo = Content.Fields("摘要")
Kaiagebi = Content.Fields("買上日")
KaiagehyoF = Content.Fields("買上票印刷フラグ") '買上票印刷フラグ
RyoshushoF = Content.Fields("領収書印刷フラグ") '領収書印刷フラグ
ShukkaF = Content.Fields("出荷フラグ") '出荷フラグ
NyuShukkoF = Content.Fields("入出庫更新フラグ") '入出庫フラグ
SakujyoF = Content.Fields("削除フラグ") '削除フラグ
kitakuSokoF = Content.Fields("寄託倉庫利用") '寄託倉庫利用フラグ
Content.MoveNext
End If
%>
<% = HtmlHeader("") %>
<% = HtmlFooter %>
<%
End Sub
%>