Charge Types

Hi Gurus,
Please tell me how to track different types of charges levied by bank?
Please tell me the configuration path and what are the important fields required?

Hi Gverma
Normally bank charges
Commission
Interest
Locker deposit
Charges for service
You need to track the charges as per the code used by the bank. Normally in the bank has some codes for each charges. If you are using Electronic bank statement, you need to make settings in GLOBAL settings for EBS in IMG.
thanks
Ashok
Assign points for useful answer

Similar Messages

Payment Term/BP on the level of Charge type in FWO

According to business process I have 2 variants of payment term for transportation with payer:
1)      Prepaid (paid by Agency1(Payer1) in POL port of Loading)
2)      Collect (paid by Agency2(Payer2) in POD port of discharge)
3)      Today customer has a requirement to issue several settlements from one FWO to different business partners on the level of charge type.
Example:
BP Role: Payer
BP : Payer 1
Payment term: will pay with term prepaid:
Charge type1 - NTFR (Net Ocean Freight)
Charge type2 - BAF (Bunker Adjustment Factor)
BP Role: Payer
BP : Payer 2
Payment term: will pay with term collect:
Charge type3 - DTHC
The problem is how to combine several terms(prepaid/collect/direct) with several BP Roles(Payer)/BP(Payer1/Payer2)on the level of charge type(service) in FWO.
From the fisrt sight this case could be some way covered by standard on 9.1 functionality of «Charge type activation based on incoterm».
But at the same time we some issues with this standard solution, because we need to split payer and term not only for the whole stage, but also for different charges in one stage. An example of this could be port to port transportation without any pre-carriage or on-carriage, but with OTHC/DTHC that could be paid in any term(P/C) separately by the appropriate agent in POL or POD. At the same time all the transportation costs will be associated only with one stage of transportation.
Do anybody has an idea how to split payment term deeper than level of stage?

Hi,
You can use the "Flexible Settlement" function in TM9.1.
Assign the charge types to settlement group.
Assign the settlement group to settlement rule.
Assign the settlement rule to settlement profile.
Best Regards
Clark Huang

How to determine Charge types in forwarding order ?

Hi Experts,
I am new to SAP TM, I am configuring the charge management.
Please provide step by step configurations to determine charge types automatically in forwarding order ASAP.
Thanks,
Shakti

Following SAP Notes to be referred for Service Tax:
1. 778976 u2013 Service Tax and Ecess on Service Tax
2. 1032265 - SEcess on Service Tax
Regards
AK

Discrete manufacturing Resource Charge Type manual Versus Automatic

We are implementing Oracle Discrete manufacturing, we want to know the pros and cons for using manual versus WIP move resource charge type and what is the best practice in this regards.
Thanks
Mohamed Abo Zekry

Steps for SD Variant Configuration
Some light on Variant Configuration in Detail.
The procedure is as follows:
1. Create a Material - KMAT type with Item category (002)
2. Create Charateristics in CT04 - Zbike, where in values mention the Color of the bile like Red, Blue etc
3. Create another characteristics in CT04 - ZPrice, where directly go the additional data tab and maintain the table SDCOM and field VKOND (ABAP Dictionary it will ask for)
4. Assign these two characteristics to a Class in CL01 - ZBikeclass ( Type 300) in characteristics tab page.
5. Then go to CU41 Configuration profile select the material and enter the description click on the class assignment ie assign Zbikclass.
Now go back to CT04 - enter Zbike -go to values- select Red- go to extras - Other Dependencies - Select Procedure enter in front 10 write - $self.ZPrice='Red' and save
6. Now go back go to extras - Other Dependencies - assignments and assign relationship ( by default it will come just save)
7. Now select Blue- go to extras - Other Dependencies - Editor - Select Procedure enter in front of 10 write - $self.ZPrice='Blue' and save
8. Now go back go to extras - Other Dependencies - assignments and assign relationship ( by default it will come just save)
9. Now go to VK11 - Enter VA00 (Condition)(For Std RVA001 Pricing Procedure) - enter variant Red and Blue give the rates accordingly and create the sales order.
Reward if it helps
Regards,
Anbu

OSP Item, type Currency, charge type PO Move, doesn't charge WIP job.

Oracle Apps Version: 11.5.10
Regarding outside processing resources that are of type 'Currency'.
These are PO Move resources, with a standard rate.
There is a routing that has a usage defined for this resource on the primary routing.
When processing this item with a discrete job and completing the outside processing receipt, the amount charged to the Outside processing WIP account is 0.00, not the amount on the resource usage multiplied by the rate.
When duplicating the exact same scenario, except with a resource of type 'Machine' or 'Person', WIP is charged appropriately after the receipt.
Why is this? Aren't currency resources supposed to charge WIP?
Issue/question relates to OSP resources of type Currency. These do not seem to charge the WIP account. Can this be explained?
Message was edited by:
sharkema

Hi Sharkema
What kind of work is performed by this OSP? Why do you need a Currency resource? Can you clarufy that?
Regards,
Ricardo Cabral

In Sales Order form populate charges field after saving the Sales Order

Can we populate Charges field in Sales Order form after saving the sales Order automatically.
The charges to be calculated based on the amount entered and the item selected in Sales Order.
In the Manual process it is done by hitting the Actions Button and then select the Charges.
The charge type would be "Freight Costs"

by using process_order API, I am able to update the charges field.

