www.ancestrologie.com

Lau · Pro, Modérateur Inscrit le: 01 Avr 2003 Messages: 1541

La V1.5 beta est diponible ici

Modifications attendues : (depuis la V1.2 officielle)

Modif V1.5 beta

Ergonomie

Ajout, grâce à l'intervention d'Aquablue, d'une icône personnalisée (elle n'est pas géniale, mais si quelqu'un peut m'en proposer une libre de droit en 32x32 et 16 couleurs, je suis preneur).
Corrections

Modif V1.4 beta et V1.3 beta

Ergonomie :

Modification de la présentation : introduction des menus
Listes :

Modifications de masse :

SQL :

Paramètres :

Changement de dossier en cours (un bug subsiste sur le raffraichissement de l'entête de la fenêtre. Il suffit de déplacer légèrement la fenêtre pour que le rafraîchissement se fasse correctement)

GUICHARD

Bonjour,

J'utilise ,avec bonheur, cette version beta depuis le mois de janvier. Pourquoi n'est elle pas la version de base car elle fonctionne très bien.

Cordialement.

Ransac

c'est la version de base, les autres n'étant plus entièrement compatibles, mais notre ami Laurent manque de temps pour changer son site ! Wink

_________________
N'oubliez jamais que le mieux est l'ennemi du bien et que la perfection n'est pas de ce monde !
Les définir est un défi, les réaliser est un leurre ! ... mais on aimerait tellement y croire!

GUICHARD

Bonjour,

En continuant mes tests sur la 1.5, j'ai essayé en vain de lancer l'exécution des procédures.
exec pro...
call proc...
call sql proc...

ne fonctionne pas.

Qui peux m'aider car la procédure de recherche d'acte manquant m'intéresse.
Cordialement.

Lau · Pro, Modérateur Inscrit le: 01 Avr 2003 Messages: 1541

Le "exec proc..." ne marche que si la procédure ne renvoie pas de résultat (exemple : elle remplit une table). Il faut alors cliquer sur le bouton "Exécuter procédure" et non "Exécuter requête".
Si la procédure renvoie des résultats, il faut simplement effectuer "select * from proc(param1)" comme pour une table et cliquer sur "Exécuter requête".

GUICHARD

Bonjour,

Merci,

Lau · Pro, Modérateur Inscrit le: 01 Avr 2003 Messages: 1541

Je n'ai pas le BOA ici, mais si la personne que tu recherches a pour NIP=256, quelque chose comme

GUICHARD

Bonjour,

J'ai modifié PROC_STATISTIQUES pour obtenir le nombre de mariages par département.

1) Est ce cette procédure qui permet de créer le dernier rapport statistiques?
Si oui comment modifier la boite à boutons pour avoir le cas
mariage par départements
dans FParamReports

2) Pour éviter de passer par IBeasy pour modifier les procédures, comment créer une procédure dans le BOA. Ou bien comment éxécuter une procédure non PROC_... qui affiche des résultats dans le BOA.

Merci.

PROC_STATISTIQUES modifiée
begin
/*---------------------------------------------------------------------------
Copyright Philippe Cazaux-Moutou. Tout droits réservés.
Créé le : 31/07/2001
à : 19:31:40
Modifiée le :27/07/2004
à : :23:12:00
par : A. GUICHARD
Description : Remonte les statistiques
Naissance par dept I_QUOI = 0 I_QUI = 1
Mort par dept I_QUOI = 0 I_QUI = 0
Mariage par dept I_QUOI = 2 I_QUI = 0 ou 1
Usage :
---------------------------------------------------------------------------*/
if (:I_QUOI = 0) then
for
SELECT Count(0),
DEPT.RDP_LIBELLE,
DEPT.RDP_CODE
FROM EVENEMENTS_IND EVE
LEFT OUTER JOIN REF_DEPARTEMENTS DEPT
/*ON (Cast(DEPT.RDP_CODE As VarChar(10)) = Cast(SUBSTR(EVE.EV_IND_CP, 1,2) As Varchar(10)) OR
Cast(DEPT.RDP_CODE As VarChar(10)) = Cast(SUBSTR(EVE.EV_IND_CP, 1,1) As Varchar(10)))*/
ON(DEPT.RDP_CODE_DEUX =SUBSTR(EVE.EV_IND_CP, 1,2))
where (EVE.EV_IND_KLE_DOSSIER = :I_DOSSIER) AND
((EVE.EV_IND_TYPE = 'BIRT') and (:I_QUI = 1) OR
(EVE.EV_IND_TYPE = 'DEAT') and (:I_QUI = 0)) AND
DEPT.RDP_LIBELLE is not null
GROUP BY DEPT.RDP_LIBELLE,DEPT.RDP_CODE
ORDER BY DEPT.RDP_CODE
INTO :COMBIEN,
:DEPT,
:CODE
do
suspend;
if (:I_QUOI = 1) then
for
SELECT Count(0),
PAYS.RPA_LIBELLE,
PAYS.RPA_CODE
FROM EVENEMENTS_IND EVE
LEFT JOIN REF_PAYS PAYS
ON (UPPER(EVE.EV_IND_PAYS) = PAYS.RPA_LIBELLE )
LEFT JOIN REF_DEPARTEMENTS DEPT
ON(DEPT.RDP_CODE_DEUX =SUBSTR(EVE.EV_IND_CP, 1,2))
/*
ON (Cast(DEPT.RDP_CODE As VarChar(10)) = Cast(SUBSTR(EVE.EV_IND_CP, 1,2) As Varchar(10)) OR
Cast(DEPT.RDP_CODE As VarChar(10)) = Cast(SUBSTR(EVE.EV_IND_CP, 1,2) As Varchar(10)))
*/
where (EVE.EV_IND_KLE_DOSSIER = :I_DOSSIER) AND
((EVE.EV_IND_TYPE = 'BIRT') and (:I_QUI = 1) OR
(EVE.EV_IND_TYPE = 'DEAT') and (:I_QUI = 0)) AND
PAYS.RPA_LIBELLE is not null
GROUP BY PAYS.RPA_LIBELLE,PAYS.RPA_CODE
INTO :COMBIEN,
:DEPT,
:CODE
do
suspend;
if (:I_QUOI = 2) then
for
SELECT Count(0),
DEPT.RDP_LIBELLE,
DEPT.RDP_CODE
FROM EVENEMENTS_FAM EVE
LEFT OUTER JOIN REF_DEPARTEMENTS DEPT
/*ON (Cast(DEPT.RDP_CODE As VarChar(10)) = Cast(SUBSTR(EVE.EV_IND_CP, 1,2) As Varchar(10)) OR
Cast(DEPT.RDP_CODE As VarChar(10)) = Cast(SUBSTR(EVE.EV_IND_CP, 1,1) As Varchar(10)))*/
ON(DEPT.RDP_CODE_DEUX =SUBSTR(EVE.EV_FAM_CP, 1,2))
where (EVE.EV_FAM_KLE_DOSSIER = :I_DOSSIER) AND
(EVE.EV_FAM_TYPE ='MARR') AND
DEPT.RDP_LIBELLE is not null
GROUP BY DEPT.RDP_LIBELLE,DEPT.RDP_CODE
ORDER BY DEPT.RDP_CODE
INTO :COMBIEN,
:DEPT,
:CODE
do
suspend;
end