| Novembre 2024 | | Lun | Mar | Mer | Jeu | Ven | Sam | Dim |
|---|
| | | | | 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 | |  Calendrier |
|
|
| | Erreur avec Adresse |  |
| | | Auteur | Message |
|---|
lepetitmarocain
Nombre de messages : 341
Age : 82
Localisation : Région Parisienne (à mon grand désespoir)
Date d'inscription : 04/07/2018
| | Sujet: Erreur avec Adresse Lun 8 Juil 2024 - 14:00 | |
| Bonjour à tous.
J' ai un programme avec un grid, et le programme se plante lorsque je me sert de la molette de la souris.
vous allez me dire qu'il y a un asenceur fait pour cela, mais un autre programme qui a juste le grid fonctionne parfaitement
Ce problème vous est il déjà arrivé?
Je ne donne pas beaucoup d'explications ni d'exemple, car il y a beaucoup de fichier pour arriver a l'affichage du grid.
Merci pour vos réponses.
Bonne après midi | |
| | | | Marc
Nombre de messages : 2466
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014
| | Sujet: Re: Erreur avec Adresse Lun 8 Juil 2024 - 18:32 | |
| Bonsoir à tous ! @Lepetitmarocain - Citation :
- J' ai un programme avec un grid, et le programme se plante lorsque je me sert de la molette de la souris.
vous allez me dire qu'il y a un asenceur fait pour cela, mais un autre programme qui a juste le grid fonctionne parfaitement
Ce problème vous est il déjà arrivé?
Je n ‘ai jamais constaté d’anomalie avec un GRID lors d’un scroll souris (usage de la molette). ==> N’aurais-tu pas une tâche en cours lors du scroll souris ? - Citation :
- Je ne donne pas beaucoup d'explications ni d'exemple, car il y a beaucoup de fichier pour arriver a l'affichage du grid.
Malheureusement, c’est compliqué de t’aider sans le source. Bonne continuation ! | |
| | | | lepetitmarocain
Nombre de messages : 341
Age : 82
Localisation : Région Parisienne (à mon grand désespoir)
Date d'inscription : 04/07/2018
| | Sujet: Re: Erreur avec Adresse Lun 8 Juil 2024 - 20:44 | |
| bonsoir. @Marc J'ai isolé un morceau de programme, et j'ai le problème. Avec le click Gauche, je mets à jour la zone clické, et je voudrais donc avec la molette pouvoir monter ou descendre dans le Grid. C'est là que j'ai le problème. Merci pour vos réponses - Code:
-
dim nb_enr% , a$ , date_debut$ ,leslignes%,lescolonnes% , date_jour$ ,da$,fourn$,refer$ , design$ , date_aff_da$
dim date_dde_prix$ , date_rec_dev$ , n_cde$ , S , ligne% , colonne% , messageRDV$ , res$ , da_pour_message$
label suite , selection , finselection
dim res% , Types$(6)
full_space 0
grid 1
color 1,32,192,96
width 1,1100 :height 1, 600 : grid_row 1,100 :grid_column_fixed 1,3 :grid_row_fixed 1,1
grid_column 1, 18 : on_click 1, selection
if file_exists ("fichiers commandes encours.txt")=1
file_open_read 40, "fichiers commandes encours.txt"
dlist 150
file_load 150 ,"fichiers commandes encours.txt"
nb_enr%=Count(150)
end_if
' caption 10 , "Commandes en Cours " + " Nb enr= " + str$(nb_enr%)
file_close 40
grid_row_height 1,40
grid_fixed_color 1,128,224,255
' largeur des colonnes
S= 0
GRID_ONE_COLUMN_WIDTH 1,1,1 : ' 1ere colonne non visible
GRID_ONE_COLUMN_WIDTH 1,2,100
GRID_ONE_COLUMN_WIDTH 1,3,80
GRID_ONE_COLUMN_WIDTH 1,4,95
GRID_ONE_COLUMN_WIDTH 1,5,350
GRID_ONE_COLUMN_WIDTH 1,6,350
GRID_ONE_COLUMN_WIDTH 1,7,100
GRID_ONE_COLUMN_WIDTH 1,8,1
GRID_ONE_COLUMN_WIDTH 1,9,90
GRID_ONE_COLUMN_WIDTH 1,10,90
GRID_ONE_COLUMN_WIDTH 1,11,90
GRID_ONE_COLUMN_WIDTH 1,12,90
GRID_ONE_COLUMN_WIDTH 1,13,110
GRID_ONE_COLUMN_WIDTH 1,14,1
GRID_ONE_COLUMN_WIDTH 1,15,1
GRID_ONE_COLUMN_WIDTH 1,16,1
GRID_ONE_COLUMN_WIDTH 1,17,600
GRID_ONE_COLUMN_WIDTH 1,18,100
font_name 1,"Algerian"
Grid_write 1,1, 2 ," date du jour"
Grid_write 1,1, 3 ," D.A"
Grid_write 1,1, 4 ,"Réference"
Grid_write 1,1, 5 ,"Désignation"
Grid_write 1,1, 6 ,"Fournisseur"
Grid_write 1,1, 7 ,"Date Aff DA"
Grid_write 1,1, 8 ,"Date dem prix"
Grid_write 1,1, 9 ,"Date recept devis"
Grid_write 1,1, 10 ,"N°cde"
Grid_write 1,1, 11 ,"Date env cde"
Grid_write 1,1, 12 ,"Date AR"
Grid_write 1,1, 13 ,"archive annul"
Grid_write 1,1, 15 ,"Matr"
Grid_write 1,1, 16 ,"ligne"
Grid_write 1,1, 17 ,"Commentaire"
Grid_write 1,1, 18 ,"Date Archive"
if file_exists ("fichiers commandes encours.txt")=1
file_open_read 40, "fichiers commandes encours.txt"
while file_eof(40) <> 1
for lesLignes%=2 to 100 : ' Nbre de lignes
file_readln 40, a$
if mid$(a$,1,1)=""
goto suite
end_if
font_name 1,"Arial"
date_debut$=mid$(a$,1,8)
Grid_write 1,leslignes%,1, date_debut$
date_jour$=mid$(a$,9,10)
Grid_write 1,leslignes%,2, date_jour$
da$=mid$(a$,19,10)
Grid_write 1,leslignes%,3, da$
refer$=mid$(a$,89,15)
Grid_write 1,leslignes%,4, refer$
fourn$=mid$(a$,29,60)
Grid_write 1,leslignes%,6, fourn$
design$ =mid$(a$,104,60)
Grid_write 1,leslignes%,5, design$
date_aff_da$ =mid$(a$,164,10)
Grid_write 1,leslignes%,7, date_aff_da$
date_dde_prix$ =mid$(a$,174,10)
Grid_write 1,leslignes%,8, date_dde_prix$
date_rec_dev$ =mid$(a$,184,10)
Grid_write 1,leslignes%,9, date_rec_dev$
n_cde$=mid$(a$,194,10)
Grid_write 1,leslignes%,10, n_cde$
next leslignes%
end_while
suite:
end_if
end
selection:
' message scancode
pause 500
if scancode=1
ligne%=grid_y_to_row(1,mouse_y_left_down(1))
colonne%=grid_x_to_column(1,mouse_x_left_down(1))
res$=grid_read$ (1, ligne%,colonne%)
' message da_pour_message$
select colonne%
case 2 : messageRDV$=message_input$("Donnée à entrer." , "Saisissez La date du jour." + " D.A=" + da_pour_message$ , res$)
case 3 : messageRDV$=message_input$("Donnée à entrer.", "Saisissez La D.A." + " D.A=" + da_pour_message$ , res$)
case 4 : messageRDV$=message_input$("Donnée à entrer.", "Saisissez la Rèfèrence." + " D.A=" , res$)
case 5 : messageRDV$=message_input$("Donnée à entrer.", "Saisissez la designation." + " D.A=" + da_pour_message$, res$)
case 6 : messageRDV$=message_input$("Donnée à entrer.", "Saisissez le Fournisseur." + " D.A=" + da_pour_message$, res$)
case 7 : messageRDV$=message_input$("Donnée à entrer.", "Saisissez Date Affectation D.A,."+ " D.A=" + da_pour_message$ , res$)
case 8 : messageRDV$=message_input$("Donnée à entrer.", "Saisissez Date demande de Prix,."+ " D.A=" + da_pour_message$ , res$)
case 9 : messageRDV$=message_input$("Donnée à entrer.", "Date Récéption Devis,." + " D.A=" + da_pour_message$, res$)
date_saisie$=messageRDV$
gosub verif_date
case 10 : messageRDV$=message_input$("Donnée à entrer.", "Saisissez N° de Commande,." + " D.A=" + da_pour_message$, res$)
case 11
messageRDV$=message_input$("Donnée à entrer.", "Saisissez Date Envoi Commande,."+ " D.A=" + da_pour_message$ , res$)
date_saisie$=messageRDV$
gosub verif_date
case 12
messageRDV$=message_input$("Donnée à entrer.", "Saisissez Date AR,."+ " D.A=" + da_pour_message$ , res$)
date_saisie$=messageRDV$
gosub verif_date
case 13
if S=20 : ' ajout du 14/06/2024 pour mettre une cde archivée en suppression
messageRDV$=message_input$("Donnée à entrer.", "suppr" + " D.A=" + da_pour_message$ , res$)
else
messageRDV$=message_input$("Donnée à entrer.", "annul ou archive" + " D.A=" + da_pour_message$ , res$)
end_if
case 17 : messageRDV$=message_input$("Donnée à entrer.", "Commentaire,." + " D.A=" + da_pour_message$, res$)
end_select
finselection:
end_if
end
Voici mon fichier 2024052222/05/2024141041/1 GREMY 6193635 VIS D'ARRET POUR REGLEUR SAB 21/05/2024 21/05/2024113434 29/05/2024 matr 1001 2024052424/05/2024141110/1 FONDERIE DU CENTRE SN 6649690 ATTACHE RESSORT 24/05/2024 24/05/2024113411 27/05/2024 matr 1002 2024052424/05/2024141131/1 WHEELABRATOR GROUP S.A.S. 13737 MICROBILLES CERAMIQUE ZIRBLAST B40 (FUT DE 25 KG) 24/05/2024 24/05/2024113409 27/05/2024 matr 1003attention au fournisseur 2024052424/05/2024141134/1 GROENEVELD-BEKA FRANCE 20367 EJECTEUR GRAISSEUR DE BOUDIN (ENSEMBLE) 24/05/2024 27/05/2024113460 29/05/2024 matr 1004 2024052424/05/2024140916 NOMA TD 15683 CARENAGE FRONTAL TW01 24/05/2024 05/06/2024113571 06/06/2024 matr 1005Relances 30/05 03/06 2024052828/05/2024141186/1 ALSTOM FRANCE SERVICE RECHANGES - PETITE FORET 17577 SUPPORT DISTRIBUTEURS 28/05/2024 25/01/202420254 matr 1006 2024052828/05/2024141191/1 AVMD (CBM RAIL trop cher) 14813 VITRE PHARE GAUCHE TW03 28/05/2024 06/06/2024113599 06/06/2024 matr 1007 2024052828/05/2024141192/1 AVMD (CBM RAIL trop cher) 14814 VITRE PHARE DROIT TW03 28/05/2024 06/06/2024113599 06/06/2024 matr 1008 2024052828/05/2024141223/1 UNIVEIRA (AMGM décline) DI0000007351 DEMANDE DE DEVIS 28/05/2024 matr 1009DA reste en NOUV 2024053030/05/2024141257/1 GREMY 6803010 BIELLETTE 30/05/2024 05/06/2024113568 06/06/2024 matr 1010 2024053030/05/2024141263/1 KDI (EMILE MAURIN décline) DM0000065811 BARRE 30X3 L6M ACIER DOUX NF 10130 DC03 30/05/2024 30/05/2024113531 03/06/2024 matr 1011 2024053030/05/2024141264/1 CGM (KDI EMILE MAURIN déclinent) DM0000065812 BARRE Ø50 L 3M S185 30/05/2024 04/06/2024113602 07/06/2024 matr 1012 2024053030/05/2024141305/1 AMGM 6649655 CALE DE 0.2 MM D'EPAISSEUR 30/05/2024 03/06/2024113540 03/06/2024 matr 1013 2024053030/05/2024141314/1 AMGM (ATELIER DE MECANIQUE GENERALE DU MAZET) 14918 RONDELLE 60X28X5 DE RESSORT DE COMPRESSION 30/05/2024 30/05/2024113523 31/05/2024 matr 1014 2024053131/05/20241756/1 DECOLLETAGE DE REU reutiisable DM0000063409 VIS MODULE ONDULEUR CVS 31/05/2024 05/06/20241762 06/06/2024 matr 1015ALSTOM 2023062222/06/2023872 ALSTOM FRANCE SERVICE RECHANGES - PETITE FORET DM0000062896 OUTILLAGE DE MONTAGE DES BUTEES M2928 22/06/2023 matr 1016Reprise 2023100202/10/2023135637/1 ALSTOM FRANCE SERVICE RECHANGES - PETITE FORET 15999 *PS* KIT APPUIS RESSORT ASSEMBLES 02/10/2023 05/06/2024113591 06/06/2024 matr 1017Reprise 2023122222/12/2023137610 ALSTOM FRANCE SERVICE RECHANGES - PETITE FORET 15678 CAPOT PHARE DROIT TW01 22/12/2023 matr 1018Reprise 2024010505/01/2024137733 ALSTOM FRANCE SERVICE RECHANGES - PETITE FORET 13986 CARENAGE BAS DE FACE PORTE SIMPLE REP101 05/01/2024 matr 1019Reprise 2024020606/02/2024138592/1 FONDERIES DE BROUSSEVAL ET MONTREUIL 10080 ETOILE DE SERRAGE SUR ESSIEU 06/02/2024 matr 1020Reprise 2024031010/03/2024139459 ALSTOM FRANCE SERVICE RECHANGES - PETITE FORET 15999 *PS* KIT APPUIS RESSORT ASSEMBLES 10/03/2024 05/06/2024113591 06/06/2024 matr 1021Reprise 2024032828/03/2024140089 ALSTOM FRANCE SERVICE RECHANGES - PETITE FORET 17447 *PS* KIT APPUIS RESSORT ASSEMBLES TW01/03 28/03/2024 05/06/2024113589 06/06/2024 matr 1022Reprise 2024032828/03/2024140090 ALSTOM FRANCE SERVICE RECHANGES - PETITE FORET 17447 *PS* KIT APPUIS RESSORT ASSEMBLES TW01/03 28/03/2024 05/06/2024113589 06/06/2024 matr 1023Reprise 2024032828/03/2024140091 ALSTOM FRANCE SERVICE RECHANGES - PETITE FORET 17447 *PS* KIT APPUIS RESSORT ASSEMBLES TW01/03 28/03/2024 05/06/2024113589 06/06/2024 matr 1024Reprise 2024040505/04/2024139752/1 SCHURTER DM0000026286 PORTE FUSIBLE 2A REF:7060 05/04/2024 matr 1025Reprise 2024040505/04/2024140227/1 SKF FRANCE S.A. 21441 *PS* CAPTEUR DE VITESSE EN-REM 05/04/2024 15/04/2024112915 16/04/2024 matr 1026Reprise 2024041515/04/2024140486 ALSTOM FRANCE SERVICE RECHANGES - PETITE FORET 15999 *PS* KIT APPUIS RESSORT ASSEMBLES 15/04/2024 05/06/2024113591 06/06/2024 matr 1027Reprise 2024041515/04/2024140487 ALSTOM FRANCE SERVICE RECHANGES - PETITE FORET 15999 *PS* KIT APPUIS RESSORT ASSEMBLES 15/04/2024 05/06/2024113591 06/06/2024 matr 1028Reprise 2024041515/04/2024140488 ALSTOM FRANCE SERVICE RECHANGES - PETITE FORET 15999 *PS* KIT APPUIS RESSORT ASSEMBLES 15/04/2024 05/06/2024113591 06/06/2024 matr 1029Reprise 2024041515/04/2024140490 ALSTOM FRANCE SERVICE RECHANGES - PETITE FORET 17447 *PS* KIT APPUIS RESSORT ASSEMBLES TW01/03 15/04/2024 05/06/2024113589 06/06/2024 matr 1030Reprise 2024041515/04/2024140489 ALSTOM FRANCE SERVICE RECHANGES - PETITE FORET 17447 *PS* KIT APPUIS RESSORT ASSEMBLES TW01/03 15/04/2024 05/06/2024113589 06/06/2024 matr 1031Reprise 2024043030/04/2024140782/1 BARAT GEORGES HALAIS 20035 PINCE D ACCROCHAGE POCC 30/04/2024 matr 1032Reprise (obsolète) 2024041212/04/2024140384 TEXELIS DM0000065594 SERTISSEUR ECROU CITADIS 12/04/2024 30/04/2024 matr 1033Reprise 2024060505/06/2024141324/1 VISSELECT SAS 14112 VIS CHC 14X40 CL8.8 TETE PERCEE DIA 2.5 -NFE 27161 05/06/2024 05/06/2024113597 06/06/2024 matr 1034 2024060505/06/2024141338/1 KDI DM0000065823 BARRE 60X40 L 3M S335JR 05/06/2024 matr 1035 2024060505/06/2024141338/2 KDI DM0000065824 BARRE 50X20 L 3M S335JR 05/06/2024 matr 1036 2024060505/06/2024141353/1 OMECA SYSTEM 20033 TIGE DE BUTEE POCC 05/06/2024 05/06/2024113573 06/06/2024 matr 1037 2024060505/06/2024141385/1 ALSTOM CRESPIN DM0000065839 BAGUE CYLINDRIQUE BRONZE 05/06/2024 matr 1038 2024060505/06/2024141411/1 GREMY 6164805 *PS* AXE TIMONERIE DE FREIN 05/06/2024 06/06/2024113608 07/06/2024 matr 1039 2024060505/06/2024141412/1 SOJEP 6503595 BUTEE 05/06/2024 05/06/2024113592 06/06/2024 matr 1040 2024060505/06/2024141413/1 SOJEP 6503597 BUTEE 05/06/2024 matr 1041 2024060505/06/2024141415/1 AUPI 6542042 BUTEE POUR CONTACTEUR 1500 V 05/06/2024 05/06/2024113600 06/06/2024 matr 1042 2024060505/06/2024141432 TANCOGNE 6164827 BUTTE PLAN MR 4-95081 A 05/06/2024 05/06/2024113576 06/06/2024 matr 104366 PE 2024060606/06/2024141454 AVMD 14813 VITRE PHARE GAUCHE TW03 06/06/2024 matr 1044 2024060707/06/2024141244/1 FIDEMECA DM0000056787 FABRICATION CHAPE MR-3-95323 matr 1045 2024060707/06/2024141425/1 GREMY 6503567 VIS HM 10-22 AVEC TETE PERCEE matr 1046 2024060707/06/2024141451/1 DM0000065862 TUBE 50X35 L 6M MAT ALU AW5086 H111 matr 1047 2024060707/06/2024141451/2 DM0000065863 TUBE 60X50 L 6M MAT ALU AW5086 H111 matr 1048 2024060707/06/2024141451/3 DM0000065864 TUBE 70X60 L 6M MAT ALU AW5086 H111 matr 1049 2024060707/06/2024141470/1 DM0000065823 BARRE 60X40 L 3M S335JR matr 1050 2024060707/06/2024141478/1 AMGM (ATELIER DE MECANIQUE GENERALE DU MAZET) 16096 COUPELLE RESSORT PM.ZC 07/06/2024 matr 1051 2024060707/06/2024141479/1 AMGM (ATELIER DE MECANIQUE GENERALE DU MAZET) 16096 COUPELLE RESSORT PM.ZC 07/06/2024 matr 1052 2024060707/06/2024141480/1 AMGM (ATELIER DE MECANIQUE GENERALE DU MAZET) 16099 VIS DE REGLAGE PM.ZC 07/06/2024 matr 1053 2024060707/06/2024141481/1 AMGM (ATELIER DE MECANIQUE GENERALE DU MAZET) 16099 VIS DE REGLAGE PM.ZC 07/06/2024 matr 1054 2024070707/07/202413645/2 GREMY 14158 LEVIER POUR TMC - MR93154 matr 1055 2024070707/07/2024136418/1 ALSTOM FRANCE SERVICE RECHANGES - PETITE FORET de pins 22385 GOUJON matr 1056 2024070707/07/2024136419/1 16503 RONDELLE PLATE DIAM EXT 32 matr 1057 2024070707/07/2024136424/1 KNORR-BREMSE SYSTEMES FERROVIAIRES FRANCE 11015 GALET DE GUIDAGE HAUT PORTE DOUBLE matr 1058 2024070707/07/2024136430/1 SCIT EQUIPEMENT 20027 CREMAILLERE DE LA VITRE POCC matr 1059 2024070707/07/2024136435/1 DM0000064772 U DE 30X30X3 L 6M S275JR matr 1060 2024070707/07/2024136435/2 DM0000064773 TUBE Ø18X3 L6M S235JR matr 1061 2024070707/07/2024136585/1 GREMY 6164674 VIS AJUSTEE POUR SUSPENSION SECONDAIRE matr 1062 2024070707/07/2024136586/1 SCIT EQUIPEMENT 11475 SUPPORT POUR GRAISSEUR DE BOUDIN TW2020321 matr 1063 2024070707/07/2024136590/1 GREMY 6164852 COULISSE AVEC TETON POUR TIMONERIE (DE) L=155.5MM matr 1064 2024070707/07/2024136592/1 USINAGE MECANIQUE DE L'AISNE (UMA) 6164614 CALE SUSPENSION EP:5MM (SANS VIS NI ENTRETOISE) matr 1065 2024070707/07/2024136612/1 SLD S.A.S. 6164644 VIS DE SECURITE matr 1067 Il a comme nom "fichiers commandes encours.txt" Merci pour vos réponses Bonne soirée | |
| | | | Marc
Nombre de messages : 2466
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014
| | Sujet: Re: Erreur avec Adresse Lun 8 Juil 2024 - 22:59 | |
| @Lepetitmarocain Pour remédier au dysfonctionnement, tu peux : — soit remplacer la variable système SCANCODE par la fonction MOUSE_LEFT_DOWN(N), ce qui donne : - Code:
-
dim nb_enr% , a$ , date_debut$ ,leslignes%,lescolonnes% , date_jour$ ,da$,fourn$,refer$ , design$ , date_aff_da$
dim date_dde_prix$ , date_rec_dev$ , n_cde$ , S , ligne% , colonne% , messageRDV$ , res$ , da_pour_message$
label suite , selection , finselection
dim res% , Types$(6)
full_space 0
grid 1
color 1,32,192,96
width 1,1100 :height 1, 600 : grid_row 1,100 :grid_column_fixed 1,3 :grid_row_fixed 1,1
grid_column 1, 18 : on_click 1, selection
if file_exists ("fichiers commandes encours.txt")=1
file_open_read 40, "fichiers commandes encours.txt"
dlist 150
file_load 150 ,"fichiers commandes encours.txt"
nb_enr%=Count(150)
end_if
' caption 10 , "Commandes en Cours " + " Nb enr= " + str$(nb_enr%)
file_close 40
grid_row_height 1,40
grid_fixed_color 1,128,224,255
' largeur des colonnes
S= 0
GRID_ONE_COLUMN_WIDTH 1,1,1 : ' 1ere colonne non visible
GRID_ONE_COLUMN_WIDTH 1,2,100
GRID_ONE_COLUMN_WIDTH 1,3,80
GRID_ONE_COLUMN_WIDTH 1,4,95
GRID_ONE_COLUMN_WIDTH 1,5,350
GRID_ONE_COLUMN_WIDTH 1,6,350
GRID_ONE_COLUMN_WIDTH 1,7,100
GRID_ONE_COLUMN_WIDTH 1,8,1
GRID_ONE_COLUMN_WIDTH 1,9,90
GRID_ONE_COLUMN_WIDTH 1,10,90
GRID_ONE_COLUMN_WIDTH 1,11,90
GRID_ONE_COLUMN_WIDTH 1,12,90
GRID_ONE_COLUMN_WIDTH 1,13,110
GRID_ONE_COLUMN_WIDTH 1,14,1
GRID_ONE_COLUMN_WIDTH 1,15,1
GRID_ONE_COLUMN_WIDTH 1,16,1
GRID_ONE_COLUMN_WIDTH 1,17,600
GRID_ONE_COLUMN_WIDTH 1,18,100
font_name 1,"Algerian"
Grid_write 1,1, 2 ," date du jour"
Grid_write 1,1, 3 ," D.A"
Grid_write 1,1, 4 ,"Réference"
Grid_write 1,1, 5 ,"Désignation"
Grid_write 1,1, 6 ,"Fournisseur"
Grid_write 1,1, 7 ,"Date Aff DA"
Grid_write 1,1, 8 ,"Date dem prix"
Grid_write 1,1, 9 ,"Date recept devis"
Grid_write 1,1, 10 ,"N°cde"
Grid_write 1,1, 11 ,"Date env cde"
Grid_write 1,1, 12 ,"Date AR"
Grid_write 1,1, 13 ,"archive annul"
Grid_write 1,1, 15 ,"Matr"
Grid_write 1,1, 16 ,"ligne"
Grid_write 1,1, 17 ,"Commentaire"
Grid_write 1,1, 18 ,"Date Archive"
if file_exists ("fichiers commandes encours.txt")=1
file_open_read 40, "fichiers commandes encours.txt"
while file_eof(40) <> 1
for lesLignes%=2 to 100 : ' Nbre de lignes
file_readln 40, a$
if mid$(a$,1,1)=""
goto suite
end_if
font_name 1,"Arial"
date_debut$=mid$(a$,1,8)
Grid_write 1,leslignes%,1, date_debut$
date_jour$=mid$(a$,9,10)
Grid_write 1,leslignes%,2, date_jour$
da$=mid$(a$,19,10)
Grid_write 1,leslignes%,3, da$
refer$=mid$(a$,89,15)
Grid_write 1,leslignes%,4, refer$
fourn$=mid$(a$,29,60)
Grid_write 1,leslignes%,6, fourn$
design$ =mid$(a$,104,60)
Grid_write 1,leslignes%,5, design$
date_aff_da$ =mid$(a$,164,10)
Grid_write 1,leslignes%,7, date_aff_da$
date_dde_prix$ =mid$(a$,174,10)
Grid_write 1,leslignes%,8, date_dde_prix$
date_rec_dev$ =mid$(a$,184,10)
Grid_write 1,leslignes%,9, date_rec_dev$
n_cde$=mid$(a$,194,10)
Grid_write 1,leslignes%,10, n_cde$
next leslignes%
end_while
suite:
end_if
end
selection:
if MOUSE_LEFT_DOWN(1)=1
ligne%=grid_y_to_row(1,mouse_y_left_down(1))
colonne%=grid_x_to_column(1,mouse_x_left_down(1))
res$=grid_read$ (1, ligne%,colonne%)
' message da_pour_message$
select colonne%
case 2 : messageRDV$=message_input$("Donnée à entrer." , "Saisissez La date du jour." + " D.A=" + da_pour_message$ , res$)
case 3 : messageRDV$=message_input$("Donnée à entrer.", "Saisissez La D.A." + " D.A=" + da_pour_message$ , res$)
case 4 : messageRDV$=message_input$("Donnée à entrer.", "Saisissez la Rèfèrence." + " D.A=" , res$)
case 5 : messageRDV$=message_input$("Donnée à entrer.", "Saisissez la designation." + " D.A=" + da_pour_message$, res$)
case 6 : messageRDV$=message_input$("Donnée à entrer.", "Saisissez le Fournisseur." + " D.A=" + da_pour_message$, res$)
case 7 : messageRDV$=message_input$("Donnée à entrer.", "Saisissez Date Affectation D.A,."+ " D.A=" + da_pour_message$ , res$)
case 8 : messageRDV$=message_input$("Donnée à entrer.", "Saisissez Date demande de Prix,."+ " D.A=" + da_pour_message$ , res$)
case 9 : messageRDV$=message_input$("Donnée à entrer.", "Date Récéption Devis,." + " D.A=" + da_pour_message$, res$)
date_saisie$=messageRDV$
gosub verif_date
case 10 : messageRDV$=message_input$("Donnée à entrer.", "Saisissez N° de Commande,." + " D.A=" + da_pour_message$, res$)
case 11
messageRDV$=message_input$("Donnée à entrer.", "Saisissez Date Envoi Commande,."+ " D.A=" + da_pour_message$ , res$)
date_saisie$=messageRDV$
gosub verif_date
case 12
messageRDV$=message_input$("Donnée à entrer.", "Saisissez Date AR,."+ " D.A=" + da_pour_message$ , res$)
date_saisie$=messageRDV$
gosub verif_date
case 13
if S=20 : ' ajout du 14/06/2024 pour mettre une cde archivée en suppression
messageRDV$=message_input$("Donnée à entrer.", "suppr" + " D.A=" + da_pour_message$ , res$)
else
messageRDV$=message_input$("Donnée à entrer.", "annul ou archive" + " D.A=" + da_pour_message$ , res$)
end_if
case 17 : messageRDV$=message_input$("Donnée à entrer.", "Commentaire,." + " D.A=" + da_pour_message$, res$)
end_select
end_if
return
finselection:
return
— soit remplacer le ON_CLICK(1) par ON_DOUBLE_CLICK(1). Dans ce cas, il faudra opérer un double clic sur la case à éditer. - Code:
-
dim nb_enr% , a$ , date_debut$ ,leslignes%,lescolonnes% , date_jour$ ,da$,fourn$,refer$ , design$ , date_aff_da$
dim date_dde_prix$ , date_rec_dev$ , n_cde$ , S , ligne% , colonne% , messageRDV$ , res$ , da_pour_message$
label suite , selection , finselection
dim res% , Types$(6)
full_space 0
grid 1
color 1,32,192,96
width 1,1100 :height 1, 600 : grid_row 1,100 :grid_column_fixed 1,3 :grid_row_fixed 1,1
grid_column 1, 18 : on_double_click 1, selection
if file_exists ("fichiers commandes encours.txt")=1
file_open_read 40, "fichiers commandes encours.txt"
dlist 150
file_load 150 ,"fichiers commandes encours.txt"
nb_enr%=Count(150)
end_if
' caption 10 , "Commandes en Cours " + " Nb enr= " + str$(nb_enr%)
file_close 40
grid_row_height 1,40
grid_fixed_color 1,128,224,255
' largeur des colonnes
S= 0
GRID_ONE_COLUMN_WIDTH 1,1,1 : ' 1ere colonne non visible
GRID_ONE_COLUMN_WIDTH 1,2,100
GRID_ONE_COLUMN_WIDTH 1,3,80
GRID_ONE_COLUMN_WIDTH 1,4,95
GRID_ONE_COLUMN_WIDTH 1,5,350
GRID_ONE_COLUMN_WIDTH 1,6,350
GRID_ONE_COLUMN_WIDTH 1,7,100
GRID_ONE_COLUMN_WIDTH 1,8,1
GRID_ONE_COLUMN_WIDTH 1,9,90
GRID_ONE_COLUMN_WIDTH 1,10,90
GRID_ONE_COLUMN_WIDTH 1,11,90
GRID_ONE_COLUMN_WIDTH 1,12,90
GRID_ONE_COLUMN_WIDTH 1,13,110
GRID_ONE_COLUMN_WIDTH 1,14,1
GRID_ONE_COLUMN_WIDTH 1,15,1
GRID_ONE_COLUMN_WIDTH 1,16,1
GRID_ONE_COLUMN_WIDTH 1,17,600
GRID_ONE_COLUMN_WIDTH 1,18,100
font_name 1,"Algerian"
Grid_write 1,1, 2 ," date du jour"
Grid_write 1,1, 3 ," D.A"
Grid_write 1,1, 4 ,"Réference"
Grid_write 1,1, 5 ,"Désignation"
Grid_write 1,1, 6 ,"Fournisseur"
Grid_write 1,1, 7 ,"Date Aff DA"
Grid_write 1,1, 8 ,"Date dem prix"
Grid_write 1,1, 9 ,"Date recept devis"
Grid_write 1,1, 10 ,"N°cde"
Grid_write 1,1, 11 ,"Date env cde"
Grid_write 1,1, 12 ,"Date AR"
Grid_write 1,1, 13 ,"archive annul"
Grid_write 1,1, 15 ,"Matr"
Grid_write 1,1, 16 ,"ligne"
Grid_write 1,1, 17 ,"Commentaire"
Grid_write 1,1, 18 ,"Date Archive"
if file_exists ("fichiers commandes encours.txt")=1
file_open_read 40, "fichiers commandes encours.txt"
while file_eof(40) <> 1
for lesLignes%=2 to 100 : ' Nbre de lignes
file_readln 40, a$
if mid$(a$,1,1)=""
goto suite
end_if
font_name 1,"Arial"
date_debut$=mid$(a$,1,8)
Grid_write 1,leslignes%,1, date_debut$
date_jour$=mid$(a$,9,10)
Grid_write 1,leslignes%,2, date_jour$
da$=mid$(a$,19,10)
Grid_write 1,leslignes%,3, da$
refer$=mid$(a$,89,15)
Grid_write 1,leslignes%,4, refer$
fourn$=mid$(a$,29,60)
Grid_write 1,leslignes%,6, fourn$
design$ =mid$(a$,104,60)
Grid_write 1,leslignes%,5, design$
date_aff_da$ =mid$(a$,164,10)
Grid_write 1,leslignes%,7, date_aff_da$
date_dde_prix$ =mid$(a$,174,10)
Grid_write 1,leslignes%,8, date_dde_prix$
date_rec_dev$ =mid$(a$,184,10)
Grid_write 1,leslignes%,9, date_rec_dev$
n_cde$=mid$(a$,194,10)
Grid_write 1,leslignes%,10, n_cde$
next leslignes%
end_while
suite:
end_if
end
selection:
' message scancode
' pause 500
if scancode=1
ligne%=grid_y_to_row(1,mouse_y_left_down(1))
colonne%=grid_x_to_column(1,mouse_x_left_down(1))
res$=grid_read$ (1, ligne%,colonne%)
' message da_pour_message$
select colonne%
case 2 : messageRDV$=message_input$("Donnée à entrer." , "Saisissez La date du jour." + " D.A=" + da_pour_message$ , res$)
case 3 : messageRDV$=message_input$("Donnée à entrer.", "Saisissez La D.A." + " D.A=" + da_pour_message$ , res$)
case 4 : messageRDV$=message_input$("Donnée à entrer.", "Saisissez la Rèfèrence." + " D.A=" , res$)
case 5 : messageRDV$=message_input$("Donnée à entrer.", "Saisissez la designation." + " D.A=" + da_pour_message$, res$)
case 6 : messageRDV$=message_input$("Donnée à entrer.", "Saisissez le Fournisseur." + " D.A=" + da_pour_message$, res$)
case 7 : messageRDV$=message_input$("Donnée à entrer.", "Saisissez Date Affectation D.A,."+ " D.A=" + da_pour_message$ , res$)
case 8 : messageRDV$=message_input$("Donnée à entrer.", "Saisissez Date demande de Prix,."+ " D.A=" + da_pour_message$ , res$)
case 9 : messageRDV$=message_input$("Donnée à entrer.", "Date Récéption Devis,." + " D.A=" + da_pour_message$, res$)
date_saisie$=messageRDV$
gosub verif_date
case 10 : messageRDV$=message_input$("Donnée à entrer.", "Saisissez N° de Commande,." + " D.A=" + da_pour_message$, res$)
case 11
messageRDV$=message_input$("Donnée à entrer.", "Saisissez Date Envoi Commande,."+ " D.A=" + da_pour_message$ , res$)
date_saisie$=messageRDV$
gosub verif_date
case 12
messageRDV$=message_input$("Donnée à entrer.", "Saisissez Date AR,."+ " D.A=" + da_pour_message$ , res$)
date_saisie$=messageRDV$
gosub verif_date
case 13
if S=20 : ' ajout du 14/06/2024 pour mettre une cde archivée en suppression
messageRDV$=message_input$("Donnée à entrer.", "suppr" + " D.A=" + da_pour_message$ , res$)
else
messageRDV$=message_input$("Donnée à entrer.", "annul ou archive" + " D.A=" + da_pour_message$ , res$)
end_if
case 17 : messageRDV$=message_input$("Donnée à entrer.", "Commentaire,." + " D.A=" + da_pour_message$, res$)
end_select
end_if
return
finselection:
return
Tu peux aussi mélanger les deux solutions précédentes, ce qui donne : - Code:
-
dim nb_enr% , a$ , date_debut$ ,leslignes%,lescolonnes% , date_jour$ ,da$,fourn$,refer$ , design$ , date_aff_da$
dim date_dde_prix$ , date_rec_dev$ , n_cde$ , S , ligne% , colonne% , messageRDV$ , res$ , da_pour_message$
label suite , selection , finselection
dim res% , Types$(6)
full_space 0
grid 1
color 1,32,192,96
width 1,1100 :height 1, 600 : grid_row 1,100 :grid_column_fixed 1,3 :grid_row_fixed 1,1
grid_column 1, 18 : on_double_click 1, selection
if file_exists ("fichiers commandes encours.txt")=1
file_open_read 40, "fichiers commandes encours.txt"
dlist 150
file_load 150 ,"fichiers commandes encours.txt"
nb_enr%=Count(150)
end_if
' caption 10 , "Commandes en Cours " + " Nb enr= " + str$(nb_enr%)
file_close 40
grid_row_height 1,40
grid_fixed_color 1,128,224,255
' largeur des colonnes
S= 0
GRID_ONE_COLUMN_WIDTH 1,1,1 : ' 1ere colonne non visible
GRID_ONE_COLUMN_WIDTH 1,2,100
GRID_ONE_COLUMN_WIDTH 1,3,80
GRID_ONE_COLUMN_WIDTH 1,4,95
GRID_ONE_COLUMN_WIDTH 1,5,350
GRID_ONE_COLUMN_WIDTH 1,6,350
GRID_ONE_COLUMN_WIDTH 1,7,100
GRID_ONE_COLUMN_WIDTH 1,8,1
GRID_ONE_COLUMN_WIDTH 1,9,90
GRID_ONE_COLUMN_WIDTH 1,10,90
GRID_ONE_COLUMN_WIDTH 1,11,90
GRID_ONE_COLUMN_WIDTH 1,12,90
GRID_ONE_COLUMN_WIDTH 1,13,110
GRID_ONE_COLUMN_WIDTH 1,14,1
GRID_ONE_COLUMN_WIDTH 1,15,1
GRID_ONE_COLUMN_WIDTH 1,16,1
GRID_ONE_COLUMN_WIDTH 1,17,600
GRID_ONE_COLUMN_WIDTH 1,18,100
font_name 1,"Algerian"
Grid_write 1,1, 2 ," date du jour"
Grid_write 1,1, 3 ," D.A"
Grid_write 1,1, 4 ,"Réference"
Grid_write 1,1, 5 ,"Désignation"
Grid_write 1,1, 6 ,"Fournisseur"
Grid_write 1,1, 7 ,"Date Aff DA"
Grid_write 1,1, 8 ,"Date dem prix"
Grid_write 1,1, 9 ,"Date recept devis"
Grid_write 1,1, 10 ,"N°cde"
Grid_write 1,1, 11 ,"Date env cde"
Grid_write 1,1, 12 ,"Date AR"
Grid_write 1,1, 13 ,"archive annul"
Grid_write 1,1, 15 ,"Matr"
Grid_write 1,1, 16 ,"ligne"
Grid_write 1,1, 17 ,"Commentaire"
Grid_write 1,1, 18 ,"Date Archive"
if file_exists ("fichiers commandes encours.txt")=1
file_open_read 40, "fichiers commandes encours.txt"
while file_eof(40) <> 1
for lesLignes%=2 to 100 : ' Nbre de lignes
file_readln 40, a$
if mid$(a$,1,1)=""
goto suite
end_if
font_name 1,"Arial"
date_debut$=mid$(a$,1,8)
Grid_write 1,leslignes%,1, date_debut$
date_jour$=mid$(a$,9,10)
Grid_write 1,leslignes%,2, date_jour$
da$=mid$(a$,19,10)
Grid_write 1,leslignes%,3, da$
refer$=mid$(a$,89,15)
Grid_write 1,leslignes%,4, refer$
fourn$=mid$(a$,29,60)
Grid_write 1,leslignes%,6, fourn$
design$ =mid$(a$,104,60)
Grid_write 1,leslignes%,5, design$
date_aff_da$ =mid$(a$,164,10)
Grid_write 1,leslignes%,7, date_aff_da$
date_dde_prix$ =mid$(a$,174,10)
Grid_write 1,leslignes%,8, date_dde_prix$
date_rec_dev$ =mid$(a$,184,10)
Grid_write 1,leslignes%,9, date_rec_dev$
n_cde$=mid$(a$,194,10)
Grid_write 1,leslignes%,10, n_cde$
next leslignes%
end_while
suite:
end_if
end
selection:
if mouse_left_down(1)=1
ligne%=grid_y_to_row(1,mouse_y_left_down(1))
colonne%=grid_x_to_column(1,mouse_x_left_down(1))
res$=grid_read$ (1, ligne%,colonne%)
' message da_pour_message$
select colonne%
case 2 : messageRDV$=message_input$("Donnée à entrer." , "Saisissez La date du jour." + " D.A=" + da_pour_message$ , res$)
case 3 : messageRDV$=message_input$("Donnée à entrer.", "Saisissez La D.A." + " D.A=" + da_pour_message$ , res$)
case 4 : messageRDV$=message_input$("Donnée à entrer.", "Saisissez la Rèfèrence." + " D.A=" , res$)
case 5 : messageRDV$=message_input$("Donnée à entrer.", "Saisissez la designation." + " D.A=" + da_pour_message$, res$)
case 6 : messageRDV$=message_input$("Donnée à entrer.", "Saisissez le Fournisseur." + " D.A=" + da_pour_message$, res$)
case 7 : messageRDV$=message_input$("Donnée à entrer.", "Saisissez Date Affectation D.A,."+ " D.A=" + da_pour_message$ , res$)
case 8 : messageRDV$=message_input$("Donnée à entrer.", "Saisissez Date demande de Prix,."+ " D.A=" + da_pour_message$ , res$)
case 9 : messageRDV$=message_input$("Donnée à entrer.", "Date Récéption Devis,." + " D.A=" + da_pour_message$, res$)
date_saisie$=messageRDV$
gosub verif_date
case 10 : messageRDV$=message_input$("Donnée à entrer.", "Saisissez N° de Commande,." + " D.A=" + da_pour_message$, res$)
case 11
messageRDV$=message_input$("Donnée à entrer.", "Saisissez Date Envoi Commande,."+ " D.A=" + da_pour_message$ , res$)
date_saisie$=messageRDV$
gosub verif_date
case 12
messageRDV$=message_input$("Donnée à entrer.", "Saisissez Date AR,."+ " D.A=" + da_pour_message$ , res$)
date_saisie$=messageRDV$
gosub verif_date
case 13
if S=20 : ' ajout du 14/06/2024 pour mettre une cde archivée en suppression
messageRDV$=message_input$("Donnée à entrer.", "suppr" + " D.A=" + da_pour_message$ , res$)
else
messageRDV$=message_input$("Donnée à entrer.", "annul ou archive" + " D.A=" + da_pour_message$ , res$)
end_if
case 17 : messageRDV$=message_input$("Donnée à entrer.", "Commentaire,." + " D.A=" + da_pour_message$, res$)
end_select
end_if
return
finselection:
return
Bonne continuation !
Dernière édition par Marc le Jeu 11 Juil 2024 - 16:01, édité 1 fois | |
| | | | lepetitmarocain
Nombre de messages : 341
Age : 82
Localisation : Région Parisienne (à mon grand désespoir)
Date d'inscription : 04/07/2018
| | Sujet: Re: Erreur avec Adresse Mar 9 Juil 2024 - 19:04 | |
| Bonsoir à tous
@Marc.
Merci pour ta, tes réponses
c'est ce qu'on appelle Action Réaction.
J'ai choisi de modifier le programme avec le Double Click.
Je pense à l'unanimité que c'est plus facile !!!!!.
Merci beaucoup
Bonne soirée à tous | |
| | | | Contenu sponsorisé
| | Sujet: Re: Erreur avec Adresse | |
| |
| | | | | | Erreur avec Adresse | |
|
Sujets similaires | |
|
| | Permission de ce forum: | Vous ne pouvez pas répondre aux sujets dans ce forum
| |
| |
| |