Macbook Pro retina display 13 inch stopped charging. Charger LED also not on while plugged in. The battery fully drained off but the system can detect the charger when it was switched on.

Macbook Pro retina display 13 inch 2014 model stopped charging. Charger LED also not on while plugged in. The battery fully drained off so the system can not be started but the system can detect the charger when earlier it was switched on before draining off the charge. Charger type magsafe 60W.

Once you have examined the power inlet on the computer for dirt, and made certain that the pins on the end of the MagSafe cord are free to move in and out to make contact, there is very little you can do yourself.
You will need to visit your Apple Store (FREE with appointment) or your Apple-Authorized Service Provider (policy varies). They work on these all the time and have good expertise and lots of spare parts to try to determine the problem.

WIP should charge the resosorce on the basis of Time taken to complete job

Hi,
I would like to know how:
WIP should charge the resosorce on the basis of Time taken to complete a job.
the facility what we have in WIP is to change the unit of resource and then the costing will take place.
I will clarify with the help of an example.
Let a job requires 1 hour to complete but it has taken 1 1/2 (90 minutes) hours to complete. the WIP value summary shows the Cost based upon the standard hours required and not on the actual hours taken to complete the job.
Please provide suggestions
Regards
S

Sounds like you are autocharging labor but you don't want to. The only way to do what you want is to use a charge type of manual on the resource. This can cause other issues so make sure you test fully. For example in an average cost environment the manual resource transaction must occur before the completion transaction or the cost goes to variance.

What is maximum wattage output of 30 pinn charger that I can use on my 3rd gen. iPad?

I have a OEM Apple 13 watt output 30 PINN charger. Can I use this on my third generation iPad for charging?

13? I don't believe Apple produces a 13 Watt charger.
The available chargers from Apple are:
5W (for iPods, iPhones and iPad Mini)
10W for Everything (old charger type, not sold anymore)
and 12W for everything.
As detailed in the Store page for the 12W charger, it is compatible with all generations of iPads, iPods and iPhones.
http://store.apple.com/us/product/MD836LL/A/apple-12w-usb-power-adapter?fnode=3c

Fetching freight charges for separately shipped sales order lines

Hi,
I am facing a problem for fetching the freight charges with respect to an invoice , from the Table : OE_PRICE_ADJUSTMENTS for the case of a sales order which has two lines and the first line is shipped once and the second line is shipped later.
In my case two invoices are created for the same sales order as the two lines are shipped seperately and not at once.
Now while fetching the freight charges from the table oe_price_adjustments, we pass only the header id and charge type for fetching the freight charges (invoiced_amount field in oe_price_adjustments). As the header id is same for both the invoices , i am getting a repetition of freight charges for both the invoices .
Thanks,
Govind

Hi,
I am facing a problem for fetching the freight charges with respect to an invoice , from the Table : OE_PRICE_ADJUSTMENTS for the case of a sales order which has two lines and the first line is shipped once and the second line is shipped later.
In my case two invoices are created for the same sales order as the two lines are shipped seperately and not at once.
Now while fetching the freight charges from the table oe_price_adjustments, we pass only the header id and charge type for fetching the freight charges (invoiced_amount field in oe_price_adjustments). As the header id is same for both the invoices , i am getting a repetition of freight charges for both the invoices .
Thanks,
Govind

How can I buy a barrel charger for my powerbook G4 ???

simple,
the charger's wire of my powerbook G4 had been cut... (misery)
It makes almost a month that my computer is out because of this ****... wire
How can I buy a "barrel" charger type "661-3049" ???
please
make up my day,
simple for you guys isnt'it?
PS : in case there is an incidence, I am leaving in france
see you later alligators

Greetings!
Apple still sells the proper adaptor (this is for the 17-inch model):
http://store.apple.com/us/product/M8943LL/A?fnode=MTY1NDEwMQ&mco=MTA4NDE3NzQ
I purchased one in late December for my old PB17 and was impressed that Apple have improved the current version over the old one. The details of the improvements I saw are in this older post I made here after receiving the unit:
http://discussions.apple.com/thread.jspa?threadID=2279528&tstart=0
Linked below is a third-party unit that many people use. I understand that the vendor can ship outside the US:
http://eshop.macsales.com/item/Other%20World%20Computing/ACADPTG4/
Some people say these do not last as long as the Apple units and some like them better. They are also half of the price of the Apple unit, but I don't think they have the nice green/orange indicator to show status.
Hoping this helps,
Allan

Cheap way to rapidly charge your PlayBook.

I want to share some findings with you in case this helps someone else in future. I tried to charge my PlayBook with the HP TouchPad USB plug (barrel type) and it works perfectly fine (Green lightning bolt icon appears - no errors). So if you want a cheap way to charge your PlayBook, buy one of these.
http://www.amazon.com/Charger-Adapte...rackberry00-20 ($8.99 with cable)
http://www.amazon.com/Charger-Adapte...rackberry00-20 ($4.99 without cable)
Here are the specs of both charger types:
BlackBerry Rapid Charger (the one with fold out prongs and ships with the device):
Input: 100-240V - 300mA 50-60Hz
Output: 5V - 1.8A
http://ca.shopblackberry.com/Product/BlackBerry-Premium-Charger/ACC-39343-301
HP TouchPad Barrel Charger:
Input:100-240V - 0.4A 50-60Hz
Output: 5.3V - 2A
The benefit of using the TouchPad charger is that the cable comes off so you can use a normal charging micro USB cable bought from Monoprice.com for $1.73 and you can get a lot longer cord (in this case 15 feet). http://www.monoprice.com/products/pr...seq=1&format=2
You could spend $38.99 on a genuine BB replacement or $6.72 (devices bought seperately - not including shipping charges though) for one that has a 15 foot cord, is multi-use and comes apart...

