Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 16/11/2011, 12h40   #1
Membre du Club
 
Homme Claude Larocque
Développeur informatique
Inscription : mai 2009
Messages : 62
Détails du profil
Informations personnelles :
Nom : Homme Claude Larocque
Localisation : Canada

Informations professionnelles :
Activité : Développeur informatique
Secteur : Finance

Informations forums :
Inscription : mai 2009
Messages : 62
Points : 46
Points : 46
Par défaut Imprimer en texte dans un format spécifique

Bonjour,
J'ai quelques champs qui doivent être identique à la colonne "Données expectées"


Par exemple, j'ai essayé me.typeTrans=(typeTrans="ADDI" ) et toutes sortes de combinaisons
mais sans succès.
Veuillez s'il vous plaît noter que les données doivent être non seulement identiques, mais
il y a plusieurs champs qui contiennent un espace à la fin, à moins que je ne stipule le
contraire dans la description.

C'est un beau défi et je sais que plusieurs d'entre vous ont les connaissances requises
pour m'aider. Depuis plus d'une année je programme une application qui est presque terminée
j'aurais besoin d'un dernier coup de pouce de la communauté.


Nom des champs Données expectées
typeTrans - typeTrans="ADDI"
reimpression - reimpression="N"
autreCompte - autreCompte="S"
serveurTrans - serveurTrans=""
tableTrans - tableTrans="Tab1"
(Si le champ [TableNumber] a une valeur de 1 dans le rapport, le résultat doit être Tab1, si la valeur est 50, il doit être Tab50)
paiementTrans - paiementTrans="SOB"
comptoir - comptoir="N"
numeroTrans - numeroTrans="108"
(Si le champ [InvoiceNumber] a une valeur de 108 dans le rapport, le résultat doit être "108", si la valeur est 109, il doit être "109")
dateTrans - dateTrans="20111116023223"
(Pour ce champ, c'est la date ou le rapport est imprimé, le champ [DateHour] est présentement 2011-11-16 02:32:23, il faudrait que le format soit aaaammjjhhnnss
mtTransAvTaxes - mtTransAvTaxes="+000017.99"
(Ce champ est la valeur du champ [ExtendedPriceSum] et le data actuel est de 17,99 $ (format monétaire)
Note: Ce champ représente le total du champ [ExtendedPrice]
TPSTrans - TPSTrans="+000000.90"
(Ce champ est la valeur du champ [TPSSum] et le data actuel est de 0,90 $ (format monétaire)
Note: Ce champ représente le total du champ [TPS]
TVQTrans - TVQTrans="+000001.61"
(Ce champ est la valeur du champ [TVQSum] et le data
actuel est de 1,61 $ (format monétaire)
Note: Ce champ représente le total du champ [TVQ]
mtTransApTaxes - mtTransApTaxes="+000020.50"/>
(Ce champ est la valeur du champ [ExtendedPriceSum]+[TPSSum]+[TVQSum] pas d'espace à la fin de ce champ

endTrans - </trans>
Pas d'espace à la fin de ce champ
endreqMEV - </reqMEV>
Pas d'espace à la fin de ce champ


Merci!
Plus d'information:

Ci-dessous, c'est un fichier texte qui fonctionne parfaitement, j'ai cependant terminé la
dernière portion des champs ci-dessus manuellement et j'aimerais le faire automatiquement
en VBA
Code :
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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
<reqMEV>
<trans 
noVersionTrans="v02.00" 
etatDoc="I" 
modeTrans="O" 
duplicata="N">
<doc>
<graphique>
<![CDATA[]]>
</graphique>
<texte>
<![CDATA[
Date 2011-11-16 02:32:23
FACTURE N°         41
 
 
Serveur:	WALI
TABLE:  50
S2-MOYENNE PIZZA 12"
 1  0,00 $       0,00 $
FRITES RþG. INCLUSE
 1  0,00 $       0,00 $
PEPSI INCLUS
 1  0,00 $       0,00 $
S2-MOYENNE PIZZA 12"
 1  17,99 $     17,99 $
        TOTAL:  17,99 $
            TPS:   0,90 $
          TVQ:     1,61 $
        TOTAL:  20,50 $
 
LIVRAI
 
Apt
Telephone
  ]]>
</texte>
</doc>
<alignement>
<![CDATA[
 
 
 
 
V]]>
</alignement>
<donneesTrans 
typeTrans="ADDI" 
reimpression="N" 
autreCompte="S" 
serveurTrans="" 
tableTrans="Tab1" 
paiementTrans="SOB" 
comptoir="N" 
numeroTrans="41" 
dateTrans="20111116023223" 
mtTransAvTaxes="+000017.99" 
TPSTrans="+000000.90" 
TVQTrans="+000001.61" 
mtTransApTaxes="+000020.50"/>
</trans>
</reqMEV>
Le gouvernement du Québec a demandé à tous les fournisseurs de logiciel de restauration
de respecter ce format, c'est la loi!

Merci d'avance de votre aide

Claude de Québec
toumack est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 17/11/2011, 09h03   #2
Rédacteur/Modérateur

 
Avatar de argyronet
 
Homme Jean-Philippe AMBROSINO
Panseur de bobos en solutions ETL
Inscription : mai 2004
Messages : 3 655
Détails du profil
Informations personnelles :
Nom : Homme Jean-Philippe AMBROSINO
Localisation : France

Informations professionnelles :
Activité : Panseur de bobos en solutions ETL
Secteur : Finance

Informations forums :
Inscription : mai 2004
Messages : 3 655
Points : 6 220
Points : 6 220
Envoyer un message via MSN à argyronet
Bonjour,

Peut-être me faudrait-il avoir les connaissances requises pour comprendre ta demande
ou alors je ne suis pas réveillé...
Un peu de soleil dans ton message donnerait des éclaircissements;

Argy
__________________
Ils comptent sur vous...

Ce qui donne son sens à la communication, c´est la réponse que l´on obtient. Si vous n´obtenez pas la réponse voulue, communiquez différemment.

Web Site@Mail
Livres : VBA pour OFFICE 2007 et MICROSOFT ACCESS 2007
Nouveau Tutoriel : Déployer vos applications avec Microsoft Access 2010
MDB Viewer : Visionneuse Access v4.0
argyronet est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 07h54.


 
 
 
 
Partenaires

Hébergement Web