Very urgent purchase register
HI Gurus
Their is any reports available like purchase register? In vendor register we have the following fields
1. Purchase material
2. ED
3. Service Tax
4. Vat
in one report or which report this fields will available.
To reconcil the vendors account we are facing this problem.
Anybody can help me in this issue,
Sure will assign points
Thanks
jaya
Dear ,
SAP standard purchase reg is not available
u have to develop it through ABAP
(i am sure vendor reg ur using it is also a ABAP dev check it out )
regards,
snb
Edited by: SNB on Feb 21, 2008 7:54 AM
Similar Messages
-
Very very urgent ( RG1 register )
Dear All,
My client was updating the rg1 register through the standard process, but the entries that were updated were wrong .
Now I want to revamp the register and delete all the entries in the J_1irg1 register and also the J_21bal register. and start the process frsh for this financial year.
My question is is it possible to do the same and if yes can you give me the detailed procedure.
you will be rewared with maximum points for your valuable answers.
deepakhii,
go in SE16,put table-J_2IRG1BAL
execute then select entries and delete all
then for fresh entry,again go in SE16,then go in same table---click on table entry
then put carry forward balance and initial balance---save it.
then extract register by j2i5---then go in j2i6 for print
hope it will help you
DD -
Very urgent purchase requisition workflow
Hi,
I have been asked to develop a pr workflow,here i have to capture the tracking number along with the pr no and based on the trancking number it should go to the respective department person to release it.How can I do it.
Regards,
Latha prabhu.Hi Latha,
You could do you agent assignment using Rules (Called Role Resolution in 4.6C and below). You can create a Rule using Txn PFAC. Create a rule of category F (Agent Determination: Function to be executed). You will have to develop a function module which must adhere to a predefined interface. You can either extend the PR object to have Tracking Number as an attribute and pass it on to the FM or pass the PR to the FM and determine the tracking number in the FM. You can then determine the User or Org Object responsible. Please read the documentation and see some of the standard rules available in the system.
Cheers,
Ramki Maley. -
Very urgent vendor (Purchase register) - FI Module
HI Gurus
In SAP FI module their is any reports available like purchase register? In vendor register we have the following fields
1. Purchase material
2. ED
3. Service Tax
4. Vat
in one report or which report this fields will available.
To reconcil the vendors account we are facing this problem.
Anybody can help me in this issue,
Sure will assign points
Thanks
jayahi,
pls check this Tcode j1iln
Ranjit -
Open items for purchase order its very urgent
hi
my requirement is to write extract program for purchase order(me21) to extract only open items.
please provide sample code its very urgent.
thanks in advance.
points will be rewarded.
thanks
hari prasad reddycheck the below report :
REPORT ZMM_OPEN_PO_REPORT no standard page heading
line-size 255
message-id zwave.
======================================================================
Program Name : ZMM_OPEN_PO_REPORT *
Description : This report displays all Open PO Items and output *
would be PO Number,Material number and so on *
Author : Seshu *
Date : 01/24/2007 *
MODIFICATION HISTORY *
DATE | AUTHOR | CHANGE # | DESCRIPTION OF MODIFICATION *
--|||--
01/24/07| Seshu | DEVK921979 | Initial *
D A T A D E C L A R A T I O N P A R T ***
type-pools
type-pools : slis.
Tables
tables : ekko, " Purchase order Header
ekpo, " Purchase order Item
marc. " Material with Plant data
Internal table for output.
data : begin of i_output occurs 0,
ebeln like ekko-ebeln,
matnr like ekpo-matnr,
end of i_output.
ALV Data declaration.
data : v_repid like sy-repid.
ALV Function Module Variables
DATA: gs_layout type slis_layout_alv,
g_exit_caused_by_caller,
gs_exit_caused_by_user type slis_exit_by_user.
DATA: gt_fieldcat type slis_t_fieldcat_alv,
gs_print type slis_print_alv,
gt_events type slis_t_event,
gt_list_top_of_page type slis_t_listheader,
g_status_set type slis_formname value 'PF_STATUS_SET',
g_user_command type slis_formname value 'USER_COMMAND',
g_top_of_page type slis_formname value 'TOP_OF_PAGE',
g_top_of_list type slis_formname value 'TOP_OF_LIST',
g_end_of_list type slis_formname value 'END_OF_LIST',
g_variant LIKE disvariant,
g_save(1) TYPE c,
g_tabname_header TYPE slis_tabname,
g_tabname_item TYPE slis_tabname,
g_exit(1) TYPE c,
gx_variant LIKE disvariant.
data : gr_layout_bck type slis_layout_alv.
Ranges
ranges r_eindt for eket-eindt.
initialization.
v_repid = sy-repid.
start-of-selection.
Get the data from EKKO ,EKPO and MARC Table
perform get_data_tables.
end-of-selection.
display the data in the form of ALV
perform display_data.
*& Form get_data_tables
Get the data from EKKO,EKPO and MARC Table
FORM get_data_tables.
clear : i_output.
refresh : i_output.
fill the dates in ranges
r_eindt-low = sy-datum - 7.
r_eindt-high = sy-datum + 14.
r_eindt-option = 'BT'.
r_eindt-sign = 'I'.
append r_eindt.
Get the data from EKKO,EKPO and EKET Tables
select aebeln bmatnr into table i_output
from ekko as a inner join
ekpo as b on aebeln = bebeln
inner join marc as c on cmatnr = bmatnr
inner join mara as d on dmatnr = bmatnr
inner join eket as e on eebeln = aebeln
and eebelp = bebelp
where c~beskz = 'E'
and c~werks = '1000'
and d~mtart = 'FERT'
and b~loekz = space
and b~elikz = space
and e~eindt in r_eindt.
if sy-subrc ne 0.
message e000(zwave) with 'No open purchase order found'.
endif.
ENDFORM. " get_data_tables
*& Form display_data
text
FORM display_data.
Fill the Fiedlcat
PERFORM fieldcat_init using gt_fieldcat[].
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = v_repid
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = g_user_command
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
IS_LAYOUT = gr_layout_bck
IT_FIELDCAT = gt_fieldcat[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = g_save
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
IT_ALV_GRAPHICS =
IT_ADD_FIELDCAT =
IT_HYPERLINK =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IT_EXCEPT_QINFO =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = i_output
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_data
*& Form fieldcat_init
text
-->P_GT_FIELDCAT[] text
FORM fieldcat_init USING e01_lt_fieldcat type slis_t_fieldcat_alv.
DATA: LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
Purchase order number
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'EBELN'.
LS_FIELDCAT-ref_fieldname = 'EBELN'.
LS_FIELDCAT-ref_tabname = 'EKKO'.
LS_FIELDCAT-TABNAME = 'I_OUTPUT'.
ls_fieldcat-seltext_L = 'Purchase Order'.
ls_fieldcat-seltext_M = 'Purchase Order'.
ls_fieldcat-seltext_S = 'Purchase Order'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Material #
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'MATNR'.
LS_FIELDCAT-ref_fieldname = 'MATNR'.
LS_FIELDCAT-ref_tabname = 'EKPO'.
LS_FIELDCAT-TABNAME = 'I_OUTPUT'.
ls_fieldcat-seltext_L = 'Material'.
ls_fieldcat-seltext_M = 'Material'.
ls_fieldcat-seltext_S = 'Material'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
ENDFORM. " fieldcat_init -
Dear sapians,
Is there any tcode for uploading the vendor master purchasing data (only)? like FK15 and FK16 for uploading company code data and general data in Vendor master.
Please it is very urgent.....
Thanks to advance
Senthilhi
go for LSMW , there is no TCODE for uploading data .
regards
ravikant dewangan -
Retrieving the Change Texts per Line Item (Purchase Order) - Very urgent
Hi,
How do you retrieve the Change Texts per Line Item (Purchase Order).
Table T166T does not list these values per line item.
Please help. This is very urgent & important.
Best Regards,
Johnif you are lookin out for change of item texts ...
then use the function module ... READ_TEXT.
and 2 tables r used ... STXH and TLINE ....
double click on item data ...
goto PO TEXT tab ....
double click on text ...
from menu ...
goto header ... u'll get 4 fields that u need to consider ...
TDID
TDOBJECT
TDHEAD
TDNAME
ALL THESE U'LL FIND IN STXH
ITEM TEXT is stored in TLINE
Edited by: anjali rana on Mar 5, 2008 4:55 AM -
Hi Gurus,
Can anyone send me the code for purchase register program.
I am unable to extract data from bset table .
its very urgent.
thanks in advance.
Edited by: Alvaro Tejada Galindo on Apr 14, 2008 5:22 PMPurchase Register Report
Purchase Register
Reward points.. -
In purchase register i need material wise gl wise amount
In Miro transaction when i see line items
I.e i can display Material, PO number and amount.
If i click on follow on documents i can display GL wise amount.
Now my requirement is for each material what is the
GR/IR Gl and its amount.
Cenvat GL and its amount
Vat receivable and its amount. ETC.
material wise i need to display all this information.
Format
IV NO GR NO GR/IR GL Code GL desc
material code amount
cenvat GL code
material code amount
vat rece GL
material code amount.
In this way i need to display that in Purchase register.
So can any one help me how to related material GL code and its amount.
for GR/IR i can find val class and against its GL but for cenvat and
vat receivable how can i do that.
Requirement is very urgent.Hi,
Standard reports not avialbale for your requirment but Try with T.codes,
1.MB5L,
2.ME80FN,
3.MB5S
Regards,
Biju K
Edited by: Bijay Kumar Barik on Apr 16, 2008 3:12 PM -
In purchase register i need material wise Gl wise amount in amount
In Miro transaction when i see line items
I.e i can display Material, PO number and amount.
If i click on follow on documents i can display GL wise amount.
Now my requirement is for each material what is the
GR/IR Gl and its amount.
Cenvat GL and its amount
Vat receivable and its amount. ETC.
material wise i need to display all this information.
Format
IV NO GR NO GR/IR GL Code GL desc
material code amount
cenvat GL code
material code amount
vat rece GL
material code amount.
In this way i need to display that in Purchase register.
So can any one help me how to related material GL code and its amount.
for GR/IR i can find val class and against its GL but for cenvat and
vat receivable how can i do that.
Requirement is very urgent.There is no standard report to suit your requirement. You have to go for development report in ABAP
-
CAN ANY BODY EXPLAIN THESE QUESTIONS, VERY URGENT
WHAT IS THE USE OF CHAPTER ID, IN CHAPTER ID RATES WILL BE DETERMINES.
HOW MANY TAX CODES NEED CST, LST.
WHERE CAN I SEE EXCISE REGISTER
WHAT IS MEANT BY RG1 CAN ANY BODY EXPLAIN BRIEFLY, WHAT IS THE USE OF RG1
HOW DO I GET OPENING BALANCE FOR EVERY MONTH.
IN DEPOT SALES, IF CREATING EXCISE INVOICE A CERTIFICATED WILL ISSUE, IN A CERTIFICATE WHICH FIELDS WILL BE THERE.
WHAT IS MEANT BY JURISDICTION CODE & COUNTY CODE.
IN SD FACTORY SALES WHICH A/C ENTERIES GENERATED.
CAN ANY BODY EXPLAIN THESE FORMS, WHICH SITUATION THESE FORMS WE ARE USING. I NEED VERY URGENT.
a) A form
b) D form
c) C form
d) H form
e) DDP form
f) TR6 form
g) D3 form.
H) ARE.
I) ARE 1
j) ARE 2
IN DEPOT SALES PRICING PROCEDURE JFACT, WHICH CONDITION TYPES WILL COME,
IN FACTORY SALES PRICING PROCEDURE JFACT, WHICH CONDITION TYPES WILL COME
NOW WHAT IS THE VAT TAX.
what is the use of common distribution channel and common divisions
PLS FORWARD ANSWERS TO THIS MAIL ID.
i hope that definitely people will help
thanks every body.Dear vara prasad
You can take it for granted if you post so much questions in one thread like this, nobody will answer / clarify you.
So please make one thread per question.
Meanwhile, just I would like to clarify for few questions
1) The most important feature of chapter id is that based on this chapter id which you maintain in "Excise Tax Rate", all your excise tax rates will be flowing into your sale order / billing
2) If the rate of tax differs, then you need to maintain a separate tax code. For example, the LST / VAT in some state is 4%, and in some state it is 12%. So in this case, you need to maintain two tax codes
thanks
G. Lakshmipathi -
Excise Duty Value in Export Invoice - Very Urgent
Hi Gurus,
I have created a Export delivery & Billing Documents. I am trying to create Excise Invoice in which Excise Duty values are coming as "0". We are using TAXINN Procedure , ECC 6.0
Is there any specific note or any customization required for this ?
Due to this ARE1 is also giving "0" values & subsequent "0" value in Bond Register.
Can anybody help me on this ? It is very urgent.
Thanks in advance
VikasHi Vikas,
Could you help yaar ...if you got solution for it ..I am facing same problem..We are going live very soon,
help of ur's could help me lot ..My mail id [email protected]
Thanks in advanec in for your help.
regards,
Vijay Khochare -
Error during GR(very very urgent)
Hi all,
i am using a developed program for GR.i used this program before.there was no error.but now i am facing error like
<b>PO ordered quqntity exceeded by 18,000 EA.</b>.i am using <b>BAPI_GOODSMVT_CREATE</b> for goods transfer.
In the selection screen, i am putting
PO number- PO1
material number- MAT
GR quantity- 18,000
delivery order-111
i want to receive the material MAT of quantity 18,000 from that PO.initially i have ordered PO quntity as 1 lakh. Till now i have received 42,000 materials,now i try to receive 18,000 materials.but it is showing this type of error.
This error is fired from the return parameter of that BAPI only.error having message class-M7 & error no-022
is comming.
i am giving my coding below.plz suggest where is the problem.it is very very urgent.recently my company has added some patches to update the SAP.is this the cause for that error.plz suggest.
any idea will be highly appreaciated.
Regards
REPORT zmui001
LINE-SIZE 140
LINE-COUNT 65
NO STANDARD PAGE HEADING.
*-- DATA DECLARATION--
*-- tables
TABLES : ekpo,
ekbe,
marv.
*--Includes
INCLUDE : <icon>. " Include for Icons
*-- Types
TYPES : BEGIN OF t_mseg,
ebeln LIKE ekko-ebeln,
name1 LIKE lfa1-name1,
lifnr LIKE lfa1-lifnr,
eknam LIKE t024-eknam,
mblnr LIKE mkpf-mblnr,
matnr LIKE ekpo-matnr,
maktx LIKE makt-maktx,
lgort LIKE mseg-lgort,
charg LIKE mseg-charg, "chg: 10/17/2005
menge LIKE mseg-menge,
budat LIKE mkpf-budat,
bldat LIKE mkpf-bldat, " chg : 08/18/2003
xblnr LIKE mkpf-xblnr,
END OF t_mseg.
DATA: BEGIN OF t_ekbe,
ebeln LIKE ekbe-ebeln,
ebelp LIKE ekbe-ebelp,
bwart LIKE ekbe-bwart,
matnr LIKE ekbe-matnr,
menge LIKE ekbe-menge,
END OF t_ekbe,
BEGIN OF t_ekpo,
ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
matnr LIKE ekpo-matnr,
menge LIKE ekpo-menge,
END OF t_ekpo.
TYPES : BEGIN OF t_options.
INCLUDE STRUCTURE itcpo.
TYPES : END OF t_options.
*--Internal tables
DATA: BEGIN OF i_item OCCURS 50. "Create Material Document Item
INCLUDE STRUCTURE bapi2017_gm_item_create.
DATA: END OF i_item .
DATA: BEGIN OF i_return OCCURS 20. "Return parameter
INCLUDE STRUCTURE bapiret2.
DATA: END OF i_return.
DATA: BEGIN OF i_part OCCURS 0, " Internal table for split data
part(20),
END OF i_part.
DATA: BEGIN OF i_return1 OCCURS 20. "Return parameter
INCLUDE STRUCTURE bapiret1.
DATA: END OF i_return1.
*-- Work areas
DATA: BEGIN OF wa_header . "Material Document Header Data
INCLUDE STRUCTURE bapi2017_gm_head_01.
DATA: END OF wa_header .
DATA: BEGIN OF wa_return . "Output Structure
INCLUDE STRUCTURE bapi2017_gm_head_ret.
DATA: END OF wa_return .
*-- Work areas
DATA: wa_mseg TYPE t_mseg,
wa_ekbe LIKE t_ekbe,
wa_ekpo LIKE t_ekpo,
wa_options TYPE t_options,
i_ekbe LIKE STANDARD TABLE OF t_ekbe,
i_ekbe2 LIKE STANDARD TABLE OF t_ekbe,
i_ekpo LIKE STANDARD TABLE OF t_ekpo.
*---Variables
DATA: v_first, " variable to get first digit
v_set TYPE c,
v_found TYPE p,
v_menge TYPE p,
v_ebeln LIKE ekko-ebeln,
v_lifnr LIKE ekko-lifnr,
v_belnr LIKE ekbe-belnr,
v_postdate LIKE mkpf-budat,
v_bukrs LIKE marv-bukrs,
v_datum LIKE sy-datum,
v_lgort LIKE mard-lgort, " Stge. location
v_bwart LIKE mseg-bwart, " Movement type
v_infnr LIKE eina-infnr, " Info record no.
v_ltsnr LIKE eina-ltsnr.
*---Constants
CONSTANTS: c_comma TYPE c VALUE ',', " For splitting data at commas
c_01(2) TYPE c VALUE '01', " For movement code in Bapi
c_b TYPE c VALUE 'B', " For mvt. Indicator in Bapi
c_save(4) TYPE c VALUE 'SAVE', " For button text
c_clear(5) TYPE c VALUE 'CLEAR', " For clear button
c_mvmt(4) TYPE c VALUE 'MVMT',
c_ok(2) TYPE c VALUE 'OK',
c_error(5) TYPE c VALUE 'Error'.
*--SELECTION SCREEN DESIGN--
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME.
PARAMETERS: p_bar(75) , " Scanned data from barcode
p_ebeln LIKE ekko-ebeln, " PO number
p_matnr LIKE ekpo-matnr, " Material number
p_menge LIKE ekpo-menge, " Quantity
p_lifnr LIKE ekko-lifnr, " Vendor code
p_frbnr LIKE mkpf-frbnr, " Reference doc for goods mvt
p_status(5) TYPE c.
SELECTION-SCREEN END OF BLOCK blk1.
SELECTION-SCREEN PUSHBUTTON 15(10) v_save USER-COMMAND mvmt.
SELECTION-SCREEN PUSHBUTTON 40(10) v_clear USER-COMMAND clear.
INITIALIZATION -
INITIALIZATION.
v_save = c_save .
v_clear = c_clear.
*--AT SELECTION_SCREEN--
AT SELECTION-SCREEN .
IF sy-ucomm = c_clear.
PERFORM f_clear.
ELSE.
IF sy-ucomm <> c_mvmt.
if not sy-tabix is initial and sy-ucomm <> c_mvmt.
*--- Extracting the data by splitting the scanned values.
PERFORM f_get_split_data.
*--- Validating the input data.
PERFORM f_check_inputs.
ELSE .
*--- Validating the input data.
PERFORM f_check_inputs.
*-- Determining the posting date and period check.
PERFORM f_get_posting_date.
*---Post goods movement
PERFORM f_post_receipt.
ENDIF.
ENDIF.
SUBROUTINES *
*& Form f_check_inputs
Validating the input parameters
FORM f_check_inputs.
*-- Validating material no.
SELECT SINGLE matnr INTO p_matnr
FROM mara
WHERE matnr = p_matnr.
IF sy-subrc = 4.
p_status = c_error.
MESSAGE e003(zm) WITH 'Material no.'.
ENDIF.
*-- Validating JHT reference no.
SELECT SINGLE ebeln
lifnr
bukrs
INTO (p_ebeln, v_lifnr , v_bukrs)
FROM ekko
where unsez = p_unsez. chg:07072003
WHERE ebeln = p_ebeln.
IF sy-subrc = 4.
p_status = c_error.
MESSAGE e003(zm) WITH 'Purchase order no.'.
ENDIF.
*-- Validating material po combination
SELECT SINGLE *
FROM ekpo
WHERE ebeln = p_ebeln
AND matnr = p_matnr.
IF sy-subrc = 4.
p_status = c_error.
MESSAGE e003(zm) WITH 'Purchase order no.' ' and Material no.'.
ENDIF.
*--- Checking for DO entry . (chng : 30/06/2003)
IF p_frbnr IS INITIAL.
MESSAGE e018(m7) WITH 'Delivery no.'.
p_status = c_error.
PERFORM f_clear.
ENDIF.
*-- Validating material po do combination
SELECT SINGLE a~belnr
INTO v_belnr
FROM ekbe AS a
INNER JOIN mkpf AS b
ON abelnr = bmblnr
AND agjahr = bmjahr
WHERE a~ebeln = ekpo-ebeln
AND a~ebelp = ekpo-ebelp
AND b~xblnr = p_frbnr.
IF sy-subrc = 0.
MESSAGE e019(zm) WITH v_belnr.
p_status = c_error.
PERFORM f_clear.
ENDIF.
p_status = c_ok.
ENDFORM. " f_check_inputs
*& Form f_get_split_data
Extracting the data by splitting the Scanned data
FORM f_get_split_data.
*-- Splitting the data at commas
SPLIT p_bar AT c_comma INTO TABLE i_part.
*-- Assigning the parts to variables.
LOOP AT i_part.
v_first = i_part-part+0(1).
TRANSLATE v_first TO UPPER CASE.
CASE v_first .
WHEN 'V'.
p_lifnr = i_part-part+1(10).
WHEN 'P'.
p_matnr = i_part-part+1(18).
WHEN 'Q'.
p_menge = i_part-part+1(13).
WHEN 'K'.
p_ebeln = i_part-part+1(10).
WHEN 'D'.
p_frbnr = i_part-part+2(16).
WHEN OTHERS.
CONTINUE.
ENDCASE.
ENDLOOP.
ENDFORM. " f_get_split_data
*& Form f_get_posting_date
Determing the posting date for document
FORM f_get_posting_date.
*-- get the current period for todays date.
DATA: l_period LIKE t009b-poper.
CALL FUNCTION 'DATE_TO_PERIOD_CONVERT'
EXPORTING
i_date = sy-datum
i_periv = 'K4'
IMPORTING
e_buper = l_period
E_GJAHR =
EXCEPTIONS
input_false = 1
t009_notfound = 2
t009b_notfound = 3
OTHERS = 4
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*-- Determining whether the open period
SELECT SINGLE *
FROM marv
WHERE bukrs = v_bukrs.
IF sy-subrc = 0.
IF l_period = marv-lfmon .
v_postdate = sy-datum.
ELSE.
CALL FUNCTION 'BAPI_CCODE_GET_FIRSTDAY_PERIOD'
EXPORTING
companycodeid = v_bukrs
fiscal_period = marv-lfmon
fiscal_year = marv-lfgja
IMPORTING
first_day_of_period = v_postdate
return = i_return1.
IF NOT i_return[] IS INITIAL.
LOOP AT i_return1.
MESSAGE i016(zm) WITH i_return-message.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
ENDFORM. " f_get_posting_date
*& Form f_post_receipt
Post the goods receipt for entered data.
FORM f_post_receipt.
PERFORM f_fill_item.
PERFORM f_fill_header.
PERFORM f_execute_transfer.
PERFORM f_clear.
ENDFORM. " f_post_receipt
*& Form f_fill_item
Updating the item data for the GR
FORM f_fill_item.
Checking for IQC cycle is done here.(chng : 23/07/2003)
PERFORM f_check_iqc.
*---- Assigning movement type as per IQC cycle.(chng : 23/07/2003)
IF v_lgort IS INITIAL.
MOVE '101' TO i_item-move_type.
SELECT SINGLE lgort INTO i_item-stge_loc
FROM ekpo
where ebeln = v_ebeln and " chg :07/07/2003
WHERE ebeln = p_ebeln AND
matnr = p_matnr .
ELSE.
MOVE v_lgort TO i_item-stge_loc.
MOVE v_bwart TO i_item-move_type.
ENDIF.
MOVE p_matnr TO i_item-material.
MOVE p_menge TO i_item-entry_qnt.
move v_ebeln to i_item-po_number. " 07/07/2003
MOVE p_ebeln TO i_item-po_number.
MOVE v_lifnr TO i_item-vendor.
MOVE c_b TO i_item-mvt_ind.
select single ebelp into i_item-po_item " chg :29/07/2003
from ekpo
where ebeln = p_ebeln
and matnr = p_matnr
and elikz = ''.
SELECT ebeln
ebelp
matnr
menge
INTO CORRESPONDING FIELDS OF TABLE i_ekpo
FROM ekpo
WHERE ebeln = p_ebeln
AND matnr = p_matnr
AND loekz = '' .
SORT i_ekpo BY ebeln ebelp matnr.
LOOP AT i_ekpo INTO wa_ekpo.
IF v_found = 0.
SELECT ebeln ebelp
bwart menge
INTO CORRESPONDING FIELDS OF TABLE i_ekbe
FROM ekbe
WHERE ebeln = p_ebeln
AND ebelp = wa_ekpo-ebelp
AND matnr = p_matnr.
and elikz = '' . CHG -- 03/19/2004
IF sy-subrc = 0.
LOOP AT i_ekbe INTO wa_ekbe .
IF wa_ekbe-bwart = '101'.
v_menge = v_menge + wa_ekbe-menge.
ENDIF.
IF wa_ekbe-bwart = '102'.
v_menge = v_menge - wa_ekbe-menge.
ENDIF.
IF wa_ekbe-bwart = '122'.
v_menge = v_menge - wa_ekbe-menge.
ENDIF.
ENDLOOP.
chng: 03/19/2004 compare po qty against receipt
v_menge = v_menge + p_menge .
IF wa_ekpo-menge >= v_menge .
v_found = 1.
MOVE wa_ekpo-ebelp TO i_item-po_item.
ENDIF.
ELSE .
v_found = 1.
MOVE wa_ekpo-ebelp TO i_item-po_item.
ENDIF.
ENDIF.
CLEAR : wa_ekbe, i_ekbe, v_menge.
ENDLOOP.
IF v_found = 0 .
MESSAGE e003(zm) WITH ' delivery items'.
ENDIF.
APPEND i_item.
CLEAR : i_item, v_found .
ENDFORM. " f_fill_item
*& Form f_check_iqc
Checking the storage location for the (chng : 23/07/2003)
FORM f_check_iqc.
CALL FUNCTION 'Z_M_GET_IQC_STATUS'
EXPORTING
matnr = p_matnr
lifnr = v_lifnr
IMPORTING
lgort = v_lgort
bwart = v_bwart
ltsnr = v_ltsnr
infnr = v_infnr
EXCEPTIONS
non_iqc_vendor = 1
OTHERS = 2.
IF sy-subrc <> 0.
CLEAR : v_lgort , v_bwart , v_ltsnr.
ENDIF.
ENDFORM. " f_check_iqc
*& Form f_fill_header
Updating data in the header
FORM f_fill_header.
MOVE v_postdate TO wa_header-pstng_date.
MOVE sy-datum TO wa_header-doc_date.
MOVE p_frbnr TO wa_header-ref_doc_no.
ENDFORM. " f_fill_header
*& Form f_execute_transfer
Executing the goods movement.
FORM f_execute_transfer.
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
EXPORTING
goodsmvt_header = wa_header
goodsmvt_code = c_01
IMPORTING
goodsmvt_headret = wa_return
TABLES
goodsmvt_item = i_item
return = i_return.
IF i_return[] IS INITIAL .
COMMIT WORK.
*--- UPdating Info record for IQC cycle ind.(chng : 23/07/2003)
IF NOT v_ltsnr IS INITIAL.
UPDATE eina SET ltsnr = v_ltsnr
WHERE infnr = v_infnr.
ENDIF.
REFRESH : i_item.
CLEAR : wa_header,v_ltsnr , v_infnr,v_bwart,v_lifnr.
MESSAGE i012(migo) WITH wa_return-mat_doc.
PERFORM f_do_print.
ELSE.
REFRESH : i_item.
CLEAR : wa_header,v_ltsnr , v_infnr,v_bwart,v_lifnr.
PERFORM write_errors.
ENDIF.
ENDFORM. " f_execute_transfer
FORM write_errors.
WRITE: 0(90) sy-uline ,
/0'|',
3 'System messages for GR posting',
90 '|',
/0(90) sy-uline .
LOOP AT i_return.
CASE i_return-type.
WHEN 'E'.
MESSAGE i016(zm) WITH i_return-message.
WHEN 'W'.
MESSAGE i017(zm) WITH i_return-message.
WHEN 'I'.
WRITE: /0'|',
icon_yellow_light AS ICON ,
'|',
10 i_return-message,
90 '|'.
MESSAGE i018(zm) WITH i_return-message.
WHEN 'S'.
WRITE: /0'|',
icon_green_light AS ICON ,
'|',
10 i_return-message,
90 '|'.
MESSAGE i018(zm) WITH i_return-message.
WHEN OTHERS.
WRITE: /0'|',
icon_red_light AS ICON ,
'|',
10 i_return-message,
90 '|'.
MESSAGE e016(zm) WITH i_return-message.
ENDCASE.
AT LAST .
WRITE:/0(90) sy-uline .
ENDAT.
ENDLOOP.
ENDFORM. " write_errors
*& Form f_clear
Clearing the input parameters
FORM f_clear.
CLEAR : p_ebeln ,
p_bar,
p_matnr,
p_frbnr,
v_lifnr,
p_menge,
p_status.Hi all,
can anyone suggest any idea?
Regrds
pabitra -
How to Activate a Condition Type in the Tax OCde for A/P -- Very Urgent
Hi Peers
I'm creating a new Tax Code in T.Code FTXP, while creating, One Condition Type is Deactivated, say JM01, How to activate that condition Type. I know how to activate the Condition Type in A/R side but I want to know it in A/P side. Plz help. Its very urgent.
Regards
RajaramHi Rajaram,
U pls Check ur configuration. First u check the calculation procedure (F.A- Tax on sales & purchase-Basic setting-Check calculation procedure _ Define procedure) In the procedure field u check JM01 is activated or deactivated otherwise u created in condition Type.
I think its usefull otherwise u let me know
Thanks
R.Manigandan -
Default GL Assignment to Tax Code - Very Urgent
Dear Friends,
When I am doing the T. Code MIRO, the Service tax receivables and Education cess receivables are automatically coming in the accounting entry.
The entry is as follows :
GR / IR A/c Dr 10500
Service Tax Receivables Dr 315
Education Cess Receivables Dr 6. 30
To Vendor Account 10821.30
Actually this is Service vendor transaction. So, I did the following transactions in MM.
1. Created Purchase order u2013 I gave Tax code as S6 in that.
2. Created Service sheet through T. Code u2013 ML81N u2013 in this I gave the cost center and GL A/c ( GL A/c is -- Lease Rentals )
3. Invoice Posting through T.Codeu2013MIRO u2013 in this also mentioned the Tax Code-S6
Note : As per MM Consultant we should not do the MIGO because this is service vendor and when we release the service sheet then automatically MIGO entry will post.
So, in the above 3 transactions ( MM ), Any where I did not mentioned the Service tax recv and Education cess recv GL accounts manually.
Our client is following the CIN u2013 TAX INN procedure.
Account keys u2013 ESA and ESE are updating in the above transaction.
I checked the following T. Codes for automatic assignment of GL accounts to the Tax Code.
1. OBYC
2. OB40
3. OBQ3
4. FTXP
5. FV 11 & 12 & 13
6. OKB9
7. Validations and Substitutions
8. User Exists
9. spro u2013 Logistics general u2013 Tax on goods movement u2013 India u2013
10. FBKP
11. OB28, OBBH , OBCN , GGB0, GBB1 , GBX2.3
So, In all the above T. Codes I did not find any assignment of GL Accounts to the above said Tax Code u2013 S6.
Now problem is My client is saying that the 2 GL accounts i.e. Service tax recv and Education cess recv GL accounts should not effect when they use Tax Code S6.
I am not able to find where these GL accounts are assigned to the Tax Code u2013 S6.
SO , KINDLY EXPLAIN ME WHERE THESE 2 GL ACCOUNTS ARE ASSIGNED TO THE TAX CODE .
Its very urgent, looking forward for an early and positive reply.
Thanking You,
Regards,
K. S. Sai Kumar
09930870886
Hyderabad.Dear All,
I checked the following T. Codes for automatic assignment of GL accounts to the Tax Code.
1. OBYC
2. OB40
3. OBQ3
4. FTXP
5. FV 11 & 12 & 13
6. OKB9
7. Validations and Substitutions
8. User Exists
9. spro u2013 Logistics general u2013 Tax on goods movement u2013 India u2013
10. FBKP
11. OB28, OBBH , OBCN , GGB0, GBB1 , GBX2.3
So, In all the above T. Codes I did not find any assignment of GL Accounts to the above said Tax Code u2013 S6.
Thanking You,
Regards,
K. S.Sai Kumar
Maybe you are looking for
-
Please Please help me I need to get this!!
How can I set a Timestamp to null- I want it to be all zeros- and not a null value to be recorded in the database at the moment I have it just like this Timestamp NewDayTotal = null ; which is just empting the DB of an value - not leaving zeros. Any
-
Calculating the length of the longest side of a polygon
If you want to calculate the length of the longest side of a polygon -- for example a rectangle -- how can that be done using the standard geometrical functions of spatial in an oracle 10g2 database? SDO_LENGHT delivers the outline of the polygon. If
-
Deleting row of zero in one dim array
In my application, I am using the first column of the table as a selection from the combo box. The table is converted to one dimension array of 200 rows and 1 column, Some of the rows have zero value which is visible in the combo box selection , I ne
-
OIM11gR2 Setting Multiple Parameters in Timestamp field of DBAT GTC
Hi Experts, I am using DBAT (database App Tables) for running GTC for trusted Recon. While setting parameters, I want to set 2 values for time stamp parameters. Please share your ideas if i can do this on a single connector instance only or require t
-
Can't connect to more then one server in a java appl.
Hi: I'm connecting to OCS via java as the administrator without problems. But, even if I close the first connection I can't open the second one without getting an user unknown error. If I connect only to one or the other everything works. Here's part