5.7 LIVRAISONS D'INTERFACE

Le transfert des livraisons peut être rendu neutre par rapport à la marque avec le fichier XD1
fait.
Pour plus d'informations sur cette fonction, voir le chapitre «Échange de données I».

5.7.1 CONSTRUCTION DU FICHIER XD1

Le fichier XD1 est un fichier séquentiel avec une longueur d’enregistrement de 128. Il suit
une définition des champs individuels, selon la norme COBOL:
01 XD1-SET-1.
05 PIC XD1-KDNR X (5).
* NUMÉRO CLIENT DU REVENDEUR
05 XD1-ETNR-BST PIC X (20).
* NUMÉRO DE PIÈCE DE RECHANGE COMMANDÉ
05 XD1-ETNR-ZUG PIC X (20).
* NUMÉRO DE PIÈCE DE RECHANGE LIVRÉ
05 PIC XD1-TEXT X (20).
* TITRE
05 XD1 ETS STATUS PIC X (1).
* STATUS DES FOURNISSEURS
* NUMÉRO DE PIÈCE DE RECHANGE
* '1' = SUIVRE
* '2' = PROGRAMMATEUR
* '' = NON CHAINE
05 XD1-VAR PIC X.
* VARIANT D'ACCÈS
* '1' = ORDER TO EP-1
* '2' = ORDRE VERS EP-2
* '3' = ORDRE VERS EP-3
05 XD1 PIC DE REMPLACEMENT X.
* LIVRAISON KZ
* '' = PAS DE LIVRAISON
* '1' = AVEC RESET. POSITION
* OUVERT
05 XD1 MNG PIC DE TRAIN S9 (5).
* QUANTITÉ LIVRÉE
05 XD1 PRICE PIC 9 (7) V99.
* LP OU EP EN FONCTION DE
* MARQUE DE PRIX D'ACHAT
05 PIC XD1-EP-KZ X (2).
* MARQUE DE PRIX D'ACHAT
* '' = EP EST LIVRÉ
* 'I1' = EP OUT LP OVER
* REMISE
* 'I2' = EP OUT LP OVER
* CODE DE REMISE
05 PIC XD1-NET-KZ X (1).
* TARIFS NETTOPE
* '' = AUCUN PRIX NET
* '1' = PRIX NET
05 XD1-RAB PIC 9 (2) V9.
* REMISE%
* DEVIENT LE CALCUL DU PRIX DU PE
* UTILISÉ SI EP-KZ = 'I1'
05 XD1-RAB-CD PIC X (3).
* CODE DE REMISE
* DEVIENT LE CALCUL DU PRIX DU PE
* UTILISÉ SI EP-KZ = 'I2'
05 PIC XD1-TVA 9.
* Code TVA
05 XD1-ETGRP PIC X (4).
* Sous-groupe
05 XD1 N ° DE LIVRAISON PIC X (8).
* NUMÉRO DE LIVRAISON
05 XD1 HAENDLER NUMÉRO DE COMMANDE.
07 XD1-BSTNR PIC 9 (6).
* NUMÉRO DE COMMANDE DU REVENDEUR
07 PIC XD1-POS 9 (6).
* NUMERO DE POSITION DANS LA
* COMMANDE
05 XD1 ERROR CD PIC X (4).
* CODE D'ERREUR
* TEMPS DE HONDA AUTRICHE
* UTILISÉ
* UNIQUEMENT EN TEXTE
* PROTOCOLE IMPRIME
* (SINON
* PAS UTILISER)
05 XD1-LOESCH-KZ PIC X (1).
* 'L' SI DE SUPPRIMER
* EST UTILISÉ À L'INTÉRIEUR
05 XD1-EP-WE-KZ PIC X (1).
* '1' UNIQUEMENT FOURNITURE
* Le prix d'entrée des marchandises
05 PIC XD1-WCD X (3).
* CODE DE DEVISE
* (HONDA LIVRE WCD)
* 03 FILLER PIC X (6).