merci de ces informations.
point de vue données, nous avons créé un webservice vue que notre db est en oracle et qu'il n'existe pas d'acces natif oracle pour windev mobile.
Par rapport aux ouverture mère-fille, nous en avons pas tellement, nous jouons essentiellement avec différents plans. Donc les modifications devraient ne pas être trop importantes.
par rapport à la fonction cbcapture elle peut être utilisée n'importe comment? J'essaye de préciser un peu la chose. avec le composant poscketsymbol, nous utilisions la notion suivante : voir le code utilisé --- gnumevenement = Evénement("CallBackScan","*.*",5103)
PROCÉDURE CallBackScan() sCodebarre est une chaîne sLongueur est un entier bCode est un booléen = Faux sProduittempo est une chaîne slocalisationtempo est une chaîne
pScanner.ValeurCodeBarreEvenement(sCodebarre,sLongueur)
SELON Gauche(pScanner.stResultatScan.sCodeBarre,1)
CAS "S" // traitement du numéro de produit sProduittempo = pScanner.stResultatScan.sCodeBarre sProduittempo = Milieu(Replace(sProduittempo," ",""),2,Taille(sProduittempo)-1) SAI_Produit = sProduittempo ExécuteTraitement(SAI_Produit,trtSortie) CAS "L" // traitement de la localisation //On vérifie d'abord si le code barre scanné est différents que celui précédement scanné slocalisationtempo = pScanner.stResultatScan.sCodeBarre slocalisationtempo = Milieu(Replace(slocalisationtempo," ",""),2,Taille(slocalisationtempo)-1) SI SAI_Localisation <> Gauche(pScanner.stResultatScan.sCodeBarre,2) ALORS SI TABLE_CoilsSurLoc..Occurrence >0 ALORS //1 : oui //2 : Non SELON Dialogue("Attention, il reste des bobines scannées non mise à jour. Voulez-vous continuer et perdre vos modif") // oui CAS 1 TableSupprimeTout(TABLE_CoilsSurLoc) SAI_Localisation = slocalisationtempo ExécuteTraitement(SAI_Localisation,trtSortie) // Non CAS 2 FIN SINON SAI_Localisation = slocalisationtempo ExécuteTraitement(SAI_Localisation,trtSortie) FIN SINON FIN SAI_Localisation = slocalisationtempo ExécuteTraitement(SAI_Localisation,trtSortie) AUTRE CAS Info("le code barre scanné n'est pas bon") FIN
pScanner.bOuvrirAccesScanner() pScanner.bActiverScanner() SI PAS pScanner.bLectureAvecEvenement(Handle(MaFenêtre..Nom)) = Vrai ALORS Erreur("Une erreur est survenue pendant la mise en place du mécanisme de lecture par événement",pScanner.sErreurInfo()) FIN |