原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
技转课程-TOP GP双档作业
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * AFTER FIELD pmw01 CALL s_check_no(apm,l_newno,,6,pmw_file,pmw01,) RETURNING li_result, l_newno DISPLAY l_newno TO pmw01 IF (NOT li_result) THEN LET g_pmw.pmw01 = g_pmw_o.pmw01 NEXT FIELD pmw01 END IF DISPLAY g_smy.smydesc TO smydesc AFTER FIELD pmw06 IF cl_null(l_newdate) THEN NEXT FIELD pmw06 END IF BEGIN WORK CALL s_auto_assign_no(apm,l_newno,l_newdate,,pmw_file,pmw01,, RETURNING li_result,l_newno IF (NOT li_result) THEN NEXT FIELD pmw01 END IF DISPLAY l_newno TO pmw01 _copy (2) DROP TABLE y SELECT * FROM pmw_file#单头复制 WHERE pmw01=g_pmw.pmw01 INTO TEMP y UPDATE y SET pmw01=l_newno,#新的键值 pmw06=l_newdate,#新的键值 pmwuser=g_user,#数据所有者 pmwgrup=g_grup,#数据所有者所属群 pmwmodu=NULL,#数据修改日期 pmwdate=g_today,#数据建立日期 pmwacti=Y#有效数据 INSERT INTO pmw_file SELECT * FROM y _copy (3) … DROP TABLE x SELECT * FROM pmx_file #单身复制 WHERE pmx01=g_pmw.pmw01 INTO TEMP x IF SQLCA.sqlcode THEN CALL cl_err3(ins,x,,,SQLCA.sqlcode,,,1) RETURN END IF UPDATE x SET pmx01=l_newno INSERT INTO pmx_file SELECT * FROM x IF SQLCA.sqlcode THEN ROLLBACK WORK CALL cl_err3(ins,pmx_file,,,SQLCA.sqlcode,,,1) RETURN ELSE COMMIT WORK END IF _copy (4) LET g_cnt=SQLCA.SQLERRD[3] MESSAGE (,g_cnt USING ##,) ROW of (,l_newno,) O.K LET l_oldno = g_pmw.pmw01 SELECT pmw_file.* INTO g_pmw.* FROM pmw_file WHERE pmw01 = l_newno CALL i252_u() CALL i252_b() SELECT pmw_file.* INTO g_pmw.* FROM pmw_file WHERE pmw01 = l_oldno CALL i252_show() END FUNCTION _copy (5) 有效无效码切换 报表打印 其他功能 练习时间 鼎捷软件 TOP GP 华东事业部 Th
文档评论（0）