易飞ERP客户问题集_百度文库
您的浏览器Javascript被禁用，需开启后体验完整功能，
享专业文档下载特权
&赠共享文档下载特权
&10W篇文档免费专享
&每天抽奖多种福利
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
易飞ERP客户问题集
阅读已结束，下载本文需要
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，同时保存到云知识，更方便管理
加入VIP
还剩211页未读，
定制HR最喜欢的简历
你可能喜欢易飞ERP程序清单_图文_百度文库
您的浏览器Javascript被禁用，需开启后体验完整功能，
享专业文档下载特权
&赠共享文档下载特权
&10W篇文档免费专享
&每天抽奖多种福利
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
易飞ERP程序清单
&&易飞ERP系统的子程序清单
阅读已结束，下载本文需要
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，同时保存到云知识，更方便管理
加入VIP
还剩12页未读，
定制HR最喜欢的简历
你可能喜欢易飞ERP 数据库新增销售单
--新增销售单
INSERT INTO [TLLL].[dbo].[COPTH]
([COMPANY]
,[CREATOR]
,[USR_GROUP]
,[CREATE_DATE]
,[MODIFIER]
,[MODI_DATE]
( 'TLLL','xstj','1006','15483','','',1,'2302','','0001','MB ','铝合金车轮(MB)','273&13*6.5&73.1&-10&4*114.3','103','79.000000','只','0.000000','','25.14.50,'2202',
'TLS12220','0001','TLS12220',NULL,'','N','N','','',0,1.0000,'N','','','','',1,'','','',2014.50,
0.00,.00,464..000000,'KG',0...000000,'','','',0.00000,'','','','','XP',
'##########','','',NULL,0.00,0.00,0.00,NULL,NULL,NULL,NULL,NULL,NULL,0......000000)
温馨提示如有转载或引用以上内容之必要，敬请将作为出处标注，谢谢合作！
欢迎订阅辰峰微网
微信公众号
& 辰峰微网 All right reserved. 版权所有 浙ICP备号
Powered by Emlog & Themes by 易玩稀有
下载文件感谢您下载此文件!
请点击【立即下载】下载此文件立即下载
欢迎使用手机扫描访问本站，还可以关注微信哦~工作学习之笔记
[易飞]批量导出易飞ERP系统目前所有BOM(含本币未税单位成本)
摘要：导出ERP系统中所有成品对应的BOM列表含材料成本(本币)思路：
1.查询已核准的成品品号
2.撰写当期汇率函数
3.撰写材料最新核价函数
4.BOM的元件材料的单位是库存单位，核价单单价是以采购单价为基础利用系统提供的转换函数
5.展BOM程序
6.创建临时表，循环遍历需要展算的成品，展算的BOM存储到临时表。1.当前汇率：
GetCurrExchangeRate--==================================
--作者：龚德辉
--用途：取得当前汇率
--==================================
ALTER function [dbo].[GetCurrExchangeRate](
@currency AS NCHAR(3)
)returns decimal(15,7)
declare @price decimal(15,7)
IF(@currency&&'RMB')
SELECT @price=MG003 from
CMSMG where MG002=(select MAX(MG002) from CMSMG WHERE MG001=@currency) and
MG001=@currency
set @price=1.0000000
return @price
end2.最新核价:PriceNoTaxRMB(此函数请各位优化一下)--==================================
--作者：龚德辉
--用途：取最新不含税单价
--==================================
ALTER function [dbo].[PriceNoTaxRMBBOM](
@Item AS NCHAR(20)
)returns decimal(15,6)
declare @PriceNoTaxRMB decimal(15,6)
select @PriceNoTaxRMB=CASE WHEN TL008='Y' THEN convert(decimal(18,8),TM010*ChgRate/TaxRate)*
dbo.DFC_UnitConvert(MB001,1,MB004,TM009)
else convert(decimal(18,8),TM010*ChgRate)*
dbo.DFC_UnitConvert(MB001,1,MB004,TM009) End
TOP 1 TL005,
dbo.GetCurrExchangeRate(TL005) AS ChgRate,
[dbo].[GetVendorTaxRate](TL004)+1 as TaxRate,
from PURTL INNER JOIN PURTM ON TL001=TM001 AND TL002=TM002
INNER JOIN
INVMB ON TM004=MB001
where TM004=@Item AND TM011='Y'
ORDER BY TM014 desc
return isnull(@PriceNoTaxRMB,0)
3.展BOM程序-- =============================================
-- Author: &David Gong&
-- Create date: &&
-- Description: &展BOM&
-- =============================================
ALTER PROCEDURE [dbo].[UP_Bom_StandardCheck] (@ITEMNO VARCHAR(80))
--@ITEMNO：查询品号
--返回:元件品号V1001，主件品号V1002，阶码V1004，阶层次V1005，尾阶标志V1006，展开标志V1007，组成用量V1011，底数V1012，损耗率%V1013
DECLARE @ITEM_CHILD VARCHAR(80), @ITEM_EXPAND VARCHAR(80), @ITEM_LEVELNO INT, @COUNT INT
DECLARE @BATCH_NUMBER NUMERIC(18,6)
CREATE TABLE
#VIEW1 (V1001 VARCHAR(80), V1002 VARCHAR(80), V1004 VARCHAR(80) DEFAULT '', V1005 INT DEFAULT 0, V1006 CHAR(1) DEFAULT '0', V1007 CHAR(1) DEFAULT '0'
, V1011 NUMERIC(18,6) DEFAULT 0, V1012 NUMERIC(18,6) DEFAULT 0, V1013 NUMERIC(18,6) DEFAULT 0)
SELECT @ITEM_LEVELNO = 1
INSERT INTO #VIEW1 (V1001, V1002, V1004, V1005, V1011, V1012, V1013)
SELECT MD003, @ITEMNO, MD002, 1, MD006 , MD007*MC004, MD008 FROM BOMMC, BOMMD WHERE BOMMC.MC001 = BOMMD.MD001 AND MC001 = @ITEMNO
DECLARE BOMEXPAND CURSOR FOR SELECT V1001, V1004, V1005, V FROM #VIEW1 WHERE V1007 = '0' FOR UPDATE
OPEN BOMEXPAND
/* 打开游标 */
FETCH NEXT FROM BOMEXPAND INTO @ITEM_CHILD, @ITEM_EXPAND, @ITEM_LEVELNO, @BATCH_NUMBER
WHILE @@FETCH_STATUS = 0
/* 用WHILE循环控制游标活动*/
--SELECT @ITEM_LEVELNO, @ITEM_CHILD
UPDATE #VIEW1 SET V1007 = '1' WHERE CURRENT OF BOMEXPAND
SELECT @COUNT = COUNT(*) FROM BOMMC, BOMMD WHERE BOMMC.MC001 = BOMMD.MD001 AND MC001 = @ITEM_CHILD
IF @COUNT = 0
UPDATE #VIEW1 SET V1006 = '1' WHERE CURRENT OF BOMEXPAND
INSERT INTO #VIEW1 (V1001, V1002, V1004, V1005, V1011, V1012, V1013)
SELECT MD003, @ITEM_CHILD, @ITEM_EXPAND + '.' + MD002, @ITEM_LEVELNO + 1, MD006 * @BATCH_NUMBER, MD007*MC004, MD008 FROM BOMMC, BOMMD WHERE BOMMC.MC001 = BOMMD.MD001 AND MC001 = @ITEM_CHILD
FETCH NEXT FROM BOMEXPAND INTO @ITEM_CHILD, @ITEM_EXPAND, @ITEM_LEVELNO, @BATCH_NUMBER /* 在循环体内将读取其余行数据 */
CLOSE BOMEXPAND
/* 关闭游标 */
DEALLOCATE BOMEXPAND
/* 删除游标 */
SELECT space(V1005*1)+'.'+cast(V1005
as varchar)
as 阶层,V1002 as 主件品号,V1001 as 元件品号,case when MB025='P' THEN '采购件'
when MB025='M' THEN '自制件'
when MB025='S' THEN '委外加工件'
when MB025='Y' THEN '虚设件'
else '配置件'END AS
MB002 品名,MB003 规格,MB004 as 单位,V1011 as 组成用量,V1012 as 底数,V1013 as 损耗率,V*(1+V1013) as 累计组成用量
FROM #VIEW1 INNER JOIN
INVMB ON V1001=MB001
ORDER BY V1004
--背光成品只算半成品
SELECT V1002 as Pitem, V1001 as Item,MB025 as Property, MB002 as [Description], MB003 AS Spec, convert(decimal(15,5),V)
as Usage ,MB004 as Unit, ZE.[dbo].[PriceNoTaxRMBBOM](V1001) AS UnitCost
FROM #VIEW1 INNER JOIN
INVMB ON V1001=MB001
(MB025='P' AND left(V1002,3)&&'203') or (MB025='M' AND LEFT(V1001,3)='203')
ORDER BY V1004
4.单位转换函数：DFC_UnitConvertALTER FUNCTION [dbo].[DFC_UnitConvert]
@ProductID char(20),
@OldNum Numeric(16,6),
@OldUnit char(4),
@NewUnit char(4)=''
RETURNS Numeric(16,6)
DECLARE @mReturnNum Numeric(16,6),@mReturnUnit char(4)
DECLARE @mMA024 char(1),@mMA068 int,@mOldRate Numeric(10,6),@NewRate Numeric(10,6)
DECLARE @mMB004 char(4)
select @mReturnNum=@OldNum,@mReturnUnit=@OldUnit
--数量表达方式(1.单一单位 2.双单位 3.制造双单位), 小数保留位数
SELECT top 1 @mMA024=MA024,@mMA068=MA068 FROM CMSMA with (nolock)
if ((@mMA024 IS NULL) OR (@mMA024='2'))
RETURN round(@mReturnNum,@mMA068)
if (@mMA068 IS NULL)
select @mMA068=3
--Check 品号是否存在于INVMB
SELECT @mMB004=MB004 FROM INVMB WHERE MB001=@ProductID
if @mMB004 is null
RETURN round(@mReturnNum,@mMA068)
--单位(换算后)未传值则默认为库存单位(MB004)
if (@NewUnit='')
select @NewUnit=@mMB004
--如果单位(换算前)=单位(换算后),RETURN
if @NewUnit=@OldUnit
RETURN round(@mReturnNum,@mMA068)
--计算单位(换算前)的比率
SELECT @mOldRate=ISNULL(MD004,0)/CASE WHEN ISNULL(MD003,0)=0 THEN 1 ELSE MD003 end
FROM INVMD WHERE MD001=@ProductID AND MD002=@OldUnit
if @OldUnit=@mMB004
select @mOldRate=1
if @mOldRate is null
RETURN round(@mReturnNum,@mMA068)
--RETURN round(@mReturnNum,@mMA068)
--计算单位(换算后)的比率
SELECT @NewRate=ISNULL(MD003,0)/CASE WHEN ISNULL(MD004,0)=0 THEN 1 ELSE MD004 end
FROM INVMD WHERE MD001=@ProductID AND MD002=@NewUnit
if @NewUnit=@mMB004
select @NewRate=1
if @NewRate is null
RETURN round(@mReturnNum,@mMA068)
--换算后的数量=数量*A*B
RETURN round(@OldNum*@mOldRate*@NewRate,@mMA068)
4. T-SQL(可以封装成存储过程，提供给各程序调用) -- =============================================
-- Author: &David Gong&
-- Create date: &&
-- Description: &导出所有BOM&
-- =============================================
ALTER PROCEDURE [dbo].[UP_ExportBomList]
--创建临时表
create table #AllBomList
nchar(80) NOT NULL,
nchar(10) null,
nchar(1) NULL,
[Description]
nchar(256) NULL,
nchar(256) NULL,
decimal(18,6) NULL,
char(4) NULL,
decimal(18,6) NULL
Declare @item as nchar(80), @Spec as nchar(256), @Description as nchar(256)
Declare ItemCusror CURSOR
local static FOR Select
MB001,MB002,MB003 from INVMB WHERE
MB109='Y' AND MB025='M'
Open ItemCusror
Fetch next From ItemCusror
Into @item,
@Description,
While(@@Fetch_Status = 0)
insert into #AllBomList(Pitem,[Description],Spec)values(@item,@Description,@Spec)--单独区分成品
insert into #AllBomList
exec [UP_Bom_StandardCheck] @item --展BOM结果存储到临时表
Fetch next From ItemCusror
Into @item,
@Description,
Close ItemCusror
Deallocate ItemCusror
select * from #AllBomL --查询结果
drop table #AllBomL
END5.执行结果 ：EXEC [UP_ExportBomList]总结：执行了一下需要4分半左右的时间，基本可以接受。问题：1.展BOM程序是采用游标处理，且没有考虑分量损耗的因素。2.最新核单也未考虑分量核价因素，且写法不够简洁 希望抛砖引玉,谢谢！转载请注明地址。
扫码向博主提问
非学，无以致疑；非问，无以广识
擅长领域：
DevExpress
没有更多推荐了，下载学院APP
缓存视频离线看
易飞ERP视频课程
适用人群： IT系统管理,系统运维,企业信息化
2424小时内答疑
课时永久观看
退15分钟内无条件退款
仅限付费视频课程适用
购买后15分钟内可以找到客服进行沟通退款
退款将返还至51CTO学院账户，不支持提现
下载资料后不再享有退款特权
客服（Tel：400-101-1651）
最终解释权归51CTO学院所有
听APP缓存听课
倍PC倍速播放
专属资料下载
加入购物车
　专题1 | 企业管理必备工具包(ERP系统管理)
掌握易飞ERP系统管理、采购、销售、库存四大部分的全部操作.
IT系统管理,系统运维,企业信息化
了解易飞ERP系统，整体功能架构，如何学习ERP系统，学ERP系统的关键要素。
易飞ERP 9.08 系统安装
安装及配置
系统基本操作
用户，用户组
用户权限，组权限，数据权限
用户界面自定义
F2开窗查询自定义，跨单传递信息。
导入，导出数据，效益指标
易飞ERP 9.08共用参数第一讲。
易飞ERP 9.08共用参数第二讲。
基本信息录入，设置。
管理子系统功能点理论学习
用户及组权限规划设置，录入子系统及程序，管理报表，批处理，实际操作及演练
系统基础信息规划及录入，注意事项，各类编码规划及录入。共用参数设置、工厂、部门、人员、财务，生产等基础信息录入实操。
作为系统管理员，需要解决业务数据异常，本课时对关键模块及模块流程作简要介绍。具体的业务模块设有专门的模块课程。
界面画面自定义，自定义报表，单据凭证自定义。
出现业务数据时，快速排错的前提时充分了解业务模块中的数据来源，掌握从源头纠正业务数据的方法。
关键表及字段说明。点击某一个按钮，迅速捕捉到后台数据库表及字段，以便快速从数据库的修正业务数据。尽管不赞成直接修改数据库，但有时的确要用到。
系统运维：编码增加原则，基础信息变更，系统管理业务流程。数据库维护计划，异常排除方法。
存货管理子系统流程图及概要。
库存管理模块的基础设定
品号信息录入操作，各要素说明。
品号信息录入操作，各要素说明。
单别，单据分类、交易类别、成本码
库存交易一般单据定义及操作演示
调拔单运用要点，活学活用调拔单
在库报检，报废、销毁。
库存模块期初数量、成本金额开账
库存盘点流程，计划，操作，通过盘点期初开账
借入、借出、归还，借入转采购，借出转销售
批次编码、批次拆分，批次应用
有效期管控、效期内复检，效期变更
存货成本核算、成本调整
存货成本暂估、进货价差处理
采购管理子系统流程图及概要
采购品号中的参数、基本信息子系中的采购信息
采购供应商信息设定，料件价格，ABC.
采购模各单据、单别、单据流程及属性
询价、核价流程，以及供应商料件价格库
采购价格：标准进价、最近进货价、供应商价表
请购管理各项来源：手工、计划、销售
采购合同采购单据录入制定，各相关单据及流程
采购-进货，采购-到货-进货，进到货检验
进货不良品处理，报废、验退件、退货
采购预付款，随货附票，月结发票
初次上线采购模块，初始化，期初开账
采购模块批处理及其它功能
销售管理子系统流程图及概要
客户订单、标准合同及执行，发货通知，月结开票
价格管控，客户报价，随货附票
借出商品转销售，VMI提货，价格取价
选配销售业务应用举例。
销售退货，红字发票处理
客户信用管控，信用额度、信用余额
零组件发货处理，及其它
暂时还没有学习资料~
好于0%的课程
课程与描述相符 5 非常满意
老师的讲解表达 5 非常满意
老师的答疑服务 5 非常满意
你可能还感兴趣的课程
企业辅导者(资深)，20年从业经历。擅长用友ERP-U8，用友NC，易飞ERP的应用及二次开发
22770人学习过
7日学霸榜 有22770人与你一起学习
加入购物车
综合评价在4颗星及以上最高可获得35分奖励
课程与描述相符
老师的讲解表达
老师的答疑服务
Copyright (C)}