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


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

主题:求助:通过微信扫码获取明细

帅哥哟,离线,有人找我吗?
xietan417
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:721 积分:6385 威望: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


加好友 发短信
等级:三尾狐 帖子:721 积分:6385 威望: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


加好友 发短信
等级:三尾狐 帖子:721 积分:6385 威望: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


加好友 发短信
等级:三尾狐 帖子:721 积分:6385 威望: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


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

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

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


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

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

 回到顶部
总数 41 1 2 3 4 5 下一页