FORUM WINDEV

Forum windev 11 & plus récentes

probléme avec hcopieEnreg

Bonjour
sur sélection d'une ligne combo j'ai ce code:
hcopieEnreg(fen_fiche_credit,fen_fiche_debit,sai_nfd,sai_nfd)
nom du f desitin/nom du f source/rubri dest/rubri source
pour moi ce code veux dire
*lorsque je sélectionne une ligne combo la rubrique sai_nfd du fichier destination reçoit l'enregistrement de la rubrique sai_nfd du fichier source
malheureusement j'ai un message d'erreur:
" le champ fen_fiche_credit est inconnu"
et c'est la même chose pour une autre rubrique (montant)

plus ...


Statistiques : 5 Réponses || 31 Vus
Message de doji_lemaitre

Forum windev 11 & plus récentes

Appli qui freeze

Bonjour,

Sous une appli en WD12, j'ai une liste d'articles et je les envoi a certaines personnes.

Je les liste dans une table et si j'ai coché la case alors j'envoie un mail :


// On va récupérer le nombre total de pièces jointes :
POUR CHAQUE LIGNE DE LISTEPJ
nombre_de_pdf++
FIN

HLitPremier(PARAMETRE)
// On parcourt tous les sous totaux du tableau afin de les additionner
POUR CHAQUE LIGNE DE Mail_Seul.Envoi_Mail
j++

// Test pour savoir si on veut envoyer le tarif libre à un client ou non :
SI Envoi_Mail.Envoi = 1 ALORS

// Envoi d'un email par le protocole SMTP
SI EmailOuvreSessionSMTP(UserSMTP,mdpSMTP,PARAMETRE.SMTP,portSMTP)= Vrai ALORS
NomUser = UserSMTP

// Initialise les composantes du mail
Email.Expéditeur = "<"+PARAMETRE.MAIL_EXPEDITEUR+">" // L'expéditeur

Email.Destinataire[1] =Mail_Seul.Mail // Le destinataire

Email.NbDestinataire = 1 // Le nombre de destinataires


Email.Sujet = SAI_Objet..ValeurAffichée // Le sujet
Email.Message = SAI_Message..ValeurAffichée // Le corps du message
Email.NbAttache = nombre_de_pdf // Le nombre de pièces attachées

// Boucle qui permet de parcourir tous les fichiers pdf crées et de les
// mettre en pièces jointe :
// POUR indice=1 a Email.NbAttache
// info(Email.Attache[indice])
// FIN

gsMessage_Erreur = "Problème survenu pendant l'envoi des mails"

// Traitement en cas d'erreur
HSurErreur("*",hErrIntégrité,"erreur_intégrité")

// Envoie le mail
SI PAS EmailEnvoieMessage(UserSMTP) ALORS
nb_mail_envoye--
Trace("Erreur pendant l'envoi des tarifs à "+Mail_Seul.RaisonSociale+". Adresse : "+Mail_Seul.Ville+". Mail :"+Mail_Seul.Mail+RC)
// Erreur(EmailMsgErreur(Email.Erreur))
FIN ...

plus ...


Statistiques : 3 Réponses || 50 Vus
Message de niou142

Forum windev 9

migration projet

bonjour

j'ai un projet développé avec windev 4. Il fonctionne depuis 10 ans

Aujourd'hui, je voudrais migrer ce projet sur les versions supérieurs
Voilà ce que j'ai fais:

de v4à v5.5 migration ok
de v5.5à v7 migration ok
de v7 à v9 (que j'utilise actuellement pour les nouveaux projets), j'ai ce message

impossible de treminer l''initialisation
conflit interne (JO)

Merci de votre aide

plus ...


Statistiques : 1 Message || 19 Vus
Message de wided

Forum windev 11 & plus récentes

Connaitre la taille d'un pdf

Bonjour,

Sur une appli en WD12, je créé des pdf que j'envoie par mail.

Le souci c'est que parfois je met trop de pdf et du coup les mails sont trop lourd (et sa fait planter l'application).

Du coup je voudrais afficher le poids des pdf avant envoi (comme ça je coche ceux que je veux envoyer).

Code: Tout sélectionner

