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

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

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

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

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

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

הוא שומר לי קובץ ששמור בקאש באקסס? קאש במחשב?
איך ניתן לבדוק את זה?

מצורף הקוד:

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 Sub ImportCSV_Click()
    
    Dim file As String
    file = "https://XXXX.co.il/File.csv"

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

    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

@יעקב-ישראל כתב בקיים ראוטר וירטואלי? (בקובץ ISO או משהו דומה?):

@איש-ימיני ואז מה תגדיר את הVPN מהראוטר הוירטואלי לכל מכונה בנפרד ?

לכל הסוויץ'

אני מבין שאתה מנסה לחסוך את הכסף לנטפרי אבל VPN זה פר מחשב (או ראוטר במקרה פיזי)

גם הכסף וגם ההגדרה כל פעם.

@yossiz כתב בקיים ראוטר וירטואלי? (בקובץ ISO או משהו דומה?):

@איש-ימיני כל מחשב יכול להשתמש כראוטר, לא צריך משהו מיוחד

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

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

תגובה: עזרה בשיתוף VPN לכמה מכשירים

קיים ראוטר וירטואלי? (בקובץ ISO או משהו דומה?)

אני צריך לשתף VPN של אראל נטפרי לכמה מחשבים.
הדרך הרגילה לזה הוא לקנות ראוטר שתומך ב VPN ולהגדיר שם את ה VPN.
אך אצלי מדובר בסביבה וירטואלית (vm esxi) כך שאין לי אפשרות 'לקנות' ראוטר.
אני צריך משהו כמו ראוטר וירטואלי.
יש כזה דבר?

(בחיפוש גוגל רגיל, לא מצאתי משהו נורמלי)

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

אשמח לקבל עזרה.

ניסיתי להוסיף סוויץ', ובהגדרות מתאם בווינדוס לשתף את הVPN לסוויץ החדש, זה מחלק כתובות IP לשאר המחשבים ברשת אבל בפועל אין להם רשת.

(גילוי נאות: מדובר לא במחשבים פיזיים רק בסביבה וירטואלית vm esxi על שרת)

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