zoukankan      html  css  js  c++  java
  • 金蝶核算项目余额表卡号余额与天财商龙CRM卡号余额对比

    金蝶核算项目余额表卡号余额与天财尚龙CRM卡号余额对比

    由于历史遗留问题,财务一直不调账,修改核算科目卡号与天财商龙CRM系统一直,只能用VBA把卡号前缀修改成两边一致。

    再通过,Power BI Desktop进行比对,这个貌似比EXCEL的vlookup好用多了。

    由于后期本人不再使用,SO不再进行升级优化,编写成全自动。

    利用该方法,有效提高了对比速度,由原来的10多天人工对比,到现在的五六分钟,大大提高了工作效率。

    虽然可以优化成一分钟之内实时更新对比数据,输出余额不一致卡号。但是本人不再进行使用,已经教会给同事,由同事使用,五分钟之内还是可以接受的。就不再花费时间和精力进行优化。

    Attribute VB_Name = "模块1"
    '金蝶卡号判断
    Function pd(p As String) As String
    
    If p Like "*1997*" Then
    pd = Right(p, 16)
    ElseIf ((Left((Right(p, 9)), 1)) Like "]") Then
    pd = Right(p, 8)
    Else
    pd = Right(p, 6)
    pd = "1997000000" + pd
    End If
    End Function
    
    '天财卡号判断
    Function tcpd(p As String) As String
    
    If p Like "19971200*" Then
    tcpd = "1997000000" + Right(p, 6)
    ElseIf p Like "1997019900*" Then
    tcpd = "1997000000" + Right(p, 6)
    ElseIf p Like "199716*" Then
    tcpd = "1997000000" + Right(p, 6)
    Else
    tcpd = p
    End If
    
    End Function



  • 相关阅读:
    思念
    Matlab与C++混合编程,添加OpenCV库
    重新启用此博客
    将博客搬至CSDN
    unity探索者之ILRuntime代码热更新
    unity探索者之UGUI圆形图片组件
    unity探索者之UGUI图片描边
    unity探索者之iOS微信登录、分享
    unity探索者之复制内容到剪贴板
    unity探索者之获取设备当前电量
  • 原文地址:https://www.cnblogs.com/landv/p/9030697.html
Copyright © 2011-2022 走看看