CEC 2012 Vienna Forum Francophone Power IBM i ( et AS/400, iSeries, System i, ... )
Forum Francophone Power IBM i ( et AS/400, iSeries, System i,  ... )   Forum Francophone Power IBM i ( et AS/400, iSeries, System i,  ... )   Forum Francophone Power IBM i ( et AS/400, iSeries, System i,  ... )   Forum Francophone Power IBM i ( et AS/400, iSeries, System i,  ... )
18 Mai,2012, 22:09:19 *
Bienvenue, Invité. Veuillez vous connecter ou vous inscrire.
Avez-vous perdu votre courriel d'activation?

Connexion avec identifiant, mot de passe et durée de la session
Nouvelles:
 
   Accueil   Aide Règles Rechercher Partenaires Identifiez-vous Inscrivez-vous Liens Common France Common Belgique Common Luxembourg  
Pages: [1]   Bas de page
  Imprimer  
Auteur Fil de discussion: Pbl dans la création d'une grille écran  (Lu 665 fois) Average Rating: 0
0 Membres et 1 Invité sur ce fil de discussion.
scorpion
Membre Senior
****
Hors ligne Hors ligne

Messages: 211


OS:
Windows XP Windows XP
Navigateur:
Firefox 3.6.14 Firefox 3.6.14


Voir le profil
« le: 07 Mars,2011, 12:08:17 »

Bjr

Je souhaiterai faire cette grille d’écran

|                                                                                                          
|                                  TITRE de L’écran sur 39 Caract                                                                    
|                                                                                                          
|                                                       Titre Col1 sur 6 Caract             Titre Col2 sur 6 Caract                      
|                                                                                                          
|     NOMFICXX1 Ligne sur 27 Caract              XXXXXX                              123456                              
|                                                                                                          
|     NOMFICXX2 Ligne sur 27 Caract              XXXXXX                              123456                              
|                                                                                                          
|     NOMFICXX3    Ligne sur 26 Caract            XXXXXX                              123456                                        
|                                                                                                          
|                                    F3/F12   Cancel                                                                                  

La saisie de Col1 et Col2 doit être utiliser dans un CLP à partir de variable

J’ai fait ce code mais je n’ai aucun résultat


     A                                      DSPSIZ(24 80 *DS3)                                
     A          R REC00                                                                        
     A                                      ASSUME                                            
     A                                      KEEP                                              
     A                                      OVERLAY                                            
     A                                      PUTOVR                                            
     A                                  1 14' '                                                
     A                                      OVRATR                                            
     A          R REC01                                                                        
     A                                      CF03(03)                                          
     A                                      CF12(12)                                          
     A                                      WINDOW(&LINE &COL 9 49 *NOMSGLIN +                
     A                                      *NORSTCSR)                                        
     A                                      ALWGPH                                            
     A                                      WDWTITLE((*TEXT &TITRE1) *CENTER)                  
     A            LINE           3S 0P                                                        
     A            COL            3S 0P                                                        
     A            TITRE1        35A  P                                                        
     A                                  3  2'Text1 xxxxxxxxxxxxx'                      
     A            NOMFICXX1       6A  B  3 38                                
     A                                  5  2' Text2 xxxxxxxxxxxxx'                      
     A            SEALN          7  0B  4 22DSPATR(ND)                      
     A                                  7  2' Text3 xxxxxxxxxxxxx'                      
     A            SEALN2         7  0B  6 22DSPATR(ND)                      
     A                                  9 19' F3/F12 CANCEL'                
     A                                      COLOR(BLU)                      
     A                                  2 29'LIB'                          
     A                                      COLOR(WHT)                      
     A                                  2 40'NOM'                          
     A                                      COLOR(WHT)                      
     A            NUMFICXX1       6A  B  3 25                                
     A            NUMFICXX2       6A  B  5 25                                
     A            NUMFICXX3      6A  B  7 25                                
     A            NUMFICXX4      6A  B  5 38                                
     A            NUMFICXX5      6A  B  7 38                                
     A            NUMFICXX6      6A  B  9 38
Journalisée
GAPIII
Membre Senior
****
Hors ligne Hors ligne

Messages: 160


OS:
Windows 2000 Windows 2000
Navigateur:
Firefox 3.6.14 Firefox 3.6.14


Voir le profil
« Répondre #1 le: 07 Mars,2011, 12:29:40 »

Même question que sur l'autre forum. Qu'appelle-tu aucun résultat ?
Journalisée
scorpion
Membre Senior
****
Hors ligne Hors ligne

