专家坐堂-[求助]国税局增值税fa piao查询参数自动填写问题-已解决Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]国税局增值税fa piao查询参数自动填写问题-已解决  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127792)

--  作者：shenyl0211
--  发布时间：2018/11/22 10:20:00
--  [求助]国税局增值税fa piao查询参数自动填写问题-已解决
1、下面是来自甜版的例子：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=120985&skin=0
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:网页例子.table
2、发票查询的默认值是“开具金额”：

此主题相关图片如下：默认状态.png
3、点击“输入参数”按钮后，文本框右边并没有出现手工输入并按回车键后的对钩符号：

此主题相关图片如下：2345截图20181122102046.png
4、“发票代码”和“发票号码”只有按回车键后才出现对钩符号：
此主题相关图片如下：2345截图20181122102151.png

5、如果“发票代码”是12位，则要求输入“校验码”，而不是默认的“开具金额”：

此主题相关图片如下：2345截图20181122102441.png
6、输入“发票代码”后有一定的停顿时间，以判断是输入“开具金额”还是“校验码”。
7、“校验码”的文本框ID是什么？或者说，怎么获取。例如前面的fpdm、fphm、kprq、kjje。
谢谢！

[此贴子已经被作者于2018/11/23 13:54:25编辑过]

--  作者：有点甜
--  发布时间：2018/11/22 10:41:00
--

设置焦点进入、离开即可，如

Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol
web.ScriptErrorsSuppressed = True
Dim fpdm = web.Document.GetElementById("fpdm")
Dim fphm = web.Document.GetElementById("fphm")
Dim kprq = web.Document.GetElementById("kprq")
Dim kjje = web.Document.GetElementById("kjje")
Dim yzm_img = web.Document.GetElementById("yzm_img")
fpdm.SetAttribute("value", "044001600111")
fphm.SetAttribute("value", "45372505")
kprq.SetAttribute("value", "20180603")
kjje.SetAttribute("value", "214592")
yzm_img.InvokeMember("click")
fpdm.focus
fphm.focus

--  作者：shenyl0211
--  发布时间：2018/11/22 11:02:00
--
校验码的Id是什么？

--  作者：有点甜
--  发布时间：2018/11/22 11:52:00
--

以下是引用shenyl0211在2018/11/22 11:02:00的发言：
校验码的Id是什么？

要学会自己查找。F12调出调试器，查找元素

http://www.foxtable.com/mobilehelp/scr/0244.htm

--  作者：shenyl0211
--  发布时间：2018/11/22 12:45:00
--
谢谢甜版，获取Id问题已经解决。
但这样的帮助页面标题和具体内容确实与解决本问题的思路不符，应该开设专门章节进行详细讲解，让非专业人员也能轻松应对，这才符合狐表的出发点。

[此贴子已经被作者于2018/11/22 13:38:23编辑过]

--  作者：shenyl0211
--  发布时间：2018/11/22 13:41:00
--

为什么必须点击两次“填入数据”按钮才能填入“校验码”？
但如果中间插入MessageBox.Show(0)则可以一次性填入
Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol
web.ScriptErrorsSuppressed = True
Dim fpdm = web.Document.GetElementById("fpdm")
Dim fphm = web.Document.GetElementById("fphm")
Dim kprq = web.Document.GetElementById("kprq")
Dim kjje = web.Document.GetElementById("kjje")
Dim yzm_img = web.Document.GetElementById("yzm_img")
fpdm.SetAttribute("value", "044001600111")
fphm.SetAttribute("value", "45372505")
kprq.SetAttribute("value", "20180603")
fpdm.focus
fphm.focus
’MessageBox.Show(0)
kjje.SetAttribute("value", "214592")
yzm_img.InvokeMember("click")

[此贴子已经被作者于2018/11/22 13:43:53编辑过]

--  作者：shenyl0211
--  发布时间：2018/11/22 14:03:00
--
目前只能加入一句可以自动关闭的提示，反正什么也不影响：
MessageBoxTimeout(BaseMainForm.Handle,"请稍候……", "提示", vbOKonly, 0, 1000)

--  作者：有点甜
--  发布时间：2018/11/22 15:24:00
--

代码改成这样

Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol
web.ScriptErrorsSuppressed = True
Dim fpdm = web.Document.GetElementById("fpdm")
Dim fphm = web.Document.GetElementById("fphm")
Dim kprq = web.Document.GetElementById("kprq")
Dim kjje = web.Document.GetElementById("kjje")
Dim yzm = web.Document.GetElementById("yzm")
Dim yzm_img = web.Document.GetElementById("yzm_img")
fpdm.SetAttribute("value", "044001600111")
fphm.SetAttribute("value", "45372505")
kprq.SetAttribute("value", "20180603")
fpdm.focus
fphm.focus
web.Document.InvokeScript("eval", new String() {"yzm.onkeydown=function(){kjje.value=\'" + "214592" + "\';};yzm.onfocus=function(){kjje.value=\'" + "214592" + "\';};"})
yzm_img.InvokeMember("click")
yzm.focus

--  作者：shenyl0211
--  发布时间：2018/11/23 10:29:00
--
奇怪！
甜版：
1、直接用固定数值（就是你的例子）的时候，能马上自动出现验证码图片；
2、直接从表格取值（这是现实需要）的时候，就不会自动出现验证码图片；
3、在2的基础上加上MessageBox.Show，或MessageBoxTimeout，就与1一样了。
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:网页例子.table

[此贴子已经被作者于2018/11/23 10:31:12编辑过]

--  作者：有点甜
--  发布时间：2018/11/23 10:32:00
--

以下是引用shenyl0211在2018/11/23 10:29:00的发言：
奇怪！
甜版：

1、直接用固定数值（就是你的例子）的时候，能马上自动出现验证码图片；

2、直接从表格取值（这是现实需要）的时候，就不会自动出现验证码图片；

3、在2的基础上加上MessageBox.Show，或MessageBoxTimeout，就与1一样了。

实例发上来测试吧。我测试没问题。