Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助：通过微信扫码获取明细


  共有6438人关注过本帖树形打印复制链接

主题：求助：通过微信扫码获取明细
帅哥哟，离线，有人找我吗？
xietan417
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：732 积分：6510 威望：0 精华：0 注册：2011/6/26 11:45:00 		求助：通过微信扫码获取明细  发帖心情 Post By：2017/12/6 15:20:00 [只看该作者]

wx.ready(function () {
    document.getElementById('scan').onclick = function () {
        wx.scanQRCode({
            needResult: 1,
            scanType: ['qrCode','barCode'],
            success: function (res) {
                var code = res.resultStr;
                  if(code.indexOf(",") >= 0){
                   code = code.split(",")[1];
                  }
                document.getElementById('number').value = code;
                if(result){
                obj.number = code;
                result = submitAjaxFileds('getname.htm','','number',false);
                        if(result){
                                 var vals=result.split("|");
                                 if(vals.length==2){
                                 document.getElementById("name").value=vals[0];
                                 document.getElementById("dp").value=vals[1];
       }        
    }
}
            }
        });
    };
});
wx.error(function (res) {
    //alert(res.errMsg);
});

JS这样写不行啊！
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/12/6 15:43:00 [只看该作者]

1、最开始没修改的时候，扫码是否正常？

 

2、改一下

 

wx.ready(function () {
    document.getElementById('scan').onclick = function () {
        wx.scanQRCode({
            needResult: 1,
            scanType: ['qrCode','barCode'],
            success: function (res) {
                var code = res.resultStr;
alert(code)
                  if(code.indexOf(",") >= 0){
                   code = code.split(",")[1];
                  }
alert(code)
                document.getElementById('number').value = code;
 
                var result = submitAjaxFileds('getname.htm','','number',false);
alert(result)
                        if(result){
                                 var vals=result.split("|");
                                 if(vals.length==2){
                                     document.getElementById("name").value=vals[0];
                                     document.getElementById("dp").value=vals[1];
                                 }  
                        }      
            }
        });
    };
});
wx.error(function (res) {
    //alert(res.errMsg);
});
 回到顶部
帅哥哟，离线，有人找我吗？
xietan417
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：732 积分：6510 威望：0 精华：0 注册：2011/6/26 11:45:00 		  发帖心情 Post By：2017/12/6 17:08:00 [只看该作者]

这个是扫码的内部函数
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AppendHTML("<script src='http://res.wx.qq.com/open/js/jweixin-1.0.0.js'></script>",True) '引入JS-SDK库
wb.AppendHTML("<script src='./lib/jssdk.js'></script>") '引入脚本文件
'在页面注入权限验证配置
Dim st As New Date(1970,1,1,8,0,0)
Dim appid As String = "wxc47938dd3fd51234" 'CorpID
Dim timestamp As Integer = CInt((Date.Now - st).TotalSeconds()) '时间戳
Dim noncestr As String = Rand.NextString(16) '随机字符
Dim url As String  = e.Request.URL.ToString '当前页面地址
Dim signature As String = Functions.Execute("GetJsSignature", noncestr, timestamp, url) '生成权限验证签名
Dim cfg As String = "wx.config({appId:'{0}',timestamp:{1},nonceStr:'{2}',signature:'{3}',jsApiList:['scanQRCode']});"
wb.AppendHTML("<script>" & CExp(cfg,appid,timestamp,noncestr,signature) & "</script>",True)
'开始正常生成网页内容
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","EG盘点")
    .AddInput("product","盘点地点","text")
    With .AddInputCell("ic1")
        .AddLabel("lbh","编号",0)
        .AddInput("number","text",1)
        .AddVcodeButton("scan","扫码输入",2) '增加二维码扫描按钮,2表示显示在右边 
        .AddLabel("mc","名称",0)       
        .AddInput("name","text",1)
        .AddLabel("bm","部门",0)       
        .AddInput("dp","text",1)
    End With
End With
With wb.AddButtonGroup("form1","btg1",True)
    .Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build) '生成网页

这个是获取明细的内部函数

Dim e As RequestEventArgs = args(0)
MessageBox.Show(e.Values("number"))
Dim dr As DataRow = DataTables("固定资产").Find("资产编号='" & e.Values("number") & "'")
        If dr IsNot Nothing Then
           e.WriteString(dr("资产名称") & "|" & dr("使用部门"))
        End If


还是不可以自动获取数据啊！
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/12/6 17:25:00 [只看该作者]

1、本来能否扫描，扫描单个功能是否正常？

 

2、在1正常的前提下改成2楼代码，看弹出什么。

 

3、如果连扫描功能都不正常，下载一个工具测试 https://mp.weixin.qq.com/wiki?t=resource/res_main&id=mp1455784140

 

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
xietan417
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：732 积分：6510 威望：0 精华：0 注册：2011/6/26 11:45:00 		  发帖心情 Post By：2017/12/6 17:30:00 [只看该作者]

描扫功能正常的！

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/12/6 17:31:00 [只看该作者]

那2楼的代码，弹出什么数据？是否正常？

 回到顶部
帅哥哟，离线，有人找我吗？
xietan417
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：732 积分：6510 威望：0 精华：0 注册：2011/6/26 11:45:00 		  发帖心情 Post By：2017/12/6 17:39:00 [只看该作者]

就只有条码数据！
Dim e As RequestEventArgs = args(0)
MessageBox.Show(e.Values("number"))       但是这条就没有弹出来！
Dim dr As DataRow = DataTables("固定资产").Find("资产编号='" & e.Values("number") & "'")
        If dr IsNot Nothing Then
           e.WriteString(dr("资产名称") & "|" & dr("使用部门"))
        End If

[此贴子已经被作者于2017/12/6 17:40:42编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/12/6 17:46:00 [只看该作者]

1、红色是否弹出？

 

2、你访问的是 getname.htm，在httprequest跟踪一下弹出 e.path 看看

 

wx.ready(function () {
    document.getElementById('scan').onclick = function () {
        wx.scanQRCode({
            needResult: 1,
            scanType: ['qrCode','barCode'],
            success: function (res) {
                var code = res.resultStr;
alert(code)
                  if(code.indexOf(",") >= 0){
                   code = code.split(",")[1];
                  }
alert(code)
                document.getElementById('number').value = code;
 
                var result = submitAjaxFileds('getname.htm','','number',false);
alert(result)
                        if(result){
                                 var vals=result.split("|");
                                 if(vals.length==2){
                                     document.getElementById("name").value=vals[0];
                                     document.getElementById("dp").value=vals[1];
                                 }  
                        }      
            }
        });
    };
});
wx.error(function (res) {
    //alert(res.errMsg);
});
 回到顶部
帅哥哟，离线，有人找我吗？
xietan417
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：732 积分：6510 威望：0 精华：0 注册：2011/6/26 11:45:00 		  发帖心情 Post By：2017/12/7 14:25:00 [只看该作者]

还是JS的问题啊！谢谢！可以了！

 回到顶部
帅哥哟，离线，有人找我吗？
xietan417
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：732 积分：6510 威望：0 精华：0 注册：2011/6/26 11:45:00 		  发帖心情 Post By：2017/12/21 16:12:00 [只看该作者]

甜版，这个功能只能通摄像头扫码后，才能自动填下明细，如果手动的话就不行了！有没有办法改进一下？

 回到顶部
总数 41 1 2 3 4 5 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08008 秒, 4 次数据查询