- 浏览: 79511 次
- 性别:
- 来自: 北京
最新评论
-
liguangge285:
和lz一样的命运,坑爹的ipo
坑爹的A股 -
ceasarje:
说的也是,呵呵,这个一般在开发复杂的企业级系统和大规模集成应用 ...
关于JMS的介绍和总结 -
releasa:
没机会实际用。。
关于JMS的介绍和总结 -
ceasarje:
fansfirst2008 写道楼主过程思维很强!但是很不面向 ...
java二维数组操作实例 -
fansfirst2008:
楼主过程思维很强!但是很不面向对象,从你考别人的问题也可以看出 ...
java二维数组操作实例
//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
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
发表评论
-
Python获取A股上市公司财报数据
2020-11-09 17:45 1890'''import pandas as pd import ... -
VLookup实用case
2020-05-13 13:47 309AllRecords InHandRec ... -
JSON字符串和对象
2020-04-28 10:03 292JSON 语法 每个数据之间由逗号分隔; 数据使用" ... -
java的加减乘除运算
2019-10-10 14:49 415https://www.cnblogs.com/luckyli ... -
Groovy对XML的处理
2019-05-09 15:49 445https://blog.csdn.net/russle/ar ... -
Groovy学习参考
2019-05-09 15:43 383基本使用 https://blog.csdn.net/Al_a ... -
Groovy的循环
2019-05-09 15:03 4601、for-each循环。 (1) 使用冒号形式的for循环, ... -
Groovy对Json的常见处理
2019-05-09 14:36 15401、JsonBuilder构建 示例1, people = ... -
基于HmacSHA256的安全令牌
2017-07-31 10:07 602Mac sha256_HMAC = null; ... -
趣谈HTTPS
2016-09-13 11:28 537HTTPS 是我们常见的 HTTP 协议与某个加密协议的混合体 ... -
realVNC操作SLES 11 SP3
2016-03-10 21:16 5441. 通过ps -p $$可以知道系统内 ... -
REST VS SOAP
2016-01-18 10:17 430REST是一种架构风格, ... -
udf直接抛异常,强制中断映射.
2015-11-30 20:42 1019if("123".equals(var ... -
<转>SSL和Https协议
2014-10-15 23:05 721把这几天学习到的关于s ... -
Resend messages one by one
2014-05-04 12:42 578You can do that way when the ba ... -
<转>公钥,私钥和数字签名
2014-04-30 14:53 737一、公钥加密 假设一 ... -
Java IO写文件读多少写多少
2014-04-22 13:34 603读写文件的时候经常会碰到写的文件和读的文件不一样导致各种各样的 ... -
5 ways to improve you communication skills.
2013-08-27 14:25 852Communication skills are part o ... -
在Eclipse 3.2里安装Jadclipse/Jad插件
2013-05-27 00:36 812几点注意事项: 1.下载好jadclipse_3.2.0.j ... -
XPath实验笔记
2012-11-18 17:49 9291.手动定义一个XML文档时发现一定需要有一个根节点,根节点的 ...
相关推荐
在本篇中,我们将深入探讨Laravel框架在开发FII网站爬虫时的应用。Laravel是一款基于PHP的优雅、简洁的Web开发框架,它为开发者提供了丰富的工具和库,简化了复杂的Web应用构建过程。FII(Financial Information ...
LR-1FII_v0.5.30.ldrup
工业富联(Fii)是全球领先的智能制造与科技服务提供商,其投资价值主要体现在以下几个方面: 1. 技术创新:工业富联的核心竞争力在于其持续的技术研发与创新能力。公司致力于推动工业互联网、人工智能、大数据分析...
Fii IPMI OEM命令(0x34)将会有各种各样的sys特定命令。系统命令(0x h) PCIe分叉命令0x03 PCIe bifurcation命令检查每个插槽中附带的pcei适配器的类型。要求字节价值数据0x00 0x03子指令回复字节价值数据0x00 0x...
Python_Project_FII 顶级福布斯知识库(B复杂度)-Python项目,FII教师项目: 可以轻松地对爬虫进行维护,并在200个月的时间内对信息进行更详细的了解。 可以轻松地设置日期和时间的交互作用。 O functie Care sa ...
NIFTY运动预测(NOT TIME SERIES FORCATIONG),基于交易量,外汇运动,GSec运动,换油运动,FII和DII运动。 资料来源: 客观的 根据变量的变化量预测当日的NIFTY变化,例如NIFTY数量,FII和DII流量,原油,外汇...
**FII-Lorem-UI: Material Design 在 Android 开发中的应用** Material Design 是 Google 推出的一种设计语言,旨在提供一套统一的视觉和交互规范,让应用在不同平台和设备上都能保持一致的用户体验。在 Android ...
"status-fiis" 是一个脚本项目,其主要功能是获取与“FII”(Funds de Investimento Imobiliário,房地产投资基金)相关的数据,并且能够生成一系列的指标进行分析。这表明该脚本适用于对巴西房地产市场感兴趣的...
UAIC_FII_ARMS:在社交媒体分析课程中完成的项目
【C0FII】是一个与Java编程相关的项目,其名称可能是特定术语或项目的缩写,但没有明确的描述,我们无法直接确定它的具体含义。不过,由于它与Java相关,我们可以探讨一下Java语言的一些核心概念和重要知识点。 ...
标题 "D_E31192134_Fii-Ahsan-Qauly_WebFramework:Tugas Pemrograman Web框架" 暗示我们正在讨论一个关于Web框架的编程任务,可能是某个课程或项目的一部分。这个框架可能用于构建动态、交互式的Web应用程序。在Web...
与之相对的对外间接投资(FII),如购买外国证券,其目的通常是财务收益,且投资过程中的资产所有权会随着交易变动。 FDI和FII之间的区别主要体现在以下几个方面: 1. 投资目的:FDI寻求对企业运营的控制,而FII...
如何用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 Integrity Index, FII)代码库** 在软件工程领域,功能性完整性指数是一种衡量软件系统功能完整性和可靠性的指标。这个代码库提供了一套工具和方法,用于评估软件系统的功能是否...
1990年代初期改革进程的启动... 在此期间,印度和世界市场在外部和金融市场上都经历了繁荣时期和危机时期,本文试图评估 FII 在印度市场中的作用,并试图找出哪个国家因份额增加而可能面临的挑战印度金融市场中的 FII。
《小鸟飞飞源代码》是基于Java编程语言开发的一款游戏,名为“蠢鸟飞飞”。在软件测试领域,源代码的公开为开发者和测试人员提供了一个极好的学习和实践平台,以便于理解游戏机制,查找并修复可能存在的BUG,从而...
FII则主要包括被动持有证券和其他金融资产,不涉及对发行方的主动管理和控制,回报主要来自利息支付或非投票股息。 国际投资起源于19世纪70年代末的工业革命时期,最初主要以私人投资为主,集中在少数发达国家,...
国际直接投资(FDI)与间接投资(FII)的主要区别在于控制权和经营权。FDI通常涉及对企业的实质性控制,而FII则更多关注资本市场的收益。FDI的收益与企业经营绩效挂钩,而FII的收益相对固定。全球FDI的流量在上世纪...