5.4 PIECES DE RECHANGE D'INTERFACE

Avec le fichier X11 peut dès la première reprise de pièces de rechange, le
Mise à jour des pièces de rechange et reprise des pièces de rechange
fichier de prix de velours marque neutre.
Pour plus d'informations sur cette fonction, voir le chapitre «Échange de données I».

5.4.1 CONSTRUCTION DU FICHIER X11

Le fichier X11 est un fichier séquentiel avec une longueur d’enregistrement de 492. Il suit
une définition des champs individuels, selon la norme COBOL:
01 X11-SET-1.
05 X11-XKEY.
07 X11-ETNR PIC X (20).
* NUMÉRO DE PIÈCE DE RECHANGE
05 X11 ETNR CHAIN PIC X (20).
* NUMERO DE TERMINAL
* OU NUMÉRO D'ABONNEMENT
* TAXÉ SUR
* STATUT DE LA CHAÎNE
05 X11 ETNR CHAINE STAT PIC X (1).
* STATUT DE LA CHAÎNE
* '' = PAS DE CHAÎNE
* '1' = X11-ETNR-KETT IS
* SUIVEURS
* '2' = X11 ETNR CHAIN IS
* PROGRAMMATEUR
* VERKATTUNGSTATUS '2' À
* TEMPS PAS INFÉRIEUR
* SUPPORTS
05 X11-TEXT PIC X (20).
* TITRE
05 X11-GRP PIC X (4).
* Sous-groupe
05 X11-EP-KZ PIC X (2).
* MARQUE DE PRIX D'ACHAT
* '' = EP ET EP2
* EST INDIQUÉ
* 'I1' = EP ET EP2 OVER
* REMISE
* 'I2' = EP ET EP2 OVER
* CODE DE REMISE
05 X11 NETZ-KZ PIC X (1).
* TARIFS NETTOPE
* '' = AUCUN PRIX NET
* PARTIE
* 'J' = PRIX NETTOP
05 X11-LI-EP1 PIC 9 (7) V99.
* PRIX DE MAGASINAGE
* EST PRIS SI
* EP-KZ = ''
05 X11 RAB CD PIC X (3).
* CODE DE REMISE
05 X11-RAB1 PIC 99V9.
* RABAIS POUR LES MAGASINS
* POUR CALCULER
* PRIX DE MAGASINAGE
* SI EP-KZ = 'I1'
05 X11-LI-EP2 PIC 9 (7) V99.
* PRIX D'ACHAT SPÉCIAL
* EST PRIS SI
* SI EP-KZ = ''
05 X11 S RAB CD PIC X (3).
* CODE DE REMISE SPÉCIALE
* NON UTILISÉ AU MOMENT
05 X11-RAB2 PIC 99V9.
* RABAIS SPÉCIAL POUR LES ACHATS
* POUR CALCULER
* PRIX D'ACHAT SPÉCIAL
* SI EP-KZ = 'I1'
05 X11-LI-GP PIC 9 (7) V99.
* PRIX DE GARANTIE
* EST PRIS SI
* GP-KZ = ''
* - DANS LE PROGRAMME PRECEDENT
* (AU PREMIER INSTALLATION)
* - Dans l'hommage
* (SI MIS À JOUR)
05 X11-LI-LP PIC 9 (7) V99.
* LISTE PRIX
05 PIC X11-XMWS X (3).
* CODE TVA
* EST UTILISÉ AVEC TABLEAU DE RÉFÉRENCE
* TRANSFORMÉ
05 X11-BEST-EH PIC 9 (7).
* UNITÉ DE COMMANDE
05 X11-BV-KZ PIC X (1).
* MARQUE D'OBSERVATION
05 X11-FIL1 PIC X (1).
* GRATUIT
05 X11-WCD PIC X (3).
* CODE DE DEVISE
05 X11 LANGUE TEXTE PIC X (120).
* NOM LONG
05 X11 POIDS PIC 9 (4) V9 (3).
* POIDS EN KG
05 X11-PARK PIC X (1).
* IDENTIFICATION D'IMPÔT PARTICULIER
* '' = NON
* 'Y' = OUI
05 X11-EAN PIC X (13).
* EAN NUMBER
05 X11-MATCH PIC X (20).
* CODE MATCH
05 X11-STWNR PIC X (20).
* NOMBRE DE MARCHANDISES STATISTIQUES
05 X11-EXTNR.
07 X11-EXTNR-1 PIC X (30).
07 X11-EXTNR-2 PIC X (30).
07 X11-EXTNR-3 PIC X (30).
07 X11-EXTNR-4 PIC X (30).
* NUMÉRO DE PIÈCE EXTERNE 1-4
05 PIC X11-PFAND-NR X (20).
* NUMÉRO DE PFAND POUR LES PIÈCES D'ÉCHANGE
05 X11-PFAND PIC 9 (7) V99.
* PFANDBETRAG
05 X11 TIRE-X.
07 X11 RF ROLL PIC X (1).
* RESISTANCE AUX ROULEAUX
07 X11-RF-WET PIC X (1).
* ÉTANCHÉITÉ DES PNEUS
07 PIC X11-RF-DB 9 (3).
* BRUIT DE PNEUS DANS DB
05 X11-VERP-EH PIC 9 (7).
* UNITÉ D'EMBALLAGE
05 X11-MNG-EH PIC X (4).
* ACHAT PAR QUANTITÉ
05 X11-STG PIC 9 (3).
* GROUPE STATISTIQUE
05 X11-VP-KZ PIC X (2).
* PRIX DE VENTE KZ
05 X11-VP-KZ-UEB PIC X (1).
* PRIX D'ACHAT KZ
EOT