SuneidoFR

RIBControl : Saisie et validation d'un RIB

2008-01-02T19:21:00.000+01:00

RIBControl est un contrôle Suneido permettant la saisie et la validation d'un Relevé d'Identité Bancaire.

Le code de RIBControl

PatternControl
{
Name: "RIB"
New(width= 23, mandatory= false)
{
super('>>>>> >>>>> >>>>>>>>>>> ##',
width : width,
mandatory : mandatory,
status: 'RIB')
.mandatory = mandatory
}
Valid?()
{
value = .Get()
if (.mandatory is false and value is '')
return true
return super.Valid?() and RIBValid?(value)
}
}

Le code de RIBValid ?

function (rib)
{
rib = rib.Tr(" " )
dict = #("0":0, "1":1, "2":2, "3":3, "4":4, "5":5, "6":6, "7":7, "8":8, "9":9, A:1, B:2, C:3, D:4, E:5, F:6, G:7, H:8, I:9,J:1, K:2, L:3, M:4, N:5, O:6, P:7, Q:8, R:9,S:2, T:3, U:4, V:5, W:6, X:7, Y:8, Z:9)
num = ""
for (i=0; i<= rib.Size()-1; ++i)
{
num $= dict[rib.Substr(i,1)]
}
cle = num.Substr(-2)
if (Number(cle)<1 or Number(cle)>97)
{
return false
}
a = num.Substr(0,7)
b = num.Substr(7,7)
c = num.Substr(14,7)
verifcle = 97-((62*a+34*b+3*c)%97)
return Number(cle) == verifcle
}

Le code code de RIBValidTest

Test
{
Test_main()
{
AssertEq(RIBValid?('15459 45000 0411700920U 62'),true)
AssertEq(RIBValid?('10207 00026 04026011770 83'),true)
AssertEq(RIBValid?('30002 06971 0000072002D 05'),false)
}
}

Explications

RIBControl est un PatternControl avec comme masque de saisie >>>>> >>>>> >>>>>>>>>>> ## ou > représente un chiffre ou une lettre majuscule et # un chiffre.

Les données entrées avec ce masque sont alors vérifiées avec la fonction RIBValid?

function (rib)

RIBValid ? est une fonction prenant en paramètre d'entrée un RIB

{
rib = rib.Tr(" " )

on enlève du RIB tous les espaces

dict = #("0":0, "1":1, "2":2, "3":3, "4":4, "5":5, "6":6, "7":7, "8":8, "9":9,A:1, B:2, C:3, D:4, E:5, F:6, G:7, H:8, I:9,J:1, K:2, L:3, M:4, N:5, O:6, P:7, Q:8, R:9,S:2, T:3, U:4, V:5, W:6, X:7, Y:8, Z:9)

On créé un dictionnaire nommé dict contenant la correspondance entre chaque caractère possible du RIB avec une valeur numérique

num = ""

On initialise la variable num

for (i=0; i<= rib.Size()-1; ++i)

Pour chaque caractère du RIB

{
num $= dict[rib.Substr(i,1)]

On concatène à num la valeur correspondante du caractère encours dans le dictionnaire (par ex : U donne 4)

}
cle = num.Substr(-2)

On détermine la clé (ce sont les deux derniers caractères du RIB d'où le -2)

if (Number(cle)<1 or Number(cle)>97)

Si la clé n'est pas comprise entre 1 et 97 alors le RIB n'est pas valide

{
return false
}

Sinon, on décompose le nouveau « RIB » entièrement numérique num en tois partie de 7 caractères

a = num.Substr(0,7)
b = num.Substr(7,7)
c = num.Substr(14,7)

On calcule la clé de vérification verifcle

verifcle = 97-((62*a+34*b+3*c)%97)

Le RIB est juste si la clé du RIB est égale à verifcle (on utilise Number(cle) pour convertir la clé qui est une sous chaîne de la chaîne RIB en valeur numérique, sinon il y a un conflit de type)

return Number(cle) == verifcle
}

Et voilà votre RIB est validé.

Et Comme d'habitude on met en place un ensemble de tests pour valider le tout :

Test
{
Test_main()
{
AssertEq(RIBValid?('15459 45000 0411700920U 62'),true)
AssertEq(RIBValid?('10207 00026 04026011770 83'),true)
AssertEq(RIBValid?('30002 06971 0000072002D 05'),false)
}
}

Les RIB testés ci-dessus ne sont plus actifs, mais si vous voulez faire un gros virement sur un RIB actif, je peut vous communiquer le mien ,-)

Joyeux Noël et bonne année

2007-12-24T09:49:00.000+01:00

Joyeux Noël et bonne année 2008 à tous.

J'espère terminer le transfert de l'ancien SuneiDojo bientôt. et J'espère surtout à la communauté Suneido francophone de faire grandir ce site à la mesure du site Anglophone ;-)

Field_naf : un champ donnant le code et le libellé d'un NAF

2007-11-26T21:51:00.000+01:00

Field_naf permet la recherche d'un code NAF (Nomenclature d'Activités Française) dans la base de donnée INSEE (NAF rév. 1, 2003) et l'affichage de la désignation complète de celui-ci.

