ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2038|回复: 1

[原创] 用友7.2x扩展系列之 一 多年帐务的合并

[复制链接]

TA的精华主题

TA的得分主题

发表于 2011-10-18 12:50 | 显示全部楼层 |阅读模式
本帖最后由 flyge 于 2011-10-18 12:49 编辑

针对用友7.2X
为了实现多年的凭证查询,我们将用友多年帐套连在一起,
前提是 找到帐套所在目录 我们这里 是 U:\
我们就在U:\ 下

=================================================
新建一个access文件,
=================================================

1.jpg
=================================================
链接帐务数据库
=================================================

改个名字如“2001.mdb”,这里2001是年份,你可以变成相应年份
链接帐务中的数据到这个 新建的access文件“2001.mdb”
2.jpg

3.jpg

4.jpg

5.jpg


6.jpg
链接完毕

=================================================
建立一个查询
=================================================


接下来我们
建立一个查询,
_haxaja_cx01.jpg

不选择任何表,选择SQL视图,见图

_haxaja_cx02.jpg _haxaja_cx03.jpg _haxaja_cx04.jpg

接下来,将“实例代码”中的代码复制到 查询的SQL视图中

_haxaja_cx05.jpg

把年份修改到与帐务对应的,这里有两处,这里的年份是增加的一列,为了与其他年份帐务合并的时候作区分用的,
因为7.2x的用友的这个凭证库里原本没有分哪个年份,一年一个数据库,所以我们把所有年度的凭证放在一起是加个年份。
_haxaja_cx06.jpg _haxaja_cx07.jpg

接下来,保存为“凭证”
_haxaja_cx08.jpg _haxaja_cx09.jpg


这个查询把所有的需要的凭证,汇总在一起,包含“已记账凭证”和“未记账凭证”还有期初数(用友里用月份为0表示的)
将“实例代码”中的代码复制到 查询的SQL视图中即可,注意把年份修改到与帐务对应的, 保存为“凭证”即可
保存access文件,退出
===========================================================
接下来就是体力活了,将每个年份建立一个access文件,重复以上步骤,接下来就 要准备合并了

===========================================================


=======
实例代码如下:
========
(SELECT
   g_pvouch.isid,
   g_pvouch.iperiod,
   g_pvouch.ino_id,
   g_pvouchs.snid,
   g_pvouchs.ccode,
   g_code.ccode_name,
   g_pvouchs.cd_c,
   g_pvouchs.mmoney,
   g_pvouchs.cdigest,
   g_pvouchs.ienter_id,
   g_enter.center_name,
   g_itemss00.FIELD1,
   g_itemss00.FIELD2,
   g_itemss00.FIELD3,
   g_enter.center_id,
   g_itemss00.FIELD4,
   g_pvouchs.iperson_id,
   "2004" as year
FROM
   g_pvouch
     INNER JOIN
     (g_itemss00
        RIGHT JOIN
        (  (g_pvouchs
             INNER JOIN
            g_code
                   ON    g_pvouchs.ccode = g_code.ccode
           )
              LEFT JOIN
           g_enter
                  ON  g_pvouchs.ienter_id = g_enter.ienter_id
        )
           ON g_itemss00.FIELD0 = g_pvouchs.iitem_id
     ) ON g_pvouch.isid = g_pvouchs.isid
ORDER BY g_pvouch.isid)
union
(SELECT
   g_vouch.isid,
   g_vouch.iperiod,
   g_vouch.ino_id,
   g_vouchs.snid,
   g_vouchs.ccode,
   g_code.ccode_name,
   g_vouchs.cd_c,
   g_vouchs.mmoney,
   g_vouchs.cdigest,
   g_vouchs.ienter_id,
   g_enter.center_name,
   g_itemss00.FIELD1,
   g_itemss00.FIELD2,
   g_itemss00.FIELD3,
   g_enter.center_id,
   g_itemss00.FIELD4,
   g_vouchs.iperson_id,
   "2004" as year   
FROM
   g_vouch
     INNER JOIN
     (g_itemss00
        RIGHT JOIN
        (  (g_vouchs
             INNER JOIN
            g_code
                   ON    g_vouchs.ccode = g_code.ccode
           )
              LEFT JOIN
           g_enter
                  ON  g_vouchs.ienter_id = g_enter.ienter_id
        )
           ON g_itemss00.FIELD0 = g_vouchs.iitem_id
     ) ON g_vouch.isid = g_vouchs.isid
ORDER BY g_vouch.isid)

;


========
实例代码结束,注意最后的分号别忘了
========









TA的精华主题

TA的得分主题

 楼主| 发表于 2011-10-18 13:34 | 显示全部楼层
这里的附件是录像,用屏幕录像专家录的,呵呵,没有加声音{:soso_e112:}
天哪,292kb限制,只能分多个打包了
1.part23.rar (280 KB, 下载次数: 7)

1.part22.rar (280 KB, 下载次数: 6)

1.part21.rar (280 KB, 下载次数: 6)

1.part20.rar (280 KB, 下载次数: 5)

1.part19.rar (280 KB, 下载次数: 5)

1.part18.rar (280 KB, 下载次数: 5)

1.part17.rar (280 KB, 下载次数: 5)

1.part16.rar (280 KB, 下载次数: 5)

1.part15.rar (280 KB, 下载次数: 5)

1.part14.rar (280 KB, 下载次数: 5)

1.part24.rar (216.16 KB, 下载次数: 5)

1.part12.rar (280 KB, 下载次数: 5)

1.part11.rar (280 KB, 下载次数: 5)

1.part10.rar (280 KB, 下载次数: 5)

1.part09.rar (280 KB, 下载次数: 5)

1.part08.rar (280 KB, 下载次数: 5)

1.part07.rar (280 KB, 下载次数: 5)

1.part06.rar (280 KB, 下载次数: 7)

1.part05.rar (280 KB, 下载次数: 5)

1.part04.rar (280 KB, 下载次数: 5)

1.part03.rar (280 KB, 下载次数: 5)

1.part02.rar (280 KB, 下载次数: 5)

1.part01.rar (280 KB, 下载次数: 5)

1.part13.rar (280 KB, 下载次数: 7)


您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-9-27 23:28 , Processed in 0.047279 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表