תחומים - פורום חרדי מקצועי

@מוטי-מן
הקוד

CurrentProject.Path

מחזיר את נתיב התקיה בה נמצא קובץ האקסס עליו אתה עובד.
תשרשר אליו את התקיה שנמצאת כמובן באותה תקיה של האקסס.
ככה:
במקום זה

"c:\users\XXX\desktop\certs\cert001.pdf"

תכניס

CurrentProject.Path & "\Folder\FileName.PDF"

ותדאג מקודם שתקיית Folder קיימת.

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

@מלאכת-מחשבת אמר בעזרה בהכנסת מרכאות במלל במאקרו:

אבל זה מופיע לי במאקרו כאילו יש מלל לאחר שהוא גמר...

לא יודע מה מופיע במאקרו
עבד או לא?

@מלאכת-מחשבת
פעמיים מרכאות ככה "לע""נ"

@exel

1626331876172-דוגמא.xlsx

מצורף דוגמא,
אם אתה מתקשה אל תהסס לשאול.

דוגמא.xlsx

@ינקב
בתוכנה שמצאת תנסה להכניס תשע אפסים
הוא אמור לזהות את זה כתז תקני

@פשוט-אבל-תותח
התבניות שכתבת, הם תבניות שימות המשיח מייצאים לך את הקבצים.

אתה מקבל מהם רק את הנתונים במבנה של הקובץ ymgr, לא?
הוא בנוי בהפרדה של # בין השדות, ו% בין הכותרות.
דוגמא של שורה מתוך הקובץ:

Status#OK%Folder#4/9/2%DID#02000%Phone#052700009%IdType#phone%EnterId#0527600009%Date#11/03/2021%Time#00:50:19%HebrewDate#כ״ז אדר תשפ״א%var#Folder-4/9/2%Booking#1696%Data#%P050#1%P051#1%P052#7600%P053#4000%P054#3000%P055#600

