; ; ShowSearchBox("BillSearch","HAVEDEPOT", "tbNo",tbNo.CValue); UpdateForm(false, "cbLocation"); Search("SearchLocation"); UpdateForm(true, "cbLocation"); 0) { #SaleBill.Name_Linkman = #Linkman.Name_Linkman; } else { #SaleBill.Name_Linkman = DBNull(); } if (RowCount("Telephone") > 0) { #SaleBill.Tel_SaleBill = #Telephone.No_Telephone; } else { #SaleBill.Tel_SaleBill = DBNull(); } if (RowCount("Fax") > 0) { #SaleBill.Fax_SaleBill = #Fax.No_Fax; } else { #SaleBill.Fax_SaleBill = DBNull(); } if (RowCount("Invoice") > 0) { #SaleBill.InvoiceTitle_Company = #Invoice.Title_Invoice; #SaleBill.InvoiceAddress_Company = #Invoice.Address_Invoice; } else { #SaleBill.InvoiceTitle_Company = DBNull(); #SaleBill.InvoiceAddress_Company = DBNull(); } } UpdateForm(true, ""); } ]]> UpdateForm(false, "cbGetMethod"); Search("SearchGetMethod"); UpdateForm(true, "cbGetMethod"); UpdateForm(false, "cbOutStatus"); Search("SearchRespiteForSaleBill"); UpdateForm(true, "cbOutStatus"); UpdateForm(false, "ntbDiscount"); if(!@viewMode && !@importing) { } UpdateForm(false, "cbPrincipal"); Search("SearchAllPrincipal"); UpdateForm(true, "cbPrincipal"); UpdateForm(false, "cbLinkman"); Search("SearchLinkman", tbCustomerNo.CValue); UpdateForm(true, "cbLinkman"); UpdateForm(false, "cbTele"); Search("SearchTele", tbCustomerNo.CValue); UpdateForm(true, "cbTele"); UpdateForm(false, "cbFax"); Search("SearchFax", tbCustomerNo.CValue); UpdateForm(true, "cbFax"); UpdateForm(false, "cbInvoiceTitle"); Search("SearchInvoice", tbCustomerNo.CValue); UpdateForm(true, "cbInvoiceTitle"); txtAdress.CValue=cbInvoiceTitle.SelectedValue1; @SetFlag=1; ShowSearchBox("ProductSearch","INFOMATION",#SaleBillProduct.No_Product); @SetFlag=0; Search("SearchBillType"); SetDataGridColumnDataSource(10,"dgProduct"); if(#SystemSetting.SaleAndOutDepot_SystemSetting ) { if(Search("SearchOutDepot",#SaleBill.ID_SaleBill)) { if(#OutDepot.Quantity_OutDepot > 0) { MessageBox("该单据已有相应的销售出库记录，作废失败！",@Title); return; } if(#OutDepot.Quantity_SaleRtn > 0) { MessageBox("该单据已有相应的销售退货记录，作废失败！",@Title); return; } if(#OutDepot.Quantity_InDepot > 0) { MessageBox("该单据已有相应的销售退货入库记录，作废失败！",@Title); return; } } } BeginUnAudit(); #SaleBill.ID_Assessor = DBNull(); #SaleBill.Name_Assessor = ""; #SaleBill.TransBack_SaleBill=0; #SaleBill.Disable_SaleBill=true; #SaleBill.OutStatus_SaleBill="已作废"; UnAudit(false); ChangeMode("View"); cbOutStatus.Text="已作废"; EndUnAudit(); Search("UpdateCustomer",#SaleBill.ID_Customer,#SaleBill.Amount_SaleBill,"0"); ShowText("联系人：",#SaleBill.Name_Linkman,"联系电话：",#SaleBill.Tel_SaleBill,"传真：",#SaleBill.Fax_SaleBill,"发票抬头：",#SaleBill.InvoiceTitle_Company,"结算方式：",#SaleBill.GetMethod_SaleBill,"发货状态：",#SaleBill.OutStatus_SaleBill); if (Search("SearchSaleBillFirst",GetRight("客户基本资料","全权查看")?DBNull():GetLoginUserID(),GetFieldRight(@Title,"特价单","查看"),GetCurrentUser(),GetFieldRight(@Title,"特批单","查看"))) { @tp1=#SaleBill.No_SaleBill; if(!Search("SearchCustomersIsInRegionalLeader",#SaleBill.No_Customer, GetCurrentUser())) { ChangeMode("Search"); tbNo.CValue=@tp1; MessageBox("你与客户不在同一个区域，不能查看！"); tbNo.CValue=""; return; } ChangeMode("View"); } if (Search("SearchSaleBillPrevious", tbNo.CValue,GetRight("客户基本资料","全权查看")?DBNull():GetLoginUserID(),GetFieldRight(@Title,"特价单","查看"),GetCurrentUser(),GetFieldRight(@Title,"特批单","查看"))) { @tp2=#SaleBill.No_SaleBill; if(!Search("SearchCustomersIsInRegionalLeader",#SaleBill.No_Customer, GetCurrentUser())) { ChangeMode("Search"); tbNo.CValue=@tp2; MessageBox("你与客户不在同一个区域，不能查看！"); tbNo.CValue=""; return; } ChangeMode("View"); } if (Search("SearchSaleBillNext", tbNo.CValue,GetRight("客户基本资料","全权查看")?DBNull():GetLoginUserID(),GetFieldRight(@Title,"特价单","查看"),GetCurrentUser(),GetFieldRight(@Title,"特批单","查看"))) { @tp3=#SaleBill.No_SaleBill; if(!Search("SearchCustomersIsInRegionalLeader",#SaleBill.No_Customer, GetCurrentUser())) { ChangeMode("Search"); tbNo.CValue=@tp3; MessageBox("你与客户不在同一个区域，不能查看！"); tbNo.CValue=""; return; } ChangeMode("View"); } if (Search("SearchSaleBillLast",GetRight("客户基本资料","全权查看")?DBNull():GetLoginUserID(),GetFieldRight(@Title,"特价单","查看"),GetCurrentUser(),GetFieldRight(@Title,"特批单","查看"))) { @tp4=#SaleBill.No_SaleBill; if(!Search("SearchCustomersIsInRegionalLeader",#SaleBill.No_Customer, GetCurrentUser())) { ChangeMode("Search"); tbNo.CValue=@tp4; MessageBox("你与客户不在同一个区域，不能查看！"); tbNo.CValue=""; return; } ChangeMode("View"); } ChangeMode("Search"); if(@AuditMode) { } ChangeMode("Modify"); Delete(); ChangeMode("Search"); ShowPrintBox("BillSearch",#SaleBill.No_SaleBill,#SaleBill.No_SaleBill,GetFieldRight(@Title,"特价单","查看")?"1":"0"); @temptogetvalue=0; UpdateForm(true, ""); if(@AuditMode) return; @temptogetvalue2=0; BeginUnAudit(); #SaleBill.ID_Assessor = DBNull(); #SaleBill.Name_Assessor = ""; #SaleBill.TransBack_SaleBill=0; UnAudit(); ChangeMode("View"); EndUnAudit(); #SaleBill.Assess_SaleBill = 1; toolBar.EnableAssess = false; toolBar.EnableUnAssess = GetRight(@Title,"取消审核"); #SaleBill.Assess_SaleBill = 0; toolBar.EnableAssess = GetRight(@Title,"审核"); toolBar.EnableUnAssess = false; ; ; ; if(toolBar.ExpandForm==true) { pnRight.Visible=true; } else { pnRight.Visible=false; } @AvaQuantity) { @strMessage = #SaleBillProduct.No_Product +" 目前可用数量为" + (string)@AvaQuantity + "，不能满足此次销货需求！"; MessageBox(@strMessage,@Title); } } #SaleBillProduct.Amount_SaleBillProduct = FormatNumber( #SaleBillProduct.UnitPrice_SaleBillProduct * #SaleBillProduct.Quantity_SaleBillProduct, #SystemSetting.PriceDecimal_SystemSetting); ]]> #SaleBillProduct.UnitPrice_SaleBillProduct = FormatNumber(#SaleBillProduct.UnitPrice_SaleBillProduct, @PriceDecimal); if(#SaleBillProduct.OrderPrice_SaleBillProduct==0) #SaleBillProduct.Discount_SaleBillProduct=100; else #SaleBillProduct.Discount_SaleBillProduct =#SaleBillProduct.UnitPrice_SaleBillProduct/#SaleBillProduct.OrderPrice_SaleBillProduct*100; #SaleBillProduct.Amount_SaleBillProduct = FormatNumber(#SaleBillProduct.UnitPrice_SaleBillProduct * #SaleBillProduct.Quantity_SaleBillProduct, #SystemSetting.PriceDecimal_SystemSetting); #SaleBillProduct.Discount_SaleBillProduct = #SaleBillProduct.Discount_SaleBillProduct; if(#SaleBillProduct.Discount_SaleBillProduct==0) { if(Search("SearchRelation",#SaleBillProduct.No_Product,tbCustomerNo.CValue)) { if(cbTaxCurrency.Text=="内含") #SaleBillProduct.UnitPrice_SaleBillProduct=#PriceReference.UnitPriceWithTax_PriceReference; else #SaleBillProduct.UnitPrice_SaleBillProduct = #PriceReference.UnitPrice_PriceReference; if(#SaleBillProduct.OrderPrice_SaleBillProduct==0) #SaleBillProduct.Discount_SaleBillProduct=100; else #SaleBillProduct.Discount_SaleBillProduct =#SaleBillProduct.UnitPrice_SaleBillProduct/#SaleBillProduct.OrderPrice_SaleBillProduct*100; } else { #SaleBillProduct.UnitPrice_SaleBillProduct = #SaleBillProduct.OrderPrice_SaleBillProduct; #SaleBillProduct.Discount_SaleBillProduct=100; } } else { #SaleBillProduct.UnitPrice_SaleBillProduct =FormatNumber( #SaleBillProduct.OrderPrice_SaleBillProduct * #SaleBillProduct.Discount_SaleBillProduct/100,@PriceDecimal); } #SaleBillProduct.Amount_SaleBillProduct =FormatNumber( #SaleBillProduct.UnitPrice_SaleBillProduct * #SaleBillProduct.Quantity_SaleBillProduct, #SystemSetting.PriceDecimal_SystemSetting); if(GetRight("客户基本资料","全权查看")) { FormatString(""); } else { FormatString(" Customer.ID_Creator='{0}' ",GetLoginUserID()); } if(GetRight("客户基本资料","全权查看")) { FormatString(""); } else { FormatString(" Disable_SaleBill = 0 and Customer.ID_Creator='{0}' ",GetLoginUserID()); } @TaxCurrency=#SaleBill.TaxCurrency_SaleBill; @No_Principal=#SaleBill.No_Principal; @Name_Pricipal=#SaleBill.Principal_SaleBill; UpdateForm(true,"ckSpecial"); UpdateForm(true,"ckSpecial1"); UpdateForm(true, "tbCustomerNo"); ActiveControlEvent("tbCustomerNo", "Enter"); #SaleBill.TaxCurrency_SaleBill=@TaxCurrency; #SaleBill.No_Principal=@No_Principal; #SaleBill.Principal_SaleBill=@Name_Pricipal; if( Search("SearchPrincipalByNo",#SaleBill.No_Principal)) #SaleBill.ID_Principal = #Principal1.ID_Employee; UpdateForm(true,"cbPrincipal"); UpdateForm(true, "cbTaxCurrency"); Empty(); NewInstance(); dtpDate.Enabled = false; tbNo.ReadOnly = false; cbLocation.Enabled = false; tbCustomerNo.ReadOnly = true; txtOrderBillNo.ReadOnly = true; cbGetMethod.Enabled = false; ntbDiscount.ReadOnly = true; cbTaxCurrency.Enabled = false; cbPrincipal.Enabled = false; cbLinkman.Enabled = false; cbTele.Enabled = false; cbOutStatus.Enabled = false; ckSpecial.Enabled=false; ckSpecial1.Enabled=false; cbFax.Enabled = false; txtSendAddr.ReadOnly = true; cbInvoiceTitle.Enabled = false; txtAdress.ReadOnly = true; dgProduct.ReadOnly = true; dgRemark.ReadOnly = true; dgReportComment.ReadOnly = true; toolBar.EnableNew = GetRight(@Title,"新增"); toolBar.EnableSubmit = false; toolBar.EnableModify = false; toolBar.EnableDelete = false; toolBar.EnableAudit = false; toolBar.EnableUnAudit = false; toolBar.EnablePrint = false; toolBar.EnableExport = false; toolBar.EnableImport = false; toolBar.EnableAssess = false; toolBar.EnableUnAssess = false; btnDelelte.Enabled = false; #SaleBill.ID_Location = DBNull(); #SaleBill.ToGet_SaleBill = 0; #SaleBill.Discount_SaleBill = 0; #SaleBill.TaxCurrency_SaleBill = ""; #SaleBill.Currency_SaleBill = ""; #SaleBill.AssessDate_SaleBill = DBNull(); #SaleBill.LastModUser_SaleBill = DBNull(); #SaleBill.LastModDate_SaleBill = DBNull(); #SaleBill.NumSum = 0; #SaleBill.MoneySum = 0; #SaleBill.TaxSum = 0; #SaleBill.Amount_SaleBill = 0; UpdateForm(true, ""); tbNo.Focus(); @Status = 0; Empty(); NewInstance(); @viewMode = false; dtpDate.Enabled = true; tbNo.ReadOnly = true; cbLocation.Enabled = true; tbCustomerNo.ReadOnly = false; txtOrderBillNo.ReadOnly = false; cbGetMethod.Enabled = true; ntbDiscount.ReadOnly = false; cbTaxCurrency.Enabled = true; cbPrincipal.Enabled = true; cbLinkman.Enabled = true; cbTele.Enabled = true; cbFax.Enabled = true; ckSpecial.Enabled=GetFieldRight(@Title,"特价单","修改"); ckSpecial1.Enabled=GetFieldRight(@Title,"特批单","修改"); cbOutStatus.Enabled = true; txtSendAddr.ReadOnly = false; cbInvoiceTitle.Enabled = true; txtAdress.ReadOnly = false; dgProduct.ReadOnly = false; dgRemark.ReadOnly = false; dgReportComment.ReadOnly = false; toolBar.EnableNew = false; toolBar.EnableSubmit = GetRight(@Title,"新增"); toolBar.EnableModify = false; toolBar.EnableDelete = false; toolBar.EnableAudit = false; toolBar.EnableUnAudit = false; toolBar.EnablePrint = false; toolBar.EnableExport = false; toolBar.EnableImport = true; toolBar.EnableAssess = false; toolBar.EnableUnAssess = false; btnDelelte.Enabled = false; #SaleBill.ID_SaleBill = NewGuid(); #SaleBill.ID_Location = DBNull(); #SaleBill.ToGet_SaleBill = 0; #SaleBill.Discount_SaleBill = 100; #SaleBill.TaxCurrency_SaleBill = "外加"; #SaleBill.Currency_SaleBill = @SysCurrency; #SaleBill.ID_Creator = GetLoginUserID(); #SaleBill.Name_Creator = GetCurrentUser(); #SaleBill.ID_Assessor = DBNull(); #SaleBill.AssessDate_SaleBill = DBNull(); #SaleBill.LastModUser_SaleBill = DBNull(); #SaleBill.LastModDate_SaleBill = DBNull(); #SaleBill.NumSum = 0; #SaleBill.MoneySum = 0; #SaleBill.TaxSum = 0; #SaleBill.Amount_SaleBill = 0; #SaleBill.ID_Location = GetCurrentDepotID(); #SaleBill.Name_Location = GetCurrentDepot(); #SaleBill.No_Location = GetCurrentDepotNo(); #SaleBill.Date_SaleBill = GetCurrentTime(); dgProduct.SetColumnReadOnly(1, false); dgProduct.SetColumnReadOnly(9, false); dgProduct.SetColumnReadOnly(10, false); dgProduct.SetColumnReadOnly(11, false); dgProduct.RowHeaderCheck=true; dgProduct.AllowNew(true); dgProduct.AllowDelete(true); SetColumnDefaultValue("SaleBillProduct", "Discount_SaleBillProduct", #SaleBill.Discount_SaleBill); SetColumnDefaultValue("SaleBillProduct", "Quantity_SaleBillProduct", 1); UpdateForm(true, ""); dtpDate.Focus(); @Status = 1; @viewMode = true; dtpDate.Enabled = false; tbNo.ReadOnly = false; cbLocation.Enabled = false; tbCustomerNo.ReadOnly = true; txtOrderBillNo.ReadOnly = true; cbGetMethod.Enabled = false; ntbDiscount.ReadOnly = true; cbTaxCurrency.Enabled = false; cbPrincipal.Enabled = false; cbLinkman.Enabled = false; cbTele.Enabled = false; ckSpecial.Enabled=false; ckSpecial1.Enabled=false; cbFax.Enabled = false; cbOutStatus.Enabled = false; txtSendAddr.ReadOnly = true; cbInvoiceTitle.Enabled = false; txtAdress.ReadOnly = true; dgProduct.ReadOnly = true; dgRemark.ReadOnly = true; dgReportComment.ReadOnly = true; toolBar.EnableNew = GetRight(@Title,"新增"); toolBar.EnableSubmit = false; if(Search("SearchStockSettle",#SaleBill.Date_SaleBill)) { if(Equals(#SaleBill.ID_Assessor, DBNull())) { if(#SaleBill.Disable_SaleBill==false) { toolBar.EnableModify = GetRight(@Title,"修改"); toolBar.EnableDelete = GetRight(@Title,"删除"); toolBar.EnableAudit = GetRight(@Title,"审核"); } else { toolBar.EnableAudit = false; toolBar.EnableModify = false; toolBar.EnableDelete = false; } toolBar.EnableUnAudit = false; toolBar.EnableAssess = false; btnDelelte.Enabled = false; toolBar.EnableUnAssess = false; } else { toolBar.EnableModify = false; toolBar.EnableDelete = false; toolBar.EnableAudit = false; toolBar.EnableUnAudit = GetRight(@Title,"取消审核"); btnDelelte.Enabled = GetRight(@Title,"取消审核")&&GetRight(@Title,"删除"); if(#SaleBill.Assess_SaleBill == 0) { toolBar.EnableAssess = GetRight(@Title,"审核"); toolBar.EnableUnAssess = false; } else { toolBar.EnableUnAssess = GetRight(@Title,"取消审核"); toolBar.EnableAssess = false; } } } else { toolBar.EnablePrint=false; toolBar.EnableAudit=false; toolBar.EnableUnAudit=false; toolBar.EnableModify=false; toolBar.EnableDelete=false; btnDelelte.Enabled = false; } toolBar.EnablePrint = GetRight(@Title,"打印"); toolBar.EnableExport = true; toolBar.EnableImport = false; UpdateForm(true, ""); @Status = 2; tbNo.Focus(); @viewMode = false; dtpDate.Enabled = false; tbNo.ReadOnly = true; cbLocation.Enabled = true; tbCustomerNo.ReadOnly = false; txtOrderBillNo.ReadOnly = false; cbGetMethod.Enabled = true; ntbDiscount.ReadOnly = false; ckSpecial.Enabled=GetFieldRight(@Title,"特价单","修改"); ckSpecial1.Enabled=GetFieldRight(@Title,"特批单","修改"); cbPrincipal.Enabled = true; cbLinkman.Enabled = true; cbTele.Enabled = true; cbFax.Enabled = true; cbOutStatus.Enabled = true; txtSendAddr.ReadOnly = false; cbInvoiceTitle.Enabled = true; txtAdress.ReadOnly = false; dgProduct.ReadOnly = false; dgRemark.ReadOnly = false; dgReportComment.ReadOnly = false; toolBar.EnableNew = false; toolBar.EnableSubmit = GetRight(@Title,"修改"); toolBar.EnableModify = false; toolBar.EnableDelete = false; toolBar.EnableAudit = false; toolBar.EnableUnAudit = false; toolBar.EnablePrint = false; toolBar.EnableExport = false; toolBar.EnableImport = false; toolBar.EnableAssess = false; toolBar.EnableUnAssess = false; btnDelelte.Enabled = false; #SaleBill.LastModUser_SaleBill = GetLoginUserID(); #SaleBill.LastModUserName = GetCurrentUser(); #SaleBill.LastModDate_SaleBill = DateTimeNow(); @HaveAccessed = !Equals(#SaleBill.AssessDate_SaleBill,DBNull()); if(@HaveAccessed) cbTaxCurrency.Enabled = false; else cbTaxCurrency.Enabled = true; dgProduct.SetColumnReadOnly(1, @HaveAccessed); dgProduct.SetColumnReadOnly(10, @HaveAccessed); dgProduct.SetColumnReadOnly(11, @HaveAccessed); dgProduct.SetColumnReadOnly(12, @HaveAccessed); dgProduct.AllowNew(!@HaveAccessed); dgProduct.AllowDelete(!@HaveAccessed); dgProduct.RowHeaderCheck=!@HaveAccessed; SetColumnDefaultValue("SaleBillProduct", "Discount_SaleBillProduct", #SaleBill.Discount_SaleBill); SetColumnDefaultValue("SaleBillProduct", "Quantity_SaleBillProduct", 1); UpdateForm(true, ""); @Status = 3; (#IndentBillOnNetProductAmount.Quantity_IndentBillOnNetProduct-#IndentBillOnNetProductAmount.Amount_SaleBill)) { dgProduct.CurrentRowIndex = @i; tbDetail.SelectedIndex = 1; dgProduct.Focus(); MessageBox("销货数量大于网上订货数量，提交失败！",@Title); ResumeLayout(); return; } } if(Equals(#SaleBillProduct.No_Product,"")) { tbDetail.SelectedIndex = 1; dgProduct.CurrentRowIndex = @i; MessageBox("请填入产品编号！",@Title); dgProduct.Focus(); ResumeLayout(); return; } if(Equals(#SaleBillProduct.ID_Product,GuidEmpty())) { tbDetail.SelectedIndex = 1; dgProduct.CurrentRowIndex = @i; MessageBox("该产品不存在！",@Title); dgProduct.Focus(); ResumeLayout(); return; } if (#SaleBillProduct.Quantity_SaleBillProduct <= 0 || #SaleBillProduct.UnitPrice_SaleBillProduct <= 0 || #SaleBillProduct.Discount_SaleBillProduct < 0) { tbDetail.SelectedIndex = 1; dgProduct.CurrentRowIndex = @i; if(#SaleBillProduct.Quantity_SaleBillProduct <= 0) { MessageBox("数量不得小于0！",@Title); } else if(#SaleBillProduct.UnitPrice_SaleBillProduct <= 0) { MessageBox("单价不得小于0！",@Title); } else { MessageBox("折扣不得小于0！",@Title); } dgProduct.Focus(); ResumeLayout(); return; } Search("SearchLowSalePrice",#SaleBillProduct.ID_Product); if (ckSpecial.Checked == false) { if(cbTaxCurrency.SelectedName=="内含") { if (#SaleBillProduct.UnitPrice_SaleBillProduct/1.17 < #LowSalePrice.LowSalePrice_Product) { tbDetail.SelectedIndex = 1; dgProduct.CurrentRowIndex = @i; MessageBox("产品单价低于最低售价，提交失败！",@Title); dgProduct.Focus(); ResumeLayout(); return; } } else { if (#SaleBillProduct.UnitPrice_SaleBillProduct < #LowSalePrice.LowSalePrice_Product) { tbDetail.SelectedIndex = 1; dgProduct.CurrentRowIndex = @i; MessageBox("产品单价低于最低售价，提交失败！",@Title); dgProduct.Focus(); ResumeLayout(); return; } } } @AvaQuantity = AvailableQty(#SaleBillProduct.ID_Product,#SaleBill.ID_Location); if (#SaleBillProduct.Quantity_SaleBillProduct > @AvaQuantity) { @strMessage = #SaleBillProduct.No_Product +" 目前可用数量为" + (string)@AvaQuantity + "，不能满足此次销货需求，继续提交吗！"; @ClickResult = MessageBox(@strMessage,@Title,MB_OKCANCEL); if (@ClickResult == DialogResult("CANCEL")) { ResumeLayout(); return; } } if (Equals(#SaleBillProduct.ID_SaleBillProduct,GuidEmpty())) #SaleBillProduct.ID_SaleBillProduct = NewGuid(); #SaleBillProduct.ID_SaleBill =#SaleBill.ID_SaleBill; } for (@j=0;@j 0) { SuspendLayout(); for (@a=0;@a Update(); #PayLimit.PayLimit_Customer) { MessageBox("本次销售已大于客户信用额度，审核失败!",@Title); ResumeLayout(); return; } if(Search("SearchSaleInvoice",tbCustomerNo.CValue,DateTimeNow())) { string str = ""; string tem = ""; for( @o = 0 ; @o < RowCount("#SearchSaleInvoice") ; @o=@o+1) { SetPosition("#SearchSaleInvoice", @o); tem =#SearchSaleInvoice.Amount_SaleInvoice; str += #SearchSaleInvoice.No_SaleInvoice +","+"未付款金额:"+tem+"\n\n"; } MessageBox("该客户有销项发票到期未付款,审核失败!\n\n "+str,@Title); ResumeLayout(); return; } for (@i=0;@i BeginAudit(); #SaleBill.ID_Assessor = GetLoginUserID(); #SaleBill.Name_Assessor = GetCurrentUser(); #SaleBill.AssessDate_SaleBill = DateTimeNow(); Audit(); ChangeMode("View"); EndAudit();