RAD purebasic (speedev)

[falsam]

Hello Microdevweb. J'ai l'impression que je me suis mal exprimé.

■ Je t'ai posté un code qui ne fonctionne pas http://www.purebasic.fr/french/viewtopi ... 52#p177752 qui génère une erreur et tu me répond

Oui c'est possible, mais pour cela il faut que je fasse une procédure ImportDb (que je comptais faire)

Le code que j'ai posté est un extrait de ton code de test. La question est : Pourquoi ne fonctionne t'il pas ?

■ Un des bugs que j'ai rencontré.http://www.purebasic.fr/french/viewtopi ... 53#p177753 il ne s'agit pas de deux bugs mais bien d'un seul. Je te l'explique en numérotant ce que j'ai fait.
1 - Menu Fichiers principale - > Clients
2 - Fais une recherche sur durant et quitte la fenêtre sans faire autres chose.
3 - Menu Fichiers principale - > Factures
4 - Essayes de cliquer sur la deuxième facture. Tu devrais obtenir une erreur.

J’espère que mes explications sont plus claires.

[microdevweb]

Bonjour Falsam,

Hello Microdevweb. J'ai l'impression que je me suis mal exprimé.

Oui j'avais mal compris... Tôt le matin et je devais partir. J'ai trouvé et corrigerais cela.

Oui pour le deuxième bug je vois... Je corrigerais cela également et encore merci pour tes observations

[microdevweb]

Bonsoir Falsam,

J'ai modifié ton code comme suit et cela semble fonctionné.

Code : Tout sélectionner

XIncludeFile "spd.pbi"

Enumeration
  #Database
EndEnumeration

Enumeration Window
  #MainForm
  #PaysForm
  #PaysTab ; J'ai déplacé cette énumération car le module va utilisé cet ID pour l'ouverture de la fenêtre donc 
; si #MainForm = 0 et #PaysTab = 0 ben ça bug
EndEnumeration

; Enumeration
;   #PaysTab
; EndEnumeration

;Setup analyse
spd::InitDb("teste.sqlite")
spd::AddTable("pays")
spd::AddItem("pays","nom",spd::#TP_Varchar,30,#True,#True)
spd::BuildDb()

;Ouverture base de données contact
UseSQLiteDatabase()
OpenDatabase(#Database, "teste.sqlite", "", "", #PB_Database_SQLite)

;Création de la fenêtre table des pays
spd::CreateTableWindow(#PaysTab,"pays","Liste des pays",400,600,120,30,#PaysForm,#MainForm)
spd::SetTableFormOrder(#PaysTab,"pays.nom ASC")
spd::AddColumn("Nom","nom",400)
spd::EnableColumnShearch()

;Création de la fenêtre fiche des pays
spd::CreateSheetWindow(#PaysForm,"pays",180,30,1,"Nouveau pays","Edition d'un pays")
spd::AddStringToSheet("Pays","nom",spd::#Mask_FirstUper)

;Denetre principale de l'application
If OpenWindow(#MainForm, 0, 0, 1024, 768, "Test Speed Dev", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)     
 
  spd::DisplayTableWindow(#PaysTab)   
 
  Repeat:WaitWindowEvent():ForEver
EndIf

Je regarde demain ou après pour corrigé les autres bug

[falsam]

Merci pour cette correction.

J'ai déplacé cette énumération car le module va utilisé cet ID pour l'ouverture de la fenêtre donc si #MainForm = 0 et #PaysTab = 0 ben ça bug

Bizarre ce souci d'énumération!

Quand tu crées tes indexs de map tu devrais dans ce cas les précéder de W_ (Window) G_ (Gadget)

Ainsi pas de confusion possible entres W_0 pour #MainForm et G_0 pour #PaysTab.

[microdevweb]

Oui c'est une solution, j'aurais peu également ouvrir la fenêtre avec un #Pb_any, mais je veux (surtout pour les fenêtres personnalisées) que l'on garde la possibilité d'ajouter des gadgets librement avec les commandes standards de purebasic

[Micoute]

Bonjour microdevweb, il y a une erreur dans ta base de données "Pays", la hollande est une province des Pays-bas (Nederland), c'est comme si tu avais écris Normandie ou Picardie au lieu de France. C'est vraiment une erreur bénigne.

[microdevweb]

@Micoute,
Merci pour cette remarque, surtout que je n'habite à +- 30 Km de Maastrich (Nl). Je ferait plus attention à cela

[microdevweb]

Nouvelle version B1.12

La gestion des fenêtre personnalisée n'est pas finie, normalement je prévoyais de posté cette version plus. Mais comme certains bug on été relevé par falsam, je poste cette mise à jour

Correction de bugs

Add AddCustomComboLink
Add EnableCombolinkButtonSelect
Add FileToWindow

[falsam]

Hello Microdevweb. J'ai downloadé ta dernière version de Speedev. Le fichier d'aide ne s'ouvre pas correctement. Je me demande si ça ne vient pas de la compression. Pourrais tu faire un fichier compressé au format rar ?

Est ce que d'autres utilisateurs pourrais faire un test du fichier d'aide ?

[microdevweb]

Bonjour Falsam,

Voici

http://www.microdevweb.com/source/Rad_pb/Rad_PB.rar

Edit..

J'ai refais le zip également

http://www.microdevweb.com/source/Rad_pb/Rad_PB.zip

[microdevweb]

Petit changement dans mon Planning de développement. Afin que l'on puisses mieux se rendre compte de l'utilité de ce RAD, j'ai commencé le GDI. Il ne prendra pas encore en charge les fenêtres personnalisées, mais la gestion de la Db ainsi que la fabrication des fenêtres Table et fiche.

Nb: Fonctionnera en stockant le code dans le presse papier.

[Patrick88]

pb 5.31 x64

erreur "il n'y a aucun élément à mémorisé courant à restaurer" à la ligne 1028, module spd.pbi

Code : Tout sélectionner

PopMapPosition(myAna\mySheetForm())

problème je n'arrive pas à reproduire le bug... je l'ai eu 2 fois et depuis pas moyen !
je ne sais pas si c'est lié, mais je fais.

Nouveau pays= Esppagne, Nouveau pays= Espagne, Editer Esppagne en Espagne, valider = doublon, j'ajoute un caractère, je valide, je supprime cette fiche.

Nouvelle facture, pas de bouton valider, je sort par la croix.

Nouveau produit, Chemise / Durandal / 21.0 - valider / Nom=pipo - valider
message Database error / near ",": syntax error
je rempli les 2 cases prix et je valide, et là, ça plante... parfois.

je réessaie avec les fichiers propre du zip. pas moyen de reproduire le bug...

pat

[microdevweb]

Merci Patrick88,

Je regarde à ce BUG...

Ps: La gestion des fenêtres personnalisées n'ai pas finies.

[microdevweb]

Un peux de nouvelles sue le GDI, ça avance je devrais pouvoir posté la première version dans moins d'une semaine. Mais c'est un travail de dingue (module et data inclus j'en suis à plus 15.000 lignes de code)

[Kwai chang caine]

Ca se sent que tu avances pour SPEEDEV, WINDEV a la trouille, il vient de sortir sa v21 pour être sûr de ne pas être concurrencé