; ; if(tbNo.ReadOnly == false) { if(tbNo.CValue != StringEmpty()) { UpdateForm(false, ""); if(Search("SearchPurchaseOrderBillWithNo", tbNo.CValue)) { ChangeMode("View"); } else { MessageBox("该采购订单不存在！",@Title); } } else { MessageBox("请输入采购订单号！", @Title); } } ShowSearchBox("BillSearch","HAVEDEPOT", "tbNo",tbNo.CValue); UpdateForm(false, "cbLocation"); Search("SearchLocation"); UpdateForm(true, "cbLocation"); UpdateForm(false,""); if(tbNoSupplier.CValue!=StringEmpty()) { if(!Search("SearchSupplier",tbNoSupplier.CValue)) { MessageBox("该供应商不存在！",@Title); @temp = ShowSearchBox("SupplierSearch","INFOMATION",tbNoSupplier.CValue); if(@temp != "") { tbNoSupplier.CValue = @temp; ActiveControlEvent("tbNoSupplier", "Enter"); } } else { if (!Equals(#Supplier.SuspendDate_Supplier,DBNull())) { MessageBox("该供应商已停用！",@Title); } #PurchaseOrderBill.ID_Supplier=#Supplier.ID_Supplier; #PurchaseOrderBill.Name_Supplier=#Supplier.Name_Supplier; #PurchaseOrderBill.ShortName_Supplier=#Supplier.ShortName_Supplier; #PurchaseOrderBill.PostalCode_Supplier=#Supplier.PostalCode_Supplier; #PurchaseOrderBill.RegistedAddress_Supplier=#Supplier.RegistedAddress_Supplier; #PurchaseOrderBill.Name_Linkman=""; #PurchaseOrderBill.TaxCurrency_PurchaseOrderBill=#Supplier.LastTax_Supplier; Empty("#ReportComment"); Search("SearchTypeComment",#PurchaseOrderBill.ID_Supplier); MergeTable("#TypeComment","#ReportComment"); if(Search("SearchLinkman",#Supplier.ID_Supplier)) { #PurchaseOrderBill.Name_Linkman=#linkman.Name_Linkman; } else { #PurchaseOrderBill.Name_Linkman=""; } if(Search("SearchFocusTelephone",#Supplier.ID_Supplier)) { #PurchaseOrderBill.Name_Telephone=#FocusTelephone.No_Telephone; } else { #PurchaseOrderBill.Name_Telephone=""; } if(Search("SearchFocusFax",#Supplier.ID_Supplier)) { #PurchaseOrderBill.Fax_Telephone=#FocusFax.No_Fax; } else { #PurchaseOrderBill.Fax_Telephone=""; } } } else { MessageBox("请输入供应商编号！",@Title); #PurchaseOrderBill.ID_Supplier=GuidEmpty(); #PurchaseOrderBill.ShortName_Supplier=""; #PurchaseOrderBill.Name_Principal=""; #PurchaseOrderBill.Name_Supplier=""; #PurchaseOrderBill.Name_Linkman=""; #PurchaseOrderBill.Name_Telephone=""; #PurchaseOrderBill.Fax_Telephone=""; #PurchaseOrderBill.PostalCode_Supplier=""; #PurchaseOrderBill.RegistedAddress_Supplier=""; tbNoSupplier.Focus(); } UpdateForm(true,""); UpdateForm(false, "cbPrincipal"); Search("SearchPrincipal"); UpdateForm(true, "cbPrincipal"); UpdateForm(false, "cbLinkman"); Search("SearchLinkman",#PurchaseOrderBill.ID_Supplier); UpdateForm(true, "cbLinkman"); UpdateForm(false, "cbTelephone"); Search("SearchTelephone",#PurchaseOrderBill.ID_Supplier); UpdateForm(true, "cbTelephone"); UpdateForm(false, "cbFax"); Search("SearchFax",#PurchaseOrderBill.ID_Supplier); UpdateForm(true, "cbFax"); Search("SearchBillType"); SetDataGridColumnDataSource(1,"dgProduct"); @SetFlag=1; ShowSearchBox("ProductSearch","INFOMATION",#PurchaseOrderBillProduct.No_Product); @SetFlag=0; if(Search("SearchPurchaseOrderBillFirst")) { ChangeMode("View"); } if(Search("SearchPurchaseOrderBillPrev", tbNo.CValue)) { ChangeMode("View"); } if(Search("SearchPurchaseOrderBillNext",tbNo.CValue)) { ChangeMode("View"); } if(Search("SearchPurchaseOrderBillLast")) { ChangeMode("View"); } ChangeMode("Search"); if(@AuditMode) { } ChangeMode("Modify"); Delete(); ChangeMode("Search"); ShowPrintBox("BillSearch",#PurchaseOrderBill.No_PurchaseOrderBill,#PurchaseOrderBill.No_PurchaseOrderBill); if(@AuditMode) return; BeginUnAudit(); #PurchaseOrderBill.ID_Assessor=DBNull(); #PurchaseOrderBill.Assessor=DBNull(); #PurchaseOrderBill.AssessDate_PurchaseOrderBill=DataTimeNow(); UnAudit(); ChangeMode("View"); EndUnAudit(); ; ; ; ; if(toolBar.MenuItemText=="采购入库单") { if(Search("SearchContr")) { ExportBillProductStart("#PurchaseInDepotBillProduct.Type_FromBill",41,"#PurchaseInDepotBillProduct.Name_BillType","采购订单","#PurchaseInDepotBillProduct.No_FromBill",#PurchaseOrderBill.No_PurchaseOrderBill,"#PurchaseInDepotBill.No_Supplier",#PurchaseOrderBill.No_Supplier); ExportBillProduct("dgProduct","#PurchaseOrderBillProduct","#PurchaseInDepotBillProduct.No_FromBillProduct","#PurchaseOrderBillProduct.No_PurchaseOrderBillProduct"); } else { ExportBillProductStart("#PurchaseInDepotBill.No_Supplier",#PurchaseOrderBill.No_Supplier,"#PurchaseInDepotBillProduct.Comment_PurchaseInDepotBillProduct","采购订单"+#PurchaseOrderBill.No_PurchaseOrderBill); ExportBillProduct("dgProduct","#PurchaseOrderBillProduct","#PurchaseInDepotBillProduct.No_Product","#PurchaseOrderBillProduct.No_Product"); } } if(#PurchaseOrderBillProduct.Name_BillType!=StringEmpty()&&#PurchaseOrderBillProduct.No_FromBill!=StringEmpty()&&#PurchaseOrderBillProduct.No_FromBillProduct!=StringEmpty()) { if ( Search("SearchPurchaseQueryBill",#PurchaseOrderBillProduct.No_FromBill)) { if(!Equals(#PurchaseQueryBill.TaxCurrency_PurchaseQueryBill,cbTaxCurrency.Text)) { MessageBox("请注意，来源单据税别为"+#PurchaseQueryBill.TaxCurrency_PurchaseQueryBill+"！",@Title); } } if(Search("SearchPurchaseQueryBillProduct",#PurchaseOrderBillProduct.No_FromBill,#PurchaseOrderBillProduct.No_FromBillProduct)) { if(!Equals(#PurchaseQueryBillProduct.SuspendDate_Product,DBNull())) { MessageBox("该产品已停用！",@Title); } #PurchaseOrderBillProduct.ID_Product=#PurchaseQueryBillProduct.ID_Product; #PurchaseOrderBillProduct.No_Product=#PurchaseQueryBillProduct.No_Product; #PurchaseOrderBillProduct.Name_Product=#PurchaseQueryBillProduct.Name_Product; #PurchaseOrderBillProduct.Unit_Product=#PurchaseQueryBillProduct.Unit_Product; #PurchaseOrderBillProduct.Quantity_PurchaseOrderBillProduct=#PurchaseQueryBillProduct.Quantity_PurchaseQueryBillProduct; #PurchaseOrderBillProduct.UnitPrice_PurchaseOrderBillProduct=#PurchaseQueryBillProduct.UnitPrice_PurchaseQueryBillProduct; #PurchaseOrderBillProduct.Money=#PurchaseOrderBillProduct.Quantity_PurchaseOrderBillProduct*#PurchaseOrderBillProduct.UnitPrice_PurchaseOrderBillProduct; } } if(#PurchaseOrderBillProduct.Name_BillType!=StringEmpty()&&#PurchaseOrderBillProduct.No_FromBill!=StringEmpty()&&#PurchaseOrderBillProduct.No_FromBillProduct!=StringEmpty()) { if (Search("SearchPurchaseQueryBill",#PurchaseOrderBillProduct.No_FromBill)) { if(!Equals(#PurchaseQueryBill.TaxCurrency_PurchaseQueryBill,cbTaxCurrency.Text)) { MessageBox("请注意，来源单据税别为"+#PurchaseQueryBill.TaxCurrency_PurchaseQueryBill+"！",@Title); } } if(Search("SearchPurchaseQueryBillProduct",#PurchaseOrderBillProduct.No_FromBill,#PurchaseOrderBillProduct.No_FromBillProduct)) { if(!Equals(#PurchaseQueryBillProduct.SuspendDate_Product,DBNull())) { MessageBox("该产品已停用！",@Title); } #PurchaseOrderBillProduct.ID_Product=#PurchaseQueryBillProduct.ID_Product; #PurchaseOrderBillProduct.No_Product=#PurchaseQueryBillProduct.No_Product; #PurchaseOrderBillProduct.Name_Product=#PurchaseQueryBillProduct.Name_Product; #PurchaseOrderBillProduct.Unit_Product=#PurchaseQueryBillProduct.Unit_Product; #PurchaseOrderBillProduct.Quantity_PurchaseOrderBillProduct=#PurchaseQueryBillProduct.Quantity_PurchaseQueryBillProduct; #PurchaseOrderBillProduct.UnitPrice_PurchaseOrderBillProduct=#PurchaseQueryBillProduct.UnitPrice_PurchaseQueryBillProduct; #PurchaseOrderBillProduct.Money=#PurchaseOrderBillProduct.Quantity_PurchaseOrderBillProduct*#PurchaseOrderBillProduct.UnitPrice_PurchaseOrderBillProduct; } } if(#PurchaseOrderBillProduct.Name_BillType!=StringEmpty()&&#PurchaseOrderBillProduct.No_FromBill!=StringEmpty()&&#PurchaseOrderBillProduct.No_FromBillProduct!=StringEmpty()) { if (Search("SearchPurchaseQueryBill",#PurchaseOrderBillProduct.No_FromBill)) { if(!Equals(#PurchaseQueryBill.TaxCurrency_PurchaseQueryBill,cbTaxCurrency.Text)) { MessageBox("请注意，来源单据税别为"+#PurchaseQueryBill.TaxCurrency_PurchaseQueryBill+"！",@Title); } } if(Search("SearchPurchaseQueryBillProduct",#PurchaseOrderBillProduct.No_FromBill,#PurchaseOrderBillProduct.No_FromBillProduct)) { if(!Equals(#PurchaseQueryBillProduct.SuspendDate_Product,DBNull())) { MessageBox("该产品已停用！",@Title); } #PurchaseOrderBillProduct.ID_Product=#PurchaseQueryBillProduct.ID_Product; #PurchaseOrderBillProduct.No_Product=#PurchaseQueryBillProduct.No_Product; #PurchaseOrderBillProduct.Name_Product=#PurchaseQueryBillProduct.Name_Product; #PurchaseOrderBillProduct.Unit_Product=#PurchaseQueryBillProduct.Unit_Product; #PurchaseOrderBillProduct.Quantity_PurchaseOrderBillProduct=#PurchaseQueryBillProduct.Quantity_PurchaseQueryBillProduct; #PurchaseOrderBillProduct.UnitPrice_PurchaseOrderBillProduct=#PurchaseQueryBillProduct.UnitPrice_PurchaseQueryBillProduct; #PurchaseOrderBillProduct.Money=#PurchaseOrderBillProduct.Quantity_PurchaseOrderBillProduct*#PurchaseOrderBillProduct.UnitPrice_PurchaseOrderBillProduct; } } if(@SetFlag==0) { return; } if(#PurchaseOrderBillProduct.No_Product==StringEmpty() || !Search("SearchProduct",#PurchaseOrderBillProduct.No_Product)) { if(#PurchaseOrderBillProduct.No_Product!=StringEmpty()) MessageBox("该产品不存在！",@Title); #PurchaseOrderBillProduct.ID_Product=GuidEmpty(); #PurchaseOrderBillProduct.Name_Product=""; #PurchaseOrderBillProduct.Unit_Product=""; @temp = ShowSearchBox("InputSearchProduct","INFOMATION",#PurchaseOrderBillProduct.No_Product); if(@temp != "") { ResumeColumnEvent("#PurchaseOrderBillProduct.No_Product"); #PurchaseOrderBillProduct.No_Product = @temp; ClearColumnEvent(); } }else{ if(!Equals(#Product.SuspendDate_Product,DBNull())) { MessageBox("该产品已停用！",@Title); } #PurchaseOrderBillProduct.ID_Product=#Product.ID_Product; #PurchaseOrderBillProduct.Name_Product=#Product.Name_Product; #PurchaseOrderBillProduct.Unit_Product=#Product.Unit_Product; } #PurchaseOrderBillProduct.Quantity_PurchaseOrderBillProduct=FormatNumber(#PurchaseOrderBillProduct.Quantity_PurchaseOrderBillProduct,@QuantityDecimal); #PurchaseOrderBillProduct.Money=FormatNumber(FormatNumber(#PurchaseOrderBillProduct.Quantity_PurchaseOrderBillProduct,@QuantityDecimal)*FormatNumber(#PurchaseOrderBillProduct.UnitPrice_PurchaseOrderBillProduct,@UnitPriceDecimal),@PriceDecimal); #PurchaseOrderBillProduct.UnitPrice_PurchaseOrderBillProduct=FormatNumber(#PurchaseOrderBillProduct.UnitPrice_PurchaseOrderBillProduct,@UnitPriceDecimal); #PurchaseOrderBillProduct.Money=FormatNumber(FormatNumber(#PurchaseOrderBillProduct.Quantity_PurchaseOrderBillProduct,@QuantityDecimal)*FormatNumber(#PurchaseOrderBillProduct.UnitPrice_PurchaseOrderBillProduct,@UnitPriceDecimal),@PriceDecimal); Search("SearchPrincipal"); cbPrincipal.SelectedNo = #PurchaseOrderBill.No_Principal; cbPrincipal.SelectedName = #PurchaseOrderBill.Name_Principal; @TaxCurrency=#PurchaseOrderBill.TaxCurrency_PurchaseOrderBill; UpdateForm(true, "tbNoSupplier"); tbNoSupplier.Focus(); Search("SearchLocation"); cbLocation.Text = #PurchaseOrderBill.Name_Location; ActiveControlEvent("tbNoSupplier", "Enter"); #PurchaseOrderBill.TaxCurrency_PurchaseOrderBill=@TaxCurrency; UpdateForm(true, "cbTaxCurrency"); Empty(); NewInstance(); tbNo.ReadOnly=false; timeMake.Enabled=false; refNo.ReadOnly=true; cbLocation.Enabled=false; tbNoSupplier.ReadOnly=true; cbTaxCurrency.Enabled=false; cbCurrency.Enabled=false; arrivalDate.Enabled=false; cbPrincipal.Enabled=false; cbLinkman.Enabled=false; cbTelephone.Enabled=false; cbFax.Enabled=false; dgProduct.ReadOnly=true; dgRemark.ReadOnly=true; dgReportComment.ReadOnly=true; txtNumSum.CValue=0.00; txtMoneySum.CValue=0.00; txtTaxSum.CValue=0.00; txtSum.CValue=0.00; cbTaxCurrency.Text=""; #PurchaseOrderBill.Creator=DBNull(); #PurchaseOrderBill.ID_Creator=DBNull(); #PurchaseOrderBill.Assessor=DBNull(); #PurchaseOrderBill.ID_Assessor=DBNull(); #PurchaseOrderBill.AssessDate_PurchaseOrderBill=DBNull(); #PurchaseOrderBill.LastModUser_PurchaseOrderBill=DBNull(); #PurchaseOrderBill.LastModUser=DBNull(); #PurchaseOrderBill.LastModDate_PurchaseOrderBill=DBNull(); toolBar.EnableSubmit=false; toolBar.EnableModify=false; toolBar.EnableDelete=false; toolBar.EnableAudit=false; toolBar.EnableUnAudit=false; toolBar.EnablePrint=false; toolBar.EnableNew=GetRight(@Title,"新增"); toolBar.EnableExport = false; toolBar.EnableImport = false; UpdateForm(true,""); tbNo.Focus(); @Status=0; Empty(); NewInstance(); tbNo.ReadOnly=true; timeMake.Enabled=true; refNo.ReadOnly=false; cbLocation.Enabled=true; tbNoSupplier.ReadOnly=false; cbTaxCurrency.Enabled=true; cbCurrency.Enabled=false; arrivalDate.Enabled=true; cbPrincipal.Enabled=true; cbLinkman.Enabled=true; cbTelephone.Enabled=true; cbFax.Enabled=true; dgProduct.ReadOnly=false; dgRemark.ReadOnly=false; dgReportComment.ReadOnly=false; txtNumSum.CValue=0.00; txtMoneySum.CValue=0.00; txtTaxSum.CValue=0.00; txtSum.CValue=0.00; timeMake.Focus(); #PurchaseOrderBill.TaxCurrency_PurchaseOrderBill= "外加"; #PurchaseOrderBill.Currency_PurchaseOrderBill= @SysCurrency; #PurchaseOrderBill.ID_PurchaseOrderBill=NewGuid(); #PurchaseOrderBill.Creator=GetCurrentUser(); #PurchaseOrderBill.ID_Creator=GetLoginUserID(); #PurchaseOrderBill.Assessor=DBNull(); #PurchaseOrderBill.ID_Assessor=DBNull(); #PurchaseOrderBill.AssessDate_PurchaseOrderBill=DBNull(); #PurchaseOrderBill.LastModUser=DBNull(); #PurchaseOrderBill.LastModUser_PurchaseOrderBill=DBNull(); #PurchaseOrderBill.LastModDate_PurchaseOrderBill=DBNull(); #PurchaseOrderBill.ID_Location=GetCurrentDepotID(); #PurchaseOrderBill.Name_Location=GetCurrentDepot(); #PurchaseOrderBill.No_Location=GetCurrentDepotNo(); #PurchaseOrderBill.Date_PurchaseOrderBill=GetCurrentTime(); toolBar.EnableSubmit=GetRight(@Title,"新增"); toolBar.EnableModify=false; toolBar.EnableDelete=false; toolBar.EnableAudit=false; toolBar.EnableUnAudit=false; toolBar.EnableNew=false; toolBar.EnablePrint=false; toolBar.EnableExport = false; toolBar.EnableImport = true; dgProduct.SetColumnReadOnly(1, false); dgProduct.SetColumnReadOnly(2, false); dgProduct.SetColumnReadOnly(3, false); dgProduct.SetColumnReadOnly(4, false); dgProduct.RowHeaderCheck=true; dgProduct.AllowNew(true); dgProduct.AllowDelete(true); SetColumnDefaultValue("PurchaseOrderBillProduct", "Quantity_PurchaseOrderBillProduct",1 ); UpdateForm(true,""); @Status=1; tbNo.ReadOnly=false; timeMake.Enabled=false; refNo.ReadOnly=true; cbLocation.Enabled=false; tbNoSupplier.ReadOnly=true; cbTaxCurrency.Enabled=false; cbCurrency.Enabled=false; arrivalDate.Enabled=false; cbPrincipal.Enabled=false; cbLinkman.Enabled=false; cbTelephone.Enabled=false; cbFax.Enabled=false; dgProduct.ReadOnly=true; dgRemark.ReadOnly=true; dgReportComment.ReadOnly=true; toolBar.EnableSubmit=false; toolBar.EnablePrint=GetRight(@Title,"打印"); toolBar.EnableNew=GetRight(@Title,"新增"); if(Search("SearchStockSettle",#PurchaseOrderBill.Date_PurchaseOrderBill)) { if(Equals(#PurchaseOrderBill.ID_Assessor, DBNull())) { toolBar.EnableAudit=GetRight(@Title,"审核"); toolBar.EnableUnAudit=false; toolBar.EnableModify=GetRight(@Title,"修改"); toolBar.EnableDelete=GetRight(@Title,"删除"); } else { toolBar.EnableAudit=false; toolBar.EnableUnAudit=GetRight(@Title,"取消审核"); toolBar.EnableModify=false; toolBar.EnableDelete=false; } } else { toolBar.EnablePrint=false; toolBar.EnableAudit=false; toolBar.EnableUnAudit=false; toolBar.EnableModify=false; toolBar.EnableDelete=false; } toolBar.EnableExport = true; toolBar.EnableImport = false; tbNo.Focus(); UpdateForm(true, ""); @Status=2; tbNo.ReadOnly=true; timeMake.Enabled=false; refNo.ReadOnly=false; cbLocation.Enabled=true; tbNoSupplier.ReadOnly=false; cbCurrency.Enabled=false; arrivalDate.Enabled=true; cbPrincipal.Enabled=true; cbLinkman.Enabled=true; cbTelephone.Enabled=true; cbFax.Enabled=true; dgProduct.ReadOnly=false; dgRemark.ReadOnly=false; dgReportComment.ReadOnly=false; #PurchaseOrderBill.LastModUser=GetCurrentUser(); #PurchaseOrderBill.LastModUser_PurchaseOrderBill=GetLoginUserID(); #PurchaseOrderBill.LastModDate_PurchaseOrderBill=GetCurrentTime(); toolBar.EnableSubmit=GetRight(@Title,"修改"); toolBar.EnableModify=false; toolBar.EnableDelete=false; toolBar.EnableAudit=false; toolBar.EnableUnAudit=false; toolBar.EnableNew=false; toolBar.EnablePrint=false; toolBar.EnableExport = false; toolBar.EnableImport = false; @HaveAccessed = !Equals(#PurchaseOrderBill.AssessDate_PurchaseOrderBill,DBNull()); dgProduct.SetColumnReadOnly(1, @HaveAccessed); dgProduct.SetColumnReadOnly(2, @HaveAccessed); dgProduct.SetColumnReadOnly(3, @HaveAccessed); dgProduct.SetColumnReadOnly(4, @HaveAccessed); dgProduct.AllowNew(!@HaveAccessed); dgProduct.AllowDelete(!@HaveAccessed); dgProduct.RowHeaderCheck=!@HaveAccessed; SetColumnDefaultValue("PurchaseOrderBillProduct", "Quantity_PurchaseOrderBillProduct",1 ); @HaveAccessed = !Equals(#PurchaseOrderBill.AssessDate_PurchaseOrderBill,DBNull()); if(@HaveAccessed) cbTaxCurrency.Enabled = false; else cbTaxCurrency.Enabled = true; UpdateForm(true, ""); @Status=3; BeginAudit(); #PurchaseOrderBill.ID_Assessor=GetLoginUserID(); #PurchaseOrderBill.Assessor=GetCurrentUser(); #PurchaseOrderBill.AssessDate_PurchaseOrderBill=DateTimeNow(); Audit(); ChangeMode("View"); EndAudit();