I am trying to make a dialog that on submit prints a report using a value from the dialog I beleive it would be put into the after validate area. Here is the code from the after validate area any ideas on if this is where to put it and if so any help with the filter would be great.
Thanks
Chad
dim t as p
tbl = table.open("[PathAlias.ADB_Path]\returns")
tbl.enter_begin()
tbl.store = alltrim(currentform.controls.store.value)
tbl.Date = alltrim(CurrentForm.Controls.Today_s_Date.value)
tbl.Customername = alltrim(CurrentForm.Controls.Name.value)
tbl.Customeraddress = alltrim(CurrentForm.Controls.Address.value)
tbl.City = alltrim(CurrentForm.Controls.City.value)
tbl.Postalcode = alltrim(CurrentForm.Controls.Postal_Code.value)
tbl.Customerphonenum = convert_type(alltrim(CurrentForm.Controls.Phone_Number.value),"N")
tbl.Originaldate = convert_type(alltrim(CurrentForm.Controls.Original_Purchase_Date.value),"D")
tbl.Originalinvnum = convert_type(alltrim(CurrentForm.Controls.Original_Inv_.value),"N")
tbl.Newinvnum = convert_type(alltrim(CurrentForm.Controls.Return_Inv_.value),"N")
tbl.Reason = alltrim(CurrentForm.Controls.Reason_For_Return.value)
tbl.Emp = convert_type(alltrim(CurrentForm.Controls.Employee_Number.value),"N")
tbl.Emppassword = alltrim(CurrentForm.Controls.Employee_Password.value)
tbl.Emp2password = alltrim(CurrentForm.Controls._2nd_Employee_Password.value)
tbl.Barcode = alltrim(CurrentForm.Controls.Barcode.value)
tbl.Total_return_amount = convert_type(alltrim(CurrentForm.Controls.Total_Refund_Amount.value),"N")
tbl.Description = alltrim(CurrentForm.Controls.Description.value)
tbl.Bvdesc = alltrim(CurrentForm.Controls.BV_Description.value)
tbl.Supplier = alltrim(CurrentForm.Controls.Supplier.value)
tbl.Payment_method = alltrim(CurrentForm.Controls.Return_Payment_Method.value)
tbl.enter_end(.t.)
tbl.close()
dim filter as c
dim order as c
Filter = "current.form.controls.return_inv_"
Order = ""
Dim filename as c
filename = session.session_folder + "tempreport.pdf"
filename = report.saveas("Return_Form@[PathAlias.ADB_Path]\returns.ddd","pdf",filter,order,filename,.f.)
if file.exists(filename)
currentform.RedirectTarget = session.session_url + "tempreport.pdf?" + time("hms3")
end if
CurrentForm.RedirectTarget = "login.a5w"
Thanks
Chad
dim t as p
tbl = table.open("[PathAlias.ADB_Path]\returns")
tbl.enter_begin()
tbl.store = alltrim(currentform.controls.store.value)
tbl.Date = alltrim(CurrentForm.Controls.Today_s_Date.value)
tbl.Customername = alltrim(CurrentForm.Controls.Name.value)
tbl.Customeraddress = alltrim(CurrentForm.Controls.Address.value)
tbl.City = alltrim(CurrentForm.Controls.City.value)
tbl.Postalcode = alltrim(CurrentForm.Controls.Postal_Code.value)
tbl.Customerphonenum = convert_type(alltrim(CurrentForm.Controls.Phone_Number.value),"N")
tbl.Originaldate = convert_type(alltrim(CurrentForm.Controls.Original_Purchase_Date.value),"D")
tbl.Originalinvnum = convert_type(alltrim(CurrentForm.Controls.Original_Inv_.value),"N")
tbl.Newinvnum = convert_type(alltrim(CurrentForm.Controls.Return_Inv_.value),"N")
tbl.Reason = alltrim(CurrentForm.Controls.Reason_For_Return.value)
tbl.Emp = convert_type(alltrim(CurrentForm.Controls.Employee_Number.value),"N")
tbl.Emppassword = alltrim(CurrentForm.Controls.Employee_Password.value)
tbl.Emp2password = alltrim(CurrentForm.Controls._2nd_Employee_Password.value)
tbl.Barcode = alltrim(CurrentForm.Controls.Barcode.value)
tbl.Total_return_amount = convert_type(alltrim(CurrentForm.Controls.Total_Refund_Amount.value),"N")
tbl.Description = alltrim(CurrentForm.Controls.Description.value)
tbl.Bvdesc = alltrim(CurrentForm.Controls.BV_Description.value)
tbl.Supplier = alltrim(CurrentForm.Controls.Supplier.value)
tbl.Payment_method = alltrim(CurrentForm.Controls.Return_Payment_Method.value)
tbl.enter_end(.t.)
tbl.close()
dim filter as c
dim order as c
Filter = "current.form.controls.return_inv_"
Order = ""
Dim filename as c
filename = session.session_folder + "tempreport.pdf"
filename = report.saveas("Return_Form@[PathAlias.ADB_Path]\returns.ddd","pdf",filter,order,filename,.f.)
if file.exists(filename)
currentform.RedirectTarget = session.session_url + "tempreport.pdf?" + time("hms3")
end if
CurrentForm.RedirectTarget = "login.a5w"
Comment