电子监管码与药品销售购销出入库一码扫描

1、电子监管码与药品销售购销出 入库一码扫描作者:日期:电子监管码与药品销售购销出入库一码扫描实施方案随着药监局规定基本药品目录产品必须进行电子监管文件的下达，意味着医药销售行业按目前工作模式下将迎来进出货更大工作量。在医药销售行业大量呼吁将电子监管并入自身药品出入库流程的情况下，根据电子监管码的编码规则(7位本位码+9位监管序列号+4位加密码)，可修改药品流通软件达到这一要求。实施方案如下：将药品的基础信息加入“监管码”字段，长度为 7字符。第一次建立资料时将扫描的20位电子监管码前7位截取，存入“监管码”字段。增加“电子监管码”表，字段包含“单据IDint ”、“电子监管码char(20) ”

2、出入库复核时，将电子监管码前7位与药品基础信息对比，用于确定药品信息，将20将电子监管用于上传药监局的XML文件生成。文件格式入说明：(实施时需将蓝色文字替换成相应内容写入CHR239)+CHR(187)+CHR(191)v?xml version="1.0"?><Document><Events>vEvent Name=" 单据类型"MainAction=" 出入库">位电子监管码存入“电子监管码”表。XML不知道为什么，不在文件前写入这 几个字符上传会提示文件错误 固定格式单据类型常用四种情况对

3、应值：采购入库：PurchaseWareHouseln 采购退出:ReturnWareHouseOut 销售出库:SalesWareHouseOut 销售退回:ReturnWareHouseln 岀入库两种情况对应值：入库：WareHouseln出库：WareHouseOut还有其他的不常用的情况，可采用 分析通过原来的方法生成的上传 文件提取，或祥见附件电子监管技 术文件：数据采集器接口标准V3(20100623) .doc<DataField>固定格式<Data Code="20位电子监管码"Actor="操作员"ActDate=&

4、quot;20位电子监管码日期"CorpOrderlD="单据编号"CorpProductID="00" CorpBatchNo="" 扫描到的电子监管码ProduceDate="" />'操作员默认值：1111可更改日期扫描时间格式:yyyy-mm-dd hh:mm:ss例:2010-04-21 17:02:41单据编号经营企业流通的实际单据编号该行内容在XML文件中一直重复,本单据的包含的每个电子监管码 重复一次。v/DataField>v/Event></Events

5、></Document>固定格式因为在上传页面需要选择往来客户名称，再提交需上传的文件。 建议在操作设计成： 选择有电子监管记录的单据编号，界面上显示出往来单位名称、单据类型，然后点击生成。操作员每生成一个上传一个，已生成过XML的单据做一个标记标识，避免重复生成。在业务软件中加入此模块可以用普通药店的扫描枪扫电子监管码，减少流程。石柱县重庆鸿宇医药杨勇 二O一一年一月十八日附件一：数据采集器接口标准 V3 ( 20100623) .doc(另一文件) 附二：用于电子监管上传 XML文件生成的VF代码输入表的结构表结构：数据记录数：盘近更新的时间：代码页：字段字段名1 COD

6、EID2 CORFOEDERID3 BZ_CODE4 ACTEATE5 NWNTION6 A£_TION7 VFLOAD*总计*E： VEBITINtJV电子监管XSHIJGM. DEF 404/21/10936SSS型型型型型型度 qlsm旧20201宽位100代码：*!*导岀表中数据为xml文件*!* 修改时间：2010-4-15PROCEDURXML_OUT*!*接收准备导岀数据的表名PARAMETERSAIias*!* 初始化返回值nreturn=0*!*!* 预处理：将OUTTABL设定为准备导出数据的表名*!* #DEFINE OUTTABLE tmpjgm*!*获得文件

7、输岀路径cPath=outpath(1)&&取得存于表中的“默认路径”pcPath=GETDIRcPath,'请选择文件的输出位置：输出目录选择,64)IF EMPTY(pcPath)RETURN1ENDIFIF USED(cAIias)T_tabIe1=.F.ELSET_tabIe1=.T.ENDIFIF USED(outliebiao)SELECToutliebiaoUSEENDIFSELECTO*!* 获得准备在输出表中的单据编号，一个单据编号生成一个XMI文件。SELECT distinct corporderid FROM&cAIias. INTO C