Messages: 211


OS:
Windows XP Windows XP
Navigateur:
Firefox 3.6.14 Firefox 3.6.14


Voir le profil
« Répondre #2 le: 07 Mars,2011, 12:36:03 »

Je viens de te répondre

Merci Gap
Journalisée
GAPIII
Membre Senior
****
Hors ligne Hors ligne

Messages: 160


OS:
Windows 2000 Windows 2000
Navigateur:
Firefox 3.6.14 Firefox 3.6.14


Voir le profil
« Répondre #3 le: 07 Mars,2011, 12:52:34 »

Citation
Slt Gap

5) Qu'appelle-tu n'avoir aucun résultat ? ---> la grille ne s'affiche plus à l'écran

J'ai repris l'exemple de max qui fonctionné parfaitement mais maintenant la grille de l'écran ne s'affiche plus non plus

Si le positionnement est fixe, je ne vois pas pourquoi utiliser un positionnement par variables.---> Je ne vois pas ce que tu veux dire?

3) A quoi servent les zones cachées SEALN et SEALN2 ? ---> je pensais que SEALN et SEALN2 était obligatoire ça sert à quoi alors?

4) Les zones ont une longueur de 6. C'est normal ?  ---> Oui je veux des champs à 6 caractères

Dans ta définition de fenêtre, tu utilises WINDOW(&LINE &COL 9 49 ...)
Cela signifie que tu positionne ta fenêtre en fonction des variables &LIN et &COL. C'est d'ailleurs peut-être ton problème. Si ton CLP ne fait pas de CHGVAR &LIN avec une valeur correcte (pareil pour &COL) AVANT de faire ton SNDRCVF, le programme essaie d'afficher la fenêtre en ligne 0, colonne 0, ce qu'il ne réussit pas à faire.
Nb: Pour info, la ligne 1 / colonne 1 ne marchera pas non plus.
Si tu dois toujours afficher ta fenêtre au même endroit, il est inutile de déclarer un positionnement par variable.
Il suffit d'utiliser WINDOW(4 5 9 50 ...) pour avoir une fenêtre qui commence ligne 4, colonne 5, et qui fait 9 lignes de haut et 50 colonnes de large.

Tu peux aussi utiliser WINDOW(*DFT 9 50 ...) pour positionner ta fenêtre près de l'endroit où le curseur se trouvait lors de l'affichage de la fenêtre
Journalisée
scorpion
Membre Senior
****
Hors ligne Hors ligne

Messages: 211


OS:
Windows XP Windows XP
Navigateur:
Firefox 3.6.15 Firefox 3.6.15


Voir le profil
« Répondre #4 le: 21 Mars,2011, 15:50:06 »

Slt Gap

J'aurais besoin d'ajouter un point de contrôle dans la grille mais je ne sais pas comment faire pourrais tu m'aider Stp

Le point de contrôle doit ce faire sur la saisie des champs par exemple :

La grille:


                             Titre de la Grille

Saisie du champ1      ___   ___

Saisie du Champ2       ___   ___

Saisie du Champ3       ___   ___

                       F3/F12 Cancel




