Problem about extended IDOC(urgent)

Question

Hi experts,
i have idoctype,extended idoc,and one include.. i need modify that according to the requirement.. here i will give the idoctype and extended idoc type and include program .. please help me where exactly i need to do the change and what are the steps required for the requirement..
Exact Requirement: Modify the program which populates the idoctype invoice02 and extension zinvoice02 , if netvalue is zero(vbrp-netwr = 0) then populate the idoc segment E1EDP01.E1EDP26 , BETRG WITH QUALF = # 011' WITH ZERO VALUE. curently segment is not populated.
Please help me in this and explain the steps required for this.
idoctype:invoice02
extended idoc:zinvoice02
include:ZXEDFU02
                               Here i am giving the include program
CASE dobject-kschl.
  WHEN 'ZGRI' OR 'ZGDF' OR 'ZGRN' OR 'ZGAE'.
    t_int_edidd[] = int_edidd[].
    t_xtvbdpr[] = xtvbdpr[].
    ta_xvbdkr = xvbdkr.
    CASE int_edidd-segnam.
      WHEN 'E1EDK01'.
        ta_e1edk01 = int_edidd-sdata.
        PERFORM get_shipment_data.
        PERFORM get_route_data.
        int_edidd[] = t_int_edidd[].
      WHEN 'E1EDP01'.
Update segment E1EDP01
1. Update field E1EDP01-PSTYP
2. Accumulated net weight & quantity of batch split items against
E1EDP01 segment of the main invoice item.
        ta_e1edp01 = int_edidd-sdata.
        i_tabix = sy-tabix.
        CLEAR: ta_e1edp02.                                  "DIAG01+
        PERFORM update_segment_e1edp01.
        MOVE ta_e1edp01 TO t_int_edidd-sdata.
        MODIFY t_int_edidd INDEX i_tabix TRANSPORTING sdata.
Populate segment Z1EDP08
Fields: ZZDESPACTY_A, ZZACTYUOM
        PERFORM validate_segment USING control_record_out-idoctp
                                  control_record_out-cimtyp
                                  'Z1EDP08'
                            CHANGING n_subrc.
        CHECK n_subrc EQ 0.
        PERFORM calc_invoice_item_zzdespacty_a.             "DIAG02+
        int_edidd[] = t_int_edidd[].                        "DIAG02+
      WHEN 'E1EDP02'.                                       "DIAG01+
        IF int_edidd-sdata(3) = '016'.                      "DIAG01+
          ta_e1edp02 = int_edidd-sdata.                     "DIAG01+
        ENDIF.                                              "DIAG01+
      WHEN 'E1EDP19'.
Populate segment Z1EDL24
Fields: Material Characteristics or Material Class '001'.
        PERFORM validate_segment USING control_record_out-idoctp
                                 control_record_out-cimtyp
                                 'Z1EDL24'
                                 CHANGING n_subrc.
        IF n_subrc EQ 0.
          ta_e1edp19 = int_edidd-sdata.
          CASE ta_e1edp19-qualf.
            WHEN '002'.
              PERFORM get_mat_characteristic USING ta_e1edp19-idtnr.
              PERFORM fill_segment_z1edl24.
              int_edidd[] = t_int_edidd[].
            WHEN OTHERS.
          ENDCASE.
        ENDIF.
      WHEN 'E1EDP26'.
Populate segment E1EDP26
Fields: BETRG
        i_tabix = sy-tabix.
        ta_e1edp26 = int_edidd-sdata.
       IF ta_e1edp26-qualf = '001'. "Gross Price which is always present
          PERFORM fill_segment_e1edp26.
          int_edidd[] = t_int_edidd[].
        ENDIF.
      WHEN 'E1EDP08'.
Populate Segment Z1EDL37                                             *
Fields: Bespoke fields from Handling Unit (VEKP)
        PERFORM validate_segment USING control_record_out-idoctp
                                  control_record_out-cimtyp
                                  'Z1EDL37'
                            CHANGING n_subrc.
        CHECK n_subrc EQ 0.
        ta_e1edp08 = int_edidd-sdata.
        PERFORM fill_segment_z1edl37.
Populate Segment Z1EDP08                                             *
Fields: Total Despatch Activity                                      *
       PERFORM validate_segment USING control_record_out-idoctp
                                 control_record_out-cimtyp
                                 'Z1EDP08'
                           CHANGING n_subrc.
       CHECK n_subrc EQ 0.
       PERFORM calc_invoice_item_acty_total.
        int_edidd[] = t_int_edidd[].
      WHEN OTHERS.
    ENDCASE.
  WHEN 'ZGDW'.
