文档章节

AX 防止重复过账方法

White_CJ
 White_CJ
发布于 2017/08/09 14:41
字数 155
阅读 15
收藏 0
// 过账钱检查 是否已过账 及 取消 标记

// _int : 1 表示检查状态 及过账前标记 , 2 表示过账后 取消标记

// 20170802 by chengjun

public boolean WD_checkPostStatus( int _int )

{

boolean ret = false;

THK_ProdInTransitRouteTable _ProdInTransitRouteTable;

WD_OrderPostCheck WD_OrderPostCheck;

UserConnection userCon;

;

_ProdInTransitRouteTable = THK_ProdInTransitRouteTable::find(inTransitRouteTable.IntransitRouteId);



select firstOnly forUpdate WD_OrderPostCheck

WHERE WD_OrderPostCheck._TableId == _ProdInTransitRouteTable.TableId

&& WD_OrderPostCheck._OrderRecid == _ProdInTransitRouteTable.RecId;



userCon = new UserConnection();



userCon.ttsbegin();



WD_OrderPostCheck.setConnection(userCon);



switch (_int)

{

case 1:

if(_ProdInTransitRouteTable.Posted)

ret = checkFailed(strFmt("该单据:%1 已过账",inTransitRouteTable.IntransitRouteId));

else

ret = true;

if(ret)

if(!WD_OrderPostCheck)

{

WD_OrderPostCheck.clear();

WD_OrderPostCheck._TableId = inTransitRouteTable.TableId;

WD_OrderPostCheck._OrderRecid = inTransitRouteTable.RecId;

WD_OrderPostCheck._Status = NoYes::Yes;



WD_OrderPostCheck.insert();

ret = true;

}else

{

ret = checkFailed(strFmt("该单据:%1 在过账中, 使用人:%2 ",inTransitRouteTable.IntransitRouteId,WD_OrderPostCheck.createdBy));

}

break;

case 2:

if (WD_OrderPostCheck)

{

WD_OrderPostCheck.delete();

ret = true;

}

break;

}



userCon.ttscommit();

userCon.finalize();



return ret;

}

 

© 著作权归作者所有

共有 人打赏支持
White_CJ
粉丝 0
博文 12
码字总数 7545
作品 0
珠海
其他
支付宝即时到账接口开发

本文主要讨论PC端的用户付款接口 1,支付宝网页对接原理 用户输入支付宝账号密码及确认支付等操作,都是在支付宝域下进行。 网站将业务信息通过类似于重定向的方式提交到支付宝。 以下截图:...

NO17
2016/03/14
1K
14
如何让金蝶kis记账王进行凭证过账

众所周知,手工记账时代进行凭证过账是一项费时、费力、易出错的工作,导致一临近月底或期末结账,会计人员就十分头疼,但是进入新时期掌握会计电算化操作方法后这一切都变得不一样。本文将以...

石沉大海
2016/11/23
22
0
《汇编语言》总结05 —— 数据处理的两个基本问题

(一)前述 标题所说的两个基本的问题为: 处理的数据在什么地方? 要处理的数据有多长? 这两个问题,在机器指令中必须给以明确或隐含的说明,否则计算机无法工作。 我们定义的描述性符号:...

凡凡不会玩
06/28
0
0
XV6 - bootsect.S

#include "asm.h" #include "memlayout.h" #include "mmu.h" .code16 .globl start start: cli # 关中断, 防止干扰开启A20, 和保证设置GDT的完整性 # 初始化寄存器 xorw %ax,%ax # 将ax清零,......

Pagination
2014/06/12
0
0
各个版本的金蝶kis的区别

每个企业都有不同的需求,找到能够满足需求的版本就是实现了最佳性价比,有的公司要求精准账务,高效资产管理,有的公司只要求能做账出报表,让其去买一个4位数的财务软件就是没实现性价比。 ...

石沉大海
2016/10/09
24
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

windbg学习记录

我开始熟练使用windbg是从帮助手册开始的,也就是.hh命令。 就像学习windows开发从msdn开始一样,微软的产品虽然不开源,但是文档做的是相当的好。然而那些开源的东西呢?开源的竞争力其实就...

simpower
5分钟前
0
0
学习scala的网站汇总

https://www.codacy.com/blog/how-to-learn-scala/

Littlebox
6分钟前
0
0
配置本地的cloud9开发环境

前言 说到(前端)在线IDE开发环境,cloud9是不能绕过的,cloud9支持很多语言,默认支持的就有Node.js,Python,Ruby,PHP,Go,更逆天的是,他还支持数据库,包括MySQL,MongoDB,Redis,S...

Kefy
10分钟前
0
0
springcloud应用程序上下文层次结构

如果您从SpringApplication或SpringApplicationBuilder构建应用程序上下文,则将Bootstrap上下文添加为该上下文的父级。这是一个Spring的功能,即子上下文从其父进程继承属性源和配置文件,因...

itcloud
15分钟前
0
0
新程序员最爱的免费资源

简评:国外美女程序员推荐了她自己用过的一些免费资源,对新手比较友好的那种。 原作者 Ali Spittel,是个美女程序员,以下这些资源都是她自己试过的。以下「我」代表 Ali Spittel。 学 HTML...

极光推送
18分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部