<%
'
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim NRflg , ErrMSG , Action , setflg
Dim MousikomiNum '申込番号
'保険
Dim TorihikisakiCD,HokenkikanFrom,HokenkikanTo
Dim Tanka '単価
Dim Suryo '数量
Dim Kakaku '標準価格
Dim Kingaku '金額
Dim Ryoritsu '料率
Dim HSyubetsuCode '種別CD
Dim Biko '備考
Dim Mosikomibi
'出庫
Dim SyukkoNo '出庫番号
Dim SyohinName '商品名称
Dim SyukoYMD '出庫年月日
Dim SyukoSuryo '出庫数量
Dim Kisu '期数
Dim SokoHokenRyo '倉庫保管料
Dim SokoNiyakukin '倉庫荷役料金
Dim SuryoTotal '総出庫数
Dim TempSuryoTotal 'Temp総出庫数
'Dim SyukoZentaka '出庫残高
'寄託
Dim KitakuNo '寄託者受付番号
Dim KitakuCD '寄託者CD
Dim KitakuName '寄託者名称
Dim SyohinCD '商品コード
Dim KitakuFrom '寄託期間始
Dim KitakuTo '寄託期間終
Dim KitakuSuryo '寄託数量
Dim Basyo '倉庫場所
Dim TotalSyukosu '総出庫数
Dim SyukoZentaka '出庫残高
Dim NyukoNengappi '入庫年月日
Dim NyukoSuryo '入庫数量
Dim SokoBetsu '倉庫種別
Dim Tekiyo '摘要
Dim Jyokaritsu '従価率
Dim Jyoryoritsu '従量率
Dim Niyakuritsu '荷役率
Dim HanbaiTanka '単価
Dim SyohinJyuryo '単量
Dim Nisugata '荷姿
Dim Saisu '才数
Dim Syohinyouseki '商品容積
Dim SyokenNum '倉荷証券番号
Dim SyokenTesuryo '証券手数料
Dim HokenTanka '火災保険単価
Dim HokenSougaku '火災保険総額
Dim KasaiHokenKin '火災保険料金
Dim KasaiHokenRitsu '火災保険料率
Dim HokenRyokin '保険料金
Dim NiyakuKin '荷役料金
Dim HokanSougaku
Dim NyukoTekiyo
Dim GokeiKingaku, Syohizeigaku, ZeikomiKingaku
Dim Query
Dim Content
Dim CContent
NRflg = Request("nr")
Action = Request("Action")
KitakuNo = Request("KitakuNo")
SyukkoNo = Request("SyukkoNo")
ErrMSG = Request("ErrMSG")
If NRflg = "r" then
KitakuNo = Request("KitakuNo")
KaisyaCD = Request("KaisyaCD")
EnshuCD = Request("EnshuCD")
ErrMsg = Request("ErrMsg")
End If
If ( Action = 2 or Action = 3) And isnumeric(SyukkoNo) Then '検索の場合出庫情報取得
Query = "exec SPC出庫取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', "& SyukkoNo &""
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
KitakuNo = Content.Fields("寄託受付番号")
SyukkoNo = Content.Fields("出庫番号")
SyukoYMD = SetTimeYYYYMMDD(Content.Fields("出庫年月日"))
SyukoSuryo = Content.Fields("出庫数量")
Tekiyo = Content.Fields("摘要")
Kisu = Content.Fields("期数")
SokoHokenRyo = Content.Fields("保管料金")
SokoNiyakukin = Content.Fields("荷役料金")
End If
End if
If ((Action = 2) or (Action = 3) or (Action = 9)) And (isnumeric(KitakuNo)) Then '追加、 修正、検索の場合寄託情報取得
Query = "exec SPC寄託取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'," & KitakuNo
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
KitakuCD = Content.Fields("寄託者CD")
KitakuNo = Content.Fields("寄託受付番号")
SyohinCD = Content.Fields("商品CD")
Niyakukin = Content.Fields("荷役料金")
Basyo = Content.Fields("倉庫場所")
SokoBetsu = Content.Fields("倉庫種別")
KitakuFrom = SetTimeYYYYMMDD(Content.Fields("寄託開始年月日"))
KitakuTo = SetTimeYYYYMMDD(Content.Fields("寄託保管期日"))
Jyokaritsu = Content.Fields("従価率")
Jyoryoritsu = Content.Fields("従量率")
Niyakuritsu = Content.Fields("荷役料率")
NyukoNengappi = SetTimeYYYYMMDD(Content.Fields("入庫年月日"))
KitakuSuryo = Content.Fields("寄託数量")
SuryoTotal = Content.Fields("総出庫数")
SyukoZentaka = KitakuSuryo - SuryoTotal ' Content.Fields("残高")
HokanSougaku = Content.Fields("保管料金")
HanbaiTanka = Content.Fields("単価")
SyohinJyuryo = Content.Fields("単量")
Nisugata = Content.Fields("荷姿")
Saisu = Content.Fields("才数")
NyukoTekiyo = Content.Fields("摘要")
End If
end if
If ((Action = 9) or (Action = 2) or (Action = 3)) Then '修正、検索の場合商品情報取得
'If ((Action = 2) or (Action = 3)) And isnumeric(SyohinCD) Then '修正、検索の場合商品情報取得
Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If Content.Fields("商品CD") = SyohinCD Then
Syohinyouseki=Content.Fields("商品容積")
SyohinName=Content.Fields("商品略名称")
End If
Content.MoveNext
Loop
end if
If SokoHokenRyo = "" Then SokoHokenRyo = 0 End If
If SokoNiyakukin = "" Then SokoNiyakukin = 0 End If
GokeiKingaku = SokoHokenRyo + SokoNiyakukin
Syohizeigaku = Int(GokeiKingaku * GB_Shohizei / 100)
ZeikomiKingaku = GokeiKingaku + Syohizeigaku
if not isnumeric(SyukoSuryo) then
TempSuryoTotal=0
else
TempSuryoTotal=SyukoSuryo
end if
Dim HyojunTankaHyoji
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
HyojunTankaHyoji = "" & Content.Fields("標準販売単価表示")
End If
Dim Soryo
Soryo = 0
Dim Soka
Soka = 0
If "" & KitakuSuryo <> "" And KitakuSuryo > 0 Then
If "" & HanbaiTanka <> "" And HanbaiTanka > 0 Then
Soka = HanbaiTanka * KitakuSuryo
End If
If "" & SyohinJyuryo <> "" And SyohinJyuryo > 0 Then
'1トン未満を切り上げた総量
Soryo = Fix((SyohinJyuryo * KitakuSuryo) / 1000)
If (SyohinJyuryo * KitakuSuryo) Mod 1000 > 0 Then
Soryo = Soryo + 1
End If
End If
End If
%>
<% = HtmlHeader("") %>