FII011 memory

//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