Report with open Purchase orders and open Goods Receipt (without invoices)
Dear All,
We require a report in purchasing which will show:
1. open purchase orders
2. open goods receipts
We do not want POs and GRs that have been created into invoices to be included in the report.
At the moment we tried ME2N with RECHNUNG in selection parameters but it includes invoices. We have tried other selection parameters and reports but the results are not helpful.
I have also checked SDN but there is no correct answer. Most of them specify the ME2N with RECHNUNG as a solution but this does not work for us.
Any help would be appreciated.
G.
Hi,
Try ME2N, Select WE101....Also Select ALV
go to next screen....Go to change layout
Select to be deliverd(Qty) and Value, also to be invoice(Qty) & Value.
Hope Help U!
Regards,
Pardeep Malik
Similar Messages
-
Open Purchase Orders and Open Sales Orders
Hi,
Please let me know the table names for open purchase orders and sales orders.
Regards,
PriiHI Priti,
EKPO-ELIKZ "Delivery completed" indicator, This tell if the given PO line items has any open quantity or not.
Logic to find out if a given PO has Open Quantity or not is do the following:
" select the PO Qunatity.
SELECT SINGLE MENGE FROM EKPO INTO PO_QTY WHERE
EBELN = ITAB_PO_LN-EBELN AND
EBELP = ITAB_PO_LN-EBELP.
" select the GR qunatity which has been received.
SELECT SUM( MENGE ) FROM EKBE INTO GR_QTY WHERE
EBELN = ITAB_PO_LN-EBELN AND
EBELP = ITAB_PO_LN-EBELP AND
BWART = '101'.
" select GR Quantity which has been reversed.
SELECT SUM( MENGE ) FROM EKBE INTO GR_REV_QTY WHERE
EBELN = ITAB_PO_LN-EBELN AND
EBELP = ITAB_PO_LN-EBELP AND
BWART = '102'.
POSTED_QTY = GR_QTY - GR_REV_QTY .
OPEN_QTY = PO_QTY - POSTED_QTY.
Regards,
-Venkat. -
Open purchase orders and sales orders
Hi,
How to handle old open purchase orders and open sales orders after implementing SABRIX for tax calculation??The answer is to update all the open orders with a tax code which will call the external tax engine!
-
HOW WE FIND OUT OPEN PURCHASE ORDER AND CLOSED PURCHASE IN THE TABLE?
HI,
PLZZ HELP ME.
what are fields names for open purchase order and closed purchase order
thanksHi param,
Go to mseg table, pass the purchase order number and purchase order item. if the mseg-menge = ekpo-menge for the corresponding purchase order then consider the purchase order is close, else it is still open. even check if the entries are not there for corresponding purchase order in mseg table then also it is open.
select mblnr zeile matnr menge from mseg into it_mseg where ebeln = it_ekko-ebeln
and ebelp = it_ekpo-ebeln.
if sy-subrc <> 0.
then consider the purchase order is open.
This is the first case.
even u can consider like this
if sy-subrc = 0.
if it_ekpo-menge > it_mseg-menge.
then also the purchase order is open.
Regards,
Santosh Kumar M.
Award points if it is useful. -
Table for open Purchase order and pending invoices for vendors
Hi,
Are there any table to know open Purchase orders and pending invoices for vendors.
Quick response will be appreciated.
Thanks & Regardshi,
Purchase Order:
S011:(PURCH: Purch. Group Statistics)
Statistics (SSOUR)
Version (VRSIO)
Month (SPMON)
Day (SPTAG)
Week (SPWOC)
Posting Period (SPBUP)
Purchasing Org (EKORG)
Purchasing Group (EKGRP)
Vendor No (LIFNR)
S012: (PURCHIS: Purchasing Statistics)
Statistics (SSOUR)
Version (VRSIO)
Month (SPMON)
Day (SPTAG)
Week (SPWOC)
Posting Period (SPBUP)
Purchasing Org (EKORG)
Purchasing Group (EKGRP)
Material No (MATNR)
Plant (WERKS)
Info Record Category (ESOKZ)
Material Group (MATKL)
Info Record (INFNR)
Country (LAND1)
EINE: (Purchasing Info Record: Purchasing
Organization Data)
Info Record (INFNR)
Purchasing Org (EKORG)
Info Record Type (ESOKZ)
Plant (WEKS)
EKET: (Delivery Schedules)
Purchasing Doc (EBELN)
Item (EBELP)
Delivery Schedule (ETENR)
EKPO: (Purchasing Document Item)
Purchasing Doc (EBELN)
Item (EBELP)
EKKN: (Account Assignment in Purchasing
Document)
Purchasing Doc (EBELN)
Item (EBELP)
Account Assignment (ZEKKN)
EKKO: (Purchasing Document Header)
Purchasing Doc (EBELN)
EORD: (Purchasing Source List)
Material No (MATNR)
Plant (WERKS)
Source List No (ZEORD)
thx,
Ganpat -
Open sales orders and open deliveries and open billing doc to sap from legesy
Dear all
i have some open sales orders and open deliveries and open billing doc are there in the legesy system
so i want to know how to transfer the doc to sap by using lsmw plz tell meHi Amith,
it is always good to search in Google before posting .LSMW is very old topic and i am sure you will get lots of Documents on this .Please go through the below link .you will get some idea on this.
http://scn.sap.com/thread/1012472
there are 14 steps in LSMW and it is same for all (master data and Transaction Data)
Pls practice this in your sand box or quality system before working it in the client requirement.
Hope this helps to you
Regards
Sundar -
Archiving open maintenance order and open PR
Dear sir,
what are steps to archiving open maintenance order and open PR .pls help
Regards,
P.JeevananthamNot possible to archive REL status orders. Order should have CLSD status.
There is no relation between closing the order & period lock. What is the error you are getting while closing the order?? Post that error.
Hope, confirmations or goods movements might have been done for those PM orders. As settlement have not been done, Closing of order might have given the error.
If so, open FICO periods as per the order periods & do the settlement. Then close the order. Then try archival.
Note: As much as information you give, as fast as you will get proper responses. Keep more information in your thread always. -
Customisation settings for VC Configuration copy from Purchase order to GRN(Goods Receipt note)
Hi Experts
I was looking for Customisation settings for VC Configuration copy from Purchase order to GRN(Goods Receipt note),
Please share.
Regards
SandeepHi Ritesh
Thanks for your reply,
I checked both of these transaction we need to select 3 option Characetrstics frm configuration(prio) and classification. I will check that, I had one more question
In PO VC configuration is called for class type-300 and in GRN VC configuration is called for class type -023. How it will fetch the variant class configuration to Batch class configuration?
Once we had faced some issues the copy from PO to GRN was happening for some batches & some batches it was not happening.
yes we have activated Mill Functions in our ERP box.
Regards
Sandeep -
Purchase orders pending of goods receipt.
Hello,
Is it possible to obtain the list of Purchase orders pending of Goods Receipt?
I need to know the third party P.O pending of goods receipts.
Is there any program?
Thanks in advance,
Ricard.Hi oscar
You can list of Purchase orders pending of Goods Receipt by Tcode ME2N and select field
Source of list - ALV
Selection parameter - WE101
As per your requirement Assign Plant and Compnay code.
Just execute.
it list list all po whose gr is pending
Regards,
Vraj -
Hi all
Let me know about Report for Goods receipt without Invoice for Purchase order? ie. PO pending for Invoice?
If anybody a report, pls send it to me. I have used 101-102, 105-106 movement types?
So any one send that reports?Hi Muthu
I am sending you one source code regarding the Goods receipt without invoice.
Pls reward pts if help.
Regards
Deepanker.
FUNCTION zrfc_vcs_get_goodsreceipt.
*& Program Name : ZRFC_VCS_GET_GOODSRECEIPT *
*& Title : Function Module for getting the GOODSRECEIPT *
*& Details *
*& Author : M.Jayasree *
*& Create Date : 21/03/2007 *
*& Logical DB : None *
*& Program Type : FM *
*& SAP Release : 4.6 *
*& Description : This is a program used for retrieving the *
*& GOODSRECEIPT Details. *
*& REVISION LOG *
*& LOG# DATE AUTHOR *
*& 0000 21/03/2007 Jayasree.M *
Tables *
TABLES : mkpf,komv,mseg.
Data declarations *
DATA: lv_suc_date TYPE d,
lv_suc_time TYPE t,
lv_fileloc TYPE char40,
lv_filename TYPE char40,
lv_date TYPE d,
lv_time TYPE t,
lv_filepath TYPE string,
lv_error TYPE char50,
lv_fileloc1 TYPE char20,
lv_filename1 TYPE char40,
lv_filepath1 TYPE string,
lv_value TYPE zvcsconfig-zvalue,
lv_value_h TYPE zvcsconfig-zvalue,
lv_value1 TYPE zvcsconfig-zvalue,
lv_fileloc_d TYPE char40,
lv_filename_d TYPE char40,
lv_filepath_d TYPE string,
lv_value_d TYPE zvcsconfig-zvalue,
lv_fileloc_d1 TYPE char40,
lv_filename_d1 TYPE char40,
lv_filepath_d1 TYPE string,
lv_value_d1 TYPE zvcsconfig-zvalue,
lv_taxamt TYPE bseg-wrbtr,
lv_elikz TYPE mseg-elikz,
lv_waers TYPE mseg-waers,
lv_emlif TYPE mseg-emlif,
lv_dmbtr TYPE mseg-dmbtr,
lv_vkwrt TYPE mseg-vkwrt,
lv_menge_acc TYPE mseg-menge,
lv_ebeln TYPE ebeln,
lv_lifnr TYPE ekko-lifnr,
lv_wkurs TYPE ekko-wkurs,
lv_ekgrp TYPE ekko-ekgrp,
lv_bsart TYPE ekko-bsart,
lv_inco1 TYPE ekko-inco1,
lv_land1 TYPE lfa1-land1,
lv_eknam TYPE eknam,
lv_knumv TYPE ekko-knumv,
lv_lifnr_t TYPE komv-lifnr,
lv_kwert TYPE kwert,
lv_changenr TYPE cdchangenr,
lv_flag TYPE c,
lv_sum_a TYPE kwert,
lv_sum_a1 TYPE kwert,
lv_sum_a1_a TYPE kwert,
lv_sum_a_a TYPE kwert,
lv_count TYPE n,
lv_wempf TYPE wempf,
lv_add TYPE kwert,
lv_werks_p TYPE werks_d,
lv_maktx TYPE maktx,
lv_wemng TYPE wemng,
lv_ebelp_b TYPE ebelp,
lv_erfmg_b TYPE erfmg,
lv_menge_r TYPE menge_d,
lv_remng TYPE remng,
lv_rewrt TYPE rewrt,
lv_wrbtr TYPE wrbtr,
lv_mwskz TYPE mwskz,
lv_wmwst TYPE wmwst,
lv_lifnr_sc TYPE lifnr,
lv_pstyp TYPE pstyp,
lv_menge TYPE menge_d,
lv_budat TYPE budat,
lv_waers_bc TYPE waers,
lv_netwr_tbv TYPE netwr,
lv_wrbtr_ai TYPE wrbtr,
lv_sum TYPE rewrt,
lv_netpr_bv TYPE netpr,
lv_etenr TYPE etenr,
lv_bstyp TYPE bstyp,
lv_grtxt TYPE grtxt,
lv_ebelp TYPE ebelp,
lv_basicv TYPE netwr,
lv_smbln TYPE mseg-smbln,
lv_waers_c TYPE ekko-waers,
lv_kwert_a TYPE konv-kwert,
lv_knumv_a TYPE ekko-knumv,
lv_knumv_a_a TYPE ekko-knumv,
lv_netwr_a TYPE ekpo-netwr,
lv_netwr_a_a TYPE ekpo-netwr,
lv_kwert_a1 TYPE konv-kwert,
lv_knumv_a1 TYPE ekko-knumv,
lv_netwr_a1 TYPE ekpo-netwr,
lv_netwr_a1_a TYPE ekpo-netwr,
lv_knumv_a1_a TYPE ekko-knumv,
lv_sum_b TYPE konv-kwert,
lv_fwnav TYPE bset-fwste,
lv_sum_b_a TYPE konv-kwert,
lv_netpr_a TYPE ekpo-netpr,
lv_erfmg_add TYPE mseg-erfmg,
lv_erfmg_add_a TYPE mseg-erfmg,
lv_netpr_a_a TYPE ekpo-netpr,
lv_netpr_a1 TYPE ekpo-netpr,
lv_netpr_a1_a TYPE ekpo-netpr,
lv_erfmg_add1 TYPE mseg-erfmg,
lv_erfmg_add1_a TYPE mseg-erfmg,
lv_menge_inv TYPE menge_d,
lv_wrbtr_inv TYPE wrbtr,
lv_netpr_tax TYPE netpr,
lv_kwert_total TYPE konv-kwert,
lv_kwert_total_a TYPE konv-kwert,
lv_kwert_total_r TYPE konv-kwert,
lv_kwert_total_r_a TYPE konv-kwert,
lv_bukrs_tax TYPE bukrs,
lv_waers_tax TYPE waers,
lv_erfmg_ret TYPE mseg-erfmg,
lv_server TYPE tsle4-server,
lv_bwart_rev TYPE mseg-bwart,
lv_erfmg_rev1 TYPE mseg-erfmg,
lv_bukrs TYPE bukrs,
lv_land1_t TYPE land1,
lv_kalsm TYPE kalsm,
lv_text1 TYPE text1,
lv_netpr_tax1 TYPE netpr,
lv_netpr_tax1_r TYPE netpr,
lv_mwskz_r TYPE mwskz,
lv_mwskz_tax TYPE mwskz,
lv_taxamt_t TYPE bseg-wrbtr,
lv_tax_tot TYPE netpr,
lv_fwnav_tax TYPE bset-fwste,
lv_taxamt_t_r TYPE bseg-wrbtr,
lv_tax_tot_r TYPE netpr,
lv_fwnav_tax_r TYPE bset-fwste,
lv_bukrs_tax_r TYPE bukrs,
lv_waers_tax_r TYPE waers,
lv_mblnr_rev TYPE mblnr,
lv_erfmg_rej TYPE erfmg,
lv_budat_m TYPE budat,
lv_bldat_m TYPE bldat,
lv_year1(4),
lv_mth1(2),
lv_day1(2),
lv_base TYPE waers,
lv_base_t TYPE waers,
lv_waers_t TYPE waers,
lv_wkurs_b TYPE wkurs,
lv_stblg_re TYPE stblg,
lv_belnr TYPE belnr_d.
Structures *
Structures for storing the output HEADER file
TYPES: BEGIN OF t_fintab1,
mblnr(30) TYPE c, "GRNumber
ebeln(20) TYPE c, "PONumber
changenr(38) TYPE c, "POAmendmentNumber
lifnr(22) TYPE c, "SupplierCode
adr_code(20) TYPE c, "AddressCode
plt_code(22) TYPE c, "PlantCode
land1(3) TYPE c, "CountryCode
elikz(25) TYPE c, "GoodsReceiptStatus
waers(3) TYPE c, "CurrencyCode
wkurs(34) TYPE c, "ExchRateValue
server(100) TYPE c, "ERPSource
ekgrp(22) TYPE c, "BuyerCode
eknam(240) TYPE c, "BuyerName
bldat(20) TYPE c, "GoodsReceiptDate
bsart(25) TYPE c, "DocType
bsart_c(50) TYPE c, "ContractType
asnno(8) TYPE c, "ASNNo
asndate(20) TYPE c, "ASNDate
xblnr(16) TYPE c, "DCNo
dc_date(20) TYPE c, "DCDate
bktxt(25) TYPE c, "PreGRNo
pre_date(20) TYPE c, "PreGRDate
emlif(22) TYPE c, "ReceiverCode
re_name(240) TYPE c, "ReceiverName
lifnr_t(10) TYPE c, "ThreePLCode
inco1(8) TYPE c, "CommercialTerms
dmbtr(34) TYPE c, "TotalValue
vkwrt(34) TYPE c, "TotalBasicValue
kwert(34) TYPE c, "TotalAdditionalCharges
base(3) TYPE c, "BaseCurrencyCode
END OF t_fintab1.
Structures for storing the output HEADER for STATUS file
TYPES: BEGIN OF t_fintab_s,
mblnr(30) TYPE c, "GRNumber
ebeln(20) TYPE c, "PONumber
changenr(38) TYPE c, "POAmendmentNumber
lifnr(22) TYPE c, "SupplierCode
adr_code(20) TYPE c, "AddressCode
plt_code(22) TYPE c, "PlantCode
land1(3) TYPE c, "CountryCode
elikz(25) TYPE c, "GoodsReceiptStatus
waers(3) TYPE c, "CurrencyCode
wkurs(34) TYPE c, "ExchRateValue
server(100) TYPE c, "ERPSource
ekgrp(22) TYPE c, "BuyerCode
eknam(240) TYPE c, "BuyerName
bldat(20) TYPE c, "GoodsReceiptDate
bsart(25) TYPE c, "DocType
bsart_c(50) TYPE c, "ContractType
asnno(8) TYPE c, "ASNNo
asndate(20) TYPE c, "ASNDate
xblnr(16) TYPE c, "DCNo
dc_date(20) TYPE c, "DCDate
bktxt(25) TYPE c, "PreGRNo
pre_date(20) TYPE c, "PreGRDate
emlif(22) TYPE c, "ReceiverCode
re_name(240) TYPE c, "ReceiverName
lifnr_t(10) TYPE c, "ThreePLCode
inco1(8) TYPE c, "CommercialTerms
dmbtr(34) TYPE c, "TotalValue
vkwrt(34) TYPE c, "TotalBasicValue
kwert(34) TYPE c, "TotalAdditionalCharges
smbln TYPE mseg-smbln,"For reversal status
END OF t_fintab_s.
Structures for storing the output DETAIL file
TYPES: BEGIN OF t_fintab2,
zeile(22) TYPE c, "GRLineNumber
mblnr(30) TYPE c, "GRNumber
server(100) TYPE c, "ERPSource
ebelp(38) TYPE c, "POLineNumber
ebeln(20) TYPE c, "PONumber
changenr(38) TYPE c, "POAmendmentNumber
scheculenumber(38) TYPE c, "ScheduleNumber
meins(25) TYPE c, "UOM
lgort(22) TYPE c, "WarehouseCode
waers(3) TYPE c, "Currency Code
matnr(40) TYPE c, "PartNumber
maktx(240) TYPE c, "PartDescription
kostl(22) TYPE c, "CostCenterCode
bukrs(15) TYPE c, "CompanyCode
menge_i(22) TYPE c, "InspectedQuantity
wemng(22) TYPE c, "GRRecievedQuantity
menge_a(22) TYPE c, "GRAcceptedQuantity
menge_g(22) TYPE c, "GRRejectedQuantity
grrework(22) TYPE c, "GRReworkQuantity
menge_r(22) TYPE c, "GRReturnedQuantity
grund(25) TYPE c, "RejnReason
remng(22) TYPE c, "QuantityInvoiced
rewrt(34) TYPE c, "AmountInvoiced
wrbtr(34) TYPE c, "AmountPaid
mwskz_t(100) TYPE c, "TaxCode
wmwst_w(34) TYPE c, "TaxValue
lifnr_sc(22) TYPE c, "SupplierCode
adr_code(20) TYPE c, "AddressCode
taxdiscount(34) TYPE c, "TaxChargeDiscount
mwskz_v(22) TYPE c, "VATCode
wmwst_v(34) TYPE c, "VATValue
vatoption(1) TYPE c, "VATOption
kwert_i(34) TYPE c, "InspectionCost
pstyp(25) TYPE c, "IssueType
pendingschdqty(22) TYPE c, "PendingSchdQuantity
menge_o(22) TYPE c, "POOrderQty
erfmg(22) TYPE c, "MovedQty
tobemovedqty(22) TYPE c, "TobeMovedQty
balanceqty(22) TYPE c, "BalanceQty
netpr_bv(34) TYPE c, "BasicValue
kwert_a(34) TYPE c, "AdditionalCharges
budat_i(20) TYPE c, "InspectionDate
budat_m(20) TYPE c, "MovedDate
elikz(25) TYPE c, "GRItemStatus
budat_g(20) TYPE c, "GRRecdDate
END OF t_fintab2.
Structures for storing the MKPF
TYPES: BEGIN OF t_mkpf,
mblnr TYPE mkpf-mblnr,
budat TYPE mkpf-budat,
xblnr TYPE mkpf-xblnr,
bldat TYPE mkpf-bldat,
END OF t_mkpf.
Structures for storing the MSEG
TYPES: BEGIN OF t_mseg,
matnr TYPE mseg-matnr,
zeile TYPE mblpo,
menge TYPE menge_d,
meins TYPE mseg-meins,
lgort TYPE mseg-lgort,
mblnr TYPE mseg-mblnr,
bukrs TYPE mseg-bukrs,
ebeln TYPE bstnr,
ebelp TYPE ekpo-ebelp,
kostl TYPE mseg-kostl,
waers TYPE mseg-waers,
erfmg TYPE mseg-erfmg,
vkwrt TYPE mseg-vkwrt,
elikz TYPE mseg-elikz,
insmk TYPE mseg-insmk,
bwart TYPE mseg-bwart,
grund TYPE mseg-grund,
END OF t_mseg.
Structures for storing the log file
TYPES: BEGIN OF t_logfile,
desc TYPE char50,
END OF t_logfile.
Structures for storing the RSEG file
TYPES: BEGIN OF t_rseg,
menge TYPE menge_d,
wrbtr TYPE wrbtr,
END OF t_rseg.
TYPES: BEGIN OF t_add,
ebeln TYPE ebeln,
END OF t_add.
TYPES: BEGIN OF t_add1,
ebeln TYPE ebeln,
ebelp TYPE ebelp,
END OF t_add1.
TYPES: BEGIN OF t_total,
dmbtr TYPE dmbtr,
END OF t_total.
TYPES: BEGIN OF t_total1,
dmbtr TYPE dmbtr,
END OF t_total1.
TYPES: BEGIN OF t_basictotal,
erfmg TYPE erfmg,
END OF t_basictotal.
TYPES: BEGIN OF t_basic,
ebeln TYPE ebeln,
ebelp TYPE ebelp,
erfmg TYPE erfmg,
END OF t_basic.
TYPES: BEGIN OF t_zcond,
zcond1 TYPE kscha,
zcond2 TYPE kscha,
zcond3 TYPE kscha,
zcond4 TYPE kscha,
zcond5 TYPE kscha,
zcond6 TYPE kscha,
zcond7 TYPE kscha,
zcond8 TYPE kscha,
zcond9 TYPE kscha,
zcond10 TYPE kscha,
END OF t_zcond.
TYPES: BEGIN OF t_add_k,
kwert TYPE konv-kwert,
END OF t_add_k.
TYPES: BEGIN OF t_tax,
ebeln TYPE mseg-ebeln,
ebelp TYPE mseg-ebelp,
menge TYPE mseg-menge,
END OF t_tax.
TYPES: BEGIN OF t_mseg_m,
mblnr TYPE mblnr,
elikz TYPE elikz,
wempf TYPE wempf,
ebeln TYPE ebeln,
ebelp TYPE ebelp,
werks TYPE werks,
erfmg TYPE erfmg,
bwart TYPE bwart,
bukrs TYPE bukrs,
lfbnr TYPE lfbnr,
END OF t_mseg_m.
TYPES: BEGIN OF t_erfmg,
erfmg TYPE erfmg,
END OF t_erfmg.
Internal tables *
DATA: i_zrfcinfo LIKE zrfcinfo OCCURS 0 WITH HEADER LINE,
i_fintab1 TYPE TABLE OF t_fintab1 WITH HEADER LINE,
i_fintab_s TYPE TABLE OF t_fintab_s WITH HEADER LINE,
i_fintab2 TYPE TABLE OF t_fintab2 WITH HEADER LINE,
i_mkpf TYPE TABLE OF t_mkpf WITH HEADER LINE,
i_mseg TYPE TABLE OF t_mseg WITH HEADER LINE,
i_rseg TYPE TABLE OF t_rseg WITH HEADER LINE,
i_total TYPE TABLE OF t_total WITH HEADER LINE,
i_basictotal TYPE TABLE OF t_basictotal WITH HEADER LINE,
i_erfmg TYPE TABLE OF t_erfmg WITH HEADER LINE,
i_erfmg1 TYPE TABLE OF t_erfmg WITH HEADER LINE,
i_basic TYPE TABLE OF t_basic WITH HEADER LINE,
i_total1 TYPE TABLE OF t_total1 WITH HEADER LINE,
i_tax TYPE TABLE OF t_tax WITH HEADER LINE,
i_tax_r TYPE TABLE OF t_tax WITH HEADER LINE,
i_mseg_m TYPE TABLE OF t_mseg_m WITH HEADER LINE,
i_add TYPE TABLE OF t_add1 WITH HEADER LINE,
i_add_a TYPE TABLE OF t_add1 WITH HEADER LINE,
i_add1 TYPE TABLE OF t_add1 WITH HEADER LINE,
i_zcond TYPE TABLE OF t_zcond WITH HEADER LINE,
i_zcond_r TYPE TABLE OF t_zcond WITH HEADER LINE,
i_add_cond TYPE TABLE OF t_add_k WITH HEADER LINE,
i_add_cond_r TYPE TABLE OF t_add_k WITH HEADER LINE,
i_add_cond_r_a TYPE TABLE OF t_add_k WITH HEADER LINE,
i_zcond_a TYPE TABLE OF t_zcond WITH HEADER LINE,
i_add_cond_a TYPE TABLE OF t_add_k WITH HEADER LINE,
i_add1_a TYPE TABLE OF t_add1 WITH HEADER LINE,
i_zcond_r_a TYPE TABLE OF t_zcond WITH HEADER LINE,
i_logfile TYPE TABLE OF t_logfile WITH HEADER LINE,
i_fintab1_h TYPE TABLE OF t_fintab1 WITH HEADER LINE,
i_fintab2_h TYPE TABLE OF t_fintab2 WITH HEADER LINE.
DATA: BEGIN OF i_mwdat OCCURS 0.
INCLUDE STRUCTURE rtax1u15.
DATA: END OF i_mwdat.
DATA: BEGIN OF i_mwdat_t OCCURS 0.
INCLUDE STRUCTURE rtax1u15.
DATA: END OF i_mwdat_t.
DATA: BEGIN OF i_mwdat_t_r OCCURS 0.
INCLUDE STRUCTURE rtax1u15.
DATA: END OF i_mwdat_t_r.
Work areas *
DATA : wa_zrfcinfo TYPE zrfcinfo.
Get the last execution date/time from ZTABLE
SELECT *
FROM zrfcinfo
INTO TABLE i_zrfcinfo
WHERE
name = 'ZRFC_VCS_GET_GOODSRECEIPT' AND
status = '1'.
DESCRIBE TABLE i_zrfcinfo LINES sy-tabix.
Sort the table for retrieving the latest date/time
SORT i_zrfcinfo BY exc_date DESCENDING exc_time DESCENDING.
READ TABLE i_zrfcinfo INDEX 1.
IF sy-subrc = 0.
lv_suc_date = i_zrfcinfo-exc_date.
lv_suc_time = i_zrfcinfo-exc_time.
ENDIF.
Fetch the updated records from the table MKPF between the latest
*date/time
lv_suc_date = '20070529'.
SELECT mblnr
budat
xblnr
bldat
FROM mkpf
INTO TABLE i_mkpf
WHERE
cpudt GE lv_suc_date AND
cputm GE lv_suc_time.
HEADER
For multiple PO
IF NOT i_mkpf[] IS INITIAL.
SELECT mblnr
elikz
wempf
ebeln
ebelp
werks
erfmg
bwart
bukrs
lfbnr
FROM mseg
INTO TABLE i_mseg_m
FOR ALL ENTRIES IN i_mkpf
WHERE mblnr = i_mkpf-mblnr
and bwart NE '543'.
IF NOT lv_suc_date IS INITIAL.
SELECT mblnr
elikz
wempf
ebeln
ebelp
werks
erfmg
bwart
bukrs
FROM mseg
INTO TABLE i_mseg_m
FOR ALL ENTRIES IN i_mseg_m
WHERE mblnr = i_mseg_m-lfbnr
ENDIF.
ENDIF.
For Selecting the ERP Source
SELECT SINGLE server INTO lv_server FROM tsle4.
Appending all the fields to the output HEADER file layout
LOOP AT i_mseg_m.
MOVE-CORRESPONDING i_mseg_m TO i_fintab1.
CONCATENATE i_mseg_m-mblnr '-' i_mseg_m-ebeln '-' i_mseg_m-ebelp
INTO i_fintab1-mblnr.
CLEAR : lv_budat_m , lv_bldat_m .
For GR Date
SELECT SINGLE budat bldat INTO (lv_budat_m , lv_bldat_m) FROM mkpf
WHERE mblnr = i_mseg_m-mblnr.
IF sy-subrc = 0.
i_fintab1-bldat = lv_budat_m.
lv_year1 = lv_bldat_m+0(4).
lv_mth1 = lv_bldat_m+4(2).
lv_day1 = lv_bldat_m+6(2).
CONCATENATE lv_day1 '/' lv_mth1 '/' lv_year1 INTO i_fintab1-dc_date.
ENDIF.
Retrieve the base currency code
CLEAR lv_base.
SELECT SINGLE waers INTO lv_base FROM t001 WHERE bukrs =
i_mseg_m-bukrs.
IF sy-subrc = 0.
i_fintab1-base = lv_base.
ENDIF.
For the Receiver Name
i_fintab1-re_name = i_mseg_m-wempf.
For the Plant Code
i_fintab1-plt_code = i_mseg_m-werks.
For the ERP Source
i_fintab1-server = lv_server.
For The Address Code
i_fintab1-adr_code = 'A1'.
For the Quantity ( ebeln - PO number , Elelp - PO line number,
erfmg - Quantity, bwart - Movement type ).
SELECT ebeln ebelp erfmg INTO TABLE i_basic FROM mseg WHERE mblnr =
i_mseg_m-mblnr AND bwart NE '543' AND ebeln = i_mseg_m-ebeln AND
ebelp = i_mseg_m-ebelp.
CLEAR lv_basicv.
LOOP AT i_basic.
Retrieve from table EKPO (Po LineItem) for total basic value( netpr
- Net price )
SELECT SINGLE netpr
INTO lv_netwr_tbv
FROM ekpo WHERE ebeln = i_basic-ebeln
AND ebelp = i_basic-ebelp.
IF sy-subrc = 0.
lv_basicv = lv_basicv + i_basic-erfmg * lv_netwr_tbv.
ENDIF.
Retrieve the basic value for Reversal
SELECT erfmg INTO TABLE i_basictotal FROM mseg
WHERE ( bwart = '122' OR bwart = '124' OR bwart = '161' )
AND lfbnr = i_mseg_m-mblnr AND ebelp = i_basic-ebelp
AND ebeln = i_basic-ebeln.
LOOP AT i_basictotal.
lv_basicv = lv_basicv - ( i_basictotal-erfmg * lv_netwr_tbv ).
ENDLOOP.
ENDLOOP.
lv_basicv move to total basic value i.e i_fintab1-vkwrt
MOVE lv_basicv TO i_fintab1-vkwrt.
CONDENSE i_fintab1-vkwrt NO-GAPS.
Retrieve the total value from table MSEG ( GR Line item )
SELECT dmbtr INTO TABLE i_total FROM mseg
WHERE mblnr = i_mseg_m-mblnr AND ebeln = i_mseg_m-ebeln
AND ebelp = i_mseg_m-ebelp.
LOOP AT i_total.
lv_dmbtr = lv_dmbtr + i_total-dmbtr.
ENDLOOP.
Calculating the total value for reversal
SELECT dmbtr INTO TABLE i_total1 FROM mseg
WHERE ( bwart = '122' OR bwart = '124' OR bwart = '161' )
AND lfbnr = i_mseg_m-mblnr AND ebeln = i_mseg_m-ebeln
AND ebelp = i_mseg_m-ebelp .
LOOP AT i_total1.
lv_dmbtr = lv_dmbtr - i_total1-dmbtr.
ENDLOOP.
For getting the exchange Rate ( wkurs - Exchange Rate )
SELECT SINGLE wkurs INTO lv_wkurs_b FROM ekko
WHERE ebeln = i_mseg_m-ebeln .
IF sy-subrc = 0.
lv_dmbtr = lv_dmbtr / lv_wkurs_b.
ENDIF.
Calculate the tax
CLEAR : i_tax, lv_netpr_tax1 , lv_mwskz, lv_taxamt_t , lv_tax_tot ,
lv_fwnav_tax, lv_bukrs_tax , lv_waers_tax.
*****( menge - Quantity ).
SELECT ebeln ebelp menge FROM mseg INTO TABLE i_tax
WHERE mblnr = i_mseg_m-mblnr AND ebeln = i_mseg_m-ebeln
AND ebelp = i_mseg_m-ebelp.
LOOP AT i_tax.
( bukrs - Company Code , waers - Currency Key ).
SELECT SINGLE bukrs waers INTO (lv_bukrs_tax , lv_waers_tax)
FROM ekko WHERE ebeln = i_tax-ebeln.
*****( netpr - net price , mwskz - tax on sales).
SELECT SINGLE netpr mwskz INTO (lv_netpr_tax1 , lv_mwskz)
FROM ekpo WHERE ebeln = i_tax-ebeln AND ebelp = i_tax-ebelp.
IF sy-subrc = 0.
lv_taxamt_t = i_tax-menge * lv_netpr_tax1.
ENDIF.
IF NOT lv_mwskz IS INITIAL.
CALL FUNCTION 'CALCULATE_TAX_FROM_NET_AMOUNT'
EXPORTING
i_bukrs = lv_bukrs_tax
i_mwskz = lv_mwskz
i_waers = lv_waers_tax
i_wrbtr = lv_taxamt_t
IMPORTING
e_fwnav = lv_fwnav_tax
TABLES
t_mwdat = i_mwdat_t.
IF sy-subrc <> 0.
ENDIF.
ENDIF.
lv_tax_tot = lv_tax_tot + lv_fwnav_tax.
CLEAR lv_fwnav_tax.
ENDLOOP.
For reversal
CLEAR : i_tax_r, lv_netpr_tax1_r, lv_mwskz_r, lv_taxamt_t_r,
lv_tax_tot_r, lv_fwnav_tax_r, lv_bukrs_tax_r, lv_waers_tax_r
SELECT ebeln ebelp menge FROM mseg
INTO TABLE i_tax_r WHERE ( bwart = '122' OR bwart = '124' OR bwart =
'161' )
AND lfbnr = i_mseg_m-mblnr AND ebeln = i_mseg_m-ebeln
AND ebelp = i_mseg_m-ebelp.
LOOP AT i_tax_r.
SELECT SINGLE bukrs waers INTO (lv_bukrs_tax_r , lv_waers_tax_r)
FROM ekko WHERE ebeln = i_tax_r-ebeln.
SELECT SINGLE netpr mwskz INTO (lv_netpr_tax1_r , lv_mwskz_r)
FROM ekpo WHERE ebeln = i_tax_r-ebeln AND ebelp = i_tax_r-ebelp.
IF sy-subrc = 0.
lv_taxamt_t_r = i_tax_r-menge * lv_netpr_tax1_r.
ENDIF.
IF NOT lv_mwskz_r IS INITIAL.
CALL FUNCTION 'CALCULATE_TAX_FROM_NET_AMOUNT'
EXPORTING
i_bukrs = lv_bukrs_tax_r
i_mwskz = lv_mwskz_r
i_waers = lv_waers_tax_r
i_wrbtr = lv_taxamt_t_r
IMPORTING
e_fwnav = lv_fwnav_tax_r
TABLES
t_mwdat = i_mwdat_t_r.
IF sy-subrc <> 0.
ENDIF.
ENDIF.
lv_tax_tot_r = lv_tax_tot_r + lv_fwnav_tax_r.
CLEAR lv_fwnav_tax_r.
ENDLOOP.
Finally the Total value is moving to i_fintab-dmbtr
i_fintab1-dmbtr = lv_dmbtr + lv_tax_tot - lv_tax_tot_r.
CONDENSE i_fintab1-dmbtr NO-GAPS.
IF i_fintab1-dmbtr = ' '.
i_fintab1-dmbtr = '0.0000'.
ENDIF.
IF i_fintab1-vkwrt = ' '.
i_fintab1-vkwrt = '0.0000'.
ENDIF.
SELECT SINGLE mblnr INTO lv_mblnr_rev FROM mseg
WHERE ( bwart = '102' OR bwart = '104' OR bwart = '106' )
AND lfbnr = i_mseg_m-mblnr AND ebeln = i_mseg_m-ebeln
AND ebelp = i_mseg_m-ebelp.
IF sy-subrc = 0.
i_fintab1-elikz = 'Reversed'.
ELSEIF i_fintab1-elikz = 'X'.
i_fintab1-elikz = 'Completed'.
ELSEIF i_fintab1-elikz = ' '.
i_fintab1-elikz = 'NotCompleted'.
ENDIF.
Retrieve from table EKKO for Supplier Code , Exchange Rate,
Purchasing Group, Purchasing Document Type,
SELECT SINGLE lifnr
wkurs
ekgrp
bsart
inco1
knumv
waers
INTO (lv_lifnr , lv_wkurs, lv_ekgrp , lv_bsart ,
lv_inco1 , lv_knumv , lv_waers_c)
FROM ekko
WHERE ebeln = i_mseg_m-ebeln.
IF sy-subrc = 0.
i_fintab1-lifnr = lv_lifnr.
i_fintab1-ekgrp = lv_ekgrp.
i_fintab1-waers = lv_waers_c.
i_fintab1-bsart = lv_bsart.
i_fintab1-inco1 = lv_inco1.
i_fintab1-bsart_c = lv_bsart.
MOVE lv_wkurs TO i_fintab1-wkurs.
CONDENSE i_fintab1-wkurs NO-GAPS.
ENDIF.
Retreive for Land
SELECT SINGLE land1 INTO lv_land1 FROM lfa1 WHERE lifnr = lv_lifnr .
IF sy-subrc = 0.
i_fintab1-land1 = lv_land1.
ENDIF.
Retrieve from table T024 for BuyerCode
SELECT SINGLE eknam INTO lv_eknam FROM t024 WHERE ekgrp = lv_ekgrp.
IF sy-subrc = 0.
i_fintab1-eknam = lv_eknam.
ENDIF.
Retrieve from table KONV for AdditionalCharges
Retrieve PO Number, PO Line Number from GR Line Item
SELECT ebeln ebelp INTO TABLE i_add FROM mseg
WHERE mblnr = i_mseg_m-mblnr AND ebeln = i_mseg_m-ebeln
AND ebelp = i_mseg_m-ebelp.
DELETE ADJACENT DUPLICATES FROM i_add COMPARING ebeln ebelp .
LOOP AT i_add.
********( knumv - number of document condition )
SELECT SINGLE knumv INTO lv_knumv_a FROM ekko
WHERE ebeln = i_add-ebeln.
IF sy-subrc = 0.
CLEAR : i_zcond,i_add_cond[], lv_kwert_total.
SELECT zcond1
zcond2
zcond3
zcond4
zcond5
zcond6
zcond7
zcond8
zcond9
zcond10
FROM zvcs_con_config
INTO TABLE i_zcond
WHERE ( zid = '001' ) OR
( zid = '002' ) OR
( zid = '003' ) OR
( zid = '004' ) OR
( zid = '005' ).
LOOP AT i_zcond.
SELECT kwert APPENDING TABLE i_add_cond FROM konv
WHERE knumv = lv_knumv_a AND kposn = i_add-ebelp
AND ( ( kschl EQ i_zcond-zcond1 ) OR
( kschl EQ i_zcond-zcond2 ) OR
( kschl EQ i_zcond-zcond3 ) OR
( kschl EQ i_zcond-zcond4 ) OR
( kschl EQ i_zcond-zcond5 ) OR
( kschl EQ i_zcond-zcond6 ) OR
( kschl EQ i_zcond-zcond7 ) OR
( kschl EQ i_zcond-zcond8 ) OR
( kschl EQ i_zcond-zcond9 ) OR
( kschl EQ i_zcond-zcond10 ) ).
ENDLOOP.
CLEAR : lv_kwert_total.
LOOP AT i_add_cond.
lv_kwert_total = lv_kwert_total + i_add_cond-kwert.
ENDLOOP.
CLEAR : lv_sum_a.
IF sy-subrc = 0.
lv_sum_a = lv_sum_a + lv_kwert_total.
SELECT SINGLE netwr netpr INTO (lv_netwr_a , lv_netpr_a)
FROM ekpo WHERE ebeln = i_add-ebeln AND ebelp = i_add-ebelp.
SELECT SINGLE erfmg INTO lv_erfmg_add FROM mseg
WHERE mblnr = i_mseg_m-mblnr AND ebeln = i_add-ebeln
AND ebelp = i_add-ebelp.
lv_sum_b = lv_sum_b + ( lv_erfmg_add * lv_netpr_a ) *
lv_sum_a / lv_netwr_a .
ENDIF.
ENDIF.
CLEAR : lv_kwert_a, lv_knumv_a , lv_netwr_a , lv_netpr_a ,
lv_erfmg_add.
ENDLOOP.
CLEAR: lv_sum_a.
Retrieve the returned
SELECT ebeln ebelp INTO TABLE i_add1 FROM mseg
WHERE ( bwart = '122' OR bwart = '124' OR bwart = '161' )
AND lfbnr = i_mseg_m-mblnr AND ebeln = i_mseg_m-ebeln
AND ebelp = i_mseg_m-ebelp.
DELETE ADJACENT DUPLICATES FROM i_add1 COMPARING ebeln.
LOOP AT i_add1.
SELECT SINGLE knumv INTO lv_knumv_a1 FROM ekko
WHERE ebeln = i_add-ebeln.
IF sy-subrc = 0.
CLEAR : i_zcond_r,i_add_cond_r[], lv_kwert_total_r.
SELECT zcond1
zcond2
zcond3
zcond4
zcond5
zcond6
zcond7
zcond8
zcond9
zcond10
FROM zvcs_con_config
INTO TABLE i_zcond_r
WHERE ( zid = '001' ) OR
( zid = '002' ) OR
( zid = '003' ) OR
( zid = '004' ) OR
( zid = '005' ).
LOOP AT i_zcond_r.
SELECT kwert APPENDING TABLE i_add_cond_r FROM konv
WHERE knumv = lv_knumv_a1 AND kposn = i_add1-ebelp
AND ( ( kschl EQ i_zcond_r-zcond1 ) OR
( kschl EQ i_zcond_r-zcond2 ) OR
( kschl EQ i_zcond_r-zcond3 ) OR
( kschl EQ i_zcond_r-zcond4 ) OR
( kschl EQ i_zcond_r-zcond5 ) OR
( kschl EQ i_zcond_r-zcond6 ) OR
( kschl EQ i_zcond_r-zcond7 ) OR
( kschl EQ i_zcond_r-zcond8 ) OR
( kschl EQ i_zcond_r-zcond9 ) OR
( kschl EQ i_zcond_r-zcond10 ) ).
append i_add_cond.
ENDLOOP.
LOOP AT i_add_cond_r.
lv_kwert_total_r = lv_kwert_total_r + i_add_cond_r-kwert.
ENDLOOP.
IF sy-subrc = 0.
lv_sum_a1 = lv_sum_a1 + lv_kwert_total_r .
SELECT SINGLE netwr netpr INTO (lv_netwr_a1 , lv_netpr_a1)
FROM ekpo WHERE ebeln = i_add-ebeln.
CLEAR : i_erfmg.
SELECT erfmg INTO TABLE i_erfmg FROM mseg
WHERE ( bwart = '122' OR bwart = '124' OR bwart = '161' )
AND lfbnr = i_mseg_m-mblnr AND ebeln = i_mseg_m-ebeln
AND ebelp = i_mseg_m-ebelp. -
Function module for open sales order and open PO
hi all,
can anyone please tell me that is there any function module to get open sale order and also for open purchase order?
regards saurabh.Hi ,
In EKPO Table u select this fields Purchase Document no and Item no of Purchsing Document , Material no , and Purchase Order Qty.
In MSEG Table u select this fields Purchase Document no and Item no of Purchsing Document , Material no , and Qty.
Both Tables having Purchase Document no , So Purchase Doucment no throguh u will get the Material and qty , Finally u Subract the both Material Qty's .
u will get the Open Po For particular Material.
If ur not getting ,Inform me .
Regards ,
Shankar GJ -
Getting the open sales orders and open deliveries valies
Hi SDNs,
I have a requirement that i need to get the all sales orders open values and delivery values. I need to build a logic for this scenario. could you please provide the logic for getting the open sales order values for respective customer.
Please provide logic instead of standard reports. That would be very useful
Thanks in advance
Regards,
KPlease provide logic instead of standard reports.
Really surprising !!!!!!!!!
But still I would like you to have a look at VA05 where both open quantity and open order value will flow. If you still feel to get the related tables, you can consider VBBE where you can get open order quantity
thanks
G. Lakshmipathi -
How to change Purchase Order currency after Good receipt and Good issue?
Hi,
I've a PO created last year. The PO currency has been entered wrongly.
My store colleague has been performed good received and consumed it.
Now, I am not able to change PO currency to correct one, due to this message:-
Currency can no longer be changed
Message no. 06489
Diagnosis
As a basic rule, the currency cannot be changed if there has already been a goods receipt against a document.
If the document contains external service and/or limit items, or if an invoicing plan has been assigned to an item, the currency cannot be changed following the receipt of an invoice either.
If external service items exist, the currency also cannot be changed if services that have actually been performed have already been recorded or if the item in question has been assigned to a preventive maintenance (servicing) plan.
Is there anyway to change PO currency after Good receipt and Good issue? Thanks !Diagnosis
As a basic rule, the currency cannot be changed if there has already
been a goods receipt against a document.
If the document contains external service and/or limit items,
or if an invoicing plan has been assigned to an item,
the currency cannot be changed following the receipt of an invoice either.
If external service items exist, the currency also cannot be changed if
services that have actually been performed have already been recorded or
if the item in question has been assigned to a preventive maintenance (servicing) plan.
Answer in question itself,need to cancel all documents of wrong currency in order of LIFO,
Create a new purchase order. -
Display Purchase Order Approval after Goods Receipt
Hi,
I would like to know if there is a way to view/display purchase order even though it was already received (Goods Receipt)? I would like to know who are the approvals of that particular purchase order, the units/quantities and the amount.
Thank you.Hi Reno,
But if the PO was already received in full it will not be anymore available in the Approval Status Report.
Is the Approval Decision report available to Logistic personnel?
Regards,
Hi Demarillas,
If the document is approved and u want to check the details of who approved the PO and when, you can make use of the Approval Decision Report, located in Administration --> Approval Procedure --> Approval Decision Report . Also there is another report to check with the status of the documents sent for approval which is Approval Status Report .
Hope this helps.
Regards
Reno -
Goods-Receipt Block for Purchase Order depending on Goods-Receipt Date
Hi,
I want to set up the system so it can block the Goods-Receipt for Purchase Order respectively Scheduling Agreement if the Goods Receipt is about to take place 30 days or more before the Desired Delivery Date.
For Example: If I have a Purchase Order with the desired delivery date 30.09.2008. I want to set up the system so, that it bans (forbids) the Goods Receipt before the 01.09.2008.
If possible I would want to do that without additional programming. Is it possible to set up the system using only customising settings?
Thanks for your help
BogdanHello Marius-Bodgan,
as this question is marked answered I assume you have received an solution for your requirement. Could you please share the solution with me by posting it here? I have the same requirement and did not find any possibility to do this in customizing.
Thanks in advance,
Emanuel
Found the solution in thread Re: Goods Receipt
Edited by: Emanuel Penalver on Jul 15, 2008 11:48 AM
Maybe you are looking for
-
Time Capsule won't connect to Arris Modem?
I'm trying to connect my Time Capsule to an Arris Touchstone Telephony Modem. The modem works with my gf's Belkin router, and I can plug directly into the modem and get Internet access, but my Time Capsule will not work with the modem. The green ligh
-
How do I print two DIFFERENT A5 pages onto one A4 piece of paper in Preview?
Hi, I know that within the Preview printing set up you can print two copies of one document on an A4 page. However, I want to print one copy each instead. I want to put about 8 photographs and documents onto 4 A4 pages all in A5 size to save on paper
-
How to apply one animation to play 30 different images?
I'm brand new to Edge Animate and I'm struggling to find the answer to this. I have an image that comes on to the screen from the left, then stops, then user clicks a button and the image exits stage right and next image needs to come on from stage l
-
HTTP Server Patch - 4393827 for Oracle EBS 11i
Hi, Our env is Oracle EBS 11i (11.5.10) + CU2 +ATG RUP6. We are currently on 9.2.0.8.0 I am currently applying Minimum Baseline Patches for extended support - +Patch Requirements for Extended Support of Oracle E-Business Suite Release 11.5.10 [ID 883
-
How do I back up file on external Portable Hard drive
I recently dropped my laptop on the floor doing damage to the screen. I took it to Apple store and they were able to back my hard drive onto an external hard drive. It has been a couple weeks since then and I would like to update all the files since