Standard script problem (medruck)

Former Member — Thu, 22 Jun 2006 04:50:55 GMT

hi friends

iam doing a standard script debugging of P.O.

ME23N --when i print for particular p.o instead of delivery adress

i get mold shop adress in my print preview ..i trying to debug the program

zm06pf04.... which has follwoing code and i didnt get what the function is returining

in the following code .

i will be thankfull if anybody advice me

regards

farukh

FORM WERKSANSCHRIFT_WH1 USING WAN_WERKS. "CETJF1 05/22/00

DATA: ADDRESS_SELECTION LIKE ADDR1_SEL. "aem110801

CLEAR SADR.

CHECK WAN_WERKS NE SPACE.

SELECT SINGLE * FROM T001W WHERE WERKS EQ WAN_WERKS.

CHECK SY-SUBRC EQ 0.

CLEAR SADR.

IF T001W-ADRNR NE SPACE.

ADDRESS_SELECTION-ADDRNUMBER = T001W-ADRNR. "aem110801

CALL FUNCTION 'ADDR_GET' "aem110801

EXPORTING "aem110801

ADDRESS_SELECTION = ADDRESS_SELECTION "aem110801

IMPORTING "aem110801

SADR = SADR "aem110801

EXCEPTIONS "aem110801

OTHERS = 1. "aem110801

Endif. "aem110801

if sy-subrc <> 0 or "aem110801

t001w-adrnr is initial. "aem110801

SADR-NAME1 = T001W-NAME1.

SADR-NAME2 = T001W-NAME2.

SADR-STRAS = T001W-STRAS.

SADR-PFACH = T001W-PFACH.

SADR-PSTLZ = T001W-PSTLZ.

SADR-ORT01 = T001W-ORT01.

SADR-LAND1 = T001W-LAND1.

SADR-REGIO = T001W-REGIO.

ENDIF.

pur grps L18 L19 L20 get Mold Shop address using function "aem110801

IF EKKO-EKGRP = 'L18' "CETJF1 05/22/00

OR EKKO-EKGRP = 'L19' "CETJF1 05/22/00

OR EKKO-EKGRP = 'L20'. "CETJF1 05/22/00

**** start of change **** "aem110801

refresh: addr_srch, addr_grps, srch_found.

clear: addr_grps, addr_srch, srch_found.

move 'ME01' to addr_grps-addr_group.

append addr_grps.

move 'NEW MOLD SHOP' to addr_srch-sort1.

clear addr_srch-sort2.

append addr_srch.

CALL FUNCTION 'ADDR_SEARCH'

EXPORTING

SEARCH_FOR = addr_srch

UP_TO_ROWS = 1

IMPORTING

ADDRESSES_FOUND_COUNT = addr_cnt

RETURNCODE = returncode

TABLES

ADDRESS_GROUPS = addr_grps

SEARCH_RESULT = srch_found

EXCEPTIONS

PARAMETER_ERROR = 1

INTERNAL_ERROR = 2

OTHERS = 3.

if sy-subrc = 0.

clear sadr.

read table srch_found index 1.

sadr-ANRED = srch_found-TITLE.

sadr-name1 = srch_found-name1.

sadr-name2 = srch_found-name2.

sadr-STRAS = srch_found-STREET.

sadr-ORT01 = srch_found-CITY1.

sadr-PSTLZ = srch_found-POST_CODE1.

sadr-LAND1 = srch_found-COUNTRY.

sadr-REGIO = srch_found-REGION.

sadr-TELF1 = srch_found-TEL_NUMBER.

sadr-TELFX = srch_found-FAX_NUMBER.

endif.

endform

Re: Standard script problem (medruck)

Former Member — Thu, 22 Jun 2006 05:02:52 GMT

**** start of change **** "aem110801

refresh: addr_srch, addr_grps, srch_found.

clear: addr_grps, addr_srch, srch_found.

move 'ME01' to addr_grps-addr_group.

append addr_grps.

move 'NEW MOLD SHOP' to addr_srch-sort1.

clear addr_srch-sort2.

append addr_srch.

JUST COMMENT THIS PART due to this part in output u get MOLD SHOP ADDRESS

Re: Standard script problem (medruck)

Former Member — Thu, 22 Jun 2006 05:19:21 GMT

hi kishan thnks for replying but i dont need mold shop adress i need ship to adress instead of that iam geting mold shop adress and idint getwhat the function addr_search is returning value .

regards

topic Re: Standard script problem (medruck) in Application Development and Automation Discussions

Standard script problem (medruck)

Re: Standard script problem (medruck)

Re: Standard script problem (medruck)