 |
ATOUTFOX |
Forum AtoutFoxForum RSS © www.atoutfox.org - ForumRe: centrer une input ou messagebox Bonjour Guy Je te remercie pour ta réponse. Je vais expérimenter cette solution. Amicalement JM André Thu, 22 Aug 2019 08:34:32 GMT Re: centrer une input ou messagebox JM ANDRÉ a exprimé avec précision : > Bonjour à Tous > Quelqu'un aurait-il une classe pour centrer dans la fenêtre en cours (non > l'écran total) une messagebox ou inputbox ? Merci d'avance > Jean-Michel André Bonjour JM Je n'ai pas de réponse en tant que classe, personellement j'utilise depuis les versions DOS! une procédure simple et modulable. WMSGBOX original de ?? je dois chercher *========================================================== PROCEDURE wbox *========================================================== * * SYNTAX: wmsgbox ( * [ * [ * [ * * PARAMETERS: * by a carriage return, CHR(13). * * "System Message" * * file name of the ICON to display or the * field name of the ICON to display. * Icon must be 36 x 36 in size. * The alias may be included with the field name. * * to display message without waiting for user * input. * * to have window centered. * * -1 to have window centered. * * left justification. * * * * * accept a color string that is valid for an * @...SAY command. A color scheme or RGB(...) * color style may be passed as well. For color * scheme, pass the scheme number; for RGB(...) * enclosed the RGB(..) specification in quotes. * <1> - Optional, if a 1 is passed in, then function * returns a number indicating which button was * chosen. * * each button message by a semi-colon (similar * to how each button is separated!) * * a button is selected. WMsgBox() will clear * its read only when this function returns .T.! * To determine which button was selected, you * can use the _CUROBJ value in your validation * * or the number indicating system border type. * The border string must be in this format: * 1ist and 2nd chars are top and bottom * 3rd and 4th chars are the sides * 5th and 6th chars are top left/right corners * 7th and 8th chars are bottom left/right * corners. * * Example: "Äij³Ú¿ÀÙ" will yield a single border * window. * * RETURNS: Character or Numeric. Plusieures fn typiques du DOS pevent être ignorées par une chaine vide. Je peux l'envoyer si nécessaire. Regarde aussi sur atoutfox rubrique 02-SCX: Formulaires Formes d'entrée de données Tu peux la télécharger L'appel se fait au départ de ta fenêtre. Guy Bonemme -- Guy Bonemme --- Cet email a fait l'objet d'une analyse antivirus par AVG. http://www.avg.com Tue, 20 Aug 2019 08:34:32 GMT centrer une input ou messagebox Bonjour à Tous Quelqu'un aurait-il une classe pour centrer dans la fenêtre en cours (non l'écran total) une messagebox ou inputbox ? Merci d'avance Jean-Michel André Fri, 16 Aug 2019 08:34:32 GMT Re: SHOW WINDOW "Standard" Bonjour Eddy, Génial, je n'avais pas vu ta réponse et je te prie de m'en excuser. Du coup en fin de programme j'ajoute pour moi (ici les lettres sont différentes, mais c'est ok) IF WEXIST("Standard") SHOW WIND "Standard" ELSE KEYBOARD "{ALT+C}b{DNARROW}{SPACEBAR}{ENTER}" ENDIF Merci encore JM André Fri, 16 Aug 2019 08:34:32 GMT Probléme IDE Bonjour à tous, Suite à un gros plantage de mon PC d'origine indéterminé, j'ai perdu toute la config de l'IDE, à peu prés la même problématique que le récent post de GLS. J'ai remis en place un config.fpw valide et tout remarche, sauf que je n'ai plus le titre 'Visual Foxpro' dans la barre de tache (juste l'icone du fox) et surtout que lorsque je quitte un formulaire aprés l'avoir modifié, il reste "l'empreinte" du formulaire, juste le cadre sans le détail des objets du formulaire. Le bureau ne revient pas à un écran blanc, ce qui à la longue est un peu génant. Any suggestions ? JP Wed, 14 Aug 2019 08:34:32 GMT Re: FIchier PDF Bonjour Francis, Merci pour le lien, c'est une piste intéressante. J'ai téléchargé l'outil et je vais faire des essais en lançant la ligne de commande et testant le fichier de retour. A+ JP Sun, 11 Aug 2019 08:34:32 GMT Re: indexation UNIQUE2 Guy, Content de t'avoir donné une piste :) En te souhaitant de bon congés ^^ Cordialement Francis Sat, 10 Aug 2019 08:34:32 GMT Re: indexation UNIQUE2 Francis Faure avait écrit le 09/08/2019 : > Bonsoir Guy, > > - Si tu veux qu'une colonne contienne que des des valeurs "uniques" : > définir l'index comme "Candidat" au lieu de "Régulier" > > - Si tu veux qu'une colonne puisse contenir des valeurs dupliquées mais un > index "UNIQUE" (clause de l'époque), alors tu peux mettre la clause > "unique" dans un autre index... > > - Personnellement je n'utilise PAS la clause "unique" en ayant eu trop de > problème provenant des enregistrements supprimés qui du coup rend l'index > "UNIQUE" incomplet... ! > > Je viens de faire un petit PRG de test pour toi : > > [VFP] > create table "c:\temp\ajeter" free ("ID" integer autoinc, "COLONNE1" > char(10), "COLONNE2" char(10)) index on COLONNE1 tag "iColonne1" > index on COLONNE1 tag "uColonne1" unique > > local liI as integer > for liI = 1 to 10 > if mod(m.liI, 2) == 0 > insert into "ajeter" ("COLONNE1", "COLONNE2") values ("Papa", "Maman") > else > insert into "ajeter" ("COLONNE1", "COLONNE2") values ("Maman", "Papa") > endif > NEXT > > SET ORDER TO "iColonne1" > GO top > BROWSE LAST TITLE "sur index iColonne1" > > SET ORDER TO "uColonne1" > GO top > BROWSE LAST TITLE "sur index uColonne1" > > * Vérification de l'ancienne clause "unique" dans l'onglet "Index" : ok > MODIFY STRUCTURE > [/VFP] > > Donc j'obtiens un CDX contenant 2 index sur même champ dont l'un avec la > clause "Unique" ... > > Mais attention : > par exemple après la boucle de remplissage si tu supprime le premier > enregistrement.... , en ajoutant : > > [VFP] > DELETE FROM "ajeter" WHERE ID=1 > [/VFP] > > Alors cela ne fonctionne plus... correctement pour l'index "UNIQUE" > > Certains diront que : "c'est normal" car il faut créer l'index comme ceci : > > [VFP] > index on COLONNE1 tag "uColonne1" FOR !DELETED() unique > [/VFP] > > au lieu de > > [VFP] > index on COLONNE1 tag "uColonne1" unique > [/VFP] > > oui.... et bien faire le test... et le résultat sera le même.... > > Cela donnerait le test final suivant qui révèle bien le problème : > > [VFP] > create table "c:\temp\ajeter" free ("ID" integer autoinc, "COLONNE1" > char(10), "COLONNE2" char(10)) index on COLONNE1 tag "iColonne1" > index on COLONNE1 tag "uColonne1" for !deleted()unique > > local liI as integer > for liI = 1 to 10 > if mod(m.liI, 2) == 0 > insert into "ajeter" ("COLONNE1", "COLONNE2") values ("Papa", "Maman") > else > insert into "ajeter" ("COLONNE1", "COLONNE2") values ("Maman", "Papa") > endif > next > > delete from "ajeter" where id=1 > > set order to "iColonne1" > go top > browse last title "sur index iColonne1" > > * Dysfonctionnement ici : il manque un enregistrement... > set order to "uColonne1" > go top > browse last title "sur index uColonne1" > > * Vérification de l'ancienne clause "unique" dans l'onglet "Index" : ok > modify structure > [/VFP] > > Maintenant si c'est sur un table qui n'a pas de suppression possible (Facture > par exemple) ou un fichier temporaire : alors ça peut être "utilisable"... > > > Mais, personnellement, je n'utilise historiquement jamais la clause "UNIQUE" > > > Cordialement > Francis > > > Le ven. 09 août 2019, 18h54 BONEMME a écrit : >> Bonjour à tous >> >> Est-il possible via le project manager et une table libre 5 champs >> ayant deux index(cdx)sur: champ1 et champ2 >> et d'y ajouter 2 index supplémentaires sur les mêmes champs mais >> UNIQUE. >> ou dois je passer par une indexation IDX manuelle? >> >> Alternative >> passer par des tables temporaires >> SET UNIQUE ON >> (copy champ1 to temp1, idem pour champ2 TO temp2 ) >> use temp1 >> >> Merci de confirmer >> >> Guy Bonemme Françis PRG test Parfait en coupant la première (CREATE..) avant la création des index Mon erreur était la position de unique dans le mauvaise colonne. c'est l'âge... En reprenant la méthode de fonctionnement avec fichier copie champ1 indexé temp unique décrit dans mon mel précédent, la table contenant le résultat reste active (lost focus), cad si un autre choix dans celle-ci avec la souris pointera sur le nv champ1, cette nouvelle valeur est recherchée et comptée dand la table indexée normale et l'ensemble complet affichées non pas dans un vue comme la photo, mais dans un grid. Je ferais un test en utilisant le champ1 avec ses 2 index (CDX) sans passer par un dichier temporaire. A suivre Guy Bonemme -- Guy Bonemme --- Cet email a fait l'objet d'une analyse antivirus par AVG. http://www.avg.com Sat, 10 Aug 2019 08:34:32 GMT Re: indexation UNIQUE Françis Merci c'est ce que pensais +/-, Je vais essayer ta démo. La table en question ne dois pas être éditée sauf par moi. Je réalise un proto de démo sur base de ce que j'ai déjà réalisé (voirphoto) Dans cette dernière j'ai 6 choix de recherche qui détermine le critère Après copie du champs concerné cette table temporaire est indexéeunique,et alimente le grid du dessous. L'utilisateur y effectue sonchoix, et alimente tous les champs dans l'autre vue. Pour voir la table actuelle (xls) www.chfleron.be onglet: Outils derecherches, chx: Couples A+ Guy Bonemme Francis Faure a formulé la demande : > Bonsoir Guy, > > - Si tu veux qu'une colonne contienne que des des valeurs "uniques" : > définir l'index comme "Candidat" au lieu de "Régulier" > > - Si tu veux qu'une colonne puisse contenir des valeurs dupliquées mais un> index "UNIQUE" (clause de l'époque), alors tu peux mettre la clause> "unique" dans un autre index... > > - Personnellement je n'utilise PAS la clause "unique" en ayant eu trop de> problème provenant des enregistrements supprimés qui du coup rend l'index> "UNIQUE" incomplet... ! > > Je viens de faire un petit PRG de test pour toi : > > [VFP] > create table "c:\temp\ajeter" free ("ID" integer autoinc, "COLONNE1"> char(10), "COLONNE2" char(10)) index on COLONNE1 tag "iColonne1" > index on COLONNE1 tag "uColonne1" unique > > local liI as integer > for liI = 1 to 10 > if mod(m.liI, 2) == 0 > insert into "ajeter" ("COLONNE1", "COLONNE2") values ("Papa", "Maman") > else > insert into "ajeter" ("COLONNE1", "COLONNE2") values ("Maman", "Papa") > endif > NEXT > > SET ORDER TO "iColonne1" > GO top > BROWSE LAST TITLE "sur index iColonne1" > > SET ORDER TO "uColonne1" > GO top > BROWSE LAST TITLE "sur index uColonne1" > > * Vérification de l'ancienne clause "unique" dans l'onglet "Index" : ok > MODIFY STRUCTURE > [/VFP] > > Donc j'obtiens un CDX contenant 2 index sur même champ dont l'un avec la> clause "Unique" ... > > Mais attention : > par exemple après la boucle de remplissage si tu supprime le premier> enregistrement.... , en ajoutant : > > [VFP] > DELETE FROM "ajeter" WHERE ID=1 > [/VFP] > > Alors cela ne fonctionne plus... correctement pour l'index "UNIQUE" > > Certains diront que : "c'est normal" car il faut créer l'index comme ceci : > > [VFP] > index on COLONNE1 tag "uColonne1" FOR !DELETED() unique [/VFP] > > au lieu de > > [VFP] > index on COLONNE1 tag "uColonne1" unique > [/VFP] > > oui.... et bien faire le test... et le résultat sera le même.... > > Cela donnerait le test final suivant qui révèle bien le problème : > > [VFP] > create table "c:\temp\ajeter" free ("ID" integer autoinc, "COLONNE1"> char(10), "COLONNE2" char(10)) index on COLONNE1 tag "iColonne1" > index on COLONNE1 tag "uColonne1" for !deleted()unique > > local liI as integer > for liI = 1 to 10 > if mod(m.liI, 2) == 0 > insert into "ajeter" ("COLONNE1", "COLONNE2") values ("Papa", "Maman") > else > insert into "ajeter" ("COLONNE1", "COLONNE2") values ("Maman", "Papa") > endif > next > > delete from "ajeter" where id=1 > > set order to "iColonne1" > go top > browse last title "sur index iColonne1" > > * Dysfonctionnement ici : il manque un enregistrement... > set order to "uColonne1" > go top > browse last title "sur index uColonne1" > > * Vérification de l'ancienne clause "unique" dans l'onglet "Index" : ok > modify structure > [/VFP] > > Maintenant si c'est sur un table qui n'a pas de suppression possible> (Facture par exemple) ou un fichier temporaire : alors ça peut être> "utilisable"... > > > Mais, personnellement, je n'utilise historiquement jamais la clause> "UNIQUE" > > > Cordialement > Francis > > > Le ven. 09 août 2019, 18h54 BONEMME a écrit : >> Bonjour à tous >>>> Est-il possible via le project manager et une table libre 5 champs >> ayant deux index(cdx)sur: champ1 et champ2 >> et d'y ajouter 2 index supplémentaires sur les mêmes champs mais >> UNIQUE. >> ou dois je passer par une indexation IDX manuelle? >>>> Alternative >> passer par des tables temporaires >> SET UNIQUE ON >> (copy champ1 to temp1, idem pour champ2 TO temp2 ) >> use temp1 >>>> Merci de confirmer >>>> Guy Bonemme --Guy Bonemme --- Cet email a fait l'objet d'une analyse antivirus par AVG. http://www.avg.com Sat, 10 Aug 2019 08:34:32 GMT Re: FIchier PDF Bonjour Jean-Pierre, Comme je te l'écrivais + haut : je n'ai pas le besoin de tester un PDF... je te suggérais une recherche google avec "pdf validator online" dans les premières réponses je trouve : https://www.datalogics.com/products/pdftools/pdf-checker/ "PDF Checker enables users to detect problems with PDFs that may impact the ability and reliability of other tools and software to properly view or process PDF files. Built on the Adobe PDF Library, it is an ideal early warning solution to flag potentially problematic PDF files before they make it into your document management system or workflow." test en ligne possible et tu peux le télécharger et le commander ici : https://store.datalogics.com/ au prix de 0 € Pourquoi : ne pas le tester ? PS pour ta question "Martin parles-t'il français ?" la réponse est "un peu mais pas trop" et Martina au support pas du tout. Cordialement Francis Le jeu. 25 juillet 2019, 00h18 jpb a écrit : > Bonjour Francis, > > Je n'ai plus accés au PDF aprés leurs dépots sur le site, donc pas de comparaison possible. > Je n'utilise plus XFRX depuis Foxypreviewer, et dans le cas présent , il s'agit de manipuler plusieurs feuilles provenant d'un gros scanner réseau et qui me génére un fichier PDF global (mais qui aurait pû être en TIFF ou autres). Ce fichier est re-travaillé (split, merge, rotate) pour produire différents fichiers PDF (de une ou plusieurs pages) et j'utilise pour cela un activeX (Image viewer CP gold activeX control, qui coûte assez cher d'ailleurs) avec la possibilité dans certains cas de faire de l'OCR sur un codebarre présent dans le fichier PDF d'origine. > Bref, il s'agit d'un traitement un peu complexe et si, in fine, je pouvait avoir un outil garantissant l'intégrité des PDF en sortie, cela bouclerait la boucle. > Par contre, si Equeus (ou autre d'ailleurs) pouvait me faire un bout de code avec en entrée l'adresse/nom du fichier PDF, et en sortie, un code erreur (0=OK, puis une table d'erreur par exemple) je serai preneur, dans la mesure ou le coût reste mesuré. > Est-ce que Equeus fait ce type de prestation ? Martin parles-t'il français ? > A+ > JP > > > > > . > Fri, 09 Aug 2019 08:34:32 GMT Re: indexation UNIQUE Bonsoir Guy, - Si tu veux qu'une colonne contienne que des des valeurs "uniques" : définir l'index comme "Candidat" au lieu de "Régulier" - Si tu veux qu'une colonne puisse contenir des valeurs dupliquées mais un index "UNIQUE" (clause de l'époque), alors tu peux mettre la clause "unique" dans un autre index... - Personnellement je n'utilise PAS la clause "unique" en ayant eu trop de problème provenant des enregistrements supprimés qui du coup rend l'index "UNIQUE" incomplet... ! Je viens de faire un petit PRG de test pour toi : [VFP] create table "c:\temp\ajeter" free ("ID" integer autoinc, "COLONNE1" char(10), "COLONNE2" char(10)) index on COLONNE1 tag "iColonne1" index on COLONNE1 tag "uColonne1" unique local liI as integer for liI = 1 to 10 if mod(m.liI, 2) == 0 insert into "ajeter" ("COLONNE1", "COLONNE2") values ("Papa", "Maman") else insert into "ajeter" ("COLONNE1", "COLONNE2") values ("Maman", "Papa") endif NEXT SET ORDER TO "iColonne1" GO top BROWSE LAST TITLE "sur index iColonne1" SET ORDER TO "uColonne1" GO top BROWSE LAST TITLE "sur index uColonne1" * Vérification de l'ancienne clause "unique" dans l'onglet "Index" : ok MODIFY STRUCTURE [/VFP] Donc j'obtiens un CDX contenant 2 index sur même champ dont l'un avec la clause "Unique" ... Mais attention : par exemple après la boucle de remplissage si tu supprime le premier enregistrement.... , en ajoutant : [VFP] DELETE FROM "ajeter" WHERE ID=1 [/VFP] Alors cela ne fonctionne plus... correctement pour l'index "UNIQUE" Certains diront que : "c'est normal" car il faut créer l'index comme ceci : [VFP] index on COLONNE1 tag "uColonne1" FOR !DELETED() unique [/VFP] au lieu de [VFP] index on COLONNE1 tag "uColonne1" unique [/VFP] oui.... et bien faire le test... et le résultat sera le même.... Cela donnerait le test final suivant qui révèle bien le problème : [VFP] create table "c:\temp\ajeter" free ("ID" integer autoinc, "COLONNE1" char(10), "COLONNE2" char(10)) index on COLONNE1 tag "iColonne1" index on COLONNE1 tag "uColonne1" for !deleted()unique local liI as integer for liI = 1 to 10 if mod(m.liI, 2) == 0 insert into "ajeter" ("COLONNE1", "COLONNE2") values ("Papa", "Maman") else insert into "ajeter" ("COLONNE1", "COLONNE2") values ("Maman", "Papa") endif next delete from "ajeter" where id=1 set order to "iColonne1" go top browse last title "sur index iColonne1" * Dysfonctionnement ici : il manque un enregistrement... set order to "uColonne1" go top browse last title "sur index uColonne1" * Vérification de l'ancienne clause "unique" dans l'onglet "Index" : ok modify structure [/VFP] Maintenant si c'est sur un table qui n'a pas de suppression possible (Facture par exemple) ou un fichier temporaire : alors ça peut être "utilisable"... Mais, personnellement, je n'utilise historiquement jamais la clause "UNIQUE" Cordialement Francis Le ven. 09 août 2019, 18h54 BONEMME a écrit : > Bonjour à tous > > Est-il possible via le project manager et une table libre 5 champs > ayant deux index(cdx)sur: champ1 et champ2 > et d'y ajouter 2 index supplémentaires sur les mêmes champs mais > UNIQUE. > ou dois je passer par une indexation IDX manuelle? > > Alternative > passer par des tables temporaires > SET UNIQUE ON > (copy champ1 to temp1, idem pour champ2 TO temp2 ) > use temp1 > > Merci de confirmer > > Guy Bonemme > Fri, 09 Aug 2019 08:34:32 GMT indexation UNIQUE Bonjour à tous Est-il possible via le project manager et une table libre 5 champs ayant deux index(cdx)sur: champ1 et champ2 et d'y ajouter 2 index supplémentaires sur les mêmes champs mais UNIQUE. ou dois je passer par une indexation IDX manuelle? Alternative passer par des tables temporaires SET UNIQUE ON (copy champ1 to temp1, idem pour champ2 TO temp2 ) use temp1 Merci de confirmer Guy Bonemme -- Guy Bonemme --- Cet email a fait l'objet d'une analyse antivirus par AVG. http://www.avg.com Fri, 09 Aug 2019 08:34:32 GMT Re: sql view Bonjour, Merci pour l'info, J'en déduis que MySQL 5.7.x et l'ODBC 8.0.x ne sont pas encore à la version idéale pour travailler avec VFP9. j'ai utilisé l'ODBC 5.1 et tout marchait bien avec la version 5.6.x. Que je modifie l'ODBC à la version 8.0 ou j'utilise la version 5.7.x avec le bon ODBC (je dirai la v5.1) tout ne vas pas. Je vais retourner à la version 5.6 en attendant que le bug soit corrigé. D'après ce que j'ai lu c'est peut être encore le FLAG_COLUMN_SIZE_S32. Merci bien, Thu, 01 Aug 2019 08:34:32 GMT Re: sql view Bonjour Il y a beaucoup de changements qu apporte ODBC 8.x et tout n est pas encore claire regardes le document suivant: https://downloads.mysql.com/docs/connector-odbc-relnotes-en.pdf si c a peux te servir bon courage Thu, 01 Aug 2019 08:34:32 GMT Re: sql view bonjour, Oui la connexion est bien créée avec cela. Mais, ce qui m'est intriguant c'est que quand j'utilise la version 5.6 de mysql, avec l'odbc 5.1 32bit, je peux avoir mes vues voila les simulation que j'ai fait test 1: dans la version 5.6 je fais ma connexion avec l'odbc version 5.1 32bit. exemple 1 lcDSNLessx="DSN=MY80;DESCRIPTION=driver MY;SERVER=localhost;UID=Admin;PWD= STORE SQLSTRINGCONNECT(m.lcDSNLessx,.T.) TO Handlex et si je teste ceci SQLEXEC( Handlex, 'call testdb.maproc.("2019-01-16", "7", "var3", "")', "marep") j'obtiens le bon résultat en faisant: SELECT * from marep exemple 2 Mais si j'utilise des variables mémo m.p1 = '2019-01-16' m.p2 = '7' m.p3 = '' m.p4 = '' et je relance sqlexec('call testdb.maproc(?m.p1,?m.p2,?m.p3,?m.p4)',"marep") là aussi j'obtiens le bon résultat exemple 3 et si je crée la vue sql avec ce que j'ai dejà mentionné dans le sujet intial tout va bien, il n'y a pas eu d'erreur. Mais si j'utilise la version 8 d'Odbc. mon résultat s'affiche mais le champs de type integer affiche zéro. test 2: mysql version 5.7 J'utilise l'Odbc version 8.0 résultat exemple 1 : ok résultat exemple 2 : ko, Résultat affichant des valeur 0 dans le champ de type int résultat exemple 3 : ko : erreur de connectivité[Mysql][ ODBC 8.0(w) driver] wrong character set name... J'utilise beaucoup les vues pour alimenter mes grid car je ne sais pas comment on le remplit avec du CA Cordialement, Thu, 01 Aug 2019 08:34:32 GMT Re: sql view Bonjour Regardes bien si tu utilise ODBC 8 32 bits et que tu as crée le connecteur avec %windir%\sysWOW64\odbcad32.exe cordialement Thu, 01 Aug 2019 08:34:32 GMT sql view Bonjour, J'utilise sql view pour avoir accès à une table distant, sur mssql ou mysql mais j'ai fait une update de ma table mysql de 5.6 ver 5.7. Du coup, l'odbc 5.1 bug, Voilà comment je faisais: [vfp] create sql view maview remote connection cnnx as; call xtest(?m.p1, ?m.p2, ?m.p3) [/vfp] et il ne marche plus, pourtant ce manip marche bien avec sql server (exec xtest....) et avec la version 5.6 de mysql mais, maintenant j'ai fait l'update de ma base et il déconne. J'ai tenté d'utiliser l'odbc 8.0 de mysql, mais il affiche les mêmes erreurs et le pire c'est qu'avec ce driver, les champs de type integer deviennent 0, c'est pourquoi j'utilise la version 5.1. Merci de votre aide, cordialement, Rivo HJ Wed, 31 Jul 2019 08:34:32 GMT Re: FIchier PDF Bonjour Jean Pierre, Je suppose que si tu incorpores une signature électronique dans le PDF originel, tu apportes la preuve que c PDF signé est structurellement correcte, alors tu reportes sans ambiguité la responsabilité de la destruction partielle du PDF auprès de ton client.. Amicalement Gilles Thu, 25 Jul 2019 08:34:32 GMT Re: FIchier PDF Bonjour Francis, Je n'ai plus accés au PDF aprés leurs dépots sur le site, donc pas de comparaison possible. Je n'utilise plus XFRX depuis Foxypreviewer, et dans le cas présent , il s'agit de manipuler plusieurs feuilles provenant d'un gros scanner réseau et qui me génére un fichier PDF global (mais qui aurait pû être en TIFF ou autres). Ce fichier est re-travaillé (split, merge, rotate) pour produire différents fichiers PDF (de une ou plusieurs pages) et j'utilise pour cela un activeX (Image viewer CP gold activeX control, qui coûte assez cher d'ailleurs) avec la possibilité dans certains cas de faire de l'OCR sur un codebarre présent dans le fichier PDF d'origine. Bref, il s'agit d'un traitement un peu complexe et si, in fine, je pouvait avoir un outil garantissant l'intégrité des PDF en sortie, cela bouclerait la boucle. Par contre, si Equeus (ou autre d'ailleurs) pouvait me faire un bout de code avec en entrée l'adresse/nom du fichier PDF, et en sortie, un code erreur (0=OK, puis une table d'erreur par exemple) je serai preneur, dans la mesure ou le coût reste mesuré. Est-ce que Equeus fait ce type de prestation ? Martin parles-t'il français ? A+ JP Thu, 25 Jul 2019 08:34:32 GMT Re: FIchier PDF Jean-Pierre En tapant dans Google (notre ami) : "pdf validator online" Je vois une série de réponse de testeurs en ligne... (pas tester) Aussi tu pourrais prendre un pdf qualifiés comme mauvais par la douane et le tester ? Autre piste : garder la copie de te tes PDF envoyé en FTP, récupérer le PDF classifié comme mauvais et faire un winmerge dessus pour savoir si ce n'est pas le serveur distant qui a modifié ton fichier PDF ? Cordialement Francis Wed, 24 Jul 2019 08:34:32 GMT Re: FIchier PDF Bonjour Jean-Pierre, Avec quel outils génères tu tes PDF ? (Exemple si c'est avec XFRX : tu pourras t'adresser au support eqeus qui sauront te le dire.) Cordialement Francis Wed, 24 Jul 2019 08:34:32 GMT Re: FIchier PDF Salut Gilles, C'est bien la procédure qui est en place. En fait, je dépose 1 ou plusieurs PDF, puis un fichier CSV qui est en fait un index et qui contient la liste des PDF constituant la liasse. Le batch de la douane récupére d'abord le CSV et va chercher ensuite les PDF qui sont listés par le CSV. Le support de Chillkat m'a assuré que quand le CSV arrive sur le serveur FTP, les PDF ont déjà été déposé. Par contre, il semblerait que dans un certain contexte, ces fichiers en attente soient déplacés par un traitement annexe de la douane et replacé ensuite, ce qui pourrait bien générer cette erreur, comme l'indique Franck. Malheureusement, le prestataire de la douane est un service administratif local qui globalement ressemble à une sorte de trou noir, pas de son , pas de lumiére. J'ai quand même réussi à avoir un contact mais on avance bit par bit. C'est pour ça que j'aimerai trouver un moyen de certifier l'intégrité des PDF lors de l'envoi. Cela ne réglera pas le pb ,mais cela ne sera plus MON pb. Donc, connaissez-vous un outil (code, activeX,...) permettant de tester l'intégrité d'un fichier PDF-A ? A+ JP Wed, 24 Jul 2019 08:34:32 GMT Re: FIchier PDF Bonsoir, je suppose comme l'indique Franck que l'application côté Douane, relève trop vite le fichier FTP avant que le serveur FTP ait eu le temps de finir de l'écrire sur le disque. Perso, j'utilise un fichier bidon qui me sert de sémaphore (il porte le même nom que le fichier FTP avec une autre extension par exemple .SEM). 1 coté dossier FTP, tant que le fichier .SEM n'est pas présent sur le dossier FTP, je ne relève pas le fichier .PDF équivalent. Je transmet d'abord le .PDF, puis après le .SEM. Comme cela je suis sûr que le fichier .PDF sera entièrement écrit avant son utilisation.. Amicalement Gilles Tue, 23 Jul 2019 08:34:32 GMT Re: FIchier PDF bonjour je trouve sur le web: An end-of-file marker ("%%EOF") could not be found within the file's last 1024 bytes. This can often be due to a PDF file being incompletely uploaded or downloaded. Pour un PDF qui génère cette erreur, récupère le fichier PDF sur le FTP et compare le avec le fichier initial. (MD5, dump ASCII dela fin de fichier) Franck Tue, 23 Jul 2019 08:34:32 GMT FIchier PDF Bonjour à tous, J'ai un pb un peu spéficique avec certains fichiers PDF. Il s'agit d'u programme de dépot de PDF sur le serveur FTP de la douane local (ici, à Nouméa). Voici le contexte : - je génére des PDF correspondant à certaines piéces à déposer sur le serveur; - je les envoie sur le serveur - je récupére des erreurs de dépot sur une adresse email dédié. Réguliérement, environ 10% des dépots, sont en anomalie avec l'erreur "No PDF trailer". Bien évidemment, si j'ouvre le PDF en question avec un reader celui-ci se charge sans pb. Toutefois, on peut penser que le reader est suffisamment intelligent pour passer outre cette erreur. De mon coté, je ne vois pas comment certains fichiers peuvent avoir cette erreur de structure, alors que j'emploi toujours le même composant et que 90% des PDF sont bons (Image Viewer, active X, en l'espéce). Est-ce que cette erreur 'No PDF trailer' vous parle ? Comment tester la présence ou non de la rubrique "Trailer" dans un PDF ? Cordialement. Jean-Pierre Bataille Mon, 22 Jul 2019 08:34:32 GMT Re: set alternate, limité à 8Ko ? Merci pour cette commande que je découvre. j'ai converti mon programme pour l'utiliser, et ca coupe à 8ko aussi! En fait, je viens de trouver un CLOSE ALL au milieu d'une procédure, que j'ai remplacé par Close Databases all... ceci explique cela.... maintenant, tout est ok Merci à vous. Le 19/07/2019 à 01:51, eddymaue a écrit : > meme chose et meme recommendation set textmerge > : >> Bonjour Franck, > >> je viens d'executer ce programme : > >> [VFP] >> SET ALTERNATE TO test_alternate.txt >> SET ALTERNATE ON >> FOR I = 1 TO 1000 >> ? "ligne"+ STR(i,5) + >> "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" >> NEXT && I = 1 TO 1000 >> SET ALTERNATE OFF >> SET ALTERNATE TO >> [\VFP] > >> il donne un fichier de 82ko ... > >> Bon courage ! > >> Jean à Grenoble > >> PS regardes la commande SET TEXTMERGE, elle me parait bien plus >> puissante que SET ALTERNATE > Fri, 19 Jul 2019 08:34:32 GMT Re: set alternate, limité à 8Ko ? meme chose et meme recommendation set textmerge : > Bonjour Franck, > je viens d'executer ce programme : > [VFP] > SET ALTERNATE TO test_alternate.txt > SET ALTERNATE ON > FOR I = 1 TO 1000 > ? "ligne"+ STR(i,5) + "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" > NEXT && I = 1 TO 1000 > SET ALTERNATE OFF > SET ALTERNATE TO > [\VFP] > il donne un fichier de 82ko ... > Bon courage ! > Jean à Grenoble > PS regardes la commande SET TEXTMERGE, elle me parait bien plus puissante que > SET ALTERNATE -- a+ Eddy Merci de partager avec moi votre immense savoir que je me ferai plaisir d'absorber... il va de soi que je vais vous en laisser un peu Politesse et savoir vivre oblige ;0) Thu, 18 Jul 2019 08:34:32 GMT Re: set alternate, limité à 8Ko ? Bonjour Franck, je viens d'executer ce programme : [VFP] SET ALTERNATE TO test_alternate.txt SET ALTERNATE ON FOR I = 1 TO 1000 ? "ligne"+ STR(i,5) + "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" NEXT && I = 1 TO 1000 SET ALTERNATE OFF SET ALTERNATE TO [\VFP] il donne un fichier de 82ko ... Bon courage ! Jean à Grenoble PS regardes la commande SET TEXTMERGE, elle me parait bien plus puissante que SET ALTERNATE Wed, 17 Jul 2019 08:34:32 GMT set alternate=2c limit=c3=a9 =c3=a0 8Ko =3f bonjour à tous j'utilise SET ALTERNATE To d'une moulinette, qui est très bavarde avec des ? (print) en résumé: * VFP9 set alternate to monfichier.txt set alernate on ?... ?... ?... set alternate off set alternate to le programme se déroule bien et affiche de nombreuses lignes de texte à l'écran. Mais à la fin du traitement, monfichier.txt est tronqué à 8ko alors qu'il devrait faire une taille au moins 4 fois supérieure. une idée? Merci Franck Wed, 17 Jul 2019 08:34:32 GMT Re: Connection COM balance Avery Berkel FX120 Protocol, mission impossible, Tom,... Je ne parlais pas de Tom Avery, que je ne connais pas par ailleurs, ce sont des références plus 'mainstream'. JP Thu, 04 Jul 2019 08:34:32 GMT Re: Connection COM balance Avery Berkel FX120 Le mar. 02 juillet 2019, 23h18 jpb a écrit : [...] D'ou mon acharnement à essayer de faire fonctionner la balance Avery mais sans le protocole c'est mission impossible (et même Tom il ne peut rien faire). [...] Jean-Pierre, - Tom Avery... pas mal ! - J'avais envie de répondre "Tex Avery" mais je me suis retenu ^^ Cordialement Francis Tue, 02 Jul 2019 08:34:32 GMT Re: Connection COM balance Avery Berkel FX120 Bonjour, Merci pour ta réponse. J'ai déjà travaillé avec des ports COM et effectivement, il faut s'assurer préalablement que le port COM marche bien, que l'on dispose bien du bon cable de liaison, et que l'on soit certain des paramêtres de communication. On peut alors se pencher sur la programmation en exploitatant le protocole fourni par le revendeur. Et c'est bien là le souci, en l'espéce, je n'ai aucune documentation sur cette balance et je n'ai rien trouvé sur le Web. Coup de chance, il se trouve qu'un second fournisseur local avait à sa disposition une balance d'un autre constructeur (CAS) avec la doc adéquate. Il m'a fallu pas plus de 10mn pour finaliser mon programme. En fait, le véritable probléme est qu'en Nouvelle Calédonie nous sommes un peu loin de tout et qu'en général il faut se débrouiller avec ce que l'on trouve sur place. D'ou mon acharnement à essayer de faire fonctionner la balance Avery mais sans le protocole c'est mission impossible (et même Tom il ne peut rien faire). A+ JP Tue, 02 Jul 2019 08:34:32 GMT Re: Connection COM balance Avery Berkel FX120 Probleme d accents voila le message son accents: Bonjour J ai connecte un pc a l indicateur d un pont bascule pour lire le poids de camions dechargeant du BLE dans une Minoterie , (la Tare de chaque camion connue d avance) par une connexion RS232, pour reussir ta conction a la balance Avery Berkel dans un magasin le probleme est le meme: - Configuration des parametres de la liaison serie (debit, nombre de bits des donnees, parites...) sur le PC. - Envoi d'une chaine de caracte de l ordinateur vers l'autre a la vitesse (debit) pour Test a 2400 bits par seconde, puis a 19200 --> se referer au protocole du Fabricant pour lire ou ecrire dans les registres de la balance toute en gerant les erreurs eventuelles. - au niveau de ton appli utilise un OCX Microsoft pour gerer le Com RS232 sur le pc au vue des parametres du port de la balance (que tu peux chager en suivant les consignes fournis) - utilises un cable serie respectant le shema fournis par le fabricant. bonne chance Tue, 02 Jul 2019 08:34:32 GMT Connection COM balance Avery Berkel FX120 Bonjour à tous, Quelqu'un aurait-il déjà connecté une balance Avery Berkel, modéle FX110/120 à un PC par l'intermédiaire d'un port COM ? Impossible de trouver le protocol de communication pour pouvoir dialoguer avec cette balance. Cordialement. Jean-Pierre Bataille Fri, 28 Jun 2019 08:34:32 GMT Re: VFP9 ne mémorise plus les positions et les tailles des fenêtres dans son IDE Jamais eu le soucis Tous mes projets ont leur propre repértoire et chaque repértoire contient un fichier config.fpw qui specifie le fichier de resource - un par projet [vfp] Default = . Path = . Resource = On Resource = .\Foxuser.dbf Command = Do Env TMPFILES = \tmp\vfp mvcount=16384 [/vfp] Mon, 17 Jun 2019 08:34:32 GMT Re: VFP9 ne mémorise plus les positions et les tailles des fenêtres dans son IDE Trouvé et résolu.. Tous mes projets ont eu leur paramétrage de changé.. l'utilisation du fichier de "resource" a été enlevé du paramétrage de chacun des projets.. (menu OUTILS/OPTION onglet FICHIER paramètre FICHIER RESSOURCE).. Je suppose que l'installation de THOR et Winmerge y soit pour quelque chose.. Pour infos: Si l'on vide ce paramètre et que l'on relance VFP même si (SYS(2005)) indique la présence du fichier de ressource foxuser.dbf et que l'on indique SET RESSOURCE ON, la lecture du fichier de ressource lors du démarrage de VFP ou lors de l'ouverture d'un projet ne s'effectue pas.. GLS Mon, 17 Jun 2019 08:34:32 GMT Re: VFP9 ne mémorise plus les positions et les tailles des fenêtres dans son IDE Bonjour Gregory, Le soucis n'est pas lié au paramétrage de SET RESOURCE (on / off / to file) donne le même résultat, après être sorti de VFP et revenu dans VFP toutes les positions, dimensions, liste des fichiers récents, etc.. ont disparu. SYS(2005) renvoi le chemin du fichier foxuser actif, il me reste à en analyser le contenu pour vérifier que les informations y sont bien écrites.. Amicalement Mon, 17 Jun 2019 08:34:32 GMT Re: VFP9 ne mémorise plus les positions et les tailles des fenêtres dans son IDE Bonjour Geg.. Merci de ton aide, je regarde tout cela.. (j'avais détruit tous les foxuser*.* présents sur ma machine en vain..) Amicalement Sun, 16 Jun 2019 08:34:32 GMT Re: VFP9 ne mémorise plus les positions et les tailles des fenêtres dans son IDE Voir : SET RESOURCE TO 3 cas - le foxuser est corrompu - le SET RESOURCE TO n'est pas actif - SET RESOURCE TO est actif mais est dans un dossier de virtualisation Sun, 16 Jun 2019 08:34:32 GMT VFP9 ne mémorise plus les positions et les tailles des fenêtres dans son IDE Bonjour, depuis l'installation de Thor et de WinMerge (est-ce vraiment la raison ?) VFP9 ne restitue plus dans son IDE les tailles, positions des différentes fenêtres, ni ne conserve et affiche les x derniers projets ouverts etc.. Avez-vous déjà été confronté à ce soucis et si oui comment l'avez -vous résolu ? Cordialement GLS Sun, 16 Jun 2019 08:34:32 GMT Re: Report Blob Image Merci de votre aide GLS Fri, 14 Jun 2019 08:34:32 GMT Re: Report Blob Image Bonjour, Ce code, une fois les erreurs de syntaxe corrigées, ne rendra pas le service escompté. Pour imprimer dans un REPORT ou un LABEL, une ou plusieurs images pour plusieurs enregistrements d'une table / curseur, il faut: - soit avoir dans le table curseur un ou plusieurs champs GENERAL dans lequel / lesquels sera indiqué / stocké le fichier image et ajouter dans le REPORT, LABEL un objet OLE pour chaque image / champ GENERAL - soit utiliser une classe dérivée de la classe _REPORTLISTENER, classe dérivée dans laquelle a été ajouté les propriétés et les méthodes: MyReportListener.graphpictureval = '' MyReportListener.InitObjetGraph() LPARAMETERS p_Field_graph * Ajout d'un objet ObjetImage basé sur la classe de base IMAGE * pour permettre le lien entre le REPORT et la classe ReportListener * afin d'imprimer les images contenues dans le champ BLOB (p_field_graph) WITH m.THIS .graphpictureval = m.p_Field_graph .objetGraph = NEWOBJECT('img') .objetGraph.PICTUREVAL = m.p_Field_graph ENDWITH MyReportListener.objetgraph='' MyReportListener.LoadObject() LPARAMETERS oData AS OBJECT LOCAL oXML AS MSXML2.DomDocument; , oNode AS OBJECT; , cClass AS STRING ** Add a custom handler property to hold handler object ADDPROPERTY(m.oData, "oHandler", NULL) ** Read custom metadata to determine if a custom ** handler object is needed IF NOT EMPTY(m.oData.STYLE) oXML = CREATEOBJECT("MSXML.DomDocument") IF oXML.LOADXML(m.oData.STYLE) oNode = oXML.selectSingleNode("*/rptctrl") IF NOT ISNULL(m.oNode) cClass = LOWER(oNode.getAttribute("class")) oData.oHandler = CREATEOBJECT(m.cClass, m.This, m.oData, m.oNode) ENDIF ENDIF ENDIF oXML = NULL avant de reprendre l'exemple d'utilisation depuis http://www.atoutfox.org/nntp.asp?ID=0000012405 Cordialement GLS Thu, 13 Jun 2019 08:34:32 GMT Re: Report Blob Image Merci Jean, je vais regarder. Thu, 13 Jun 2019 08:34:32 GMT Re: Report Blob Image Oh là !! Il y a longtemps qu'on n'utilise plus do while !EOF() !!!! essaie ceci : SCAN ALL FOR !EMPTY(Decjour2005.imag_blob) cImg = Decjour2005.imag_blob cMat=ALLTRIM(Decjour2005.matricule) cFileImg = (m.lcPath+'photos\'+cMat+".jpg") &&ADDBS(SYS(5) + SYS(2003)) + 'image.jpg'eImgage = IF FILE(m.cFileImg) DELETE FILE (m.cFileImg) ENDIF =STRTOFILE(m.cImg, m.cFileImg,1) replace Decjour2005.path_photo with m.cFileImg &&IF FILE(m.cFileImg) && SELECT Photo_emp && APPEND general Photo_emp.photo_emp from (m.cFileImg) CLASS Paint.Picture && ENDIF eImgage =m.cFileImg ENDSCAN Jean à Grenoble Wed, 12 Jun 2019 08:34:32 GMT Re: Report Blob Image SELECT Decjour2005 cImg = Decjour2005.imag_blob cMat=ALLTRIM(Decjour2005.matricule) cFileImg = (m.lcPath+'photos\'+cMat+".jpg") &&ADDBS(SYS(5) + SYS(2003)) + 'image.jpg' *-------------- go top i = 1 do while !Eof() AND !EMPTY(Decjour2005.imag_blob) cImg = Decjour2005.imag_blob cMat=ALLTRIM(Decjour2005.matricule) cFileImg = (m.lcPath+'photos\'+cMat+".jpg") &&ADDBS(SYS(5) + SYS(2003)) + 'image.jpg'eImgage = IF FILE(m.cFileImg) DELETE FILE (m.cFileImg) ENDIF =STRTOFILE(m.cImg, m.cFileImg,1) replace Decjour2005.path_photo with m.cFileImg &&IF FILE(m.cFileImg) && SELECT Photo_emp && APPEND general Photo_emp.photo_emp from (m.cFileImg) CLASS Paint.Picture && ENDIF eImgage =m.cFileImg i = i+1 skip ENDDO &&cFileImg=Decjour2005.path_photo &&? cFileImg *-------------- SELECT _impimante lcPrinter = alltrim(_impimante.impri3) SET PRINTER TO NAME (lcPrinter) Report form carte111.lbx TO PRINTER PROMPT Wed, 12 Jun 2019 08:34:32 GMT Re: Report Blob Image Bonsoir, met ce code dans une fonction qui doit rendre .T. Si tu as une bande 'en-tête de page', clique droit sur la bande et met = suivi du nom de la fonction dans le champ run expression; on entry si non, clic droit sur un champ du report puis propriétés. dans l'onglet 'print when', met = et le nom de la fonction dans le champ 'Print only when expression is true:' Tiens nous au courant ! Bonne soirée Jean à Grenoble Sun, 09 Jun 2019 08:34:32 GMT Re: Report Blob Image Merci pour votre réponse, Ils fonctionnent très bien merci beaucoup. Mais tous les enregistrements ont la même image S.V.P comment vous imprimez tous les enregistrements avec leurs images Merci. Sun, 09 Jun 2019 08:34:32 GMT Re: Report Blob Image Le 08/06/2019 à 19:06, MSabri111 a écrit : > =STRTOFILE(m.cImg, m.cFileImg',1) il faut enlever le ' après cFileImg : c'est une faute de frappe Bonne soirée Jean à Grenoble Sat, 08 Jun 2019 08:34:32 GMT Re: Report Blob Image Bonjour, ça marche très très bien Merci beaucoup; Mais Tous les enregistrements ont la même photo Comment imprimer tous les enregistrements avec leur photo Merci beaucoup Dr GLS Sat, 08 Jun 2019 08:34:32 GMT Re: Report Blob Image LOCAL cImg AS STRING, cFileImg AS STRING SELECT Decjour2005 cImg = Decjour2005.imag_blob cFileImg = ADDBS(SYS(5) + SYS(2003)) + 'image.jpg' IF FILE(m.cFileImg) DELETE FILE (m.cFileImg) ENDIF =STRTOFILE(m.cImg, m.cFileImg',1) eImgage = m.cFileImg REPORT FORM carte111.lbx PREVIEW RELEASE eImage DELETE FILE (m.cFileImg) Sat, 08 Jun 2019 08:34:32 GMT Re: Report Blob Image Merci de votre aide GLS J'ai une erreur "Function name is missing" dans la line 8 =STRTOFILE(m.cImg, m.cFileImg',1) Sat, 08 Jun 2019 08:34:32 GMT Re: Report Blob Image Bonjour, Une solution simple [VFP] LOCAL cImg AS STRING, cFileImg AS STRING SELECT Decjour2005 cImg = Decjour2005.imag_blob cFileImg = ADDBS(SYS(5) + SYS(2003)) + 'image.jpg' IF FILE(m.cFileImg) DELETE FILE (m.cFileImg) ENDIF =STRTOFILE(m.cImg, m.cFileImg',1) eImgage = m.cFileImg REPORT FORM.. RELEASE eImage DELETE FILE (m.cFileImg) [/VFP] Dans le report ajouter un objet OLE. Dans cet objet OLE mettre dans l'expression ou nom de variable m.eImage Cordialement GLS Sat, 08 Jun 2019 08:34:32 GMT Re: Report Blob Image LOCAL cImg AS STRING, cFileImg AS STRING SELECT Decjour2005 cImg = Decjour2005.imag_blob cFileImg = ADDBS(SYS(5) + SYS(2003)) + 'image.jpg' IF FILE(m.cFileImg) =STRTOFILE(m.cImg, m.cFileImg',1) Sat, 08 Jun 2019 08:34:32 GMT Re: Report Blob Image Merci Hamidou Oui j'ai vu cette article con j'ai exécuté le programme de Dr GLS il me fait une erreur "propriété INITOBJIMAGE Introuvable " je n'arrive pas à adapter à mon programme SET CLASSLIB TO Clas\_reportlistener.VCX ADDITIVE local loRl SELECT Decjour2005 m.loRl = NEWOBJECT("reportlistener","_reportlistener.vcx") * Initialisation des variables eGraph et eImage utilisées dans les REPORTS VFP SELECT Decjour2005 m.loRl.InitObjetImage('Decjour2005.imag_blob') m.eTablo=m.loRl.objetImage loPreview = NEWOBJECT("MaPrevisualisation") * Preview container m.oPc = .NULL. DO (_REPORTPREVIEW) WITH m.oPc m.oPc.CAPTION = "Sabri Blob11111111111" m.oPc.ZoomLevel = 3 && 50% m.oPc.ToolbarIsVisible=.T. m.oPc.CanvasCount = 2 && nombre de page dans l'aperçu m.oPc.SetExtensionHandler(loPreview) && liaison avec l'ExtensionHandler 'MaPrevisualisation' m.loRl.LISTENERTYPE = 1 && Aperçu écran m.loRl.PREVIEWCONTAINER = m.oPc REPORT FORM carte111.lbx OBJECT m.loRl PREVIEW loRl = .NULL. loPreview= .NULL. loPc= .NULL. Sat, 08 Jun 2019 08:34:32 GMT Re: Report Blob Image Bonjour MSabbri regardes la contribution dr GLS : http://www.atoutfox.org/nntp.asp?ID=0000012405 je pense qu elle te sera utile Fri, 07 Jun 2019 08:34:32 GMT Report Blob Image Bonjour, J'ai un report dans lequel je voudrais imprimer des cartes professionnels que j'ai stocké dans un champ blob mais comment le rajouter directement dans l'état avec le control Picture/oledb bound ? car quand je mets dans expression le champ blob de ma table, ça me met qu'il ne trouve pas le fichier. Merci de votre aide Fri, 07 Jun 2019 08:34:32 GMT Re: SHOW WINDOW "Standard" Allo JM Keyboard "{ALT+V}t{DNARROW}{DNARROW}{DNARROW}{DNARROW}{DNARROW}{DNARROW}{DNARROW}{DNARROW}{DNARROW}{SPACEBAR}{ENTER}" bonne journée JM ANDRÉ a couché sur son écran : > Ok merci Jean-Claude -- a+ Eddy Merci de partager avec moi votre immense savoir que je me ferai plaisir d'absorber... il va de soi que je vais vous en laisser un peu Politesse et savoir vivre oblige ;0) Tue, 04 Jun 2019 08:34:32 GMT Re: SHOW WINDOW "Standard" Ok merci Jean-Claude Sat, 01 Jun 2019 08:34:32 GMT Re: SHOW WINDOW "Standard" Source : 1001 things etc., pages 18 et 19 The system toolbar "Gotcha!" But there is a catch! In order to use Show Window, the named window must have been defined to VFP and even though the System Toolbars are generated by VFP, there is no way of actually defining or activating the toolbars programmatically. The consequence is that unless a toolbar is first activated by VFP itself, you cannot later make it visible. The only toolbars that can be made visible by default are the 'Standard', 'Layout' and 'Form Designer' but there does not seem to be any reliable way of programmatically forcing any of the other system toolbars to be made visible at startup. Et ça s'arrête là. Je ne sais pas trop ce qu'il faut en comprendre, je ne vois pas comment activer la fenêtre standard. En tout cas, bon courage et si tu trouves une solution, poste là ici ! JC Fri, 31 May 2019 08:34:32 GMT Re: SHOW WINDOW "Standard" Merci JC, je m'étais dis peut-être par les API ... je vais chercher encore ! Fri, 31 May 2019 08:34:32 GMT |
