<% 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 %>