abapdev
 3
| ![]() Posté : 12-10-2009 23:15
salut amis lecteurs,
une réponse apres cette 'petite' période d' abscence qui servira à d' autre (Dsl DomD  )
Principales tables : ADRC ADR3 /Numéro d adresse: champ ADRNR
Ci dessous exemples de selections:
SELECT SINGLE ADRNR INTO T001-ADRNR FROM T001 WHERE BUKRS = VBAK-BUKRS_VF.
SELECT SINGLE NAME1 STREET CITY1 POST_CODE1 COUNTRY
INTO (T_ADRS-NAME1,T_ADRS-STREET,T_ADRS-CITY1, T_ADRS-POST_CODE1, ADRC-COUNTRY)
FROM ADRC WHERE ADDRNUMBER EQ T001-ADRNR.
SELECT SINGLE LANDX INTO T_ADRS-COUNTRY FROM T005T WHERE SPRAS = 'EN' AND LAND1 = ADRC-COUNTRY.
**BUYERS NO & DATE * *
SELECT SINGLE BSTNK BSTDK INTO (T_ADRS-BSTNK,T_ADRS-BSTDK) * FROM VBAK WHERE VBELN = VBFA-VBELV.
*Consignee Address & Buyer Other Than Consignee
SELECT SINGLE KUNNR KUNAG INTO (LIKP-KUNNR, LIKP-KUNAG)
FROM LIKP WHERE VBELN = P_DELNO.
IF LIKP-KUNNR = LIKP-KUNAG.
SELECT SINGLE NAME1 NAME2 STRAS ORT01 PSTLZ REGIO TELF1 ADRNR
INTO (T_ADRS-CNAME1, T_ADRS-CNAME2, T_ADRS-CSTREET, T_ADRS-CCITY, T_ADRS-CPCODE, T_ADRS-CREGIO, T_ADRS-CTELF1, KNA1-ADRNR)
FROM KNA1 WHERE KUNNR = LIKP-KUNNR.
SELECT SINGLE COUNTRY INTO ADRC-COUNTRY FROM ADRC WHERE ADDRNUMBER EQ KNA1-ADRNR.
SELECT SINGLE LANDX INTO T_ADRS-CCOUNTRY FROM T005T WHERE SPRAS = 'EN' AND LAND1 = ADRC-COUNTRY.
T_ADRS-ONAME1 = T_ADRS-CNAME1 .
T_ADRS-ONAME2 = T_ADRS-CNAME2 .
T_ADRS-OSTREET = T_ADRS-CSTREET .
T_ADRS-OCITY = T_ADRS-CCITY.
T_ADRS-OPCODE = T_ADRS-CPCODE .
T_ADRS-OREGIO = T_ADRS-CREGIO.
T_ADRS-OTELF1 = T_ADRS-CTELF1 .
T_ADRS-OCOUNTRY = T_ADRS-CCOUNTRY.
ELSE.
SELECT SINGLE NAME1 NAME2 STRAS ORT01 PSTLZ REGIO TELF1 ADRNR
INTO (T_ADRS-CNAME1, T_ADRS-CNAME2, T_ADRS-CSTREET, T_ADRS-CCITY, T_ADRS-CPCODE, T_ADRS-CREGIO, T_ADRS-CTELF1, KNA1-ADRNR)
FROM KNA1 WHERE KUNNR = LIKP-KUNNR. SELECT SINGLE COUNTRY INTO ADRC-COUNTRY FROM ADRC WHERE ADDRNUMBER EQ KNA1-ADRNR.
SELECT SINGLE LANDX INTO T_ADRS-CCOUNTRY FROM T005T WHERE SPRAS = 'EN' AND LAND1 = ADRC-COUNTRY.
*Buyer Other than Consignee
SELECT SINGLE NAME1 NAME2 STRAS ORT01 PSTLZ REGIO TELF1 ADRNR
INTO (T_ADRS-ONAME1, T_ADRS-ONAME2, T_ADRS-OSTREET, T_ADRS-OCITY, T_ADRS-OPCODE, T_ADRS-OREGIO, T_ADRS-OTELF1, KNA1-ADRNR)
FROM KNA1 WHERE KUNNR = LIKP-KUNAG.
SELECT SINGLE COUNTRY INTO ADRC-COUNTRY FROM ADRC WHERE ADDRNUMBER EQ KNA1-ADRNR.
SELECT SINGLE LANDX INTO T_ADRS-OCOUNTRY FROM T005T WHERE SPRAS = 'EN' AND LAND1 = ADRC-COUNTRY. ENDIF. |
