Forum : Général ABAP/SD / Table d'Adresse de livraison d'une Cde clt

Modéré par : alpa
Index du Forum » » Général ABAP/SD » » Table d'Adresse de livraison d'une Cde clt

DomD

Posté : 06-07-2009 16:04

Bonjour,

Je souhaite faire une Query mixant des données Cde poste & E/T (VBAP & VBAK) avec des données de livraison (SM Réelle, Magasin, etc...). Il me manque l'adresse de livraison des postes.
Dans quelle table puis-je la trouver ?
Attention: Dans mon cas, l'adresse de livraison dans la commande (et donc, dans la livraison) n'est pas la même que celle du partenaire de livraison. Il nous est possible de modifier l'adresse directement dans la commande.

Merci.

DD

Profil

abapdev

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.

Profil