1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
|
** Déclaration
** Données pour traitement du fichier en entrée
** Table interne pour récupération des données XML
TYPES: BEGIN OF psaleorder,
i_kschl TYPE komv-kschl, "Type de condition
i_itemprice(19) TYPE c, "Prix unitaire
i_kpein TYPE komv-kpein, "Base
i_kmein TYPE komv-kmein, "Unité condition prix
i_kbetr TYPE komv-kbetr, "Montant du poste
i_itemdisc(8) TYPE p DECIMALS 3, "Remise sur article
i_discamount TYPE komv-kbetr,"Montant de la remise
i_itemamount TYPE komv-kbetr,"Montant du poste remisé
i_vrkme TYPE vbap-vrkme, "Unité de prix
i_addvat TYPE c, "Add TVA
END OF psaleorder.
**Table pour récupération des données de commande
*Type de table pour subitem N3 (Correspond au subitem)
TYPES: BEGIN OF s_subitem,
i_itid(5) TYPE c, "ID du poste
i_itlabel(50) TYPE c, "Désignation grpe article
i_itdescr(100) TYPE c, "Description
i_itpstyv TYPE vbap-pstyv,"Type de poste
i_nogrp(3) TYPE c, "Indic affi. grpe article
i_itnum(6) TYPE c, "N° poste MKG
i_itreqdate(20) TYPE c, "Date de soumission
i_itreqpost(30) TYPE c, "Champ libre pour lot 2
i_itemid(12) TYPE c, "Code article MKG
i_fixepx TYPE c, "Prix fixé
i_ntgew TYPE vbap-ntgew, "Poids
i_gewei TYPE vbap-gewei, "Unité de poids
i_matnr TYPE vbap-matnr, "Code Article SAP
i_formula(2) TYPE c, "Formule de calcul
i_kwmeng TYPE vbap-kwmeng, "Quantité
i_vrkme TYPE vbap-vrkme, "Unité de quantité = unité de vente?
i_ubase TYPE vbap-vrkme, "Unité de base de la quantité
i_zterm TYPE vbkd-zterm, "Condition ou Délais de paiement
i_zlsch TYPE vbkd-zlsch, "Type de paiement
i_prctr TYPE vbap-prctr, "Centre de profit = Ligne de produit
i_of(15) TYPE c, "Ordre de fabrication
price TYPE psaleorder OCCURS 0,
END OF s_subitem.
*Type de table pour item N2 (correspond au block OrderItem)
TYPES: BEGIN OF s_itemn2,
i_itid(5) TYPE c, "ID du poste
i_itlabel(40) TYPE c, "Désignation grpe article
i_itdescr(100) TYPE c, "Description
i_itpstyv TYPE vbap-pstyv,"Type de poste
i_nogrp(3) TYPE c, "Indic affi. grpe article
i_itnum(6) TYPE c, "N° poste MKG
i_itreqdate(20) TYPE c, "Date de soumission
i_itreqpost(30) TYPE c, "Champ libre pour lot 2
i_itemid(12) TYPE c, "Code article MKG
i_fixepx TYPE c, "Prix fixé
i_ntgew TYPE vbap-ntgew, "Poids
i_gewei TYPE vbap-gewei, "Unité de poids
i_matnr TYPE vbap-matnr, "Code Article SAP
i_formula(2) TYPE c, "Formule de calcul
i_kwmeng TYPE vbap-kwmeng, "Quantité
i_vrkme TYPE vbap-vrkme, "Unité de quantité = unité de vente?
i_ubase TYPE vbap-vrkme, "Unité de base de la quantité
i_zterm TYPE vbkd-zterm, "Condition ou Délais de paiement
i_zlsch TYPE vbkd-zlsch, "Type de paiement
i_prctr TYPE vbap-prctr, "Centre de profit = Ligne de produit
i_of(15) TYPE c, "Ordre de fabrication
price TYPE psaleorder OCCURS 0,
subitem TYPE s_subitem OCCURS 0,
END OF s_itemn2.
*Type de table pour item N1 (Correspond au block Group)
TYPES: BEGIN OF s_item,
i_itid(5) TYPE c, "ID du poste
i_itlabel(40) TYPE c, "Désignation grpe article
i_itdescr(100) TYPE c, "Description
i_itpstyv TYPE vbap-pstyv,"Type de poste
i_nogrp(3) TYPE c, "Indic affi. grpe article
i_itnum(6) TYPE c, "N° poste MKG
i_itreqdate(20) TYPE c, "Date de soumission
i_itreqpost(30) TYPE c, "Champ libre pour lot 2
i_itemid(12) TYPE c, "Code article MKG
i_fixepx TYPE c, "Prix fixé
i_ntgew TYPE vbap-ntgew, "Poids
i_gewei TYPE vbap-gewei, "Unité de poids
i_matnr TYPE vbap-matnr, "Code Article SAP
i_formula(2) TYPE c, "Formule de calcul
i_kwmeng TYPE vbap-kwmeng, "Quantité
i_vrkme TYPE vbap-vrkme, "Unité de quantité = unité de vente?
i_ubase TYPE vbap-vrkme, "Unité de base de la quantité
i_zterm TYPE vbkd-zterm, "Condition ou Délais de paiement
i_zlsch TYPE vbkd-zlsch, "Type de paiement
i_prctr TYPE vbap-prctr, "Centre de profit = Ligne de produit
i_of(15) TYPE c, "Ordre de fabrication
price TYPE psaleorder OCCURS 0,
itemn2 TYPE s_itemn2 OCCURS 0,
END OF s_item.
*Type pour table de traitement
TYPES: BEGIN OF s_itaborder,
*Données d'en-tête de la commande <Order>
h_orderid(12) TYPE c, "N°Commande DMF
h_auart TYPE vbak-auart, "Type de document commercial
h_groupid(24) TYPE c, "N° du devis DMF
h_custid(10) TYPE c, "N° point de vente DMF
h_kunnr TYPE vbpa-kunnr, "Code client SAP
* h_ivat TYPE c, "Soumis à TVA ou non
h_kdgrp TYPE vbkd-kdgrp, "Groupe vendeur (annonceur)
h_ncamp(100) TYPE c, "Nom de la campagne
h_headertxt(150) TYPE c, "Texte d'entête sur la facture
h_footertxt(150) TYPE c, "Texte de bas de page dans la facture
h_messtyp TYPE c, "Type de message 4 création, 5 modif.
h_dateheure(20) TYPE c, "Date action = envoie du fichier
h_creator(3) TYPE c, "Créateur du message 'MKG' pour DMF
h_siteprod(4) TYPE c, "Identifiant du site de production
* h_reqdate(8) TYPE c, "Date de soumission à production
h_vtweg TYPE vbak-vtweg, "Canal de distribution
h_spart TYPE vbak-spart, "Secteur d'activité
h_waerk TYPE vbak-waerk, "Devise
h_bukrs TYPE vbak-bukrs_vf, "Organisation Commercial
itemn1 TYPE s_item OCCURS 0,
END OF s_itaborder.
**Tables de traitement
DATA: itsaleord TYPE STANDARD TABLE OF s_itaborder,
itsaleord_id TYPE STANDARD TABLE OF s_itaborder WITH HEADER LINE,
s_itsaleord TYPE s_itaborder. |
Partager