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

מצאתי את זה: budibase.com
ממבט ראשוני זה נראה טוב.
חינמי, קוד פתוח.
מישהו מכיר?

יש תחליף חלקי לפחות לחלק החזותי?
יש משהו קל רק להצגת טבלאות וטפסים בדפדפן בצורה טובה ולקבל כל שינוי?

אני הרבה עובד על אקסס.
אני צריך לתת גישה לכמה אנשים בכמה מקומות.
כרגע אני משתמש באקסס שמתחבר לשרת עם Mysql.
אני רוצה להתקדם ולבנות הכל על WEB.

יש תחליף טוב לאקסס?

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

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

שיניתי את הקוד עבור שער יציג של הדולר:
(עבורי זה מספיק)

Option Compare Database
Option Explicit
 
Public Function GetExchangeRatesUSD()
Dim str As String
Dim Json As Object

        str = "https://boi.org.il/PublicApi/GetExchangeRate?key=USD"
             
        With CreateObject("MSXML2.ServerXMLHTTP.6.0")
            .Open "GET", str, False
            .send
            str = .responseText
        End With
 
        Set Json = JsonConverter.ParseJson(str)
        GetExchangeRatesUSD = Json("currentExchangeRate")
End Function

@ארי הקישור של בנק ישראל הפסיק לעבוד.
הקוד לא עובד.
יש למישהו מושג מה הקישור המעודכן?

תכניס בתוך הלולאה.
אני משתמש עם זה כבר הרבה זמן.
אתה יכול לחפש על זה בגוגל: VBA code freezes DoEvents
אחד מהתוצאות בגוגל

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

אולי תנסה להוסיף:

DoEvents

לנטפרי אין API לסינון.
זה עובד דרך VPN.
כל תעבורת הרשת של השרת יעבור דרך VPN.

@dovid בעבר היה שינוי צבעים בפורום תכנות וכו', כרגע זה בוטל.

החתימות נראה כמו חלק מהפוסט.
זה קצת מבלבל.

@אבי-203
ב php יש לי קוד מוכן שעובד.

//תשלום רגיל:
    $Debit = "DebitCard";
    $TypeMosad = "Mosad";


//הוראת קבע:
    $Debit = "DebitKeva";
    $TypeMosad = "MosadId";
    $day = "&day=".$_REQUEST['day'];




    $content = $TypeMosad.'='.$Mosad.'&ClientName=&Adresse=&Phone=&ClientId=&CardNumber='.$CardNumber.'&Tokef='.$Tokef.'&Amount='.$Amount.'&Tashloumim=&Groupe='.$Groupe.'&Avour=&Token=&CVV='.$CVV.$day.'&Zeout='.$id.'&Currency=1&MasofId=Online';
    $url = "https://www.matara.pro/nedarimplus/V6/Files/WebServices/".$Debit.".aspx";


$sendData = get_ClientData($url,$content);



function get_ClientData($url,$post,$debug = ""){

// Generated by curl-to-PHP: http://incarnate.github.io/curl-to-php/
    $ch = curl_init();

    curl_setopt($ch, CURLOPT_URL, $url);
    curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
    curl_setopt($ch, CURLOPT_POST, 1);
    curl_setopt($ch, CURLOPT_POSTFIELDS, $post);
    curl_setopt($ch, CURLOPT_ENCODING, 'gzip, deflate');

    $headers = array();
    $headers[] = 'Authority: www.matara.pro';
    $headers[] = 'Accept: */*';
    $headers[] = 'Accept-Language: he-IL,he;q=0.9,en-US;q=0.8,en;q=0.7,uk;q=0.6';
    $headers[] = 'Content-Type: application/x-www-form-urlencoded; charset=UTF-8';
    $headers[] = 'Origin: https://www.matara.pro';
    $headers[] = 'Referer: https://www.matara.pro/nedarimplus/online/?mosad=0000';
    $headers[] = 'Sec-Ch-Ua: \"Not?A_Brand\";v=\"8\", \"Chromium\";v=\"108\", \"Google Chrome\";v=\"108\"';
    $headers[] = 'Sec-Ch-Ua-Mobile: ?0';
    $headers[] = 'Sec-Ch-Ua-Platform: \"Windows\"';
    $headers[] = 'Sec-Fetch-Dest: empty';
    $headers[] = 'Sec-Fetch-Mode: cors';
    $headers[] = 'Sec-Fetch-Site: same-origin';
    $headers[] = 'User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/108.0.0.0 Safari/537.36';
    $headers[] = 'X-Requested-With: XMLHttpRequest';
    curl_setopt($ch, CURLOPT_HTTPHEADER, $headers);

    $result = curl_exec($ch);
    if ($debug) {
        echo "1: \n";
        var_dump( $result);
        echo "\n 1 ------ \n";
    }
    if (curl_errno($ch)) {
        echo 'Error:' . curl_error($ch);
    }
    curl_close($ch);

    return json_decode($result, true);
}

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

@Y-Excel-Access
בדר"כ אין לי צורך בחד פעמי מזומן, אני לא צריך תיעוד של מה שנכנס, אני צריך אפשרות מעקב טוב.
ולא נראה לי שיהיה לי צורך במשהו שאינו הוראת קבע חודשי, כך שהחלק הזה נראה לי מיותר מבחינתי.

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

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

כדי לחתום הוא צריך את המפתח הפרטי שנמצא בשרת שלך..

התחלתי לעבוד על זה.
למעשה אני צריך את זה בשביל תרומות. ולא לחובות.
כרגע יצרתי ארבע טבלאות

• תורמים
• הוראות קבע
• תשלומים
• תשלומים חודשיים

---

תורמים:

---

הוראות קבע:

---

תשלומים:

---

תשלומים חודשיים:

---

---

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

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

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

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

האם התכנון נראה נכון?

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

הסתדרתי.
הייתי צריך לנקות את המטמון לפני ההורדה.
מצורף הקוד המעודכן.

Option Compare Database

Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Declare PtrSafe Function DeleteUrlCacheEntry Lib "Wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long

Private Sub ImportCSV_Click()
    
    Dim file As String
    file = "https://XXXX.co.il/File.csv"

    Dim done, saveTo
    saveTo = CurrentProject.PATH & "\Files\" & "File.csv"

    'ניקוי מטמון
    DeleteUrlCacheEntry file

    done = URLDownloadToFile(0, file, saveTo, 0, 0)
    
    If done = 0 Then
    Else
        MsgBox "נכשל בשמירת קובץ"
    End If
    
    'ייבוא
    ' מחיקת השורות הישנות
    CurrentDb.Execute "Delete * from Table"

    ' ייבוא
    DoCmd.TransferText acImportDelim, "import template", "Table", saveTo, True

    MsgBox "הייבוא הסתיים"
   
End Sub