Discussion :

[juliendu01]

Bonjour à tous,

Mon projet ayant bien avancé et notament grace à vous, j'attaque un nouveau point de mon projet le FTP

Je viens vous voir car je suis un peu perdu avec toutes ces commandes...

Voila actuellement ce que j'ai mis en place

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
// Création du fichier externe Liquidation
ResCréationRep est un entier
ResCréationRep = fRepCrée("D:\LSCP\MesLSCP")
SI ResCréationRep <> -1 ALORS
	...
FIN
 
ResCreationLiquidation est un entier
ResCreationLiquidation = fCrée("D:\LSCP\MesLSCP\ExportLiquidation.txt")
SI ResCreationLiquidation <> -1 ALORS
	...
FIN
 
EnregLiquidation est une chaîne
ResEcritureLiquidation est une chaîne
ResCreationLiquidation = fOuvre("D:\LSCP\MesLSCP\ExportLiquidation.txt", foLectureEcriture)
 
EnregLiquidation = (sTypeEnreg+sTypeLiqui+sEntJuri+sNumFourCommande+sRefExtFourCommande+sTypeCodifRefExt+sNumFourExtCommande+sBenefDuMandat+sRefExtBeneMandat+sTypeCodifRefExtBeneMandat+sCodeBanqGuichet+sNumCompteBanc+sCleRib+sTypeDomici+sDatePrevisioMandat+sExercice+sCodeGestCommande+sCodeOpe+sObjetDepense+sDateRecep+sReffacture+sNumEnregFact+sIndicCreationFact+sCommenFact+sDateFact+sDateArriveFact+sSigneMontNetFact+sMontantNetFact+sSigneMontantHT+sMontantHT+sTauxTVA+sSigneMontTTC+sMontantTTC+sCodeTVAMontDivers+sSigneMontantHT+sMontantHT+sTauxTVA+sSigneMontTTC+sMontantTTC+sCodeTVAMontDivers+sRefAvoir+sSigneMontHTAvoir+sMontantHTAvoir+sTauxTVAAvoir+sSigneMontTTCAvoir+sMontantTTCAvoir+sSigneTauxEscompte+sTauxEscompte+sSigneMontantEscompte+sMontantEscompte+sActivTaxable+sProrataTVADedu+sIndicAvoir+sTauxRemiseGlobal+sDelaiPaiement+sTypeDeNbr+sCondiPaiement+sJourTombPaiement+sModePaiement+sDateEcheance+sIndicAnnulation+sNumLiquiAnnu+sNumLiquiOrigine) +RC	
fEcrit(ResCreationLiquidation,EnregLiquidation)
 
 EnregLiquidation = ""
    EnregLiquidation += (sLigneTypeEnreg+sLigneSigneMontantHT+sLigneMontantHT+sLigneTauxTVA+sLigneSigneMontTTC+sLigneMontantTTC+sCodeTVA+sLigneCodeGestCommande+sNumCommande+sCommandeExterne+sNumLigneCommande+sUF+sNumSejourPatient+sUniteFoncExterne+sUniteDistrib+sNumProduit+sRefExtProduit+sTypeCodifRefExtProduit+sNumProduitExt+sDesignation1+sDesignation2+sDesignation3+sDesignation3+sCodeRegroupement+sFamilleProduit+sCompteOrdonnateur+sNumMarcheCommande+sNumLotCommande+sSigneQte+sQte+sPU+sNomenclature+sTypeAchat+sDepenseImprevi+sNumSequentiel+sCodeProjet) +RC
 
	SI ResEcritureLiquidation <> -1 ALORS
		fEcrit(ResCreationLiquidation,EnregLiquidation)
	FIN 
 
FIN 
 
    SI ResEcritureLiquidation <> -1 ALORS
    	fFerme(ResCreationLiquidation)
    FIN
 
// Connexion du poste en cours au serveur FTP
nResConnecte est un entier
nResConnecte = FTPConnecte("***","***","***")
 
// Transfert du fichier "D:\LSCP\MesLSCP\ExportLiquidation.txt"
// dans le répertoire "/Temp" sur le serveur FTP
ResEnvoie est un entier
ResEnvoie = FTPEnvoie(nResConnecte, "D:\LSCP\MesLSCP\ExportLiquidation.txt", "/Temp")
 
