以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  分享:窗口piao据打印  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=3109)

--  作者:yangming
--  发布时间:2009/6/11 18:01:00
--  分享:窗口piao据打印

根据贺老师的范例修改,全部可视化,无代码

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:票据设计.table

[此贴子已经被狐狸爸爸于2009-6-11 18:03:29编辑过]

--  作者:狐狸爸爸
--  发布时间:2009/6/11 18:07:00
--  
新版,顶!
--  作者:狐哥
--  发布时间:2009/6/11 19:29:00
--  


--  作者:kylin
--  发布时间:2009/6/11 23:30:00
--  
跟比赛似的,收藏,谢谢
--  作者:易狐
--  发布时间:2009/6/11 23:39:00
--  
谢谢分享!!
--  作者:mr725
--  发布时间:2009/6/12 12:38:00
--  
上一条、下一条 到头了的时候,给个提示显得更友好些,  如:下一条 代码:::

With Tables("凭证")
    if .position < .rows.count-1
        .Position = .Position + 1
    else
        MessageBox.Show("这是最后一条记录,后面没有了!","提示")
    end if
End With

--  作者:yangming
--  发布时间:2009/6/12 12:41:00
--  
以下是引用mr725在2009-6-12 12:38:00的发言:
上一条、下一条 到头了的时候,给个提示显得更友好些,  如:下一条 代码:::

With Tables("凭证")
    if .position < .rows.count-1
        .Position = .Position + 1
    else
        MessageBox.Show("这是最后一条记录,后面没有了!","提示")
    end if
End With

好啊,呵呵


--  作者:mr725
--  发布时间:2009/6/12 13:36:00
--  
票据的出票日期必须使用中文大写。
为防止变造票据的出票日期,在填写月、日时,月为壹、贰和壹拾的,日为壹至玖和壹拾、贰拾和叁拾的,应在其前加“零”;
日为 拾壹 至 拾玖 的,应在其前加“壹”。如1月15日,应写成零壹月壹拾伍日。再如10月20日,应写成零壹拾月零贰拾日。

e.Value = CCNumber(e.Value.Day)
e.Value = CCNumber(e.Value.Month)   这两个不完全符合要求的?

如:2009-10-20  按上面为: 贰零零玖 壹拾 贰拾   实际应该: 贰零零玖 零壹拾 零贰拾

--  作者:yangming
--  发布时间:2009/6/12 13:49:00
--  
以下是引用mr725在2009-6-12 13:36:00的发言:
票据的出票日期必须使用中文大写。
为防止变造票据的出票日期,在填写月、日时,月为壹、贰和壹拾的,日为壹至玖和壹拾、贰拾和叁拾的,应在其前加“零”;
日为 拾壹 至 拾玖 的,应在其前加“壹”。如1月15日,应写成零壹月壹拾伍日。再如10月20日,应写成零壹拾月零贰拾日。

e.Value = CCNumber(e.Value.Day)
e.Value = CCNumber(e.Value.Month)   这两个不完全符合要求的?

如:2009-10-20  按上面为: 贰零零玖 壹拾 贰拾   实际应该: 贰零零玖 零壹拾 零贰拾

年应该是:e.Value = Left(CCDate(e.Value),4)
至于月和日,我就不清楚了,要看银行要求了


--  作者:yangming
--  发布时间:2009/6/12 14:08:00
--  
我在网上查了一下,结果如下:
    票据的出票日期必须使用中文大写。为防止变造票据的出禀日期,在填写月、日时,月为壹、贰和壹拾的,日为壹至玖和壹拾、贰拾和叁抬的,应在其前加“零”;日为抬壹至拾玖的,应在其前加“壹”。如1月15日,应写成零壹月壹拾伍日。再如10月20日,应写成零壹拾月零贰拾日。


一至十月要写为:零壹、零贰、零叁、零肆、零伍、零陆、零柒、零捌、零玖、零壹拾月

十一至十二月写为:壹拾壹月、壹拾贰月

一至十日要写为:零壹、零贰、零叁、零肆、零伍、零陆、零柒、零捌、零玖、零壹拾日 

二十日写为零贰拾日、三十日写为零叁十日, 其他的日不用加零了。
[此贴子已经被作者于2009-6-12 14:11:45编辑过]