以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  【请教狐狸:】一直未解决的piao据打印的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=18329)

--  作者:taxliman
--  发布时间:2012/4/9 17:23:00
--  【请教狐狸:】一直未解决的piao据打印的问题

 

狐狸爸爸:请教过两次一直未解决,目前有两个问题帮忙看一下:

 

    一、【表格如下:】

                                                                                                 应纳税税额

  税种 销售收入 税率
个人所得税 500000 0.005   2 5 0 0 0 0
房产税 500000 0.045 2 2 5 0 0 0 0
营业税 500000 0.050 2 5 0 0 0 0 0
小计     5 0 0 0 0 0 0

金额合计

 

(大写)  

 

 

     二、【问题如下:】

 

     表中红色字体数据取自数据表,绿色字体是做套打格式需要定义的部分;

    两个问题未解决:

    1、做判定,如果营业税一项自表中取出的数据数值本身为零时,即:不应纳税,则不打印第四行:营业税、销售收入、应纳税税额等项内容均不打印,并显示为空项,否则按其他税格式输出;

    2、绿色字体大写部分,数据不足位必须以大写的“零”补在空位,输出时在大写位置不能出现空位。

 

 

   帮帮忙吧,实在解决不了了!!

 

 

 

 

          

 

 


--  作者:taxliman
--  发布时间:2012/4/9 17:25:00
--  
呵呵,不知怎么传过去表的最后一行拐弯了,应该 是一行的
--  作者:taxliman
--  发布时间:2012/4/9 17:26:00
--  
大写主要是第一个“零”怎么处理的问题,多谢!!
--  作者:狐狸爸爸
--  发布时间:2012/4/9 17:47:00
--  

你这个是窗口打印吧? 按道理所有的打印都可以设置条件,因为DataFormat事件用的是代码,什么样的条件都可以设置。

搞不定的话,做个简单具体的例子发上来说话,否则其他人很难回复。


--  作者:taxliman
--  发布时间:2012/4/9 18:05:00
--  

没错,是窗口打印,DataFormat事件试了很多次,搞不定,帮帮忙吧


图片点击可在新窗口打开查看此主题相关图片如下:问题截图.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2012-4-10 11:56:17编辑过]

--  作者:e-png
--  发布时间:2012/4/9 19:45:00
--  
需要别人帮吗,那请提供开门锁。
--  作者:狐狸爸爸
--  发布时间:2012/4/10 9:10:00
--  

举个例子,你原来的代码是:

 

e.Value = CUNumber(GetDigit(e.Value,5))

 

你希望为空的时候用零代替,那么只需将代码改为:

 

Dim v As String = CUNumber(GetDigit(e.Value,5))
If v = "" Then
    e.Value = "零"
Else
    e.value = v
End If

 

同样如果某个条件不符合就不打印,你可以:

 

if  条件符合 Then

    \'你原来的代码

Else

    e.Value = ""

End If


--  作者:taxliman
--  发布时间:2012/4/10 9:24:00
--  

解决了!谢老大!顶一下!图片点击可在新窗口打开查看


--  作者:taxliman
--  发布时间:2012/4/10 11:57:00
--  
呵呵,什么是开门锁