Il me faudrait tester chaque champs (un champ et = à la saisie de l'un des 2 params) si un des champs n'est pas saisie il me faut un message qui demande à l'utilisateur de confirmer ça saisie par oui ou non

Si l'utilisateur à répondu  ""NON""  alors il doit retrouver la grille avec la saisie initiale et pouvoir modifier les champs de sont choix

Si l'utilisateur répond  ""OUI""   alors on sort de la grille et on lance le traitement voulu

L'utilisateur doit avoir la possibilité de saisir soit la totalité des champs (Champ1 2 et 3)  ou une partie par contre il est obligé de saisir au moins un champ avec ces 2 paramètres (soit le champ1 ou 2 ou 3)
 
Le code de ma grille:

Code:
     A                                      DSPSIZ(24 80 *DS3)                               
     A          R REC00                                                                       
     A                                      ASSUME                                           
     A                                      KEEP                                             
     A                                      OVERLAY                                           
     A                                      PUTOVR                                           
     A                                  1 14' '                                               
     A                                      OVRATR                                           
     A          R REC01                                                                       
     A                                      CF03(03)                                         
     A                                      CF12(12)                                         
     A                                      WINDOW(&LINE &COL  9 70 *NOMSGLIN +               
     A                                      *NORSTCSR)                                       
     A                                      ALWGPH                                           
     A                                      WDWTITLE((*TEXT &TITRE1) *CENTER)                 
     A            LINE           3S 0P                                                       
     A            COL            3S 0P                                                       
     A            TITRE1        50A  P                                                       
     A                                  3  2'xxxxxxxxxxxxxxxxxxxxxxxxx'                           
     A                                  5  2'xxxxxxxxxxxxxxxxxxxxxx'           
     A                                  7  2'xxxxxxxxxxxxxxxxxxxxxxx'           
     A                                  9 19' F3/F12 CANCEL'                 
     A                                      COLOR(BLU)                       
     A                                  2 30'Num CLT1'                   
     A                                      COLOR(WHT)                       
     A                                  2 50'Num CLT2'                   
     A                                      COLOR(WHT)                       
     A            NUMCLT44        2A  B  3 34                                 
     A            NUMCLT45        2A  B  5 34                                 
     A            NUMCLT34        2A  B  7 34                                 
     A            NUMCLT24        2A  B  3 54                                 
     A            NUMCLT25        2A  B  5 54                                 
     A            NUMCLT35        2A  B  7 54               
                 



J'espère avoir été assez clair sur mon besoin

As-tu une idée sur la mise en place de ce contrôle

Merci d'avance 
« Dernière édition: 21 Mars,2011, 16:06:28 par scorpion » Journalisée
GAPIII
Membre Senior
****
Hors ligne Hors ligne

Messages: 160


OS:
Windows 2000 Windows 2000
Navigateur:
Firefox 3.6.15 Firefox 3.6.15


Voir le profil
« Répondre #5 le: 21 Mars,2011, 17:22:58 »

Plutôt que répondre par : Y a qu'à tester et réafficher si ça va pas, je t'ai fait le prog.
A toi de comprendre ce que j'ai fait, et d'adapter si besoin ! 

Source de l'écran :
Code:
     A                                      DSPSIZ(24 80 *DS3)         
     A          R REC00                                               
     A                                      ASSUME                     
     A                                      KEEP                       
     A                                      OVERLAY                   
     A                                      PUTOVR                     
     A                                  1 14' '                       
     A          R REC01                                               
     A                                      WINDOW(5 4 9 70 *NOMSGLIN *NORSTCSR)     
     A                                      WDWTITLE((*TEXT &TITRE1) *CENTER)
     A                                      CF03(03)                   
     A                                      CF12(12)                   
     A            TITRE1        35A  P                                 
     A                                  2 30'NUM CLT 1'               
     A                                      COLOR(WHT)                 
     A                                  2 50'NUM CLT 2'               
     A                                      COLOR(WHT)                 
     A                                  3  2'AS/400 PROD  '           
     A            NUMCLT44       2A  B  3 34                           
     A            NUMCLT24       2A  B  3 54                           
     A                                  5  2'AS/400 ETUD  '             
     A            NUMCLT45       2A  B  5 34                           
     A            NUMCLT25       2A  B  5 54                           
     A                                  7  2'AS/400 QUAL  '             
     A            NUMCLT34       2A  B  7 34                           
     A            NUMCLT35       2A  B  7 54                           
     A                                  9 19' F3/F12 Cancel'           
     A                                      COLOR(BLU)                 
     A          R REC02                                                 
     A                                      WINDOW(14 4 4 70 +         
     A                                            *NOMSGLIN *NORSTCSR) 
     A                                      WDWTITLE((*TEXT &TITRE2) *CENTER)
     A                                      CF03(03)                   
     A                                      CF12(12)                   
     A            TITRE2        35A  P                                 
     A                                  2 21'CONFIRMEZ PAR OUI OU NON :'
     A            CONFIRM        3   B    +1                           
     A                                  4 19' F3/F12 Cancel'           
     A                                      COLOR(BLU)                 
     A          R REC03                                                 
     A                                      WINDOW(14 4 4 70 +         
     A                                            *NOMSGLIN *NORSTCSR)
     A                                      WDWTITLE((*TEXT &TITRE3) *CENTER)
     A                                      CF03(03)                   
     A                                      CF12(12)                   
     A            TITRE3        35A  P                                 
     A                                  2 19'AU MOINS UN CHAMP DOIT ETRE SAISI -
     A                                      EN ENTIER'                 
     A                                  4 19' F3/F12 Cancel'           
     A                                      COLOR(BLU)                 
     A                                    +3' ENTREE Retour'           
     A                                      COLOR(BLU)                 
Source du CLP :
Code:
PGM                                                                 
                                                                     
DCLF    TESTANZ                                                     
                                                                     
CHGVAR  &TITRE1 'ANALYSE DES FICHIERS'                               
CHGVAR  &TITRE2 'CONFIRMATION DE LA SAISIE'                         
CHGVAR  &TITRE3 'ERREUR LORS DE LA SAISIE'                           
/* BOUCLE DE LECTURE */                                             
BCLE1:                                                               
/* AFFICHAGE */                                                     
SNDRCVF *FILE REC01                                                 
MONMSG  CPF0000 *N RETURN                                           
IF      &IN03      RETURN                                           
IF      &IN12      RETURN                                           
/* SI AUCUNE SAISIE, ON RETOURNE A L'ECRAN */                       
IF      ((&NUMCLT44 *EQ ' ' *AND &NUMCLT24 *EQ ' ') *AND +           
         (&NUMCLT45 *EQ ' ' *AND &NUMCLT25 *EQ ' ') *AND +           
         (&NUMCLT34 *EQ ' ' *AND &NUMCLT35 *EQ ' ')) THEN(GOTO BCLE1)
/* UN DES CHAMPS DOIT ETRE SAISI EN ENTIER */                       
IF      ((&NUMCLT44 *EQ ' ' *OR &NUMCLT24 *EQ ' ') *AND +           
         (&NUMCLT45 *EQ ' ' *OR &NUMCLT25 *EQ ' ') *AND +             
         (&NUMCLT34 *EQ ' ' *OR &NUMCLT35 *EQ ' ')) THEN(GOTO BCLE3)   
/* SI 3 SAISIES, ON NE DEMANDE PAS CONFIRMATION */                     
IF      ((&NUMCLT44 *NE ' ' *OR &NUMCLT24 *NE ' ') *AND +             
         (&NUMCLT45 *NE ' ' *OR &NUMCLT25 *NE ' ') *AND +             
         (&NUMCLT34 *NE ' ' *OR &NUMCLT35 *NE ' ')) THEN(GOTO TRAITER)
                                                                       
/* BOUCLE DE LECTURE */                                               
BCLE2:                                                                 
/* AFFICHAGE */                                                       
SNDRCVF *FILE REC02                                                   
MONMSG  CPF0000 *N RETURN                                             
IF      &IN03      RETURN                                             
IF      &IN12      GOTO BCLE1                                         
IF      (&CONFIRM *EQ 'NON') GOTO BCLE1                               
IF      (&CONFIRM *NE 'OUI') GOTO BCLE2                               
                                                                       
/* BOUCLE DE LECTURE */                                               
BCLE3:                                                                 
/* AFFICHAGE */                                                       
SNDRCVF *FILE REC03                                                   
MONMSG  CPF0000 *N RETURN           
IF      &IN03      RETURN           
GOTO    BCLE1                       
                                     
/* SAISIE OK : ON PEUT CONTINUER */ 
                                     
TRAITER:                             
                                     
/* METTRE LE TRAITEMENT ICI */       
                                     
ENDPGM                               
Journalisée
scorpion
Membre Senior
****
Hors ligne Hors ligne

Messages: 211


OS:
Windows XP Windows XP
Navigateur:
Firefox 3.6.15 Firefox 3.6.15


Voir le profil
« Répondre #6 le: 21 Mars,2011, 17:29:04 »

Merci Gap je vais regarder ça de suite

A+
Journalisée
scorpion
Membre Senior
****
Hors ligne Hors ligne

Messages: 211


OS:
Windows XP Windows XP
Navigateur:
Firefox 3.6.16 Firefox 3.6.16


Voir le profil
« Répondre #7 le: 23 Mars,2011, 16:07:54 »

Slt Gap

Après étude de ton prog je l'ai adapté et au final je peux te dire que ca fonctionne finement

C'est vrai que ce prog est relativement simple mais quand ta aucune base c'est pas évident donc à partir de cette base je vais pouvoir essayer de développer d'autre écran suivant mon besoin

Encore merci beaucoup 
Journalisée
Pages: [1]   Haut de page
  Imprimer  
 
Aller à:  


Propulsé par MySQL Propulsé par PHP Common France © 2008, 2009  
AS/400, AS400, iSeries, i5, Power i sont des marques déposées d'International Business Machines Corp.

Powered by SMF 1.1.16 | SMF © 2006-2008, Simple Machines
SMFAds for Free Forums
SMF customization services by 2by2host.com
XHTML 1.0 Transitionnel valide ! CSS valide !
SimplePortal 2.1.1