FB01 invoice creation with IDOC INVOIC02 - Profitability Analyses

Question

Hello All
I currently use INVOIC02 Idoc to create invoices (FB01).
FM : IDOC_INPUT_INVOIC_FI
I use the E1EDP30 segment with QUALF = 046 to fill CO-PA Object.
I don't manage to fill imputation fields of this object like sales order number or customer number.
Must I use an exit ? fill other fields of INVOIC02 idoc ? duplicate and arrange IDOC_INPUT_INVOIC_FI function ?
Can you help me ?
Thanks
Message was edited by: Jean-Charles

Answer 1

Hi I've progressed :
I've used exit EXIT_SAPLIEDI_101 :
* Process 1 time only
  CHECK idoc_data_index = 1.
  DATA :
*   Segments IDOC
    s_e1edk02 LIKE e1edk02,
    s_e1edka1 like e1edka1,
    s_e1edk14 LIKE e1edk14,
    s_e1edp01 LIKE e1edp01,
    s_e1edpa1 LIKE e1edpa1,
    s_e1edp30 LIKE e1edp30,
*   Variables
    w_kunwe TYPE kunwe,     " Client livré
    w_kunag type kunnr,     " Donneur d'ordre
    w_bukrs TYPE bukrs,     " Société
    w_ekorg TYPE ekorg,     " Organisation commerciale
    w_posnr TYPE posnr_va,  " Poste Commande
    w_belnr TYPE vbeln_va,  " N° Commande
    i(6)    TYPE n.
* Récupération des informations souhaitées
* Le premier poste à renseigner est le poste 2 car
* le 1er est réservé au créditeur
  i = 1.
  LOOP AT idoc_data.
    CASE idoc_data-segnam.
      WHEN 'E1EDKA1'.
        MOVE idoc_data-sdata TO s_e1edka1.
*       Récupération Donneur d'ordre
        IF s_e1edka1-parvw = 'AG'.
          w_kunag = s_e1edka1-partn.
        ENDIF.
      WHEN 'E1EDK02'.
        MOVE idoc_data-sdata TO s_e1edk02.
*       Récupération N° Commande
        IF s_e1edk02-qualf = '002'.
          w_belnr = s_e1edk02-belnr.
        ENDIF.
      WHEN 'E1EDK14'.
        MOVE idoc_data-sdata TO s_e1edk14.
*       Récupération N° Société
        IF s_e1edk14-qualf = '003'.
          w_bukrs = s_e1edk14-orgid.
        ENDIF.
*       Récupération N° Org Commerciale
        IF s_e1edk14-qualf = '008'.
          w_ekorg = s_e1edk14-orgid.
        ENDIF.
      WHEN 'E1EDP01'.
        i = i + 1.
        MOVE idoc_data-sdata TO s_e1edp01.
*       Récupération poste de commande
        w_posnr = s_e1edp01-posex.
      WHEN 'E1EDPA1'.
        MOVE idoc_data-sdata TO s_e1edpa1.
*       Récupération Client livré
        IF s_e1edpa1-parvw = 'WE'.
          w_kunwe = s_e1edpa1-partn.
        ENDIF.
      WHEN 'E1EDP30'.
        MOVE idoc_data-sdata TO s_e1edp30.
*       Remplissage uniquement pour imputation CO-PA
        IF s_e1edp30-qualf = '046'.
          CLEAR document_data.
          document_data-stype = 'P'.
          document_data-count = i.
          document_data-fnam = 'COBL-PAOBJNR'.
          document_data-fval = s_e1edp30-ivkon.
          APPEND document_data.
          document_data-fnam = 'BSEG-RKE_BUKRS'.
          document_data-fval = w_bukrs.
          APPEND document_data.
          document_data-fnam = 'BSEG-RKE_VKORG'.
          document_data-fval = w_ekorg.
          APPEND document_data.
          document_data-fnam = 'BSEG-RKE_KNDNR'.
          document_data-fval = w_kunag.
          APPEND document_data.
          document_data-fnam = 'BSEG-RKE_KUNWE'.
          document_data-fval = w_kunwe.
          APPEND document_data.
          document_data-fnam = 'BSEG-RKE_KAUFN'.
          document_data-fval = w_belnr.
          APPEND document_data.
          document_data-fnam = 'BSEG-RKE_KDPOS'.
          document_data-fval = w_posnr.
          APPEND document_data.
        ENDIF.
      WHEN OTHERS.
    ENDCASE.
  ENDLOOP.
In WE19 when I process my IDOC :
- in background mode : IDOC has status 51 'Field COBL-PAOBJNR doesn't exist in dynpro SAPLKACB 0002'
- at screen : status 53 => OK
Have you an idee of my problem ?