DHC log 2009-1-9

最新推荐文章于 2009-05-05 08:28:00 发布

programpoet

最新推荐文章于 2009-05-05 08:28:00 发布

阅读量1.2k

点赞数

分类专栏： DHC log 文章标签： string 脚本 encoding input 网络任务

本文链接：https://blog.csdn.net/programpoet/article/details/3741771

版权

DHC log 专栏收录该内容

79 篇文章 0 订阅

订阅专栏

今天局域网连了共享打印机,打了些资料,准备周六周日有时间看一看.

今儿个真高兴,够意思的同学帮我把实习证明和实习报告发给开明的院长,任务搞定了.

前台终于明白套路了,具体代码还需看.

周六同事去题球,矿业大学,可惜没装备,技术也不好,等年后装备全了再参加吧,等会就下班啦:)

局域网共享打印机:

⑴安装打印机的电脑设置:点"开始"---"设置"--- "打印机和传真" 进入打印机管理页面,右键点需要共享的打印机,选择共享就OK了.
⑵其他需要共享打印机的电脑设置:点"开始"---"设置"--- "打印机和传真" 进入打印机管理页面,在打印机管理页面的左边里选择"添加打印机"--"添加网络打印机"---"浏览打印机"---然后系统会自动搜索网络内共享的打印机,搜索完后,选择一个结果一路点下一步就好了。
需要注意的是:必须先设置安装了打印机的电脑,另外其他电脑需要使用打印机的时候,安装有打印机的电脑必须开机,要不然打印不了.

<?xml version="1.0" encoding="GBK" ?>
<TRANSACTION RIGHTS="11100000000000000000000000000000" TITLE="3201 一般存款"
xmlns="http://www.otd.org/MENU" xmlns:W3CNS="http://www.w3c.org">

<COMMSEND>"{
        

commsend_001();



commsend_101();



// if(waitsuper()){



       // return(true);
   // }else{
//      return(false);
   // }

}"
</COMMSEND>

<COMMRECV>"{
commrecv_001();

}"
</COMMRECV>

<!--
界面及输入项的配置位于标签<VARIABLE>内，
每个<ITEM>标签表示一个输入项,在处理交易的过程中循环顺序执行所有的<ITEM>，
直到遇到SUBMIT按钮或者其他使处理循环结束的条件。

<VARIABLE>标签有一个属性UPLOOP可以为"TRUE"或者"FALSE"表示是否允许按上箭头从第一个输入项跳到最后一个输入项，
默认为FALSE。
-->
<VARIABLE UPLOOP="TRUE">

<ITEM LINE="3" COL="3" TYPE="%-44s" FUNCTIONS=
    "T(3201                            储蓄存款)"/>    
<ITEM LINE="4" COL="3" TYPE="%-74s" FUNCTIONS=
   "T(─────────────────────────────────────)"/>

<ITEM NAME="#TXNO"    TYPE="%-4s" FUNCTIONS="T($TXNO=2201)"/>    
<ITEM NAME="#MSGTYPE" TYPE="%-5s" FUNCTIONS="T($MSGTYPE=03001)"/> 
<ITEM NAME="#TXCD"    TYPE="%4s"   FUNCTIONS="T(3201)"/>      
<ITEM NAME="#TXNAME" TYPE="%-10s" FUNCTIONS="T(储蓄存款)"/> 

   <IMPORT>SVACTINFO.IMP</IMPORT>

<ITEM NAME="#FD13" TYPE="%-1s" FUNCTIONS="T($FD13,1,1)"/> 


<ITEM LINE="21" COL="59" TYPE="%-6s" FUNCTIONS="T(确定)" INPUT="SUBMIT"/>

</VARIABLE>

<REQUEST>
</REQUEST>

<RESPONSE>

<PACKAGE DEVICE="SCREEN" DESC="储蓄存款">
NOTHING
</PACKAGE>