I'd recommend for anyone to get the magnetic rapid charger and leave the more fragile USB port to data transfer.
http://www.amazon.com/Blackberry-Rapid-Travel-Charger-Playbook/dp/B004XBZ728
$25USD, and sometimes as low as $20 according to the seller.
1. If any post helps you please click the below the post(s) that helped you.
2. Please resolve your thread by marking the post "Solution?" which solved it for you!
3. Install free BlackBerry Protect today for backups of contacts and data.
4. Guide to Unlocking your BlackBerry & Unlock Codes
Join our BBM Channels (Beta)
BlackBerry Support Forums Channel
PIN: C0001B7B4 Display/Scan Bar Code
Knowledge Base Updates
PIN: C0005A9AA Display/Scan Bar Code

"charging not supported by this accessory". If I leave it plugged in, it charges, but I noticed that the charge doesn't seem to hold as long. What does this mean?

Why every time I plug my phone in using a USB cord or charger does it say "charging not supported with this accessory"? The phone will charge if I leave it plugged in long enough, but I noticed that it doesn't hold the charge like it used to. Is this the battery, or something else?

Hi CJ-
There are some chargers designed for thr original iPhone that are not compatible with the 3G and later models. Are you using the USB cable that came with the 3G? That cable, when plugged into a computer USB port, or, when plugged into the power cube / wall outlet, should charge the 3G just fine.
Due to the nature of Lithium Ion batteries, there are safeguards in place to prevent the wrong type of charger from supllying charge voltage to the batteries, and if the proper pins and resistance is not detected by the phone, the circuitry will block charging and give that message.
Therefore: If you are using a 3G compatible (oem, or otherwise valid charger), and you're seeing that "not supported" message, it could be the cable you're using, or it's the phone/circuitry detection in the phone that detects the cable / charger type.
And, if you are getting some charge, but it's not holding very long, it could be that it's a 3G, and the lifespan of the battery is near end of life. The fact that you're getting a charging not supported message is probably of more importance as to why the battery is not fully being charged.

Charging not supported by this accessory after updating to 2.2.1

I have two iPod Touches and after updating one of them to software 2.2.1 it will no longer support charging from my JBL Onstage. Can this be fixed? I don't really want to go back to version 2.2 because that doesn't support some games that I have downloaded such as StarWars FX.
The iPod Touches are 1st generation I believe, not positive as I just bought them from a friend.

Hi CJ-
There are some chargers designed for thr original iPhone that are not compatible with the 3G and later models. Are you using the USB cable that came with the 3G? That cable, when plugged into a computer USB port, or, when plugged into the power cube / wall outlet, should charge the 3G just fine.
Due to the nature of Lithium Ion batteries, there are safeguards in place to prevent the wrong type of charger from supllying charge voltage to the batteries, and if the proper pins and resistance is not detected by the phone, the circuitry will block charging and give that message.
Therefore: If you are using a 3G compatible (oem, or otherwise valid charger), and you're seeing that "not supported" message, it could be the cable you're using, or it's the phone/circuitry detection in the phone that detects the cable / charger type.
And, if you are getting some charge, but it's not holding very long, it could be that it's a 3G, and the lifespan of the battery is near end of life. The fact that you're getting a charging not supported message is probably of more importance as to why the battery is not fully being charged.

Custom purchase requsitionto vendor open and cleared payment report

dear all i develop report but i cant ableto show in that open amount and cleared amount of vender in that report so please see this report and feedback me for logic to show open and clear amount of vendor purchase orderwise or vendorwise
report zpo_purchase_history no standard page heading message-id 00.
TABLES : bsik, bsak, lfa1, lfb1, skb1, t001, bapifvdexp_vzzbepp.
type-pools:slis,ICON.
types :begin of ty_po,
 banfn type eban-banfn,
 "Purchase Requisition Number
 bnfpo type eban-bnfpo,
 "Item Number of Purchase Requisition
 ekgrp type eban-ekgrp, "Purchasing Group
 badat type eban-badat,
 "Requisition (Request) Date
 menge type eban-menge,
 KNTTP TYPE EBAN-KNTTP,
 PSTYP type eban-PSTYP,
 "Purchase Requisition Quantity
 meins type eban-meins,
 "Purchase Requisition Unit of Measure
 lifnr type ekko-lifnr, "Vendor Account Number
 bedat type ekko-bedat, "Purchasing Document Date
 ebeln type ekpo-ebeln,
 "Purchasing Document Number
 ebelp type ekpo-ebelp,
 "Item Number of Purchasing Document
 matkl type ekpo-matkl, "Material Group
 mtart type ekpo-mtart, "Material Type
 matnr type ekpo-matnr, "Material Number
 txz01 type ekpo-txz01, "Short Text
 menge1 type ekpo-menge, "Purchase Order Quantity
 meins1 type ekpo-meins,
 "Purchase Order Unit of Measure
 balqty type ekpo-menge, "Balance Quantity
 netpr type ekpo-netpr,
 "Net Price in Purchasing Document
 peinh type ekpo-peinh, "Price Unit
 mblnr type mseg-mblnr,
 "Number of Material Document
 zeile type mseg-zeile, "Item in Material Document
 menge2 type mseg-menge, "GR Quantity
 meins2 type mseg-meins, "GR Unit of Measure
 werks type mseg-werks, "Plant
 charg type mseg-charg, "Batch
 belnr type rbkp-belnr,
 "Document Number of an Invoice Document
 bldat type ekbe-bldat, "Document Date in Document
 belnr_b type rbkp-belnr,
 SHKZG type ekbe-SHKZG , "Debit/Credit Indicator
 DMBTR type bsik-dmbtr, "Amount in Local Currency
 DMBTR_C type bsAk-dmbtr, "Amount in Local Currency
 thick(10) type c, "Thickness
 width(10) type c, "Width
 length(10) type c, "Length
 grade(10) type c, "Grade
 BELNR_d type bseg-belnr,
 xblnr type bkpf-xblnr,
 awkey type bkpf-awkey,
 RMWWR type rbkp-RMWWR,
 WMWST1 type rbkp-WMWST1,
 end of ty_po.
