<% 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 %>
御中
証券番号 :  
保険種類 :  
保険期間 始期 :  
保険期間 終期 :  
寄託期間 始期 :  
寄託期間 満期 :  
出庫日 :  
証券番号 :  

合計金額  
(上記金額には消費税が含まれています)
 
 
 
TEL: FAX:
    係 印
   
<% If BunsyoSyuruiCD = "UC" Then %>
品 名 金 額
<% = SyoruiMei %>  
<% Else %> <% If BunsyoSyuruiCD = "UA" Then %> <% ElseIf BunsyoSyuruiCD = "UB" Then %> <% End If %>
商品名称 価 格 数 量 料 率 金 額
商品名称 出庫数量 保管料金 荷役料金 金 額
         
         
         
         
         
<% End If %>
  合計金額  
消費税額  
税込金額  
 
備考
<% End Function %>