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

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

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

3、useIn 出入库两种情况对应值： 入库： WareHouseIn 出库： WareHouseOut还有其他的不常用的情况，可采用分析通过原来的方法生成的上 传文件提取，或祥见附件电子监 管技术文件 : 数据采集器接口标 准 V3(20100623 ).doc 固定格式操作员 ActDate=20 位电子监管码CorpProductID=00 扫描到的电子监管码操作员默认值： 1111 可更改日期 扫描时间 格式 :yyyy-mm-dd hh:mm:ss 例:2010-04-21 17:02:41 单据编号 经营企业流通的实际单据编号该行内容在XML文件中一直重复本单据的包含的每个电子监管码

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

5、aiERID D：_CODE ACTDATEMAIMTIOUAC_TIONUPLOADE; VEOlTJW&v电子益管诣404/21/1C类型 整型自动増量型型型型型型 符符待符苻辑 宇字孚字字一逻宽度415201920201100*!* 导岀表中数据为xml文件*!*修改时间：2010-4-15PROCEDUREML_OUT*!*接收准备导岀数据的表名PARAMETERCAIias*!*初始化返回值nreturn=0*!*!*预处理：将OUTTABL设定为准备导出数据的表名*!* #DEFINE OUTTABLE tmpjgm*!*获得文件输岀路径cPath=outpath(1)&取得存于表

6、中的“默认路径”pcPath=GETDIRcPath,请选择文件的输出位置：输出目录选择,64)IF EMPTY(pcPath)RETURN-1ENDIFIF USED(cAIias)T_tabIe1=.F.ELSET_tabIe1=.T.ENDIFIF USED(outliebiao)SELECToutliebiaoUSEENDIFSELECTO*!* 获得准备在输出表中的单据编号，一个单据编号生成一个XMI文件。SELECT distinct corporderid FROM&cAIias. INTO CURSOFbutliebiao outwjs= RECCOUNTIF outwjs1M

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

8、. WHEREcorporderid=cDjbh INTO CURSORtmpoutxmlGO TOP& 出入库标识& 单据类型标识& 单据编号& 文件名& 带路径的文件名& 是否打开旧文件cmaintion= ALLTRIM(maintion) cMainName=ALLTRIM(ac_tion) cDjbh= ALLTRIM(corporderid) XmlFile=cMainName+_+cDjbh+.xml cXmlFile=pcPath+XmlFile Opfile=.F.IF FILE (cXmlFile)IF MESSAGEBO(X 已存在文件 +XmlFile+ ，是否重新生成

9、。 ,4,)=6 fp_xml1= FOPEN(cXmlFile,12)Opfile=.T.ELSEcXmlFile= PUTFILE( 保存为 (&N):,cXmlFile,xml) fp_xml1= FCREAT(EcXmlFile,0)ENDIFELSE fp_xml1= FCREAT(EcXmlFile,0)ENDIFDOWHILfp_xml10*!* 写文件* lf=0 & 初始化文件长度IF Opfile=FSEEK(fp_xml1,0,0) & 将文件指针到文件开头ENDIFlf=lf+ FWRITE(fp_xml1, CHR(239)+ CHR(187)+ CHR(191)lf

10、=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. WHEREcorporderid=cDjbh .AND. dz_code=cdzcode SELECT tmpoutxmlENDSCANlf=lf+FPUTS(fp_xml1,)lf=lf+FPUTS(fp_xml1,)lf=lf+FPUTS(fp_xml1,)lf=lf+FPUTS(fp_xml1,)IF Opfile=FCHSIZE(fp_xml1,lf) & 截断文件ENDIFFCLOSE(fp_xml1)*ELSEMESSAGEB(OXF能建立新文件+XmlFile,O,提示)=FCLOSE(fp_xml1)nreturn=nreturn+1ENDIFENDFORIF USED(tmpoutxml) SELECTtmpoutxml USEENDIFIF USED(outliebiao) SELECToutliebiao USEENDIFIF