Prenumbered Docs Chile Peru Trx IDCP with EHP6

[former_member213927]

Prior to EHP6 transaction IDCP (program IDPRCNINVOICE) selected all invoices from VBRK regardless of settings in T003_I.

e.g.Lines 1796 - 1835

  SELECT * FROM vbrk WHERE
      vbeln IN lr_vbeln AND
      vbeln IN vbeln    AND
      vkorg =  vkorg    AND
      vtweg IN lr_vtweg AND
      bzirk IN lr_bzirk AND
      kunrg IN kunnr    AND
      ernam IN ernam    AND
      erdat IN erdat    AND
      fktyp IN fktyp    AND
      fkdat IN fkdat    AND
      fkart IN fkart    AND
      xblnr IN xblnr    AND
    ( rfbsk IN (alles,allea,alleb,allec,allee,allef,alleg,allek) ) AND
      fksto <> 'X'.

      CLEAR gt_xm_vmcfa.

*    Check if change allowed
      AUTHORITY-CHECK OBJECT 'V_VBRK_FKA'
        ID 'FKART' FIELD vbrk-fkart
        ID 'ACTVT' FIELD '02'.
      IF sy-subrc EQ 0.
        gt_xm_vmcfa-auth = c_auth_print.
      ELSE.
*      Change not allowed, check if display allowed
        AUTHORITY-CHECK OBJECT 'V_VBRK_FKA'
          ID 'FKART' FIELD vbrk-fkart
          ID 'ACTVT' FIELD '03'.
        IF sy-subrc EQ 0.
          gt_xm_vmcfa-auth = c_auth_display.
        ELSE.
*        Display also not allowed: skip document
          CONTINUE.
        ENDIF.
      ENDIF.

      MOVE-CORRESPONDING vbrk TO gt_xm_vmcfa.
      WRITE vbrk-netwr TO gt_xm_vmcfa-netwr CURRENCY gt_xm_vmcfa-waerk.
      WRITE vbrk-mwsbk TO gt_xm_vmcfa-mwsbk CURRENCY gt_xm_vmcfa-waerk.

However, since EHP6, this program has been changed to include lines 1832 - 1848:

  *********************************************** check for "Z" offnrel field
DATA : lv_blart TYPE blart,
      lv_land1 TYPE land1,
      lv_offnrel type J_1AOFFNREL.

*Fetching the Document type from Billing: Document Types table:TVFK
      SELECT SINGLE blart FROM tvfk INTO lv_blart  WHERE fkart = vbrk-fkart.
*Fetching the Official Document Numbering Control:OFFNREL from T003_I table
      SELECT SINGLE OFFNREL from T003_I INTO lv_offnrel
                                        WHERE BLART = lv_blart
                                        AND  LAND1 = vbrk-land1.

* The IDCP report should execute only in case the OFFNREL = 'P'
      IF lv_offnrel EQ 'P'.
        MOVE-CORRESPONDING vbrk TO gt_xm_vmcfa.
      WRITE vbrk-netwr TO gt_xm_vmcfa-netwr CURRENCY gt_xm_vmcfa-waerk.
      WRITE vbrk-mwsbk TO gt_xm_vmcfa-mwsbk CURRENCY gt_xm_vmcfa-waerk.

So, if after implementing EHP6 prenumbered docs stop working, then you need to maintain table T003_I - even though it may never have been maintained before.

So, in this table, change the values of T003_I - OFFNREL to 'P' instead of 'Z'.

IMG -> Cross Apps -> Gen App Funcs -> Cross App Doc Numb -> Chile/Peru - >Assign Doc Classes to Doc Types

Pic attached.

Hope it helps.

Also, there is no documentation in the EHP6 release notes that this code had changed! Thanks.

[Former Member]

This message was moderated.