电子监管码药品销售购销出入库一码扫.docVIP

电子监管码与药品销售购销出入库一码扫描 实施方案 随着药监局规定基本药品目录产品必须进行电子监管文件的下达，意味着医药销售行业按目前工作模式下将迎来进出货更大工作量。在医药销售行业大量呼吁将电子监管并入自身药品出入库流程的情况下，根据电子监管码的编码规则（7位本位码+9位监管序列号+4位加密码），可修改药品流通软件达到这一要求。实施方案如下： 将药品的基础信息加入“监管码”字段，长度为7字符。第一次建立资料时将扫描的20位电子监管码前7位截取，存入“监管码”字段。 增加“电子监管码”表，字段包含“单据ID[int]”、“电子监管码[char(20)]” 出入库复核时，将电子监管码前7位与药品基础信息对比，用于确定药品信息，将20位电子监管码存入“电子监管码”表。 将电子监管用于上传药监局的XML文件生成。 文件格式入说明：（实施时需将蓝色文字替换成相应内容写入XML） CHR(239)+CHR(187)+CHR(191) 不知道为什么，不在文件前写入这几个字符上传会提示文件错误 ?xml version=1.0? Document Events 固定格式 Event Name=单据类型 MainAction=出入库 单据类型常用四种情况对应值： 采购入库:PurchaseWareHouseIn 采购退出:ReturnWareHouseOut 销售出库:SalesWareHouseOut 销售退回:ReturnWareHouseIn 出入库两种情况对应值： 入库：WareHouseIn 出库：WareHouseOut 还有其他的不常用的情况，可采用分析通过原来的方法生成的上传文件提取，或祥见附件电子监管技术文件:数据采集器接口标准V3.doc DataField 固定格式 Data Code=20位电子监管码 Actor=操作员 ActDate=日期 CorpOrderID=单据编号 CorpProductID=00 CorpBatchNo= ProduceDate= / 20位电子监管码 扫描到的电子监管码 操作员 默认值：1111 可更改 日期 扫描时间 格式:yyyy-mm-dd hh:mm:ss 例:2010-04-21 17:02:41 单据编号 经营企业流通的实际单据编号 该行内容在XML文件中一直重复，本单据的包含的每个电子监管码重复一次。 /DataField /Event /Events /Document 固定格式 因为在上传页面需要选择往来客户名称，再提交需上传的文件。建议在操作设计成：选择有电子监管记录的单据编号，界面上显示出往来单位名称、单据类型，然后点击生成。操作员每生成一个上传一个，已生成过XML的单据做一个标记标识，避免重复生成。 在业务软件中加入此模块可以用普通药店的扫描枪扫电子监管码，减少流程。 石柱县·重庆鸿宇医药·杨勇 二〇一一年一月十八日 附件一:数据采集器接口标准V3.doc(另一文件) 附二：用于电子监管上传XML文件生成的VF代码 输入表的结构: 代码： *!* 导出表中数据为xml文件 *!* 修改时间：2010-4-15 PROCEDURE XML_OUT *!* 接收准备导出数据的表名 PARAMETERS cAlias *!* 初始化返回值 nreturn=0 *!* *!* 预处理：将OUTTABLE设定为准备导出数据的表名 *!* #DEFINE OUTTABLE tmpjgm *!* 获得文件输出路径 cPath=outpath(1) 取得存于表中的“默认路径” pcPath=GETDIR(cPath,请选择文件的输出位置：,输出目录选择,64) IF EMPTY(pcPath) RETURN -1 ENDIF IF USED(cAlias) T_table1=.F. ELSE T_table1=.T. ENDIF IF USED(outliebiao) SELECT outliebiao USE ENDIF SELECT 0 *!* 获得准备在输出表中的单据编号，一个单据编号生成一个XML文件。 SELECT distinct corporderid FROM cAlias. INTO CURSOR outliebiao outwjs=RECCOUNT() IF outwjs1 MESSAGEBOX(没有可导出的内容！,0,提示) IF USED(outliebiao) SELECT outliebiao USE ENDIF IF T_table1 .AND. USED(cAlias) SELECT cAli