<div id="ProductionReport">
<div class="ui-widget">
@Using Ajax.BeginForm("Index", "Reports", ajaxOptions:=New AjaxOptions With {.InsertionMode = InsertionMode.Replace, .HttpMethod = "POST", .UpdateTargetId = "searchresultdata"}, htmlAttributes:=New With {.id = "productionform"})
@Html.ValidationSummary(True)
@<fieldset class="ui-widget-content">
<legend class="ui-state-default">Production Report</legend>
<div class="editor-label">
@Html.LabelFor(Function(model) model.ProductionReportData.FromDate, "From Date: ")
@Html.Raw(" ")
@Html.TextBoxFor(Function(model) model.ProductionReportData.FromDate, New With {.class = "ui-state-default", .id = "datepicker", .Style = "font-size:x-small;", .name = "fromdate"})
@Html.ValidationMessageFor(Function(model) model.ProductionReportData.FromDate)
</div>
<div class="editor-label">
@Html.LabelFor(Function(model) model.ProductionReportData.ToDate, "To Date: ")
@Html.Raw(" ")
@Html.TextBoxFor(Function(model) model.ProductionReportData.ToDate, New With {.class = "ui-state-default", .id = "datepicker2"})
@Html.ValidationMessageFor(Function(model) model.ProductionReportData.ToDate)
</div>
<div class="editor-label">
@Html.LabelFor(Function(model) model.ProductionReportData.ShowDetails, "Show Details: ")
@Html.EditorFor(Function(model) model.ProductionReportData.ShowDetails)
</div>
<div class="editor-label">
<input class="ui-button ui-button-text-only ui-widget ui-state-default ui-corner-all"
type="submit" value="Search" name="btnSearch" />
<input class="ui-button ui-button-text-only ui-widget ui-state-default ui-corner-all"
type="submit" value="Export Data" name="btnSearch" />
</div>
</fieldset>
End Using
</div>
<div id="searchresultdata" class="ui-widget-content">
</div>
</div>
enter code h<HttpPost()> _
Function ExportProductionReportData(ByVal data As ReportsModel) As FileResult
Dim var = From I In db.scll_label Join P In db.pt_mstr On I.scll_part Equals P.pt_part _
Join C In db.sclws_cfg On I.scll_wsid Equals C.sclws_id _
Where P.pt_domain = "mueller" And C.sclws_domain = "mueller" _
And I.scll_transactiondate >= data.ProductionReportData.FromDate And I.scll_transactiondate <= data.ProductionReportData.ToDate _
Select I, P.pt_length, P.pt_net_wt, P.pt_desc1, P.pt_tol_high, P.pt_part_type, P.pt_um, _
C.sclws_proj_code, C.sclws_site
Dim ProMod As New ProductionReportModel
ProMod.ProductionDetails = New ObservableCollection(Of ProductionReportDetails)
ProMod.ProductionGrandTotal = New ProductionReportGrandTotals
ProMod.ProductionPartTotals = New ObservableCollection(Of ProductionReportTotalsByPart)
''Generate Production Details
For Each rec In var
Dim proModDtls As New ProductionReportDetails
proModDtls.Customer = rec.I.scll_cust
proModDtls.Feet = rec.I.scll_total_feet
proModDtls.GrossWeight = rec.I.scll_weight
proModDtls.NetWeight = rec.I.scll_weight - rec.I.scll_total_tare
proModDtls.Part = rec.I.scll_part
If rec.pt_um = "LB" Then
Try
proModDtls.Pieces = rec.I.scll_total_feet / rec.pt_length
Catch ex As Exception
proModDtls.Pieces = rec.I.scll_qty
End Try
ElseIf rec.pt_um = "FT" Then
Try
proModDtls.Pieces = rec.I.scll_qty / rec.pt_length
Catch ex As Exception
proModDtls.Pieces = rec.I.scll_qty
End Try
Else
proModDtls.Pieces = rec.I.scll_qty
End If
proModDtls.Quantity = rec.I.scll_qty
proModDtls.ReasonCode = rec.sclws_proj_code
proModDtls.StandardWeight = rec.I.scll_std_weight
proModDtls.Station = rec.I.scll_wsid
proModDtls.Tare = rec.I.scll_total_tare
proModDtls.TareDetail = rec.I.scll_tare_detail
proModDtls.Ticket = rec.I.scll_ticket
Try
proModDtls.DrawingEfficiency = ((rec.I.scll_weight - rec.I.scll_total_tare) / rec.I.scll_std_weight) * 100
Catch ex As Exception
End Try
proModDtls.TicketDate = rec.I.scll_transactiondate
ProMod.ProductionDetails.Add(proModDtls)
Next
Dim csvCreator As New CSVFileMaker(Of ProductionReportDetails, List(Of ProductionReportDetails))
csvCreator.data = ProMod.ProductionDetails.ToList
Dim csvdata As String = csvCreator.GenerateCSVFile
Dim d = Encoding.ASCII.GetBytes(csvdata)
Dim filename As String = "ProductionReport" & Date.Now.Year.ToString & "_" & Date.Now.Month.ToString & "_" & Date.Now.Day & ".csv"
Dim cd = New System.Net.Mime.ContentDisposition With {.FileName = filename, .Inline = False, .DispositionType = "attachment"}
Response.AppendHeader("Content-Disposition", cd.ToString)
Return File(d, "text/csv", filename)
End Function
'获取:/报告 _ 函数索引(ByVal btnSearch As String,ByVal data As ReportsModel)As ActionResult
data.DrawingEfficiencyWeeklyData = New DrawingEfficiencyWeeklyData
data.DrawingEfficiencyPeriodData = New DrawingEfficiencyPeriodData
data.DrawingEfficiencyYearlyData = New DrawingEfficiencyYearlyData
data.DrawingEfficiencyYearlyMeanData = New DrawingEfficiencyYearlyMeanData
data.DrawingEfficiencySummaryData = New DrawingEfficiencySummaryData
data.ToleranceOverrideReportData = New ToleranceOverrideReportData
data.TareDetailReportData = New TareDetailReportData
Dim var = db.GetGLCYears
Dim var2 = db.GetGLCYears
Dim var3 = db.GetGLCYears
Dim var4 = db.GetGLCYears
Dim allList As New SelectListItem With {.Value = 0, .Text = "All"}
Dim BonusList As New SelectListItem With {.Value = 1, .Text = "Bonus"}
Dim OtherList As New SelectListItem With {.Value = 2, .Text = "Other"}
Dim categoryList As New List(Of SelectListItem)
categoryList.Add(allList)
categoryList.Add(BonusList)
categoryList.Add(OtherList)
data.DrawingEfficiencyYearlyMeanData.CategoryList = categoryList
data.DrawingEfficiencyYearlyMeanData.YearList = var4.Select(Function(i) New SelectListItem With {.Value = i.Y, .Text = i.Y})
data.DrawingEfficiencyWeeklyData.YearList = var.Select(Function(i) New SelectListItem With {.Value = i.Y, .Text = i.Y})
data.DrawingEfficiencyPeriodData.YearList = var2.Select(Function(i) New SelectListItem With {.Value = i.Y, .Text = i.Y})
data.DrawingEfficiencyYearlyData.YearList = var3.Select(Function(i) New SelectListItem With {.Value = i.Y, .Text = i.Y})
Select Case btnSearch
Case Is = "Search"
Return (SearchProductionReport(data))
Case Is = "Export Data"
Return ExportProductionReportData(data)
Case Else
Return View(data)
End Select
Return View(data)
End Function
基本上我的表单将ajax响应发送到包含部分视图的div,但我有另一个提交按钮,它使用相同的数据生成csv文件。我无法将此文件下载,只需将其输出到div中即可。任何人都可以帮助或指导正确的方向..我已经尝试过actionlinks但它永远不会将我的模型持久化到数据库我不能使用html.beginforms因为我无法设置目标div来加载部分视图。
更新:使用脚本但仍无法正常工作
<script type="text/javascript">
$(document).ready(function () {
$("#productionsearch").click(function () {
$("#productionform").submit(function () {
$.ajax({
url: this.action,
type: this.action,
data: $(this).serialize(),
success: function (result) {
$("#searchresultdata").html(result);
}
});
});
});
});
`
答案 0 :(得分:1)
您无法使用AJAX下载文件。只需使用正常的Html.BeginForm
。
答案 1 :(得分:0)
<script type="text/javascript">
$(document).ready(function () {
$("#ProductionSearch").click(function () {
alert("Button Clicked");
var $form = $("#ProductionSearch").parents('form')
$.ajax({
type: "POST",
url: "@URL.Action("SearchProductionReport")",
data: $form.serialize(),
error: function (xhr, status, error) {
alert("an error occurred" + error)
},
success: function (response) {
alert("Function worked");
$("#searchresultdata").html(response);
}
});
});
});
答案。我想到了。使用HTML.BeginForm(“YourDownloadAction”,“YourController”,“id of form”) 然后用type = submit创建两个按钮,另一个按类型为按钮。确保您的javascript正在调用不需要下载文件的操作。就是这样。现在你必须实现验证,因为它不会通过jquery在ajax调用上实现...感谢Darin你至少指出了我正确的方向。
已更新以进行验证
<script type="text/javascript">
$(document).ready(function () {
$("#ProductionSearch").click(function () {
var $form = $("#ProductionSearch").parents('form')
if ($($form).validate().form() == true) {
$.ajax({
type: "POST",
url: "@Url.Action("SearchProductionReport", "Reports", Nothing)",
data: $form.serialize(),
error: function (xhr, status, error) {
$("#dialog").dialog("open");
$("#dialog").html("<p>Please be advised that an error has occured while searching production data please try again or contact your administrator</p> " +"<br>" + error + "</br>");
},
success: function (response) {
$("#searchresultdata").html(response);
}
});
}
});
});