• הרשמה
    • התחברות
    • חיפוש
    • דף הבית
    • אינדקס קישורים
    • פוסטים אחרונים
    • קבלת התראות מהדפדפן
    • משתמשים
    • חיפוש בהגדרות המתקדמות
    • חיפוש גוגל בפורום
    • ניהול המערכת
    • ניהול המערכת - שרת private

    קודים לתקשור עם מערכת טלפונית דרך אקסס

    עזרה הדדית למשתמשים מתקדמים
    אקסס ימות המשיח
    49
    409
    43265
    טוען פוסטים נוספים
    • מהישן לחדש
    • מהחדש לישן
    • הכי הרבה הצבעות
    תגובה
    • הגיבו כנושא
    התחברו בכדי לפרסם תגובה
    נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
    • ג
      גבאי @dudu נערך לאחרונה על ידי

      @dudu כתב בקודים לתקשור עם מערכת טלפונית דרך אקסס:

      @dudu אמר בקודים לתקשור עם מערכת טלפונית דרך אקסס:

      @אריה אמר בקודים לתקשור עם מערכת טלפונית דרך אקסס:

      במקרה בו רוצים לקבל את תוכן הטקסט ללא המרה לטבלה באקסס (כגון לקבצים שאינם בסיומת ymgr, קובץ ini למשל, אם רוצים 'לקרוא' הגדרות של שלוחה) אפשר לקרוא ישירות לפונקציה DownloadFile והופנקציה תחזיר את תוכן הקובץ
      הפונקציה דורשת: מספר מערכת, סיסמה, כתובת הקובץ ושם הקובץ
      דוגמא:

      DownloadFile "0771234567","1234","/1","ext.ini"
      

      @אריה היקר, אם אני רוצה אכן להוריד נתונים של קובץ ini אבל אני כן רוצה לאחסן אותם בטבלה, טבלה עם שדה אחד שבכל שורה מופיעה הגדרה אחת של הקובץ, וזאת כדי שאוכל לערות שינויים בקלות ולהעלות את הקובץ מחדש לאתר דרך הפונקציות המדהימות שבנית.
      הבעיה שלי היא שלא הצלחתי ליצור טבלה כזו, הפונקציות שלך ליצירת טבלה מותאמות לקבצי ymgr המכילים % ו# האם יש לך אפשרות להעלות לכאן קוד היוצר טבלה מטקסט פשוט?

      תודה רבה ויישר כח!!

      כבר הסתדרתי, תודה.

      סליחה על ההקפצה אבל אני צריך ג"כ כזה דבר להוריד קובץ ListAllInformation.ini לתוך טבלה
      אריה נתן פונקציה של הורדת כזה קובץ אבל לא הסביר לאיפה נכנסים הנתונים אני מבין שאתה מצאת את התשובה אשמח אם תוכל לעזור לי בזה
      תודה רבה

      A תגובה 1 תגובה אחרונה תגובה ציטוט 0
      • A
        amp Software 0 @גבאי נערך לאחרונה על ידי amp Software 0

        @גבאי
        אולי יעזור לך
        קוד מוכן להוריד את הקובץ לטבלה מקומית, מצו"ב הקוד, שים לב להחליף את הטוקן

        Function importListAllInformation()
        
        strtoken = "0770000000:1234"
        Set xhrRequest = CreateObject("Msxml2.ServerXMLHTTP.6.0")
        sURL = "https://www.call2all.co.il/ym/api/DownloadFile?token=" & strtoken & "&path=ivr/EnterID/ListAllInformation.ini"
        
        xhrRequest.Open "GET", sURL, False
        xhrRequest.Send
               
        Set oStream = CreateObject("ADODB.Stream")
        oStream.Open
        oStream.Type = 1
        oStream.Write xhrRequest.ResponseBody
        DoEvents
        
        filePath = CurrentProject.Path & "\ListAllInformation.txt"
        If Len(Dir(filePath)) Then Kill filePath
        oStream.SaveToFile filePath
        oStream.Close
        
        filePath = CurrentProject.Path & "\ListAllInformation.txt"
        DoCmd.SetWarnings False
        
        TableIsExists = Not IsNull(DLookup("Name", "MSysObjects", "type in(1,6) and Name='ListAllInformation'"))
        If TableIsExists Then DoCmd.Rename "LAI_" & Now, acTable, "ListAllInformation"
        DoCmd.TransferText acImportDelim, "", "ListAllInformation", filePath, True, , 65001
        Kill filePath
        MsgBox "בוצע בהצלחה", vbInformation, "בוצע"
        
        End Function
        

        תיצור כפתור בטופס כל שהוא שיקרא לפוקנציה, דוגמא:

        Private Sub Import_Click()
        importListAllInformation
        End Sub
        
        ג 2 תגובות תגובה אחרונה תגובה ציטוט 0
        • ג
          גבאי @amp Software 0 נערך לאחרונה על ידי

          @amp-Software-0 וואו
          אין מילים
          הצלת אותי

          תגובה 1 תגובה אחרונה תגובה ציטוט 0
          • ג
            גבאי @amp Software 0 נערך לאחרונה על ידי

            @amp-Software-0 כתב בקודים לתקשור עם מערכת טלפונית דרך אקסס:

            importListAllInformation

            יש אפשרות שהטבלה תשאר אותה טבלה כל פעם ולא טבלה חדשה?
            כי כרגע המערכת מזהה את הנתונים ומגדירה אותם כמספר ולא כטקסט. מה שגורם שאני לא יכול להשתמש בנתונים אלו להעלות אותם בחזרה כיון שהאקסס השמיט להם את הספרה 0
            מה שצריך זה א. שכל הנתונים יוגדרו כטסקט. ב. שישאר על אותה טבלה כך אוכל לעשות גם העלאת הנתונים חזרה (אחרי שאעשה בהם הוספות וכדו')
            תודה רבה רבה

            A תגובה 1 תגובה אחרונה תגובה ציטוט 0
            • A
              amp Software 0 @גבאי נערך לאחרונה על ידי amp Software 0

              @גבאי
              כשכתבתי את הקוד בזמנו התבקשתי ליצור גיבוי לטבלה הקיימת ולעשות ייבוא לטבלה חדשה
              אם אתה רוצה שזה יכנס לאותה טבלה ניתן לעשות במקום זה פעולת מחיקה של הנתונים בטבלה לפני הייבוא
              בצורה כזו אתה יכול להגדיר את הגדרות השדות של הטבלה, לכאורה זה אמור לפתור את הבעיה, אם לא צריך להגדיר מפרט ייבוא ספציפי עבור הטבלה שלך
              להלן הקוד עם התיקון לייבוא לאותה הטבלה:

              Function importListAllInformation()
               
              strtoken = "0770000000:1234"
              Set xhrRequest = CreateObject("Msxml2.ServerXMLHTTP.6.0")
              sURL = "https://www.call2all.co.il/ym/api/DownloadFile?token=" & strtoken & "&path=ivr/EnterID/ListAllInformation.ini"
               
              xhrRequest.Open "GET", sURL, False
              xhrRequest.Send
                     
              Set oStream = CreateObject("ADODB.Stream")
              oStream.Open
              oStream.Type = 1
              oStream.Write xhrRequest.ResponseBody
              DoEvents
               
              filePath = CurrentProject.Path & "\ListAllInformation.txt"
              If Len(Dir(filePath)) Then Kill filePath
              oStream.SaveToFile filePath
              oStream.Close
               
              filePath = CurrentProject.Path & "\ListAllInformation.txt"
              DoCmd.SetWarnings False
               
              TableIsExists = Not IsNull(DLookup("Name", "MSysObjects", "type in(1,6) and Name='ListAllInformation'"))
              If TableIsExists Then  DoCmd.RunSQL "DELETE * FROM ListAllInformation"
              DoCmd.TransferText acImportDelim, "", "ListAllInformation", filePath, True, , 65001
              Kill filePath
              MsgBox "בוצע בהצלחה", vbInformation, "בוצע"
               
              End Function
              
              ג תגובה 1 תגובה אחרונה תגובה ציטוט 0
              • ג
                גבאי @amp Software 0 נערך לאחרונה על ידי

                @amp-Software-0 עשיתי את זה וקיבלתי שגיאה האקסס הצהיב לי את השורה
                DoCmd.RunSQL "SELETE * FROM ListAllInformation"

                A תגובה 1 תגובה אחרונה תגובה ציטוט 0
                • A
                  amp Software 0 @גבאי נערך לאחרונה על ידי

                  @גבאי
                  היה לי שגיאת כתיב
                  תיקנתי כעת

                  ג תגובה 1 תגובה אחרונה תגובה ציטוט 0
                  • ג
                    גבאי @amp Software 0 נערך לאחרונה על ידי

                    @amp-Software-0 תודה רבה רבה
                    אין לי מילים להודות לך
                    למעשה לא הצלחתי עדיין להתגבר על הבעיה שהוא משמיט את האפסים יש לך רעיון איך לפתור את זה? או שאני יסדר באקסס עצמו שיוסיף 0

                    ת תגובה 1 תגובה אחרונה תגובה ציטוט 0
                    • ת
                      תן חיוך 1 @גבאי נערך לאחרונה על ידי

                      @גבאי
                      יכול להיות שזה יעזור לך

                      Function importListAllInformation()
                       
                      strtoken = "0770000000:1234"
                      Set xhrRequest = CreateObject("Msxml2.ServerXMLHTTP.6.0")
                      sURL = "https://www.call2all.co.il/ym/api/DownloadFile?token=" & strtoken & "&path=ivr/EnterID/ListAllInformation.ini"
                       
                      xhrRequest.Open "GET", sURL, False
                      xhrRequest.Send
                             
                      Set oStream = CreateObject("ADODB.Stream")
                      oStream.Open
                      oStream.Type = 1
                      oStream.Write xhrRequest.ResponseBody
                      DoEvents
                       
                      filePath = CurrentProject.Path & "\ListAllInformation.txt"
                      If Len(Dir(filePath)) Then Kill filePath
                      oStream.SaveToFile filePath
                      oStream.Close
                       
                      filePath = CurrentProject.Path & "\ListAllInformation.txt"
                      DoCmd.SetWarnings False
                       
                      TableIsExists = Not IsNull(DLookup("Name", "MSysObjects", "type in(1,6) and Name='ListAllInformation'"))
                      If TableIsExists Then  DoCmd.RunSQL "DELETE * FROM ListAllInformation"
                      DoCmd.TransferText acImportDelim , "", "ListAllInformation", filePath, True, , 65001, acImportText
                      Kill filePath
                      MsgBox "בוצע בהצלחה", vbInformation, "בוצע"
                       
                      End Function
                      
                      
                      ג תגובה 1 תגובה אחרונה תגובה ציטוט 0
                      • ג
                        גבאי @תן חיוך 1 נערך לאחרונה על ידי גבאי

                        @תן-חיוך-1 תודה רבה על העזרה
                        זה עושה לי שגיאה (שיניתי את המספר מערכת כמובן)
                        ebddc39f-28f6-4b91-9be3-51dfb982f72a-image.png

                        תגובה 1 תגובה אחרונה תגובה ציטוט 0
                        • א
                          אליהו נערך לאחרונה על ידי

                          אריה@
                          משום מה הורדת נתוני האזנה של כל החודש האקסס נתקע ולא זז וכן עשיתי הורדת נתונים עם המודול ymtImportFileFromServer וביקשתי להוריד את קובץ LogPlaybackPlayStop.2023.ymgr מהשלוחה שלו ואחרי קצת נהיה מסך שחור ונתקע

                          תגובה 1 תגובה אחרונה תגובה ציטוט 0
                          • הוזכר על-ידי  A amp Software 0 
                          • הוזכר על-ידי  ת תפארת1 
                          • S
                            sararivka נערך לאחרונה על ידי

                            אני הורדתי את הקובץ באקסס ועבד לי מצוין, עכשיו כשאני מנסה להריץ אותו בסביבת אקסס 2017, הוא לא מזהה לי את WebStatusCode
                            האם יש גרסה אחרת שצריך לעדכן או להוריד או להגדיר?

                            תגובה 1 תגובה אחרונה תגובה ציטוט 0
                            • S
                              sararivka נערך לאחרונה על ידי

                              אני מקבל את השגיאה הבאה בקלאס WEBREESPONSE:
                              f0ad9718-ce92-426e-b4c6-fcf4c8dbea84-image.png

                              תגובה 1 תגובה אחרונה תגובה ציטוט 0
                              • א
                                אליהו נערך לאחרונה על ידי

                                מעונין להוריד את קובץ ApprovalAll.ymgr הקובץ גדול האם יש הגדרה באקסס בכדי לזרז אתת מהירות ההורדה

                                תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                • הוזכר על-ידי  ת תפארת יעקבב 
                                • הוזכר על-ידי  א אופיר 
                                • ת
                                  תיקון טעות @עמוד הימני פטיש החזק נערך לאחרונה על ידי

                                  @עמוד-הימני-פטיש-החזק זה לא עובד לשרת הרגיל

                                  תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                  • פוסט ראשון
                                    פוסט אחרון