8、URSOFOutliebiao outwjs= RECCOUINTIF outwjs<1MESSAGEBO股有可导出的内容！",0,"提示")IF USED('outliebiao').SELECToutliebiaoUSEENDIFIF T_table1 .AND. USEDAIias)SELECT&cAIias.USEENDIFRETURN2ENDIFFOR i=1 TO outwjsSELECToutliebiao&& 单据编号表GOicDjbh= ALLTRIMcorporderid)&& 单据

9、编号*!*取得当前单据编号对应的电子监管码IF USED('tmpoutxml') SELECTtmpoutxml USEWHEREorporderid=cDjbhINTO CURSORmpoutxml&&岀入库标识&&单据类型标识&&单据编号&&文件名&&带路径的文件名&&是否打开旧文件ENDIF SELECT0 SELECT* FROM&cAlias.GO TOP cmaintion= ALLTRIM(maintion) cMainName=ALLTRIMac_tion)

10、 cDjbh= ALLTRIMcorporderid) XmlFile=cMainName+'_'+cDjbh+'.xml' cXmlFile=pcPath+XmlFile Opfile=.F.IF FILE (cXmlFile)IF MESSAGEBQX已存在文件"+XmlFile+"，是否重新生成。",4,"")=6 fp_xml1= FOPEI(tXmlFile,12)Opfile=.T.ELSEcXmlFile= PUTFILE"保存为(&N):",cXmlFile,"

11、;xml") fp_xml1= FCREAT(cXmlFile,0)ENDIFELSEfp_xml1= FCREATEXmlFile,0)ENDIFDOWHILfp_xml1<0 .AND. MESSAGEBQXF能建立新文件"+XmlFile+"，是否再试一次？ ",4,"提示")=6IF FILE (cXmlFile)IF MESSAGEBQX 已存在文件"+XmlFile+"，是否重新生成。",4,"")=6fp_xml1= FOPENXmlFile,12)Opfile=.

12、T.ELSEcXmlFile= PUTFILE("保存为(&N):",cXmlFile,"xml") fp_xml1= FCREAT(CXmlFile,O)ENDIFELSEfp_xml1= FCREAT(CXmlFile,0)ENDIFENDDOIF fp_xml1>0*!* 写文件* lf=0 &&初始化文件长度IF Opfile=FSEEI(fp_xml1,0,0)&&将文件指针到文件开头ENDIFlf=lf+ FWRITEfp_xml1, CHR239)+CHR187)+CHR191)lf=lf+ F

13、PUTSfp_xml1,'v?xml version="1.0" encoding="utf-8"?>')lf=lf+ FPUTSfp_xml1,'<Document>')lf=lf+ FPUTSfp_xml1,' <Events>')lf=lf+ FPUTSfp_xml1,' <Event Name="'+cMainName+"' MainAction="'+cmaintion+"'>

14、')lf=lf+ FPUTSfp_xml1,' <DataField>')SCAN ALLcdzcode=ALLTRIMdz_code)lf=lf+ FPUTSfp_xml1,' <Data Code="'+cdzcode+'" Actor="1111"ActDate="'+ ALLTRIMActDate)+"' CorpOrderlD="'+cDjbh+"' CorpProductlD="00"

15、CorpBatchNo="" ProduceDate="" />')SELECT&cAlias.UPDATE&cAlias. SET upload=.T. WHERorporderid=cDjbh .AND. dz_code=cdzcodeSELECTtmpoutxmlENDSCANlf=lf+FPUTSfp_xml1,'</DataField>')lf=lf+FPUTSfp_xml1,'</Event>')lf=lf+FPUTSfp_xml1,'</Events>')lf=lf+FPUTSfp_xml1,'v/Document>')IF Opfile=FCHSIZEfp_xml1,lf)&& 截断文件ENDIFFCLOSEp_xml1)*ELSEMESSAGEBQXf 能建立新文件"+XmlFile,0," 提示")=FCLOS(fp_xml1)nreturn=nreturn+1ENDIFENDFORIF USED("tmpoutxml")SELECTtmpou