pcsoft.fr.windevCopyright 2026, PC SOFT3 Dec 2019 15:12:24 Z31 Jan 2019 13:51:44 ZBonjour, je dois programmer la génération de virements SEPA J'ai commencé par un virement, avec le code suivant, qui fonctionne // Création de la variable XML xml_virements xml_virements est un xmlDocument,description="pain_001_001_08" gDateChaine=Gauche(DateSys(),4)+"-"+Milieu(DateSys(),5,2)+"-"+Droite(DateSys(),2)+... "T"+Gauche(HeureSys(),2)+":"+Milieu(HeureSys(),3,2)+":00" //génération GrpHdr xml_virements.Document.CstmrCdtTrfInitn.GrpHdr.MsgId="Virement remboursement du capital" xml_virements.Document.CstmrCdtTrfInitn.GrpHdr.CreDtTm=gDateChaine xml_virements.Document.CstmrCdtTrfInitn.GrpHdr.NbOfTxs=2 xml_virements.Document.CstmrCdtTrfInitn.GrpHdr.CtrlSum=187654.32 xml_virements.Document.CstmrCdtTrfInitn.GrpHdr.InitgPty.Nm="RESIDENCE1" //génération PmtInf gDateChaine=Gauche(DateSys(),4)+"-"+Milieu(DateSys(),5,2)+"-"+Droite(DateSys(),2) xml_virements.Document.CstmrCdtTrfInitn.PmtInf.PmtInfId="abcdef 12345" xml_virements.Document.CstmrCdtTrfInitn.PmtInf.PmtMtd="TRF" xml_virements.Document.CstmrCdtTrfInitn.PmtInf.BtchBookg="false" xml_virements.Document.CstmrCdtTrfInitn.PmtInf.NbOfTxs=2 xml_virements.Document.CstmrCdtTrfInitn.PmtInf.CtrlSum=187654.32 xml_virements.Document.CstmrCdtTrfInitn.PmtInf.PmtTpInf.SvcLvl.Cd="SEPA" xml_virements.Document.CstmrCdtTrfInitn.PmtInf.ReqdExctnDt.Dt=gDateChaine xml_virements.Document.CstmrCdtTrfInitn.PmtInf.Dbtr.Nm="RESIDENCE " xml_virements.Document.CstmrCdtTrfInitn.PmtInf.DbtrAcct.Id.IBAN="FR7...... IBAN" xml_virements.Document.CstmrCdtTrfInitn.PmtInf.DbtrAgt.FinInstnId.BICFI="BKAUATWW" //génération credit transfer CdtTrfTxInf Xml_virements.Document.CstmrCdtTrfInitn.PmtInf.CdtTrfTxInf.PmtId.InstrId="ABC/060928/cct001/1" xml_virements.Document.CstmrCdtTrfInitn.PmtInf.CdtTrfTxInf.PmtId.EndToEndId="ABC/4562/2006-09-08" xml_virements.Document.CstmrCdtTrfInitn.PmtInf.CdtTrfTxInf.Amt.InstdAmt:Ccy="EUR" xml_virements.Document.CstmrCdtTrfInitn.PmtInf.CdtTrfTxInf.Amt.InstdAmt="70000" xml_virements.Document.CstmrCdtTrfInitn.PmtInf.CdtTrfTxInf.CdtrAgt.FinInstnId.Nm="DEF electronics" xml_virements.Document.CstmrCdtTrfInitn.PmtInf.CdtTrfTxInf.CdtrAcct.Id.IBAN="GB29NWBK60161331926819" xml_virements.Document.CstmrCdtTrfInitn.PmtInf.CdtTrfTxInf.RgltryRptg.Dtls.Cd=150 xml_virements.Document.CstmrCdtTrfInitn.PmtInf.CdtTrfTxInf.RmtInf.Ustrd="Commercial invoice 4562 dated 2006-09-08" //conversion sInfoxml=XMLConstruitChaîne(xml_virements,XMLDocumentDéfaut) //trace(sInfoxml) SI XMLDocumentValide(xml_virements,"C:\A\0_Clients\0_Comptabilités\Bois_aurouze\Application\SRBA TR 1\Exe\pain.001.001.08") = Faux ALORS Erreur(ErreurInfo()) SINON Info("Le document XML est valide") FIN //XMLSauve(xml_virements, fRepExe() + ["\"] + "xml_virements.xml") //LanceAppliAssociée(fRepExe() + ["\"] + "xml_virements.xml") fSauveTexte("C:\A\0_Clients\0_Comptabilités\Bois_aurouze\Application\SRBA TR 1\Exe\xml_virements.xml",sInfoxml) LanceAppliAssociée("C:\A\0_Clients\0_Comptabilités\Bois_aurouze\Application\SRBA TR 1\Exe\xml_virements.xml") cela fontionne bien. maintenant je voudrais boucler pour passer de un virement à plusieurs. J'envisage : HExécuteRequête(REQ_soldes_créditeurs) POUR TOUT REQ_soldes_créditeurs xml_virements.Document.CstmrCdtTrfInitn.PmtInf.CdtTrfTxInf.PmtId.InstrId="Paiement de votre solde créditeur" xml_virements.Document.CstmrCdtTrfInitn.PmtInf.CdtTrfTxInf.PmtId.EndToEndId="Paiement de votre solde créditeur" xml_virements.Document.CstmrCdtTrfInitn.PmtInf.CdtTrfTxInf.Amt.InstdAmt:Ccy="EUR" xml_virements.Document.CstmrCdtTrfInitn.PmtInf.CdtTrfTxInf.Amt.InstdAmt=REQ_soldes_créditeurs.Solde_créditeur xml_virements.Document.CstmrCdtTrfInitn.PmtInf.CdtTrfTxInf.CdtrAgt.FinInstnId.Nm=REQ_soldes_créditeurs.Actionnaire_code xml_virements.Document.CstmrCdtTrfInitn.PmtInf.CdtTrfTxInf.CdtrAcct.Id.IBAN=REQ_soldes_créditeurs.Actionnaire_IBAN xml_virements.Document.CstmrCdtTrfInitn.PmtInf.CdtTrfTxInf.RgltryRptg.Dtls.Cd="150" xml_virements.Document.CstmrCdtTrfInitn.PmtInf.CdtTrfTxInf.RmtInf.Ustrd="Paiement de votre solde créditeur" FIN Mais je ne trouve pas la fonction pour ajouter les lignes qui correspondent à un virement et qui sont dans le POUR TOUT, les unes à la suite des autres. Merci au super pro du xml ! -- Marc CHERNET Expert comptable - Expert en systèmes d'information Développeur pour des missions d'expertise30WEBDEVfr_FRhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223726-generation-virements-sepa/read.awpmoderateur@pcsoft.fr (El moderador)webmaster@pcsoft.fr (El webmaster)marcelfpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223726-generation-virements-sepa-235095/read.awp3 Dec 2019 15:12:24 ZLe 03/12/2019 à 11:41, Jean-Michel a écrit : > Marcel bonjour, je vois que vous maitrisez xml SEPA !! > J'ai intégré la struct…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223726-generation-virements-sepa-235095/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223726-generation-virements-sepa-235095/read.awpgénération de virements SEPAJean-Michelpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223726-generation-virements-sepa-235084/read.awp3 Dec 2019 12:41:26 ZMarcel bonjour, je vois que vous maitrisez xml SEPA !! J'ai intégré la structure du fichier "Pain-001-001-08" dans la liste des…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223726-generation-virements-sepa-235084/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223726-generation-virements-sepa-235084/read.awpgénération de virements SEPAm.chernetpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223726-generation-virements-sepa-224126/read.awp19 Feb 2019 17:04:51 ZBonjour et merci, je n'ai pas reçu de notification sur ce post que je découvre seulement par hasard J'ai imaginé un code comp…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223726-generation-virements-sepa-224126/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223726-generation-virements-sepa-224126/read.awpgénération de virements SEPAmarcelfpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223726-generation-virements-sepa-223735/read.awp31 Jan 2019 15:37:17 ZLe 31/01/2019 à 12:51, MARC CHERNET a écrit : > Bonjour, > > je dois programmer la génération de virements SEPA > > J'ai …https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223726-generation-virements-sepa-223735/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223726-generation-virements-sepa-223735/read.awpgénération de virements SEPAmarcelfpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223726-generation-virements-sepa-223734/read.awp31 Jan 2019 15:36:12 ZPOUR nNbreSalairié = 1 À TABLEPM..Occurrence SI PMBSELECTION[nNbreSalairié] = Vrai ALORS nNbre++ cMondoc.Document.CstmrC…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223726-generation-virements-sepa-223734/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223726-generation-virements-sepa-223734/read.awpgénération de virements SEPAmarcelfpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223726-generation-virements-sepa-223733/read.awp31 Jan 2019 15:32:38 ZLe 31/01/2019 à 12:51, MARC CHERNET a écrit : > Bonjour, > > je dois programmer la génération de virements SEPA > > J'ai …https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223726-generation-virements-sepa-223733/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223726-generation-virements-sepa-223733/read.awpgénération de virements SEPA