; ; ShowSearchBox("BillSearch","NODEPOT", "tbNo", tbNo.CValue); 0) { Empty("#ReceivablesStrikeBills"); SuspendLayout(); for (@i =0;@i 0) #ReceivablesStrikeMethod.Amount_ReceivablesStrikeMethod=0.00; } ResumeLayout(); } btnSearchByInvoice.Enabled = false; btnAutoStrike.Enabled = false; btnSearch.Enabled = false; } else { btnSearchByInvoice.Enabled = false; btnAutoStrike.Enabled = true; btnSearch.Enabled = true; } ]]> UpdateForm(false, "cbReceiver"); Search("SearchReceiver"); UpdateForm(true, "cbReceiver"); UpdateForm(false, "cbPayment"); Search("SearchReceivablesStrikeMethod"); UpdateForm(true, "cbPayment"); 0) { for (@i=0; @i MessageBox("校验已通过！",@Title); @SumMoneyPerGet) { @SumStrike = @SumMoneyPerGet; } else { @SumStrike = @SumMoney; } for (@j=0;@j 0) { if (@SumStrike >= #ReceivablesStrikeBills.ToGetAmount_ReceivablesStrikeBills) { #ReceivablesStrikeBills.Strike_ReceivablesStrikeBills = #ReceivablesStrikeBills.ToGetAmount_ReceivablesStrikeBills; } else { #ReceivablesStrikeBills.Strike_ReceivablesStrikeBills = @SumStrike; } @SumStrike = @SumStrike - #ReceivablesStrikeBills.Strike_ReceivablesStrikeBills; } } if (@SumMoney > @SumMoneyPerGet) { @SumStrike = @SumMoneyPerGet; } else { @SumStrike = @SumMoney; } for (@k=0;@k 0) { if (@SumStrike > #ReceivablesStrikeMethod.LeaveAmount_ReceivablesStrikeMethod) { #ReceivablesStrikeMethod.Amount_ReceivablesStrikeMethod = #ReceivablesStrikeMethod.LeaveAmount_ReceivablesStrikeMethod; } else { #ReceivablesStrikeMethod.Amount_ReceivablesStrikeMethod = @SumStrike; } @SumStrike = @SumStrike - #ReceivablesStrikeMethod.Amount_ReceivablesStrikeMethod; } } ResumeLayout(); ]]> if (Search("SearchReceivablesStrikeFirst", tbNo.CValue)) { ChangeMode("View",#ReceivablesStrike.ID_Assessor); } if (Search("SearchReceivablesStrikePrevious", tbNo.CValue)) { ChangeMode("View",#ReceivablesStrike.ID_Assessor); } if (Search("SearchReceivablesStrikeNext", tbNo.CValue)) { ChangeMode("View",#ReceivablesStrike.ID_Assessor); } if (Search("SearchReceivablesStrikeLast", tbNo.CValue)) { ChangeMode("View",#ReceivablesStrike.ID_Assessor); } ChangeMode("Search"); ChangeMode("Modify"); PrintReport(); @SumMoneyPerGet) { @SumStrike = @SumMoneyPerGet; } else { @SumStrike = @SumMoney; } for (@j=0;@j 0) { if (@SumStrike >= #ReceivablesStrikeBills.ToGetAmount_ReceivablesStrikeBills) { #ReceivablesStrikeBills.Strike_ReceivablesStrikeBills = #ReceivablesStrikeBills.ToGetAmount_ReceivablesStrikeBills; } else { #ReceivablesStrikeBills.Strike_ReceivablesStrikeBills = @SumStrike; } @SumStrike = @SumStrike - #ReceivablesStrikeBills.Strike_ReceivablesStrikeBills; } } if (@SumMoney > @SumMoneyPerGet) { @SumStrike = @SumMoneyPerGet; } else { @SumStrike = @SumMoney; } for (@k=0;@k 0) { if (@SumStrike > #ReceivablesStrikeMethod.LeaveAmount_ReceivablesStrikeMethod) { #ReceivablesStrikeMethod.Amount_ReceivablesStrikeMethod = #ReceivablesStrikeMethod.LeaveAmount_ReceivablesStrikeMethod; } else { #ReceivablesStrikeMethod.Amount_ReceivablesStrikeMethod = @SumStrike; } @SumStrike = @SumStrike - #ReceivablesStrikeMethod.Amount_ReceivablesStrikeMethod; } } for (@g=0; @g ; ; ; if (toolBar.ExpandForm==true) { pnRight.Visible=true; } else { pnRight.Visible=false; } #ReceivablesStrikeBills.ToGetAmount_ReceivablesStrikeBills=#ReceivablesStrikeBills.Amount_FromBill-#ReceivablesStrikeBills.StrikedAmount_ReceivablesStrikeBills-#ReceivablesStrikeBills.Discount_ReceivablesStrikeBills; Empty(); NewInstance(); dtDate.Enabled = false; tbNo.ReadOnly = false; tbCustomerNo.ReadOnly = true; cbReceiver.Enabled = false; txtComment.ReadOnly = true; dgReceiveMoney.ReadOnly = true; txtSum.CValue = 0.00; ntbOpeningToGetBalance.CValue = 0.00; dtStart.Enabled = false; dtEnd.Enabled = false; dgBill.ReadOnly = true; toolBar.EnableNew = GetRight(@Title,"新增"); toolBar.EnableSubmit = false; toolBar.EnableModify = false; toolBar.EnableDelete = false; toolBar.EnableAudit = false; toolBar.EnableUnAudit = false; toolBar.EnablePrint = false; cbPrev.Enabled = false; cbPayment.Enabled =false; txtMoney.ReadOnly = true; btnOK.Enabled = false; btnSearchByInvoice.Enabled = false; btnAutoStrike.Enabled = false; btnVerify.Enabled = false; #ReceivablesStrike.GetCurrency_ReceivablesStrike = ""; #ReceivablesStrike.BillCurrency_ReceivablesStrike = ""; #ReceivablesStrike.Rate_ReceivablesStrike = 0; #ReceivablesStrike.AssessDate_ReceivablesStrike = DBNull(); #ReceivablesStrike.LastModDate_ReceivablesStrike = DBNull(); UpdateForm(true, ""); tbNo.Focus(); @Status = 0; Empty(); NewInstance(); dtDate.Enabled = true; tbNo.ReadOnly = true; tbCustomerNo.ReadOnly = false; cbReceiver.Enabled = true; txtComment.ReadOnly = false; dgReceiveMoney.ReadOnly = true; dgBill.ReadOnly = false; txtSum.CValue = 0.00; ntbOpeningToGetBalance = 0.00; dtStart.Enabled = true; dtEnd.Enabled = true; toolBar.EnableNew = false; toolBar.EnableSubmit = GetRight(@Title,"新增"); toolBar.EnableModify = false; toolBar.EnableDelete = false; toolBar.EnableAudit = false; toolBar.EnableUnAudit = false; toolBar.EnablePrint = false; cbPrev.Enabled = true; cbPayment.Enabled = true; txtMoney.ReadOnly = false; btnOK.Enabled = true; btnSearchByInvoice.Enabled = true; btnAutoStrike.Enabled = true; btnVerify.Enabled = true; dgReceiveMoney.AllowNew(false); dgReceiveMoney.AllowDelete(false); dgReceiveMoney.SetColumnReadOnly(1, false); dgReceiveMoney.RowHeaderCheck = false; dgBill.AllowNew(true); dgBill.AllowDelete(true); dgBill.SetColumnReadOnly(1, false); dgBill.RowHeaderCheck = true; #ReceivablesStrike.ID_ReceivablesStrike = NewGuid(); #ReceivablesStrike.ID_Creator = GetLoginUserID(); #ReceivablesStrike.Name_Creator = GetCurrentUser(); #ReceivablesStrike.ID_Assessor = DBNull(); #ReceivablesStrike.AssessDate_ReceivablesStrike = DBNull(); #ReceivablesStrike.LastModUser_ReceivablesStrike = DBNull(); #ReceivablesStrike.LastModDate_ReceivablesStrike = DBNull(); #ReceivablesStrike.GetCurrency_ReceivablesStrike = @SysCurrency; #ReceivablesStrike.BillCurrency_ReceivablesStrike = @SysCurrency; #ReceivablesStrike.Rate_ReceivablesStrike = 1; SetColumnDefaultValue("ReceivablesStrikeBills", "PayDate_ReceivablesStrikeBills", DBNull()); UpdateForm(true, ""); @Status = 1; dtDate.Enabled = false; tbNo.ReadOnly = true; tbCustomerNo.ReadOnly = true; cbReceiver.Enabled = false; txtComment.ReadOnly = true; dgReceiveMoney.ReadOnly = true; dgBill.ReadOnly = true; dtStart.Enabled = false; dtEnd.Enabled = false; toolBar.EnableNew = GetRight(@Title,"新增"); toolBar.EnableSubmit = false; if (Equals(#ReceivablesStrike.ID_Assessor, DBNull())) { toolBar.EnableModify = GetRight(@Title,"修改"); toolBar.EnableDelete = GetRight(@Title,"删除"); toolBar.EnableAudit = GetRight(@Title,"审核"); toolBar.EnableUnAudit = false; } else { toolBar.EnableModify = false; toolBar.EnableDelete = false; toolBar.EnableAudit = false; toolBar.EnableUnAudit = GetRight(@Title,"取消审核"); } toolBar.EnablePrint = GetRight(@Title,"打印"); cbPrev.Enabled = false; cbPayment.Enabled = false; txtMoney.ReadOnly = true; btnOK.Enabled = false; btnSearchByInvoice.Enabled = false; btnAutoStrike.Enabled = false; btnVerify.Enabled = false; UpdateForm(true, ""); @Status = 2; dtDate.Enabled = false; tbNo.ReadOnly = true; tbCustomerNo.ReadOnly = true; cbReceiver.Enabled = true; txtComment.ReadOnly = false; dgReceiveMoney.ReadOnly = true; dgBill.ReadOnly = false; dtStart.Enabled = true; dtEnd.Enabled = true; toolBar.EnableNew = false; toolBar.EnableSubmit = GetRight(@Title,"修改"); toolBar.EnableModify = false; toolBar.EnableDelete = false; toolBar.EnableAudit = false; toolBar.EnableUnAudit = false; toolBar.EnablePrint = false; @NotAssess = Equals(#ReceivablesStrike.AssessDate_ReceivablesStrike, DBNull()); cbPrev.Enabled = @NotAssess; cbPayment.Enabled = true; txtMoney.ReadOnly = false; btnOK.Enabled = false; if (cbPrev.Checked) { btnSearchByInvoice.Enabled = false; btnAutoStrike.Enabled = false; } else { btnSearchByInvoice.Enabled = @NotAssess; btnAutoStrike.Enabled = true; } btnVerify.Enabled = true; dgReceiveMoney.AllowNew(false); dgReceiveMoney.AllowDelete(false); dgReceiveMoney.SetColumnReadOnly(1, false); dgReceiveMoney.RowHeaderCheck = false; dgBill.AllowNew(@NotAssess); dgBill.AllowDelete(@NotAssess); dgBill.SetColumnReadOnly(1, !@NotAssess); dgBill.RowHeaderCheck = @NotAssess; #ReceivablesStrike.LastModUser_ReceivablesStrike = GetLoginUserID(); #ReceivablesStrike.Name_LastModUser = GetCurrentUser(); #ReceivablesStrike.LastModDate_ReceivablesStrike = DateTimeNow(); SetColumnDefaultValue("ReceivablesStrikeBills", "PayDate_ReceivablesStrikeBills", DBNull()); UpdateForm(true, ""); @Status = 3; @SumMoneyPerGet) { @SumStrike = @SumMoneyPerGet; } else { @SumStrike = @SumMoney; } for (@j=0;@j 0) { if (@SumStrike >= #ReceivablesStrikeBills.ToGetAmount_ReceivablesStrikeBills) { #ReceivablesStrikeBills.Strike_ReceivablesStrikeBills = #ReceivablesStrikeBills.ToGetAmount_ReceivablesStrikeBills; } else { #ReceivablesStrikeBills.Strike_ReceivablesStrikeBills = @SumStrike; } @SumStrike = @SumStrike - #ReceivablesStrikeBills.Strike_ReceivablesStrikeBills; } } if (@SumMoney > @SumMoneyPerGet) { @SumStrike = @SumMoneyPerGet; } else { @SumStrike = @SumMoney; } for (@k=0;@k 0) { if (@SumStrike > #ReceivablesStrikeMethod.LeaveAmount_ReceivablesStrikeMethod) { #ReceivablesStrikeMethod.Amount_ReceivablesStrikeMethod = #ReceivablesStrikeMethod.LeaveAmount_ReceivablesStrikeMethod; } else { #ReceivablesStrikeMethod.Amount_ReceivablesStrikeMethod = @SumStrike; } @SumStrike = @SumStrike - #ReceivablesStrikeMethod.Amount_ReceivablesStrikeMethod; } } ResumeLayout(); } } SuspendLayout(); for (@i=0; @i