price.txt

delphi编写的ERP原代码事例２,供广大初学者学习参考!

	/*价格代码对应的各个相关系数 
	  ldc_price        买入价  一般为日元
	  ldc_rate         汇利
	  ldc_taxparam     输入税率
	  ldc_addtax       增值税
	  ldc_feerate      通关费用率
	  ldc_paramaddtax  海关增值税
	  ldc_widerate     粗利率
	*/
	if isnull(ldc_price) then ldc_price = 0
	if isnull(ldc_rate) or ldc_rate=0 then ldc_rate = 1
	if isnull(ldc_taxparam) then ldc_taxparam = 0
	if isnull(ldc_addtax) then ldc_addtax = 0
	if isnull(ldc_feerate) then ldc_feerate = 0
	if isnull(ldc_paramaddtax) then ldc_paramaddtax = 0
	if isnull(ldc_widerate) then ldc_widerate = 0
	dec{4} A,B,C,D,E,F,G,H,K,L,I
   A = ldc_price * ldc_rate              //A为仕入价格RMB
	if A=0 then return 0
	B = ldc_taxparam                      //B为输入税利率
	C = (A * B)/100                       //C为输入税        
	D = (A + C)*ldc_paramaddtax/100       //D为海关增值税
	E = A * ldc_feerate/100               //E为通关费用
	F = A + C + D + E                     //总成本
	G = ldc_widerate                      //粗利率
	if G = 100.0000 then return 0
	H = F/(1 - G/100)                     //销售价格(未含税)
	K = H * ldc_addtax/100                //地税增值税
	L = K + H                             //销售价格(含税)	
	I = L/A                               //类别系数
	
	return H                              //返回不含税的销价


/////////////////////////////////////////////////////////////
update goodsno set pricetype=yjk.djlb,priceno=yjk.wbdm,priceretail=yjk.yjdj from yjk
where goodsno.goo_no = yjk.yjxh