`

VF实现按日期自动运行的处理机制

 
阅读更多

CLOSE TABLES
SET SAFETY OFF
SET TALK OFF
SET DEFAULT TO D:/

CLOSE TABLES
USE xinzengbada
ZAP
cc=date()-1
DT=dtos(cc)
@ 5,10 say DT
FIC='xinzengbada'+ALLTRIM(DT)+'.txt'
*@ 20,10 say FIB
FICNEW='xinzengbada'+ALLTRIM(DT)
FICADD='add_'+ALLTRIM(DT)
FICNEWTXT='add'+ALLTRIM(DT)+'.txt'
ADDBEIFEN='add_30_'+ALLTRIM(DT)+'.txt'
*FIA=ALLTRIM(DT)
APPEND FROM &FIC DELIMITED WITH CHARACTER |
COPY TO &FICNEW
SELECT dist mobileno from &FICNEW WHERE mobileno NOT in(select mobileno FROM add_30) AND servproid>0 into table &FICADD
*COPY TO &FICADD
CLOSE TABLES
SELECT *From add_30 into curs add_30bk
COPY TO &ADDBEIFEN DELIMITED WITH |
CLOSE TABLES
*INSERT INTO add_30 SELECT mobileno FROM &FICADD
use add_30
appe from &FICADD
close tables
SELECT *From &FICADD into curs FICNEWTXTbk
COPY TO &FICNEWTXT DELIMITED WITH |


CLOSE TABLES
SET SAFETY OFF
SET TALK OFF
cc=date()-1
DT=dtos(cc)
@ 5,10 say DT
FIB='haitaobeifen'+ALLTRIM(DT)+'.txt'
FYC='haitao_yucun'+ALLTRIM(DT)
FBL='haitao_banli'+ALLTRIM(DT)
FIBBL='haitao'+ALLTRIM(DT)+'.txt'
FBLI=FBL+'_I'
FBLD=FBL+'_D'
YCA='ycbabai_add'+ALLTRIM(DT)+'.txt'
YCB='ycwubai_add'+ALLTRIM(DT)+'.txt'
YCC='ycsanbai_add'+ALLTRIM(DT)+'.txt'
YCCNEW='ycbaili'+ALLTRIM(DT)+'.xls'
YCQXA='qxbabai_del'+ALLTRIM(DT)+'.txt'
YCQXB='qxwubai_del'+ALLTRIM(DT)+'.txt'
YCQXC='qxsanbai_del'+ALLTRIM(DT)+'.txt'
@ 40,10 say FIBBL
ZFL='ADDZong'+ALLTRIM(DT)+'.txt'
ZFLQX='Zong_QX'+ALLTRIM(DT)+'.txt'
CWBL='CWBL'+ALLTRIM(DT)+'.txt'
CLOSE TABLES
USE haitao_yucun
ZAP
COPY STRUCTURE TO &FYC
CLOSE TABLES
USE &FYC
ZAP
APPEND FROM &FIB DELIMITED WITH CHARACTER |


cc=date()-1
DT=dtos(cc)
FIBBL='haitao'+ALLTRIM(DT)+'.txt'
FBL='haitao_banli'+ALLTRIM(DT)
FIB='haitaobeifen'+ALLTRIM(DT)+'.txt'
FYC='haitao_yucun'+ALLTRIM(DT)
FBL='haitao_banli'+ALLTRIM(DT)
FIBBL='haitao'+ALLTRIM(DT)+'.txt'
FBLI=FBL+'_I'
FBLD=FBL+'_D'
YCA='ycbabai_add'+ALLTRIM(DT)+'.txt'
YCB='ycwubai_add'+ALLTRIM(DT)+'.txt'
YCC='ycsanbai_add'+ALLTRIM(DT)+'.txt'
YCQXA='qxbabai_del'+ALLTRIM(DT)+'.txt'
YCQXB='qxwubai_del'+ALLTRIM(DT)+'.txt'
YCQXC='qxsanbai_del'+ALLTRIM(DT)+'.txt'
@ 40,10 say FIBBL
ZFL='ADDZong'+ALLTRIM(DT)+'.txt'
ZFLQX='Zong_QX'+ALLTRIM(DT)+'.txt'
CWBL='CWBL'+ALLTRIM(DT)+'.txt'
use haitao_banli
ZAP
COPY STRUCTURE TO &FBL
CLOSE TABLES
USE &FBL
ZAP

APPEND FROM &FIBBL DELIMITED WITH CHARACTER |

*SELECT * from haitao_banli WHERE idu!='I'
SELECT * from &FBL WHERE optype!='I' into curs dl
SET DELETED ON
DELETE FROM &FBL WHERE optype in('O','U')
UPDATE &FBL SET opr=SUBSTR(opr,1,16)
SELECT mobileno,MAX(opr)as opr from &FBL GROUP BY mobileno INTO dbf kkk
SELECT a.* from &FBL a JOIN kkk b ON a.opr=b.opr AND a.mobileno=b.mobileno ORDER BY 1 INTO dbf tttt

SELECT mobileno from tttt GROUP BY mobileno HAVING count(*)>1 INTO DBF duo
SELECT * from tttt WHERE mobileno in (select mobileno from duo) into table temp
*COPY TO temp
SELECT mobileno from temp WHERE optype='D' INTO dbf aaa
SELECT mobileno from temp WHERE optype='I' INTO dbf aaa1
SELECT * from aaa WHERE NOT exist(select * from aaa1) into curs dl1
SET DEleted ON
DELETE FROM temp WHERE optype ='D'

DELETE FROM tttt WHERE mobileno in (select mobileno from duo)
*INSERT INTO tttt SELECT * FROM TEMP
close tables
use tttt
appe from TEMP
close tables
SELECT * FROM tttt WHERE optype='D' INTO dbf &FBLD
SELECT * FROM tttt WHERE optype='I' INTO dbf &FBLI




*SELECT count(*) from &FBLI WHERE privid in('75900000062583','75900000062584','75900000062585')
*COPY TO &YCA DELIMITED WITH |

*SELECT count(*) from &FBLI WHERE privid in('75900000062586','75900000062587','75900000062588')
*COPY TO &YCB DELIMITED WITH |

*SELECT count(*) from &FBLI WHERE privid in('75900000062589','75900000062590','75900000062591')
*COPY TO &YCC DELIMITED WITH |



SELECT "800" as leixing,count(*)as num from &FBLI WHERE privid in('00000062583','00000062584','00000062585');
union;
SELECT "500" as leixing,count(*) as num from &FBLI WHERE privid in('00000062586','00000062587','00000062588');
union;
SELECT "300" as leixing,count(*) as num from &FBLI WHERE privid in('00000062589','00000062590','00000062591') into curs banli
copy to &YCCNEW type xls
close tables

SELECT count(*) from &FBLD WHERE privid in('75900000062583','75900000062584','75900000062585') into curs zzz
COPY TO &YCQXA DELIMITED WITH |

SELECT count(*) from &FBLD WHERE privid in('75900000062586','75900000062587','75900000062588') into curs yyy
COPY TO &YCQXB DELIMITED WITH |

SELECT count(*) from &FBLD WHERE privid in('75900000062589','75900000062590','75900000062591') into curs xxx
COPY TO &YCQXC DELIMITED WITH |
CLOSE TABLES
*CLOSE ALL

*SELECT DISTINCT mobileno From haitao_banli20080201_I.DBF WHERE privid in('75900000062583','75900000062584','75900000062585')
SELECT DISTINCT mobileno From &FBLI into curs zflbk
COPY TO &ZFL DELIMITED WITH |
CLOSE TABLES
SELECT DISTINCT mobileno From &FBLD into curs zflqxbk
COPY TO &ZFLQX DELIMITED WITH |
CLOSE TABLES
CLOSE ALL

SELECT *From &FBLI WHERE mobileno in(select mobileno FROM &FBLI GROUP BY mobileno HAVING count(*)>1) into curs cwblbk
COPY TO &CWBL DELIMITED WITH |
CLOSE TABLES

FBLIBK=FBL+'IBK'
FBLIBK2=FBL+'IBK'+'.txt'
USE &FBLI
COPY STRUCTURE TO &FBLIBK
CLOSE TABLES
USE &FBLIBK
APPEND FROM &FIBBL DELIMITED WITH |
CLOSE ALL
SELECT mobileno From &FBLIBK GROUP BY mobileno HAVING count(*)>1 into curs FBLIBK2bk
COPY TO &FBLIBK2 DELIMITED WITH |

*select *From haitao_banli20080203_I where mobileno not in (select dhhm from haitaobeifen)

分享到:
评论

相关推荐

    用VF实现的小型仓库管理系统

    在功能实现上,VF的事件驱动编程机制使得程序逻辑编写变得简单。例如,当用户点击“入库”按钮时,系统会触发相应的事件处理函数,读取输入的商品信息,与数据库交互,更新库存数据,并在界面上实时显示新的库存状态...

    图书馆管理系统 VF

    4. **程序逻辑与事件处理**:VF使用Visual Basic-like的编程语言,开发者可以编写代码来控制系统的运行逻辑,例如,当用户点击“借书”按钮时,系统会检查书籍的库存和会员的借阅权限,然后更新借阅记录。...

    renliziyuan.rar_VF_vf 系统_vf 管理系统

    总之,"renliziyuan.rar_VF_vf 系统_vf 管理系统"是一个基于Visual FoxPro的人力资源管理系统,具备稳定运行的特性,包含了数据库管理、用户交互、自动化处理等关键功能,并提供了交流和学习的平台。对于想了解或...

    vf信息管理系统汇总

    8. 技术支持:VF学籍信息管理系统可能需要配合数据库管理系统(如Visual FoxPro的内置数据库引擎)运行,并且可能需要一定的VF编程知识来定制或扩展功能。 9. 更新与维护:随着教育政策的调整和需求的变化,系统应...

    VF做的签到管理系统

    【VF做的签到管理系统】是一种基于Visual FoxPro(VF)开发的软件应用,主要用于实现日常的签到管理工作。Visual FoxPro是一款由Microsoft推出的数据库开发工具,它以其强大的数据库处理能力和简单易用的编程环境...

    vf.rar_VF_foxpro_仓库管理_仓库管理 系统 VF_仓库管理系统

    同时,可以利用VF的事件驱动编程机制,当用户点击“保存”按钮时触发入库操作的处理代码,完成数据的验证和存储。 VF还支持创建复杂的查询和报表,例如,可以通过SQL语句进行库存统计,找出库存量低于预警值的商品...

    VF 课程设计 进销存系统

    5. **数据查询与报表生成**:系统应能实现多样化的数据查询功能,例如按日期、商品类别或供应商进行销售或采购统计。同时,自动生成各类报表,如库存报表、销售分析报告等,帮助企业决策者了解经营状况。 6. **异常...

    vf题目vf的模拟题

    - **错误处理**:使用TRY...CATCH语句捕获并处理运行时错误。 - **调试**:利用断点、单步执行等工具定位和修复代码错误。 以上内容覆盖了VFP基础知识、数据管理、界面设计、编程技术等多个方面,是学习和应用VFP的...

    VF 工资管理系统设计

    4. **程序编写**:VF支持VFP语言编写自定义功能,例如,可以通过编程实现工资计算逻辑,根据员工的工作小时、加班情况、绩效等自动计算工资。 5. **用户界面**:VF工资管理系统应有友好的用户界面,便于操作。这...

    VF职员信息管理系统论文

    此外,VF职员信息管理系统还可以与其他企业应用集成,例如与薪资计算软件或考勤系统对接,实现数据的自动同步,减少重复输入,提高工作效率。 另一方面,ASP在线论坛的设计与实现论文范文展示了另一种Web应用程序...

    图书管理系统

    9. **错误处理与日志记录**:良好的图书管理系统应包含错误处理机制,记录系统运行中的异常情况,便于调试和维护。 10. **升级与扩展性**:考虑到未来需求的变化,系统设计应具有一定的灵活性和可扩展性,能够方便...

    存销售系统

    8. **异常处理**:在处理入库、出库等业务时,系统应具备错误检测和异常处理机制,例如库存不足、超期未入库等,以便及时发现并解决这些问题。 9. **性能优化**:对于大规模库存和高频交易的环境,系统需要有良好的...

    VB设备管理系统论文

    为了有效地管理和维护这些设备,VB(Visual Basic)设备管理系统应运而生,它利用计算机技术实现设备数据的自动化收集、分析和决策支持,以提高设备的运行效率,降低维护成本,确保企业的生产安全。 VB是一种由微软...

    毕业设计论文-源码-VF企业人事档案管理系统(设计源码).zip

    通过查看源码,开发者可以深入理解系统的运行机制,学习VF编程技巧,以及如何在实际项目中应用数据库管理技术。 四、毕业设计价值 对于学生而言,该系统作为毕业设计,提供了从需求分析到系统实现的完整过程,有助...

    图书馆管理系统任务书.pdf

    系统需要有强大的错误处理机制,对用户输入的数据进行校验,并能及时捕获和处理运行时的错误,提供相应的提示。详细设计阶段会列出可能的错误、错误代码及其解决方案,以增强系统的容错能力。 总的来说,图书馆管理...

    db2常用语句

    在IT行业的数据库管理领域,DB2作为IBM的一款高性能关系型数据库管理系统,被广泛应用于企业级数据处理场景。本文将基于给定的“db2常用语句”标题、描述及部分内容,深入探讨DB2中的关键操作命令,涵盖数据操作、表...

    Logrotate实现Catalina.out日志每俩小时切割示例

    二、Logrotate运行机制 Logrotate的工作流程是基于配置文件进行的。系统默认的配置文件位于/etc/logrotate.conf,同时,你可以在/etc/logrotate.d/目录下添加自定义配置文件,这些配置会覆盖全局设置。Logrotate每天...

    软件工程工资管理系统

    10 日期 文本 255 工资总 发放资金日期 11 用户名 文本 50 管理 用户名称 12 密码 文本 50 管理 用户密码 13 ID 自动 4 员工信息 员工信息表ID 14 编号 文本 50 员工信息 员工编号 15 科室 文本 255 员工信息 ...

    PS handbook Chap4

    通过设置不同的掩码,可以在创建项目时自动分配符合规则的编码,提高数据的一致性和准确性。 - **配置位置**:在事务代码`KO21`中进行配置。 **2. 项目配置文件(Project Profiles)** 项目配置文件定义了项目的...

Global site tag (gtag.js) - Google Analytics