<PRINT>
"{

  print( 3,30,'储蓄存款');
  print( 4,22,'帐    号:[19]',#ACTNO);
  print( 5,22,'户    名:[60]',#CUSTNAME);
  print( 6,22,'产品名称:[30]',#PRODNAME);
  print( 7,22,'凭证类型:[30]',#SVOCTYPE);
  print( 8,22,'凭证号码:[16]',#VOCNUM);
  if(substr(#ACTNO,0,6) != '622936') 
  {
   print( 9,22,'有无存折:[ 4]',#SNBFLAG);
   print(10,22,'存款方式:[ 4]',#SCASHFLAG);
   print(11,22,'交易金额:[21]',#LTXAMT);
   print(12,22,'流水号:[ 6]',$FD4);
  }
  else
  {
   print( 9,22,'存款方式:[ 4]',#SCASHFLAG);
   print(10,22,'交易金额:[21]',#LTXAMT);
   print(11,22,'流水号:[ 6]',$FD4);
  }
}"
</PRINT>

</RESPONSE>

<RESPONSE>


   
<PACKAGE DEVICE="PRINTER" LINESPACE="11" DESC="请打印储蓄存款凭证"> 
CKPT|@actno|@custname|@txamt|@prodname|@opn_day|@brno|@custno|||||@avbal||||||@tx_type|||@ct_name||||||||||@id_type|@id_no|@br_name||@note_no||@acc_no|@tx_brno|@term|@term_type|@rate|
</PACKAGE>


<INIT>
"{
  $KINDNO='00';
}"
</INIT>



<PRINT>"{
  dim @txday as string;
  dim @txtime as string;
  dim @year   as string; //年
  dim @month as string; //月
  dim @day    as string; //日

  @txday = substr($HDATE,0,4)+'-'+substr($HDATE,4,2)+'-'+substr($HDATE,6,2);
  @txtime = substr($SYSTIME,0,2)+':'+substr($SYSTIME,2,2)+':'+substr($SYSTIME,4,2);
  @year   = substr($HDATE,0,4);
  @month = substr($HDATE,4,2);
  @day    = substr($HDATE,6,2);

  //
  print(11, 16,'[7      ]                                                 [20                  ]         [8]',@acc_no,#TXNAME,$HDATE);
  if(substr(@actno,0,6) != '622936')//帐号和卡号分开
  {
   print(13, 11,'帐    号:[20                    ]   户    名:[20                  ] 开户行:[5    ]             [20]',@actno,@custname,@brno,@actno);
  }
  else
  {
   print(13, 11,'帐    号:[20                    ]   户    名:[20                  ] 开户行:[5    ]',@actno,@custname,@brno);
  }
  print(15, 11,'储    种:[20                    ]   利    率:[7      ]%              流水号:[6     ]',@prodname,@rate,$FD4);
  if(substr(@actno,0,6) == '622936')//帐号和卡号分开
  {
   print(17, 11,'存    期:[2 ][2 ]                   交易金额:[21                   ] 交易日期:[8       ]           [20]',@term,@term_type,ltrim(comma(@txamt,16)),$HDATE,@actno);
  }
  else
  {
   print(17, 11,'存    期:[2 ][2 ]                   交易金额:[21                   ] 交易日期:[8       ]',@term,@term_type,ltrim(comma(@txamt,16)),$HDATE);
  }
  print(19, 11,'凭证号:[16                ]       余    额:[21                   ] 操作员:[4   ]               [20]',@note_no,ltrim(comma(@avbal,16)),$TLRNO,@custname);
  print(21, 11,'交易类型:[ 4    ]                   现转标志:[4   ]                  交易行:[7      ]',@tx_type,@ct_name,@tx_brno);
  print(23,102,'[21]',ltrim(comma(@txamt,16)));
  
  print(26,102,'[21]',ltrim(comma(@avbal,16)));
  print(29,102,'[20]',@prodname);
  print(32,102,'[2 ][2 ]',@term,@term_type);
  print(35,102,'[7]%',@rate);
  print(38, 74,'[4   ]                        [4]',$TLRNO,$TLRNO);
}"
</PRINT>
</RESPONSE>

</TRANSACTION>

programpoet

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
2
评论
DHC log 2009-1-9

今天局域网连了共享打印机,打了些资料,准备周六周日有时间看一看. 今儿个真高兴,够意思的同学帮我把实习证明和实习报告发给开明的院长,任务搞定了. 前台终于明白套路了,具体代码还需看. 周六同事去题球,矿业大学,可惜没装备,技术也不好,等年后装备全了再参加吧,等会就下班啦:) 局域网共享打印机:
复制链接

扫一扫