types :begin of ty_ekko,
 ebeln type ekko-ebeln,
 lifnr type ekko-lifnr,
 bedat type ekko-bedat,
 end of ty_ekko.
types:begin of ty_ekpo,
 ebeln type ekpo-ebeln,
 ebelp type ekpo-ebelp,
 matnr type ekpo-matnr,
 txz01 type ekpo-txz01,
 menge type ekpo-menge,
 meins type ekpo-meins,
 netpr type ekpo-netpr,
 peinh type ekpo-peinh,
 banfn type ekpo-banfn,
 bnfpo type ekpo-bnfpo,
 mtart type ekpo-mtart,
 end of ty_ekpo.
types :begin of ty_eban,
 banfn type eban-banfn,
 bnfpo type eban-bnfpo,
 matnr type eban-matnr,
 menge type eban-menge,
 meins type eban-meins,
 end of ty_eban.
types : begin of ty_ekbe,
 ebeln type ekbe-ebeln,
 ebelp type ekbe-ebelp,
 belnr type ekbe-belnr,
 bldat type ekbe-bldat,
 gjahr type ekbe-gjahr,
 buzei type ekbe-buzei,
 matnr type ekbe-matnr,
 DMBTR type ekbe-dmbtr,
 shkzg type ekbe-shkzg,
 end of ty_ekbe.
types : begin of ty_mseg,
 mblnr type mseg-mblnr,
 mjahr type mseg-mjahr,
 zeile type mseg-zeile,
 menge type mseg-menge,
 meins type mseg-meins,
 ebeln type mseg-ebeln,
 ebelp type mseg-ebelp,
 matnr type mseg-matnr,
 werks type mseg-werks,
 charg type mseg-charg,
 end of ty_mseg.
types : begin of ty_rbkp,
 belnr type rbkp-belnr,
 gjahr type rbkp-gjahr,
 bldat type rbkp-bldat,
 lifnr type rbkp-lifnr,
 ZUONR type rbkp-ZUONR,
 RMWWR type rbkp-RMWWR,
 WMWST1 type rbkp-WMWST1,
 end of ty_rbkp.
types : begin of ty_bseg,
 bukrs type bseg-bukrs,
 belnr type bseg-belnr,
 gjahr type bseg-gjahr,
 buzei type bseg-buzei,
 valut type bseg-valut,
 wrbtr type bseg-wrbtr ,
 augbl type bseg-augbl,
 matnr type bseg-matnr,
 lifnr type bseg-lifnr,
 ebeln type bseg-ebeln,
 end of ty_bseg.
types : begin of ty_rseg,
 belnr type rseg-belnr,
 gjahr type rseg-gjahr,
 ebeln type rseg-ebeln,
 ebelp type rseg-ebelp,
 matnr type rseg-matnr,
 bukrs type rseg-bukrs,
 end of ty_rseg.
types : begin of ty_bsik,
 belnr type bsik-belnr,
 buzei type bsik-buzei,
 DMBTR type bsik-DMBTR,
 budat type bsik-budat,
 shkzg type bsik-shkzg,
 ebeln type bsik-ebeln,
 lifnr type bsik-lifnr,
 end of ty_bsik.
types : begin of ty_bsak,
 belnr type bsak-belnr,
 lifnr type bsak-lifnr,
 ebeln type bsak-ebeln,
 DMBTR_C type bsak-DMBTR,
ZUONR type bsak-ZUONR,
 end of ty_bsak.
types: begin of ty_bkpf,
 BELNR type bkpf-belnr,
 xblnr type bkpf-xblnr,
 awkey type bkpf-awkey,
 end of ty_bkpf.
data: it_po type standard table of ty_po,
 it_ekko type standard table of ty_ekko,
 it_ekpo type standard table of ty_ekpo,
 it_eban type standard table of ty_eban,
 it_ekbe type standard table of ty_ekbe,
 it_mseg type standard table of ty_mseg,
 it_rbkp type standard table of ty_rbkp,
 it_rseg type standard table of ty_rseg,
 it_bseg type standard table of ty_bseg,
 it_bsik type STANDARD TABLE OF ty_bsik with header line,
 it_bsak type STANDARD TABLE OF ty_bsak,
 it_bkpf type standard table of ty_bkpf,
 wa_po type ty_po,
 wa_ekko type ty_ekko,
 wa_ekpo type ty_ekpo,
 wa_eban type ty_eban,
 wa_mseg type ty_mseg,
 wa_rbkp type ty_rbkp,
 wa_rseg type ty_rseg,
 wa_bseg type ty_bseg,
 wa_ekbe type ty_ekbe,
 wa_bsik type ty_bsik,
 wa_bsak type ty_bsak,
 wa_bkpf type ty_bkpf.
