Enregistrement ligne Commande Vente

**SimFaridas** · 11/05/2020, 09h31

Bonjour,

Je cherche à dupliquer une ligne dans Commande Vente (GESSOH)
J'arrive bien à dupliquer la ligne sélectionnée mais lors de l'enregistrement rien ne se passe. Voici le script de duplication :
(OldNum est nolign-1)
(J'ai put remarqué que modifier la valeur SOQSEQNUM ne modifie pas le champs SOPSEQ de la table SORDERP et SORDERQ)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
 
[M:SOH4]NUMLIG([M:SOH4]NBLIG) = ([M:SOH4]NBLIG +1) * 1000
    [M:SOH4]SOPLIN([M:SOH4]NBLIG) = ([M:SOH4]NBLIG +1) * 1000
    [M:SOH4]SOQSEQNUM([M:SOH4]NBLIG) = ([M:SOH4]NBLIG +1) * 1000
 
    [M:SOH4]ITMREF([M:SOH4]NBLIG) = [L]NewArticle
    [M:SOH4]ITMDES([M:SOH4]NBLIG) = [M:SOH4]ITMDES([L]OldNum)  
    [M:SOH4]ITMDES1([M:SOH4]NBLIG) = [M:SOH4]ITMDES1([L]OldNum) 
    [M:SOH4]ZLINPROD([M:SOH4]NBLIG) = [M:SOH4]ZLINPROD([L]OldNum)    
    [M:SOH4]DSTOFCY([M:SOH4]NBLIG) = [M:SOH4]DSTOFCY([L]OldNum) 
    [M:SOH4]LINREVNUM([M:SOH4]NBLIG) = [M:SOH4]LINREVNUM([L]OldNum)   
    [M:SOH4]LINREVDAT([M:SOH4]NBLIG) = [M:SOH4]LINREVDAT([L]OldNum)   
    [M:SOH4]SAU([M:SOH4]NBLIG) = [M:SOH4]SAU([L]OldNum) 
    [M:SOH4]QTY([M:SOH4]NBLIG) = [M:SOH4]QTY([L]OldNum) 
    [M:SOH4]SAUSTUCOE([M:SOH4]NBLIG) = [M:SOH4]SAUSTUCOE([L]OldNum)   
    [M:SOH4]ZRDVLQTY([M:SOH4]NBLIG) = [M:SOH4]ZRDVLQTY([L]OldNum)    
    [M:SOH4]STU([M:SOH4]NBLIG) = [M:SOH4]STU([L]OldNum) 
    [M:SOH4]ALLQTY([M:SOH4]NBLIG) = [M:SOH4]ALLQTY([L]OldNum)  
    [M:SOH4]SHTQTY([M:SOH4]NBLIG) = [M:SOH4]SHTQTY([L]OldNum)  
    [M:SOH4]WALLQTY([M:SOH4]NBLIG) = [M:SOH4]WALLQTY([L]OldNum) 
    [M:SOH4]DALLTYP([M:SOH4]NBLIG) = [M:SOH4]DALLTYP([L]OldNum) 
    [M:SOH4]TDLQTY([M:SOH4]NBLIG) = [M:SOH4]TDLQTY([L]OldNum)  
    [M:SOH4]GROPRI([M:SOH4]NBLIG) = [M:SOH4]GROPRI([L]OldNum)  
    [M:SOH4]DISCRGVAL1([M:SOH4]NBLIG) = [M:SOH4]DISCRGVAL1([L]OldNum)  
    [M:SOH4]DISCRGVAL2([M:SOH4]NBLIG) = [M:SOH4]DISCRGVAL2([L]OldNum)  
    [M:SOH4]DISCRGVAL3([M:SOH4]NBLIG) = [M:SOH4]DISCRGVAL3([L]OldNum)  
    [M:SOH4]DISCRGVAL4([M:SOH4]NBLIG) = [M:SOH4]DISCRGVAL4([L]OldNum)  
    [M:SOH4]DISCRGVAL5([M:SOH4]NBLIG) = [M:SOH4]DISCRGVAL5([L]OldNum)   
    [M:SOH4]NETPRI([M:SOH4]NBLIG) = [M:SOH4]NETPRI([L]OldNum)  
    [M:SOH4]CPRPRI([M:SOH4]NBLIG) = [M:SOH4]CPRPRI([L]OldNum)  
    [M:SOH4]PFM([M:SOH4]NBLIG) = [M:SOH4]PFM([L]OldNum) 
    [M:SOH4]VACITM1([M:SOH4]NBLIG) = [M:SOH4]VACITM1([L]OldNum) 
    [M:SOH4]VACITM2([M:SOH4]NBLIG) = [M:SOH4]VACITM2([L]OldNum) 
    [M:SOH4]VACITM3([M:SOH4]NBLIG) = [M:SOH4]VACITM3([L]OldNum) 
    [M:SOH4]DINVCND([M:SOH4]NBLIG) = [M:SOH4]DINVCND([L]OldNum) 
    [M:SOH4]DINVCNDISCHG([M:SOH4]NBLIG) = [M:SOH4]DINVCNDISCHG([L]OldNum)    
    [M:SOH4]DINVCNDPREV([M:SOH4]NBLIG) = [M:SOH4]DINVCNDPREV([L]OldNum) 
    [M:SOH4]DINVCNDTODEL([M:SOH4]NBLIG) = [M:SOH4]DINVCNDTODEL([L]OldNum)    
    [M:SOH4]DINVCNDTODIS([M:SOH4]NBLIG) = [M:SOH4]DINVCNDTODIS([L]OldNum)    
    [M:SOH4]DINVCNDTOUPD([M:SOH4]NBLIG) = [M:SOH4]DINVCNDTOUPD([L]OldNum)    
    [M:SOH4]DINVCNDUPDK([M:SOH4]NBLIG) = [M:SOH4]DINVCNDUPDK([L]OldNum) 
    [M:SOH4]SVICUUID([M:SOH4]NBLIG) = [M:SOH4]SVICUUID([L]OldNum)    
    [M:SOH4]DPJT([M:SOH4]NBLIG) = [M:SOH4]DPJT([L]OldNum)    
    [M:SOH4]DPREOPP([M:SOH4]NBLIG) = [M:SOH4]DPREOPP([L]OldNum) 
    [M:SOH4]REP1([M:SOH4]NBLIG) = [M:SOH4]REP1([L]OldNum)    
    [M:SOH4]REPRAT1([M:SOH4]NBLIG) = [M:SOH4]REPRAT1([L]OldNum) 
    [M:SOH4]REP2([M:SOH4]NBLIG) = [M:SOH4]REP2([L]OldNum)    
    [M:SOH4]REPRAT2([M:SOH4]NBLIG) = [M:SOH4]REPRAT2([L]OldNum) 
    [M:SOH4]REPCOE([M:SOH4]NBLIG) = [M:SOH4]REPCOE([L]OldNum)  
    [M:SOH4]DDEMDLVDAT([M:SOH4]NBLIG) = [M:SOH4]DDEMDLVDAT([L]OldNum)  
    [M:SOH4]DDAYLTI([M:SOH4]NBLIG) = [M:SOH4]DDAYLTI([L]OldNum) 
    [M:SOH4]DSHIDAT([M:SOH4]NBLIG) = [M:SOH4]DSHIDAT([L]OldNum) 
    [M:SOH4]EXTDLVDAT([M:SOH4]NBLIG) = [M:SOH4]EXTDLVDAT([L]OldNum)   
    [M:SOH4]DBPAADD([M:SOH4]NBLIG) = [M:SOH4]DBPAADD([L]OldNum) 
    [M:SOH4]CNDNAM([M:SOH4]NBLIG) = [M:SOH4]CNDNAM([L]OldNum)  
    [M:SOH4]USEPLC([M:SOH4]NBLIG) = [M:SOH4]USEPLC([L]OldNum)  
    [M:SOH4]DDLVPIO([M:SOH4]NBLIG) = [M:SOH4]DDLVPIO([L]OldNum) 
    [M:SOH4]DDRN([M:SOH4]NBLIG) = [M:SOH4]DDRN([L]OldNum)    
    [M:SOH4]DMDL([M:SOH4]NBLIG) = [M:SOH4]DMDL([L]OldNum)    
    [M:SOH4]DBPTNUM([M:SOH4]NBLIG) = [M:SOH4]DBPTNUM([L]OldNum) 
    [M:SOH4]PRECOD([M:SOH4]NBLIG) = [M:SOH4]PRECOD([L]OldNum)  
    [M:SOH4]PCK([M:SOH4]NBLIG) = [M:SOH4]PCK([L]OldNum) 
    [M:SOH4]PCKCAP([M:SOH4]NBLIG) = [M:SOH4]PCKCAP([L]OldNum)       
    [M:SOH4]CCE1([M:SOH4]NBLIG) = [M:SOH4]CCE1([L]OldNum)    
    [M:SOH4]CCE2([M:SOH4]NBLIG) = [M:SOH4]CCE2([L]OldNum)    
    [M:SOH4]CCE3([M:SOH4]NBLIG) = [M:SOH4]CCE3([L]OldNum)    
    [M:SOH4]CCE4([M:SOH4]NBLIG) = [M:SOH4]CCE4([L]OldNum)    
    [M:SOH4]CCE5([M:SOH4]NBLIG) = [M:SOH4]CCE5([L]OldNum)    
    [M:SOH4]CCE6([M:SOH4]NBLIG) = [M:SOH4]CCE6([L]OldNum)    
    [M:SOH4]CCE7([M:SOH4]NBLIG) = [M:SOH4]CCE7([L]OldNum)    
    [M:SOH4]CCE8([M:SOH4]NBLIG) = [M:SOH4]CCE8([L]OldNum)    
    [M:SOH4]CCE9([M:SOH4]NBLIG) = [M:SOH4]CCE9([L]OldNum)    
    [M:SOH4]CCE10([M:SOH4]NBLIG) = [M:SOH4]CCE10([L]OldNum)   
    [M:SOH4]CCE11([M:SOH4]NBLIG) = [M:SOH4]CCE11([L]OldNum)   
    [M:SOH4]CCE12([M:SOH4]NBLIG) = [M:SOH4]CCE12([L]OldNum)   
    [M:SOH4]CCE13([M:SOH4]NBLIG) = [M:SOH4]CCE13([L]OldNum)   
    [M:SOH4]CCE14([M:SOH4]NBLIG) = [M:SOH4]CCE14([L]OldNum)   
    [M:SOH4]CCE15([M:SOH4]NBLIG) = [M:SOH4]CCE15([L]OldNum)   
    [M:SOH4]CCE16([M:SOH4]NBLIG) = [M:SOH4]CCE16([L]OldNum)   
    [M:SOH4]CCE17([M:SOH4]NBLIG) = [M:SOH4]CCE17([L]OldNum)   
    [M:SOH4]CCE18([M:SOH4]NBLIG) = [M:SOH4]CCE18([L]OldNum)   
    [M:SOH4]CCE19([M:SOH4]NBLIG) = [M:SOH4]CCE19([L]OldNum)   
    [M:SOH4]CCE20([M:SOH4]NBLIG) = [M:SOH4]CCE20([L]OldNum)   
    [M:SOH4]DEMSTA([M:SOH4]NBLIG) = [M:SOH4]DEMSTA([L]OldNum)  
    [M:SOH4]FMI([M:SOH4]NBLIG) = [M:SOH4]FMI([L]OldNum) 
    [M:SOH4]FMINUM([M:SOH4]NBLIG) = [M:SOH4]FMINUM([L]OldNum)  
    [M:SOH4]LINORDNOT([M:SOH4]NBLIG) = [M:SOH4]LINORDNOT([L]OldNum)   
    [M:SOH4]LINORDATI([M:SOH4]NBLIG) = [M:SOH4]LINORDATI([L]OldNum)   
    [M:SOH4]LINPFM([M:SOH4]NBLIG) = [M:SOH4]LINPFM([L]OldNum)  
    [M:SOH4]DETSQHNUM([M:SOH4]NBLIG) = [M:SOH4]DETSQHNUM([L]OldNum)   
    [M:SOH4]LINTYP([M:SOH4]NBLIG) = [M:SOH4]LINTYP([L]OldNum)  
    [M:SOH4]FOCFLG([M:SOH4]NBLIG) = [M:SOH4]FOCFLG([L]OldNum)  
    [M:SOH4]ORILIN([M:SOH4]NBLIG) = [M:SOH4]ORILIN([L]OldNum)  
    [M:SOH4]SOQSTA([M:SOH4]NBLIG) = [M:SOH4]SOQSTA([L]OldNum)  
    [M:SOH4]DCCLREN([M:SOH4]NBLIG) = [M:SOH4]DCCLREN([L]OldNum) 
    [M:SOH4]DCCLDAT([M:SOH4]NBLIG) = [M:SOH4]DCCLDAT([L]OldNum) 
    [M:SOH4]UPDFLG([M:SOH4]NBLIG) = [M:SOH4]UPDFLG([L]OldNum)  
    [M:SOH4]CREFLG([M:SOH4]NBLIG) = [M:SOH4]CREFLG([L]OldNum)  
    [M:SOH4]QTYSTU([M:SOH4]NBLIG) = [M:SOH4]QTYSTU([L]OldNum)  
    [M:SOH4]ALLQTYSTU([M:SOH4]NBLIG) = [M:SOH4]ALLQTYSTU([L]OldNum)   
    [M:SOH4]WALLQTYSTU([M:SOH4]NBLIG) = [M:SOH4]WALLQTYSTU([L]OldNum)  
    [M:SOH4]DLVQTY([M:SOH4]NBLIG) = [M:SOH4]DLVQTY([L]OldNum)  
    [M:SOH4]INVQTY([M:SOH4]NBLIG) = [M:SOH4]INVQTY([L]OldNum)  
    [M:SOH4]SHTQTYSTU([M:SOH4]NBLIG) = [M:SOH4]SHTQTYSTU([L]OldNum)   
    [M:SOH4]ODLQTY([M:SOH4]NBLIG) = [M:SOH4]ODLQTY([L]OldNum)  
    [M:SOH4]LPRQTY([M:SOH4]NBLIG) = [M:SOH4]LPRQTY([L]OldNum)  
    [M:SOH4]OPRQTY([M:SOH4]NBLIG) = [M:SOH4]OPRQTY([L]OldNum)  
    [M:SOH4]PREQTY([M:SOH4]NBLIG) = [M:SOH4]PREQTY([L]OldNum)  
    [M:SOH4]PRIREN([M:SOH4]NBLIG) = [M:SOH4]PRIREN([L]OldNum)  
    [M:SOH4]DISCRGREN1([M:SOH4]NBLIG) = [M:SOH4]DISCRGREN1([L]OldNum)  
    [M:SOH4]DISCRGREN2([M:SOH4]NBLIG) = [M:SOH4]DISCRGREN2([L]OldNum)  
    [M:SOH4]DISCRGREN3([M:SOH4]NBLIG) = [M:SOH4]DISCRGREN3([L]OldNum)  
    [M:SOH4]DISCRGREN4([M:SOH4]NBLIG) = [M:SOH4]DISCRGREN4([L]OldNum)  
    [M:SOH4]DISCRGREN5([M:SOH4]NBLIG) = [M:SOH4]DISCRGREN5([L]OldNum)   
    [M:SOH4]VAT1([M:SOH4]NBLIG) = [M:SOH4]VAT1([L]OldNum)    
    [M:SOH4]VAT2([M:SOH4]NBLIG) = [M:SOH4]VAT2([L]OldNum)    
    [M:SOH4]VAT3([M:SOH4]NBLIG) = [M:SOH4]VAT3([L]OldNum)    
    [M:SOH4]CLCAMT1([M:SOH4]NBLIG) = [M:SOH4]CLCAMT1([L]OldNum) 
    [M:SOH4]CLCAMT2([M:SOH4]NBLIG) = [M:SOH4]CLCAMT2([L]OldNum) 
    [M:SOH4]LINDLRNOT([M:SOH4]NBLIG) = [M:SOH4]LINDLRNOT([L]OldNum)   
    [M:SOH4]LINDLRATI([M:SOH4]NBLIG) = [M:SOH4]LINDLRATI([L]OldNum)   
    [M:SOH4]LININRSCHNOT([M:SOH4]NBLIG) = [M:SOH4]LININRSCHNOT([L]OldNum)    
    [M:SOH4]LININRSCHATI([M:SOH4]NBLIG) = [M:SOH4]LININRSCHATI([L]OldNum)    
    [M:SOH4]YQTY([M:SOH4]NBLIG) = [M:SOH4]YQTY([L]OldNum)    
    [M:SOH4]YALLQTY([M:SOH4]NBLIG) = [M:SOH4]YALLQTY([L]OldNum) 
    [M:SOH4]YSHTQTY([M:SOH4]NBLIG) = [M:SOH4]YSHTQTY([L]OldNum) 
    [M:SOH4]TALLQTYSTU([M:SOH4]NBLIG) = [M:SOH4]TALLQTYSTU([L]OldNum)  
    [M:SOH4]TALLQTY([M:SOH4]NBLIG) = [M:SOH4]TALLQTY([L]OldNum) 
    [M:SOH4]YSOQSTA([M:SOH4]NBLIG) = [M:SOH4]YSOQSTA([L]OldNum) 
    [M:SOH4]STOMGTCOD([M:SOH4]NBLIG) = [M:SOH4]STOMGTCOD([L]OldNum)   
    [M:SOH4]TSICOD1([M:SOH4]NBLIG) = [M:SOH4]TSICOD1([L]OldNum) 
    [M:SOH4]TSICOD2([M:SOH4]NBLIG) = [M:SOH4]TSICOD2([L]OldNum) 
    [M:SOH4]TSICOD3([M:SOH4]NBLIG) = [M:SOH4]TSICOD3([L]OldNum) 
    [M:SOH4]TSICOD4([M:SOH4]NBLIG) = [M:SOH4]TSICOD4([L]OldNum) 
    [M:SOH4]LOT([M:SOH4]NBLIG) = [M:SOH4]LOT([L]OldNum) 
    [M:SOH4]LOC([M:SOH4]NBLIG) = [M:SOH4]LOC([L]OldNum) 
    [M:SOH4]STA([M:SOH4]NBLIG) = [M:SOH4]STA([L]OldNum) 
    [M:SOH4]GRPFLG([M:SOH4]NBLIG) = [M:SOH4]GRPFLG([L]OldNum)  
    [M:SOH4]SQDLIN([M:SOH4]NBLIG) = [M:SOH4]SQDLIN([L]OldNum)  
    [M:SOH4]NETPRINOT([M:SOH4]NBLIG) = [M:SOH4]NETPRINOT([L]OldNum)   
    [M:SOH4]NETPRIATI([M:SOH4]NBLIG) = [M:SOH4]NETPRIATI([L]OldNum)   
    [M:SOH4]SOQTEX([M:SOH4]NBLIG) = [M:SOH4]SOQTEX([L]OldNum)  
    [M:SOH4]ANCSOQTEX([M:SOH4]NBLIG) = [M:SOH4]ANCSOQTEX([L]OldNum)   
    [M:SOH4]ITMREFBPC([M:SOH4]NBLIG) = [M:SOH4]ITMREFBPC([L]OldNum)   
    [M:SOH4]INVFLG([M:SOH4]NBLIG) = [M:SOH4]INVFLG([L]OldNum)
    [M:SOH4]YDSHIDAT([M:SOH4]NBLIG) = [M:SOH4]YDSHIDAT([L]OldNum)    
    [M:SOH4]WIPFLG([M:SOH4]NBLIG) = [M:SOH4]WIPFLG([L]OldNum)  
    [M:SOH4]OCNPRNBOM([M:SOH4]NBLIG) = [M:SOH4]OCNPRNBOM([L]OldNum)   
    [M:SOH4]NDEPRNBOM([M:SOH4]NBLIG) = [M:SOH4]NDEPRNBOM([L]OldNum)   
    [M:SOH4]INVPRNBOM([M:SOH4]NBLIG) = [M:SOH4]INVPRNBOM([L]OldNum)   
    [M:SOH4]CQTY([M:SOH4]NBLIG) = [M:SOH4]CQTY([L]OldNum)    
    [M:SOH4]IMPNUMLIG([M:SOH4]NBLIG) = [M:SOH4]IMPNUMLIG([L]OldNum)   
    [M:SOH4]CONNUM([M:SOH4]NBLIG) = [M:SOH4]CONNUM([L]OldNum)  
    [M:SOH4]TDLQTYSTU([M:SOH4]NBLIG) = [M:SOH4]TDLQTYSTU([L]OldNum)   
    [M:SOH4]DACSAUCOE([M:SOH4]NBLIG) = [M:SOH4]DACSAUCOE([L]OldNum) 
    [M:SOH4]POPLIN([M:SOH4]NBLIG) = [M:SOH4]POPLIN([L]OldNum)  
    [M:SOH4]RERBPCFLG([M:SOH4]NBLIG) = [M:SOH4]RERBPCFLG([L]OldNum) 
    [M:SOH4]DLBQTYSTU([M:SOH4]NBLIG) = [M:SOH4]DLBQTYSTU([L]OldNum)    
 
    [M:SOH4]DSPLINFLG([M:SOH4]NBLIG) = [M:SOH4]DSPLINFLG([L]OldNum)   
    [M:SOH4]DSPLINWEI([M:SOH4]NBLIG) = [M:SOH4]DSPLINWEI([L]OldNum)   
    [M:SOH4]DSPLINVOL([M:SOH4]NBLIG) = [M:SOH4]DSPLINVOL([L]OldNum)    
 
    [M:SOH4]PTOCOD([M:SOH4]NBLIG) = [M:SOH4]PTOCOD([L]OldNum)  
    [M:SOH4]CTMFLG([M:SOH4]NBLIG) = [M:SOH4]CTMFLG([L]OldNum)  
    [M:SOH4]YSTOMGTCOD([M:SOH4]NBLIG) = [M:SOH4]YSTOMGTCOD([L]OldNum)  
    [M:SOH4]FOCNUMLIG([M:SOH4]NBLIG) = [M:SOH4]FOCNUMLIG([L]OldNum)   
    [M:SOH4]WUPDAPPFLG([M:SOH4]NBLIG) = [M:SOH4]WUPDAPPFLG([L]OldNum)  
    [M:SOH4]DLVFLG([M:SOH4]NBLIG) = [M:SOH4]DLVFLG([L]OldNum)  
    [M:SOH4]SOQPSONUM([M:SOH4]NBLIG) = [M:SOH4]SOQPSONUM([L]OldNum)   
 
    [M:SOH4]NBLIG += 1
    Affzo [M:SOH4]

La ligne disparaît lors de l'enregistrement

**tibam13** · 11/05/2020, 15h28

vous ne mettez pas à jour SOPSEQ ?

avez vous essayé, juste après duplication de la ligne de repasser dans les champs puis de faire entrer pour valider manuellement la ligne avant d’enregistrer ? si déjà cette étape ne fonctionne pas inutile d'aller plus loin

**piotr.n** · 12/05/2020, 06h43

Bonjour,

La duplication d'une ligne de vente est une opération délicate.
Copier les champs visibles un à un ne peut pas fonctionner à long terme.
Les commandes de vente fonctionnent par des transactions de saisie, des champs peuvent être ajoutés ou enlevés, des champs peuvent être désactivés ou activés par un code d'activité après un patch, etc.

Voici le code pour dupliquer une ligne de commande de vente via un bouton spécifique ajouté (n°9)
Cela fonctionne chez un client en V6, pour la V11 il faudra l'adapter sûrement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Subprog B9_NBLIG
    Local Integer OUV_ZAMZ
    Local Integer STAT, I, NOL : NOL = nolign
    Local Char SECTION(250)
 
    COUZON = [M:SOH4]ITMREF(NOL-1)
    ACTION = "APRES_MODIF"
    Gosub $ACTION From SUBSOH
 
    Insa NOL,1,[M:SOH4]NBLIG [M:SOH4]NBLIG
    [M:SOH4]NBLIG += 1
    nolign += 1
 
    #compteur ligne
    Call LINNUM("SOPLIN") From TABLEAUX
 
    #duplication en parcourant les champs actifs de la transaction 
    If clalev([F:ZAMZ]) <= 0 : Local File AMSKZON [ZAMZ] : OUV_ZAMZ=2 : Endif
    Filter [F:ZAMZ] Where CODMSK="WK2"+GFLAG+"4" & CODZON<>"NBLIG" & CODZON<>"NUMLIG" & CODZON<>"SOPLIN" & NUMBLOC=1
    For [F:ZAMZ]
        If [F:ZAMZ]CODACT="" | ([F:ZAMZ]CODACT<>"" & func AFNC.ACTIV([F:ZAMZ]CODACT)>0)
            If evalue("dim([M:SOH4]"+[F:ZAMZ]CODZON+"(NOL))>0")
                Assign ( "[M:SOH4]"+[F:ZAMZ]CODZON+"(NOL)" ) With evalue( "[M:SOH4]"+[F:ZAMZ]CODZON+"(NOL-1)" )
            Endif
        Endif
    Next
    Filter [F:ZAMZ]
    If OUV_ZAMZ=2 and clalev([F:ZAMZ])>= 1 : Close File [ZAMZ] : OUV_ZAMZ=0 : Endif
 
    #duplication des axes analytiques
    For I = 1 To GOPTCANA
        If evalue("dim([M]CCE"+num$(I)+"(NOL))") >0
            Call INISEC(SECTION, "SOP", num$(I)) From SUBCDE
            Assign "[M]CCE"+num$(I)+"(NOL)" With SECTION
        Endif
    Next
 
    [M]GRPFLG(NOL) = 1
    [M]FOCFLG(NOL) = 1
 
    #correction d'un bug sur les désignations
    If !clalev([F:ITS]) : Local File ITMSALES [ITS] : Endif
    Read [F:ITS]ITS0=[M]ITMREF(NOL)
    Call INIT_ITM(NOL, [M]ITMREF(NOL)) From SUBSOHB
 
    #ligne initialisée au statut planifié
    [M]DEMSTA(NOL) = 2
 
    #initialisation des flags
    [M]CREFLG(NOL) = 0
    [M]UPDFLG(NOL) = 1
    [M]ALLQTY(NOL) = 0     
    [M]ALLQTYSTU(NOL) = 0
    [M]WALLQTY(NOL) = 0
    [M]WALLQTYSTU(NOL) = 0 
 
    Call APRES_LIGNE (NOL, 0) From SUBSOHB
 
    Affzo [M:SOH4]
    mkstat = 4 #on passe en modification d'enregistrement
End

Voilà,
En cas de besoin, vous pouvez me contacter par MP

Cdlt,
Piotr

**SimFaridas** · 12/05/2020, 10h53

Alors là un énorme merci !!!!!

Je l'ai modifié pour que l'article dupliqué se mette à la fin du tableau.
Et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call LINNUM("SOPLIN") From TABLEAUX

ne modifie pas SOPLIN donc je le fait manuellement dans la boucle des Assignations

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
$DUPLIQUE_LIGNE      
    Local Integer STAT, I, NOL 
    If !clalev([F:ZAMZ]) : Local File AMSKZON [ZAMZ] : Endif
    Filter [F:ZAMZ]
    Filter [F:ZAMZ] Where CODMSK="WK2ALL4" & CODZON<>"NBLIG" & NUMBLOC=1
 
    NOL = [L]LigneCourante
    Local Char SECTION(250)
 
    COUZON = [M:SOH4]ITMREF(NOL-1)
    #COUZON = [L]NewArticle
    ACTION = "APRES_MODIF"
    Gosub $ACTION From SUBSOH
 
    #Insa [M:SOH4]NBLIG,1,[M:SOH4]NBLIG [M:SOH4]NBLIG    
    [M:SOH4]NBLIG += 1
 
    #duplication en parcourant les champs actifs de la transaction 
    Gosub ASSIGN_VALUE
 
    #duplication des axes analytiques
    For I = 1 To GOPTCANA
        If evalue("dim([M]CCE"+num$(I)+"([M:SOH4]NBLIG-1))") >0
            Call INISEC(SECTION, "SOP", num$(I)) From SUBCDE
            Assign "[M]CCE"+num$(I)+"([M:SOH4]NBLIG-1)" With SECTION
        Endif
    Next
 
    [M]GRPFLG([M:SOH4]NBLIG-1) = 1
    [M]FOCFLG([M:SOH4]NBLIG-1) = 1
 
    #correction d'un bug sur les désignations
    If !clalev([F:ITS]) : Local File ITMSALES [ITS] : Endif
    Read [F:ITS]ITS0=[M]ITMREF([M:SOH4]NBLIG - 1)
    Call INIT_ITM([M:SOH4]NBLIG - 1, [M]ITMREF([M:SOH4]NBLIG - 1)) From SUBSOHB
 
    #ligne initialisée au statut planifié
    [M]DEMSTA([M:SOH4]NBLIG - 1) = 2
 
    #initialisation des flags
    [M]CREFLG([M:SOH4]NBLIG - 1) = 0
    [M]UPDFLG([M:SOH4]NBLIG - 1) = 1
    [M]ALLQTY([M:SOH4]NBLIG - 1) = 0     
    [M]ALLQTYSTU([M:SOH4]NBLIG - 1) = 0
    [M]WALLQTY([M:SOH4]NBLIG - 1) = 0
    [M]WALLQTYSTU([M:SOH4]NBLIG - 1) = 0 
 
    Call APRES_LIGNE ([M:SOH4]NBLIG - 1, 0) From SUBSOHB
 
    Affzo [M:SOH4]
    mkstat = 4 #on passe en modification d'enregistrement
 
Return 
 
$ASSIGN_VALUE   
    For [F:ZAMZ]
        If [F:ZAMZ]CODACT="" | ([F:ZAMZ]CODACT<>"" & func AFNC.ACTIV([F:ZAMZ]CODACT)>0)
            If evalue("dim([M:SOH4]"+[F:ZAMZ]CODZON+"([M:SOH4]NBLIG-1))>0")
                If [F:ZAMZ]CODZON = "ITMREF" 
                    Assign ( "[M:SOH4]ITMREF([M:SOH4]NBLIG-1)" ) With evalue( "[L]NewArticle" )
                Else
                    If [F:ZAMZ]CODZON = "NUMLIG" | [F:ZAMZ]CODZON = "SOPLIN"
                        Assign ( "[M:SOH4]"+[F:ZAMZ]CODZON+"([M:SOH4]NBLIG-1)" ) With evalue( num$([M:SOH4]NBLIG  * 1000) )
                    Else
                        Assign ( "[M:SOH4]"+[F:ZAMZ]CODZON+"([M:SOH4]NBLIG-1)" ) With evalue( "[M:SOH4]"+[F:ZAMZ]CODZON+"(NOL-1)" )
                    Endif                    
                Endif                                               
            Endif
 
        Endif
    Next
Return

En tout maintenant ça fonctionne !!

Enregistrement ligne Commande Vente [X3-V11]

SAGE

Discussions similaires

Partager

Partager