Tout d'abord nous devons définir une table qui importera la Nomenclature d'Activités Française Niveau 700 (la plus détaillée, voir le site de l'INSEE pour plus de détail)

Définition de la table NAF700

Database("ensure naf700 (naf_code, naf_libelle) key(naf_code) index(naf_libelle)" )
File("naf/naf_700.txt" )
{ |f|
while (false isnt (ligne = f.Readline()))
{
enr = Record()
valeurs = ligne.Split('\t')
for (i in valeurs.Members())
enr[champs1[i]] = valeurs[i]
QueryOutput ("naf700", enr)
}
}

Cette fonction définie la table naf700 qui est composée des colonnes naf_code et naf_libelle et à comme clé primaire naf_code.

Nous définissons ensuite un paramètre de champs pour un fichier d'import et importons dans la table naf700 les données du fichier naf/naf_700.txt.

Définition du champs naf700

Field_string
{
Prompt: 'NAF'
Control: (Key 'naf700' field:'naf_code', width: 4)
Format: (Text width: 4)
}

Le champ naf est défini comme un champ string qui est basé sur un contrôle Key prenant en paramètre la table naf700.

Exemple dans Suneido:

Une petite fonction pour convertir une somme en toutes lettres

2007-11-26T21:42:00.000+01:00

Une petite fonction utilisant le méthode EnFrancais pour écrire une somme en euro et toute lettre.

Le code

function(somme)
{
return (somme.Int().EnFrancais()) $ " euro"
$ ((somme.Int())>1? "s" : "" )
$ (somme.Frac() == 0? ( "" ) : ( " et "
$ ((somme.Frac())*100).Round(0).EnFrancais()
$ " centime" $ (((somme.Frac())*100)>1? "s" : "" )))
}

Explications

On décompose la somme en sa partie entière et sa partie décimale :
-Partie entière : somme.Int()
-Partie décimale : somme.Frac()

On applique la méthode EnFrancais à ces deux parties.

On rassemble le tout en tenant compte :
-du pluriel de euro : somme.Int()>1? "s" : ""
-de l'affichage ou nom de centime : somme.Frac()==0?"": ...
-du pluriel de centime : somme.Frac()*100>1? "s" : ""

Utiliser Browse dans un Access pour les liaisons Entête Lignes (Parent Enfants, ...)

2007-11-26T18:52:00.000+01:00

Par Jeff Ferguson Suneido Software
Traduit par Jean Charles Hoarau

Vous avez une table Entête avec une ou plusieurs tables Ligne qui ont une clé étrangère vers la table Entête et vous voulez permettre la saisie de données Lignes dans la fenêtre Entête;

Nous allons utiliser l'exemple d'une facture. La facture aura des lignes normales ainsi que des lignes de port. Voici les tables :

facture (fact_num, fact_date, fact_tiers)
Key(fact_num)

fact_ligne (ligne_num, fact_num, ligne_desc, ligne_montant)
Key(ligne_num)
Index(fact_num) in facture

fact_port(port_num, fact_num, extra_desc, extra_montant)
Key(port_num)
Index(fact_num) in facture

Pour gérer les clés des tables, nous définissons des règles qui retournent un Timestamp (tampon horaire). Ceci assurera que la valeur du champ est unique. De plus les clés seront renommées de façon à prévenir l'exécution des règles sur les clés étrangères des tables de détail.

Rule_fact_num_new
function()
{
return Timestamp()
}

Rule_ligne_num_new
function()
{
return Timestamp()
}

Rule_port_num_new
function()
{
return Timestamp()
}

Il est important de définir les Champs pour les clés pour s'assurer qu'elles seront traité comme des dates.

Field_fact_num
Field_num
{
}

Field_fact_num_new
Field_fact_num
{
}

Field_ligne_num_new
Field_num
{
}

Field_port_num
Field_num
{
}

Nous avons aussi besoin de dupliquer fact_num. Nous avons besoins de fact_num_new2 parce que nous avons deux contrôles (des BrowseControl) avec le même nom dans RecordControl, les contrôles étant reconnu par leur nom.

Rule_fact_num2
function()
{
return .fact_num_new
}

Maintenant nous devons pouvoir définir un Access pour entrer nos factures :

FactureAccess
#(Access "facture rename fact_num to fact_num_new"
(Vert
fact_date
fact_tiers
(Browse "fact_ligne rename ligne_num to ligne_num_new"
columns: (ligne_desc, ligne_montant)
linkField: "invoice_num",
name: "fact_num_new")
(Browse "fact_port rename port_num to port_num_new"
columns: (port_desc, port_montant)
linkField: "invoice_num",
name: "fact_num_new2")
)
)

l'argument 'name' de Browse doit être un champ ou une règle de la requette maître. l'argument 'linkField' doit être un champ de la requette détail.

Maintenant vous pouvez accéder à l'Access en lançant dans le WorkSpace :

Window(FactureAccess)

Obtenir les lignes selectionnées d'un BrowseControl

2007-11-23T19:25:00.000+01:00

Par Jenebelle
Traduit par Jean-Charles Hoarau

Ingrédient : BrowseControl

Comment obtenir l'enregistrement correspondant à la ligne sélectionnée d'un BrowseControl

Pour obtenir l'enregistrement de la ligne sélectionnée :

sel = browse.GetSelection()

Ceci retourne un objet contenant les index de la ou des lignes sélectionnées.

Pour avoir les données d'un ligne sélectionnée :

row = sel[0]

on obtient l'index de la première ligne sélectionnée si il y en a plusieurs.

data = browse.GetRow(row)

data contient toutes les valeurs de tous les champs de la ligne.

Exemple :

Controller
{
Controls: #(Vert
(Browse 'tables')
(Button "Montrer l enregistrement"))
On_Montrer_l_enregistrement()
{
browse = .Vert.Browse
selected = browse.GetSelection()
if selected.Empty?()
{
Alert("Vous n'avez pas selectionné de ligne")
return
}
if selected.Size() > 1
{
Alert("Vous ne pouvez selectionner qu'une ligne")
return
}
index = selected[0]
rec = browse.GetRow(index)
Alert('Vous avez selectionné la table ' $ Display(rec.tablename))
}
}

