ADDTXTUTI : Ajout de textes spécifiques

Rappel : En version 140, les textes utilisateurs des OBJets (exemple : textes Achats, Production de l' article) sont enregistrés dans des champs de type ACB (Clob)

Ce point d’entrée situé dans le traitement RECTXTUTI, permet de traiter les textes définis en spécifique.

Contexte et mode de fonctionnement

Transaction

Il n’y a pas de transaction en cours.

Fichier trace

Il n’y a pas de fichier trace ouvert.

Contexte d’appel

Ce point d’entrée est appelé après la création des tableaux internes de définition des textes standards.

Des tableaux sont utilisés pour constituer les lignes du masque de choix du type de texte à créer ( texte enrichi ou texte brut ). Il n'est pas possible de créer, modifier ou supprimer de ligne du masque. Le point d'entrée est destiné à compléter ces tableaux d'initialisation avant affichage du masque.    

Variables et masques disponibles

Tableaux internes de 150 postes

Local  Char             TABLE            (15)     (0..150)           : #  Table

Local  Integer          NLIEN                          (0..150)           : #   Lien ( Ne pas modifier ) 

Local  Char             ZONE1            (15)     (0..150)           : #   Champ texte 1

Local  Char             ZONE2            (15)     (0..150)           : #   Champ texte 2

Pour un indice, on retrouve la table et le ( ou les textes ) de la table. Si une table contient plus de 2 textes, une ligne d'indice +1 est nécessaire ( voir table SDELIVERY ). Il est interdit de modifier la valeur du tableau NLIEN.

 

 

Indice

TABLE

 

ZONE1

1er champ texte

ZONE2

2ème champ texte

0

ITMMASTER

PURTEX

MFGTEX

1

 

 

 

2

ITMSALES

ITSTEX

ITPTEX

3

 

 

 

4

ITMBPC

ITSTEX

ITPTEX

5

 

 

 

6

ITMBPS

TEX

 

7

 

 

 

8

BPCUSTOMER

INVTEX

ORDTEX

9

 

 

 

10

BPDLVCUST

DLVTEX

PRPTEX

11

 

 

 

12

BPSUPPLIER

ORDTEX

RTNTEX

13

 

 

 

14

BOM

HEATEX

 

15

 

 

 

16

BOMD

BOMTEXNUM

 

17

 

 

 

18

 

 

 

19

 

 

 

20

PREQUIS

TEX1

TEX2

21

 

 

 

22

PREQUISD

LINTEX

 

23

 

 

 

24

PQUOTAT

TEX1

TEX2

25

 

 

 

26

PQUOTATD

LINTEX

 

27

 

 

 

28

PORDER

TEX1

TEX2

29

 

 

 

30

PORDERC

TEX

 

31

 

 

 

32

PORDERQ

LINTEX

 

33

 

 

 

34

PRECEIPT

TEX1

TEX2

35

 

 

 

36

PRECEIPTD

LINTEX

 

37

 

 

 

38

PRETURN

TEX1

TEX2

39

 

 

 

40

PRETURND

LINTEX

 

41

 

 

 

42

PINVOICEV

TEX1

TEX2

43

 

 

 

44

PINVOICED

LINTEX

 

45

 

 

 

46

 

 

 

47

 

 

 

48

SQUOTE

SQHTEX1

SQHTEX2

49

 

 

 

50

SQUOTED

SQDTEX

 

51

 

 

 

52

SORDER

SOHTEX1

SOHTEX2

53

 

 

 

54

SORDERQ

SOQTEX

 

55

 

 

 

56

SORDERC

SOCTEX

 

57

 

 

 

58

SDELIVERY

SDHTEX1

SDHTEX2

59

SDELIVERY

PRPTEX1

PRPTEX2

60

 

 

 

61

SDELIVERYD

SDDTEX

PRPTEX

62

 

 

 

63

SRETURN

SRHTEX1

SRHTEX2

64

 

 

 

65

SRETURND

SRDTEX

 

66

 

 

 

67

SINVOICEV

SIHTEX1

SIHTEX2

68

 

 

 

69

SINVOICED

SIDTEX

 

70

 

 

 

71

 

 

 

72

 

 

 

73

ROUTING

TEXNUM

 

74

 

 

 

75

ROUOPE

ROOTEX

 

76

 

 

 

77

ROUOPESTD

OPETEXNUM

 

78

 

 

 

79

MFGHEAD

MFGTEX

 

80

 

 

 

81

MFGMAT

MFMTEX

 

82

 

 

 

83

MFGOPE

MFOTEX

 

84

 

 

 

85

MFGHEADTRK

MTKTEX

 

86

 

 

 

87

MFGMATTRK

MKMTEX

 

88

 

 

 

89

MFGOPETRK

MKOTEX

 

90

 

 

 

91

CAPVAR

VARTEX

 

92

HANDLING

TEX

 

93

 

 

 

94

SCALES

TEX

 

95

 

 

 

 

 

 

 

Mode opératoire :

Contenu du point d'entrée

-          Ajout du texte spécifique SPETEX1 pour la table ITMBPS

ZONE2(6)="SPETEX1"

-          Ajout de texte spécifique SPETEX2 pour la table ITMBPC

TABLE(5)="ITMBPC" : ZONE1(5)="SPETEX2"

-          Ajout de texte spécifique SPETEX3 pour la table BPCARRIER sans texte standard

TABLE(18)="BPCARRIER" : ZONE1(18)="SPETEX3"

 ATTENTION :

Si le point d'entrée ADDTXTUTI est utilisé pour une table définie en spécifique, il est impératif de faire l'ouverture des tables ATABLE, ATABIND, ATABZON, ATEXTE dans le point d'entrée sous le dossier qui sera saisi dans le masque de lancement.