PO Number converted PR is Not updated in SC

Hello friends,
We are using classic scenario and we are creating "Shop with Limit". The follow-on document is Purchase Req. that is updated in the Shopping Cart. However, when the Purchase Req is converted in R/3 as a PO it is not updated in Shopping Cart.
However, if I create Free Text --> PR to PO then the PR and PO both are updated in Shopping Cart. Can someone throw some light on this issue please.
srinij

Hello Srinij,
PO should get updated for limits as well.
Run the BBP_GET_STATUS_2 program for your shopping cart & check if the PO gets updated. See the related documents in BPP_PD for your shopping cart.
Please let us know your system details to help you better.
Hope this helps.
Ashutosh

Similar Messages

Number of plays will not update?

What has changed? With 5.0 the number of plays will not update at all? Very frustrating as this was a way I used to weed songs in and out of my playlists.

Hi Priya,
First thing is u can make such changes or set thr status of UWL using API too
But in such case u need the par ..
The property of UWL ststus can me changed using
Class StatusEnum
static StatusEnum COMPLETED
          This indicates whether or not the task is completed.
static StatusEnum EXECUTED
          This indicates whether or not the task is executed.
static StatusEnum INPROGRESS
          This indicates whether item is in progress.
static StatusEnum NEW
          This indicates whether the task is new.
static StatusEnum READ
          This indicates whether or not the item is read.
U can find the detailed API --<a href="https://help.sap.com/javadocs/NW04S/current/uw/index.html">UWL API</a>
Thanks,
Swathi
<i>Pls offer points if helped in any way</i>

Playlist/Number of plays not updating

I recently had to reinstall Windows and iTunes. Whenever I sync my iPod now, the last played and number of plays does not update. In the scheme of things, pretty minor, but I like to monitor the stats. I'm using Windows 7 and iTunes 11. My iTouch is 3rd generation and also have iPad 2. Also, probably should just get a Mac and maybe not have to reinstall software and operating systems, but that is another story and eventually will take the plunge.

DefaultTableModel model = (DefaultTableModel)myTable.getModel();
model.setNumRows(0);
model.addRow(new Object[] { "value 1", "value 2", "value 3", "value 4" });
model.setColumnIdentifiers(col4Headers);The table model still has three columns when you add the data and DefaultTableModel silently ignores the extra value.
Set the column identifiers first or just create an entirely new model (since you do not seem to want to keep anything from the old).

Mobile App Version not updating in Admin Webgui

Hello,
we are running Filr 1.1.0.653 in a small deployment.
I recently checked the mobile device page in admin webgui and noticed that most of the devices show Filr Android v1.1.0.869 as installed.
Checked the devices an it turns out they have v1.1.0.888 installed.
Is this behaviour normal? If yes, then it would be really nice if the version in the webgui gets updated too, once the client app got updated.
Regards
Mario

To add more supporting evidence that the number of ratings were not updating
(1) The ratings for All Versions was also staying at 69 reviews / not increasing, which means it's not just "not enough ratings for current version". There were enough ratings.
(2) Finally today, the rating numbers are updated. It turns out the number of the current version is "72 ratings" and the number for all versions is "188 ratings" (including original 69).
So the ratings were definitely not updated for these days. I am wondering if the number of downloads were not updated internally either? I had wasted a lot of money in promotion during these days while the app should have been in top 50 but it's not even in the top chart.

Purchase Order history is not updated with Invoice number

Hello Experts ,
Please suggest some inputs/solution for my problem.
Scenarios is :
PO --> SO --> Invoice
I am creating the invoice with the medium EDI , when I click on Save button IDOC is generated with the message " IDoc 'xxxxxxxxxxxxx' was created and forwarded for transmission " and it showing the status as 03 i.e, The IDoc was sent to an R/3 System or an external program via a transactional RFC ...but the problem is if I got to the Purchase Order history Its not updated with the Invoice number.
What could be the problem , please suggest.

Hi!
I'm not sure, in which process you link PO and SO. There are some different ways, which are totally different scenarios - if you need help here, describe more detailed.
Your invoice is probably only created with reference to SO, so check the invoice itself. In this case also the SO history should include the invoice.
Regards,
Christian

Data is not updating in calss & Convert vi reference to strictly type reference vi

Hi,
In the attached project file there is a Class called 'ClassSample.lvclass' having 3 different data types Boolean, Numeric and Variant(not really sure, Variant can be use for strict data type reference). From this three we careated the 'VIs for data member access' you can see them in project file
My questions are,(Please refer attached screenshot)
1. Though member of same class, why value is not updating at probe 16 ?
2. How to convert vi reference to strictly type reference vi ?
Thank you.
Attachments:
Capture.JPG ‏426 KB
ClassSample Project.zip ‏116 KB

It depends a bit on your final intention. Bascially you have a shared state that you want to access asynchronously from different places. If you know that the actual object is only created once (terminilogie here is a bit shaky as every wire split would create a copy of the LVOOP object but I hope you know what I mean), you could use a global or Action Engine to store the state. Using a DVR for this state and adding the DVR to your object class data is however a more scalable approach as it will allow you to instantiate more than one object of that class and each one will contain its own DVR that will reference the same value for the specific object instance even if you split the object wire, creating actually two copies of that object (but for the purpose of this discussion they would be still the same object instance).
Queues could work if you create a single element queue but you would always need to use Preview Queue rather than Dequeue in order to maintain the value in there.
Rolf Kalbermatter
CIT Engineering Netherlands
a division of Test & Measurement Solutions

Originating document number not updated for one invoice line item

Hi,
We have a invoice document number in which the originating document number is not updated for one of the line items ,this is order related down payment invoice .May be this is due to system inconsistency so is there any SAP note to overcome this problem.
Best Regards,
Rohit

Dear All,
I found out the problem for not updated in F-04. "While create the receipt document in GL master Open item management maintained box was not checked". It can be found in BSIS table - OI Management'.
Is there any other way to clear this document.
Thanks...

Serial Number not updating in the system