Utiliser Excel avec Suneido

2007-11-23T19:13:00.000+01:00

Lire et écrire dans un document Excel à partir de Suneido (testé par moi-même (le traducteur) avec Excel 2002 sur Windows 2000)

Par Claudio Mascioni
Traduit par Jean-charles Hoarau
Ingrédients : COMobject

Recette

Pour Ouvrir une feuille excel à partir de Suneido

excelapp = COMobject("Excel.Application")
excelapp.Visible = true
// true = montre la fenetre excel
// false = cache la fenetre excel
wrkbks = excelapp.Workbooks.Open("c:/test.xls") // le fichier Excel à ouvrir
wrkbks.Release()
excelapp.Release() // pour libérer la mémoire occupée par Excel

Pour obtenir la valeur d'une cellule d'une feuille Excel

excelapp = COMobject("Excel.Application")
excelapp.Visible = false // cache la fenetre excel
wrkbks = excelapp.Workbooks.Open('c:/test.xls')
cellvalue = excelapp.Cells(2,2).Value // retourne la valeur de la cellule B2
wrkbks.Close // ferme la feuille Excel
Print(Display(cellvalue))
wrkbks.Release()
excelapp.Release()

NdT : si vous essayer de lire un nombre flottant (25.00) dans une cellule Excel vous obtiendrez une erreur car les nombres flottants ne sont pas gérés dans l'interface COM de Suneido. Il semblerait que cela ne soit pas très compliqué à mettre en œuvre (fichier sucomobject.cpp méthode com2su) mais comme mes connaissances en C sont nulles alors si cela vous tente...

Pour écrire une valeur dans une cellule d'une feuille Excel existante et sauvegarder la feuille

excelapp = COMobject("Excel.Application")
excelapp.Visible = true; // montre la fenêtre
wrkbks = excelapp.Workbooks.Open("c:\\test.xls")
excelapp.Cells(2,2).Value = Display(Timestamp()) // écrit quelque chose dans la cellule B2
wrkbks.Save
wrkbks.Close
wrkbks.Release()
excelapp.Release()

Pour écrire une valeur dans une cellule d'une nouvelle feuille Excel et la montrer

excelapp = COMobject("Excel.Application")
excelapp.Visible = true;
wrkbks = excelapp.Workbooks.Add()
excelapp.Cells(2,2).Value = Display(Timestamp())
wrkbks.Release()
excelapp.Release()

Pour écrire une valeur dans une cellule d'une nouvelle feuille Excel et enregistrer la feuille

excelapp = COMobject("Excel.Application")
excelapp.Visible = false; // cache la fenêtre
wrkbks = excelapp.Workbooks.Add()
excelapp.Cells(2,2).Value = Display(Timestamp())
wrkbks.SaveAs("c:\\testnew.xls")
wrkbks.Close
wrkbks.Release()
excelapp.Release()

Pour changer le nom des feuilles affichées dans les onglets et écrire une valeur dans chacune d'elle

Modifié car la version d'origine ne fonctionne pas sur Excel 2002/Windows 2000

excelapp = COMobject("Excel.Application")
excelapp.Visible = true;
wrkbks = excelapp.Workbooks.Add()
//
sheet1 = wrkbks.WorkSheets.Add() // original : sheet1 = wrkbks.WorkSheets.(1)
sheet1.Name = 'nameofsheet1' // change le non de la feuille
sheet1.Cells(1,1).Value = 'valuesheet1' // on écrit quelque chose
//
sheet2 = wrkbks.WorkSheets.Add() // original : sheet1 = wrkbks.WorkSheets.(2)
sheet2.Name = 'nameofsheet2'
sheet2.Cells(2,2).Value = 'valuesheet2'
//
sheet3 = wrkbks.WorkSheets.Add() // original :sheet1 = wrkbks.WorkSheets.(3)
sheet3.Name = 'nameofsheet3'
sheet3.Cells(3,3).Value = 'valuesheet3'
//
wrkbks.Release()
sheet1.Release()
sheet2.Release()
sheet3.Release()
excelapp.Release()

ps. copier et coller ce code dans votre espace de travail pour tester si cela marche chez vous.

Maintenir plusieurs bases de données

2007-11-22T22:20:00.000+01:00

Par Biame
Traduit par Jean Charles Hoarau

Est-ce qu'une méthode de travail avec différentes bases Suneido peut vous aider et rendre les développements plus simples? Quels en sont les bénéfices ...

Bénéfices

Chaque projet est « propre » avec seulement « stdlib » et la ou les librairies que vous désirez
Lancer Suneido ou votre application depuis le bureau ou le menu démarrer
Faire cohabiter plusieurs bases de données ou versions de librairie dans différents dossiers
... utiliser seulement une copie de l'exécutable suneido.exe
retour en arrière et contrôle de version facilité
lancer plusieurs espace de travail et vues des bibliothèques en même temps
lancer des tests tout en continuant à développer

Il y en a surement d'autres

Comment?

installer votre suneido comme d'habitude avec l'installateur.

optionnel : je fait une copie de la base standard suneido.db, la renomme base-suneido.db et la met en lecture seule

optionnel : mettre votre dossier d'installation de Suneido dans votre PATH

faire un raccourci pour Suneido.exe

Pour chaque projet (par exemple « CRM »)

créer un répertoire « c:\projets\CRM »
copier la base suneido.db dans le dossier de votre projet c:\projets\CRM\
copier le raccourci Suneido dans le dossier de votre projet c:\projets\CRM\
Modifier le dossier de démarrage du raccourci Suneido par le dossier de votre projet c:\projets\CRM\
optionnel : renommer le raccourci Suneido en quelque chose comme « CRM Suneido »
c'est terminé

