%
Function Unsohoken(BunsyoSyuruiCD, SyoruiMei, SyoriMongon, AutoFlg, PrintFlg)
Dim Title
Select Case BunsyoSyuruiCD
Case "UA"
SyoruiMei = "運送保険料請求書"
Title = SyoruiMei
Case "UB"
SyoruiMei = "倉庫料請求書"
Title = SyoruiMei
Case "UC"
SyoruiMei = "倉荷証券発行手数料請求書"
Title = "倉荷証券発行料金"
End Select
%>
|
<%
Dim ii
If Len(SyoruiMei) < 8 Then
Response.Write(SetStringInsertSpace(SyoruiMei))
Else
Response.Write(SyoruiMei)
End If
%> |
|
|
|
 |
御中 |
|
<% If BunsyoSyuruiCD = "UA" Then %>
証券番号 |
: |
|
保険種類 |
: |
|
保険期間 始期 |
: |
|
保険期間 終期 |
: |
|
<% ElseIf BunsyoSyuruiCD = "UB" Then %>
寄託期間 始期 |
: |
|
寄託期間 満期 |
: |
|
出庫日 |
: |
|
<% ElseIf BunsyoSyuruiCD = "UC" Then %>
証券番号 |
: |
|
<% End If %>
|
|
|
|
|
|
|
<% If BunsyoSyuruiCD = "UC" Then %>
品 名 |
金 額 |
<% = SyoruiMei %> |
|
<% Else %>
<% If BunsyoSyuruiCD = "UA" Then %>
商品名称 |
価 格 |
数 量 |
料 率 |
金 額 |
<% ElseIf BunsyoSyuruiCD = "UB" Then %>
商品名称 |
出庫数量 |
保管料金 |
荷役料金 |
金 額 |
<% End If %>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
<% End If %>
|
|
|
|
|
<%
End Function
%>