Discussion :

[dilejeu]

Bonjour à tous,

Je suis une nouvelle venue dans le monde de Paradox, donc forcement j'ai quels questions à poser
Voilà mon souci : J'ai un ensemble de script sous paradox 8 avec une date de fin de mois. Ces scripts sont à exécuter tous les mois et donc, par conséquent, ce paramètre change.
La technique mise en place actuellement, est d'ouvrir un par un les scripts qui utilisent cette date et de la changer à la main (travail laborieux )

Donc la question est, peut-on faire des script paramétrés??

Merci d'avance

[ALWEBER]

Oui c'est possible. Mets moi le source d'un script et je te montrerai comment faire.

[dilejeu]

Voila, merci beaucoup

rien que de savoir que s'est possible me rempli de joie
Vivement la suite !!!

PS: dans ce script il y a enfait deux parametres (fin de mois + fin de mois M-1)

[ALWEBER]

Voici un exemple de code. Je peux le preciser si tu le souhaites.
Bon travail!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
31
32
var
  D1 , D2 date
  St_Filtre string
  Tc1 Tcursor
  q4 query
endvar
{
En paradox une variable date est en fait un nombre entier exprime
en nombre de jour ecoules depuis un point de depart qui peut etre
le 01/01/1900  ou le 01/01/0000 suivant le format de table Paradox.
}
 
  D1 = Today()
  D1.View() ; ici tu rentres la date que tu veux
  while d1.day() <> 1 D1 = D1 - 1 endwhile
  D2 = D1 + 32
  while d2.day() <> 1 D2 = D2 - 1 endwhile
  ST_Filtre1 = ">= "+String(D1)+" , <"+String(D2)
  ST_Filtre1.view()
 
; reprise de ta requete q4 modifiee
q4=Query
 
OPTIONS: NO AUXILIARY TABLES
ctx_m.DB | RADPER      | ENCTOT     | LIBELLE DR | Date debut ctx |
             | calc nombre | calc somme | DR..       | ~ST_Filtre1    |
 
ctx_m.DB | Elt struct ctx |
            | sauf 0005560   |
 
EndQuery
q4.executeqbe(":tablbord:ctfx_dr.DB")

[dilejeu]

serait-il possible plutot de faire quelque chose comme cela???

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
ctx_m.DB | RADPER      | ENCTOT     | LIBELLE DR | Date debut ctx |
           | calc nombre | calc somme | DR..       | >= String(D1) , <String(D2)|
 
ctx_m.DB | Elt struct ctx |
            | sauf 0005560   |

en effet dans certaine requete, je n'ai besoin que de D2

De plus,
il se trouve qu'en réalité j'ai un script du type:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
method run(var eventInfo Event)
 
play ("Tabl14.ssl")     ; enrichissement des partenaires CTX
; importer de "mes documents" a_pctx2.db
; !!!! changer la date en Q2 pour entrées CTX anciennes	
 
play ("ENRI_MAR.ssl")    	; enrichississement des marchés DDC
 
play ("ENRICH.ssl")   	;   enrichississement général	
; Changer la date en Q2 date sortie DRA
 
play (":tablbord:ctx.ssl")        ; stock ctx du mois total, par Caisse Locale
; et flux Caisse Locale changer le mois
 
play (":tablbord:dcg_cdl.ssl")		 ;prets et clients de moins de 4 ans pour le DCG
; et atout libre risqués
;!!!   changer les dates tous les mois
 
play (":tablbord:Création fichiers pour Access BD1.ssl")	 ;prets et dépôts du moisde moins de 4 ans pour le DCG
; et défaut du mois
;!!!   changer les dates tous les mois
 
endmethod

donc je voudrai savoir si le parametrage peu etre saisie dans ce script puis utilisé par tous les autre??

Merci encore pour ma methode de parametrage

[ALWEBER]

Dans le script principal tu mets quelque chose du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
var
  D1 , D2 date
endvar
  D1 = Today()
  while d1.day() <> 1 D1 = D1 - 1 endwhile
  D2 = D1 + 32
  while d2.day() <> 1 D2 = D2 - 1 endwhile
 
  writeEnvironmentString("DATE1",String(D1))
  writeEnvironmentString("DATE2",String(D2))

Dans chaque script appelé tu récupère les variables globales

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
var
  st_Date1, st_Date2 string
endvar
  st_Date1 = readEnvironmentString("DATE1")
  st_Date2 = readEnvironmentString("DATE2")

Enfin tu les passes en paramètre à tes requêtes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
ctx_m.DB | RADPER      | ENCTOT     | LIBELLE DR | Date debut ctx |
           | calc nombre | calc somme | DR..       | >= ~st_Date1 , < ~st_Date2 |
 
ctx_m.DB | Elt struct ctx |
            | sauf 0005560   |

[dilejeu]

C'est génial !!!
je te remercie beaucoup, cela va vraiment facilité le travail !!!!!

Bonne continuation et vive le forum