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

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

2、定药品信息，将20位电子监管码存入“电子监管码”表。将电子监管用于上传药监局的XML文件生成。文件格式入说明：（实施时需将蓝色文字替换成相应内容写入XML）CHR(239)+CHR(187)+CHR(191)不知道为什么，不在文件前写入这几个字符上传会提示文件错误 固定格式 单据类型常用四种情况对应值：采购入库:PurchaseWareHouseIn采购退出:ReturnWareHouseOut销售出库:SalesWareHouseOut销售退回:ReturnWareHouseIn出入库两种情况对应值：入库：WareHouseIn出库：WareHouseOut还有其他的不常用的情况，可采用分析

3、通过原来的方法生成的上传文件提取，或祥见附件电子监管技术文件:数据采集器接口标准V3（20100623）.doc 固定格式 20位电子监管码扫描到的电子监管码操作员默认值：1111 可更改日期扫描时间格式:yyyy-mm-dd hh:mm:ss例:2010-04-21 17:02:41单据编号经营企业流通的实际单据编号该行内容在XML文件中一直重复，本单据的包含的每个电子监管码重复一次。 固定格式因为在上传页面需要选择往来客户名称，再提交需上传的文件。建议在操作设计成：选择有电子监管记录的单据编号，界面上显示出往来单位名称、单据类型，然后点击生成。操作员每生成一个上传一个，已生成过XML的单据

4、做一个标记标识，避免重复生成。在业务软件中加入此模块可以用普通药店的扫描枪扫电子监管码，减少流程。石柱县重庆鸿宇医药杨勇二一一年一月十八日附件一:数据采集器接口标准V3（20100623）.doc(另一文件)附二：用于电子监管上传XML文件生成的VF代码输入表的结构:代码：*!*导出表中数据为xml文件*!*修改时间：2010-4-15PROCEDURE XML_OUT*!*接收准备导出数据的表名PARAMETERS cAlias*!*初始化返回值nreturn=0*!*!*预处理：将OUTTABLE设定为准备导出数据的表名*!*#DEFINE OUTTABLE tmpjgm*!*获得文件输出

5、路径cPath=outpath(1) &取得存于表中的“默认路径”pcPath=GETDIR(cPath,请选择文件的输出位置：,输出目录选择,64)IF EMPTY(pcPath)RETURN -1ENDIFIF USED(cAlias)T_table1=.F.ELSET_table1=.T.ENDIFIF USED(outliebiao)SELECT outliebiaoUSEENDIFSELECT 0*!*获得准备在输出表中的单据编号，一个单据编号生成一个XML文件。SELECT distinct corporderid FROM &cAlias. INTO CURSOR outlieb

6、iaooutwjs=RECCOUNT()IF outwjs1MESSAGEBOX(没有可导出的内容！,0,提示)IF USED(outliebiao)SELECT outliebiaoUSEENDIFIF T_table1 .AND. USED(cAlias)SELECT &cAlias.USEENDIFRETURN -2ENDIFFOR i=1 TO outwjsSELECT outliebiao& 单据编号表GO icDjbh=ALLTRIM(corporderid)& 单据编号*!*取得当前单据编号对应的电子监管码IF USED(tmpoutxml)SELECT tmpoutxmlUSE

7、ENDIFSELECT 0SELECT * FROM &cAlias. WHERE corporderid=cDjbh INTO CURSOR tmpoutxmlGO TOPcmaintion=ALLTRIM(maintion)& 出入库标识cMainName=ALLTRIM(ac_tion)& 单据类型标识cDjbh=ALLTRIM(corporderid)& 单据编号XmlFile=cMainName+_+cDjbh+.xml& 文件名cXmlFile=pcPath+XmlFile& 带路径的文件名Opfile=.F.& 是否打开旧文件IF FILE(cXmlFile)IF MESSAGE

8、BOX(已存在文件+XmlFile+，是否重新生成。,4,)=6fp_xml1=FOPEN(cXmlFile,12)Opfile=.T.ELSEcXmlFile=PUTFILE(保存为(&N):,cXmlFile,xml)fp_xml1=FCREATE(cXmlFile,0)ENDIFELSEfp_xml1=FCREATE(cXmlFile,0)ENDIFDO WHIL fp_xml10*!* 写文件*lf=0& 初始化文件长度IF Opfile=FSEEK(fp_xml1,0,0)& 将文件指针到文件开头ENDIFlf=lf+FWRITE(fp_xml1,CHR(239)+CHR(187)+

9、CHR(191)lf=lf+FPUTS(fp_xml1,)lf=lf+FPUTS(fp_xml1,)lf=lf+FPUTS(fp_xml1, )lf=lf+FPUTS(fp_xml1, )lf=lf+FPUTS(fp_xml1, )SCAN ALLcdzcode=ALLTRIM(dz_code)lf=lf+FPUTS(fp_xml1, )SELECT &cAlias.UPDATE &cAlias. SET upload=.T. WHERE corporderid=cDjbh .AND. dz_code=cdzcodeSELECT tmpoutxmlENDSCANlf=lf+FPUTS(fp_x

10、ml1, )lf=lf+FPUTS(fp_xml1, )lf=lf+FPUTS(fp_xml1, )lf=lf+FPUTS(fp_xml1,)IF Opfile=FCHSIZE(fp_xml1,lf)& 截断文件ENDIFFCLOSE(fp_xml1)*ELSEMESSAGEBOX(不能建立新文件+XmlFile,0,提示)=FCLOSE(fp_xml1)nreturn=nreturn+1ENDIFENDFORIF USED(tmpoutxml)SELECT tmpoutxmlUSEENDIFIF USED(outliebiao)SELECT outliebiaoUSEENDIFIF T_table1 .AND. USED(cAlias)SELECT &cA