Line above added line below removed - Assyst 73789
WHEN 'ZGIN'.
    t_int_edidd[] = int_edidd[].
    t_xtvbdpr[] = xtvbdpr[].
    ta_xvbdkr = xvbdkr.
    CASE int_edidd-segnam.
Start SU02
      WHEN 'E1EDK01'.
        ta_e1edk01 = int_edidd-sdata.
        i_tabix = sy-tabix.
Get the conversion factor
        PERFORM modify_exchange_rate.
        MOVE ta_e1edk01 TO t_int_edidd-sdata.
        MODIFY t_int_edidd INDEX i_tabix TRANSPORTING sdata.
        int_edidd[] = t_int_edidd[].
End SU02
*************************************************************SAM01 START
      WHEN 'E1EDP02'.
Populate segment Z1EDP02
Fields: Reason code for sales order
        ta_e1edp02 = int_edidd-sdata.
        CASE ta_e1edp02-qualf.
          WHEN '002'.
            PERFORM fill_segment_z1edp02.
            PERFORM append_int_edidd TABLES t_int_edidd
                                     USING  'Z1EDP02'
                                            ta_z1edp02.
            int_edidd[] = t_int_edidd[].
          WHEN OTHERS.
        ENDCASE.
***************************************************************SAM01 END
    ENDCASE.
Start of JvdM01
  WHEN 'ZGII'.                                              "JvdM01
    t_int_edidd[] = int_edidd[].
    t_xtvbdpr[] = xtvbdpr[].
    ta_xvbdkr = xvbdkr.
    CASE int_edidd-segnam.
      WHEN 'E1EDK01'.
Populate segment Z1EDKSH and Z1REM_STE_CDE
Fields: Shipment Number for Invoice
        Reason code for sales order
        ta_e1edk01 = int_edidd-sdata.
        PERFORM fill_segment_z1edksh_ds.
        PERFORM append_int_edidd TABLES t_int_edidd
                                 USING 'Z1EDKSH'
                                        ta_z1edksh.
        PERFORM fill_segment_z1rem_ste_cde.
        PERFORM append_int_edidd TABLES t_int_edidd
                                 USING  'Z1REM_STE_CDE'
                                        ta_z1rem_ste_cde.
        int_edidd[] = t_int_edidd[].
      WHEN 'E1EDKA1'.
Populate segment Z1EDKA1
Fields: Customer Account Group
        ta_e1edka1 = int_edidd-sdata.
        CASE ta_e1edka1-parvw.
          WHEN 'RE'.   "Bill To Party
            PERFORM fill_segment_z1edka1.
            PERFORM append_int_edidd TABLES t_int_edidd
                                     USING 'Z1EDKA1'
                                            ta_Z1EDKA1.
            int_edidd[] = t_int_edidd[].
        ENDCASE.
      WHEN 'E1EDP01'.
Read segment E1EDP01 for use later                  "JVDM02
        ta_e1edp01 = int_edidd-sdata.
      WHEN 'E1EDP02'.
Populate segment Z1EDP02
Fields: Reason code for sales order
        ta_e1edp02 = int_edidd-sdata.
        CASE ta_e1edp02-qualf.
          WHEN '002'.
            PERFORM fill_segment_z1edp02.
            PERFORM append_int_edidd TABLES t_int_edidd
                                     USING  'Z1EDP02'
                                            ta_z1edp02.
            int_edidd[] = t_int_edidd[].
          WHEN OTHERS.
        ENDCASE.
      WHEN 'E1EDP19'.
Populate segment Z1EDL24 and Z1EDP01                  "JVDM02
Fields: Pack Size Activity for Material
        Total Activity for Invoice Item
        ta_e1edp19 = int_edidd-sdata.
        CASE ta_e1edp19-qualf.
          WHEN '002'.
            PERFORM fill_segm_z1edl24_and_z1edp01.
            PERFORM append_int_edidd TABLES t_int_edidd
                                     USING  'Z1EDL24'
                                            ta_z1edl24.
            PERFORM append_int_edidd TABLES t_int_edidd
                                     USING  'Z1EDP01'
                                            ta_z1edp01.
            int_edidd[] = t_int_edidd[].
          WHEN OTHERS.
        ENDCASE.
    ENDCASE.
