Cutom T-Code for seding customer details thru IDoc Debmas
Hi Experts,
I have a requirment where in.. I need to send customer details thru IDoc from a custom screen which has cutomer text box and a submit button. After entering cutomer and clicking on submit debmas06 Idoc has to be triggered.
I am not an ABAP expert... please help me with process on devloping the above reqirment.
This is a critical requirment please help ASAP.
Thanks,
Suma
Hi,
u have to use standalone program..iam giving one sample code..aong with u have define the RFC (SM59,WE21(Create port),WE20(create partner profile,BD64 distribute model view)...u have to do..
when u press on submit button,,,
*& Report ZZ_Program_To_Create_Idoc
report zz_program_to_create_idoc .
tables: ekko,ekpo.
selection-screen skip 3.
selection-screen begin of block b1 with frame title titl.
selection-screen skip.
select-options s_ebeln for ekko-ebeln.
selection-screen skip.
selection-screen end of block b1.
data: header_segment_name like edidd-segnam value 'Z1EKKO',
item_segment_name like edidd-segnam value 'Z1EKPO',
idoc_name like edidc-idoctp value 'Z19838IDOC1'.
data: header_segment_data like z1ekko,
item_segment_data like z1ekpo.
data: control_record like edidc.
data: messagetyp like edmsg-msgtyp value 'ZZ9838MESG1'.
data: i_communication like edidc occurs 0 with header line,
i_data like edidd occurs 0 with header line.
data: begin of i_ekko occurs 0,
ebeln like ekko-ebeln,
aedat like ekko-aedat,
bukrs like ekko-bukrs,
bsart like ekko-bsart,
lifnr like ekko-lifnr,
end of i_ekko.
data: begin of i_ekpo occurs 0,
ebelp like ekpo-ebelp,
matnr like ekpo-matnr,
menge like ekpo-menge,
meins like ekpo-meins,
netpr like ekpo-netpr,
end of i_ekpo.
start-of-selection.
select ebeln aedat bukrs bsart lifnr from ekko
into table i_ekko where ebeln in s_ebeln.
select ebelp
matnr
menge
meins
netpr
from ekpo
into table i_ekpo
where ebeln in s_ebeln.
control_record-mestyp = messagetyp.
control_record-rcvprt = 'LS'.
control_record-idoctp = idoc_name.
control_record-rcvprn = '0MART800'.
loop at i_ekko.
header_segment_data-ebeln = i_ekko-ebeln.
header_segment_data-aedat = i_ekko-aedat.
header_segment_data-bukrs = i_ekko-bukrs.
header_segment_data-bsart = i_ekko-bsart.
header_segment_data-lifnr = i_ekko-lifnr.
i_data-segnam = header_segment_name.
i_data-sdata = header_segment_data.
append i_data.
select ebelp
matnr
menge
meins
netpr
from ekpo
into table i_ekpo
where ebeln = i_ekko-ebeln.
loop at i_ekpo.
item_segment_data-ebelp = i_ekpo-ebelp.
item_segment_data-matnr = i_ekpo-matnr.
item_segment_data-menge = i_ekpo-menge.
item_segment_data-meins = i_ekpo-meins.
item_segment_data-netpr = i_ekpo-netpr.
i_data-segnam = item_segment_name.
i_data-sdata = item_segment_data.
append i_data.
endloop.
clear i_ekpo.
refresh i_ekpo.
endloop.
call function 'MASTER_IDOC_DISTRIBUTE'
exporting
master_idoc_control = control_record
OBJ_TYPE = ''
CHNUM = ''
tables
communication_idoc_control = i_communication
master_idoc_data = i_data
exceptions
error_in_idoc_control = 1
error_writing_idoc_status = 2
error_in_idoc_data = 3
sending_logical_system_unknown = 4
others = 5
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
else.
loop at i_communication.
write: 'IDOC GENERATED', i_communication-docnum.
endloop.
commit work.
endif.
initialization.
titl = 'ENTER THE PURCHASE ORDER NUMBER'.
Regards,
Nagaraj
Similar Messages
-
Code for browsing a file in idoc
i have used the same code for browsing a file in idoc as we use in hcsf, but when that hcsf is converted in hcsp,then that field is still editable even after i wrote
<$if isHcsp$><$isInfoOnly=1$><$endif$>
its urgent ..HCSF/HCSP code should have the < ! - - syntax, not the < $ syntax... if that your problem?
-
Zreport for vendor customer details.
Hi ,
I have to create a report tto display a vendor and customer details. on screen i have customer code and vendor code with company code and fiscal year. when i select the cust. code plant and year it will show the doc.no ,post. and doc. date,doc type ,qty and amount as per customer details.
after that as per billing doc. of specific customer ,select excise invoice number and match it with reference number (xblnr) of vendor code. and once it is matched select tht vendor doc.no. post. and doc. date amount and qty and display it in report.so how to right a coding for thesame
let me know as its urgent.
Rgrs
Suchitaplease find below coding for your reference.
*& Report ZFI_VEND_CUST_DETAILS
REPORT ZFI_VEND_CUST_DETAILS
NO STANDARD PAGE HEADING
LINE-COUNT 65
MESSAGE-ID 00.
TABLES: BSID,BSIK.
DATA: IT_BSID LIKE BSID OCCURS 0 WITH HEADER LINE.
DATA: IT_BSIK LIKE BSIK OCCURS 0 WITH HEADER LINE.
DATA: IT_J_1IEXCHDR LIKE J_1IEXCHDR OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF IT_OUT OCCURS 0,
BELNR LIKE BSID-BELNR, " added On 17.04.2007
BLDAT LIKE BSID-BLDAT,
BUDAT LIKE BSID-BUDAT,
BLART LIKE BSID-BLART,
NAME LIKE KNA1-NAME1, "Name 1
MATNR LIKE VBRP-MATNR, "Material Number
ARKTX LIKE VBRP-ARKTX, "Material description
FKIMG LIKE VBRP-FKIMG, "Quantity mentioned in the excise invoice
VBELN LIKE BSID-VBELN, "Billing Document
BUKRS LIKE BSID-BUKRS,
NAME1 LIKE LFA1-NAME1,
KUNNR LIKE BSID-KUNNR,
WRBTR LIKE BSID-WRBTR,
DMBTR LIKE BSID-DMBTR,
ZUONR LIKE BSID-ZUONR,
XBLNR LIKE BSID-XBLNR,
MENGE LIKE VBRP-MENGE,
LIFNR LIKE BSIK-LIFNR, "VENDOR CODE
EXNUM LIKE J_1IEXCHDR-EXNUM,
BELNR1 LIKE BSIK-BELNR, " added On 17.04.2007
BLDAT1 LIKE BSIK-BLDAT,
BUDAT1 LIKE BSIK-BUDAT,
BLART LIKE BSID-BLART,
NAME LIKE KNA1-NAME1, "Name 1
MATNR LIKE VBRP-MATNR, "Material Number
ARKTX LIKE VBRP-ARKTX, "Material description
FKIMG1 LIKE VBRP-FKIMG, "Quantity mentioned in the excise invoice
VBELN LIKE BSID-VBELN, "Billing Document
BUKRS LIKE BSID-BUKRS,
NAME1 LIKE LFA1-NAME1,
KUNNR LIKE BSID-KUNNR,
WRBTR LIKE BSID-WRBTR,
DMBTR1 LIKE BSIK-DMBTR,
ZUONR LIKE BSID-ZUONR,
XBLNR LIKE BSIK-XBLNR,
MENGE LIKE VBRP-MENGE,
LIFNR LIKE BSIK-LIFNR,
END OF IT_OUT.
*DATA: IT_OUT1 LIKE IT_OUT OCCURS 0 WITH HEADER LINE.
*ALV VARIABLES AND INTERNAL TABLES
TYPE-POOLS: SLIS.
DATA: IS_LAYOUT TYPE SLIS_LAYOUT_ALV,
IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
IT_LISTHEADER TYPE SLIS_T_LISTHEADER,
IT_EVENTS TYPE SLIS_T_EVENT,
IT_PRINT TYPE SLIS_PRINT_ALV OCCURS 1 WITH HEADER LINE.
*SELECTION SCREEN DEFINITIONS
SELECTION-SCREEN BEGIN OF BLOCK B WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : SO_KUNNR FOR BSID-KUNNR,
SO_LIFNR FOR BSIK-LIFNR,
SO_BLART FOR BSID-BLART.
PARAMETER : P_BUKRS LIKE BSID-BUKRS OBLIGATORY,
P_GJAHR LIKE BSID-GJAHR OBLIGATORY.
SELECTION-SCREEN END OF BLOCK B.
*START-OF-SELECTION
START-OF-SELECTION.
PERFORM GET_DATA.
PERFORM DISPLAY_DATA.
*& Form GET_DATA
text
--> p1 text
<-- p2 text
form GET_DATA .
SELECT * FROM BSID
INTO TABLE IT_BSID
WHERE KUNNR IN SO_KUNNR AND
BUKRS = P_BUKRS AND
GJAHR = P_GJAHR.
LOOP AT IT_BSID.
IT_OUT-BELNR = IT_BSID-BELNR.
IT_OUT-BUKRS = IT_BSID-BUKRS.
IT_OUT-KUNNR = IT_BSID-KUNNR.
IT_OUT-ZUONR = IT_BSID-ZUONR.
IT_OUT-DMBTR = IT_BSID-DMBTR.
IT_OUT-VBELN = IT_BSID-VBELN.
IT_OUT-XBLNR = IT_BSID-XBLNR.
IT_OUT-BLART = IT_BSID-BLART.
IT_OUT-BUDAT = IT_BSID-BUDAT.
IT_OUT-BLDAT = IT_BSID-BLDAT.
APPEND IT_OUT.
ENDLOOP.
*SELECT * FROM J_1IEXCHDR
*INTO IT_J_1IEXCHDR
*WHERE RDOC = IT_OUT-VBELN.
*LOOP AT IT_J_1IEXCHDR.
IT_OUT-EXNUM = IT_J_1IEXCHDR-EXNUM.
**ENDLOOP.
*SELECT * FROM BSIK
*INTO TABLE IT_BSIK
*WHERE XBLNR = IT_OUT-EXNUM AND
*LIFNR IN SO_LIFNR AND
*BUKRS = P_BUKRS AND
*GJAHR = P_GJAHR.
*LOOP AT IT_BSIK.
*IT_OUT-BELNR1 = IT_BSIK-BELNR.
**IT_OUT-BUKRS = IT_BSIK-BUKRS.
*IT_OUT-LIFNR = IT_BSIK-LIFNR.
**IT_OUT-ZUONR = IT_BSIK-ZUONR.
*IT_OUT-DMBTR1 = IT_BSIK-DMBTR.
*IT_OUT-XBLNR = IT_BSIK-XBLNR.
**IT_OUT-BLART = IT_BSIK-BLART.
*IT_OUT-BUDAT1 = IT_BSIK-BUDAT.
*IT_OUT-BLDAT1 = IT_BSIK-BLDAT.
*APPEND IT_OUT.
*ENDLOOP.
*ENDLOOP.
*ENDSELECT.
*SORT IT_OUT BY KUNNR.
LOOP AT IT_OUT.
SELECT SINGLE EXNUM FROM J_1IEXCHDR
INTO IT_OUT-EXNUM
WHERE RDOC = IT_OUT-VBELN.
SELECT BELNR LIFNR DMBTR XBLNR BUDAT BLDAT
FROM BSIK INTO (IT_OUT-BELNR1,IT_OUT-LIFNR,IT_OUT-DMBTR1,IT_OUT-XBLNR,IT_OUT-BUDAT1,IT_OUT-BLDAT1)
WHERE XBLNR = IT_OUT-EXNUM.
ENDSELECT.
SELECT SINGLE NAME1 "NAME OF CUSTOMER
FROM KNA1
INTO IT_OUT-NAME
WHERE KUNNR = IT_OUT-KUNNR.
SELECT SINGLE NAME1 "NAME OF VENDOR
FROM LFA1
INTO IT_OUT-NAME1
WHERE LIFNR = IT_OUT-LIFNR.
SELECT MATNR ARKTX FKIMG
FROM VBRP
INTO (IT_OUT-MATNR,IT_OUT-ARKTX,IT_OUT-FKIMG)
WHERE VBELN = IT_OUT-VBELN AND
WERKS = P_BUKRS.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
input = IT_OUT-MATNR
IMPORTING
OUTPUT = IT_OUT-MATNR.
MODIFY IT_OUT.
CLEAR IT_OUT.
ENDSELECT.
ENDLOOP.
endform. " GET_DATA
*& Form DISPLAY_DATA
text
--> p1 text
<-- p2 text
form DISPLAY_DATA .
PERFORM FILL_LAYOUT_STRUCTURE.
PERFORM ALV_HEADER USING IT_LISTHEADER.
PERFORM FILL_FIELDCAT USING :
'BLDAT' 'DOC Date' 10 'IT_OUT' SPACE SPACE,
'BUDAT' 'Post.Date' 10 'IT_OUT' SPACE SPACE,
'KUNNR' 'Customer Code' 10 'IT_OUT' SPACE SPACE,
'NAME' 'Customer Name' 35 'IT_OUT' SPACE SPACE,
'LIFNR' 'VENDOR CODE' 10 'IT_OUT' SPACE SPACE,
'NAME1' 'VENDOR DESC' 35 'IT_OUT' SPACE SPACE,
'BLART' 'Doc. Type' 2 'IT_OUT' SPACE SPACE,
'VBELN' 'BILLING DOC NO.' 10 'IT_OUT' SPACE SPACE,
'BELNR' 'Account Doc. No.' 10 'IT_OUT' SPACE SPACE,
'DMBTR' 'AMOUNT IN LOCAL' 13 'IT_OUT' SPACE SPACE,
'MATNR' 'Material Code' 10 'IT_OUT' SPACE SPACE,
'ARKTX' 'Material DESC' 35 'IT_OUT' SPACE SPACE,
'FKIMG' 'QTY' 12 'IT_OUT' SPACE SPACE,
'ZUONR' 'ASSIGNNMENT' 18 'IT_OUT' SPACE SPACE,
'EXNUM' 'Excise inv no.' 13 'IT_OUT' SPACE SPACE,
'BELNR1' 'Account Doc. No.' 10 'IT_OUT' SPACE SPACE,
'BLDAT1' 'DOC Date' 10 'IT_OUT' SPACE SPACE,
'BUDAT1' 'Post.Date' 10 'IT_OUT' SPACE SPACE,
'DMBTR1' 'AMOUNT IN LOCAL' 13 'IT_OUT' SPACE SPACE,
'XBLNR' 'REFERENCE DOC' 10 'IT_OUT' SPACE SPACE.
PERFORM ALV_EVENTS USING IT_EVENTS.
PERFORM ALV_PRINT.
PERFORM ALV_DISPLAY.
endform. " DISPLAY_DATA
*& Form FILL_LAYOUT_STRUCTURE
text
--> p1 text
<-- p2 text
form FILL_LAYOUT_STRUCTURE .
DATA: WA_EVENT TYPE SLIS_ALV_EVENT,
WA_LISTHEADER TYPE SLIS_T_LISTHEADER.
CLEAR IS_LAYOUT.
IS_LAYOUT-ZEBRA = 'X'.
is_layout-F2CODE = '&ETA'.
is_layout-detail_popup = 'X'.
IS_LAYOUT-INFO_FIELDNAME = 'COL_LINE'.
endform. " FILL_LAYOUT_STRUCTURE
*& Form FILL_FIELDCAT
text
-->P_0606 text
-->P_0607 text
-->P_10 text
-->P_0609 text
-->P_SPACE text
-->P_SPACE text
form FILL_FIELDCAT using F D O T TO P.
DATA WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
STATICS POS LIKE SY-INDEX VALUE 1.
POS = POS + 1.
CLEAR WA_FIELDCAT.
MOVE : 1 TO WA_FIELDCAT-ROW_POS,
POS TO WA_FIELDCAT-COL_POS,
F TO WA_FIELDCAT-FIELDNAME,
D TO WA_FIELDCAT-SELTEXT_L,
O TO WA_FIELDCAT-OUTPUTLEN,
T TO WA_FIELDCAT-TABNAME,
TO TO WA_FIELDCAT-DO_SUM,
P TO WA_FIELDCAT-FIX_COLUMN.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
endform. " FILL_FIELDCAT
FORM ALV_EVENTS USING EVENTS TYPE SLIS_T_EVENT.
DATA : WA_EVENTS TYPE SLIS_ALV_EVENT.
CLEAR WA_EVENTS.
WA_EVENTS-NAME = 'TOP_OF_PAGE'(001).
WA_EVENTS-FORM = 'TOP_OF_PAGE'.
APPEND WA_EVENTS TO IT_EVENTS.
ENDFORM. "alv_events
*& Form ALV_DISPLAY
text
--> p1 text
<-- p2 text
form ALV_DISPLAY .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = SY-REPID
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = 'CALL_TCODE'
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 = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
IS_LAYOUT = IS_LAYOUT
IT_FIELDCAT = IT_FIELDCAT
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT = i_sort[]
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = 'A'
IS_VARIANT =
IT_EVENTS = IT_EVENTS
IT_EVENT_EXIT =
IS_PRINT = IT_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_OUT
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. " ALV_DISPLAY
*FORM FOR TOP OF PAGE
FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = IT_LISTHEADER.
ENDFORM. "top_of_page
*& Form alv_header
FORM alv_header USING P_IT_LISTHEADER.
data : wa_listheader type slis_listheader.
data : v_date1(10).
data : v_date2(10).
data : v_kunnr1 LIKE bsid-kunnr.
data : v_kunnr2 LIKE bsid-kunnr.
data : v_name1 like t001w-name1.
clear wa_listheader.
wa_listheader-typ = 'H'.
move 'DETAILED CUSTOMER VENDOR DETAILS'
to wa_listheader-info.
append wa_listheader to it_listheader.
select single name1
from t001w
into v_name1
where werks = p_bukrs.
clear wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-key = 'Plant'.
move v_name1
to wa_listheader-info.
append wa_listheader to it_listheader.
write so_budat-low to v_date1 dd/mm/yyyy no-gap.
write so_budat-high to v_date2 dd/mm/yyyy no-gap.
if so_budat-low is not initial and so_budat-high is not initial.
clear wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-key = 'Date '.
concatenate v_date1 ' To ' v_date2 into
wa_listheader-info separated by space.
wa_listheader-info = wa_listheader-info.
append wa_listheader to it_listheader.
elseif so_budat-low is initial and so_budat-high is initial.
clear wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-key = 'Date '.
wa_listheader-info = '*'.
append wa_listheader to it_listheader.
elseif so_budat-high is initial.
clear wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-key = 'Date '.
wa_listheader-info = v_date1.
append wa_listheader to it_listheader.
endif.
v_kunnr1 = so_kunnr-low.
v_kunnr2 = so_kunnr-high.
if so_kunnr-low is not initial and so_kunnr-high is not initial.
clear wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-key = 'Customer '.
concatenate v_kunnr1 ' To ' v_kunnr2 into
wa_listheader-info separated by space.
wa_listheader-info = wa_listheader-info.
append wa_listheader to it_listheader.
elseif so_kunnr-low is initial and so_kunnr-high is initial.
clear wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-key = 'Customer '.
wa_listheader-info = '*'.
append wa_listheader to it_listheader.
elseif so_kunnr-high is initial.
clear wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-key = 'Customer '.
wa_listheader-info = v_kunnr1.
append wa_listheader to it_listheader.
endif.
ENDFORM. " alv_header.
waiting for ur reply.
Thanx
Suchita -
Looking for an ABAP-code for the customer-Exit Variable
Hello,
I have defined a Variable (Interval) which should be processed through Customer-Exit on characteristic Supplier-Date (date format). This Customer-Exit Variable is called ZDATE.
We have another time characteristic Fiscal year / period (0FISCPER) which has single mandatory input variable for ex. 003.2011. This input variable is called ZFISCPER.
Now I have to write an ABAP-Code where the customer exit variable ZDATE is derived (fiscal last year to last period) from input variable ZFISCPER in INCLUDE ZXRSRU01.
Means when the input variable (ZFISCPER) is 003.2011 then the customer exit variable ZDATE should be calculated in INCLUDE ZXRSRU01 as 01.01.2010 u2013 28.02.2011 (fiscal last year to last period).
Since I am quite new in ABAP, I will be grateful if you could write me sample ABAP for this.
Many thanks.Hi,
should be something like:
DATA: l_s_range TYPE rsr_s_rangesid,
input LIKE sy-datum.
When 'ZDATE'
CONCATENATE '0101' 0FISCPER+3(4)-1 into l_s_range-low. "You get 01012010
CONCATENATE '01' Fiscper+1(6) into input. "You get 01032011
l_s_range-high = input-1. "You get 28022011
APPEND l_s_range TO e_t_range.
Greetings
Roman -
T Code for Viewing Customer Deliveries by Warehouse?
Hello All,
I am trying to find out if there is a Transaction Code which will list a specific region's customers by Warehouse. We do not have any PA reports. In its absence, I am trying to see if I could run any transaction code where I can put in warehouse and ask it to show shipments to customers in a specific profit center.
Not sure if there is anything like that but I thought I would ask. Any tips is appreciated.
Regards,
Sam.Hi,
For your requirement, there may exist a few possibilities. You can try any of them.
a. Check if VA05 transaction works for you. Basically VA05 gives you the open orders for the customer... I think the region and plant are already present. In case they are not, then, In some of the previous posts on SDN I saw that a few sap notes (Note 350068) can be applied to VA05 to get some of the required fields. You can try that to get your desired result.
Check this link Re: Delivery report
b. You can try out creating the SAP Query. Tcodes: SQ01, SQ02 and SQ03. If you are not a technical guy, then take help of an ABAPer who can help you out with it. Bascially you need to join the tables to get the desired result. For your requirement, I think you need to join table VBAK, VBPA, VBAP.
c. The third option is to develop a customer report using the tables VBAK, VBAP, VBPA and other tables if necessary.
Hope this answeres your query.
Thanks
Mukund S
Edited by: MukundHS on Aug 28, 2010 10:01 PM -
Sample code for a custom field added to LIS Communication structure for Del
We appended a new custome field into extraction structure of the LO Cookpit datasource 2LIS_02_ITM through RSA6. And then run CMOD to write the exit code to populate the value and it works fine. But after we read Roberto's Weblog:
/people/sap.user72/blog/2005/02/14/logistic-cockpit--when-you-need-more--first-option-enhance-it
Find the enhancement we did can't make the Delta mechanism works if only this new field gets changed in a record, and the change cannot be reflected on BW. I know we can run SMOD on the enhancement LEINS001 to write the code for LIS Communication structure customer exit. But we have never writen such a code for LIS Communication Structure enhancement and also don't know on how to make the Delta mechanism works in the code. We would be very appreciated if some expert here can provide the sample code!
Thankshi AHP,
Have you tried Sanyam's code listed in this article you recommended?
Now our R3 team has added a custom field called ZZZ to EKKO table and I modify the code to suit our need and the code would be as following:
*& Include ZXM06U16 *
DATA: i_t_ekko LIKE ekko OCCURS 1 WITH HEADER LINE.
DATA: ebeln LIKE ekpo-ebeln,
it_ekko TYPE TABLE OF ekko WITH HEADER LINE,
old_val(50) TYPE c. "For storing the value from the Field Symbol
FIELD-SYMBOLS <fs> TYPE ANY TABLE.
CASE zeitp.
WHEN 'MA'. "When creating a purchase order
MOVE '(SAPLEINS)T_EKKO[]' TO old_val.
ASSIGN (old_val) TO <fs>.
i_t_ekko[] = <fs>.
LOOP AT xmcekko.
ebeln = xmcekko-ebeln.
IF xmcekko-supkz = '1'. "Old Value ?
SELECT SINGLE * FROM ekko INTO it_ekko WHERE ebeln = ebeln.
xmcekko-ZZZ = it_ekko-ZZZ.
ELSE. "New Value ?
READ TABLE i_t_ekko WITH KEY ebeln = ebeln.
xmcekko-ZZZ = i_t_ekko-ZZZ.
ENDIF.
MODIFY xmcekko.
ENDLOOP.
EndCase.
The compile of the above code works fine and we activated everywhere including project level. Then we set debug points in this code, and run RSA3 on 2LIS_02_ITM, but find the extraction program never reaches this code or call this user exit function EXIT_SAPLEINS_001 of this enhancement LEINS001. Any reason?
Thanks
Kevin
Message was edited by: Kevin Smith -
How and where to define Char Value for Industry code for the customer
Hi All,
How to define and where to derfine Characteristic value for Industry code (KNA1-BRAN1) field
for a Customer.
As while PGI I am getting error message that Characteristic value for Industry code 00008
does not exist.
RishiSolved
-
Code for Family Members Detail screen
Hello,
I am on EP7.0,NW04s and ERP05 and want to modify the ESS Family Members Detail(Edit Spouse) screen wherein I want to make the Social Security Number as a mandatory field like First and Last name ...but I wonder where to find the code writeen for these validations ... so that I can add my code for SSN...
Any help would be highly appreciated.Hi,
If your requirement is making an input field as mandatory input field then for this validation you can follow the following procedure..
1> Add an entry like the following in your Message Pool.
MISSING_INPUT as Message Key, Message Type error, must be enterred as Message Text.
2> Add a method called checkInputValues as follows for validation as follows
public void checkInputValues( java.util.ArrayList attributeCollection, java.util.ArrayList fieldNames )
//@@begin checkInputValues()
IWDMessageManager messg = wdComponentAPI.getMessageManager();
String strValue=(String)wdContext.currentCalIDSHDtailsElement().getAttributeValue(attributeCollection.get(0).toString());
if(strValue==null || strValue.equalsIgnoreCase(" "))
messg.reportContextAttributeMessage(
wdContext.nodeCalIDSHDtails().currentCalIDSHDtailsElement(),
wdContext.nodeCalIDSHDtails().getNodeInfo().getAttribute(attributeCollection.get(0).toString()),
IMessageTpcalender.MISSING__INPUT,
new Object[]{ fieldNames.get(0) },
true);
//@@end
3> Add another method in your View that will use the validation code on Submit and add the following code in the method
public void onActionSubmit(com.sap.tc.webdynpro.progmodel.api.IWDCustomEvent wdEvent )
//@@begin onActionSaveCalData(ServerEvent)
ArrayList attList = new ArrayList();
ArrayList fieldNames = new ArrayList();
attList.add(0,IPrivateTpcalenderViewOne.ICalIDSHDtailsElement.FIRSTAME);
fieldNames.add(0,"FIRST NAME");
this.checkInputValues(attList,fieldNames);
wdComponentAPI.getMessageManager().raisePendingException();
//@@end
if you use the above procedure you can perform the validation on a input field and if user does not enter any value and tries to submit the form then the input field will be marked with red color.. Hope this helps..
If you need further help let me know...
Please reward points if it helps..
Thanks
Avijit -
RFC code for Adding Customer Record
Dear all
Can any body provide RFC code for adding a record
in customer table ( KNA1) ?
regards
- VictorVictor,
I created a remote-enabled function module (z_customer_create) which calls SD_CUSTOMER_MAINTAIN_ALL. The 'z' function module was published as a web service and is working well. We did have a few hurdles but there are many forum posts for FM SD_CUSTOMER_MAINTAIN_ALL that will help should you run into trouble. -
SAP standard FM or BAPI for getting customer details from condition record
Can someone suggest some SAP standard BAPI or FM with the help of which we can get the customer details of all it's pricing conditions maintained in condition tables provided we have the condition record number with us.
Hi,
look at the below BAPI's
BAPI_CUSTOMER_DISPLAY
BAPI_CUSTOMER_GETDETAIL2
Regards
Sudheer -
Transaction code for viewing billing details of a customer.
Hi
Do we have any tansaction code where we can view all the invoices related with a customer for a particular month.
Please advise.
Kind regards.
Katehi
In R/3 VF05 will show list of all the invoices for the date chosen by the user entry
This will show only list for a particular payer and material combination
Regards
N Ganesh -
Program code and transaction code for handling unit detail
Developed a SAP Script for the Handling unit details. Handling unit details is a document which has the details of materials, packaging materials and the level of packing. This Handling Units details will be issued to the customer at the time of delivery.
Hi,
Goto NACE transaction code , there you select the application area then it will give you the list of output types then select specific output click processing routines then you will see the program name and script used.
Or esle goto SPRO tcode then you can find the functional tab there also you can get the details.
Thanks,
Aditya -
NRL digital pass subscription code for new customer
AM after the nrl code or voucher number for a new customer, it comes free for 12 months with my new contract.. anyone can help me???
I DONT SEE IT ANYWHERE WELCOME TO YOUR NEW PLANHi ROBERT,Thanks for choosing Telstra! On this email we've attached the paperwork which will tell you all the need to know details, like what's included and excluded on your plan and what the main fees and charges are. We recommend keeping this e-mail, just in case you have any questions about your plan.Your order number is:
Date: 12/05/2015 04:50:24 PMKeep on top of your accountIf you didn’t already know, you can also manage your services online using My Account. It’s a convenient way to keep on top of your account activity, with access from your PC and mobile when it suits you.Go to telstra.com/myaccount to register.With My Account, you can:Manage your bill settings including changing to a detailed or summary billView, download and pay your bills any timeMonitor your call costs between billsTop up your pre-paid servicesKeep track of any mobile data usageThanks again for choosing Telstra.
If you have any questions or would like to know more, you can call us on 13 22 00 anytime or locate your local Telstra retail store online. Our dedicated team are on hand to help.
Best regards,
The Telstra team
Privacy | Our Customer Terms | Contact Us Things you need to know: ® and ™ are Registered trade mark and trade mark of Telstra Corporation Limited. ABN 33 051 775 556. -
T. CODE FOR PRODUCTION + SHIPMENT DETAILS.
Dear All ,
Pl Help me i want to know that is there any T.CODE by which user can get detail report for production of all it's products & is there any T.CODE by which i can get detailed report of Shipment of all it's Products .
Regards,
SAP11Tables
Shipping :
VTTK Shipment header
VTTP Shipment item
VTTS Stage in transport
VTSP Stage in transport per shipment item
VTPA Shipment partners
VEKP Handling Unit - Header Table
VEPO Packing: Handling Unit Item (Contents)
I guess you will find that in VTTK....
Just Check via Tcode SE16 enter the table name and enter the document number, serch for the field...
Regards -
T code for vendor,customer line item display
we are using ecc 6.
I would like to know the wheter any tcode is available in ECC6 for cust and vendor line item display.
NEW TCODE for FBL3N is FAGLL03. Like that any new new tcode is availbale for FBL1N & FBL5N?
Please clarify.
Thanks
RajeshDear Rajesh,
There are not direct 'replacement' as the FAGLL03->FBL3N for FBL1N and FBL5N.
So the FBL1N and FBL5N can be used further without any problem.
As stated before, only the G/L are has directly changed.
But in the relation to the New G/L, there are two new 'Recherche' tools for the vendor and customer area in relation to the 'Segment' and 'Profit Center'.
You can find them in the FGI0 transaction.
They are called:
0SAPRECIEV01
0SAPRECIEV02
0SAPPAYABL01
0SAPPAYABL02
Maybe they can also help you further.
Best regards,
Christoph
Maybe you are looking for
-
Bad secondary ide channel?
Windows kept blue screening when i installed a new k9n2 board - i finally tried swapping the primary and secondary cables (HD's are now on secondary channel and dvd is on primary channel). Now it runs fine except the dvd drive doesnt show in windows.
-
Applications not opening with the exception of iTunes and Safari
Hi I have an IMac operating OS X Yosemite, Shortly after install I have been unable to open any applications with the exception of ITunes. I am also able to open Safari. I have transferred all of my files using time machine to my external hard drive,
-
Disks in RAID "Offline" - won't mount
I can't get my mirrored RAID 1 array to mount. This comes after a forced shutdown. These are external firewire disks, daisy-chained, and hooked up to a G4's firewire port. The drives power up fine, show up in Disk Utility, and even spin up when I cli
-
CS6 Very slow when saving files
I am an avid user of CS6 and only until recently have I began to have issues with saving these files. I realize I could be rasterizing these files, but I can't in case I want to edit. There are tons of clipping masks and patterns so that may be the i
-
Camera RAW 2.5 Update für Nikon D2X ????
Wann kann ich mit einem Update zur Unterstützung der Nikon D2X rechnen ??? Andy