Maintenant quand vous cliquer sur le raccourci « CRM Suneido », votre projet ou application démarre Suneido avec la base de donnée située dans le dossier CRM : c:\projets\CRM\suneido.db
... et pas la base de donnée installée dans le répertoire Suneido

Remarque de A. McKinlay : Lors d'une mise à jour de Suneido, vous devez importer dans la base de donnée de votre projet les stdlib, suneidoc et imagebook de la base d'origine mise à jour (on peut créer un fichier .bat pour automatiser tout cela).

Remarque du Traducteur : lorsque voulez travailler en ligne de commande sur votre projet il faut taper : Suneido.lnk -r pour reconstruire la base par exemple (noter bien le .lnk)

La syntaxe de Suneido - Les types de données

2007-11-20T22:37:00.000+01:00

Ce manuel est inspiré par le Manuel Syntax de Ajith.R

Tout langage de programmation manipule des données. Suneido (comme d'autres langages) divise les données en plusieurs types. Ce sont Boolean, Number, String, Date & Object. Je laisse de coté les autres types de données appelés Symbol et Buffer intentionnellement.

Boolean

Un booléen représente une présence ou une absence, un oui ou un non, vrai ou faux.

Quelque chose (une question) qui génère l'une de ces valeurs produit une donnée booléenne.

Dans Suneido, les valeurs booléennes sont représentées par true et false. Rien d'autre ne peut représenter une valeur booléenne.

Number

Dans Suneido un nombre peut être représenté dans trois systèmes :

décimal : Un nombre représenté en système décimal ne peut pas commencer par 0. Il peut commencer par un chiffre compris entre 1 et 9. Il peut contenir un 0 à toutes les autres positions.

octal : Un nombre représenté en système octal peut commencer par un 0. Il peut contenir des chiffre de 1 à 7 mais ni 8 ni 9.

hexadécimal : Pour représenter un nombre en hexadécimal, il doit commencer par 0x. Il peut contenir tous les chiffres et des lettres de a à f en majuscule ou minuscule (le x aussi).

Dans toutes les représentations d'un nombre, un signe + ou - est permis devant le nombre pour représenter une valeur positive ou négative. Ainsi, 21, 025, 0x15 représente la même valeur dans différent système numérique. De même, -21, -O25, -Ox15 sont identique mais différent de 21 ou +0x15.

Les nombres écrits en système décimal peuvent avoir une partie décimale représentée par un point (.) suivi d'un nombre quelconque de chiffres. Seuls les chiffres sont autorisés après le point décimal, aucune des lettres de l'alphabet hexadécimal n'est permis. Si un point suit un nombre octal, il est considéré comme un nombre décimal.

Ainsi, 123.123 est valide. 0123.123 est la même chose que 123.123. 0x7b.123 n'est pas valide. 0x7b.0x7b n'est pas valide.

String

Dans Suneido, une chaîne est un nombre quelconque de caractères entourés par des guillemets. Les guillemets peuvent être simples ' ou doubles ", mais le même type doit être utilisé pour le début et la fin.

"suneido" et 'suneido' représente tous les deux la chaîne suneido.

Si vous avez un type différent de guillemets à l'intérieur des guillemets de début et de fin, ils sont considérés comme faisant partie de la chaîne. Les guillemets de début et de fin marque la chaîne, mais ne fait pas partie de celle ci.

"Suneido, 'génial!'" représente la chaîne Suneido, 'génial!'.

Si vous voulez avoir un guillemet du même type que ceux entourant la chaîne à l'intérieur de celle ci, vous devez le précédé d'un antislash (\).

"Suneido, \"génial!\"" représente la chaîne Suneido, "génial!".

Notez que l'antislash n'est pas compté comme un caractère de la chaîne, mais précise que le caractère suivant à une signification particulière ou à perdu sa signification particulière. On l'utilise pour insérer un guillemet, mais aussi dans d'autres situations :
- Antislash suivi de n signifie un passage à la ligne : "Suneido, \nc'est génial!" représente la chaîne Suneido, c'est génial!
- Antislash suivi de t signifie une tabulation : "Suneido, \tc'est génial!" représente la chaîne Suneido, c'est génial!
- Antislash suivi de r signifie un retour à la ligne : semble identique à \n
- Deux antislash signifie qu'un antislash est inséré dans la chaîne : "Suneido\\Suneida" représente la chaîne Suneido\Suneida

Notez qu'un antislash n'impacte qu'un seul caractère sauf dans deux cas précis :
- l'antislash suivi de x et de deux chiffres ou lettres hexadécimales est utilisé pour représenter une valeur hexadécimale.
- l'antislash suivi de 0 et trois chiffres octaux est utilisé pour représenter une valeur octale.

Notez que dans ces deux cas, à moins que les deux ou trois caractères suivant l'antislash forment une valeur octale ou hexadécimale valide, tous les caractères sont inclus dans la chaîne y compris l'antislash.

Date

Dans Suneido une date est représentée de la façon suivante :

#AAAAMMJJ.HHMMSSmmm

Chaque date commence par un dièse (#). Huit chiffres suivent le dièse et éventuellement un point suivi d'au plus neuf chiffres. Les huit chiffres suivant le dièse sont obligatoire, mais pas le point ni les neuf chiffres suivants. Toutes les positions ont une tranche de valeur valide.

- AAAA : représente l'année et doit former une année valide. Bien que Suneido ne gère que les années après 1600, seule la valeur 0000 est refusée.
- MM : représente le mois et doit être compris entre 00 et 12. Vous ne devez pas oublier le 0 devant les mois à un chiffre.
- JJ : représente le jour et doit être un jour valide du mois et de l'année défini par AAAAMM. Ici aussi il ne faut pas oublier le 0 sur les jours à un chiffre.

Si vous avez un point, au moins un chiffre doit suivre.

- HH : représente les heures et doit être compris entre 00 et 23. Si seulement un chiffre est entré après le point alors HH vaut 00.
- MM : représente les minutes et doit être compris entre 00 et 59. Si il y a moins de quatre chiffres après le point alors MM vaut 00.
- SS : représente les secondes et doit être compris entre 00 et 59. Si il y a moins de six chiffres après le point alors SS vaut 00.
- mmm : représente les millisecondes et doit être compris entre 000 et 999. Si il y a moins de neuf chiffres après le point alors mmm vaut 000.

Ainsi #20050104 représente le 4 Janvier 2005. Les heures les minutes, secondes et millisecondes sont à 0.

#200514 n'est pas valide puisqu'il n'y a que 6 chiffres.

#20051412 n'est pas valide puisque 14 ne représente pas un mois valide.

#20050104. n'est pas valide puisqu'une date ne peut pas se terminer par un .

#20050104.01 représente le 4 janvier 2005 1 heure. Les minutes, secondes et millisecondes sont à 0.

#20050104.014 représente le 4 Janvier 2005 1 heure. Les minutes n'ayant qu'un chiffre ils sont à 0. Les secondes et millisecondes sont à 0.

#20050104.0104 représente le 4 janvier 2005 1 heure 4 minutes. Les secondes et millisecondes sont à 0.

#20050104.010405 représente le 4 janvier 2005 1 heure 4 minutes 5 secondes.

#20050104.010405010 représente le 4 janvier 2005 1 heure 4 minutes 5 secondes et 10 millisecondes.

Object

Un Objet est un conteneur. Il contient un ou plusieurs autres types de données. Il s'écrit Object() ou #(). Ce qu'il contient est écrit entre les parenthèses et séparé par une virgule.

Par exemple #("votre nom", 26, #20050104) est un objet. Notre exemple contient les données suivantes :
- une chaîne : "votre nom"
- un nombre : 26
- une date : #20050104

La virgule n'est pas indispensable. Ainsi notre exemple pourra s'écrire #("votre nom" 26 #20050104).

Chaque valeur appartient à un membre. Les noms des membres sont déclarés ainsi : #(nom:"votre nom", age:26, dateentree:#20050104).

Notez qu'aucun des noms de membre ne sont entourés par des guillemets. Notre exemple #("votre nom" 26 #20050104) est équivalent à #(0:"votre nom" 1:"26 2:#20050104). En d'autres termes, "votre nom" est la valeur assigné au membre 0 de l'objet, 26 au membre 1 et #20050104 au membre 2. Si vous ne fournissez qu'une liste de valeur à un objet, alors ils sont assignés à des membres numérotés depuis 0.

Il n'est pas nécessaire que toutes les valeurs soient nommées ou non nommées. Vous pouvez avoir un mixte des deux : #(nom:"votre nom", 26, dateentree:#20050104). Ici "votre nom" est la valeur du membre nom, 26 est la valeur du membre 0 (puisque c'est la première valeur non nommée) et #20050104 est la valeur du membre dateentree.

Si vous spécifiez un nom de membre, mais pas de valeur, alors la valeur du membre est true. Par exemple #(sexemasculin:) est équivalent à #(sexemasculin:true).

Un objet peut avoir d'autres objets comme valeur : #(nom:"votre nom", 26, dateentree: #20050104, #(poste:"PDG", #20050104), true). Dans cet exemple, il y a 3 valeurs non nommées 26 un nombre membre 0, #(poste:"PDG", #20050104) un objet membre 1 et true un booléen membre 2, et deux valeurs nommées "votre nom" assigné à nom et #20050104 assigné à dateentree. Le membre nommé poste ayant la valeur "PDG" ne fait pas directement partie de notre objet. C'est un membre du deuxième membre de notre objet.

Ainsi les objets peuvent représenter des tableaux à une ou plusieurs dimensions.

Comme indiqué ci-dessus, un objet peut être écrit Object() ou #(). Bien que les deux notations décrivent un objet, il y a des différences.

#() décrit un objet statique et Object() un objet modifiable. Dans un #(), toutes les valeurs sont considérées comme des valeurs statiques. Si on écrit #(monnom) cela équivaut à #("monnom"). Si on écrit Object(monnom), Suneido va vérifier si une variable monnom existe, si c'est le cas sa valeur sera assigné au premier membre de l'objet, sinon une erreur signalera qu'il n'y a pas de variable monnom. Pour spécifier que monnom est une chaîne vous devrez l'entourer de guillemet Object("monnom").

Une autre différence concerne les membres de l'objet. Dans un #(), si vous avez un autre objet (qui ne peut être que statique), il peut être représenté seulement par des parenthèses. Le # n'est pas nécessaire. Mais à l'intérieur d'un Object(), vous pouvez inclure un objet statique ou modifiable et le # ne peut être omis. Dans #() vous ne pouvez inclure Object(), mais dans Object() vous pouvez inclure #() ou Object(). Vous pouvez assigner la valeur retournée par une fonction à un membre de Object() mais pas à un membre de #(). De même des classes peuvent être assignées à des membres de Object() mais pas de #(). Enfin si vous avez des valeurs nommées et non nommées dans un Oject(), les valeurs nommées doivent être placées après les valeurs non nommées.

Par exemple #(Date()) représente #("Date" #()), un objet avec deux membres, le premier un chaîne et le second un objet statique vide. Object(Date()) est un objet modifiable avec un membre dont la valeur est le résultat de la fonction Date() (la date système).

#("monnom" Object()) n'est pas valide alors que Object("monnom" Object()) est un objet valide modifiable avec deux membres. Si vous tapez x=26 et ensuite #(x) dans l'espace de travail, la valeur imprimée sera #("x"). Mais si vous tapez x=26 et ensuite Object(x), la valeur imprimée sera #(26).

Attention #("monnom", 26, #20050105) et Object("monnom", 26, #20050105) sont égaux bien que le premier représente un objet statique et le second un objet modifiable, puisque qu'ils ont les mêmes valeurs assignées au mêmes membres. Mais #("monnom", 26, #20050105) et Object(26, #20050105, "monnom") ne sont pas égaux bien qu"ils aient les mêmes valeurs, mais elles ne sont pas assignées aux mêmes membres.

Record sont comme des objets. La différences est qu'ils sont représentés par des {} au lieu des () et qu'ils n'ont que des membres nommées, bien qu'ils soit autorisé d'avoir des membres non nommées. Ici aussi, il y a des Record statiques et modifiables.

Installer Suneido

2007-11-20T22:16:00.000+01:00

Comment télécharger Suneido, l'installer et le paramétrer en langue française.

Téléchargement de Suneido

Vous pouvez vous procurer la dernière version du logiciel sur le site officiel.

Mise en route

Vous avez téléchargé un fichier SuneidoSetupAAMMJJ.exe où AA=année, MM=mois et JJ=jour.
Cliquez sur ce fichier et suivez les instructions en anglais.

Paramétrage

Nous allons installer la version en langue française.

Fermez Suneido
Ouvrez la ligne de commande dans démarrez / exécutez ou appuyez en même temps sur la Touche Windows et sur R, et tapez :

C:\Suneido\suneido -load translatelanguage

et ouvrez une fenêtre MS-Dos et saisissez :

C:\Suneido> suneido -load FrenchSuneidoc

Ouvrez Suneido et dans Workspace, dans le menu IDE, sélectionnez Library View. Ensuite dans la librairie stdlib, cliquez sur init. Dans la ligne :

Suneido.Language = #(name:"english", charset: "DEFAULT")

remplacez "english" par "french" pour avoir la langue française par défaut.

(La manœuvre inverse vous ramènerait de la langue de Molière à la langue de Shakespeare). Les messages ne sont pas traduits.

Utiliser Word avec Suneido

2007-11-20T22:04:00.000+01:00

Lire et écrire dans un document Word à partir de Suneido (testé par Claudio avec Word 97 sur Windows 98 et par moi-même (le traducteur) avec Word 2002 sur Windows 2000)

Auteur : Claudio Mascioni
Traducteur : Jean Charles Hoarau
Ingrédients : COMobject

Quelques documentations sur Word 97 :
http://www.microsoft.com/officedev/articles/Opg/intro/intro.htm
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dno97ta/html/msdn_autooff.asp

Recette

Pour ouvrir un document dans une fenêtre Word

word = COMobject("Word.Application")
word.WindowState = 0 // 0 = défaut, 1=agrandi, 2=réduit
word.Visible= true // true = montre la fenêtre Word, false = cache la fenêtre Word
doc= word.Documents.Open("c:\\test.doc")
doc.Release()
word.Release()

Pour ouvrir un document dans Word et l'imprimer

word = COMobject("Word.Application")
word.WindowState = 0
word.Visible= true
doc= word.Documents.Open("c:\\test.doc")
doc.PrintOut()
doc.Release()
word.Release()

Pour écrire dans un nouveau document word et changer la police

word = COMobject("Word.Application")
word.Visible = true
doc = word.Documents.Add()
word.Selection.Font.Name = 'Times New Roman';
word.Selection.Font.Size = 18;
word.Selection.Font.Bold = true;
word.Selection.Font.Italic = true;
word.Selection.TypeText("Bonjour ")
word.Selection.Font.Name = 'Arial';
word.Selection.Font.Size = 12;
word.Selection.Font.Bold = false;
word.Selection.TypeText("de ")
word.Selection.Font.Name = 'Times New Roman';
word.Selection.Font.Size = 14;
word.Selection.Font.Bold = true;
word.Selection.Font.Underline = true;
word.Selection.TypeText("Suneido!")
doc.Release()
word.Release()

Pour remplacer des mots dans un document Word

word = COMobject("Word.Application")
word.Visible = true
doc = word.Documents.Open("c:\\test.doc")
// merci à Björn Lietz-Spendig
word.Selection.Find.Execute("@CUSTOMERCODE@ <mailto:CUSTOMERCODE@>",False,True,False,False,False,True,1,False,"CUSTXYZ",2)
//
doc.Release()
word.Release()

Pour ecrire dans un nouveau document word et l'enregistrer

word = COMobject("Word.Application")
word.Visible = true
doc = word.Documents.Add()
range = doc.Range(0,0) // définit la position dans le document
range.InsertBefore("Bonjour de Suneido!")
// ou range.InsertAfter("Bonjour de Suneido!")
doc.SaveAs("c:\\test.doc")
word.Documents.Close() // ferme le document
range.Release()
doc.Release()
word.Release()

Pour créer un tableau dans Word et écrire dans ses cellules

word = COMobject("Word.Application")
word.Visible = true
doc = word.Documents.Add()
wtable = doc.Tables.Add(word.Selection.Range, 3, 3); // colonnes, lignes
//
wtable.Cell(1, 2).Range.Font.Name = 'Times New Roman';
wtable.Cell(1, 2).Range.Font.Size = 18;
wtable.Cell(1, 2).Range.Bold = true;
wtable.Cell(1, 2).Range.Font.Italic = true;
wtable.Cell(2, 1).Range.ParagraphFormat.Alignment = 1 // 0= gauche, 1=centrer, 2=droite
wtable.Cell(1, 2).Range.Text = 'ligne1-colonne2' // ligne, colonne
//
wtable.Cell(2, 1).Range.Font.Name = 'Arial';
wtable.Cell(2, 1).Range.Font.Size = 12;
wtable.Cell(2, 1).Range.Bold = false;
wtable.Cell(2, 1).Range.ParagraphFormat.Alignment = 2
wtable.Cell(2, 1).Range.Text = 'ligne2-colonne1'
//
wtable.Cell(3, 3).Range.Font.Name = 'Times New Roman';
wtable.Cell(3, 3).Range.Font.Size = 14;
wtable.Cell(3, 3).Range.Bold = true;
wtable.Cell(3, 3).Range.Font.Underline = true;
wtable.Cell(2, 1).Range.ParagraphFormat.Alignment = 0
wtable.Cell(3, 3).Range.Text = 'ligne3-colonne3'
//
wtable.Release()
doc.Release()
word.Release()

Autres propriétés des polices

Range.Font.Emboss = true
Range.Font.Engrave = true
Range.Font.Kerning = true
Range.Font.Shadow = true
Range.Font.StrikeThrough = true
Range.Font.Subscript = true
Range.Font.Superscript = true
Range.Font.Color:= wdColorBlue;

Pour lire des valeurs dans un document Word

word = COMobject("Word.Application")
word.Visible = true
doc = word.Documents.Open("c:\\test.doc")
wtable = word.ActiveDocument.Tables.Item(1);
tCols = wtable.Rows.Count;
tRows = wtable.Columns.Count;
cellText = wtable.Cell(1, 2).Range.Text; // Cell(x,x) commence à 1,1
//
// enlève les tabs et les retours à la lignes de celltext
// "\x0D" ctrl M - CR, "\x07" ctrl G - Bell
cellValue = cellText.Tr("\x0D").Tr("\x07")
//
Print(Display(cellValue))
//
wtable.Release()
doc.Release()
word.Release()

Mise en page des documents

doc.PageSetup.LeftMargin = 100 // en points
doc.PageSetup.RightMargin = 200
doc.PageSetup.TopMargin = 300
doc.PageSetup.BottomMargin = 300

Pour changer les propriétés du document Word

word = COMobject("Word.Application")
word.Visible = true
doc = word.Documents.Open("c:\\test.doc")
//
word.ActiveDocument.BuiltInDocumentProperties(0x00000001).Value = 'Titre du document';
word.ActiveDocument.BuiltInDocumentProperties(0x00000002).Value = 'Sujet du document';
word.ActiveDocument.BuiltInDocumentProperties(0x00000003).Value = 'Auteur du document';
word.ActiveDocument.BuiltInDocumentProperties(0x00000005).Value = 'Commentaires du document';
//
doc.Release()
word.Release()

Quelques BuiltInDocumentProperties:

wd_Title = 0x00000001
wd_Subject = 0x00000002
wd_Author = 0x00000003
wd_Keywords = 0x00000004
wd_Comments = 0x00000005
wd_Template = 0x00000006
wd_LastAuthor = 0x00000007
wd_Revision = 0x00000008
wd_AppName = 0x00000009
wd_TimeLastPrinted = 0x0000000A
wd_TimeCreated = 0x0000000B
wd_TimeLastSaved = 0x0000000C
wd_VBATotalEdit = 0x0000000D
wd_Pages = 0x0000000E
wd_Words = 0x0000000F
wd_Characters = 0x00000010
wd_Security = 0x00000011
wd_Category = 0x00000012
wd_Format = 0x00000013
wd_Manager = 0x00000014
wd_Company = 0x00000015
wd_Bytes = 0x00000016
wd_Lines = 0x00000017
wd_Paras = 0x00000018
wd_Slides = 0x00000019
wd_Notes = 0x0000001A
wd_HiddenSlides = 0x0000001B
wd_MMClips = 0x0000001C
wd_HyperlinkBase = 0x0000001D
wd_CharsWSpaces = 0x0000001E

Pour obtenir la langue par défaut de Word

word = COMobject("Word.Application")
word.Visible = true
doc = word.Documents.Open("c:\\test.doc")
Print(Display(word.System.Country)); // retourne le code langue i.e. 33 France
doc.Release()
word.Release()

Je pense que ce sont quelques valeurs retournées :

id_USA = 1
id_Canada = 2
id_LatinAmerica = 3
id_wdNetherlands = 31
id_France = 33
id_Spain = 34
id_Italy = 39
id_UK = 44
id_Denmark = 45
id_Sweden = 46
id_Norway = 47
id_Germany = 49
id_Peru = 51
id_Mexico = 52
id_Argentina = 54
id_Brazil = 55
id_Chile = 56
id_Venezuela = 58
id_Iceland = 354
id_Finland = 358

ps. copier et coller le code dans l'espace de travail de Suneido pour tester si celà marche chez vous.

Comment télécharger et installer Homebank

2007-11-20T21:51:00.000+01:00

Téléchargement

Homebank.zip

Ce fichier compressé comprend :

hb_compte.su : fichier des comptes
hb_operation.su : fichier des opérations
hb_affectation.su : fichier des affectations
hb_ecritures.su : fichier des écritures
hb_abonnement.su : fichier des abonnements
bankbook.su : manuel d'aide
banklib.su : la bibliothèque

et aussi pour les perfectionnistes :

bankappli : fichier de paramétrage au démarrage de l'application
HomeBank.ico : icone
HomeBank.iss : script pour l'installateur InnoSetup
licence.txt : mise en garde de l'utilisateur

ainsi que :

installation.txt : rappel des explications que vous pouvez trouver ci-dessous

(Pour les impatients, il existe une version de démonstration prête à l'emploi)

HomebankInstall.zip

Installation
Vous devez au préalable copier tous les fichiers dans votre répertoire Suneido. Pour cela, ouvrez la ligne de commande dans démarrez / exécutez ou appuyez en même temps sur la Touche Windows et sur R, et tapez :

C:\Suneido\suneido -load bankbook
C:\Suneido\suneido -load banklib

Ensuite, il faut ouvrir la bibliothèque banklib dans Vue de bibliothèques / Fichier / Ouvre une bibliothèque-> banklib

Puis sélectionnez banklib/Database/CreateTable et créez les tables en faisant "F9" ou"!" ou Outils/Exécuter

Enfin dans Espace de travail exécutez et admirez le travail :

Window(Bank_FenetreControl)

C'est mieux avec un raccourci sur le bureau. Pour cela :

créez un icone sur le bureau d'un clic droit Nouveau / Raccourci, puis Parcourir, avec en ligne de commande C:\Suneido\suneido.exe bankappli, cliquez sur suivant et changez le nom de suneido.exe par "Homebank" et validez sur Terminer.
faites un clic droit sur l'icone, cliquez sur Propriétés, puis sur Changer d'icone, Parcourir, Suneido, HomeBank.ico, Ouvrir, Ok, Ok et vous aurez droit à une petite maison.

Détail de bankappli :

Use ("banklib"); Window(Bank_FenetreControl, exitOnClose:)

Télécharger le manuel utilisateur

2007-11-20T21:43:00.000+01:00

Le manuel utilisateur est disponible en version francisée d'après la mise à jour du 1er septembre 2005.

Il existe sous trois formes :

- un livre à installer dans Suneido. Pour cela, après avoir décompressé ce fichier, copiez le dans votre répertoire Suneido. Puis chargez le fichier :

En utilisant la ligne de commande, que l'on obtient avec démarrez/exécutez ou Touche Windows+R, tapez :

c:\Suneido\suneido -load FrenchSuneidoc

Ou en ouvrant une fenêtre MS-Dos et saisissez :

C:\Suneido> suneido -load FrenchSuneidoc

(Dans les deux cas, Suneido doit être fermé au risque d'avoir un message Error Fatal : can't open : suneido.db)

Ensuite allez dans Espace de travail/IDE/Ouvrir un livre/FrenchSuneidoc.

Vous pouvez également modifier le menu de Suneido pour utiliser le manuel en français (avec la touche d'accès rapide F1) tout en conservant la version originale en anglais. Pour cela, dans EDI/Vue des bibliothèques, ouvrez stdlib/Tools/Ide/Plugin_HelpMenu et remplacer le code :

(UI, action, menu: Help, name: "&Users Manual",
target: function (@args) { PersistentWindow(#(Book, suneidoc,
"User's Manual", help_book:)) })

par le code suivant :

(UI, action, menu: Help, name: "&Users Manual",
target: function (@args) { PersistentWindow(#(Book, FrenchSuneidoc,
"User's Manual", help_book:)) })
(UI, action, menu: Help, name: "&Manuel original en anglais",
target: function (@args) { PersistentWindow(#(Book, suneidoc,
"User's Manual", help_book:)) })