זה הנוסחה בVBA שממיר את הקלט לJSON

    Row = Mid(text, 1, 1)
    text = "[{""" & text
    text = Replace(text, "#", """:""")
    text = Replace(text, "%", """,""")
    text = Replace(text, Chr(13) & Chr(10) & Row, """},{""" & Row)
    text = Replace(text, Chr(13) & Chr(10), """}]")

אז מה שצריך זה להמיר את הפלט הזה לJSON.

ואז לטפל בJSON ולייבא אותו לGoogle sheets

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

@פלורידה אמר בדיווח על אבידת תויי קניה משרד הפנים:

מה כוונתך בירושלים?

הוא כתב, כרטיס של אשל ירושלים
מי שגר ברשויות מקומיות במחוזות דרום, ירושלים, יהודה ושומרון ומרכז.

ומה כתובתם הטלפונית?

מתוך האתר:

עמותת אשל ירושלים
עבור תושבים ברשויות מקומיות במחוזות דרום, ירושלים, יהודה ושומרון ומרכז
מוקד תמיכה לזכאים – זמין בימים א'-ה' בין השעות 09:00-18:00 ובימי ו' בין השעות 09:00-13:00 – 077-771-1174

כנראה בטלפון הזה.

@מנחם אמר ביצירת מסמכים דרך ה API של EZcount - אקסס:

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

תודה על ההפניה,
לציין, הוא משתמש עם הספריה הזאת.

כנראה סייפר או איזה תוכנה שמותקנת שם סוגרת את זה.

@odeddvir @dovid
אכן עובד.

תודה רבה.

@dovid
אותה תגובה.

זה הפלט של ConvertToJson אם משנה.

"{\"api_key\": \"b3b1c...edaf6d9f\",\"developer_email\": \"myMail@gmail.com\",\"type\": \"405\",\"customer_name\": \"My name\",\"payment\": [{\"payment_type\": \"1\",\"date\": \"10/10/2020\",\"payment_sum\": \"2\"}]}"

מכל החיפושים ברשת, לכאורה זה הקוד לשלוח JSON אבל משום מה זה מחזיר לי שגיאה.

@OdedDvir יש לך נסיון עם זה?
(או אולי @clickone )

אני מנסה ליצור חשבוניות ב EZCount
עם הAPI שלהם, דרך אקסס VBA
בינתיים הולך קש, לא מצאתי משהו שעובד.

שאלתי:
א. האם יש דרך להבין מתוך האפשרויות שEZcount מחזיר, מה צריך לשנות כדי שיעבוד. (בדקתי ב jsonlint.com שהJSON תקין)
ב. אם לא, האם מישהו יודע על משהו שעובד באקסס בשביל זה?
ג. תחליף. מדובר במערכת שבנויה באקסס כבר כמה שנים, עכשיו רוצים להוסיף חשבוניות. האם יש דרך להכניס משהו חיצוני, תוסף או משהו כזה, שמיוצר בC# או VB שיתקשר עם השרת?. (אאל"ט בעבר דיברו כאן מאפשרות כזאת)

כאן המסמך של הAPI שלהם

זה קוד השליחה:

Function httpPost(url, msg)
    With CreateObject("WinHttp.WinHttpRequest.5.1")
        .Open "POST", url, False
        .setRequestHeader "Content-type", "application/json"
        .send msg
        httpPost = .responseText
    End With
End Function

Sub Test()
    Body = "{""api_key"": ""b3b....1"",""developer_email"": ""myMail@gmail.com"",""type"": ""405"",""customer_name"": ""My name"",""payment"": ""[{""payment_type"": ""1"",""date"": ""10/10/2020"",""payment_sum"": ""2""}]""}"
    Debug.Print httpPost("https://www.ezcount.co.il/api/createDoc", JsonConverter.ConvertToJson(Body))
End Sub

וזה מה שמתקבל:

    "errMsg": "no data sent, please send a GET, POST or JSON request.,known causes for getting this error:, 1.you are using a none SSL connection (http), 2.your JSON is not valid, please validate your json at: jsonlint.com, 3.you are sending a JSON as GET request instead of POST, 4.your request header is not lower case (application\/json) and you are using ASP classic",
    "errMsgPretty": [
        "no data sent, please send a GET, POST or JSON request.",
        "known causes for getting this error:",
        " 1.you are using a none SSL connection (http)",
        " 2.your JSON is not valid, please validate your json at: jsonlint.com",
        " 3.you are sending a JSON as GET request instead of POST",
        " 4.your request header is not lower case (application\/json) and you are using ASP classic"
    ],
    "success": false,
    "unixtime": 1618412221

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

מה הבעיה שלך?
תעתיק את הנוסחה לקובץ המקורי, או הפוך,
תגרור את הנוסחה.
מיין או סנן את העמודה C.

@ש-ב
מי שיש לו 0 בעמודה C לא נמצא בעמודה A.
1617619788063-דוגמא.xlsx

@ua
תבחר את העמודה.
תלחץ קונטרול+G > מיוחד > ריקים. אישור.
מקש = > חץ למעלה
יציאה מהתא עם קונטרול + אנטר.

הדרכה עם תמונות

@חנון-המרבה
לא

@אלי5
נכון, בתוכנות בשוק יש הרבה פלוסים, השאלה כמה אתה משלם על הפלוסים האלו.

אבל יש גם חסרונות.

1. לפעמים פיצ'ר אחד שחסר לך שם, מייתר לך את כל המערכת.
2. אין בהם תוספות אישיות. [יש לי נסיון עם כמה חברות, על אף ההבטחה בעת הרכישה]
   במקרה שכן. זה במחיר יקר ובהמון המון זמן.
3. יש בהם הרבה לחצנים ואופציות שאתה לא צריך אותם, ולפעמים מרוב עצים לא רואים את היער..

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

@אלי5
מבחינת מענה, כנראה שAPT זה המענה הכי טוב. בהנחה שהם תיקנו את כל הבאגים.
אבל המחיר שלהם מאוד יקר, גם רכישה בסכום של כשני עשורים, וגם תמיכה חודשית לכל החיים.

מה שתוכל לנסות
א. בבירור מעמיק, ניתן לפעמים להגיע לעמותה שהתאימה לעצמה תוכנה
שיכולה להתאים גם לך עם כל הפי'צרים.

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