data: it_fcat type slis_t_fieldcat_alv,
 it_lshead type slis_t_listheader,
 it_sort type slis_t_sortinfo_alv,
 wa_fcat type slis_fieldcat_alv,
 wa_lshead type slis_listheader,
 wa_layout type slis_layout_alv,
 wa_sort type slis_sortinfo_alv.
data :it_cl_data like table of clobjdat,
 wa_cl_data like clobjdat.
data: values(10) type n.
data: value1(4) type N.
data: c_matkl type ekpo-matkl,
 c_matnr type ekpo-matnr,
 c_ekgrp type eban-ekgrp,
 c_badat type eban-badat,
 c_index type sy-tabix,
 c_grmenge type mseg-erfmg,
 c_low(10) type c,
 c_high(10) type c,
 c_date type string,
 c_bukrs type ekko-bukrs,
 c_WERKS type eban-WERKS.
data: gd_date(10).
DATA: V_EVENTS TYPE SLIS_T_EVENT,
 WA_EVENT TYPE SLIS_ALV_EVENT.
*********Selection screen variables*********
selection-screen:begin of block b1 with frame title text-001.
select-options: s_bukrs for c_bukrs DEFAULT 'bmp1',
 s_WERKS for c_WERKS,
 s_matnr for c_matnr DEFAULT 'rm-01',
 s_matkl for c_matkl ,
 s_badat for c_badat ,"obligatory,
 s_ekgrp for c_ekgrp.
parameters: ch_bal as checkbox.
selection-screen:end of block b1.
*initialization.
* PERFORM EVENT_CALL.
* PERFORM POPULATE_EVENT.
start-of-selection.
 PERFORM EVENT_CALL.
 PERFORM POPULATE_EVENT.
 perform getdata.
 perform setdata.
 perform fieldcat.
 perform display.
*& Form GETDATA
form getdata .
 select a~BANFN
 a~bnfpo
 a~ekgrp
 a~badat
 a~KNTTP
 a~PSTYP
 b~ebeln
 b~ebelp
 b~matkl
 b~matnr
 b~bukrs
 into corresponding fields of table it_po
 from eban as a inner join ekpo as b
 on a~banfn = b~banfn and
 a~bnfpo = b~bnfpo AND
 A~KNTTP = B~KNTTP and
 a~PSTYP = b~PSTYP
 where a~badat in s_badat and
 a~ekgrp in s_ekgrp and
 a~WERKS in s_WERKS and
 b~matnr in s_matnr and
 b~matkl in s_matkl and
 b~bukrs in s_bukrs and
 b~loekz <> 'L' and
 a~loekz <> 'X'.
 if it_po[] is not initial.
 select ebeln
 ebelp
 matnr
 txz01
 menge
 meins
 netpr
 peinh
 banfn
 bnfpo
 mtart
 from ekpo into table it_ekpo
 for all entries in it_po
 where ebeln = it_po-ebeln and
 ebelp = it_po-ebelp and
 loekz <> 'L'.
 select banfn
 bnfpo
 matnr
 menge
 meins
 from eban into table it_eban
 for all entries in it_po
 where banfn = it_po-banfn and
 bnfpo = it_po-bnfpo and
 loekz <> 'X'.
 if it_ekpo[] is not initial.
 select ebeln
 lifnr
 bedat
 from ekko into table it_ekko
 for all entries in it_ekpo
 where ebeln = it_ekpo-ebeln.
 select ebeln
 ebelp
 belnr
 bldat
 gjahr
 buzei
 matnr
 DMBTR
 shkzg
 from ekbe into table it_ekbe
 for all entries in it_ekpo
 where ebeln = it_ekpo-ebeln and
 ebelp = it_ekpo-ebelp .
*if it_ekbe-shkzg = 'H'.
**ekbe-dmbtr = ekbe-dmbtr * -1.
**ekbe-menge = ekbe-menge * -1.
*endif.
* select belnr
* gjahr
* ebeln
* ebelp
* from bseg into table it_bseg
* for all entries in it_ekpo
* where ebeln = it_ekpo-ebeln and
* ebelp = it_ekpo-ebelp.
 select belnr
 gjahr
 ebeln
 ebelp
 matnr
 bukrs
 from rseg into table it_rseg
 for all entries in it_ekpo
 where ebeln = it_ekpo-ebeln and
 ebelp = it_ekpo-ebelp.
 endif.
 if it_ekbe[] is not initial.
 select mblnr
 mjahr
 zeile
 menge
 meins
 ebeln
 ebelp
 matnr
 werks
 charg
 from mseg into table it_mseg
 for all entries in it_ekbe
 where mblnr = it_ekbe-belnr and
 mjahr = it_ekbe-gjahr and
 zeile = it_ekbe-buzei and
 bwart = '101'.
 endif.
 if it_rseg[] is not initial.
 select belnr
 gjahr
 bldat
 lifnr
 ZUONR
 RMWWR
 WMWST1
 from rbkp into table it_rbkp
 for all entries in it_rseg
 where belnr = it_rseg-belnr.
 endif.
