Pour aider le code du socket écoute message du programme A :
Code exécuter après Socketlit
1 2 3 4 5 6
| SINON SI ChaîneCommencePar(sMessage,"doc_imp:") ALORS
sMessage=ChaîneSupprime(sMessage,"doc_imp:")
//OuvreFille(Comptoir_Consult_Doc,ExtraitChaîne(sMessage,1,"';'"),SansEspace(Gauche(ExtraitChaîne(sMessage,1,"';'"),2)+Milieu(ExtraitChaîne(sMessage,1,"';'"),5,3)),Vrai)
impressiondoc(sMessage)
FIN |
Code de la procédure appeler
OuvreFille(Edition_Document_Comptoir,SansEspace(Gauche(ExtraitChaîne(sMessage,1,"';'"),2)+Milieu(ExtraitChaîne(sMessage,1,"';'"),5,3)),"3",ExtraitChaîne(sMessage,1,"';'"),"Imp",Faux,Vrai,"","",1,"",Vrai,Faux,0,Faux)
J'ai une close de confidentialité avec mon client donc je ne peux pas mettre tous le code Désoler.
Laurent
Partager