Hi Frnds
My client is in to retail and has most of the materials under variant configuration. The materials are sold with serial numbers so that they can be tracked and returns/maintenance can be accounted for. The customer is also given discount if he buys that material again using the serial number as reference and the dependency written for that material updates the old purchase qty(old factor) when new purchase qty(new factor) is added to it.
Since the serial number can only be referenced once the goods has been posted and billing has been done. The factors get updated in the system, the factors were updating correctly for the past 2+yrs but since the last couple of months the updating of serial number old factor is screwed. It is not updating for some serial numbers.
Any bright ideas what may be the issue. I have searched every nook and corner but could not trace the cause. Is it possible that a particular serial number can update for a certain number or memory or something???

Sorry, but the problem is not solved: it shows the same, 10 numbers and three points.
Seeing the espana2004 message, maybe it is related to the use of a proportional font? All the characters in my Pre's serial number are wide.
This number is needed to download WebOS Doctor. I've had to put my phone in developer mode, connect through novaterm and do a 'lunaprop com.palm.properties.PalmSN' in order to obtain the number. Is there an easier way to get it?
Regards.

PS CC 2014 DNG and RAW 8.5 did not update with the rest of the CC package. I downloaded/installed the DNG/RAW converter but how do you install w/i CC 2014 plugins

PS CC 2014 DNG and RAW 8.5 did not update with the rest of the CC package. I downloaded/installed the DNG/RAW converter but how do you install w/i CC 2014 plugins

