Help needed to Change MEDRUCK

[Former Member]

Hi,

I need to add some fields in MEDRUCK so I did copy the standard medruck to ZMEDRUCK,now for e,g in standard medruck we have vendor number detail I need to add vendor detail like address,name,city and other related to this.

How should I proceed to do this change.

Thanks

Sudharshan

[Former Member]

Hi sudrashan,

Use the perform vendor_details in program z____

using &vendor_no&

changing & address&

changing & city&

endperform.

and in form vendor details u can select the details whatever you want.

Regards

Lalit

[Former Member]

HI,

First write like this in Script.

/: PERFORM COUNTRY_CODE IN PROGRAM 'Z_MM_R_MMPO'

/: USING &EKKO-LIFNR&

/: CHANGING &NAME1&

/: CHANGING &STREET&

/: CHANGING &STR_SUPPL7&

/: CHANGING &LOCATION&

/: CHANGING &STRSUPPL1&

/: CHANGING &NAME3&

/: CHANGING &NAME4&

/: CHANGING &CITY1&

/: CHANGING &CITY2&

/: CHANGING &ORT01&

/: endperform.

In subroutine program write like this.

FORM COUNTRY_CODE TABLES IN_TAB STRUCTURE ITCSY

OUT_TAB STRUCTURE ITCSY. "#EC CALLED

DATA : LAND1 TYPE LFA1-LAND1, "plant

SPRAS TYPE LFA1-SPRAS, "LANGUAGE

LANDX TYPE T005T-LANDX, "company code

WERKS TYPE EKPO-WERKS, "#EC *

ADRNR TYPE LFA1-ADRNR, "ADDRESS

LIFNR TYPE LFA1-LIFNR, "VENDOR CODE

ANRED TYPE LFA1-ANRED, "M/S

NAME1 TYPE ADRC-NAME1, "NAME

NAME3 TYPE LFA1-NAME3,

NAME4 TYPE LFA1-NAME4,

CITY1 TYPE ADRC-CITY1, "CITY1

CITY2 TYPE ADRC-CITY2, "CITY2

STREET TYPE ADRC-STREET, "STREET

STR_SUPPL1 TYPE ADRC-STR_SUPPL1, "#EC *

STR_SUPPL2 TYPE ADRC-STR_SUPPL2, "#EC *

ADRNR1 TYPE T001W-ADRNR, "#EC *

STR_SUPPL7 TYPE ADRC-STR_SUPPL3, "STR_SUPPL3

LOCATION TYPE ADRC-LOCATION, "LOCATION

POST_CODE1 TYPE ADRC-POST_CODE1, "POSTCODE

REGION TYPE ADRC-REGION,

BEZEI TYPE T005U-BEZEI,

EMAIL TYPE ADR6-SMTP_ADDR, "#EC *

FAX TYPE ADRC-FAX_NUMBER. "FAX NUMBER

READ TABLE IN_TAB WITH KEY NAME = 'EKKO-LIFNR'. "EKKO-LIFNR

CHECK SY-SUBRC = C_ZERO.

LIFNR = IN_TAB-VALUE.

SELECT SINGLE ADRNR INTO ADRNR FROM LFA1

WHERE LIFNR = LIFNR.

SELECT SINGLE NAME1 CITY1 CITY2 POST_CODE1 STREET LOCATION STR_SUPPL3

REGION FAX_NUMBER

INTO (NAME1, CITY1, CITY2, POST_CODE1, STREET, LOCATION,

STR_SUPPL7, REGION, FAX)

FROM ADRC

WHERE ADDRNUMBER = ADRNR.

READ TABLE OUT_TAB WITH KEY NAME = 'NAME1'. "NAME1

• CHECK sy-subrc = c_zero.

IF SY-SUBRC IS INITIAL.

OUT_TAB-VALUE = NAME1.

MODIFY OUT_TAB INDEX SY-TABIX.

ENDIF.

READ TABLE OUT_TAB WITH KEY NAME = 'NAME3'. "NAME1

• CHECK sy-subrc = c_zero.

IF SY-SUBRC IS INITIAL.

OUT_TAB-VALUE = NAME3.

MODIFY OUT_TAB INDEX SY-TABIX.

ENDIF.

READ TABLE OUT_TAB WITH KEY NAME = 'NAME4'. "NAME1

• CHECK sy-subrc = c_zero.

IF SY-SUBRC IS INITIAL.

OUT_TAB-VALUE = NAME4.

ENDIF.

MODIFY OUT_TAB INDEX SY-TABIX.

and soon.

[former_member189629]

All that info is already available in MEDRUCK in Windor: ADDRESS

Ex:

ADDRESS PARAGRAPH AS

TITLE &LFA1-ANRED&

NAME &LFA1-NAME1& , &LFA1-NAME2& , &LFA1-NAME3& , &LFA1-NAME4&

STREET &LFA1-STRAS&

POBOX &LFA1-PFACH& CODE &LFA1-PSTL2&

CITY &LFA1-ORT01& , &LFA1-ORT02&

POSTCODE &LFA1-PSTLZ&

COUNTRY &LFA1-LAND1&

REGION &LFA1-REGIO&

FROMCOUNTRY &T001-LAND1&

ENDADDRESS

If you need additional info, write a perform to a subrouting in a custom program that selects the necessary data and passes it back to the form