// Déconnexion
FTPDéconnecte(nResConnecte)

et voila ce que j'aimerais que sa fasse si possible :

Je souhaite que lorsque au moment d'appuyer sur mon bouton envoyé on créer un répertoire sur l'ordinateur que l'on crée un fichier avec toute mes infos dedans mais j'aimerais que le nom de ce fichier soir composé de la date et l'heure par exemple (LSCP0101200121330.txt) LSCP 01/01/2012 13h30

puis que l'on envoi ce fichier enfin le copier sur mon serveur en renommant extention par .liq

Mais j'aimerais que a chaque fois que l'on appuye sur mon bouton un fichier ce créer puis est envoyé dans mon serveur mais je veux conservé chaque fichier de liquidation ...

Voila désolé pour les fautes et j'ai peu etre pas été assez claire donc n'hésité pas à me poser des questions .

Merci

[frenchsting]

Vérifie le contenu de ton fichier car là, j'ai des doutes...

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
EnregLiquidation est une chaîne
ResEcritureLiquidation est une chaîne
ResCreationLiquidation = fOuvre("D:\LSCP\MesLSCP\ExportLiquidation.txt", foLectureEcriture)
 
EnregLiquidation = (sTypeEnreg+sTypeLiqui+sEntJuri+sNumFourCommande+sRefExtFourCommande+sTypeCodifRefExt+sNumFourExtCommande+sBenefDuMandat+sRefExtBeneMandat+sTypeCodifRefExtBeneMandat+sCodeBanqGuichet+sNumCompteBanc+sCleRib+sTypeDomici+sDatePrevisioMandat+sExercice+sCodeGestCommande+sCodeOpe+sObjetDepense+sDateRecep+sReffacture+sNumEnregFact+sIndicCreationFact+sCommenFact+sDateFact+sDateArriveFact+sSigneMontNetFact+sMontantNetFact+sSigneMontantHT+sMontantHT+sTauxTVA+sSigneMontTTC+sMontantTTC+sCodeTVAMontDivers+sSigneMontantHT+sMontantHT+sTauxTVA+sSigneMontTTC+sMontantTTC+sCodeTVAMontDivers+sRefAvoir+sSigneMontHTAvoir+sMontantHTAvoir+sTauxTVAAvoir+sSigneMontTTCAvoir+sMontantTTCAvoir+sSigneTauxEscompte+sTauxEscompte+sSigneMontantEscompte+sMontantEscompte+sActivTaxable+sProrataTVADedu+sIndicAvoir+sTauxRemiseGlobal+sDelaiPaiement+sTypeDeNbr+sCondiPaiement+sJourTombPaiement+sModePaiement+sDateEcheance+sIndicAnnulation+sNumLiquiAnnu+sNumLiquiOrigine) +RC	
fEcrit(ResCreationLiquidation,EnregLiquidation)
 
 EnregLiquidation = ""
    EnregLiquidation += (sLigneTypeEnreg+sLigneSigneMontantHT+sLigneMontantHT+sLigneTauxTVA+sLigneSigneMontTTC+sLigneMontantTTC+sCodeTVA+sLigneCodeGestCommande+sNumCommande+sCommandeExterne+sNumLigneCommande+sUF+sNumSejourPatient+sUniteFoncExterne+sUniteDistrib+sNumProduit+sRefExtProduit+sTypeCodifRefExtProduit+sNumProduitExt+sDesignation1+sDesignation2+sDesignation3+sDesignation3+sCodeRegroupement+sFamilleProduit+sCompteOrdonnateur+sNumMarcheCommande+sNumLotCommande+sSigneQte+sQte+sPU+sNomenclature+sTypeAchat+sDepenseImprevi+sNumSequentiel+sCodeProjet) +RC
 
	SI ResEcritureLiquidation <> -1 ALORS
		fEcrit(ResCreationLiquidation,EnregLiquidation)
	FIN 
 
FIN 
 
    SI ResEcritureLiquidation <> -1 ALORS
    	fFerme(ResCreationLiquidation)
    FIN

Ton code n'a pas l'air trop mal à première vue (pour la partie ftp).

Code :

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