*if it_rseg[] is not initial.
* SELECT bukrs
* belnr
* gjahr
* buzei
* valut
* wrbtr
* augbl
* matnr
* lifnr
* ebeln
* INTO TABLE it_bseg
* FROM bseg
* FOR ALL ENTRIES IN it_rseg
* WHERE bukrs = it_rseg-bukrs and ebeln = it_rseg-ebeln and mwskz = ''.
*endif.
*loop at it_BKPF into wa_BKPF.
* values = wa_rbkp-belnr.
* value1 = wa_rbkp-gjahr.
 data: aekey_1 type string .
*CONCATENATE values value1 into aekey_1.
* if it_BSEG[] is not initial.
*MESSAGE aekey_1 type 'I'.
 SELECT single belnr xblnr awkey into wa_bkpf
 from bkpf
 where awkey = aekey_1.
SELECT SINGLe belnr
buzei
dmbtr
budat
 shkzg
 ebeln
 lifnr
 FROM bsik
INTO CORRESPONDING FIELDS OF wa_bsik
*FOR ALL ENTRIES IN it_bseg
WHERE
 bukrs in s_bukrs and
 lifnr = wa_rbkp-lifnr
and
*AND gjahr = it_bseg-gjahr
* AND
 belnr = wa_bkpf-belnr.
insert wa_bsik into table it_bsik.
CLEAR wa_bsik.
CLEAR it_bsik.
*endloop.
* and ebeln = it_bseg-ebeln .
* select BELNR
** SHKZG
** DMBTR
* from bkpf into table it_bkpf
* for ALL ENTRIES IN it_rbkp
* where belnr = it_rbkp-belnr.
* ENDif.
IF IT_bseg[] IS NOT INITIAL.
 select belnr
 LIFNR
 ebeln
 DMBTR
 ZUONR
 from bsik into table it_bsik
 for all entries in it_bseg
 where belnr = it_bseg-belnr.
 select belnr
 LIFNR
 ebeln
 DMBTR
 ZUONR
 from bsak into table it_bsak
 for all entries in it_bseg
 where belnr = it_bseg-belnr.
ENDIF.
 else.
 message s002.
 leave list-processing.
 endif.
endform. " GETDATA
*& Form SETDATA
form setdata .
 clear wa_po.
 loop at it_po into wa_po.
 c_index = sy-tabix.
********Calculate PR Quantity**********
 clear wa_eban.
 read table it_eban into wa_eban
 with key banfn = wa_po-banfn
 bnfpo = wa_po-bnfpo.
 if sy-subrc eq 0.
 move:wa_eban-menge to wa_po-menge,
 wa_eban-meins to wa_po-meins.
 endif.
********Calculate PO Quantity**********
 clear wa_ekpo.
 read table it_ekpo into wa_ekpo
 with key banfn = wa_po-banfn
 bnfpo = wa_po-bnfpo .
 if sy-subrc eq 0.
 move:wa_ekpo-txz01 to wa_po-txz01,
 wa_ekpo-netpr to wa_po-netpr,
 wa_ekpo-peinh to wa_po-peinh,
 wa_ekpo-mtart to wa_po-mtart,
 wa_ekpo-menge to wa_po-menge1,
 wa_ekpo-meins to wa_po-meins1.
 endif.
********Calculate Balance Quantity******
 clear wa_mseg.
 loop at it_mseg into wa_mseg
 where ebeln = wa_po-ebeln and
 ebelp = wa_po-ebelp.
 c_grmenge = c_grmenge + wa_mseg-menge.
 endloop.
 move:wa_mseg-mblnr to wa_po-mblnr,
 c_grmenge to wa_po-menge2,
 wa_mseg-meins to wa_po-meins2,
 wa_mseg-werks to wa_po-werks,
 wa_mseg-charg to wa_po-charg.
 wa_po-balqty = wa_eban-menge - c_grmenge.
 clear : wa_rseg,wa_rbkp.
 read table it_rseg into wa_rseg with key
 ebeln = wa_mseg-ebeln
 ebelp = wa_mseg-ebelp.
 read table it_rbkp into wa_rbkp
 with key belnr = wa_rseg-belnr
 gjahr = wa_rseg-gjahr.
 if sy-subrc eq 0.
 move : wa_rbkp-belnr to wa_po-belnr,
 wa_rbkp-bldat to wa_po-bldat,
 wa_rbkp-RMWWR to wa_po-RMWWR,
 WA_RBKP-WMWST1 TO WA_PO-WMWST1.
 endif.
 read table it_bseg into wa_bseg with key
 ebeln = wa_rseg-ebeln
 bukrs = wa_rseg-bukrs.
 if sy-subrc eq 0.
 move wa_bseg-belnr to wa_po-belnr_d.
 endif.
* read table it_bkpf into wa_bkpf
* with key belnr = wa_ekbe-belnr.
* read table it_bseg into wa_bseg
* with key belnr = wa_bkpf-belnr.
CLEAR wa_bsik.
clear it_bsik.
 read table it_bsik into wa_bsik
 with key belnr = wa_bkpf-belnr.
