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

[yosafizak]

@שמואל-מאיר
למה?
כי זה מה שהוא באמת רשם לי בהתחלה...............
בהתחלה הוא רשם לי: "שם משתמש או הסיסמא אינם תואמים"

[שמואל מאיר]

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

[שמחה - זו הסיסמא]

@yosafizak כנראה יש לך חסימת API

ממליץ לך לשנות את הסיסמא
לא מפרסמים ככה סיסמא גלויה

[yosafizak]

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

@yosafizak כנראה יש לך חסימת API

ממליץ לך לשנות את הסיסמא
לא מפרסמים ככה סיסמא גלויה

ואיך מבטלים את החסימה של הAPI????

[שמחה - זו הסיסמא]

@yosafizak מחכים חצי שעה בלי לשלוח בקשות שגויות
או שירות לקוחות

[yosafizak]

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

@yosafizak מחכים חצי שעה בלי לשלוח בקשות שגויות
או שירות לקוחות

מה זאת אומרת"בקשות שגויות"?

[שמחה - זו הסיסמא]

@yosafizak
למשל בקשה של API עם טוקן שגוי
או כניסה באתר עם סיסמא שגויה וכדומה

[גבאי]

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

[אריה]

@גבאי תוכל לעלות כאן קובץ ניקוד לדוגמא?

[גבאי]

@אריה 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

[גבאי]

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