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

[dudu]

פוסט זה נמחק!

[עץ השדה]

@מוטלה @dudu תודה! אלופים! כמה זמן חוסך הפונקציה הזאת - אין מילים!!!
אני מנסה להעלות מערכת עם מעל 1000 שורות (שלוחות), ואחרי כמות מסויימת (באזור 180-190) של שורות אני מקבל את ההודעה הבאה

ניסיתי כמה פעמים, ללא הצלחה. מה יכול להיות?

[dudu]

@עץ-השדה זה קורה לפעמים, צריך לחכות חצי שעה ואז לנסות שוב.

[CBHNHI]

שלום רב

רציתי לדעת האם יש אפשרות להעלות קבצי פי די אף מהמחשב לאתר של ימות משיח ע"י קוד באקסס בדומה למה שנעשה כבר בקבצי מערכת.

בתודה מראש

[פיסטוק חלבי]

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

[פיסטוק חלבי]

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

ומכאן תצא הקריאה לכל מי שמבין באקסס להושיט יד לעניין

[צבי 10]

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

[עמוד הימני פטיש החזק]

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

נ.ב. @אריה כתב שזה מוטמע במודל מכירות, לא מצאתי איפה, אולי ממך תבוא הישועה

[גבאי]

@עמוד-הימני-פטיש-החזק בעיקרון אריה פעם עשה לי משהו (זה מוטמע בקובץ שלי ואין לי אפשרות להוציא משם ולבודד את הקטע הזה) שעובד בצורה כזו
שהקוד קודם בודק מה המספר הסידורי האחרון שירד ואז הוא מוריד רק את מה שמעל המספר הסידורי.
(זה לא פיתרון מאה אחוז כי יש מקרים שמוחקים את האחרון וכדו'. וכן צריך שהמספר לא יתאפס כל יום ולא לאפס אותו בכלל.)
[נראה לי שמה שאריה התכוין שמוטמע במערכת מכירות זה האפשרות שכל פעם יוריד מההתחלה בלי למחוק את הקודם, אבל לא שידע להוריד רק חדשים.]

[עמוד הימני פטיש החזק]

@גבאי
אולי תעלה את הקובץ לתועלת הכלל
אם הוא לא פרטי/אישי
בתודה מראש

[גבאי]

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

[עמוד הימני פטיש החזק]

@גבאי
אני לא ילחץ
רק זה מאוד חשוב לי אז אם זה יהיה אפשרי אני מאוד יודה לך
אגב אולי @dudu יעשה את זה כמו שכבר ביקשתי ממנו

[גבאי]

@עמוד-הימני-פטיש-החזק ברמת העיקרון אולי בלילה יהיה לי זמן ואני יתן לך להשתלט על המחשב שלי לנסות לראות מה יש לי שם.
אם תרצה תשלח לי מייל ל@גי'מיל7139050 ונדבר בלילה

[עמוד הימני פטיש החזק]

@גבאי
אני לא יודע האם אני יהיה זמין בלילה אבל מה שאתה יכול לעשות זה ללחוץ על F12 כאשר הקובץ פתוח ואז ניתן לעשות שמירה שהיא משכפלת את הקבצים לאחמ''כ אתה מוחק מהקובץ החדש את כל הנתונים שלך ושומר ואז בעכבר ימני אתה סוגר את זה בקובץ זיפ (ZIP) או ראר (RAR) ומעלה את זה לפורום
כלומר אתה לוחץ על הסימון המודגש ובוחר את הקובץ ושולח

[אריה]

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

קודם כל הסבר תיאורתי,
המודול של הורדת קבצים עובד בצורה כזו:

1. קבלת מחרוזת המכילה את קובץ ה ymgr מהשרת
2. המרת המחרוזת לפורמט json (זוהי שיטה לייצג טבלה במחרוזת טקסטאולית)
3. לולאה שרצה על כל הרשומות ב json ואכסונם בטבלה מקומית

הקוד שמייבא רק רשומות חדשות מעמיד תנאי בדיקה האם המזהה הסידורי של הרשומה מקובץ ה ymgr גבוה מהמזהה הסידורי המקסימלי שמאוחסן בטבלה המקומית, ורק אם כן מייבא אותו
לדוגמא: אם אתה מייבא קובץ aprovalAll.ymgr לטבלה מקומית בשם 'קבלת נתונים'. אזי הקוד יבדוק בכל רשומה שתתקבל מקובץ ה ymgr את שדה Booking, האם הוא גבוה יותר מהערך המקסימלי בשדה Booking (או איך שקראת לו) בטבלה המקומית, ורק באם הוא גבוה יותר, המערכת תייבא את הנתון
שים לב, לקבצים שונים, המזהה יכול להיות שונה (לדוגמא בקובץ aproval_number_log המזהה הוא ApprovalNumber), או לא קיים (לדוגמא בקבצי נתוני השמעה LogFolderEnterExit-yyyy-mm) , במקרה כזה יהיה עלינו להתאים את הקוד לקובץ הספציפי

נקודה חשובה: אין באפשרות הקוד לבדוק את הקובץ ymgr עצמו, אלא רק למנוע את אחסון הרשומות בטבלה המקומית, זאת אומרת שהקוד יכול להיכנס רק בין שלב 2 לשלב 3
זה אומר ששלב 1 ובעיקר שלב 2 (שהוא השלב המאסיבי ביותר), ירוצו על כל הקובץ, ורק שלב 3 יסונן לרשומות החדשות
יש בזה חיסכון מסויים בזמן הריצה, אבל לא חיסכון משולם
ישנה אפשרות לסנן את קובץ ה ymgr עצמו וכך לחסוך גם את שלב 2 (על ידי replace של המחרוזת, למי שמבין), אבל בשביל זה צריך לעשות התאמה אישית לקובץ מסויים ולפורמט שלו, ואינני יכול להעלות כאן דוגמא כללית

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

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

הקוד יכנס בקוד ImportTextToTable (-ייבא טקסט אל הטבלה) במודול ImportingFiles (-ייבוא קבצים)
הסבר בגוף הקוד

Sub ImportTextToTable(strText As String, strTableName As String)
        NamesFildsFile = GetNameFilds(strText)
        
        chrStartRow = Mid(strText, 1, 1)
        strText = "[{""" & strText
        strText = Replace(strText, "#", """:""")
        strText = Replace(strText, "%", """,""")
        strText = Replace(strText, Chr(13) & Chr(10) & chrStartRow, """},{""" & chrStartRow)
        strText = Replace(strText, Chr(13) & Chr(10), """}]")
       
        Dim Json As Object
        Set Json = JsonConverter.ParseJson(strText)
'עד כאן מתבצע שלב המרת ה ymgr ל json 
'כעת הקוד מתחיל את ייבוא הרשומות, שימו לב שיש להגדיר שיאחסן באותה הטבלה ולא שימחוק את הטבלה הישנה (הכנסת הערך 3 בסוף הקוד)
        Set rs = CurrentDb.OpenRecordset(CreatingTable(strTableName, NamesFildsFile,3))
 
'מכאן מתבצע האחסון של הרשומות בטבלה, וכאן המקום להכניס את הקוד
'קודם כל נמצא את הערך המקסימלי של הטבלה הקיימת על ידי הקוד הזה
'כאן אני כותב דוגמא לייבוא קובץ ה aprovalAll שהמזהה שלו הוא Booking יש להחליף לפי הענין
ValMax = Dmax("Booking", strTableName)

'עכשיו הקוד מתחיל לייבא בפועל. נכניס לו תנאי בתוך הלולאה
        For Each CurrentId In Json
        ValID = CurrentId("Booking") 
IF ValID > ValMax then
            rs.AddNew
            For Each filds In NamesFildsFile
            valJson = CurrentId(filds)
            rs(filds) = valJson
            Next
            rs.Update
End IF
        Next

End Sub

[אריה]

@גבאי @עמוד-הימני-פטיש-החזק @פיסטוק-חלבי @dudu
עדכנתי את הפוסט הראשון
ובכללו העלתי קובץ אקסס מעודכן
הוספתי בקובץ הזה שידורגים רבים בכללם תקשור עם קודים של שיגור הודעות (קמפיינים רשימות תפוצה), אפשרות לעדכון ערכי ברירת מחדל, ועוד כפי שתחזינה עינכם מישרים

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

מקווה שעזר לכם!
בהצלחה

[גבאי]

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

[אריה]

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

[מתעניין]

האם יש איזה שהוא דרך קודים האלו להוריד את רשימת הקבצים כולל השם המקורי?
ולהכניס לטבלה
זה יכול להיות נהדר!

[dudu]

@מתעניין אתה מתכוון להוריד לטבלה את רשימת הקבצים שנמצאים בשלוחה?
אני עשיתי כזאת פונקציה אצלי.