ResEnvoie = FTPEnvoie(nResConnecte, "D:\LSCP\MesLSCP\ExportLiquidation.txt", "/NomDossierDestination/LCSP" + datesys() + heureverschaine(heuresys(),"HHMM") + ".LIQ")

[mail.spam]

Bonjour,

Peux tu nous dire ce qui te pose problème car tu nous d'écris ce que tu veux faire mais pas ou tu bloque?

-Pour ton point "créer un répertoire sur l'ordinateur"
utilise la commande fRépertoireExiste et fRepCrée

-Pour "nom de ce fichier soir composé de la date et l'heure"
utilise une variable chaine avec les fonctions DateVersChaîne
personnellement je rajouterai un identifiant à ton fichier ainsi tu est sur d'avoir un numéro unique et garder une trace de chaque fichier. (reagrde la fonction DonneIdentifiant())

- pour "renommant extention par .liq" regarde la fonction fRenomme et fExtraitChemin

bon courage et bonne lecture.

[juliendu01]

Juste une question le fichier que j'envoie en ftp est-ce que je le conserve sur mon D ???

[R&B]

Le ftp assure la copie des fichiers de/vers un serveur, pas leur déplacement.
Vos fichiers demeurent donc sur votre ordinateur.

[frenchsting]

Le fichier est copié pas déplacé. Si tu veux le supprimer (en local) utilise fsupprime(nomdufichier).

[juliendu01]

ok parfait alors

Parcontre je veux que ce soit mon fichier lors de sa création qu il y est la date et l'heure le problème c'est comment je récupère le bon fichier au moment de l'envoi?

[frenchsting]

Quelquechose dans ce goût là :

Code :

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

1
2
3
4
5
6
7
NomFichierLiquidation est chaine = LCSP" + datesys() + heureverschaine(heuresys(),"HHMM") + ".LIQ"
 
