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

[גבאי]

@אריה c90d14cf-4b19-4114-8cf6-2f5df3fa8768-points_log.2022-01.ymgr
מחקתי קצת כדי לטשטש דברים
אם תרצה קובץ מקורי אני ישלח לך במייל

[אריה]

@גבאי
אכן, זו שגיאה שנוצרת בגלל הצורה בה הקוד מפענח את שמות השדות שמופיעים בקובץ
מכיון שיש שדה Points המערכת מתעלמת מכל הופעה נוספת של Points ולכן אינה מתחשבת בשדה PointsTotal, שים לב שגם העמודות PointsValPoints .PointsLogName . PointsLogPoints הושמטו מאותה סיבה
בשביל לפתור את זה צריך לשנות את הצורה בה הקוד מפענח את השדות, או להצהיר מפורש על שמות השדות הקיימים בקובץ

[גבאי]

@אריה
"או להצהיר מפורש על שמות השדות הקיימים בקובץ"
איך עושים את זה?

[גבאי]

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

[amp Software 0]

פוסט זה נמחק!

[אריה]

@גבאי
במודול ImportingFiles בקוד ImportTextToTable
צריך להחליף את השורה הזאת

NamesFildsFile = GetNameFilds(strText)

ל-

NamesFildsFile = Array("Folder","Type","id",....)

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

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

[גבאי]

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

[אריה]

@גבאי
תריץ את הקוד בלולאה

months = Array("שם של הקובץ חודש1","שם של הקובץ חודש2",....)
for f = 0 to Ubound(months)
ymtImportFileFromServer UserName, Password, Folder, months(f), TableName, OnExists, RowToStart, RowToEnd, 
next

תחליף את הערכים הבאים:
UserName - מספר מערכת, Password - סיסמה, Folder - שלוחה בה מאוחסנים הקבצים, TableName - שם הטבלה בה לאחסון הנתונים, OnExists - איך להתנהג אם הטבלה קיימת (במקרה שלך יקרה ודאי כיון שאתה מייבא כמה קבצים לאותה טבלה, תבחר ב-2 או 3): 1 - מחיקת הטבלה הקיימת 2 - הוספת מספר רץ לשם הטבלה 3 ייבוא לתוך הטבלה הקיימת. RowToStart - שורה להתחיל, הכנס 0 כדי לייבא הכל, RowToEnd - שורה לסיום, הכנס 0 כדי לייבא הכל

[גבאי]

@אריה הבעיה שבאפשרות זו אני צריך להכניס את כל החודשים ואת כל השנים מראש..... כי כל חודש נוצר קובץ חדש.
איך אני רושם בתוך הקוד שם של פקד מתוך טופס? כלומר שאני יעשה טופס ובו אני ירשום את החודש ושנה
והקוד יקח את שם הקובץ שאני ירשום לו פלוס מה שמופיע בפקד של הטופס פלוס הסיומת שאני ירשות בתוך הקוד עצמו.
נניח לקובץ points_log.2022-01.ymgr
אני רוצה לרשום points_log.[שנה]-[חודש].ymgr
איך רושמים את זה בתוך הקוד?

[אריה]

@גבאי לא הסברת את עצמך נכון, חשבתי שאתה מתכוין בפקודה אחת להוריד את כולם
בשביל מה שאתה צריך אתה צריך ליצור שני תיבות טקסט בטופס, strMonth ו - strYear
בפקודה שמופעלת בלחיצה על כפתור 'הורדה'
תחליף את השורה

ymtImportFileFromServer UserName, Password, Folder, FileName, TableName, OnExists, Nz(RowToStart, 0), Nz(RowToEnd, 0)

לזה

ymtImportFileFromServer UserName, Password, Folder, "points_log." & strYear & "-" & strMonth & ".ymgr", TableName, OnExists, Nz(RowToStart, 0), Nz(RowToEnd, 0)

כמו"כ אתה צריך להחליף את השורה הראשונה

If IsNull(UserName) Or IsNull(Password) Or IsNull(Folder) Or IsNull(FileName) Or IsNull(TableName) Then MsgBox "יש למלא את כל השדות": Exit Sub

בזה

If IsNull(UserName) Or IsNull(Password) Or IsNull(Folder) Or IsNull(strYear) Or IsNull(strMonth) Or IsNull(TableName) Then MsgBox "יש למלא את כל השדות": Exit Sub

[גבאי]

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

[אליהו]

לא הצלחתי להעלאות רשימה לרשימת תפוצה
איך הטבלה שאני מעלה אמורה להראות

[מנסה]

@אליהו

יש שם באג בזה
[תקלה בקריאה לפונקציה]

סידרתי את זה פעם והעלתי לכאן הסבר, לא זוכר איפה

[אליהו]

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

@אליהו

יש שם באג בזה
[תקלה בקריאה לפונקציה]

סידרתי את זה פעם והעלתי לכאן הסבר, לא זוכר איפה

אם יש מישהו שיוכל לעזור אודה לו מאוד

[מנסה]

@אליהו

אתה צריך להוסיף את השורות הבאות במקום שהן מופיעות בתמונה

Case "UploadPhoneList"
ymtUploadPhoneList UserName, Password, templateId, listparam2, listparam3, listparam4
 

שים לב היכן להוסיף [From_שיגור הודעות]

[אליהו]

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

@אליהו

אתה צריך להוסיף את השורות הבאות במקום שהן מופיעות בתמונה

Case "UploadPhoneList"
ymtUploadPhoneList UserName, Password, templateId, listparam2, listparam3, listparam4
 

שים לב היכן להוסיף [From_שיגור הודעות]

הכנסתי את הנתונים!

מיקום התוספת.PNG
מביא לי הודעת שגיאה!
הודעת שגיאה.PNG
וכשאני פותח את המודול מסמן לי

[מנסה]

@אליהו
אני לא מכיר את הקובץ שלך

השם של מיקום התוספת אצלך שונה

כך שאיני יודע מה עוד חסר לך

תעשה חיפוש למילים האלו [חיפוש בכל הפרוייקט]

ותבדוק שהכל נראה כמו בתמונות

UploadPhoneList

[אליהו]

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

[מנסה]

@אליהו

אצלי המילה הזאת לא מופיעה

ואת הקובץ שלי קצת מסובך לי לשלוח [יש בו הרבה חומר ואין לי כח להתחיל למחוק]

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

אם אתה יכול תחקור את העניין שלב אחרי שלב איך זה עובד ואמור לעבוד לך

זה אני זוכר בבירור שאת הקטע שאמרתי לך להוסיף לא היה, מכאן ואילך אני כבר לא זוכר מה עוד עשיתי

תנסה לחפש בהסטורית הפורום כי זכור לי שכתבתי על זה

[מנסה]

@אליהו

מצאתי
https://f2.freeivr.co.il/post/55099

אבל באמת לא מופיע שום כלום מעבר להוספת השורות האלו