📄 basevoucheredita.pas
字号:
+' b.PriceBase as [单价], '
+' b.Amount*Isnull(a.ModeDC,1)*Isnull(a.ModeC,1) as [商品金额] , '
+' b.TaxAmount*Isnull(a.ModeDC,1)*Isnull(a.ModeC,1) as [税金] , '
+' b.SundryFee*Isnull(a.ModeDC,1)*Isnull(a.ModeC,1) as [附加费用], '
+' b.Discount*Isnull(a.ModeDC,1)*Isnull(a.ModeC,1) as [折扣金额], '
+' d.name as [经手人], '
+' a.RecordState as [凭单状态] '
+' from SLsaleDetail b '
+' left outer join SLsaleMaster a on a.id=b.masterID '
+' left outer join DAClient c on c. ID=a.ClientID '
+' left outer join MSEmployee d on d.id=a.EmployeeID '
+' left outer join DAGoods e on e.id=b.GoodsID '
+' left outer join MSunit f on f.id=b.PackUnitID '
+' left outer join MSunit g on g.id=b.GoalUnitID'
+' WHERE A.RECORDSTATE<>'+Quotedstr('删除') +' and b.goodsID<>0'
+' order by [日期] DESC');
end;
procedure TBaseVoucherEditAForm.SLClearLegerExecute(Sender: TObject);
begin
inherited;
ShowQueryForm(SLClearLeger.Caption,SLClearLeger.Hint,
' select Date as [日期], Code as [编号],'
+' BillMode as [业务类别],Client as [客户/厂商名称] ,'
+' Accounts AS [帐户名称],AmountD as [收款金额],'
+' AmountC as [销售/折扣/返利], AmountC-AmountD as [应收帐款额] ,'
+' Employee as [经手人] ,Brief as [业务摘要], '
+' Memo as [备注] ,RecordState as [凭单状态] '
+' from '
+' (select f.id, f.ClientID, f.EmployeeID, '
+' f.Date , f.Code , f.BillMode , '
+' C.name as Client , FA.NAME AS Accounts, '
+' f.AmountD as AmountD, '
+' f. AmountRed*Isnull(f.ModeDC,1)*Isnull(f.ModeC,1)*(-1) as AmountC, '
+' E.name as Employee ,f.Brief , F.Memo , '
+' F.RecordState '
+' from FNClearSLMaster F '
+' LEFT Outer join MSEmployee E on E.ID=F.EmployeeID '
+' LEFT Outer join DAClient C on C.ID=F.ClientID '
+' LEFT Outer join FNAccounts FA on FA.ID=F.AccountsID '
+' where F.RecordState<>'+Quotedstr('删除')
+' UNION ALL '
+' select f.id, f.ClientID, f.EmployeeID, '
+' f.Date , f.Code , f.BillMode , '
+' C.name as Client , '+Quotedstr('_ _')+ ' as accounts, 0 as AmountD , '
+' sd.AmountC*Isnull(f.ModeDC,1)*Isnull(f.ModeC,1) as AmountC, '
+' E.name as Employee ,f.Brief , F.Memo , '
+' F.RecordState '
+' from SLSaleMaster F '
+' LEFT Outer join MSEmployee E on E.ID=F.EmployeeID '
+' LEFT Outer join DAClient C on C.ID=F.ClientID '
+' LEFT Outer join '
+' ( select MasterID,(Sum(ISnull(Amount,0) )- '
+' Sum(ISnull(discount,0) )+ '
+' Sum(ISnull(taxAmount,0) )+Sum(ISnull(Sundryfee,0) ) ) '
+' as AmountC from SLSaleDetail group by MasterID ) as '
+' sd on SD.masterID=F.id '
+' where F.RecordState<>'+Quotedstr('删除')
+' ) as SLclear Order By Date Desc ' );
end;
procedure TBaseVoucherEditAForm.SLCreditExecute(Sender: TObject);
begin
inherited;
ShowQueryForm(SLCredit.Caption,SLCredit.Hint,
' select Date as [日期], Code as [编号], '
+' c.name as [客户名称], CreditClass as [信用等级],'
+' QuotaAmount as [信用额度], QuotaAmountMax as [最大额度], '
+' QuotaAmountMin as [最低额度], StartDate as [生效日期], '
+' ExpireDate as [终止日期], a.Memo as [备注] '
+' from SLCredit a '
+' LEFT Outer join DAClient C on C.ID=a.ClientID '
+' where a.RecordState<>'+Quotedstr('删除') );
end;
procedure TBaseVoucherEditAForm.PCCreditExecute(Sender: TObject);
begin
inherited;
ShowQueryForm(PCCredit.Caption,PCCredit.Hint,
' select Date as [日期], Code as [编号], '
+' c.name as [厂商名称], CreditClass as [信用等级],'
+' QuotaAmount as [信用额度], QuotaAmountMax as [最大额度], '
+' QuotaAmountMin as [最低额度], StartDate as [生效日期], '
+' ExpireDate as [终止日期], a.Memo as [备注] '
+' from PCCredit a '
+' LEFT Outer join DAClient C on C.ID=a.ClientID '
+' where a.RecordState<>'+Quotedstr('删除') );
end;
procedure TBaseVoucherEditAForm.SalePriceExecute(Sender: TObject);
begin
inherited;
ShowQueryForm(SalePrice.Caption,SalePrice.Hint,' select'
+' Date as [日期], a.Code as [编号], '
+' PriceClass AS [价格类别],b.name as [货品名称], '
+' c.name as [包装单位], PriceBase as [基本售价], '
+' PriceMax as [最高限价], PriceMin as [最低限价], '
+' StartDate as [生效日期], '
+' ExpireDate as [终止日期], '
+' a.Memo as [备注] from SLSalePrice a '
+' left Outer Join DAGoods b on b.ID=a.GoodsID '
+' left Outer Join MSUnit c on c.ID=a.PackUnitID '
+' where a.RecordState<>'+Quotedstr('删除') );
end;
procedure TBaseVoucherEditAForm.PurchasePriceExecute(Sender: TObject);
begin
inherited;
ShowQueryForm(PurchasePrice.Caption,PurchasePrice.Hint,' select'
+' Date as [日期], a.Code as [编号], '
+' PriceClass AS [价格类别],b.name as [货品名称], '
+' c.name as [包装单位], PriceBase as [基本售价], '
+' PriceMax as [最高限价], PriceMin as [最低限价], '
+' StartDate as [生效日期], '
+' ExpireDate as [终止日期], '
+' a.Memo as [备注] from PCPurchasePrice a '
+' left Outer Join DAGoods b on b.ID=a.GoodsID '
+' left Outer Join MSUnit c on c.ID=a.PackUnitID '
+' where a.RecordState<>'+Quotedstr('删除') );
end;
procedure TBaseVoucherEditAForm.SLContractPriceExecute(Sender: TObject);
begin
inherited;
ShowQueryForm(SLContractPrice.Caption,SLContractPrice.Hint,' select'
+' Date [日期], b.Code [编号], ContractClass [合同价格类别],'
+' c.name [客户名称] ,e.name [货品名称], '
+' a.Spec [规格型号], d.name [包装单位], '
+' a.Quantity [数量范围下限], a.QuantityE [数量范围上限], '
+' a.PriceClear [结算价格], '
+' a.PriceMin [最低价格], '
+' a.PriceMax [最高价格], '
+' b.StartDate [生效日期], b.ExpireDate [终止日期], b.Memo [备注]'
+' from SLContractPriceDetail a '
+' left Outer Join SLContractPriceMaster b on b.ID=a.MasterID '
+' left Outer Join daclient c on c.ID=b.ClientID '
+' left Outer Join MSUnit d on d.ID=a.PackUnitID '
+' left Outer Join DAGoods e on e.ID=a.GoodsID '
+' where a.GoodsID<>0 and b.RecordState<>'+Quotedstr('删除') );
end;
procedure TBaseVoucherEditAForm.PCContractPriceExecute(Sender: TObject);
begin
inherited;
ShowQueryForm(PCContractPrice.Caption,PCContractPrice.Hint,' select'
+' Date [日期], b.Code [编号], ContractClass [合同价格类别],'
+' c.name [客户名称] ,e.name [货品名称], '
+' a.Spec [规格型号], d.name [包装单位], '
+' a.Quantity [数量范围下限], a.QuantityE [数量范围上限], '
+' a.PriceClear [结算价格], '
+' a.PriceMin [最低价格], '
+' a.PriceMax [最高价格], '
+' b.StartDate [生效日期], b.ExpireDate [终止日期], b.Memo [备注]'
+' from PCContractPriceDetail a '
+' left Outer Join PCContractPriceMaster b on b.ID=a.MasterID '
+' left Outer Join daclient c on c.ID=b.ClientID '
+' left Outer Join MSUnit d on d.ID=a.PackUnitID '
+' left Outer Join DAGoods e on e.ID=a.GoodsID '
+' where a.GoodsID<>0 and b.RecordState<>'+Quotedstr('删除') );
end;
procedure TBaseVoucherEditAForm.PCOrderTrailExecute(Sender: TObject);
begin
inherited;
ShowQueryForm(PCOrderTrail.Caption,PCOrderTrail.Hint,' select * from ( '
+' select a.Code as [编号],a.Date [日期], '
+' a.BillMode [业务类别], '
+' a.ClearDate [交货日期], '
+' a.Deliver [交货方式], c.name as [厂商名称] , '
+' E.name as [商品名称],f.name as [包装单位], '
+' b.Quantity*Isnull(a.ModeDC,1)*Isnull(a.ModeC,1) as [数量], '
+' g.name as [标准单位], '
+' b.GoalQuantity*Isnull(a.ModeDC,1)*Isnull(a.ModeC,1) as [标准数量], '
+' b.PriceBase as [单价], '
+' b.Amount*Isnull(a.ModeDC,1)*Isnull(a.ModeC,1) as [商品金额] , '
+' b.TaxAmount*Isnull(a.ModeDC,1)*Isnull(a.ModeC,1) as [税金] , '
+' b.SundryFee*Isnull(a.ModeDC,1)*Isnull(a.ModeC,1) as [附加费用], '
+' b.Discount*Isnull(a.ModeDC,1)*Isnull(a.ModeC,1) as [折扣金额], '
+' d.name as [经手人], '
+' a.RecordState as [凭单状态] '
+' from PCOrderDetail b '
+' left outer join PCOrderMaster a on a.id=b.masterID '
+' left outer join DAClient c on c. ID=a.ClientID '
+' left outer join MSEmployee d on d.id=a.EmployeeID '
+' left outer join DAGoods e on e.id=b.GoodsID '
+' left outer join MSunit f on f.id=b.PackUnitID '
+' left outer join MSunit g on g.id=b.GoalUnitID'
+' WHERE A.RECORDSTATE<>'+Quotedstr('删除')
+' and b.GoodsID<>0 and b.GoalQuantity<>0'
+' UNION ALL '
+' select a.Code as [编号],a.Date [日期], '
+' a.BillMode [业务类别], '
+' a.ClearDate [交货日期], '
+' a.Deliver [交货方式], c.name as [厂商名称] , '
+' E.name as [商品名称],f.name as [包装单位], '
+' b.Quantity*Isnull(a.ModeDC,1)*Isnull(a.ModeC,1)*(-1) as [数量],'
+' g.name as [标准单位], '
+' b.GoalQuantity*Isnull(a.ModeDC,1)*Isnull(a.ModeC,1)*(-1) as [标准数量], '
+' b.PriceBase as [单价], '
+' b.Amount*Isnull(a.ModeDC,1)*Isnull(a.ModeC,1) as [商品金额] , '
+' b.TaxAmount*Isnull(a.ModeDC,1)*Isnull(a.ModeC,1)*(-1) as [税金] , '
+' b.SundryFee*Isnull(a.ModeDC,1)*Isnull(a.ModeC,1)*(-1) as [附加费用], '
+' b.Discount*Isnull(a.ModeDC,1)*Isnull(a.ModeC,1)*(-1) as [折扣金额], '
+' d.name as [经手人], '
+' a.RecordState as [凭单状态] '
+' from PCPurchaseDetail b '
+' left outer join PCPurchaseMaster a on a.id=b.masterID '
+' left outer join DAClient c on c. ID=a.ClientID '
+' left outer join MSEmployee d on d.id=a.EmployeeID '
+' left outer join DAGoods e on e.id=b.GoodsID '
+' left outer join MSunit f on f.id=b.PackUnitID '
+' left outer join MSunit g on g.id=b.GoalUnitID'
+' WHERE A.RECORDSTATE<>'+Quotedstr('删除')
+' and b.GoodsID<>0 and b.GoalQuantity<>0'
+' and a.ClientID in (select Distinct ClientID from PCOrderMaster) '
+' ) as a order by [日期] DESC');
end;
procedure TBaseVoucherEditAForm.PCActualPriceExecute(Sender: TObject);
begin
inherited;
ShowQueryForm(PCActualPrice.Caption,PCActualPrice.Hint,' select a.Code as [编号],a.Date as [日期], '
+' a.BillMode [业务类别], '
+' a.Deliver [交货方式], c.name as [客户名称] ,'
+' E.name as [商品名称],f.name as [包装单位],'
+' b.Quantity as [商品数量],g.name as [标准单位],'
+' b.PriceBase as [单价], '
+' d.name as [经手人] '
+' from PCPurchaseDetail b '
+' left outer join PCPurchaseMaster a on a.id=b.masterID '
+' left outer join DAClient c on c. ID=a.ClientID '
+' left outer join MSEmployee d on d.id=a.EmployeeID '
+' left outer join DAGoods e on e.id=b.GoodsID '
+' left outer join MSunit f on f.id=b.PackUnitID '
+' left outer join MSunit g on g.id=b.GoalUnitID '
+' WHERE A.RECORDSTATE<>'+Quotedstr('删除')
+' order by a.Date Desc ');
end;
procedure TBaseVoucherEditAForm.PCClearLegerExecute(Sender: TObject);
begin
inherited;
ShowQueryForm(PCClearLeger.Caption,PCClearLeger.Hint,
' select Date as [日期], Code as [编号],'
+' BillMode as [业务类别],Client as [客户/厂商名称] ,'
+' Accounts AS [帐户名称],AmountC as [付款金额], '
+' AmountD as [采购/折扣/返利], AmountD-Amountc as [应付帐款额] ,'
+' Employee as [经手人] ,Brief as [业务摘要], '
+' Memo as [备注] ,RecordState as [凭单状态] '
+' from '
+' (select f.id, f.ClientID, f.EmployeeID, '
+' f.Date , f.Code , f.BillMode , '
+' C.name as Client , FA.NAME AS Accounts, '
+' f.AmountC as AmountC, '
+' f. AmountRed*Isnull(f.ModeDC,1)*Isnull(f.ModeC,1)*(-1) as AmountD, '
+' E.name as Employee ,f.Brief , F.Memo , '
+' F.RecordState '
+' from FNClearPCMaster F '
+' LEFT Outer join MSEmployee E on E.ID=F.EmployeeID '
+' LEFT Outer join DAClient C on C.ID=F.ClientID '
+' LEFT Outer join FNAccounts FA on FA.ID=F.AccountsID '
+' where F.RecordState<>'+Quotedstr('删除')
+' UNION ALL '
+' select f.id, f.ClientID, f.EmployeeID, '
+' f.Date , f.Code , f.BillMode , '
+' C.name as Client , '+Quotedstr('_ _')+ ' as accounts, 0 as AmountC , '
+' sd.AmountC*Isnull(f.ModeDC,1)*Isnull(f.ModeC,1) as AmountD, '
+' E.name as Employee ,f.Brief , F.Memo , '
+' F.RecordState '
+' from PCPurchaseMaster F '
+' LEFT Outer join MSEmployee E on E.ID=F.EmployeeID '
+' LEFT Outer join DAClient C on C.ID=F.ClientID '
+' LEFT Outer join '
+' ( select MasterID,(Sum(ISnull(Amount,0) )- '
+' Sum(ISnull(discount,0) )+ '
+' Sum(ISnull(taxAmount,0) )+Sum(ISnull(Sundryfee,0) ) ) '
+' as AmountC from PCPurchaseDetail group by MasterID ) as '
+' sd on SD.masterID=F.id '
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -