<% If Mode <> "Seizo" Then %>
期首現金設定
金額 |
<% If Genkin <> "" Then %>
<% = ConvIntToMoney(Genkin, false, false) %>
<% End If %>
|
|
期首銀行設定
銀行口座 |
金額 |
<%
Dim GinkoSoGokei
GinkoSoGokei = 0
QueryKoza = "exec SPB銀行口座一覧4 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
Set ContentKoza = OpenQuery(QueryKoza)
Do While Not(ContentKoza.BOF Or ContentKoza.EOF)
Kingaku = ""
Dim MyGinkoCD, MyKozaKubun
MyGinkoCD = ""
MyKozaKubun = ""
If Not(ContentKoza.BOF Or ContentKoza.EOF) Then
MyGinkoCD = ContentKoza.Fields("銀行CD")
MyKozaKubun = ContentKoza.Fields("口座区分")
End If
Query = "exec SPB銀行口座入出金一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & MyGinkoCD & "', '" & MyKozaKubun & "', ''"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If Content.Fields("処理時期区分") = 0 Then
Kingaku = Content.Fields("金額")
End If
Content.MoveNext
Loop
If Kingaku <> "" Then
GinkoSoGokei = GinkoSoGokei + Kingaku
End If
%>
<% = ConvKaisyaRyakuMeisyo(MyGinkoCD) %> <% = ConvKubunMeisyo("口座区分", MyKozaKubun) %> |
<% = ConvIntToMoney(Kingaku, false, false) %> |
<%
ContentKoza.MoveNext
Loop
%>
|
合計金額:<% = SetMoney(GinkoSoGokei, false, true) %>
|
|
|
|
<% End If %>
<% If GB_Gyosyu <> "B" Then %>
期首<% If Mode = "Seizo" Then Response.Write("材料") Else Response.Write("商品") End If %>設定
|
商品 |
<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
<% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("標準単価") End If %> |
<% End If %>
個数 |
仕入単価 |
金額 |
<%
Dim SyohinSu, ShohinSogokei
Dim NyusyukoBango, QueryNyusyuko, ContentNyusyuko
'Dim NyusyukoSEQ, NextNyusyukoSEQ'090625追加
'NyusyukoSEQ = 0'090625追加
'NextNyusyukoSEQ = 0'090625追加
ShohinSogokei = 0
If Mode = "Seizo" Then '製造部対応(080411小野)
QueryNyusyuko = "exec SPD入出庫一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', 'ZS'"
Else
QueryNyusyuko = "exec SPD入出庫一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', 'SS'"
End If
Set ContentNyusyuko = OpenQuery(QueryNyusyuko)
Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF)
If ContentNyusyuko.Fields("処理時期区分") = 0 Then
NyusyukoBango = ContentNyusyuko.Fields("文書内容CD")
End If
ContentNyusyuko.MoveNext
Loop
If Mode = "Seizo" Then '製造部対応(080411小野)
QueryNyusyuko = "exec SPD入出庫取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', 'ZS', '" & NyusyukoBango & "'"
Else
QueryNyusyuko = "exec SPD入出庫取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', 'SS', '" & NyusyukoBango & "'"
End If
Set ContentNyusyuko = OpenQuery(QueryNyusyuko)
Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF)
'NyusyukoSEQ = ContentNyusyuko("入出庫SEQ")'090625追加
'if NyusyukoSEQ <> NextNyusyukoSEQ then'090625追加
ShohinSogokei = ShohinSogokei + ContentNyusyuko.Fields("数量") * ContentNyusyuko.Fields("単価")
%>
<%
Dim SyohinTmp
Dim TankaTmp
'運用管理の場合は学生番号を一時入れ替え(080415小野)
Dim Tmp2GakuseiNo
If GB_Admin >= 1 Then
Tmp2GakuseiNo = GB_GakuseiNo
GB_GakuseiNo = TmpGakuseiNo
End If
If Mode = "Seizo" Then '製造部対応(080411小野)
SyohinTmp = ConvZairyoMeisyo(ContentNyusyuko.Fields("商品CD"))
TankaTmp = ConvZairyoHanbaiTanka(ContentNyusyuko.Fields("商品CD"))
Else
SyohinTmp = ConvSyohinMeisyo(ContentNyusyuko.Fields("商品CD"))
TankaTmp = ConvSyohinHanbaiTanka(ContentNyusyuko.Fields("商品CD"))
End If
'運用管理の場合は学生番号を戻す(080415小野)
If GB_Admin >= 1 Then
GB_GakuseiNo = Tmp2GakuseiNo
End If
If AscLen(SyohinTmp) > 31 Then
SyohinTmp = AscLeft(SyohinTmp,31) '商品名称を19byteで切捨て(061027小野)
End If
%>
<% = SyohinTmp %> |
<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
<% = ConvIntToMoney(TankaTmp, false, false) %> |
<% End If %>
<% = ConvIntToMoney(ContentNyusyuko.Fields("数量"), false, false) %> |
<% = ConvIntToMoney(ContentNyusyuko.Fields("単価"), false, false) %> |
<% = ConvIntToMoney(ContentNyusyuko.Fields("数量") * ContentNyusyuko.Fields("単価"), false, false) %> |
<%
'end if'090625追加
'NextNyusyukoSEQ = NyusyukoSEQ'090625追加
ContentNyusyuko.MoveNext
Loop
%>
4<% Else %>3<% End If %>" align="right" nowrap>合計金額 |
<% = SetMoney(ShohinSogokei, false, true) %> |
|
<% If 0=1 And Mode = "Seizo" Then '期首製品は不要(常に商品になる)なので停止。いずれ期首仕掛品を作るかもしれない %>
期首製品設定
|
商品 |
標準単価 |
個数 |
仕入単価 |
金額 |
<%
ShohinSogokei = 0
QueryNyusyuko = "exec SPD入出庫一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', 'MS'"
Set ContentNyusyuko = OpenQuery(QueryNyusyuko)
Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF)
If ContentNyusyuko.Fields("処理時期区分") = 0 Then
NyusyukoBango = ContentNyusyuko.Fields("文書内容CD")
End If
ContentNyusyuko.MoveNext
Loop
QueryNyusyuko = "exec SPD入出庫取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', 'MS', '" & NyusyukoBango & "'"
Set ContentNyusyuko = OpenQuery(QueryNyusyuko)
Do While Not(ContentNyusyuko.BOF Or ContentNyusyuko.EOF)
'NyusyukoSEQ = ContentNyusyuko("入出庫SEQ")'090625追加
'if NyusyukoSEQ <> NextNyusyukoSEQ then'090625追加
ShohinSogokei = ShohinSogokei + ContentNyusyuko.Fields("数量") * ContentNyusyuko.Fields("単価")
%>
<%
'運用管理の場合は学生番号を一時入れ替え(080415小野)
If GB_Admin >= 1 Then
Tmp2GakuseiNo = GB_GakuseiNo
GB_GakuseiNo = TmpGakuseiNo
End If
SyohinTmp = ConvSyohinMeisyo(ContentNyusyuko.Fields("商品CD"))
TankaTmp = ConvSyohinHanbaiTanka(ContentNyusyuko.Fields("商品CD"))
'運用管理の場合は学生番号を戻す(080415小野)
If GB_Admin >= 1 Then
GB_GakuseiNo = Tmp2GakuseiNo
End If
If AscLen(SyohinTmp) > 19 Then
SyohinTmp = AscLeft(SyohinTmp,19) '商品名称を19byteで切捨て(061027小野)
End If
%>
<% = SyohinTmp %> |
<% = ConvIntToMoney(TankaTmp, false, false) %> |
<% = ConvIntToMoney(ContentNyusyuko.Fields("数量"), false, false) %> |
<% = ConvIntToMoney(ContentNyusyuko.Fields("単価"), false, false) %> |
<% = ConvIntToMoney(ContentNyusyuko.Fields("数量") * ContentNyusyuko.Fields("単価"), false, false) %> |
<%
'end if'090625追加
'NextNyusyukoSEQ = NyusyukoSEQ'090625追加
ContentNyusyuko.MoveNext
Loop
%>
合計金額 |
<% = SetMoney(ShohinSogokei, false, true) %> |
|
<% End If %>
<% End If %>
|