小小出入库管理系统(2012年12月又作了更新)

zjdh · 发表于 2021-5-8 17:53

ndfxq 发表于 2021-5-8 17:49
想把入库单表头，改成采购单，怎么修改

把宏中所有"物资入库单"字样改成“采购单"

ndfxq · 发表于 2021-5-8 18:53

谢谢楼主帮助，有没有简单的办法，把6.1版A4一张和6.4版有机集合下

ndfxq · 发表于 2021-5-8 19:10

能不能加你QQ聊下

zjdh · 发表于 2021-5-8 20:15

ndfxq 发表于 2021-5-8 19:10
能不能加你QQ聊下

我较忙，很少上QQ，有事坛里提吧。

zjdh · 发表于 2021-5-8 20:17

本帖最后由 zjdh 于 2021-5-8 20:26 编辑

ndfxq 发表于 2021-5-8 18:53
谢谢楼主帮助，有没有简单的办法，把6.1版A4一张和6.4版有机集合下

不可能简单集合，修改需要一定的工作量。你希望用哪个版本，待我有空修改。

ndfxq · 发表于 2021-5-10 08:33

1、用那个有打印并保存的那个版本。2、入库单、出库单改成附件样式，一式三联，A4一张打印。
希望版主有时间了给修改下，万分感谢。

ndfxq · 发表于 2021-5-10 08:36

大写金额感觉不太美观，可以改成这个函数=IF(E12=0,"",IF(AND(ISERR(FIND("拾万零",TEXT(INT(E12),"[dbnum2]"))),ISERR(FIND("拾万元",TEXT(INT(E12),"[dbnum2]")&"元"))),SUBSTITUTE(TEXT(INT(E12),"[DBNum2]"),"拾万","拾万零")&"元",TEXT(INT(E12),"[dbnum2]")&"元"))&IF(INT(E12*10)-INT(E12)*10=0,IF(INT(E12)*(INT(E12*100)-INT(E12*10)*10)=0,"","零"),IF(AND((INT(E12)-INT(E12/10)*10)=0,INT(E12)>0),"零"&TEXT(INT(E12*10)-INT(E12)*10,"[dbnum2]")&"角",TEXT(INT(E12*10)-INT(E12)*10,"[dbnum2]")&"角"))&IF((INT(E12*100)-INT(E12*10)*10)=0,"整",TEXT(INT(E12*100)-INT(E12*10)*10,"[dbnum2]")&"分")

ndfxq · 发表于 2021-5-11 15:10

把宏中所有"物资入库单"字样改成“采购单",把模块1的修改后，保存后，到数据库后是出库数据

zjdh · 发表于 2021-5-23 20:05

ndfxq 发表于 2021-5-10 08:36
大写金额感觉不太美观，可以改成这个函数=IF(E12=0,"",IF(AND(ISERR(FIND("拾万零",TEXT(INT(E12),"[dbnum2 ...

正式票据就是那样的格式，如要简化的话，你这公式太繁琐啦，看我给你的公式：
=SUBSTITUTE(SUBSTITUTE(IF(-RMB(E12,2),TEXT(A6,";负")&TEXT(INT(ABS(E12)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(E12,2),2),"[dbnum2]0角0分;;整"),),"零角",IF(E12^2<1,,"零")),"零分","整")

zjdh · 发表于 2021-5-23 20:35

ndfxq 发表于 2021-5-11 15:10
把宏中所有"物资入库单"字样改成“采购单",把模块1的修改后，保存后，到数据库后是出库数据

还有几个地方要改

出入库系统6-4.14（单页三联打印）.rar (437.64 KB, 下载次数: 30)

		自动登录	找回密码
密码			免费注册

[分享] 小小出入库管理系统(2012年12月又作了更新)