Discussion :

[asiane]

Bonjour à tous,

En simplifiant la situation, j'ai tout un dossier rempli de fichier image. Ce sont des scans de factures, identifiés par leur numéros de factures.
J'ai un fichier .vbs qui lorsqu'il a 2 arguments renseignés (dossier qui est constant et n° de pièce qui est variable), il m'ouvre l'image de la facture associée :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
'-------------------------------------------------
'Visualisation d'une facture scannée dans scanbank
'-------------------------------------------------
 
Option explicit
 
'----------
'Paramètres
'----------
Dim eListe	'Référence de l'écriture
Dim eDossier	'code du dossier pour document scanné
 
eListe = ""
 
'Test sur le nombre d'arguments passés en comptabilité.
if wScript.Arguments.Count <> 2 Then
	MsgBox "Nombre de paramètre incorrect : Visualisation impossible", vbInformation + vbOKOnly, "Visualisation de pièce"
	WScript.Quit()
End If
 
'-----------------------------
'Récupération des informations
'-----------------------------
 
eDossier = wScript.Arguments(0) 'Code du dossier
eListe = wScript.Arguments(1) 'référence de l'écriture
 
'-------------------------
'Visualisation du document
'-------------------------
 
Dim osdc
Dim codRet
 
if(eDossier<>"") then
	Set osdc = CreateObject("scanged.scandoc")
	osdc.cheminsdc = "C:\WSCAN2\WSCAN_ANCIEN_LIEN\"
 
	codRet = osdc.visu_doc(eListe, eDossier)
 
	If codRet = False Then
		'MsgBox "erreur n°:" + Str(Trim(osdc.noerreur)) + Chr(13) + Trim(osdc.cmessage), vbInformation + vbOKOnly, "Visualisation de pièce " + eDossier
		MsgBox "erreur n°:" + Trim(osdc.noerreur) + Chr(13) + Trim(osdc.cmessage), vbInformation + vbOKOnly, "Visualisation de pièce " + eDossier
	End If
 
end if

Ainsi si, je tape dans un cmd (j'ai mis XXX pour pas montrer le nom de ma société

Code :

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

c:\wscan2\WSCAN_ANCIEN_LIEN\ScanGed.vbs  C_XXXX 955

cela m'ouvre bien la pièce n°955.

J'aimerai faire du reporting (BO ou Crystal Reports) qui liste mes factures et qui vous l'aurez compris contient un lien vers la dite pièce.
Le souci est que si je met le code précédent, il ouvre le fichier mais ne lit pas les paramètres.

Ma question donc : y'a t'il une possibilité qu'en cliquant sur un lien, en plus d'ouvrir le fichier, on passe les paramètres ?

Merci d'avance de vos réponses

[Miistik]

Bonjour,


Dans ton script, tu récupères bien les paramètres saisis afin de retrouver la bonne facture et l'ouvrir, right ?

C'est cela :

Code :

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

1
2
eDossier = wScript.Arguments(0) 'Code du dossier
eListe = wScript.Arguments(1) 'référence de l'écriture

Si tu ajoutes à ton script le fait que lorsqu'il lit les paramètres il les écrit dans un fichier texte (log) puis il ouvre le fichier, c'est bon non ?

Tu as juste à vérifier qu'il y a pas d'erreur dans le code dossier et référence écriture et ensuite tu log les paramètres et tu ouvres le fichier.

En gros, ici :

Code :

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

1
2
3
4
5
6
7
8
 
If codRet = False Then
		'MsgBox "erreur n°:" + Str(Trim(osdc.noerreur)) + Chr(13) + Trim(osdc.cmessage), vbInformation + vbOKOnly, "Visualisation de pièce " + eDossier
		MsgBox "erreur n°:" + Trim(osdc.noerreur) + Chr(13) + Trim(osdc.cmessage), vbInformation + vbOKOnly, "Visualisation de pièce " + eDossier
Else
'log des paramètres dans fichier txt
'ouverture de la facture	
End If