`
ceasarje
  • 浏览: 79672 次
  • 性别: Icon_minigender_1
  • 来自: 北京
社区版块
存档分类
最新评论

FII011 memory

F# 
阅读更多
//Sort the incoming items for each depend on the corresponding Check Number
for l_nCounter% = 1 to g_DetailCounter%
    for l_mCounter% = 1 to g_DetailCounter% - l_nCounter%
        if d_CheckNumber$[l_mCounter%] &> d_CheckNumber$[l_mCounter%+1]
            l_TempCheckNumber$ = d_CheckNumber$[l_mCounter%];
            l_TempVendorId$ = d_VendorId$[l_mCounter%];
            l_TempInvoiceDate$ = d_InvoiceDate$[l_mCounter%];
            l_TempInvoiceNumber$ = d_InvoiceNumber$[l_mCounter%];
            l_TempInvoiceAmount% = d_InvoiceAmount%[l_mCounter%];
            d_CheckNumber$[l_mCounter%] = d_CheckNumber$[l_mCounter%+1];
            d_VendorId$[l_mCounter%] = d_VendorId$[l_mCounter%+1];
            d_InvoiceDate$[l_mCounter%] = d_InvoiceDate$[l_mCounter%+1];
            d_InvoiceNumber$[l_mCounter%] = d_InvoiceNumber$[l_mCounter%+1];
            d_InvoiceAmount%[l_mCounter%] = d_InvoiceAmount%[l_mCounter%+1];
            d_CheckNumber$[l_mCounter%+1] = l_TempCheckNumber$;
            d_VendorId$[l_mCounter%+1] = l_TempVendorId$;
            d_InvoiceDate$[l_mCounter%+1] = l_TempInvoiceDate$;
            d_InvoiceNumber$[l_mCounter%+1] = l_TempInvoiceNumber$;
            d_InvoiceAmount%[l_mCounter%+1] = l_TempInvoiceAmount%;
        endif
    next
next


local l_LB2Counter%;
local l_PU1Counter%;
local l_iCounter%;
local l_Temp$;
local l_First$;
l_LB2Counter% = 1;
l_PU1Counter% = 1;
copy g_TotalInvoiceAmount$ to EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB1:AMTTOTAL;

//Initiate the previous check number
l_Temp$ = "";
//define the flag for first item
l_First$ = "T";

//Initiate the sum invoice amount with the first one
d_SumInvoiceAmount% = d_InvoiceAmount%[1];

traceln("g_DetailCounter% asssgin to for loop is : " & g_DetailCounter%);

traceln("-------------------Start the mapping of segment EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2----------------------");
for l_iCounter% = 1 to g_DetailCounter%
    //if it's the first detail depend on the checkNumber
    if l_First$ &!= "T"
        //if the current CheckNumber is equal with the previous one
        if l_Temp$ &= d_CheckNumber$[l_iCounter%]    
            l_PU1Counter% = l_PU1Counter% + 1;
            d_SumInvoiceAmount% = d_SumInvoiceAmount% + d_InvoiceAmount%[l_iCounter%];
        //if the current CheckNumber is not equal with the previous one
        else
            l_LB2Counter% = l_LB2Counter% + 1;
            l_PU1Counter% = 1;
            overwrite d_SumInvoiceAmount% to EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2[l_LB2Counter%-1]:AMTTOTAL;
            overwrite d_SumInvoiceAmount% to EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2[l_LB2Counter%-1].E1IDQU5:MOABETR;
            d_SumInvoiceAmount% = d_InvoiceAmount%[l_iCounter%];
        endif
    endif
l_First$ = "F";
l_Temp$ = d_CheckNumber$[l_iCounter%];

    overwrite "001" to EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2[l_LB2Counter%]:BATBATNO;
    overwrite d_SumInvoiceAmount% to EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2[l_LB2Counter%]:AMTTOTAL;
    overwrite "000001" to EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2[l_LB2Counter%]:SEQNUMBER;
    overwrite "AG" to EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2[l_LB2Counter%].E1EDPA1:PARVW;
    overwrite d_VendorId$[l_iCounter%] to EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2[l_LB2Counter%].E1EDPA1:LIFNR;
    overwrite "026" to EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2[l_LB2Counter%].E1EDQ02:QUALF;
    overwrite d_CheckNumber$[l_iCounter%] to EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2[l_LB2Counter%].E1EDQ02:BELNR;
  
    if g_CheckDate$ <> ""
        overwrite g_CheckDate$ to  EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2[l_LB2Counter%].E1EDQ02:DATUM;
    //if CHECK-DATE is blank
    else
        overwrite currentDate()to  EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2[l_LB2Counter%].E1EDQ02:DATUM;
    endif

    overwrite "017" to EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2[l_LB2Counter%].E1EDQ03:IDDAT;

    if g_CheckDate$ <> ""
        overwrite g_CheckDate$ to  EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2[l_LB2Counter%].E1EDQ03:DATUM;
        //if CHECK-DATE is blank
    else
        overwrite currentDate()to  EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2[l_LB2Counter%].E1EDQ03:DATUM;
    endif
    overwrite "012" to EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2[l_LB2Counter%].E1IDQU5:MOAQUAL;
    overwrite d_SumInvoiceAmount% to EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2[l_LB2Counter%].E1IDQU5:MOABETR;
   
traceln("----------Start mapping of Segment:EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2.E1IDPU1-----------");
     
    if d_InvoiceAmount%[l_iCounter%] > 0
        copy "INV" to  EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2[l_LB2Counter%].E1IDPU1[l_PU1Counter%]:DOCNAME;
    //if :INVOICE-AMOUNT is less than or equal to 0
    else
        copy "CRM" to  EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2[l_LB2Counter%].E1IDPU1[l_PU1Counter%]:DOCNAME;
    endif
    copy d_InvoiceNumber$[l_iCounter%] to EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2[l_LB2Counter%].E1IDPU1[l_PU1Counter%]:DOCNUMMR;
    copy currentDate() to EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2[l_LB2Counter%].E1IDPU1[l_PU1Counter%]:DOCDATUM;
    copy "006" to EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2[l_LB2Counter%].E1IDPU1[l_PU1Counter%].E1IDRU5:MOAQUAL;
    copy d_InvoiceAmount%[l_iCounter%] to EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2[l_LB2Counter%].E1IDPU1[l_PU1Counter%].E1IDRU5:MOABETR;
       
    copy "017" to EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2[l_LB2Counter%].E1IDPU1[l_PU1Counter%].E1EDR03:IDDAT;
    copy formatDate(d_InvoiceDate$[l_iCounter%],"MMddyy","yyyyMMdd") to EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2[l_LB2Counter%].E1IDPU1[l_PU1Counter%].E1EDR03:DATUM;
    copy currentTime() to EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2[l_LB2Counter%].E1IDPU1[l_PU1Counter%].E1EDR03:UZEIT;
   
    copy "010" to EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2[l_LB2Counter%].E1IDPU1[l_PU1Counter%].E1EDR02:QUALF;
    copy d_InvoiceNumber$[l_iCounter%] to EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2[l_LB2Counter%].E1IDPU1[l_PU1Counter%].E1EDR02:BELNR;

traceln("----------End mapping of Segment:EDI_DC40.E1IDKU1.E1IDPF1.E1IDLB2.E1IDPU1-----------");
next
分享到:
评论

相关推荐

    Laravel开发-fii

    在本篇中,我们将深入探讨Laravel框架在开发FII网站爬虫时的应用。Laravel是一款基于PHP的优雅、简洁的Web开发框架,它为开发者提供了丰富的工具和库,简化了复杂的Web应用构建过程。FII(Financial Information ...

    LR-1FII_v0.5.30.ldrup

    LR-1FII_v0.5.30.ldrup

    工业富联(Fii)投资价值白皮书.pdf

    工业富联(Fii)是全球领先的智能制造与科技服务提供商,其投资价值主要体现在以下几个方面: 1. 技术创新:工业富联的核心竞争力在于其持续的技术研发与创新能力。公司致力于推动工业互联网、人工智能、大数据分析...

    fii-ipmi-oem:Fii ipmi oem命令

    Fii IPMI OEM命令(0x34)将会有各种各样的sys特定命令。系统命令(0x h) PCIe分叉命令0x03 PCIe bifurcation命令检查每个插槽中附带的pcei适配器的类型。要求字节价值数据0x00 0x03子指令回复字节价值数据0x00 0x...

    Python_Project_FII:Forbes顶级存储库(B复杂度)-Python Project,FII

    Python_Project_FII 顶级福布斯知识库(B复杂度)-Python项目,FII教师项目: 可以轻松地对爬虫进行维护,并在200个月的时间内对信息进行更详细的了解。 可以轻松地设置日期和时间的交互作用。 O functie Care sa ...

    NIFTY-Movement-Prediction:NIFTY运动预测(NOT TIME SERIES FORCATIONG),基于交易量,外汇运动,GSec运动,换油运动,FII和DII运动

    NIFTY运动预测(NOT TIME SERIES FORCATIONG),基于交易量,外汇运动,GSec运动,换油运动,FII和DII运动。 资料来源: 客观的 根据变量的变化量预测当日的NIFTY变化,例如NIFTY数量,FII和DII流量,原油,外汇...

    FII-Lorem-UI:使用 Material Design 的示例 Android 应用程序

    **FII-Lorem-UI: Material Design 在 Android 开发中的应用** Material Design 是 Google 推出的一种设计语言,旨在提供一套统一的视觉和交互规范,让应用在不同平台和设备上都能保持一致的用户体验。在 Android ...

    status-fiis:该脚本可获取有关FII的一些数据(Funds de InvestimentoImobiliário)并生成一些指标

    "status-fiis" 是一个脚本项目,其主要功能是获取与“FII”(Funds de Investimento Imobiliário,房地产投资基金)相关的数据,并且能够生成一系列的指标进行分析。这表明该脚本适用于对巴西房地产市场感兴趣的...

    UAIC_FII_ARMS:在社交媒体分析课程中完成的项目

    UAIC_FII_ARMS:在社交媒体分析课程中完成的项目

    C0FII

    【C0FII】是一个与Java编程相关的项目,其名称可能是特定术语或项目的缩写,但没有明确的描述,我们无法直接确定它的具体含义。不过,由于它与Java相关,我们可以探讨一下Java语言的一些核心概念和重要知识点。 ...

    D_E31192134_Fii-Ahsan-Qauly_WebFramework:Tugas Pemrograman Web框架

    标题 "D_E31192134_Fii-Ahsan-Qauly_WebFramework:Tugas Pemrograman Web框架" 暗示我们正在讨论一个关于Web框架的编程任务,可能是某个课程或项目的一部分。这个框架可能用于构建动态、交互式的Web应用程序。在Web...

    第五章跨国公司对外直接投资(PPT44页).ppt

    与之相对的对外间接投资(FII),如购买外国证券,其目的通常是财务收益,且投资过程中的资产所有权会随着交易变动。 FDI和FII之间的区别主要体现在以下几个方面: 1. 投资目的:FDI寻求对企业运营的控制,而FII...

    如何用FPGA开发板烧录程序 fpga开发.pdf

    如何用FPGA开发板烧录程序 fpga开发.pdf

    身份

    身份FIII ,FIIs,FII,Dando assim seu nome Feed + FII = FIId。 Édifícilacompanhar os comunicados,que nem semper saem em dias programados,ou emhorário商业。 禁止自动补充电报或补充电费的行为。 Bot ...

    Functional_Intactness_Index:功能完整指数代码库

    **功能性完整性指数(Functional Integrity Index, FII)代码库** 在软件工程领域,功能性完整性指数是一种衡量软件系统功能完整性和可靠性的指标。这个代码库提供了一套工具和方法,用于评估软件系统的功能是否...

    外国机构投资者在印度的作用:一项调查-研究论文

    1990年代初期改革进程的启动... 在此期间,印度和世界市场在外部和金融市场上都经历了繁荣时期和危机时期,本文试图评估 FII 在印度市场中的作用,并试图找出哪个国家因份额增加而可能面临的挑战印度金融市场中的 FII。

    小鸟飞飞源代码

    《小鸟飞飞源代码》是基于Java编程语言开发的一款游戏,名为“蠢鸟飞飞”。在软件测试领域,源代码的公开为开发者和测试人员提供了一个极好的学习和实践平台,以便于理解游戏机制,查找并修复可能存在的BUG,从而...

    财务管理第1章国际投资概论.pptx

    FII则主要包括被动持有证券和其他金融资产,不涉及对发行方的主动管理和控制,回报主要来自利息支付或非投票股息。 国际投资起源于19世纪70年代末的工业革命时期,最初主要以私人投资为主,集中在少数发达国家,...

    财务管理9第九章资本流动与国际贸易.pptx

    国际直接投资(FDI)与间接投资(FII)的主要区别在于控制权和经营权。FDI通常涉及对企业的实质性控制,而FII则更多关注资本市场的收益。FDI的收益与企业经营绩效挂钩,而FII的收益相对固定。全球FDI的流量在上世纪...

Global site tag (gtag.js) - Google Analytics