End JvdM01
ENDCASE.
Start SU02 Code Comment for implementing IR 340
**mpc01 - start of insert
start assyst 73789
*IF dobject-kschl = 'ZGDW'."amersham invoices
**IF dobject-kschl = 'ZGIN'."amersham invoices
end assyst 73789
CASE int_edidd-segnam.
  for the organisation data header
   WHEN 'E1EDK14'.
     MOVE int_edidd-sdata TO ta_e2edk14.
    where is qualifying organisation = 003 (delivering company code).
     IF ta_e2edk14-qualf = '003' AND ta_e2edk14-orgid NE space.
       SELECT SINGLE waers
         INTO t001-waers
         FROM t001
        WHERE bukrs = ta_e2edk14-orgid.
       IF sy-subrc = 0.
         t_int_edidd[] = int_edidd[].
        get the billing date for the invoice
         LOOP AT t_int_edidd WHERE segnam = 'E1EDK02'.
           MOVE t_int_edidd-sdata TO ta_e1edk02.
           IF ta_e1edk02-qualf = '009'."billing date
             w_fkdat = ta_e1edk02-datum.
             EXIT.
           ENDIF.
         ENDLOOP.
        if no invoice date use current date
         IF w_fkdat IS INITIAL.
           w_fkdat = sy-datum.
         ENDIF.
        change the general document header
         LOOP AT t_int_edidd WHERE segnam = 'E1EDK01'.
           i_tabix = sy-tabix.
           MOVE t_int_edidd-sdata TO ta_e1edk01.
          set the field to the default currency code for the company
           ta_e1edk01-hwaer = t001-waers.
          if the default value equals the idoc currency then exit
           IF t001-waers = ta_e1edk01-curcy.
             EXIT.
           ENDIF.
          get the exchange rates
           SELECT *
             INTO TABLE t_tcurr
             FROM tcurr
            WHERE kurst = 'NYB1'                 " SU01
             WHERE KURST = 'GEBU'                 " SU01
              AND fcurr = ta_e1edk01-curcy
              AND tcurr = t001-waers.
           IF sy-subrc NE 0."no values found
            error the idoc
             MESSAGE e400(vf) WITH c_exchange_rate_error
                     RAISING error_message_received.
             EXIT.
           ENDIF.
           LOOP AT t_tcurr.
            convert to date from inverted date to normal date format.
             CALL FUNCTION 'CONVERSION_EXIT_INVDT_OUTPUT'
                  EXPORTING
                       input  = t_tcurr-gdatu
                  IMPORTING
                       output = w_datum.
             CONCATENATE w_datum+6(4)
                         w_datum+3(2)
                         w_datum(2)
                    INTO t_tcurr-datum.
             MODIFY t_tcurr.
           ENDLOOP.
          sort the exchange rates with the newest first.
           SORT t_tcurr BY datum DESCENDING.
          read the first value in the table ie the newest.
           LOOP AT t_tcurr WHERE datum <= w_fkdat.
             EXIT.
           ENDLOOP.
           IF sy-subrc NE 0."no values found
            error the idoc
             MESSAGE e400(vf) WITH c_exchange_rate_error
                     RAISING error_message_received.
             EXIT.
           ENDIF.
Start SU01
Get the Exchange rate from the function module and populate
E1EDK01 TABLE
           w_fcurr = ta_e1edk01-curcy.
           call function 'CONVERT_TO_LOCAL_CURRENCY'
                exporting
                     date             = w_fkdat
                     foreign_amount   = '0'
                     foreign_currency = w_fcurr
                     local_currency   = t001-waers
                     type_of_rate     = 'GEBU'
                importing
                     exchange_rate    = t_tcurr-ukurs
                exceptions
                     no_rate_found    = 1
                     overflow         = 2
                     no_factors_found = 3
                     no_spread_found  = 4
                     derived_2_times  = 5
                     others           = 6.
End SU01
           ta_e1edk01-wkurs = t_tcurr-ukurs.
          change the header data in segment
           MOVE ta_e1edk01 TO t_int_edidd-sdata.
          update the current idoc segment
           MODIFY t_int_edidd INDEX i_tabix TRANSPORTING sdata.
           EXIT.
         ENDLOOP.
        update all of the idoc segments
         int_edidd[] = t_int_edidd[].
       ENDIF.
     ENDIF.
ENDCASE.
*ENDIF.
**mpc01 - end of insert
End SU02 Code Comment for implementing IR 340

Answer 1

Hi Venu,
  Try with this code.
  If vbrp-netwr = 0.
<b>  WHEN 'E1EDP26.
  CASE ta_e1edp26-qualf.
ta_e1edp26 = int_edidd-sdata.
WHEN '011'.
PERFORM append_int_edidd TABLES t_int_edidd
USING 'e1edp26'
ta_e1edp26.
int_edidd[] = t_int_edidd[].
ENDCASE.</b>
ENDIF.
Thanks
Manju.