Foxtable(狐表) → 用户栏目 → 专家坐堂 → 新增订单不能保存和自动输入


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

主题：新增订单不能保存和自动输入
帅哥哟，离线，有人找我吗？
qqhealth
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：410 积分：3090 威望：0 精华：0 注册：2018/11/23 10:41:00 		新增订单不能保存和自动输入  发帖心情 Post By：2019/8/29 22:30:00 [显示全部帖子]

老师您好，参考帮助做的新增订单不能保存和实现自动输入，代码见附件。另，如何实现.AddInput("姓名","姓名","text").Value = e.Cookies("username") 不显示，网页端隐藏姓名。谢谢！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:求助.txt
 回到顶部
帅哥哟，离线，有人找我吗？
qqhealth
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：410 积分：3090 威望：0 精华：0 注册：2018/11/23 10:41:00 		  发帖心情 Post By：2019/8/30 11:11:00 [显示全部帖子]

老师您好，myfunction函数请见附件。谢谢！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:ajaxform.js.txt
 回到顶部
帅哥哟，离线，有人找我吗？
qqhealth
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：410 积分：3090 威望：0 精华：0 注册：2018/11/23 10:41:00 		  发帖心情 Post By：2019/8/30 11:33:00 [显示全部帖子]

老师您好，接收单独做一个函数后可以录入和实现自动录入，但是保存时出现错误的提示。代码见附件。谢谢！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新建文本文档.txt
 回到顶部
帅哥哟，离线，有人找我吗？
qqhealth
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：410 积分：3090 威望：0 精华：0 注册：2018/11/23 10:41:00 		  发帖心情 Post By：2019/8/30 12:03:00 [显示全部帖子]

老师您好，姓名改成用户名和保存函数分开后可以了。谢谢！

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


加好友 发短信
等级：一尾狐 帖子：410 积分：3090 威望：0 精华：0 注册：2018/11/23 10:41:00 		  发帖心情 Post By：2019/10/10 12:09:00 [显示全部帖子]

老师您好，下面自动录入不知哪里有错，在没有增加其他自动录入时可以，增加其他自动录入相应代码后估计冲突了，我删除了后加的还是不行。谢谢！如果有多个自动录入的需求，通过getCodes2.htm setCodes2区别不行，不知需要怎么区别？谢谢！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新建文本文档.txt

[此贴子已经被作者于2019/10/10 12:11:29编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
qqhealth
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：410 积分：3090 威望：0 精华：0 注册：2018/11/23 10:41:00 		  发帖心情 Post By：2019/10/10 13:54:00 [显示全部帖子]

老师您好，相关代码如下，谢谢！
httprequest:
Case "getCodes.htm"
        Functions.Execute("getCodes",e)

getcodes内部函数：
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim dr As DataRow = DataTables("药品").Find("药品类别='" & e.Values("药品类别") & "' and 药品名称='" & e.Values("药品名称") & "' and 生产厂家='" & e.values("生产厂家") & "' and 规格='" & e.values("规格") &  "'")
If dr IsNot Nothing Then
    e.WriteString(dr("药品代码")& "|" & dr("价格"))
End If

新增订单函数相关代码：
With .AddSelect("规格","规格","")
            .Attribute = "" '调用js函数
        End With
        .AddInput("药品代码","药品代码","text")
        .AddInput("价格","价格","number").Readonly = True
        With .AddInput("数量","数量","number")
             .Step = "1"
            .Attribute = ""
        End With
        .AddInput("金额","金额","number")

    wb.AppendHTML("<script src="./lib/ajaxform.js"></script>") '引入脚本文件

ajaxform.js:
function setCodes(){
    var result= submitAjaxFileds('getCodes.htm','','药品类别','药品名称','生产厂家','规格',false);
    if(result){
        var vals=result.split("|");
        if(vals.length==2){
            document.getElementById("药品代码").value=vals[0];
            document.getElementById("价格").value=vals[1];
        }
    }
}
 回到顶部
帅哥哟，离线，有人找我吗？
qqhealth
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：410 积分：3090 威望：0 精华：0 注册：2018/11/23 10:41:00 		  发帖心情 Post By：2019/10/10 15:35:00 [显示全部帖子]

老师您好，测试报错信息在ajaxform.js:function setCodes()这没有反应，没有反馈什么错误信息。只是没有反应。

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


加好友 发短信
等级：一尾狐 帖子：410 积分：3090 威望：0 精华：0 注册：2018/11/23 10:41:00 		  发帖心情 Post By：2019/10/11 13:19:00 [显示全部帖子]

老师您好，自动输入过程中出现比如“库存”数量列，怎么选取最后一行或数值最小的值。谢谢！代码如下：

With .AddSelect("药品名称","药品名称","")
             .Attribute = "" '调用js函数
        End With
        .AddInput("生产厂家","生产厂家","")
        .AddInput("规格","规格","")
        .AddInput("规格数量","规格数量","number").Readonly = True
        .AddInput("库存","库存","number").Readonly = True
        .AddInput("出库数量","出库数量","").Attribute = ""
        .AddInput("出库","出库","number").Step = "0.01"

图片点击可在新窗口打开查看此主题相关图片如下：1011-3.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
qqhealth
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：410 积分：3090 威望：0 精华：0 注册：2018/11/23 10:41:00 		  发帖心情 Post By：2019/10/14 11:53:00 [显示全部帖子]

老师您好，这行代码不知这个怎么加进去。函数代码如下，药品库存数量是自动输入的，现在自动输入的库存数量是该药品第一行的库存数量。谢谢！
With .AddSelect("药品名称","药品名称","")
             .Attribute = "" '调用js函数
        End With
        .AddInput("生产厂家","生产厂家","text")
        .AddInput("规格","规格","text")
        .AddInput("规格数量","规格数量","number").Readonly = True
        .AddInput("库存","库存","number").readonly = True

function setCodes2(){
    var result= submitAjaxFileds('getCodes2.htm','','健康室','药品类别','药品名称',false);
    if(result){
        var vals=result.split("|");
        if(vals.length==4){
             document.getElementById("生产厂家").value=vals[0];
            document.getElementById("规格").value=vals[1];
            document.getElementById("规格数量").value=vals[2];
            document.getElementById("库存").value=vals[3];
        }
    }
}
 回到顶部
帅哥哟，离线，有人找我吗？
qqhealth
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：410 积分：3090 威望：0 精华：0 注册：2018/11/23 10:41:00 		  发帖心情 Post By：2019/10/14 23:24:00 [显示全部帖子]

谢谢老师，代码如下：
getCodes2:
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim dr As DataRow = DataTables("咨询记录").Find("健康室='" & e.Values("健康室") & "' and 药品类别='" & e.Values("药品类别") & "' and 药品名称='" & e.values("药品名称") & "'")

If dr IsNot Nothing Then
    e.WriteString(dr("生产厂家")& "|" & dr("规格")& "|" & dr("规格数量")& "|" & dr("库存"))
End If

function setCodes2(){
    var result= submitAjaxFileds('getCodes2.htm','','健康室','药品类别','药品名称',false);
    if(result){
        var vals=result.split("|");
        if(vals.length==4){
             document.getElementById("生产厂家").value=vals[0];
            document.getElementById("规格").value=vals[1];
            document.getElementById("规格数量").value=vals[2];
            document.getElementById("库存").value=vals[3];
        }
    }
}
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 9 次数据查询