// Création du PDF
pdf_cree[nombre_de_pdf] = chemin_fichier + "tarif " + Table_fournisseurs_du_jour.RAISON_SOCIALE + " du " + DateVersChaîne(TARIF_JOUR.SCSélectionDate,"jj-mm-aaaa")+".pdf"
iAperçu(iPDF,pdf_cree[nombre_de_pdf])
iImprimeEtat(LISTE_MULTITARIF)

Et après j'attache pdf_cree en pièce jointe. Comment faire pour connaitre la taille de ce pdf ?

plus ...


Statistiques : 3 Réponses || 40 Vus
Message de niou142

Forum windev 11 & plus récentes

taille d'une chaine avec INILit

Avez-vous une info sur la taille maximum d'une chaine quand on fait un INILit ?
Car j'ai le souci actuellement dans une application et qui tourne sur du Xp, Vista et Seven.
Merci de votre réponse.

plus ...


Statistiques : 3 Réponses || 28 Vus
Message de jeandu69

Forum windev 11 & plus récentes

comment lire successivement plusieurs fichiers textes

Bonjour tous,
je développe une application (Windev 14) qui me permettra de lire de façon successive plusieurs fichiers textes
c'est à dire que dans un répertoire, je dois pouvoir :
1. récupérer le nom du fichier texte
2. lire le contenu et puis passer au fichier suivant et refaire le même scénario

Merci d'avance a tous pour vos interventions

plus ...


Statistiques : 2 Message || 39 Vus
Message de kamdem

Forum windev 11 & plus récentes

probléme impression pdf

Bonjour

mon problème a commencé lorsque à la fin de projet lorsque j'ai crée l’exécutable.En faite l'orsque je veux imprimer un etat en format pdf l'application se palnte .sachant que tout se passe bien en phase des tests!
et voila le code d'impression:

Code: Tout sélectionner

SI SEL_Sélecteur=1 ALORS
// Création d'un nom de fichier unique
ch est une chaîne =fRepDonnées() + "\" + DateSys() + HeureSys() + ".pdf"
// Destination de l'état : Impression de l'état dans un fichier PDF
iDestination(iPDF, ch)
// Impression de l'état basé sur la table "TableClient"
iImprimeEtat(ETAT_fact_selection)
// Affichage de l'état au format PDF
iParamètrePDF("", "", iQualitéMaximale)
iAperçu(ch, "application/pdf")
LanceAppliAssociée(ch)
SINON
SI SEL_Sélecteur=2 ALORS   
   ch2 est une chaîne = fRepDonnées() + "\" + DateSys() + HeureSys() + ".pdf"
   // Destination de l'état : Impression de l'état dans un fichier PDF
   iDestination(iPDF, ch2)
   // Impression de l'état basé sur la table "TableClient"
   iImprimeEtat(ETAT_Etat_bon_selection)
   // Affichage de l'état au format PDF
   iParamètrePDF("", "", iQualitéMaximale)
   iAperçu(ch2, "application/pdf")
   LanceAppliAssociée(ch2)
   
FIN
FIN

Merci d'avance

plus ...


Statistiques : 3 Réponses || 42 Vus
Message de dhianaruto

Forum windev 11 & plus récentes

ecrire en arbe et en français

Bonjour
j'aimerai écrire sur certain champ en arabe et sur d'autres en français (tables,fiches) et êtas
comment faire svp
merci

plus ...


Statistiques : 3 Réponses || 44 Vus
Message de doji_lemaitre

Forum windev 11 & plus récentes

clavier virtuelle

Bonjours
mon clavier virtuelle de Windows 7 ne lance pas donc je crée un interface pop avec des bouton alphabet je chercher une solution pour connaitre champ sélectionnée pour affecte mes valeur de bouton et merci

plus ...


Statistiques : 2 Message || 57 Vus
Message de mourad1987

Forum windev 11 & plus récentes

Interupteur et Table

Bonjour à tous !

Nouvelle requète... car je sèche (une fois de plus)

Alors sur une table j'ai le code dans ma table :

si moimeme = "3" alors
MoiMême..hauteur = -1
FIN

Ca fonctionne à merveille rien à dire.

Mais ce que je souhaiterais aujourd'hui c'est de supprimer le code dans la table et utiliser un interupteur.
Lorsque je coche l'interupteur ca m'active la ligne qui était dans la table donc ca me cache des lignes...

J'espère avoir été un max explicite !

A bientot

romain

plus ...


Statistiques : 3 Réponses || 51 Vus
Message de goupil45