010-52863266 

中国审计网欢迎您 , 为您提供专业的审核课程

用工匠精神       圆心中那个梦

新闻动态 真实、正向、传递价值

当前位置:首页 > 新闻动态

最新资讯 News

“逆向思维”求证公交电子车票售票收入的真实性

来源: | 作者: | 发布时间: 2022-04-02 | 1034 次浏览 | 分享到:

      shu:=length(skje1);
      skje1:=leftstr(skje1,shu);
      shu:=length(kh2);
      kh2:=leftstr(kh2,shu);
      shu:=length(ye2);
      ye2:=leftstr(ye2,shu);
      shu:=length(sktime2);
      sktime2:=leftstr(sktime2,shu);
      shu:=length(skje2);
      skje2:=leftstr(skje2,shu);
  end;
  begin
      cx:=CreateQ('SELECT * FROM 过程表_普通卡刷卡次序', -1);
      bz:=Qeof(cx);   
      if bz<>1 then
        begin
            kh1:=QFDValue(cx,'电子车票卡编号');
            ye1:=QFDValue(cx,'电子车票卡余额');
            sktime1:=QFDValue(cx,'刷卡日期');
            skje1:=QFDValue(cx,'本此刷卡消费金额');
            while bz<>1 do
                begin          
                    bz:=Qmov(cx,1);
                    bz:=Qeof(cx);
                    if bz<>1 then
                        begin
                            kh2:=QFDValue(cx,'电子车票卡编号');
                            ye2:=QFDValue(cx,'电子车票卡余额');

联系我们 Contact US

  •   公司地址: 北京市海淀区永定路乙1号 

      电话号码:010-52863266

      传真号码:010-89294300

      E-mail:zhongshenpei@126.com