Discussion :

[lessoy]

Bonjour J'ai une TABLE YVEHICULE (BPTNUM,YMAT) qui devrait me permettre de créer tous les vehicules et les lier à leur transporteur dès la création. J'ai fait une répresentation pour l'ajout et ça fonctionne bien.

je voudrai faire plus professionnel et ajouter un ecran Vehicule sur le fenêtre OBPT (Transporteur).

Mon soucis est que quand j'ouvre la fenêtre les données sont vides (aucunes données affichées dans le Tableau).

[x3erp]

Il te faut gérer l'affichage en entête-tableau.
Essaies de lire ça:
http://online-help.sageerpx3.com/erp...d_tableaux.htm

[PrinceCorwin]

Bonjour,

Il faut créer ton écran, l'ajouter à la liste des onglets de la fenêtre et ajouter du spécifique pour le chargement , modification, suppression et autre...
exemple : pour le coup la table est tellement longue que j'affiche sur deux onglets..

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
# Gestion Onglets supplémentaires
######################################################################################
$ACTION
    Case ACTION
        When "OUVRE"     : Gosub OUVRE
        When "LIENS"     : Gosub LIENS
        When "CREATION"  : Gosub CREATION
        When "MODIF"     : Gosub MODIF
        When "ANNULE"    : Gosub ANNULE
        When "SETBOUT"
    Endcase
Return
 
######################################################################################
$OUVRE
    If clalev([F:ZBM]) : Close Local File [ZBM] : Endif
    Local File ZBMGDATA        [ZBM]
 
    GPE =1
Return
 
$LIENS
    Gosub ACTION From SUBITM
 
    Read [ZBM]ZBM0 = [M:ITM0]ITMREF
    If fstat : Raz [F:ZBM] : Endif
    [M:ZBM0]                = [F:ZBM]
    [M:ZBM1]                = [F:ZBM]
    If !GIMPORT : Affzo [M:ZBM0] : Endif
    If !GIMPORT : Affzo [M:ZBM1] : Endif
 
    GPE=1
Return
 
$CREATION
    Raz [F:ZBM]
    [F:ZBM]       = [M:ZBM0]
    [F:ZBM]       = [M:ZBM1]
    [F:ZBM]ITMREF = [M:ITM0]ITMREF
    Write [ZBM]
    If fstat : GOK=0 : Call FSTA("ZBM") From GLOCK : Endif
 
Return
 
$MODIF
    Read [ZBM]ZBM0 = [M:ITM0]ITMREF
    If fstat=0
        [F:ZBM]       = [M:ZBM0]
        [F:ZBM]       = [M:ZBM1]
        Rewrite [ZBM]
        If fstat : GOK=0 : Call FSTA("ZBM") From GLOCK : Endif
    Else
        Raz [F:ZBM]
        [F:ZBM]       = [M:ZBM0]
        [F:ZBM]       = [M:ZBM1]
        [F:ZBM]ITMREF = [M:ITM0]ITMREF
        Write [ZBM]
        If fstat : GOK=0 : Call FSTA("ZBM") From GLOCK : Endif
    Endif
 
Return
 
$ANNULE
    If clalev([F:ZBM])=0 : Local File ZBMGDATA [ZBM] : Endif
    Delete [F:ZBM] Where [F:ZBM]ITMREF=[M:ITM0]ITMREF
    If fstat : GOK=0 : Call FSTA("ZBM") From GLOCK : Endif
 
Return

Voile, en espérant que cela puisse t'aider.
Bon dev'