fouvre("D:\LSCP\"+NomFichierLiquidation, focreation+foecriture)
//toncode de remplissage
// et femeture du fichier
ftpenvoie(ResEnvoie = FTPEnvoie(nResConnecte, "D:\LSCP\"+NomFichierLiquidation,.....
"NomDossierDestination/" + NomFichierLiquidation )

[juliendu01]

J'ai une erreur fatale voici mon code :

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
// Création du fichier externe Liquidation
sNomFichier est une chaîne
ResCréationRep est un entier
ResCréationRep = fRepCrée("D:\LSCP\MesLSCP")
SI ResCréationRep <> -1 ALORS
	...
FIN
 
ResCreationLiquidation est un entier
ResCreationLiquidation = fCrée("D:\LSCP\MesLSCP\ExportLiquidation" + DateSys() + HeureVersChaîne(HeureSys(),"HHMMSS") + ".TXT")
sNomFichier = "ExportLiquidation" + DateSys() + HeureVersChaîne(HeureSys(),"HHMMSS") + ".TXT"
SI ResCreationLiquidation <> -1 ALORS
	...
FIN
 
EnregLiquidation est une chaîne
ResEcritureLiquidation est une chaîne
ResCreationLiquidation = fOuvre("D:\LSCP\MesLSCP\ " +sNomFichier, foLectureEcriture)

[mail.spam]

Et que dis le message d'erreur?

[juliendu01]

Erreur à la ligne 117 du traitement Clic sur BTN_Envoyer.
Vous avez appelé la fonction fEcrit.
Vous avez demandé à manipuler le fichier n°-1 qui n'a pas été ouvert par fOuvre ou fCrée.

Informations techniques

Projet : Projet LSCP

Dump de l'erreur du module <WD110STD.DLL> <11.00Cdc>.

- Appel WL :
Traitement de <FEN_Liste.BTN_Envoyer>, ligne <117>, thread <0>
Fonction <fEcrit>, n° de syntaxe <0>

- Niveau : erreur fatale (EL_FATAL)

- Code erreur : 80022

- Code erreur WD55 : 0

- Pas de code d'erreur système

- Pas de message d'erreur système

- Que s'est-il passé ?
Vous avez demandé à manipuler le fichier n°-1 qui n'a pas été ouvert par fOuvre ou fCrée.

- Infos de debug :
Fonction (8,200)

- Infos attachées :
EIT_DATEHEURE : 20/02/2012 13:36:02
EIT_PILEWL :
Clic sur BTN_Envoyer (FEN_Liste.BTN_Envoyer), ligne 117
Clic sur BTN_ListeLiqui (FEN_Menu.BTN_ListeLiqui), ligne 5
Clic sur BTN_Accepter (FEN_Identification.BTN_Accepter), ligne 15

- Identifiant dans le .err : 1


Assistance

[frenchsting]

Normal, tu as "inversé" 2 lignes :

Code :

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

1
2
3
4
5
6
ResCreationLiquidation est un entier
sNomFichier = "ExportLiquidation" + DateSys() + HeureVersChaîne(HeureSys(),"HHMMSS") + ".TXT"
ResCreationLiquidation = fCrée("D:\LSCP\MesLSCP\"sNomFichier)
SI ResCreationLiquidation <> -1 ALORS
	...
FIN

N'oublie pas que heuresys() change toutes les secondes (HHMMSS)...

[juliendu01]

j'ai échangé les 2 lignes toujours la meme erreur ...

[frenchsting]

1-J'ai l'impression que tu ouvres 2 fois le fichier...

Code :

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

1
2
3
ResCreationLiquidation = fCrée("D:\LSCP\MesLSCP\ExportLiquidation" + DateSys() + HeureVersChaîne(HeureSys(),"HHMMSS") + ".TXT")
...
ResCreationLiquidation = fOuvre("D:\LSCP\MesLSCP\ " +sNomFichier, foLectureEcriture)

2-Ca correspond à quelle ligne la 117 ?

[juliendu01]

ligne 117

Code :

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

fEcrit(ResCreationLiquidation,EnregLiquidation)

fcrée : je crée mon fichier
fouvre : j'ouvre mon fichier pour pouvoir rentré des infos dedans

non?

[frenchsting]

fcrée : je crée mon fichier
fouvre : j'ouvre mon fichier pour pouvoir rentré des infos dedans

non?

Non : fcree(MonFichier) = fouvre(MonFichier, focreation + foecriture)

Je comprends ton erreur. La subtilité est que fcree() était prévu pour un fichier inexistant et fouvre() pour un fichier existant. Aujourd'hui, je ne vois pas pourquoi ils gardent les 2 instructions...

[juliendu01]

okay ... J'avais pas compris cela ^^ en + sa marchais bien avant que je fasse mes derniere manip

Alors pense tu avoir une solution à mon problème?

[frenchsting]

oui : mets en commentaires ta ligne qui ne sert à rien !!!! -> le fouvre()

pui déroule ton code pas à pas pour savoir si ton fichier est bien ouvert (ResOuvreture est différent de -1)

[juliendu01]

sa fonctionne

Je le supprime alors sa ne risque rien pour le reste du code?

Parcontre il envoi bien sur mon serveur mais je me demande si le fichier enfin extention à bien été renommé ... Le problème c'est que je n'ai pas accès au dossier destination voici mon code actuel (sans les lignes de remplissages) :

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
47
48
49
50
51
52
53
54
55
SI TableSelect(TABLE_ListeEntête) = -1 ALORS RETOUR
 
SELON OuiNon("Envoyer la liquidation dans MAGH2?")
	CAS Oui :
// Création du fichier externe Liquidation
sNomFichier est une chaîne
ResCréationRep est un entier
ResCréationRep = fRepCrée("D:\LSCP\MesLSCP")
SI ResCréationRep <> -1 ALORS
	...
FIN
 
ResCreationLiquidation est un entier
sNomFichier = "ExportLiquidation" + DateSys() + HeureVersChaîne(HeureSys(),"HHMMSS") + ".TXT"
ResCreationLiquidation = fCrée("D:\LSCP\MesLSCP\" +sNomFichier)
SI ResCreationLiquidation <> -1 ALORS
	...
FIN
 
EnregLiquidation est une chaîne
ResEcritureLiquidation est une chaîne
//ResCreationLiquidation = fOuvre("D:\LSCP\MesLSCP\ " +sNomFichier, foLectureEcriture)
 
EnregLiquidation = (sTypeEnreg+sTypeLiqui+sEntJuri+sNumFourCommande+sRefExtFourCommande+sTypeCodifRefExt+sNumFourExtCommande+sBenefDuMandat+sRefExtBeneMandat+sTypeCodifRefExtBeneMandat+sCodeBanqGuichet+sNumCompteBanc+sCleRib+sTypeDomici+sDatePrevisioMandat+sExercice+sCodeGestCommande+sCodeOpe+sObjetDepense+sDateRecep+sReffacture+sNumEnregFact+sIndicCreationFact+sCommenFact+sDateFact+sDateArriveFact+sSigneMontNetFact+sMontantNetFact+sSigneMontantHT+sMontantHT+sTauxTVA+sSigneMontTTC+sMontantTTC+sCodeTVAMontDivers+sSigneMontantHT+sMontantHT+sTauxTVA+sSigneMontTTC+sMontantTTC+sCodeTVAMontDivers+sRefAvoir+sSigneMontHTAvoir+sMontantHTAvoir+sTauxTVAAvoir+sSigneMontTTCAvoir+sMontantTTCAvoir+sSigneTauxEscompte+sTauxEscompte+sSigneMontantEscompte+sMontantEscompte+sActivTaxable+sProrataTVADedu+sIndicAvoir+sTauxRemiseGlobal+sDelaiPaiement+sTypeDeNbr+sCondiPaiement+sJourTombPaiement+sModePaiement+sDateEcheance+sIndicAnnulation+sNumLiquiAnnu+sNumLiquiOrigine) +RC	
fEcrit(ResCreationLiquidation,EnregLiquidation)
 EnregLiquidation = ""
    EnregLiquidation += (sLigneTypeEnreg+sLigneSigneMontantHT+sLigneMontantHT+sLigneTauxTVA+sLigneSigneMontTTC+sLigneMontantTTC+sCodeTVA+sLigneCodeGestCommande+sNumCommande+sCommandeExterne+sNumLigneCommande+sUF+sNumSejourPatient+sUniteFoncExterne+sUniteDistrib+sNumProduit+sRefExtProduit+sTypeCodifRefExtProduit+sNumProduitExt+sDesignation1+sDesignation2+sDesignation3+sDesignation3+sCodeRegroupement+sFamilleProduit+sCompteOrdonnateur+sNumMarcheCommande+sNumLotCommande+sSigneQte+sQte+sPU+sNomenclature+sTypeAchat+sDepenseImprevi+sNumSequentiel+sCodeProjet) +RC
 
	SI ResEcritureLiquidation <> -1 ALORS
		fEcrit(ResCreationLiquidation,EnregLiquidation)
	FIN 
 
FIN 
 
    SI ResEcritureLiquidation <> -1 ALORS
    	fFerme(ResCreationLiquidation)
    FIN
 
// Connexion du poste en cours au serveur FTP
nResConnecte est un entier
nResConnecte = FTPConnecte("*****","****","*****")
 
// Transfert du fichier "D:\LSCP\MesLSCP\ExportLiquidation.txt + DateSys() + HeureVersChaîne(HeureSys(),"HHMMSS")
// dans le répertoire "/mag2/don/fic/base/files/importlscp" sur le serveur FTP
ResEnvoie est un entier
ResEnvoie = FTPEnvoie(nResConnecte, "D:\LSCP\MesLSCP\" +sNomFichier , "/mag2/don/fic/base/files/importlscp" +sNomFichier + ".LIQ","",FTPModeASCII)
 
// Déconnexion
FTPDéconnecte(nResConnecte)
 
Info("Votre fichier d'export liquidation à bien été crée et envoyé dans MAGH2")
 
	CAS Non : RepriseSaisie()
 
FIN

[frenchsting]

Si tu n'as pas d'erreur, c que c bon Vérifie quand même le resenvoie...

Il y en a une : ton fichier s'appelle .txt en local. Sur le serveur tu rajoutes l'extension .liq : il s'appelle donc .txt.liq....

De plus il manque le dernier "/"

il faut que tu fasses un fextraitchemin()

Code :

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

1
2
3
4
5
6
7
ResEnvoie est un booleen
ResEnvoie = FTPEnvoie(nResConnecte, "D:\LSCP\MesLSCP\" +sNomFichier , "/mag2/don/fic/base/files/importlscp/" +
fextraitchemin(sNomFichier,ffichier) + ".LIQ","",FTPModeASCII)

SI pas ResEnvoie ALORS
   Erreur("Impossible de copier le fichier sur le serveur FTP...", ErreurInfo())
FIN