- un dossier au format Html à lire avec votre navigateur préféré. Après avoir décompressé et copié le dossier, cliquez sur Cover.htm pour démarrer la visualisation.

- un fichier au format pdf de 539 pages à lire avec Acrobat Reader (après l'avoir décompressé)
<doc84|center>

ps : Vérification des 16775 liens le 16/09/2005 : 4 liens brisés dans Outils/Créateurs d'états (sera modifié dans la prochaine mise à jour de Suneido)

Ecrans de Suneido

2007-11-20T21:35:00.000+01:00

Quelques Ecrans de Suneido en action

Espace de travail SuneidoVue des bibliothèques de code Suneido

Vue des requêtes Suneido

Vue des schémas de la base de donnée Suneido

Le contrôleur de version intégré à Suneido

Bienvenue sur SuneidoFR

2007-11-20T21:31:00.000+01:00

SuneidoFR est un espace collaboratif sur Suneido et les projets Francophones l'utilisant.

Vous y trouverez dans la documentation, de quoi débuter avec Suneido, des trucs et astuces et des articles de fond.

Si vous développez une application avec Suneido, nous pouvons et vous pouvez en parler sur ce Blog.

Suneido(R) est une plateforme d'application intégrée - un système complet et homogène pour développer et déployer des applications, sans avoir recours à différents produits. Suneido comprend son langage de programmation orienté-objet, sa base de données client-serveur, ses interfaces de travail et ses composants. Il inclut l'environnement de développement utilisé pour créer des applications monopostes ou réseau, aussi bien comme client que comme serveur. Suneido est un logiciel libre (Open Source), fourni gratuitement avec son code source complet.

Suneido fête ses 7 ans : la première version Open Source date d'octobre 2000!

Bienvenue

2007-11-20T07:56:00.000+01:00

Bienvenue sur le nouveau site Francophone dédié à Suneido.

Ce site reprend le flambeau de SuneiDojo et fonctionnera en paralelle avec le GoogleGroup SuneidoFR.

Dans les prochaines semaines je vais transférer l'ancien site sur ce Blog et sur le Groupe.

alors à bientôt