Reading of particular lines from appl. server

Question

hi all,
i have different types of record types in the application server
i need to read the line like
i have one header in that i have two line items and the cycle goes on for n number of headers to post with the transaction fb60
so i need to read the record type of the line and by using that i should post the details into fb60 transaction.
the condition is like this
•     Read the data file into an internal table.
•      Loop the internal table.
•     For each ‘A’ Record
o     The company code values entered on the selection screen will be validated with the values in the Flat file. Data for Company codes other than the values on selection screen will not be processed
Condition: if company code not found fill response file    data and exit
o     Fill Company code, Vendor number into document header segment from internal table.
Condition: if company code not found fill response file    data and exit
o     Fill variables of invoice number, CR flag, currency code, invoice amount from internal table.
Condition : if length of invoice number is less than 16 then move invoice number to reference document number else move invoice number to header text.
o     Select belnr from table BKPF into an internal table with  company code, fiscal year and invoice number.
o     Check for CR flag. If CR flag is initial then header document type is of type KR (Vendor invoice) else header document type is of type KG (Credit memo).
o     Fill vendor line items( itemno_acc, vendor_no ) of i_accountpayable from internal table.
o     Fill the currency line( item no, currency) of bapiaccr01  for vendor line item.
o     Format total amount with two decimal places.
Condition: if CR flag equals CR then document is    Credit memo and amount in document currency is positive  else document is vendor invoice amount in document currency is negative.
     Whenever new Header record (‘A’ record) is encountered calculate taxes using following steps.
     Calculate tax for all line items except vendor line item using function module   ‘CALCULATE_TAX_FROM_NET_AMOUNT’
             Exporting                Company code
                                      Tax code
                              Tax jurisdiction
                             Currency key
                                      Amount
             Importing                 Tax calculated (total) 
                    Tables              Tax values and percentage rates
Condition: if tax calculated is zero then fill field Amount in Line Item Currency Fields table of BAPI with line item amount. If tax calculated is not zero then check the table (tax values and percentages). For each line in the table, If the G/L account field is initial then add the tax amount to the line item Amount in Line Item Currency Fields table of BAPI. Else add a new line to the Tax Line Items table with the tax amount and Line item amount to Amount field in Line Item Currency Fields table of BAPI. If the tax code contains similar type of tax, modify (itemno_acc, currency, doccur, amt_base) of Line item currency fields , else do an append.
     Check for tolerance limit
                                                      Add the Line item amounts and tax line item amounts into a variable and compare with the header amount.
                    Condition: The difference between Header amount and (sum of Tax line item amounts & line item amounts) should be between +5 or -5 of document currency in order to be processed for tolerance limit factor. If the difference is within tolerance and If difference is negative, subtract the Difference amount from maximum tax line item. If difference is positive, add the difference amount from maximum tax line item.
•     For each ‘D’ Record
o     Fill  the fields ( itemno_acc, gl_account, pstng_date, costcenter) of  G/L Account Line Items table .
o     Select tax jurisdiction code from table CSKS where ( cost center) equals G/L Account Line Items-costcenter
Condition: if no tax jurisdiction code found then fill the response fill with message ‘Tax jurisdiction code could not be determined’ else fill tax jurisdiction code of G/L Account Line Items with jurisdiction code.
  Fill (posnr ,bukrs, txjcd, hkont,budat,waers) of i_taxitem_in .
•     For each ‘DX’ Record
o     Read internal table i_taxitem_in  with key posnr = item number.
               Condition: if success  fill tax code from internal table.
               Modify tax line item i_taxitem_in  with tax code.
o     Read internal table i_accountgl with key itemno_acc   = item number.
If success modify GL account line items of i_accountgl with tax code.
•     Check whether the vendor has an alternate vendor either in LFA1 or LFB1 Table.
•     For all entries in i_belnr Select single  lifnr from table BSEG  with company code, fiscal year, account type ( ‘k’), vendor number and document number(belnr).  Company code, vendor number, fiscal year data is available in Document Header. Document number is in table i_belnr.
Condition: if select statement  is success then a duplicate entry found, fill the response  file with message ‘ Duplicate entry found‘.
                          If flag is initial(if no error is found till this stage)
•     Call ‘BAPI_ACC_INVOICE_RECEIPT_POST’
                                   Exporting
                                    documentheader = work area doc header
                                   Importing
                              obj_key   = objkey (invoice number)
                                  Tables
                                              accountpayable     =  i_accountpayable  
                                accountgl               =  i_accountgl
                                      accounttax             =  i_accounttax
      currencyamount     =  i_currencyamount                                 
        return                   =  i_return
•     Check whether the BAPI call is successful or not:
If successful, then do a commit using function module              
                       'BAPI_TRANSACTION_COMMIT'
                  Fill the response file with  vendor number, document number, company code, success message.
     Else
Fill the response file with BAPI return message
4.     Repeat step 3 till all the lines are processed in the flat file.
5.     Once the flat file is processed, the format the response according to the format specified in Appendix B  and then create a file at ‘celestica/interface/am/out/comm' and transfer all the response into that file.
6.     Run the FTP program ZUIGFTPV5_2 with a variant ‘NON_PO_INVOICE’ and return back ( refer 13.1.1 for variant details). This Step transfers the file to the FTP Location and also archives the file at path specified in the variant.
7.     Repeat steps 2-7 till all files are processed.
if you can help me out then pls respond by mentioning the internal tables that i am supposed to use.
thanks and regards,
ibrahim

Answer 1

Hi,
     First you can download the excel file to internal table form by using TEXT_CONVERT_XLS_TO_SAP.Then use the below logic LOOP AT itab INTO watab.
   if watab-col01 = 'H' OR watab-col01 = 'I' .
AT END OF col01.
      IF watab-col01 EQ 'I'.                             "Counter reset for next document
      ENDIF.
    ENDAT.
Endif.
ENDLOOP.
*Reward points
regards