* if wa_bsik-shkzg = 'H'.
* wa_bsik-DMBTR = wa_bsik-DMBTR * 1.
* endif.
 if sy-subrc eq 0.
 move : wa_bsik-belnr to wa_po-belnr,
 wa_bsik-DMBTR to wa_po-DMBTR.
 endif.
* clear wa_bsik.
* read table it_bsik into wa_bsik
* with key belnr = wa_bseg-belnr.
* if sy-subrc eq 0.
* move : wa_bsik-DMBTR to wa_po-DMBTR.
* endif.
*clear wa_bsak.
* read table it_bsak into wa_bsak
* with key belnr = wa_bseg-belnr.
* if sy-subrc eq 0.
* move : wa_bsak-DMBTR_C to wa_po-DMBTR_C.
* endif.
*clear : wa_rbkp.
*loop at it_bsik into wa_bsik.
*read table it_bsik into wa_bsik with key belnr = wa_rbkp-belnr.
*if sy-subrc eq 0.
* move : wa_bsik-DMBTR to wa_po-DMBTR.
* endif.
*endloop.
*********Assign Vendor,PO Date*********
 clear wa_ekko.
 read table it_ekko into wa_ekko
 with key ebeln = wa_po-ebeln.
 if sy-subrc eq 0.
 move:wa_ekko-lifnr to wa_po-lifnr,
 wa_ekko-bedat to wa_po-bedat.
 endif.
*clear wa_ekko.
*read table it_ekko into wa_ekko
*with key lifnr = wa_po-lifnr.
*if sy-subrc eq 0.
* move: wa_bsik-DMBTR to wa_po-DMBTR.
* endif.
* call function 'ZSD_BATCH_CLASSIFICATION_DATA'
* exporting
** ch_charg = wa_po-charg
* ch_matnr = wa_po-matnr
* ch_werks = wa_po-werks
* tables
* cl_data = it_cl_data
** I_SEL_CHARACTERISTIC =
 loop at it_cl_data into wa_cl_data.
 if wa_cl_data-ausp1 ne '?'.
 if wa_cl_data-atnam eq 'THICKNESS'.
 move wa_cl_data-ausp1 to wa_po-thick.
 elseif wa_cl_data-atnam eq 'LENGTH'.
 move wa_cl_data-ausp1 to wa_po-length.
 elseif wa_cl_data-atnam eq 'WIDTH'.
 move wa_cl_data-ausp1 to wa_po-width.
 elseif wa_cl_data-atnam eq 'GRADE'.
 move wa_cl_data-ausp1 to wa_po-grade.
 endif.
 endif.
 endloop.
 modify it_po from wa_po index c_index.
 clear :c_grmenge,wa_po,wa_ekpo,wa_mseg,c_index.
 endloop.
endform. " SETDATA
*& Form FIELDCAT
* text
* --> p1 text
* <-- p2 text
form fieldcat .
 perform buildfields using '1' 'BANFN' 'IT_PO' 'PR Number' '' ''.
* perform buildfields using '2' 'BNFPO' 'IT_PO' 'PR Item Number' '' ''.
 perform buildfields using '2' 'KNTTP' 'IT_PO' 'A/c Assignment Cat' '' ''.
 perform buildfields using '2' 'PSTYP' 'IT_PO' 'Item Cat' '' ''.
 perform buildfields using '3' 'EKGRP' 'IT_PO' 'Purchase Group' '' ''.
 perform buildfields using '4' 'BADAT' 'IT_PO' 'Request Date' '' ''.
 perform buildfields using '5' 'MENGE' 'IT_PO' 'PR Quantity' 'X' ''.
 perform buildfields using '6' 'MEINS' 'IT_PO' 'PR Unit' '' ''.
 perform buildfields using '7' 'LIFNR' 'IT_PO' 'Vendor Number' '' ''.
 perform buildfields using '8' 'EBELN' 'IT_PO' 'Purchasing Doc No' '' '' .
 perform buildfields using '9' 'BEDAT' 'IT_PO' 'PO Date' '' ''.
 perform buildfields using '10' 'MTART' 'IT_PO' 'Material Type' '' ''.
 perform buildfields using '11' 'MATKL' 'IT_PO' 'Material Group' '' ''.
 perform buildfields using '12' 'MATNR' 'IT_PO' 'Material Number' '' ''.
 perform buildfields using '13' 'TXZ01' 'IT_PO' 'Material Desc' '' ''.
 perform buildfields using '18' 'MENGE1' 'IT_PO' 'PO Quantity' 'X' ''.
 perform buildfields using '19' 'MEINS' 'IT_PO' 'PO Unit' '' ''.
 perform buildfields using '20' 'NETPR' 'IT_PO' 'Net Price' '' ''.
 perform buildfields using '21' 'PEINH' 'IT_PO' 'Price Unit' '' ''.
 perform buildfields using '22' 'MBLNR' 'IT_PO' 'GR Number' '' ''.
 perform buildfields using '23' 'MENGE2' 'IT_PO' 'GR Quantity' 'X' ''.
 perform buildfields using '24' 'MEINS2' 'IT_PO' 'GR Unit' '' ''.
 perform buildfields using '25' 'BELNR' 'IT_PO' 'Invoice doc. number' '' ''.
 perform buildfields using '26' 'BLDAT' 'IT_PO' 'Invoice Date' '' ''.
* perform buildfields using '26' 'BELNR_D' 'IT_POP' 'A/C Doc. No.' '' ''.
* perform buildfields using '26' 'AUGBL' 'IT_PO' 'Clearing Doc No.' '' ''.
 perform buildfields using '26' 'DMBTR' 'IT_PO' 'OPEN AMOUNT' '' ''.
