Rental Process.

Hi,
In rental business wants month wise billing but some times due to breakdown of machine business wants day wise billing.
How to configured in the system & how pricing will calculate day wise & month wise both.
Example : confirm me how to calculate & configured  price on Day wise or month wise billing of  rental Vehicle.
Thanks,
Miku.
Edited by: miku143 on Dec 25, 2011 8:34 PM

Hello
As suggested, calculate the price on day basis and use UoM as 1UoM = 1 day.
In case the price rate is different for daily and monthly usage, provide discount if the vehicle is used for complete month i.e. UoM = 30 or 31.
Maintain the condition records for price and discount per day.

Similar Messages

  • Rental Process - Delivery to Customer While Maintaining Ownership

    Hi SAP Experts,
    My client is renting out construction and marine equipment and I was wondering how I can send the machine to a customer for rental in SAP after the rental contract is created. Ownership remains with my client but I need to show that it is at the customer site. A lot are talking about the consignment process and still some are saying that returnable packaging can be used. Are there any other ways to do this? Is there any disadvantage of using consignment or is it the best method?
    Thanks in advance for your help!
    Cheers,
    robson_gs

    Hi,
    I suggest you manage it with returnable packaging.it is very simple method for renting.
    I already done my current project same scenario.
    Kapil

  • Suggestion required for Rental process

    Hello Gurus,
    Please suggest a suitable solution for the following scenario:
    Client has  property like office space and shops.
    client gives it on rent, the current process is as follows:
    1. Adv in News Papers
    2. Selling of tender forms.
    3. Accept tenders with refundable deposits.
    4. Agreement with highest Quoted.
    5. Collect 3 months rent in Advance
    6. collect the rent every month.
    7. At the end of the period refund the deposit.
    Kindly suggest the document types, copy control and periodic billing steps and pricing to be used in SAP SD.
    Thanks & Regards

    Hello lrsapsd
    You first need to decide the business processes that you would (can) cover within SAP and which will be out of SAP.  Check out SAP for Real Estate Industry Solution, If you can not go that way, here is my proposal:
    1. Adv in News Papers: Outside SAP
    2. Selling of tender forms: Outside SAP
    3. Accept tenders with refundable deposits: Enter them as quotes, You may use AV-Quotation f.Contract or AG-Quotation. Bidders (Renters) will be sold-tos or Prospects and quote will be priced manually with the amount they bid to pay for rent. Deposits may be collected via a Debit Memo and posted to a Temporary  Holding Account.
    4. Agreement with highest Quoted: Reject all the Bids except the one with highest quote, Convert that quote into Rental Contract (MV) with Periodic Billing Plan. Billing Plan Type- 02; Date Determination Rule- 50.
    5. Collect 3 months rent in Advance: Can be managed with Billing Plan and/or down payment.
    6. collect the rent every month- Monthly billing of rent using Periodic Billing Plan
    7. At the end of the period refund the deposit- Credit Memo Req and Credit Memo, can be automated using contract end date and triggered by workflow with Status control  of contract if needed.
    Hope this helps.

  • ITunes rental processing

    I have just Rented a movie from iTunes in HD to my iPad, its has downloaded almost completely but says 'processing' under the load bar for the past 6 hours, is there anything I can do to refresh it? ....I have lots of available space on my iPad, I am working from high power wifi, I have paused and started the download, turned on and off my wifi, turned on and off my iPad, everything I can think to do I have done, any suggestions?

    Have you gone into the Videos App, and tried to watch it?    It may be completely downloaded and ready to watch, but the download screen got stuck.
    Also a reset of the iPad may clear it up.
    Hold down the Home and Power/sleep buttons until the Apple Logo shows up. Ignore any sliders that may appear.

  • Movie Rentals Unreliable - Help Non-Existant

    I want to know if my experience is shared by others...
    I rented two movies while traveling two weeks ago.  Regrettably, I was unable to watch either on my iPad 2 before thesoftwareupdate, which deleted them both.  On returning to the store, there was no place to find them to download again.  Trying to get at least one of them, I had to go through the rental process afgain, and after paying a second time, the download simply errors out in the first view seconds.
    iTunes support seems to be a black hole.  No help, no response, not even an acknowledgment of my queries.  ( I've waited over 48 hours).
    If this what it's normally like with Apple?

    I have never had an issue wth itunes support.  The rare times that I have had to report an issue, I got a response same day.
    How to report an issue with Your iTunes Store purchase

  • HT1657 Cannot find my movie rental

    Dear community
    I cannot find my rented movie. Tried signing out then signing back in (as suggested on some forums), still nothing appearing. I know the purchase went through as it's showing in my list of purchased & paid items in my itunes account. When trying to re-rent it I am again informed it is already rented. How do I retrieve the movie rental?
    Thanks for any tips here...
    Valerie

    Thanks King, I am quite familiar with the rental process and usually the movies do land in that section.
    With some patience & some desperation! I ran a full-search of my computer with the name of the movie downloaded...
    and there you go..seems it landed in the wrong internal folder hence was never picked up by itunes in the 'rental' section...go figure... Had to copy paste it and sign back into itunes to finally see the movie.
    So this is now solved!
    Thanks again

  • LIne item deletion -availability

    Hello Everyone,
    I am in a bit of a pickle. I had 2 KAs for a material/serial number combination say 1 and 2. The material has been confirmed in the schedule line
    in KA 1 but then BP wanted to bring it in using KA 2 so he assigned a reason for rejection for that line item in KA 1 so he could confirm the schedule line
    in KA 2. This didnt work.
    Unfortunately I deleted the confirmed schedule line in KA 1 and then deleted the line time itself in KA 1. This didnt result in the  material being available for a return with KA 2.
    As a result of the above in MMBE the material is still with the customer (KB)(we are using KB and KA for rental process mapping)
    but if look at KA 2 availablity check result for the material that qty is still confirmed against KA 1 line item which we deleted.
    Please assist in bring the material to available
    Regards
    Madan Shetty

    I had 2 KAs for a material/serial number
    What do you mean by KA??  As far as possible, please dont use any abbreviated words and conclude everybody would read your mind.  I presume it is order type.
    When you say rental processing, I don't understand why you were involving delivery.  Ideally, the process should have been Order related billing.  Also are the two lines have same material code? 
    Please share maximum informations both from business perspective and SAP point of view so that suitable suggestions can be given.
    G. Lakshmipathi

  • HD movie from iTunes won't play on hdcp compliant setup.

    I purchased an HD movie on iTunes.  But it will not play on my hdcp compliant pc with hdcp compliant video card and monitor.  And I am not even given the option to at least watch it in SD.  How can I get the movie to play on my PC? 
    Thanks.

    Called support. You ave to initiate the rental process on wifi to play it in airplane mde later

  • CAn Someone Please Help me? Turn this program in a algorithm

    DECLARE SUB RentCar ()
    DECLARE SUB PayBill ()
    DECLARE SUB Main ()
    DECLARE SUB ReadCarData ()
    DECLARE SUB FindCar ()
    TYPE Car ' User made Type To hold Car Data
    CarNumber AS INTEGER
    License AS STRING * 8
    Year AS INTEGER
    CarMaker AS STRING * 16
    CarName AS STRING * 16
    Description AS STRING * 20
    ColorOfCar AS STRING * 10
    NumberOfDoors AS INTEGER
    Price AS DOUBLE
    Rented AS INTEGER
    Customer AS INTEGER
    END TYPE
    TYPE Customer ' User made Type to hold Customer data
    CustomerNumber AS INTEGER
    CustName AS STRING * 50
    Bill AS DOUBLE
    END TYPE
    DIM SHARED Cars(1 TO 26) AS Car ' Global Variables
    DIM SHARED p(4) AS Customer
    DIM CustName AS STRING * 50
    p(0).CustName = "Kevin" ' Assign Customers who need to pay bills
    p(0).Bill = 0
    p(1).CustName = "Eljah"
    p(1).Bill = 100
    p(2).CustName = "Jared"
    p(2).Bill = 55
    p(3).CustName = "Claudwin"
    p(3).Bill = 60
    p(4).CustName = "Isaac"
    p(4).Bill = 1500
    CALL ReadCarData ' This reads the data statements into the Cars() array.
    WIDTH 80, 50 ' Formats screen and call the main part of the program
    CALL Main
    ' CAR DATA STATEMENTS
    ' LICENSE YEAR MAKER MODEL DESCRIPTION COLOR DOORS PRICE
    DATA "X-5687", 2007, "DODGE", "CALIBER", "FAMILY CAR", "DARK RED", 4, 89.99
    DATA "X-9681", 2006, "DODGE", "CHARGER", "SPORT", "GREY", 4, 47.99
    DATA "X-9684", 2006, "DODGE", "RAM 2500", "PICKUP", "BLACK", 4, 101.99
    DATA "X-9437", 2004, "FORD", "MUSTANG", "SPORT", "RED", 2, 45.99
    DATA "X-2562", 2002, "FORD", "TAURUS", "SEDAN", "LIGHT GREY", 4, 67.99
    DATA "X-3856", 2003, "FORD", "CONTOUR", "SMALL", "LIGHT BLUE", 2, 45.99
    DATA "X-2724", 2001, "FORD", "BRONCO", "JEEP", "BLACK", 4, 63.99
    DATA "X-2724", 2001, "FORD", "BRONCO", "JEEP", "DARK GREEN", 4, 63.99
    DATA "X-8568", 1998, "FORD", "ESCORT", "COMPACT", "BROWN", 2, 35.99
    DATA "X-4724", 2004, "FORD", "PROBE", "SPORT", "BLACK", 2, 58.99
    DATA "X-4724", 2004, "FORD", "PROBE", "SPORT", "RED", 2, 58.99
    DATA "X-4724", 2004, "FORD", "PROBE", "SPORT", "YELLOW", 2, 58.99
    DATA "X-4724", 2003, "FORD", "AEROSTAR", "S.U.V.", "DARK GREEN", 4, 87.99
    DATA "X-2727", 1999, "PONTIAC", "GRAND AM", "SPORT CAR", "BLACK", 2, 45.99
    DATA "X-2327", 1999, "PONTIAC", "GRAND AM", "SPORT CAR", "RED", 2, 45.99
    DATA "X-2767", 1999, "PONTIAC", "GRAND AM", "SPORT CAR", "GREY", 2, 45.99
    DATA "X-2723", 1999, "PONTIAC", "GRAND AM", "SPORT CAR", "PURPLE", 2, 45.99
    DATA "X-8486", 2005, "PONTIAC", "TRANSPORT", "S.U.V.", "WHITE", 2, 96.99
    DATA "X-3261", 2005, "PONTIAC", "AZTEC", "S.U.V.", "YELLOW", 4, 93.99
    DATA "X-1864", 2006, "PONTIAC", "TORRENT", "S.U.V.", "RED", 4, 98.99
    DATA "X-8521", 2006, "MERCURY", "COUGAR", "SPORT", "BLACK", 2, 69.99
    DATA "X-8471", 2006, "LINCOLN", "TOWN CAR", "LUXURY", "BLACK", 4, 149.99
    DATA "X-8635", 2001, "LINCOLN", "CONTINENTAL", "LUXURY", "GOLD", 4, 139.99
    DATA "X-2643", 2006, "CHEVROLET", "F-150", "PICKUP", "GREY", 2, 95.99
    DATA "X-7143", 2006, "CHEVROLET", "CORVETTE", "SPORT", "YELLOW", 2, 131.99
    DATA "X-7378", 2006, "CHEVROLET", "MALIBU", "SEDAN", "BLACK", 4, 81.99
    SUB FindCar ' This sub goes through the data to search for a car
    DIM Counter AS INTEGER 'variables need for sub
    DIM TempMaker AS STRING
    DIM TempModel AS STRING
    DIM TempColor AS STRING
    DIM TempCarType AS STRING
    DIM TempRangeFrom AS DOUBLE
    DIM TempRangeTo AS DOUBLE
    DIM TempMax AS DOUBLE
    DIM TempMin AS DOUBLE
    DIM LeaveFindCar AS INTEGER
    DIM MoreCar AS STRING
    DIM CanDisplay AS INTEGER
    DO WHILE LeaveFindCar = 0 ' Main loop to find type of car
         ' Initialize the variables
    Counter = 0
    TempMaker = ""
    TempModel = ""
    TempColor = ""
    TempRangeFrom = 0
    TempRangeTo = 0
    CLS ' Draw the screen with the search fields"
    COLOR 15
    PRINT "FIND IDEAL CAR: (Enter one or more of these items)"
         PRINT STRING$(80, CHR$(196))
         COLOR 11
         PRINT "Car Builder:"
         PRINT "Car Model:"
         PRINT "Car Color:"
         PRINT "Price Range: From: To:"
         COLOR 10 ' GetsUser can enter any search fields he wants
         LOCATE 3, 19
         INPUT TempMaker
         LOCATE 4, 19
         INPUT TempModel
         LOCATE 5, 19
         INPUT TempColor
         LOCATE 6, 19
         INPUT TempRangeFrom
         LOCATE 6, 36
         INPUT TempRangeTo
         COLOR 15
         PRINT STRING$(80, CHR$(196))
         CanDisplay = 0
         FOR Counter = 1 TO 26 '' This loop does the actual search of the matching cars
         'We compare all string type variables as an
         'uppercase (UCASE$) and Right Trimmed (RTRIM$)
         'to avoid having to compare upper and lower case
         'Values, this makes the condtions here twice
         'as short to perform.
         IF RTRIM$(TempMaker) <> "" THEN
         IF UCASE$(RTRIM$(Cars(Counter).CarMaker)) = UCASE$(RTRIM$(TempMaker)) THEN
         IF RTRIM$(TempModel) <> "" THEN
         IF UCASE$(RTRIM$(Cars(Counter).CarName)) = UCASE$(RTRIM$(TempModel)) THEN
         IF RTRIM$(TempColor) <> "" THEN
         IF UCASE$(RTRIM$(Cars(Counter).ColorOfCar)) = UCASE$(RTRIM$(TempColor)) THEN
    IF TempRangeFrom > 0 AND TempRangeTo > 0 THEN
    IF TempRangeFrom > TempRangeTo THEN
    TempMin = TempRangeTo
    TempMax = TempRangeFrom
    ELSE
    TempMin = TempRangeFrom
    TempMax = TempRangeTo
    END IF
    ' If Price of car is in between Mininum and Maximum Price
    'Allows to display the record.
    IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
    CanDisplay = 1
    ELSE
    CanDisplay = 0
    END IF
    END IF
    ELSE
    CanDisplay = 0
    END IF
    ELSE
    ' The IF is to set Min to the smallest of
    ' the range vales and TempMax to the biggest.
    IF TempRangeFrom > 0 AND TempRangeTo > 0 THEN
    IF TempRangeFrom > TempRangeTo THEN
    TempMin = TempRangeTo
    TempMax = TempRangeFrom
    ELSE
    TempMin = TempRangeFrom
    TempMax = TempRangeTo
    END IF
    IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
    CanDisplay = 1
    ELSE
    CanDisplay = 0
    END IF
    END IF
    END IF
    ELSE
    CanDisplay = 0
    END IF
    ELSE
    IF RTRIM$(TempColor) <> "" THEN
    IF UCASE$(RTRIM$(Cars(Counter).ColorOfCar)) = UCASE$(RTRIM$(TempColor)) THEN
    ' This IF is to set Min to the smallest of
    ' the range values and Max to the biggest.
    IF TempRangeFrom > 0 AND TempRangeTo > 0 THEN
    IF TempRangeFrom > TempRangeTo THEN
    TempMin = TempRangeTo
    TempMax = TempRangeFrom
    ELSE
    TempMin = TempRangeFrom
    TempMax = TempRangeTo
    END IF
    IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
    CanDisplay = 1
    ELSE
    CanDisplay = 0
    END IF
    END IF
    ELSE
    CanDisplay = 0
    END IF
    ELSE
    ' The IF is to set Min to the smallest of
    ' the range vales and Max to the biggest.
    IF TempRangeFrom > 0 AND TempRangeTo > 0 THEN
    IF TempRangeFrom > TempRangeTo THEN
    TempMin = TempRangeTo
    TempMax = TempRangeFrom
    ELSE
    TempMin = TempRangeFrom
    TempMax = TempRangeTo
    END IF
    IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
    CanDisplay = 1
    ELSE
    CanDisplay = 0
    END IF
    ELSEIF TempRangeFrom = 0 AND TempRangeTo > 0 THEN ' The IF one of the range to be 0
    TempMin = TempRangeFrom
    TempMax = TempRangeTo
    IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
    CanDisplay = 1
    ELSE
    CanDisplay = 0
    END IF
    ELSEIF TempRangeFrom > 0 AND TempRangeTo = 0 THEN ' This IF one of the range to be 0
    TempMin = TempRangeTo
    TempMax = TempRangeFrom
    IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
    CanDisplay = 1
    ELSE
    CanDisplay = 0
    END IF
    ELSE
    CanDisplay = 1
    END IF
    END IF
    END IF
    END IF
    ELSE
    'Same as previously, all string variables are UCASEd and
    'RTRIMmed to shorten the comparison lenghts.
    IF RTRIM$(TempModel) <> "" THEN
    IF UCASE$(RTRIM$(Cars(Counter).CarName)) = UCASE$(RTRIM$(TempModel)) THEN
    IF RTRIM$(TempColor) <> "" THEN
    IF UCASE$(RTRIM$(Cars(Counter).ColorOfCar)) = UCASE$(RTRIM$(TempColor)) THEN
    IF TempRangeFrom > 0 AND TempRangeTo > 0 THEN
    IF TempRangeFrom > TempRangeTo THEN
    ' This IF is to setMin to the smallest of
    ' the range vales and Max to the biggest
    TempMin = TempRangeTo
    TempMax = TempRangeFrom
    ELSE
    TempMin = TempRangeFrom
    TempMax = TempRangeTo
    END IF
    IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
    CanDisplay = 1
    ELSE
    CanDisplay = 0
    END IF
    END IF
    ELSE
    CanDisplay = 0
    END IF
    ELSE
    ' This IF is to setMin to the smallest of
    ' the range vales and Max to the biggest
    IF TempRangeFrom > 0 AND TempRangeTo > 0 THEN
    IF TempRangeFrom > TempRangeTo THEN
    TempMin = TempRangeTo
    TempMax = TempRangeFrom
    ELSE
    TempMin = TempRangeFrom
    TempMax = TempRangeTo
    END IF
    IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
    CanDisplay = 1
    ELSE
    CanDisplay = 0
    END IF
    END IF
    END IF
    ELSE
    CanDisplay = 0
    END IF
    ELSE
    IF RTRIM$(TempColor) <> "" THEN
    IF UCASE$(RTRIM$(Cars(Counter).ColorOfCar)) = UCASE$(RTRIM$(TempColor)) THEN
    ' This IF is to setMin to the smallest of
    ' the range vales and Max to the biggest
    IF TempRangeFrom > 0 AND TempRangeTo > 0 THEN
    IF TempRangeFrom > TempRangeTo THEN
    TempMin = TempRangeTo
    TempMax = TempRangeFrom
    ELSE
    TempMin = TempRangeFrom
    TempMax = TempRangeTo
    END IF
    IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
    CanDisplay = 1
    ELSE
    CanDisplay = 0
    END IF
    ELSE
    CanDisplay = 1
    END IF
    ELSE
    CanDisplay = 0
    END IF
    ELSE
    ' This IF is to setMin to the smallest of
    ' the range vales and Max to the biggest
    IF TempRangeFrom > 0 AND TempRangeTo > 0 THEN
    IF TempRangeFrom > TempRangeTo THEN
    TempMin = TempRangeTo
    TempMax = TempRangeFrom
    ELSE
    TempMin = TempRangeFrom
    TempMax = TempRangeTo
    END IF
    IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
    CanDisplay = 1
    ELSE
    CanDisplay = 0
    END IF
    ELSEIF TempRangeFrom = 0 AND TempRangeTo > 0 THEN
    TempMin = TempRangeFrom
    TempMax = TempRangeTo
    IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
    CanDisplay = 1
    ELSE
    CanDisplay = 0
    END IF
    ELSEIF TempRangeFrom > 0 AND TempRangeTo = 0 THEN
    TempMin = TempRangeTo
    TempMax = TempRangeFrom
    IF Cars(Counter).Price >= TempMin AND Cars(Counter).Price <= TempMax THEN
    CanDisplay = 1
    ELSE
    CanDisplay = 0
    END IF
    ELSE
    CanDisplay = 1
    END IF
    END IF
    END IF
    END IF
    IF CanDisplay = 1 THEN ' If car match fields entered it is displayed
              COLOR 11
    PRINT Cars(Counter).CarNumber;
    PRINT " " + RTRIM$(Cars(Counter).License);
    PRINT " - " + RTRIM$(Cars(Counter).CarMaker);
    PRINT " " + RTRIM$(Cars(Counter).CarName);
    PRINT " " + RTRIM$(Cars(Counter).Description);
    PRINT " " + RTRIM$(Cars(Counter).ColorOfCar);
    PRINT TAB(60); USING " $###.##"; Cars(Counter).Price
    CanDisplay = 0
    END IF
    NEXT Counter ' displays line after listing cars
    COLOR 15
    PRINT STRING$(80, CHR$(196))
    DO WHILE UCASE$(MoreCar) <> "Y" AND UCASE$(MoreCar) <> "N"
    LOCATE CSRLIN, 1 ' This loop ask useers if they want another car search
    PRINT "Find Another Car (Y/N)"
    INPUT MoreCar
    LOOP
    IF UCASE$(MoreCar) = "N" THEN ' If user entered "n" the loop is exited
    LeaveFindCar = 1
    END IF
    MoreCar = ""
    LOOP
    END SUB
    SUB Main
    ' This SUB is the main part of the program. It displays
    ' the menu and accepts the choices from the user, when the
    ' user picks a valid value, it executes the proper choice
    DO
    CLS
    COLOR 15
    'print the menu on the screen      
    LOCATE 1, 33
    PRINT "RENT CARS PLUS"
    LOCATE 2, 1
    PRINT STRING$(80, CHR$(196))
    COLOR 11
    PRINT " 1 - Pay Bill"
    PRINT " 2 - Rent Car"
    PRINT " 3 - Find Ideal Car"
    PRINT " 999 - Exit"
    COLOR 15
    PRINT STRING$(80, CHR$(196))
    INPUT "Choice: ", Choice ' The user enters his/her choice
    IF Choice = 999 THEN END
    IF Choice <> 999 AND Choice <> 1 AND Choice <> 2 AND Choice <> 3 THEN
    PRINT " Error Please Enter Correct Choice! " ' If not valid answer user is asked to enter correct choice
    END IF
    SELECT CASE Choice ' This Select Case executes the subprograms options
    CASE 1
    CALL PayBill
    CASE 2
    CALL RentCar
    CASE 3
    CALL FindCar
    CASE 5
    END SELECT
    LOOP UNTIL Choice = 999
    END SUB
    SUB PayBill' This sub does the bill paying process.
    ' it asks a few question to the user to get the right
    ' information and be able to pay the given bill.
    DIM CustName AS STRING
    DIM MoreBill AS INTEGER
    DIM Answer AS STRING
    DIM Flag AS INTEGER
    COLOR 15
    MoreBill = 0 ' To start loop variable
    DO WHILE MoreBill = 0 ' Loop to start the Bill Paying Process
    StartBill:
         ' Displays screen to user
    CLS
    COLOR 15
    PRINT "PAY A BILL"
    PRINT STRING$(80, CHR$(196))
    INPUT "Customer Name: ", CustName ' user enters customer name
    Flag = 0
    FOR Q = 0 TO 4 ' Loops to search for customer name in array
    IF UCASE$(RTRIM$(p(Q).CustName)) = UCASE$(RTRIM$(CustName)) THEN
    Flag = 1
    PRINT p(Q).CustName; p(Q).Bill
    EXIT FOR
    END IF
    NEXT Q
    '' If customer name invalid error message displayed
    IF Flag = 0 THEN
    PRINT "Invalid name. Press a key to try again."
    DO WHILE INKEY$ <> "": LOOP
    GOTO StartBill
    END IF
    MethodInput:
    DO
    LOCATE 4, 1     ' Display Payment methods and wait for user to pick one
    COLOR 11
    PRINT "We only use Visa or American Express. How do you wish to pay?"
    PRINT "1 - Visa"
    PRINT "2 - American Express"
    PRINT "3 - Check"
    PRINT "4 - Cash"
    INPUT "Select 1, 2, 3, or 4: ", howtopay$ ' User enters way to pay
    IF howtopay$ = "1" OR howtopay$ = "2" THEN ' CArd number asked for If american or visa
    INPUT "Enter account number: ", cardnum$
    ELSEIF howtopay$ <> "3" AND howtopay$ <> "4" THEN
    PRINT "You must select method of payment."
    END IF
    LOOP WHILE howtopay$ < "1" OR howtopay$ > "4"
    PaymentInput:
    '' users enters payment amount
    INPUT "Payment Amount (0 to cancel the transaction): ", PayAmount
    IF PayAmount <> 0 THEN
    IF PayAmount > p(Q).Bill THEN
    '' If payment bigger than amount owed message displayed
    PRINT "Payment is bigger than amount due. Press key to enter payment."
    DO WHILE INKEY$ = "": LOOP
    GOTO PaymentInput
    ELSE
    ' If amount valid , payment subtracted from amount owed
    p(Q).Bill = p(Q).Bill - PayAmount
    PRINT "New balance is "; USING "$#####.##"; p(Q).Bill
    END IF
    END IF
         '' Loop ask if user wishes to pay another bill
    DO WHILE UCASE$(RTRIM$(Answer)) <> "Y" AND UCASE$(RTRIM$(Answer)) <> "N"
    COLOR 15
    LOCATE 48, 1
    PRINT "Pay Another Bill (Y/N) ";
    INPUT Answer
    LOOP
    IF UCASE$(RTRIM$(Answer)) = "N" THEN ' If answer is "N" then loop exited
    MoreBill = 1
    END IF
    LOOP
    END SUB
    SUB ReadCarData
    ' This sub reads all data from the DATA statements
    ' And puts them in the Cars array
    DIM Counter AS INTEGER
    FOR Counter = 1 TO 26
    Cars(Counter).CarNumber = Counter
    READ Cars(Counter).License
    READ Cars(Counter).Year
    READ Cars(Counter).CarMaker
    READ Cars(Counter).CarName
    READ Cars(Counter).Description
    READ Cars(Counter).ColorOfCar
    READ Cars(Counter).NumberOfDoors
    READ Cars(Counter).Price
    NEXT Counter
    END SUB
    SUB RentCar
    ' This sub does the renting of a car
    ' to a customer. This ask several questions
    ' in order to get the right customer and the right
    ' car to rent then it rents it.
    DIM MoreRent AS INTEGER
    DIM TempCustomer AS INTEGER
    DIM TempBill AS DOUBLE
    DIM Answer AS STRING
    DIM TempPrice AS DOUBLE
    DIM TempInsurance AS DOUBLE
    DIM CustName AS STRING
    DIM Number AS STRING
    DIM CarNumber AS INTEGER
    DIM Days AS INTEGER
    DIM Q AS INTEGER
    MoreRent = 0 ' Loop for rental process
    DO WHILE MoreRent = 0
    InputName:
    CLS ' Display screen to user
    COLOR 15
    PRINT "RENT A CAR"
    PRINT STRING$(80, CHR$(196))
    COLOR 11
    LOCATE 3, 1
    INPUT " Full Name: ", CustName ' user enters his name
    IF RTRIM$(CustName) = "" THEN
    PRINT "You Must Enter Your Name. Press a key to retry." ' User is told he must enter a name
    DO WHILE INKEY$ = "": LOOP
    GOTO InputName
    ELSE
    FOR Q = 0 TO 4
    IF UCASE$(RTRIM$(p(Q).CustName)) = UCASE$(RTRIM$(CustName)) THEN
    Flag = 1
    PRINT p(Q).CustName; p(Q).Bill
    TempCustomer = Q
    EXIT FOR
    END IF
    NEXT Q
    END IF
    InputNumber:
    LOCATE 5, 1
    INPUT " Phone Number: ", Number ' User enters phone number
    IF RTRIM$(Number) = "" THEN
    PRINT "You Must a phone number. Press a key to retry." ' User is warned he must enter a number
    DO WHILE INKEY$ = "": LOOP
    GOTO InputNumber
    END IF
    CarInput:
    LOCATE 7, 2
    COLOR 11
    INPUT "Car Number: ", CarNumber     
    ' This awaits a car number from the user.
    IF CarNumber < 1 AND CarNumber > 26 THEN ' If the car number is out of range, we warn and start again
    PRINT "Car Number must be between 1 and 26. Press a key to retry."
    DO WHILE INKEY$ = "": LOOP
    GOTO CarInput
    ELSE
    ' No need to search, we just display the car information
    COLOR 14
    PRINT RTRIM$(Cars(CarNumber).License) + " - ";
    PRINT Cars(CarNumber).Year;
    PRINT RTRIM$(Cars(CarNumber).CarMaker) + " " + RTRIM$(Cars(CarNumber).CarName) + " ";
    PRINT RTRIM$(Cars(CarNumber).ColorOfCar)
    PRINT "PRICE: "; USING "$####.##"; Cars(CarNumber).Price
    END IF
    DaysInput:
    LOCATE 10, 1
    COLOR 11
    INPUT " Number of Days to rent: ", Days
    ' This awaits for a number of days to rent the car for.
    IF Days < 1 AND Days > 31 THEN
    PRINT "Days are 1 to 31. Press a key to retry."
    ' Can't have less than 1 day or more than a month or we warn.
    DO WHILE INKEY$ = "": LOOP
    GOTO DaysInput
    END IF
    TempPrice = Days * Cars(CarNumber).Price
    ' Calculate the Price of the rental
    InsuranceInput:
    LOCATE 13, 1
    COLOR 11
    DO WHILE UCASE$(RTRIM$(Answer)) <> "Y" AND UCASE$(RTRIM$(Answer)) <> "N"
    COLOR 11
    LOCATE 13, 1
    PRINT "Add Insurance (Y/N)";
    ' the customer has the option to purchase insurance here.
    INPUT Answer
    LOOP
    IF UCASE$(Answer) = "Y" THEN
    COLOR 11
    DO WHILE UCASE$(RTRIM$(Answer)) <> "F" AND UCASE$(RTRIM$(Answer)) <> "D"
    'we loop until the users enters y or n
    COLOR 11
    LOCATE 14, 1
    PRINT "(F)ixed Or (D)aily Amount";
    ' If the user selected yes, we ask for fixed or daily insurance amount.
    INPUT Answer
    LOOP
    ' if Fixed amount was picked we ask for that amount
    IF UCASE$(RTRIM$(Answer)) = "F" THEN
    INPUT "Fixed Insurance: ", TempInsurance
    ELSE
    TempInsurance = 15 * Days ' If Daily was picked we multiply 15 by the number of days rented
    END IF
    END IF
    DO     ' this loop asks for a payment method.
    LOCATE 17, 1
    PRINT "We only use Visa or American Express. How do you wish to pay?"
    PRINT "1 - Visa"
    PRINT "2 - American Express"
    PRINT "3 - Check"
    PRINT "4 - Cash"
    INPUT "Select 1, 2, 3, or 4: ", howtopay$
    IF howtopay$ = "1" OR howtopay$ = "2" THEN
    INPUT "Enter account number: ", cardnum$
    ELSEIF howtopay$ <> "3" AND howtopay$ <> "4" THEN
    PRINT "You must select method of payment."
    END IF
    LOOP WHILE howtopay$ < "1" OR howtopay$ > "4"
    COLOR 14
    PRINT     
    ' This part displays some totals to the user.
    PRINT "Rental Price = "; USING "$##,###.##"; TempPrice
    PRINT "Insurance Amount = "; USING "$##,###.##"; TempInsurance
    PRINT "Total Price = "; USING "$##,###.##"; TempPrice + TempInsurance
    PRINT " ----------"
    TempBill = p(TempCustomer).Bill
    TempBill = TempBill + (TempPrice + TempInsurance)
    p(TempCustomer).Bill = TempBill
    PRINT "New Balance = "; USING "$##,###.##"; TempBill
    PRINT " =========="
    Answer = ""
    ' This loop asks if the user wants to rent another car.
    DO WHILE UCASE$(RTRIM$(Answer)) <> "Y" AND UCASE$(RTRIM$(Answer)) <> "N"
    COLOR 15
    LOCATE 48, 1
    PRINT "Rent Another Car (Y/N) ";
    INPUT Answer
    LOOP
    IF UCASE$(RTRIM$(Answer)) = "N" THEN
    ' If user selected N, we assign value to exit the loop
    MoreRent = 1
    END IF
    LOOP
    END SUB
    Im really good at programming but really suck at algorithms can someone please please write in a algorithm form for me , i need it by friday i would greatly be thankful for u

    Im really good at programming but really suck at algorithms
    >If your are 'really good' at programming, you will be able to solve this problem. Because, it has nothing to do with algorithm.
    >>can someone please please write in a algorithm form for me , i need it by friday i would greatly be thankful for u
    >Wrong person, in the wrong place.

  • How to calculate net price based on customized formula

    Hi  all expert,
    I have a requirement in a rental process:
    The price of a rental is defined as daily rate (e.g. 100/day) and monthly rate (e.g. 2500/month).
    when I create a rental contract, I'd like SAP to calculate net price based on contract duration with both rate and use the lower one.
    e.g. rental 5 days. use daily rate = 500; monthly rate = 2500; So use 500.
    e.g. rental >=26 days. use daily rate >= 2600; monthly rate = 2500; So use monthly rate 2500.
    I was think to use price condition scales to set:
    1 - 25 days: 100/day
    >=26 days: 2500/month
    But the problem is there are 30day a month and 31 days a month. When the contract has to calculate partial month, daily rate has to be calculated as monthly rate/actual days in the month.
    How to handle it?
    Thank you in advance!    

    There might be more than one method to resolve the requirement.
    You can develop a routine in t.code VOFM and add it in the column  AltCTy. The logic in the routine can be if the netvalue exceeds 2500, then the net value should be 2500.
    The second option is you can try with using standard. In VK12, after maintaining the pricing as 100/day, go to details. Then in upper limit add value as 2500. Then create a test sales order for 25 days and more than 25 days, then check the values. I think this can help with your scenario.
    Regards,

  • Case project

    i really did not understand the following case
    In previous chapter, we have created procedures, functions, and packages to support the rental process. As application modifications are made in the future, we need to be able to identify all object dependencies to test our changes. Use the data dictionary and/or the dependency tree utility to complete a list of dependencies for all the more movies database objects.Do so in the format table
    the dependency type should be listed as direct or indirect
    Here is the table format
    Object name d ependent object dependency type

    Thank you Vivek. Here is what i did
    SQL> select name,referenced_name, dependency_type from user_dependencies;
    NAME REFERENCED_NAME DEPE
    MM_RENTALS_PKG STANDARD HARD
    MM_RENTALS_PKG STANDARD HARD
    STATUS_SP STANDARD HARD
    SUB_CALC_SF STANDARD HARD
    MOVIE_RETURN_SP STANDARD HARD
    MOVIE_STOCK_INFO STANDARD HARD
    SHIP_CALC3_SF STANDARD HARD
    ORDER_INFO_PKG STANDARD HARD
    PHONE_FMT_SP STANDARD HARD
    STOCK_CK_SP STANDARD HARD
    ORDER_TOTAL_SP2 STANDARD HARD
    NAME REFERENCED_NAME DEPE
    CONTACT_OT STANDARD HARD
    BB_CONTACT STANDARD HARD
    CONTACT_OT STANDARD HARD
    BB_AUDIT_TRG STANDARD HARD
    ORDER_INFO_PKG STANDARD HARD
    RUN_NOCOPY_SP STANDARD HARD
    TEST_NOCOPY_SP STANDARD HARD
    PROMO_TEST_SP STANDARD HARD
    BASK_CALC_SP STANDARD HARD
    TAX_CALC2_SF STANDARD HARD
    LOGIN2_SP STANDARD HARD
    NAME REFERENCED_NAME DEPE
    LOGIN_SP STANDARD HARD
    DEPTREE_FILL STANDARD HARD
    ORDER_TOTAL_SP STANDARD HARD
    TOT_PURCH_SF STANDARD HARD
    SHOP_QUERY_PKG STANDARD HARD
    TAX_COST_SP STANDARD HARD
    PROD_ADD_SP STANDARD HARD
    SHOP_QUERY_PKG STANDARD HARD
    MOVIE_RENT_SP STANDARD HARD
    MEMBER_CK_SP STANDARD HARD
    ORD_SHIP_SF STANDARD HARD
    NAME REFERENCED_NAME DEPE
    SHIP_COST_SP STANDARD HARD
    STOCK_CK_SP DBMS_STANDARD HARD
    DEPTREE_FILL DBMS_STANDARD HARD
    IDEPTREE XML_SCHEMA_NAME_PRESENT HARD
    DEPTREE XML_SCHEMA_NAME_PRESENT HARD
    DEPTREE_FILL ALL_OBJECTS HARD
    DEPTREE ALL_OBJECTS HARD
    DEPTREE_FILL PUBLIC_DEPENDENCY HARD
    STATUS_SP SYS_STUB_FOR_PURITY_ANALYSIS HARD
    STOCK_CK_SP SYS_STUB_FOR_PURITY_ANALYSIS HARD
    SUB_CALC_SF SYS_STUB_FOR_PURITY_ANALYSIS HARD
    NAME REFERENCED_NAME DEPE
    TAX_CALC2_SF SYS_STUB_FOR_PURITY_ANALYSIS HARD
    SHIP_CALC3_SF SYS_STUB_FOR_PURITY_ANALYSIS HARD
    MOVIE_RETURN_SP SYS_STUB_FOR_PURITY_ANALYSIS HARD
    MOVIE_RENT_SP SYS_STUB_FOR_PURITY_ANALYSIS HARD
    MOVIE_STOCK_INFO SYS_STUB_FOR_PURITY_ANALYSIS HARD
    ORDER_TOTAL_SP2 SYS_STUB_FOR_PURITY_ANALYSIS HARD
    ORDER_TOTAL_SP SYS_STUB_FOR_PURITY_ANALYSIS HARD
    TC_TEST_SP1 SYS_STUB_FOR_PURITY_ANALYSIS HARD
    RUN_NOCOPY_SP SYS_STUB_FOR_PURITY_ANALYSIS HARD
    TC_TEST_SP2 SYS_STUB_FOR_PURITY_ANALYSIS HARD
    PROMO_TEST_SP SYS_STUB_FOR_PURITY_ANALYSIS HARD
    NAME REFERENCED_NAME DEPE
    BASK_CALC_SP SYS_STUB_FOR_PURITY_ANALYSIS HARD
    MEMBER_CK_SP SYS_STUB_FOR_PURITY_ANALYSIS HARD
    DEPTREE_FILL SYS_STUB_FOR_PURITY_ANALYSIS HARD
    TOT_PURCH_SF SYS_STUB_FOR_PURITY_ANALYSIS HARD
    PROD_ADD_SP SYS_STUB_FOR_PURITY_ANALYSIS HARD
    ORD_SHIP_SF SYS_STUB_FOR_PURITY_ANALYSIS HARD
    MM_RENTALS_PKG DBMS_OUTPUT HARD
    MOVIE_RETURN_SP DBMS_OUTPUT HARD
    MOVIE_RENT_SP DBMS_OUTPUT HARD
    STOCK_CK_SP DBMS_OUTPUT HARD
    ORDER_INFO_PKG DBMS_OUTPUT HARD
    NAME REFERENCED_NAME DEPE
    RUN_NOCOPY_SP DBMS_OUTPUT HARD
    DEPTREE_FILL DEPTREE_SEQ HARD
    DEPTREE ALL_OBJECTS HARD
    DEPTREE_FILL ALL_OBJECTS HARD
    BB_CONTACT CONTACT_OT HARD
    CONTACT_OT CONTACT_OT HARD
    DEPTREE_FILL PUBLIC_DEPENDENCY HARD
    DEPTREE_FILL DEPTREE_TEMPTAB HARD
    DEPTREE DEPTREE_TEMPTAB HARD
    IDEPTREE DEPTREE HARD
    ORDER_TOTAL_SP SHIP_COST_SP HARD
    NAME REFERENCED_NAME DEPE
    MM_RENTALS_PKG DBMS_OUTPUT HARD
    MOVIE_RETURN_SP DBMS_OUTPUT HARD
    MOVIE_RENT_SP DBMS_OUTPUT HARD
    STOCK_CK_SP DBMS_OUTPUT HARD
    ORDER_INFO_PKG DBMS_OUTPUT HARD
    RUN_NOCOPY_SP DBMS_OUTPUT HARD
    LOGIN_SP MEMFMT1_SF HARD
    LOGIN2_SP MEMFMT1_SF HARD
    LOGIN_SP MEMFMT1_SF HARD
    LOGIN2_SP MEMFMT1_SF HARD
    RUN_NOCOPY_SP TEST_NOCOPY_SP HARD
    NAME REFERENCED_NAME DEPE
    BASK_CALC_SP SHIP_CALC3_SF HARD
    BASK_CALC_SP TAX_CALC2_SF HARD
    BASK_CALC_SP SUB_CALC_SF HARD
    TC_TEST_SP1 TC_TEST_SP2 HARD
    ORDER_INFO_PKG ORDER_INFO_PKG HARD
    MM_RENTALS_PKG MM_MOVIE HARD
    MOVIE_RETURN_SP MM_MOVIE HARD
    MOVIE_RENT_SP MM_MOVIE HARD
    MOVIE_STOCK_INFO MM_MOVIE HARD
    MM_RENTALS_PKG MM_RENTAL HARD
    MOVIE_RETURN_SP MM_RENTAL HARD
    NAME REFERENCED_NAME DEPE
    MOVIE_RENT_SP MM_RENTAL HARD
    MM_RENTALS_PKG MM_RENTAL_SEQ HARD
    MOVIE_RENT_SP MM_RENTAL_SEQ HARD
    MM_RENTALS_PKG MM_RENTALS_PKG HARD
    STOCK_CK_SP BB_PRODUCT HARD
    BB_AUDIT_TRG BB_PRODUCT HARD
    LOGIN_SP BB_SHOPPER HARD
    LOGIN2_SP BB_SHOPPER HARD
    MEMBER_CK_SP BB_SHOPPER HARD
    ORDER_INFO_PKG BB_BASKET HARD
    PROMO_TEST_SP BB_BASKET HARD
    NAME REFERENCED_NAME DEPE
    STATUS_SP BB_BASKET HARD
    BASK_CALC_SP BB_BASKET HARD
    TAX_CALC2_SF BB_BASKET HARD
    BB_SHIP_VU BB_BASKET HARD
    SUB_CALC_SF BB_BASKETITEM HARD
    SHIP_CALC3_SF BB_BASKETITEM HARD
    ORDER_TOTAL_SP2 BB_BASKETITEM HARD
    ORDER_TOTAL_SP BB_BASKETITEM HARD
    BB_BASKETITEM_VU BB_BASKETITEM HARD
    TAX_CALC2_SF BB_TAX HARD
    STATUS_SP BB_BASKETSTATUS HARD
    NAME REFERENCED_NAME DEPE
    BB_SHIP_VU BB_BASKETSTATUS HARD
    PROMO_TEST_SP BB_PROMOLIST HARD
    TC_TEST_SP1 BB_TEST1 HARD
    TC_TEST_SP2 BB_TEST1 HARD
    BB_AUDIT_TRG BB_PRODCHG_AUDIT HARD
    PROD_ADD_SP BB_PRODID_SEQ HARD
    SHOP_QUERY_PKG SHOP_QUERY_PKG HARD
    As you can see the query execute all the table i have in my database. how about if i want just the movie tables. and also the user_dependencies
    will extract just the direct dependencies not the indirect.
    is there away to do it with deptree
    Thank you so much

  • VBAP-ANZSN not getting updated when writing serial number to order

    Hey ABAP,
    i got some Problem with serial numbers.
    We have a rental process, where user gives in serial number at time of delivery.
    Since we need to create orders based on original order, we need to take the serialnumber from the delivery and write it back to the order, so when order is copied, serial number will be copied as well.
    I use following Code to write that serial number into the order, and it works:
    code -> next post
    FYI: This coding is in a rouitine which is called by perform on commit, in an own update task function module which is beeing called in MV50AFZ1.
    So where is the Problem?
    The order gets correctly updated with the serial number which got input in the delivery.
    When looking at it through VA02 all if fine. You can see the serial number, and you also can see that there is 1 serialnumber of 1 serial numbers.
    BUT when having a look at the corresponding VBAP record for this order, VBAP-ANZSN stays empty.
    in copy routines, serialnumbers will only get copied as well if VBAP-ANZSN > 0.
    Cause if its 0 the system thinks: "yikes there are no serial numbers i got nothing to do".
    any ideas?
    Edited by: Florian Kemmer on Sep 30, 2009 12:43 PM

    DATA: lt_ser01            TYPE TABLE OF ser01,
            ls_ser01            TYPE ser01,
            lv_equnr            TYPE equnr,
            lv_sernr            TYPE sernr,
            lv_matnr            TYPE matnr,
            lt_riwol            TYPE TABLE OF riwol1,
            ls_riwol            TYPE riwol1,
            lv_vbeln            TYPE vbeln,
            lv_posnr            TYPE posnr,
            lt_serxx            TYPE TABLE OF rserxx,
            ls_serxx            TYPE rserxx,
            ls_lips             TYPE lips,
            ls_likp             TYPE likp,
            ls_vbak             TYPE vbak,
            ls_vbap             TYPE vbap.
      break fis-kemmer.
      " Lieferdaten besorgen
      SELECT SINGLE *
      FROM   likp
      INTO   CORRESPONDING FIELDS OF ls_likp
      WHERE  vbeln = gv_vbeln_vl.
      SELECT SINGLE *
      FROM   lips
      INTO   CORRESPONDING FIELDS OF ls_lips
      WHERE  vbeln = gv_vbeln_vl
      AND    posnr = gv_posnr_vl.
      " Serialnummer aus der Lieferung besorgen
      SELECT SINGLE *
      FROM   ser01
      INTO   CORRESPONDING FIELDS OF ls_ser01
      WHERE  lief_nr = gv_vbeln_vl
      AND    posnr   = gv_posnr_vl.
      SELECT SINGLE equnr
      FROM   objk
      INTO   lv_equnr
      WHERE  obknr = ls_ser01-obknr.
      SELECT SINGLE sernr
      FROM   equi
      INTO   lv_sernr
      WHERE  equnr = lv_equnr.
      CHECK NOT lv_sernr IS INITIAL.
      " Matrialnummer aus der Lieferung besorgen
      SELECT SINGLE matnr
      FROM   lips
      INTO   lv_matnr
      WHERE  vbeln = gv_vbeln_vl
      AND    posnr = gv_posnr_vl.
      CHECK NOT lv_matnr IS INITIAL.
      SELECT SINGLE vbelv posnv
      FROM   vbfa
      INTO   (lv_vbeln, lv_posnr)
      WHERE  vbeln    = gv_vbeln_vl
      AND    posnn    = gv_posnr_vl
      AND    vbtyp_v  = 'C'.
      " Auftragsdaten besorgen
      SELECT SINGLE *
      FROM   vbak
      INTO   CORRESPONDING FIELDS OF ls_vbak
      WHERE  vbeln = lv_vbeln.
      SELECT SINGLE *
      FROM   vbap
      INTO   CORRESPONDING FIELDS OF ls_vbap
      WHERE  vbeln = lv_vbeln
      AND    posnr = lv_posnr.
      ls_riwol-sernr = lv_sernr.
      ls_riwol-matnr = lv_matnr.
      APPEND ls_riwol TO lt_riwol.
      ls_serxx-anzsn      = ls_ser01-anzsn.
      ls_serxx-vbtyp      = ls_ser01-vbtyp.
      ls_serxx-sdaufnr    = lv_vbeln.
      ls_serxx-lief_nr    = gv_vbeln_vl.
      ls_serxx-posnr      = gv_posnr_vl.
      ls_serxx-kunde      = ls_likp-kunnr.
      ls_serxx-obknr      = ls_ser01-obknr.
      ls_serxx-datum      = ls_ser01-datum.
      ls_serxx-letznr     = ls_ser01-letznr.
      ls_serxx-vorgang    = ls_ser01-vorgang.
      ls_serxx-uzeit      = ls_ser01-uzeit.
      ls_serxx-vbtyp      = ls_ser01-vbtyp.
      ls_serxx-bwart      = ls_ser01-bwart.
      ls_serxx-vkorg      = ls_ser01-vkorg.
      ls_serxx-vtweg      = ls_ser01-vtweg.
      ls_serxx-spart      = ls_ser01-spart.
      ls_serxx-ltsps      = ls_ser01-ltsps.
      ls_serxx-sd_auart   = ls_vbak-auart.
      ls_serxx-sd_postyp  = ls_vbap-pstyv.
      ls_serxx-werk       = ls_vbap-werks.
      break fis-kemmer.
      APPEND ls_serxx TO lt_serxx.
      CALL FUNCTION 'IWOL_WV_ADD_OBJECTS'
        EXPORTING
          i_sdaufnr           = lv_vbeln
          i_sdposnr           = lv_posnr
          to_type             = 'SD'
        TABLES
          t_riwol1            = lt_riwol
          t_ser02             = lt_serxx
        EXCEPTIONS
          no_object_list      = 1
          entry_exists        = 2
          invalid_material    = 3
          invalid_serialnr    = 4
          invalid_equipment   = 5
          invalid_location    = 6
          invalid_assembly    = 7
          status_not_allowed  = 8
          equi_foreign_key    = 9
          equi_system_failure = 10
          customer_exit_error = 11
          OTHERS              = 12.
      IF sy-subrc = 0.
        CALL FUNCTION 'IWOL_WV_POST_OBJECT_LIST'
          EXPORTING
            i_sdaufnr      = lv_vbeln
            i_sdposnr      = lv_posnr
          EXCEPTIONS
            no_object_list = 1
            other_errors   = 2
            OTHERS         = 3.
      ENDIF.
    Edited by: Florian Kemmer on Sep 30, 2009 12:46 PM

  • Real Estate Customization

    Dear SAP Users,
    Please let me know on how to Start with SAP RE (Real Estate) Customization. While prepareing Sales Order , is there any reference with Objects like Business entity, property or lot.
    Please explain.
    regards,
    GHS.

    Hi,
    To use the SAP RE (SAP Real Estate) component, you need to install the following R/3 components:
    •     Financial Accounting (FI)
    •     Controlling (CO)
    Depending on the functions you require, you may install the following additional components:
    Required function      Required component/subcomponent
    Planning and execution of planned or unplanned maintenance, modernization measures or new development in the real estate area     Plant Maintenance (PM)
    Ordering materials required for plant maintenance tasks on real estate objects     Materials Management (MM)
    Planning complex maintenance and investment measures with high risk factors     Project System (PS)
    Value-based management and treatment of fixed assets     Asset Accounting (FI-AA)
    Internal control function via profit center     Profit Center Accounting (EC-PCA)
    Process Flow
    1.     Create the master data required, such as business entity, building, property and rental unit. Determine the master data required for service charge settlements.
    2.     The rental process covers all activities involved, from receipt of the rental request through automatic assignment to vacant rental units and creating an offer up to the lease-out itself. Here you have to differentiate between internal and external usage.
    If you opt for sales tax for your commercial real estate, the system automatically determines the input tax and divides it into deductible and non-deductible portions during input tax processing.
    3.     You use the lease-in processes if the objects you are renting are not entirely in your own real estate portfolio. Using the lease-in, you map the agreed recurring or one-time payments. You can assign other vendor contracts defining, for instance, suppliers and services to lease-ins. Resubmission rules help you check the contract structure once or periodically (for example, three months before contract end or once a year).
    4.     Rental accounting incorporates processes related to posting activities. The main functions here are the debit position (for lease-outs) and periodic posting (for lease-ins), incoming payments, dunning and account maintenance.
    5.     You carry out the service charge settlement. Apportionable operating and heating expenses are settled against the advance payments made and then adjusted accordingly. If heating expenses are settled using an external company, data is exchanged by means of DME tapes.
    6.     You then plan the implementation of rent adjustments. The system supports your rent adjustments with the generally used adjustment methods as well as your own user-defined adjustments:
    o     Representative list of rents
    o     Comparative group of apartments
    o     Index-linked
    o     Modernizations
    o     Expert opinion
    7.     The system supports your balance sheet preparations by offering accrual/deferral functions for selected periods.
    8.     If you manage the rented object on behalf of a third party, a management contract regulates the relationship between you, as manager, and the owner. The related processes are mapped in the third-party management function.
    Reward if useful
    Regards
    Adarsh

  • Trouble renting movie from itunes

    Has anybody ever received a message when renting movies from iTunes directly on to Apple TV, 2nd G, Error-unable to download content, try again later.  I have not rented anything in a while and I do not seem to be able to move past this point in the rental process.  The movie is behaving like it has been rented, as it is showing I have 29 days to view.  Upon pressing play, it starts showing the loading, and then instead of starting to play the movie or provide an estiamte of how long until it can be played, it goes to the error message above.

    Thank you for the suggestion.  I did pull all cables and reboot the router.  Some additional information I found as I tried other aspects of Apple TV.  Via iTunes I could download and watch theater trailers.  On You Tube I could watch Selected content.  However, when I tried a You Tube Search, for a topic, I receieved yet another strange message indicating a connection issue.  However, mutliple tasks on the menu do connect to the internet and work fine.  I have rebooted the Apple TV several times.  It almost seems if the software of firmware is corrupted.  Does anybody have any additonal thoughts or similar experiences.

  • "Valid address necessary to use store credit" ERROR MESSAGE

    I have been unable to complete the rental process.
    I bought Apple TV and was able to connect to my WI-FI, ugrade the firmware, enter my personal settings. Ther problem is that when I select a movie and click to rent it, it connects to iTunes Store and comes back with an error message about "valid address needed to use store credit"
    I checked my .mac account personal and billing settings and everything seems OK. I am not even sure what "store credit" means. I am trying to execute a transaction with a credit card on file...
    Thanks.RS.

    I had the same problem. I tried logging in using my .mac address, thinking that that would work. Is it supposed to work? Doesn't work for me. Not only that, but I can't figure out how to go back and correct it and change it to something else.
    Why would Apple let me buy music and movies using my .mac account, and not rent movies? Or is this pilot error and I'm doing something stupid?
    Suggestions welcome.

Maybe you are looking for