Thanks John. I have tried solutions 1 to 3 from (-http://helpx.adobe.com/creative-cloud/kb/aam-lists-removed-apps-date.h tml) and they do not work. So I presume that all I can do is to remove all 25 CC applications and start again!
Incidently, ( http://www.adobe.com/downloads/updates/ ) does not list Adobe Camera Raw 8.4 as an update even though Adobe have announced that it is available (http://blogs.adobe.com/lightroomjournal/2014/04/camera-raw-8-4-and-dng-converter-8-4-now-a vailable.html). The same applies for Adobe Premiere Pro 7.2.2 (http://blogs.adobe.com/premierepro/2014/04/premiere-pro-cc-7-2-2.html). If they are not available this would explain why I cannot download them but I am very suprised that Adobe didn't mention this when I contacted them.
Anyway thanks again

Status of number range has not updated

HI GURUS!
I read a lot of similar questions as mine. But I didn't find the correct answer for my problem.
The issue is: after I uploaded the Vendor master with LSMW, the status of the number range is still 0!
So I have to change it manually. What should be the problem? Is it possible that problem is in the NUMBER_GET_NEXT fm?
Thanks in advance,
Gábor

Hi!
The number range for vendors is internal! If I change the status after migration, in the XK01 transaction the system gives the correct next number. But how can it possible that the status has not updated after uploading?
Best regards,
Gábor

Hi Everybody, Ship to party not updating for Transaction number in "CRMD_ORDER" for some users?

Process :
1. We are updating ship to party for contracts(Transaction number ) , Here every thing is updating fine But i am facing the issue in CRMD_ORDER, Here what ever selected ship to party was not updating.
2. i have find out the issue reason for failure in Debugging , its giving error as " no_display_authority " in one standard function module 'CRM_ORDER_READ'.We are passing Header GUID to this FM .
3. Even i went inside this FM 'CRM_ORDER_READ', Here it was checking for ACE(ACCESS Control ENGINE) authority check by using Standard FM
"CRM_ORDER_CHECK_AUTHORITY_ACE" this FM giving error as "Access denied by Access Control Engine".
Can any help me on this how can i resolve this issue.
Thanks in Advance.
Regards,
Venugopal

Hi,
Go to SPRO - SD - BASIC FUNCTIONS - PARTNER DETERMINATION Just check whther your partner function (SH) is assigned to your account group and also exists in the partner determination procedure.
Just try and maintain it there against your account group and against your sales document type in VOV8.
Also open your customer master for which you are trying to create this sales order. Just check whther in the partners tab , SH is shown? You can either use transaction BP or XD03.
Let me know, reward points if helpful.
Regards
Ravi

Stock information in serial number not updated

Dear All,
After doing GR Stock Information(ie, Stock type, plant, storage location) of some serial numbers not updated. Status of these serial numbers is ESTO. Stock of these serial numbers updated in warehouse. Still stock information not updated in serial number. Due to this not able to issue this stock in 601 movement. Also not able to reverse this serial number using 102 movement type in MIGO. Error while doing 102 movement type is Deficit of PU IR quantity XXXX NOS. Pls help
Thanks In advance
Zion

Dear All,
No need for reversal. Corrupted serial numbers have been repaired by program RISTEQ07.
Problem Solved
Rgds
Zion

New E-mail Badge number not updated with new mail in folders (iPhone 4S)

I setup my exchange e-mail to push certain folders as well as my inbox but only my inbox mail will update the badge number. If I get mail in a folder the phone just vibrates and shows the notification but the badge is not updated. Seems kind of pointless to have the mail pushed if the badge isn't updated as well. Is there a way to change this or a reason why it is not updating? And yes I have all the options to allow the badge to be shown, also show in notification center, show in lock screen, etc. It was working with 7.0.3, but after I updated it, I realized it stopped working. Any ideas?

So i pretty much got ticked at my iphone. Not only was my "sent folder" not updating, the new 2.0 was crashing and hanging all my applications. e-mail photos wont send, got error messesges , at least every application crashed at some point in the last week, even after i did a restore and back-up. SO pretty much i restored to factory out of the box settings and just started as a "new iphone".
as for the whole "sent folder" not updating. I changed the setting to download "Last 200" messeges. Then i kept updating until all 1,000 messeges were downloaded. After that point my iphone would update whenever i sent new messeges. But it would take forever cause it was checking against a 1,000 e-mails for new ones.... SO i give up, i just dumped all my "sent e-mails" to a new folder called "sent archives" ( u can call it whatever u want). I think this is the easiest fix for now.
if i get any more issues.. i'm just gonna go restore my phone back to the software rev before 2.0 came out....
so

Folio number not updated in the table RG23D

Hi all,
Folio number not updated in the table RG23D when I create depot excise invoice using batch program J_1IJCHK. Can any one help me by providing rootcause and solution.
Thanks in advance.
Regards
Balaji

See can i know in which version u r working,Because if u r in 4.6c there will be some problem.Some patches will be there.
Try this program i have send and assign excise duty
REPORT YJ_1IJCHK MESSAGE-ID 8I.
TABLES : J_1IEXCHDR,                  "excise header
          J_1IEXCDTL,                  "excise detail
          J_1IRG23D ,                  "RG23D register
          J_1IWRKCUS,                  "Plant level customisation
          J_1IREGSET,                  "register set customisation
          J_1IEXCDEF,                  "Tax default information
          VBFA,                        "sales document flow
          LIKP,                        "delivery header
          LIPS,                        "delivery detail
          T005,                        "country information
          KUAGV,                       "sold-to-party information
          KUWEV,                       "ship-to-party information
          KNA1,                        "customer master
          VBPA,                        "sales document partner
          TVKO,                        "sales organisation to company co
          VBUK,                        "delivery information
          MAKT,                        "material description
          T001.                        "company code
selection-screen begin of block delivery_details no intervals.
PARAMETERS: FCODE    TYPE C,
            DELIVERY LIKE LIPS-VBELN,
            EXCGROUP LIKE J_1IEXCHDR-EXGRP,
            SERGROUP LIKE J_1IEXCHDR-SRGRP.
TYPES : BEGIN OF RG23D.
        INCLUDE STRUCTURE J_1IRG23D.
TYPES: MENGR LIKE J_1IEXCDTL-MENGR,           "remaining quantity
        MENGA LIKE J_1IEXCDTL-MENGA,           "quantity actually rec
        ADDBED LIKE J_1IEXCDTL-ADDBED,
        ADDSED LIKE J_1IEXCDTL-ADDSED,
        ADDAED LIKE J_1IEXCDTL-ADDAED,
        END OF RG23D.
DATA : BEGIN OF J1IJ300,
        BUKRS   LIKE TVKO-BUKRS,
        WERKS   LIKE LIPS-WERKS,
        REGID   LIKE J_1IREGSET-J_1IREGID,
        WAERS   LIKE T001-WAERS,
        SHIPFROM_IND TYPE C,                          " Added 10/12/1998
        RG23D_SERIALNO TYPE C,                        " Added 10/12/1998
     END OF J1IJ300.
DATA : TRNTYP(4)   TYPE C,
        CONDT-NAME(3) TYPE C,
        TOTAL_LRG23D   LIKE LIPS-LFIMG,
        ALLOC_LRG23D   LIKE LIPS-LFIMG,
        SHIPFROM_IND   LIKE J_1IEXCHDR-STATUS,
        RG23D_SERIALNO LIKE J_1IEXCHDR-STATUS.
DATA : BEGIN OF XLIPS OCCURS 10,
internal table to store the delivery item information
         VBELN LIKE LIPS-VBELN,
         POSNR LIKE LIPS-POSNR,
         MATNR LIKE LIPS-MATNR,
         MAKTX LIKE MAKT-MAKTX,
         WERKS LIKE LIPS-WERKS,
         LGORT LIKE LIPS-LGORT,
         CHARG LIKE LIPS-CHARG,
         LFIMG LIKE LIPS-LFIMG,
         MEINS LIKE LIPS-MEINS,
         BED   LIKE J_1IRG23D-EXBED,
         SED   LIKE J_1IRG23D-EXSED,
         AED   LIKE J_1IRG23D-EXAED,
         CUR   LIKE J_1IRG23D-EXCUR,
         SELFLAG TYPE C ,              "T=excise invoice selected
         INDEX LIKE SY-TABIX,          "index in the table
         FLG TYPE C.                   "item selection
DATA : END OF XLIPS.
DATA : CRG23D TYPE RG23D OCCURS 30 WITH HEADER LINE.
contains all rg23d entries for the document
DATA : LRG23D TYPE RG23D OCCURS 30 WITH HEADER LINE.
contains item rg23d entries
DATA : BEGIN OF Z_1IRG23D OCCURS 30.
stores the data to be updated
        INCLUDE STRUCTURE J_1IRG23D.
DATA : END OF Z_1IRG23D.
DATA : BEGIN OF EXCINV OCCURS 30.
factory inovoics selected for item
        INCLUDE STRUCTURE J_1IEXCDTL.
DATA : END OF EXCINV.
DATA : BEGIN OF ASSIGNED_EXCINV OCCURS 30.
        INCLUDE STRUCTURE J_1IEXCDTL.
DATA : END OF ASSIGNED_EXCINV.
DATA : A_INDEX LIKE SYST-TABIX.
DATA : BEGIN OF LOCK_TABLE OCCURS 10,
table containing plant-material combination and status of the lock
          WERKS LIKE J_1IEXCDTL-WERKS,
          MATNR LIKE J_1IEXCDTL-MATNR,
          STATUS TYPE C,                   "LOCKED/UNLOCKED
       END OF LOCK_TABLE.
DATA : BEGIN OF LOCKTAB OCCURS 0,
           TRNTYP LIKE J_1IEXCDTL-TRNTYP,
           DOCNO LIKE J_1IEXCDTL-DOCNO,
           DOCYR LIKE J_1IEXCDTL-DOCYR,
           ZEILE LIKE J_1IEXCDTL-ZEILE,
        END OF LOCKTAB.
DATA :
      CRG23D-CTR TYPE I,              "Line count of crg23d table
      SHIPFROM    LIKE J_1IRG23D-SHIPFROM,
      FOLIO       LIKE J_1IRG23D-FOLIO,
      SERIALNO    LIKE J_1IRG23D-SERIALNO,
      DEPEXNUM    LIKE J_1IRG23D-DEPEXNUM,
      DEPEXYEAR   LIKE J_1IRG23D-DEPEXYEAR.
CONSTANTS :
   BED       LIKE CONDT-NAME VALUE 'BED',
   AED       LIKE CONDT-NAME VALUE 'AED',
   SED       LIKE CONDT-NAME VALUE 'SED',
   CES       LIKE CONDT-NAME VALUE 'CES',
   LOCKED    TYPE C          VALUE '1',
   UNLOCKED TYPE C          VALUE '2'.
AT SELECTION-SCREEN.
   PERFORM CHECK_VBELN_INPUT.
IF     FCODE = 'S'.
       PERFORM DELIVERY_START_USER_EXIT.
       PERFORM READ_DELIVERY_HEADER.
       PERFORM GET_COMP_CODE.
       PERFORM READ_CUSTOMISATION.
       PERFORM GET_ITEM_INFO.
       PERFORM LOCKING.
       PERFORM RG23D_SELECTION.
       PERFORM SAVE_DOCUMENT.
       MESSAGE I000 WITH 'Selection Complete for Delivery ' DELIVERY.
ELSEIF FCODE = 'V'.
       PERFORM GET_COMP_CODE.
       PERFORM READ_CUSTOMISATION.
       PERFORM GET_ITEM_INFO.
       PERFORM LOCKING.
       PERFORM UPDATE_DOCUMENT.
       MESSAGE I000 WITH 'Verfiy/Post Complete for Delivery ' DELIVERY.
ENDIF.
FORM CHECK_VBELN_INPUT.
Validate Function Code
   IF NOT ( FCODE = 'S' OR FCODE = 'V' ).
     MESSAGE E000 WITH 'Valid Functions are S/V - Select/Verify Post'.
   ENDIF.
IF DELIVERY IS INITIAL.
     MESSAGE E000 WITH 'Delivery number cannot be initial'.
ENDIF.
check if goods issue done for the delivery
    SELECT SINGLE WBSTK INTO VBUK-WBSTK
        FROM VBUK
        WHERE VBELN = DELIVERY.
    IF SY-SUBRC = 0.
        IF VBUK-WBSTK <> 'C' AND FCODE = 'V'.
           MESSAGE W339 WITH DELIVERY.
        ENDIF.
    ELSE.
           MESSAGE E000 WITH 'Invalid Delivery'.
    ENDIF.
if in select mode check if excise invoice already selected for delive
    SELECT SINGLE * FROM J_1IRG23D
        WHERE VBELN = DELIVERY.
    IF     FCODE = 'S'.
           IF SY-SUBRC = 0.
              MESSAGE E325 WITH DELIVERY.
           ENDIF.
    ELSEIF FCODE = 'V'.
           IF     SY-SUBRC NE 0.
                  MESSAGE E000 WITH 'Selection not over for ' DELIVERY.
           ELSEIF J_1IRG23D-STATUS = 'P'.
                  MESSAGE E000 WITH 'Record Already Posted '.
           ENDIF.
    ENDIF.
CLEAR J_1IRG23D.
ENDFORM.                    " CHECK_VBELN_INPUT
FORM READ_DELIVERY_HEADER.
SELECT SINGLE * FROM LIKP
    WHERE VBELN = DELIVERY.
get the sold-to-party
CLEAR: KUAGV, KUWEV.
SELECT SINGLE KUNNR NAME1 LAND1
          FROM KNA1 INTO (KUAGV-KUNNR,KUAGV-NAME1,KUAGV-LAND1)
     WHERE KUNNR = LIKP-KUNAG.
get the ship-to-party
SELECT SINGLE KUNNR LAND1 NAME1
          FROM KNA1 INTO (KUWEV-KUNNR,KUWEV-LAND1,KUWEV-NAME1)
      WHERE KUNNR = LIKP-KUNNR.
ENDFORM.                    " READ_DELIVERY_HEADER
FORM GET_COMP_CODE.
get the company code of the document from the sales organisation
CLEAR TVKO-BUKRS.
SELECT SINGLE BUKRS FROM TVKO INTO TVKO-BUKRS
    WHERE VKORG = LIKP-VKORG.
J1IJ300-BUKRS = TVKO-BUKRS.
SELECT SINGLE WAERS FROM T001 INTO J1IJ300-WAERS
    WHERE BUKRS = J1IJ300-BUKRS.
ENDFORM.                    " GET_COMP_CODE
FORM READ_CUSTOMISATION.
SELECT SINGLE WERKS INTO J1IJ300-WERKS
       FROM   LIPS
       WHERE VBELN = DELIVERY.
Plant level customisation
SELECT SINGLE * FROM J_1IWRKCUS
         WHERE J_1IWERKS   = J1IJ300-WERKS .
IF SY-SUBRC <> 0.
    MESSAGE E303 WITH 'plant' J1IJ300-WERKS 'J_1IWRKCUS'.
ENDIF.
IF J_1IWRKCUS-J_1IDEPOT IS INITIAL.
plant is defined as factory
    MESSAGE E322 WITH J1IJ300-WERKS.
ENDIF.
J1IJ300-REGID = J_1IWRKCUS-J_1IREGID.
TRNTYP = 'DLDO'.
SELECT SINGLE * FROM J_1IREGSET
       WHERE J_1IREGID = J1IJ300-REGID.
IF SY-SUBRC <> 0.
    MESSAGE E303 WITH 'Register id' J1IJ300-REGID 'J_1IREGSET'.
ENDIF.
ENDFORM.                    " READ_CUSTOMISATION
*&      Form GET_ITEM_INFO
      text                                                           *
--> p1        text
<-- p2        text
FORM GET_ITEM_INFO.
REFRESH : CRG23D, LRG23D, EXCINV, XLIPS.
PERFORM READ_DELIVERY_ITEM.
ENDFORM.                    " GET_ITEM_INFO
*&      Form READ_DELIVERY_ITEM
      text                                                           *
--> p1        text
<-- p2        text
FORM READ_DELIVERY_ITEM.
DATA : CNT LIKE SY-TABIX.
CLEAR CNT.
REFRESH XLIPS.
SELECT * FROM LIPS
     WHERE VBELN = DELIVERY.
read the delivery item
perform plant checking only if in create mode
      IF LIPS-WERKS <> J1IJ300-WERKS.
plant is different from that of the first item
        SELECT SINGLE J_1IREGID INTO J_1IWRKCUS-J_1IREGID
             FROM   J_1IWRKCUS
             WHERE J_1IWERKS = LIPS-WERKS.
        IF SY-SUBRC <> 0.
          MESSAGE E303 WITH 'plant' LIPS-WERKS 'J_1IWRKCUS'.
        ENDIF.
        IF J_1IWRKCUS-J_1IREGID <> J1IJ300-REGID.
register id of the two plants are different
          MESSAGE E338 WITH DELIVERY.
        ENDIF.
      ENDIF.
    CLEAR XLIPS.
store the item details
    XLIPS-VBELN = LIPS-VBELN.
    XLIPS-POSNR = LIPS-POSNR.
    XLIPS-MATNR = LIPS-MATNR.
    PERFORM GET_MATERIAL_DESC
          USING XLIPS-MATNR
                XLIPS-MAKTX.
   XLIPS-WERKS = LIPS-WERKS.
   XLIPS-LGORT = LIPS-LGORT.
   XLIPS-CHARG = LIPS-CHARG.
   XLIPS-LFIMG = LIPS-LFIMG.
   XLIPS-MEINS = LIPS-VRKME.                           "changed 2.3.98
   CLEAR : XLIPS-BED, XLIPS-SED, XLIPS-AED.
   XLIPS-CUR = J1IJ300-BUKRS.
   CNT = CNT + 1.
   XLIPS-INDEX = CNT.
   XLIPS-SELFLAG = 'F'.
   APPEND XLIPS.
ENDSELECT.
ENDFORM.                    " READ_DELIVERY_ITEM
*&      Form GET_MATERIAL_DESC
      text                                                           *
--> p1        text
<-- p2        text
FORM GET_MATERIAL_DESC USING MATNR MAKTX.
SELECT SINGLE MAKTX FROM MAKT INTO MAKTX
         WHERE MATNR       = MATNR
         AND    SPRAS       = 'E'            .
ENDFORM.                               " GET_MATERIAL_DESC
*&      Form LOCKING
      text                                                           *
--> p1        text
<-- p2        text
FORM LOCKING.
REFRESH LOCK_TABLE.
LOOP AT XLIPS.
LOCK_TABLE-WERKS = XLIPS-WERKS.
LOCK_TABLE-MATNR = XLIPS-MATNR.
LOCK_TABLE-STATUS = UNLOCKED.
COLLECT LOCK_TABLE.
ENDLOOP.
PERFORM LOCK_UNLOCK_PLANT_MATERIAL USING LOCKED.
SELECT TRNTYP DOCNO DOCYR ZEILE INTO
      (LOCKTAB-TRNTYP,
      LOCKTAB-DOCNO,LOCKTAB-DOCYR,
      LOCKTAB-ZEILE)
                          FROM   J_1IEXCDTL
                      WHERE TRNTYP = 'GRPO'
                      AND WERKS = XLIPS-WERKS
                      AND LGORT = XLIPS-LGORT
                      AND MATNR = XLIPS-MATNR
                      AND CHARG = XLIPS-CHARG.
    APPEND LOCKTAB.
ENDSELECT.
*share lock for all excise invoices
LOOP AT LOCKTAB.
    CALL FUNCTION 'ENQUEUE_EJ_1IEXDTL'
         EXPORTING
              MODE_J_1IEXCDTL = 'S'
              MANDT           = SY-MANDT
              TRNTYP          = LOCKTAB-TRNTYP
              DOCYR           = LOCKTAB-DOCYR
              DOCNO           = LOCKTAB-DOCNO
              ZEILE           = LOCKTAB-ZEILE
         EXCEPTIONS
              FOREIGN_LOCK    = 1
              SYSTEM_FAILURE = 2
              OTHERS          = 3.
ENDLOOP.
ENDFORM.                    " LOCKING
*&      Form LOCK_UNLOCK_PLANT_MATERIAL
      text                                                           *
--> p1        text
<-- p2        text
FORM LOCK_UNLOCK_PLANT_MATERIAL USING ACTION.
DATA: __UNAME LIKE SY-UNAME,
        __OBJECT LIKE DD25V-VIEWNAME.
DATA : BEGIN OF LOCK_STRUCT,
           GRANNAME(10)   VALUE 'J1IJ',
           ENQMODE        VALUE 'E',
           MANDT          LIKE SY-MANDT,
           WERKS          LIKE J_1IEXCDTL-WERKS,
           MATNR          LIKE J_1IEXCDTL-MATNR,
        END OF LOCK_STRUCT.
LOCK_STRUCT-MANDT = SY-MANDT.
LOOP AT LOCK_TABLE WHERE STATUS <> ACTION.
perform the locking/unlocking operation only for the items for which
it is not already done
    LOCK_STRUCT-WERKS = LOCK_TABLE-WERKS.
    LOCK_STRUCT-MATNR = LOCK_TABLE-MATNR.
   CALL 'C_ENQUEUE'
     ID 'OPCODE'           FIELD ACTION
     ID 'ENQOBJ'           FIELD 'J_1IJ'
     ID '01'               FIELD LOCK_STRUCT
     ID 'COLLISION_UNAME' FIELD __UNAME
     ID 'COLLISION_OBJECT' FIELD __OBJECT.
   CASE SY-SUBRC.
     WHEN 0.
       LOCK_TABLE-STATUS = ACTION.
       MODIFY LOCK_TABLE.
     WHEN 2.
       MESSAGE E341 WITH LOCK_TABLE-WERKS LOCK_TABLE-MATNR __UNAME.
     WHEN OTHERS.
       IF ACTION = LOCKED.
         MESSAGE E342 WITH 'locking'
                           LOCK_TABLE-WERKS LOCK_TABLE-MATNR.
       ELSE.
         MESSAGE E342 WITH 'unlocking'
                           LOCK_TABLE-WERKS LOCK_TABLE-MATNR.
       ENDIF.
   ENDCASE.
ENDLOOP.
ENDFORM.                    " LOCK_UNLOCK_PLANT_MATERIAL
*&      Form RG23D_SELECTION
      text                                                           *
--> p1        text
<-- p2        text
FORM RG23D_SELECTION.
REFRESH CRG23D.
REFRESH ASSIGNED_EXCINV.
LOOP AT XLIPS.
*write: / xlips-vbeln,xlips-posnr,xlips-matnr, xlips-meins, xlips-lfimg.
REFRESH EXCINV.
CALL FUNCTION 'J_1I6_SELECT_EXCISE_INVOICE_DE'
     EXPORTING
         BUKRS        = J1IJ300-BUKRS
         CHARG        = XLIPS-CHARG
         WERKS        = XLIPS-WERKS
         EXGRP        = EXCGROUP
         MATNR        = XLIPS-MATNR
         QTY_CHECK    = 'X'
         MULTI        = 'X'
         NO_DAY_CHECK = 'X'
         SHIPFROM     = SHIPFROM
         LGORT        = XLIPS-LGORT
     TABLES
          EXC_TAB     = EXCINV
     EXCEPTIONS
          OTHERS       = 1.
     TOTAL_LRG23D = 0.
     ALLOC_LRG23D = 0.
     SORT EXCINV BY DOCYR DOCNO .
     LOOP AT ASSIGNED_EXCINV.
        READ TABLE EXCINV WITH KEY DOCYR = ASSIGNED_EXCINV-DOCYR
                                 DOCNO = ASSIGNED_EXCINV-DOCNO
                                 ZEILE = ASSIGNED_EXCINV-ZEILE
                                 BINARY SEARCH.
        IF SY-SUBRC = 0.
           A_INDEX = SY-TABIX.
           EXCINV-MENGR = EXCINV-MENGR - ASSIGNED_EXCINV-MENGR.
           MODIFY EXCINV INDEX A_INDEX .
        ENDIF.
     ENDLOOP.
     DELETE EXCINV WHERE MENGR = 0.
total_lrg23d = total balance quantity in the selected excise invoices
alloc_lrg23d = Quantity allocated to a delivery line item,
Allocation continues till
- We have balance quantity in excise invoice selection
- Till total delivery quantity is allocated
    LOOP AT EXCINV.
To Force the same shipfrom for all the excise invoices
Shipfrom Ind can be determined in the start user-exit
    IF J1IJ300-SHIPFROM_IND = 'Y'.
        IF XLIPS-INDEX = 1 AND SY-TABIX = 1.
            SHIPFROM = EXCINV-SHIPFROM.
        ENDIF.
        IF SHIPFROM NE EXCINV-SHIPFROM.
           EXCINV-RIND3 = 'X'.
           MODIFY EXCINV.
           CONTINUE.
        ENDIF.
    ENDIF.
Allocation
    IF XLIPS-LFIMG NE ALLOC_LRG23D.
        TOTAL_LRG23D = TOTAL_LRG23D + EXCINV-MENGR.
        IF XLIPS-LFIMG > TOTAL_LRG23D.
           ALLOC_LRG23D = ALLOC_LRG23D + EXCINV-MENGR.
        ELSE.
           EXCINV-MENGR = XLIPS-LFIMG - ALLOC_LRG23D.
           ALLOC_LRG23D = ALLOC_LRG23D + EXCINV-MENGR.
        ENDIF.
    ELSE.
           EXCINV-RIND3 = 'X'.
     ENDIF.
     MODIFY EXCINV.
     ENDLOOP.
     DELETE EXCINV WHERE RIND3 = 'X'.
     LOOP AT EXCINV.
        MOVE-CORRESPONDING EXCINV TO ASSIGNED_EXCINV.
        APPEND ASSIGNED_EXCINV.
        CLEAR ASSIGNED_EXCINV.
     ENDLOOP.
     IF TOTAL_LRG23D < XLIPS-LFIMG.
        MESSAGE E000 WITH 'Not enough balance in RG23D ......'.
    ENDIF.
Collect all allocated excise invoices to crg23d table
LOOP AT EXCINV.
    PERFORM FILL_CRG23D.
    APPEND CRG23D.
ENDLOOP.
ENDLOOP.
ENDFORM.                    " RG23D_SELECTION
*&      Form SAVE_DOCUMENT
      text                                                           *
--> p1        text
<-- p2        text
FORM SAVE_DOCUMENT.
      PERFORM PREPARE_RG23D_DATA.
Generate RG23D serial number and Excise Invoice Serial Number
   IF J1IJ300-RG23D_SERIALNO = 'Y'.
   PERFORM GENERATE_RG23D_SERIAL ON COMMIT.
   ENDIF.
   PERFORM GENERATE_EXCISE_INV_SERIAL ON COMMIT.
     CALL FUNCTION 'J_1I7_USEREXIT_DEPOT_BEF_SAVE'
          TABLES
               RG23D   = Z_1IRG23D
          EXCEPTIONS
               OTHERS = 1.
     PERFORM UPDATE_RG23D ON COMMIT.
     PERFORM UPDATE_EXCDTL ON COMMIT.
     COMMIT WORK.
    PERFORM LOCK_UNLOCK_PLANT_MATERIAL USING UNLOCKED.
     PERFORM UNLOCKING.
     MESSAGE S333 WITH DELIVERY.
ENDFORM.                    " SAVE_DOCUMENT
*&      Form PREPARE_RG23D_DATA
      text                                                           *
--> p1        text
<-- p2        text
FORM PREPARE_RG23D_DATA.
REFRESH Z_1IRG23D.
LOOP AT CRG23D WHERE MENGE <> 0.
    CLEAR Z_1IRG23D.
    Z_1IRG23D = CRG23D.
    Z_1IRG23D-USNAM = SY-UNAME.
    Z_1IRG23D-CPUDT = SY-DATUM.
    Z_1IRG23D-EXGRP    = EXCGROUP.
    Z_1IRG23D-SRGRP    = SERGROUP.
    APPEND Z_1IRG23D.
    IF CRG23D-ADDAED <> 0 OR CRG23D-ADDSED <> 0 OR CRG23D-ADDAED <> 0 .
additional excise is applicable
make quantity zero for A certificate entries
      CLEAR : Z_1IRG23D-MENGE.
get all the A certificates for the excise document item
      SELECT * FROM J_1IEXCDTL
TODO : add the transaction type to the selection procedure
             WHERE RDOC1    = CRG23D-DOCNO
             AND   RYEAR1   = CRG23D-DOCYR
             AND   RITEM1   = CRG23D-ZEILE
             AND   RIND1    = 'G'.
get the A certificate number
        SELECT SINGLE
               EXNUM EXYEAR INTO (Z_1IRG23D-EXNUM, Z_1IRG23D-EXYEAR)
               FROM J_1IEXCHDR
               WHERE TRNTYP = J_1IEXCDTL-TRNTYP
               AND    DOCYR = J_1IEXCDTL-DOCYR
               AND    DOCNO = J_1IEXCDTL-DOCNO.
        Z_1IRG23D-TRNTYP = J_1IEXCDTL-TRNTYP.
        Z_1IRG23D-DOCYR = J_1IEXCDTL-DOCYR.
        Z_1IRG23D-DOCNO = J_1IEXCDTL-DOCNO.
        Z_1IRG23D-ZEILE = J_1IEXCDTL-ZEILE.
        Z_1IRG23D-EXBED = ( J_1IEXCDTL-EXBED * CRG23D-MENGE )
                                      / CRG23D-MENGA.
        Z_1IRG23D-EXSED = ( J_1IEXCDTL-EXSED * CRG23D-MENGE )
                                      / CRG23D-MENGA.
        Z_1IRG23D-EXAED = ( J_1IEXCDTL-EXAED * CRG23D-MENGE )
                                      / CRG23D-MENGA.
        Z_1IRG23D-RG23ASER = J_1IEXCDTL-RG23ASER.
        Z_1IRG23D-RG23CSER = J_1IEXCDTL-RG23CSER.
        Z_1IRG23D-RGPLASER = J_1IEXCDTL-RGPLASER.
        APPEND Z_1IRG23D.
      ENDSELECT.
    ENDIF.
ENDLOOP.
ENDFORM.                    " PREPARE_RG23D_DATA
*&      Form UPDATE_RG23D
      text                                                           *
--> p1        text
<-- p2        text
FORM UPDATE_RG23D.
*update the rg23d register
INSERT J_1IRG23D FROM TABLE Z_1IRG23D ACCEPTING DUPLICATE KEYS.
IF SY-SUBRC <> 0.
    MESSAGE A308 WITH 'J_1IRG23D'.
ENDIF.
ENDFORM.                    " UPDATE_RG23D
*&      Form UPDATE_EXCDTL
      text                                                           *
--> p1        text
<-- p2        text
FORM UPDATE_EXCDTL.
LOOP AT CRG23D WHERE MENGE <> 0.
update the remaining quantity in the excise invoice item tables
    UPDATE J_1IEXCDTL
       SET      MENGR   = MENGR - CRG23D-MENGE
                AENAM   = SY-UNAME
                AEDAT   = SY-DATUM
       WHERE    TRNTYP = 'GRPO'
         AND    DOCYR   = CRG23D-DOCYR
         AND    DOCNO   = CRG23D-DOCNO
         AND    ZEILE   = CRG23D-ZEILE.
    IF SY-SUBRC <> 0.
      MESSAGE A308 WITH 'J_1IRG23D'.
    ENDIF.
ENDLOOP.
ENDFORM.                    " UPDATE_EXCDTL
*&      Form FILL_CRG23D
      text                                                           *
--> p1        text
<-- p2        text
FORM FILL_CRG23D.
CRG23D-TRNTYP   = EXCINV-TRNTYP.
CRG23D-DOCYR    = EXCINV-DOCYR.
CRG23D-DOCNO    = EXCINV-DOCNO.
CRG23D-ZEILE    = EXCINV-ZEILE.
CRG23D-VBELN    = XLIPS-VBELN.
CRG23D-POSNR    = XLIPS-POSNR.
CRG23D-EXNUM    = EXCINV-EXNUM.
CRG23D-EXYEAR   = EXCINV-EXYEAR.
CRG23D-LIFNR    = EXCINV-LIFNR.
CRG23D-MATNR    = EXCINV-MATNR.
CRG23D-MAKTX    = EXCINV-MAKTX.
CRG23D-CHAPID   = EXCINV-CHAPID.
CRG23D-MEINS    = EXCINV-MENGR_UOM.
CRG23D-WERKS    = EXCINV-WERKS.
CRG23D-EXCUR    = EXCINV-EXCUR.
CRG23D-RG23ASER = EXCINV-RG23ASER.
CRG23D-RG23CSER = EXCINV-RG23CSER.
CRG23D-RGPLASER = EXCINV-RGPLASER.
CRG23D-MENGR    = EXCINV-MENGR.
CRG23D-MENGA    = EXCINV-MENGA.
CRG23D-MENGE    = EXCINV-MENGR.            " Move the allocated Qty
CRG23D-EXBED    = ( EXCINV-EXBED * CRG23D-MENGE ) / EXCINV-MENGA.
CRG23D-EXSED    = ( EXCINV-EXSED * CRG23D-MENGE ) / EXCINV-MENGA.
CRG23D-EXAED    = ( EXCINV-EXAED * CRG23D-MENGE ) / EXCINV-MENGA.
ENDFORM.                    " FILL_CRG23D
*&      Form UPDATE_DOCUMENT
      text                                                           *
--> p1        text
<-- p2        text
FORM UPDATE_DOCUMENT.
LOOP AT XLIPS.
UPDATE J_1IRG23D SET STATUS = 'P'
WHERE VBELN       = XLIPS-VBELN
AND    POSNR       = XLIPS-POSNR.
ENDLOOP.
COMMIT WORK.
ENDFORM.                    " UPDATE_DOCUMENT
*&      Form DELIVERY_START_USER_EXIT
      text                                                           *
--> p1        text
<-- p2        text
FORM DELIVERY_START_USER_EXIT.
CALL FUNCTION 'J_1I7_USEREXIT_EXGRP_DETERM'
     EXPORTING
          EXCGRP         = EXCGROUP
        MBLNR          =
        MJAHR          =
        VENDOR         =
          VBELN          = DELIVERY
     IMPORTING
          EXCGRP         = EXCGROUP
          SHIPFROM_IND   = J1IJ300-SHIPFROM_IND
          RG23D_SERIALNO = J1IJ300-RG23D_SERIALNO
     EXCEPTIONS
          OTHERS         = 1.
CALL FUNCTION 'J_1I7_USEREXIT_SERGRP_DETERM'
     EXPORTING
          SRGRP          = SERGROUP
        MBLNR          =
        MJAHR          =
          VBELN          = DELIVERY
     IMPORTING
          SRGRP          = SERGROUP
     EXCEPTIONS
          OTHERS         = 1.
ENDFORM.                    " DELIVERY_START_USER_EXIT
*&      Form GENERATE_RG23D_SERIAL
      text                                                           *
--> p1        text
<-- p2        text
FORM GENERATE_RG23D_SERIAL.
LOOP AT Z_1IRG23D WHERE MENGE <> 0.
CLEAR: FOLIO, SERIALNO.
SELECT MAX( FOLIO ) MAX( SERIALNO )
INTO   (Z_1IRG23D-FOLIO, Z_1IRG23D-SERIALNO)
FROM   J_1IRG23D
WHERE TRNTYP = Z_1IRG23D-TRNTYP
AND    DOCNO = Z_1IRG23D-DOCNO
AND    DOCYR = Z_1IRG23D-DOCYR
AND    ZEILE = Z_1IRG23D-ZEILE.
MODIFY Z_1IRG23D.
ENDLOOP.
ENDFORM.                    " GENERATE_RG23D_SERIAL
*&      Form GENERATE_EXCISE_INV_SERIAL
      text                                                           *
--> p1        text
<-- p2        text
FORM GENERATE_EXCISE_INV_SERIAL.
CLEAR: DEPEXNUM, DEPEXYEAR.
CALL FUNCTION 'J_1I6_DETERMINE_EXC_YEAR'
     EXPORTING
          I_BUKRS      = J1IJ300-BUKRS
     IMPORTING
          EXCISE_YEAR = DEPEXYEAR
     EXCEPTIONS
          MISS_COMPANY = 1
          OTHERS       = 2.
IF SY-SUBRC NE 0.
    MESSAGE E526 WITH 'Company ' J1IJ300-BUKRS.
ENDIF.
CALL FUNCTION 'NUMBER_GET_NEXT'
       EXPORTING
            NR_RANGE_NR             = '01'
            OBJECT                  = 'J_1IDEPINV'
            QUANTITY                = '1'
            SUBOBJECT               = SERGROUP
            TOYEAR                  = DEPEXYEAR
       IMPORTING
            NUMBER                  = DEPEXNUM
       EXCEPTIONS
            INTERVAL_NOT_FOUND      = 1
            NUMBER_RANGE_NOT_INTERN = 2
            OBJECT_NOT_FOUND        = 3
            QUANTITY_IS_0           = 4
            QUANTITY_IS_NOT_1       = 5
            INTERVAL_OVERFLOW       = 6
            OTHERS                  = 7.
CASE SY-SUBRC.
    WHEN 0.
    WHEN 1.
      MESSAGE A336 WITH 'internal document' ': Interval not found'
                        '. Number object : J_1IDEPINV'.
    WHEN 3.
      MESSAGE A336 WITH 'internal document' ': Object not found'
                        '. Number object : J_1IDEPINV'.
    WHEN OTHERS.
      MESSAGE A336 WITH 'internal document'
                        '. Number object : J_1IDEPINV'.
ENDCASE.
Update Depot Excise Invoice Year and Number in the table
LOOP AT Z_1IRG23D.
    Z_1IRG23D-SERIALNO = Z_1IRG23D-SERIALNO + 1.
    Z_1IRG23D-DEPEXYEAR = DEPEXYEAR.
    Z_1IRG23D-DEPEXNUM = DEPEXNUM.
    MODIFY Z_1IRG23D.
ENDLOOP.
ENDFORM.                    " GENERATE_EXCISE_INV_SERIAL
*&      Form UNLOCKING
      text
--> p1        text
<-- p2        text
FORM UNLOCKING.
LOOP AT LOCKTAB.
    CALL FUNCTION 'DEQUEUE_EJ_1IEXDTL'
         EXPORTING
              MODE_J_1IEXCDTL = 'S'
              MANDT           = SY-MANDT
              TRNTYP          = LOCKTAB-TRNTYP
              DOCYR           = LOCKTAB-DOCYR
              DOCNO           = LOCKTAB-DOCNO
              ZEILE           = LOCKTAB-ZEILE.
ENDLOOP.
ENDFORM.                    " UNLOCKING

Sales document number not updated in FI document

Hi,
Whenever invoice creates in FI through billing document, system will not update sales document number in FI document(Invoice). Please confirm if there is any way to update sales document number in FI document because I want to create dunning notices on sales order basis.
Request immediate help.
Thanks in advance.

Hi,
In the standard system, FI postings will be updated with FI document numbers only. If you want to see respective billing document number in customer ledger, go to FBL5N, select 'Change Layout' icon and move billing document number from 'hidden fields' to display fields list and see.
Regds
Sarma BH

PO Number converted PR is Not updated in SC

Similar Messages

Maybe you are looking for