perform buildfields using '26' 'DMBTR' 'IT_PO' 'clear AMOUNT' '' ''.
* perform buildfields using '26' 'DMBTR_C' 'IT_PO' 'Clear balance' '' ''.
 if ch_bal = 'X'.
 perform buildfields using '27' 'BALQTY' 'IT_PO' 'Balance Quantity'
 'X' ''.
 endif.
 perform buildfields using '26' 'WMWST1' 'IT_PO' 'TOTAL TAX ADDED' 'X' ''.
 perform buildfields using '26' 'RMWWR' 'IT_PO' 'TOTAL AMOUNT IN INVOICE' 'X' ''.
endform. " FIELDCAT
*& Form BUILDFIELDS
* text
* -->P_0449 text
* -->P_0450 text
* -->P_0451 text
* -->P_0452 text
form buildfields using value(p_col_pos) like sy-cucol
 value(p_fldname) type slis_fieldname
 value(p_tabname) type slis_tabname
 value(p_reptext) like dd03p-reptext
 value(p_do_sum) type char1
 value(hotspot) type char1.
 wa_fcat-col_pos = p_col_pos.
 wa_fcat-fieldname = p_fldname.
 wa_fcat-tabname = p_tabname.
 wa_fcat-reptext_ddic = p_reptext.
 wa_fcat-do_sum = p_do_sum.
 wa_fcat-hotspot = hotspot.
 append wa_fcat to it_fcat.
 clear wa_fcat.
endform. " BUILDFIELDS
*& Form DISPLAY
form display .
 clear wa_layout.
 wa_layout-zebra = 'X'.
 wa_layout-colwidth_optimize = 'X'.
* wa_layout-box_fieldname = 'SEL'.
* wa_layout-edit = 'X'.
 perform build_sort using 'BANFN' '1' 'X'.
 call function 'REUSE_ALV_GRID_DISPLAY'
 exporting
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = ' '
 i_callback_program = sy-cprog
* I_CALLBACK_PF_STATUS_SET = ' '
 I_CALLBACK_USER_COMMAND = 'USER_COMMAND '
 i_callback_top_of_page = 'TOP_OF_PAGE'
* I_CALLBACK_HTML_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_END_OF_LIST = ' '
* I_STRUCTURE_NAME =
 i_background_id = 'ALV_BACKGROUND'
* I_GRID_TITLE =
* I_GRID_SETTINGS =
 is_layout = wa_layout
 it_fieldcat = it_fcat
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
 it_sort = it_sort
* IT_FILTER =
* IS_SEL_HIDE =
* I_DEFAULT = 'X'
 I_SAVE = 'A'
* IS_VARIANT =
* IT_EVENTS =
* IT_EVENT_EXIT =
* IS_PRINT =
* IS_REPREP_ID =
* I_SCREEN_START_COLUMN = 0
* I_SCREEN_START_LINE = 0
* I_SCREEN_END_COLUMN = 0
* I_SCREEN_END_LINE = 0
* I_HTML_HEIGHT_TOP = 0
* I_HTML_HEIGHT_END = 0
* IT_ALV_GRAPHICS =
* IT_HYPERLINK =
* IT_ADD_FIELDCAT =
* IT_EXCEPT_QINFO =
* IR_SALV_FULLSCREEN_ADAPTER =
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
 tables
 t_outtab = it_po[]
exceptions
 program_error = 1
 others = 2
 if sy-subrc <> 0.
 message id sy-msgid type sy-msgty number sy-msgno
 with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 endif.
endform. " DISPLAY
*& Form top_of_page
* text
form top_of_page. "#EC *
**********Create report header*********
 refresh it_lshead.
 clear wa_lshead.
**********To display date in header*********
* write: s_badat-low to c_low dd/mm/yyyy,s_badat-high to c_high
* dd/mm/yyyy.
* if s_badat-high is initial.
* concatenate 'Dated on' c_low into c_date separated by space.
* else.
* concatenate 'Dated between' c_low 'and' c_high into c_date separated
* by space.
* endif.
 wa_lshead-typ = 'H'.
 wa_lshead-info = 'PR To Payment History'.
* 'Pending Indents History -

We had a requirement to retrieve "aging of receiveables" by customer. Basically, it goes thru each record and depending on the due date places the amounts in the following buckets (example). 0-30 day Overdue, 31-60 days Overdue, 61-90 days overdue, 30+ days overdue, 60+ days overdue) etc all the way to 6+ years overdue.
There are also cooresponding buckets for coming due analysis. For example, what is: 0-30 days coming due, 31-60 days coming due, 30+ days coming due, etc...
To do this, first I needed to be able be able to produce an open items statement at any given time in the past. Now, this seems impossible because of how the items go from open to cleared all the time. And an item that was open one month ago, may not be open anymore.
What I did was first remove any selections on item status. Then compare the posting date with teh key date in the past, if the posting date is less than or equal to the key date, keep the record.
Then compare the clearing date with the key date. First, keep all that are #. (This keeps all records still open from that posting date/key date)
Then, add another check for all items that were cleared after the key date (GT Key Date). This gives you the open items on that date.
Hope that makes sense. Let me know if you want clarification.
/smw

Charge Types

Similar Messages

Maybe you are looking for