אקסס האשכול המרכזי לשאלות וטיפים באקסס

נכתב ע"י yatzek:
מנסה בכל צורה למצוא מודול לחישוב פרשת שבוע לפי תאריך עברי עבור תוכנה לסיוע בבית כנסת ולא מוצא. מישהו
לחצ/י כדי להרחיב...
נכתב ע"י אפר:
תחפש פה בפורום את המודולים של זמני היום יש שם גם פרשת שבוע אבל אני לא בטוח אם זה כמו בארץ או כמו בחו"ל
לחצ/י כדי להרחיב...
נכתב ע"י אייקוד:
www.prog.co.il

אופיס 365 - פרשת השבוע

לאחר שקבלנו את הקוד שהופך מלועזי לעברי, יש אופציה שאני יידע איזה פרשת שבוע? תודה רבה על כל העזרה
www.prog.co.il www.prog.co.il
לחצ/י כדי להרחיב...
 
נכתב ע"י yatzek:
ערב טוב, נסיתי את הפונקציה "תאריך עברי חדש" ומשום מה אני מקבל לפי תאריך לועזי את פרשת השבוע של השבוע הבא בכל פעם...... יש דילוג של שבוע.
לחצ/י כדי להרחיב...
כנ"ל חו"ל
ויש פיתרון באשכול שציטט @אייקוד
www.prog.co.il

אופיס 365 - פרשת השבוע

לאחר שקבלנו את הקוד שהופך מלועזי לעברי, יש אופציה שאני יידע איזה פרשת שבוע? תודה רבה על כל העזרה
www.prog.co.il www.prog.co.il
 
תודה רבה, ישר כח , הכל עובד כשורה.
 
שלום רב אני מנסה להשתמש בתוכנה לצורך תשלום מלגות לאברכי כולל
אבל כשאני לוחץ על הפקת קובץ לאחר שאני בוחר תיקיה אני מקבל את ההודעה לא נבחרה תיקיה
מישהו יודע איך פותרים את הבעיה הנל?
 
נכתב ע"י טוטלי:
שלום רב אני מנסה להשתמש בתוכנה לצורך תשלום מלגות לאברכי כולל
אבל כשאני לוחץ על הפקת קובץ לאחר שאני בוחר תיקיה אני מקבל את ההודעה לא נבחרה תיקיה
מישהו יודע איך פותרים את הבעיה הנל?
לחצ/י כדי להרחיב...
מצורף מתוקן
אמור לעבוד
 

קבצים מצורפים

  • זיכוי אקראי 2020.rar
    KB 137.1 · צפיות: 67
יש בעיה בבדיקת חשבונות פאגי והבינלאומי
שלא מוגדר ששארית 6 חוקית בנוסף ל0
יש להחליף את הקטע הבא
קוד: 
        Case 31, 52
            lngTotal = CLng(strArrayAccount(0)) * 9 + _
                       CLng(strArrayAccount(1)) * 8 + _
                       CLng(strArrayAccount(2)) * 7 + _
                       CLng(strArrayAccount(3)) * 6 + _
                       CLng(strArrayAccount(4)) * 5 + _
                       CLng(strArrayAccount(5)) * 4 + _
                       CLng(strArrayAccount(6)) * 3 + _
                       CLng(strArrayAccount(7)) * 2 + _
                       CLng(strArrayAccount(8)) * 1
            Select Case lngTotal Mod 11
                Case 0
                    fValidateBankAccount = True
                Case Else
                    lngTotal = CLng(strArrayAccount(3)) * 6 + _
                               CLng(strArrayAccount(4)) * 5 + _
                               CLng(strArrayAccount(5)) * 4 + _
                               CLng(strArrayAccount(6)) * 3 + _
                               CLng(strArrayAccount(7)) * 2 + _
                               CLng(strArrayAccount(8)) * 1
                    If lngTotal Mod 11 = 0  Then
                        fValidateBankAccount = True
                    End If
            End Select

בקטע הזה
קוד: 
        Case 31, 52
            lngTotal = CLng(strArrayAccount(0)) * 9 + _
                       CLng(strArrayAccount(1)) * 8 + _
                       CLng(strArrayAccount(2)) * 7 + _
                       CLng(strArrayAccount(3)) * 6 + _
                       CLng(strArrayAccount(4)) * 5 + _
                       CLng(strArrayAccount(5)) * 4 + _
                       CLng(strArrayAccount(6)) * 3 + _
                       CLng(strArrayAccount(7)) * 2 + _
                       CLng(strArrayAccount(8)) * 1
            Select Case lngTotal Mod 11
                Case 0, 6
                    fValidateBankAccount = True
                Case Else
                    lngTotal = CLng(strArrayAccount(3)) * 6 + _
                               CLng(strArrayAccount(4)) * 5 + _
                               CLng(strArrayAccount(5)) * 4 + _
                               CLng(strArrayAccount(6)) * 3 + _
                               CLng(strArrayAccount(7)) * 2 + _
                               CLng(strArrayAccount(8)) * 1
                    If lngTotal Mod 11 = 0 Or lngTotal Mod 11 = 6 Then
                        fValidateBankAccount = True
                    End If
            End Select
 
נערך לאחרונה ב:
נכתב ע"י אפר:
יש בעיה בבדיקת חשבונות פאגי והבינלאומי
שלא מוגדר ששארית 6 חוקית בנוסף ל0
יש להחליף את הקטע הבא
קוד: 
        Case 31, 52
            lngTotal = CLng(strArrayAccount(0)) * 9 + _
                       CLng(strArrayAccount(1)) * 8 + _
                       CLng(strArrayAccount(2)) * 7 + _
                       CLng(strArrayAccount(3)) * 6 + _
                       CLng(strArrayAccount(4)) * 5 + _
                       CLng(strArrayAccount(5)) * 4 + _
                       CLng(strArrayAccount(6)) * 3 + _
                       CLng(strArrayAccount(7)) * 2 + _
                       CLng(strArrayAccount(8)) * 1
            Select Case lngTotal Mod 11
                Case 0
                    fValidateBankAccount = True
                Case Else
                    lngTotal = CLng(strArrayAccount(3)) * 6 + _
                               CLng(strArrayAccount(4)) * 5 + _
                               CLng(strArrayAccount(5)) * 4 + _
                               CLng(strArrayAccount(6)) * 3 + _
                               CLng(strArrayAccount(7)) * 2 + _
                               CLng(strArrayAccount(8)) * 1
                    If lngTotal Mod 11 = 0  Then
                        fValidateBankAccount = True
                    End If
            End Select

בקטע הזה
קוד: 
        Case 31, 52
            lngTotal = CLng(strArrayAccount(0)) * 9 + _
                       CLng(strArrayAccount(1)) * 8 + _
                       CLng(strArrayAccount(2)) * 7 + _
                       CLng(strArrayAccount(3)) * 6 + _
                       CLng(strArrayAccount(4)) * 5 + _
                       CLng(strArrayAccount(5)) * 4 + _
                       CLng(strArrayAccount(6)) * 3 + _
                       CLng(strArrayAccount(7)) * 2 + _
                       CLng(strArrayAccount(8)) * 1
            Select Case lngTotal Mod 11
                Case 0 Or 6
                    fValidateBankAccount = True
                Case Else
                    lngTotal = CLng(strArrayAccount(3)) * 6 + _
                               CLng(strArrayAccount(4)) * 5 + _
                               CLng(strArrayAccount(5)) * 4 + _
                               CLng(strArrayAccount(6)) * 3 + _
                               CLng(strArrayAccount(7)) * 2 + _
                               CLng(strArrayAccount(8)) * 1
                    If lngTotal Mod 11 = 0 Or lngTotal Mod 11 = 6 Then
                        fValidateBankAccount = True
                    End If
            End Select
לחצ/י כדי להרחיב...
@moishy לידיעתך
 
נכתב ע"י אפר:
יש בעיה בבדיקת חשבונות פאגי והבינלאומי
שלא מוגדר ששארית 6 חוקית בנוסף ל0
יש להחליף את הקטע הבא
קוד: 
        Case 31, 52
            lngTotal = CLng(strArrayAccount(0)) * 9 + _
                       CLng(strArrayAccount(1)) * 8 + _
                       CLng(strArrayAccount(2)) * 7 + _
                       CLng(strArrayAccount(3)) * 6 + _
                       CLng(strArrayAccount(4)) * 5 + _
                       CLng(strArrayAccount(5)) * 4 + _
                       CLng(strArrayAccount(6)) * 3 + _
                       CLng(strArrayAccount(7)) * 2 + _
                       CLng(strArrayAccount(8)) * 1
            Select Case lngTotal Mod 11
                Case 0
                    fValidateBankAccount = True
                Case Else
                    lngTotal = CLng(strArrayAccount(3)) * 6 + _
                               CLng(strArrayAccount(4)) * 5 + _
                               CLng(strArrayAccount(5)) * 4 + _
                               CLng(strArrayAccount(6)) * 3 + _
                               CLng(strArrayAccount(7)) * 2 + _
                               CLng(strArrayAccount(8)) * 1
                    If lngTotal Mod 11 = 0  Then
                        fValidateBankAccount = True
                    End If
            End Select

בקטע הזה
קוד: 
        Case 31, 52
            lngTotal = CLng(strArrayAccount(0)) * 9 + _
                       CLng(strArrayAccount(1)) * 8 + _
                       CLng(strArrayAccount(2)) * 7 + _
                       CLng(strArrayAccount(3)) * 6 + _
                       CLng(strArrayAccount(4)) * 5 + _
                       CLng(strArrayAccount(5)) * 4 + _
                       CLng(strArrayAccount(6)) * 3 + _
                       CLng(strArrayAccount(7)) * 2 + _
                       CLng(strArrayAccount(8)) * 1
            Select Case lngTotal Mod 11
                Case 0, 6
                    fValidateBankAccount = True
                Case Else
                    lngTotal = CLng(strArrayAccount(3)) * 6 + _
                               CLng(strArrayAccount(4)) * 5 + _
                               CLng(strArrayAccount(5)) * 4 + _
                               CLng(strArrayAccount(6)) * 3 + _
                               CLng(strArrayAccount(7)) * 2 + _
                               CLng(strArrayAccount(8)) * 1
                    If lngTotal Mod 11 = 0 Or lngTotal Mod 11 = 6 Then
                        fValidateBankAccount = True
                    End If
            End Select
לחצ/י כדי להרחיב...
מצורף קובץ מתוקן
 

קבצים מצורפים

  • זיכוי אקראי 2020.rar
    KB 158.9 · צפיות: 58
לאחר בדיקה נוספת מצאתי עוד כמה באגים
  1. מספר סניף לא נכנס בכל המצבים מה שמפיל את בנק לאומי לפעמים
  2. בבנק 46 ו 14 יש שגיאה לוגית שבמקרה של כשל בסניפים בהם שאריות נוספות פסולות לא נשלח לבדיקה חוזרת
  3. בבנק 14 היה חסר בסניפים של שארית 2 את סניף 384
  4. בפועלים בוטלה החלוקה לסניפים
  5. כבר כתבתי: בינלאומי ופאגי (31,52) שארית 6 חוקית
קוד תקין:
קוד: 
Public Function fValidateBankAccount(lngBankNumber As Long, _
                                     lngBranch As Long, _
                                     lngAccount As Long) As Boolean
    fValidateBankAccount = False

    Dim lngRequiredAccountLength As Long
    Dim lngTotal As Long

    Dim strArrayAccount() As String
    Dim strArrayBranch() As String

    Dim strAccount As String
    Dim strBranch As String

    Select Case lngBankNumber
        Case 10, 13, 34
            lngRequiredAccountLength = 8
        Case 12, 4
            lngRequiredAccountLength = 6
        Case 11, 17
            lngRequiredAccountLength = 9
        Case 20
            lngRequiredAccountLength = 6
        Case 31, 52
            lngRequiredAccountLength = 9
        Case 9
            lngRequiredAccountLength = 9
        Case 22
            lngRequiredAccountLength = 9
        Case 46
            lngRequiredAccountLength = 9
        Case 14
            lngRequiredAccountLength = 9
    End Select

    If lngBankNumber <> 54 Then
        strAccount = String(lngRequiredAccountLength - Len(CStr(Left(lngAccount, lngRequiredAccountLength))), "0") & CStr(Left(lngAccount, lngRequiredAccountLength))
    Else
        strAccount = CStr(lngAccount)
    End If
    '    strAccount = Right("0000000000" & CStr(lngAccount), lngRequiredAccountLength) ' This is an alternative to the previous line
    strAccount = StrConv(strAccount, vbUnicode)
    strArrayAccount = Split(strAccount, vbNullChar)

    If lngBankNumber = 20 And lngBranch > 400 Then    ' a`i' i^n~o^? a"n~?e'o' a'a'?ן¿½ i^??c,e'-e`o^c,a*u' a^a~a*i` i^400
        strBranch = CStr(lngBranch - 400)    ' i`o^?e' a"c,e'u`a*a'e'i' e'u` i`a"o^c,e'u' 400
    Else
        strBranch = lngBranch
    End If

    If Len(strBranch) < 3 Then
        strBranch = String(3 - Len(strBranch), "0") & strBranch    ' i^a*n~e'o' a`o^n~e'i' i`a"u`i`e'i' i`3 n~o^?a*u'
    End If
    strBranch = StrConv(strBranch, vbUnicode)
    strArrayBranch = Split(strBranch, vbNullChar)

    Select Case lngBankNumber
        Case 54
            ' i`a'?ן¿½ e'?a*u`i`e'i' a`e'i" a`e'i^a*u', e"i` c,u`a'a*i" u'ן¿½e'i"
            fValidateBankAccount = True
        Case 10, 13, 34
            Select Case CLng(Right( _
               CLng(strArrayBranch(0)) * 10 + _
               CLng(strArrayBranch(1)) * 9 + _
               CLng(strArrayBranch(2)) * 8 + _
               CLng(strArrayAccount(0)) * 7 + _
               CLng(strArrayAccount(1)) * 6 + _
               CLng(strArrayAccount(2)) * 5 + _
               CLng(strArrayAccount(3)) * 4 + _
               CLng(strArrayAccount(4)) * 3 + _
               CLng(strArrayAccount(5)) * 2 + _
               CLng(Right(lngAccount, 2)) _
               , 2))
            Case 90, 72, 70, 60, 20
                fValidateBankAccount = True
            Case Else
                fValidateBankAccount = False
            End Select
        Case 12, 4
            lngTotal = CLng(strArrayBranch(0)) * 9 + _
                       CLng(strArrayBranch(1)) * 8 + _
                       CLng(strArrayBranch(2)) * 7 + _
                       CLng(strArrayAccount(0)) * 6 + _
                       CLng(strArrayAccount(1)) * 5 + _
                       CLng(strArrayAccount(2)) * 4 + _
                       CLng(strArrayAccount(3)) * 3 + _
                       CLng(strArrayAccount(4)) * 2 + _
                       CLng(strArrayAccount(5)) * 1
            Select Case lngTotal Mod 11
                Case 0, 2
                    fValidateBankAccount = True
                Case 4, 6
                    Select Case lngBankNumber
                        Case 12
                            fValidateBankAccount = True
                        Case Else
                            fValidateBankAccount = False
                    End Select
                Case Else
                    fValidateBankAccount = False
            End Select
        Case 11, 17
            lngTotal = CLng(strArrayAccount(0)) * 9 + _
                       CLng(strArrayAccount(1)) * 8 + _
                       CLng(strArrayAccount(2)) * 7 + _
                       CLng(strArrayAccount(3)) * 6 + _
                       CLng(strArrayAccount(4)) * 5 + _
                       CLng(strArrayAccount(5)) * 4 + _
                       CLng(strArrayAccount(6)) * 3 + _
                       CLng(strArrayAccount(7)) * 2 + _
                       CLng(strArrayAccount(8)) * 1
            Select Case lngTotal Mod 11
                Case 0, 2, 4
                    fValidateBankAccount = True
                Case Else
                    fValidateBankAccount = False
            End Select
        Case 20
            lngTotal = CLng(strArrayBranch(0)) * 9 + _
                       CLng(strArrayBranch(1)) * 8 + _
                       CLng(strArrayBranch(2)) * 7 + _
                       CLng(strArrayAccount(0)) * 6 + _
                       CLng(strArrayAccount(1)) * 5 + _
                       CLng(strArrayAccount(2)) * 4 + _
                       CLng(strArrayAccount(3)) * 3 + _
                       CLng(strArrayAccount(4)) * 2 + _
                       CLng(strArrayAccount(5)) * 1
            Select Case lngTotal Mod 11
                Case 0, 2, 4
                    fValidateBankAccount = True
            End Select
        Case 31, 52
            lngTotal = CLng(strArrayAccount(0)) * 9 + _
                       CLng(strArrayAccount(1)) * 8 + _
                       CLng(strArrayAccount(2)) * 7 + _
                       CLng(strArrayAccount(3)) * 6 + _
                       CLng(strArrayAccount(4)) * 5 + _
                       CLng(strArrayAccount(5)) * 4 + _
                       CLng(strArrayAccount(6)) * 3 + _
                       CLng(strArrayAccount(7)) * 2 + _
                       CLng(strArrayAccount(8)) * 1
            Select Case lngTotal Mod 11
                Case 0, 6
                    fValidateBankAccount = True
                Case Else
                    lngTotal = CLng(strArrayAccount(3)) * 6 + _
                               CLng(strArrayAccount(4)) * 5 + _
                               CLng(strArrayAccount(5)) * 4 + _
                               CLng(strArrayAccount(6)) * 3 + _
                               CLng(strArrayAccount(7)) * 2 + _
                               CLng(strArrayAccount(8)) * 1
                    If lngTotal Mod 11 = 0 Or lngTotal Mod 11 = 6 Then
                        fValidateBankAccount = True
                    End If
            End Select
        Case 9
            lngTotal = CLng(strArrayAccount(0)) * 9 + _
                       CLng(strArrayAccount(1)) * 8 + _
                       CLng(strArrayAccount(2)) * 7 + _
                       CLng(strArrayAccount(3)) * 6 + _
                       CLng(strArrayAccount(4)) * 5 + _
                       CLng(strArrayAccount(5)) * 4 + _
                       CLng(strArrayAccount(6)) * 3 + _
                       CLng(strArrayAccount(7)) * 2 + _
                       CLng(strArrayAccount(8)) * 1
            If lngTotal Mod 10 = 0 Then
                fValidateBankAccount = True
            End If
        Case 22
            lngTotal = CLng(strArrayAccount(0)) * 3 + _
                       CLng(strArrayAccount(1)) * 2 + _
                       CLng(strArrayAccount(2)) * 7 + _
                       CLng(strArrayAccount(3)) * 6 + _
                       CLng(strArrayAccount(4)) * 5 + _
                       CLng(strArrayAccount(5)) * 4 + _
                       CLng(strArrayAccount(6)) * 3 + _
                       CLng(strArrayAccount(7)) * 2
            If 11 - (lngTotal Mod 11) = CLng(strArrayAccount(8)) Then
                fValidateBankAccount = True
            End If
        Case 46
            lngTotal = CLng(strArrayBranch(0)) * 9 + _
                       CLng(strArrayBranch(1)) * 8 + _
                       CLng(strArrayBranch(2)) * 7 + _
                       CLng(strArrayAccount(0)) * 6 + _
                       CLng(strArrayAccount(1)) * 5 + _
                       CLng(strArrayAccount(2)) * 4 + _
                       CLng(strArrayAccount(3)) * 3 + _
                       CLng(strArrayAccount(4)) * 2 + _
                       CLng(strArrayAccount(5)) * 1
            Select Case lngTotal Mod 11
                Case 0
                    fValidateBankAccount = True
                Case 2
                    Select Case strBranch
                        Case 154, 166, 178, 181, 183, 191, 192, 503, 505, 507, 515, 516, 527, 539
                            fValidateBankAccount = True
                    End Select
            End Select
            If fValidateBankAccount = False Then
                    lngTotal = CLng(strArrayAccount(0)) * 9 + _
                               CLng(strArrayAccount(1)) * 8 + _
                               CLng(strArrayAccount(2)) * 7 + _
                               CLng(strArrayAccount(3)) * 6 + _
                               CLng(strArrayAccount(4)) * 5 + _
                               CLng(strArrayAccount(5)) * 4 + _
                               CLng(strArrayAccount(6)) * 3 + _
                               CLng(strArrayAccount(7)) * 2 + _
                               CLng(strArrayAccount(8)) * 1
                    If lngTotal Mod 11 = 0 Then
                        fValidateBankAccount = True
                    Else
                        lngTotal = CLng(strArrayAccount(3)) * 6 + _
                                   CLng(strArrayAccount(4)) * 5 + _
                                   CLng(strArrayAccount(5)) * 4 + _
                                   CLng(strArrayAccount(6)) * 3 + _
                                   CLng(strArrayAccount(7)) * 2 + _
                                   CLng(strArrayAccount(8)) * 1
                        If lngTotal Mod 11 = 0 Then
                            fValidateBankAccount = True
                        End If
                    End If
            End If
        Case 14
            lngTotal = CLng(strArrayBranch(0)) * 9 + _
                       CLng(strArrayBranch(1)) * 8 + _
                       CLng(strArrayBranch(2)) * 7 + _
                       CLng(strArrayAccount(0)) * 6 + _
                       CLng(strArrayAccount(1)) * 5 + _
                       CLng(strArrayAccount(2)) * 4 + _
                       CLng(strArrayAccount(3)) * 3 + _
                       CLng(strArrayAccount(4)) * 2 + _
                       CLng(strArrayAccount(5)) * 1
            Select Case lngTotal Mod 11
                Case 0
                    fValidateBankAccount = True
                Case 2
                    Select Case strBranch
                        Case 347, 361, 362, 363, 365, 385, 384
                            fValidateBankAccount = True
                    End Select
                Case 4
                    Select Case strBranch
                        Case 361, 362, 363
                            fValidateBankAccount = True
                    End Select
            End Select
            If fValidateBankAccount = False Then
                    lngTotal = CLng(strArrayAccount(0)) * 9 + _
                               CLng(strArrayAccount(1)) * 8 + _
                               CLng(strArrayAccount(2)) * 7 + _
                               CLng(strArrayAccount(3)) * 6 + _
                               CLng(strArrayAccount(4)) * 5 + _
                               CLng(strArrayAccount(5)) * 4 + _
                               CLng(strArrayAccount(6)) * 3 + _
                               CLng(strArrayAccount(7)) * 2 + _
                               CLng(strArrayAccount(8)) * 1
                    If lngTotal Mod 11 = 0 Then
                        fValidateBankAccount = True
                    Else
                        lngTotal = CLng(strArrayAccount(3)) * 6 + _
                                   CLng(strArrayAccount(4)) * 5 + _
                                   CLng(strArrayAccount(5)) * 4 + _
                                   CLng(strArrayAccount(6)) * 3 + _
                                   CLng(strArrayAccount(7)) * 2 + _
                                   CLng(strArrayAccount(8)) * 1
                        If lngTotal Mod 11 = 0 Then
                            fValidateBankAccount = True
                        End If
                    End If
            End If
    End Select

End Function
קובץ מתוקן:
 

קבצים מצורפים

  • זיכוי אקראי 2020.rar
    KB 162 · צפיות: 73
וואו, כל הכבוד לכולם...

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

קבצים מצורפים

  • זיכוי אקראי 2021.rar
    KB 85.1 · צפיות: 294
רוב תודות לך, מוישי
יש לך עין טובה, אתה מתלמידיו של א"א.
שאלה: אחרי שיצרתי בהצלחה קובץ לגביה, איך אני מעלה אותו לפלטפורמה של מס"ב?
אודה לתשובתך
 
נכתב ע"י פורקן יקום:
רוב תודות לך, מוישי
יש לך עין טובה, אתה מתלמידיו של א"א.
שאלה: אחרי שיצרתי בהצלחה קובץ לגביה, איך אני מעלה אותו לפלטפורמה של מס"ב?
אודה לתשובתך
לחצ/י כדי להרחיב...
www.masav.co.il

שירותי גביית חיובים על פי הרשאה באופן ממוכן ומאובטח

שירות החיובים של מס"ב מאפשר גביית תשלומים יעילה מכל לקוח או ארגון. אתם בוחרים את התאריך, אנחנו דואגים שהכספים יגיעו לחשבון הארגון.
www.masav.co.il www.masav.co.il
 
נכתב ע"י moishy:
מצורפת הגירסה האחרונה (היחידה שבודקת גם קבצי זיכוי וגם קבצי חיוב), עם כמה תוספות ותיקוני באגים.
לחצ/י כדי להרחיב...
לפני שאני כותב הערה מגיע לך ייש"כ עצום על זיכוי הרבים

תיקון קטן לכאורה
נוסף H בשם של הטבלה tblArchive
בעוד שבקודים זה נכתב כך tblArchive
 
נכתב ע"י moishy:
מצורפת הגירסה האחרונה (היחידה שבודקת גם קבצי זיכוי וגם קבצי חיוב), עם כמה תוספות ותיקוני באגים.
לחצ/י כדי להרחיב...
יישר כח עצום!
השתמשתי בפעם הראשונה והיה מעולה.
היתה רק בעיה עם חיוב אחד שהוא היחיד מבנק מס' 14
אני יודע בוודאות שהפרטים תקינים, אבל בתוכנה כאן רשום פרטי בנק לא תקינים.
מה עושים?
תודהההה
 

פרוגבוט

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

פוסטים חדשים שאולי לא קראת....

  • 51 52 53 83K
    • י
    זרקור מקומי רמת בית שמש ד4
  • ירמי וולדמן //
    • אשכול לרמת בית שמש ד4
    • תודה
    Reactions: פלמוניה1 //
    1K תגובות
    לכל התגובות
     תגובה אחרונה 
    ד
    די
    זה בניין של "מגן".
  • 77 78 79 70K
    • הכלבויניק
    צימר האשכול הגדול לחיפוש צימרים, דירות ומתחמי נופש
  • הכלבויניק //
    • יש לכם דירת נופש להשכרה?
    מחפשים דירת נופש לבין הזמנים לשכור או להחלפה?

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

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

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




    שימו לב!​

    פרסום דירות נופש, חיפוש / השכרה / החלפה
    מתאפשר בלוח המודעות בלבד!

    חסכו מאתנו את העבודה למחוק לכם לחינם,
    ולכם את ההשקעה לנסח מודעה במקום שאינו מתאים.




    כללי לוח המודעות - נופש:​

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



    קישורים מהירים למתחמי נופש ובינהזמנים:​

    ​
    ​
    ​
    ​
    ​
    ​
    ​
    ​
    ​
    1748298382903.png



    קיץ תשפ"ה - עודכן בתאריך 25/5/2025
    1748298382903.png
    • תודה
    Reactions: מור100, מומחה בהכל, תפוח חמצמץ ומשתמש 1 נוסף4 //
    2K תגובות
    לכל התגובות
     תגובה אחרונה 
    ג
    גרפיקהil
    מחפשים וילה ברמה גבוהה, באזור ירושלים והסביבה לשבת הגדול. chanae2 שטרודל וכו'
  • 195
    • משך
    אקטואלי המודלים הכי טובים היום בAI
  • משך //
    • נמאס לי. כנראה לכולם. כל 2 דקות יוצא עדכון חדש למודל AI.
    עד שרצתי לעשות מנוי לGPT. ג'ימיני עוקף. ואז קלוד, ואז... זהו. סטופ.
    שרשור חופשי שהמטרה בו היא אחת. סיכום קונצנזוס עדכני - מה המודל הרלוונטי לכל תחום.

    1774390962703.jpg

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


    המודלים שלי >
    תמונות - flow.
    וידאו - flow. קלינג.
    סאונד - סונו.
    קוד - קלאוד. ג'ימיני. GPT.
    אפליקציות - בייס 44. לאבבל. (קורסור.)

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

    חדשות כותבים באשכול הקיים >
    www.prog.co.il

    מעניין - עדכוני בינה מלאכותית

    עדכונים מבזקים וחדשות בתחום הבינה המלאכותית
    www.prog.co.il www.prog.co.il



    .
    1774390962703.jpg
    • שכוייח!
    • תודה
    Reactions: טונקס, גיטריסט בנשמה ו-NOA#3 //
    17 תגובות
    לכל התגובות
     תגובה אחרונה 
    ט
    טונקס
    אשמח לשמוע
  • 14 15 16 34K
    • ס
    דרוש מידע מצב חדרי לידה ומחלקת יולדות • שאגת הארי
  • ספציף //
    • אשמח לדעת בדחיפות איפה יש מחלקת יולדות ממוגנת במרכז.
    • תודה
    Reactions: צפונבון, קרב ו-שמואלזון3 //
    310 תגובות
    לכל התגובות
     תגובה אחרונה 
    י
    יהלומים
    ללא קשר למלחמה ממליצה מאוד על אסותא
  • 131 132 133 230K
    • ח
    עזרה אושר עד - אשכול לדיונים ובקשות
  • חשמלוש //
    • לכאן
    • תודה
    Reactions: שמואלזון, SH0548549432, גל של תקווה ועוד 6 משתמשים9 //
    3K תגובות
    לכל התגובות
     תגובה אחרונה 
    כ
    כובע הנזיר
    מה שעת הפתיחה בגבעת שאול? באתר כתוב 10. האם למעשה נפתח מוקדם יותר? (בכל זאת ערב חג)
  • 399 400 401
    • יש פתרון!
    4M
    • ס
    חדשות בעולם שאגת הארי • עדכוני מלחמת איראן האחרונה
  • סטאר //
    • סיכום אירועים: איראן בלהבות - מהמחאות ועד לסף עימות עולמי

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


    הטבח והחשכת המידע (ינואר 2026):
    • דיכוי אלים: המשטר האיראני הגיב באכזריות יוצאת דופן. לפי נתוני ארגון זכויות האדם HRANA, נכון ל-23 בינואר, מספר ההרוגים המאומת עומד על למעלה מ-5,000 בני אדם, בהם 4,716 מפגינים ועשרות ילדים.
      יש דיווחים לא מאומתים מצד האופוזיציה האיראנית על מעל 60,000 הרוגים!

    • מעצרים המוניים: למעלה מ-26,500 בני אדם נעצרו, וקיים חשש כבד להוצאות להורג המוניות בבתי הכלא.

    • חסימת אינטרנט: החל מה-8 בינואר הוטל מצור דיגיטלי כמעט מוחלט על המדינה כדי למנוע זליגת תיעודים מהטבח.

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


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

    • איומי נתניהו: ראש הממשלה נתניהו הזהיר כי אם איראן תבצע "טעות" ותתקוף את ישראל, היא תפגוש עוצמה שטרם הכירה.

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

    באשכול זה נמשיך לעדכן סביב השעון בכל התפתחות, דיווחים מהשטח ופרשנויות ביטחוניות.
    • תודה
    • חחח
    • וואו!
    Reactions: טובבבבבבב, chaim המלך, רוצה בחיי ועוד 59 משתמשים62 //
    8K תגובות
    לכל התגובות
     תגובה אחרונה 
    ה
    הוא היה אומר
    אבו עלי אקספרס: המיליציות השיעיות בעיראק תקפו הלילה לטענתן את הקונסוליה האמריקאית באירביל בחבל...
  • 123
    • N
    בקשה מישהו יכול להוריד מיוטיוב (סרטונים להראות לילדים במקרן...)
  • nhfk //

    • - YouTube

    Auf YouTube findest du die angesagtesten Videos und Tracks. Außerdem kannst du eigene Inhalte hochladen und mit Freunden oder gleich der ganzen Welt teilen.
    www.youtube.com www.youtube.com

    - YouTube

    Auf YouTube findest du die angesagtesten Videos und Tracks. Außerdem kannst du eigene Inhalte hochladen und mit Freunden oder gleich der ganzen Welt teilen.
    www.youtube.com www.youtube.com

    - YouTube

    Auf YouTube findest du die angesagtesten Videos und Tracks. Außerdem kannst du eigene Inhalte hochladen und mit Freunden oder gleich der ganzen Welt teilen.
    www.youtube.com www.youtube.com
    • תודה
    Reactions: פגיעה ישירה1 //
    8 תגובות
    לכל התגובות
     תגובה אחרונה 
    N
    nhfk
    נפתח עכשיו @תשעים ותשע תודה רבה
  • 291
    • ס
    דרוש מידע תנו רעיונות לקורסים מכל הסוגים לנערה מוכשרת.....
  • סחלב כחול //
    • שלום,
    מחפשת לנערה מוכשרת קורס רציני ומקצועי אפשרי בכל התחומים
    ואני לא יודעת מאיפה להתחיל....
    אשמח לשמוע כמה שיותר רעיונות כולל הכל ובפירוט מקצוע מסויים..
    זה חסד ענקק תודה רבה!!!!
    19 תגובות
    לכל התגובות
     תגובה אחרונה 
    א
    אמא של :-)
    תגדירו למה הקורסים, הפגת שיעמום (אז זה לימודים מרתקים, בעיני, ומספיק קורס סייבר) או לעבודה...
  • 137 138 139 107K
    • נתוש 1212
    אלי-אקספרס שרשור הלהיטים הגדולים!
  • נתוש 1212 //
    • הרעיון לשרשור הזה הרבה זמן אצלי בראש והגיע הזמן להוציאו לפועל

    שימו :love: לכללי השרשור:

    א. מוצרים רק מעל 10,000 הזמנות (או 5000 הזמנות אך למעלה מ 1000 חוות דעת)
    ב. דירוג מוצר מעל 4.5 ומעלה
    ג. כותרת למהות המוצר ושימושו חובה
    ד. אפשר מניסיון ולא מניסיון (אם מניסיון נשמח לשמוע על חווית המשתמש)
    ה. להשתדל לא להעלות אותו מוצר פעמיים
    ו. ללא דיונים ובקשות כלל
    ז. מוצרים שיעלו בשרשור יהיו ק.ש. (קישור שיווקי) מחויב גילוי נאות

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

    בהצלחה! :)
    שרשור הלהיטים הגדולים!
    • תודה
    • שכוייח!
    Reactions: אופטימית בהתהוות, בחכמה יבנו, שלדג! ועוד 18 משתמשים21 //
    3K תגובות
    לכל התגובות
     תגובה אחרונה 
    Quickמרקט.
    Quickמרקט.
    מצלמה אחורית לרכב. https://s.click.aliexpress.com/e/_c4k0Ym2F ק.ש.
  • 84
    • ב
    דרוש מידע מי פה עם נטפרי
  • ביונסה //
    • ויכול לבדוק אם זה פתוח לו
    זה חסום לי ואני רוצה לראות אם זה חסימה של הקהילה או נטפרי עצמם

    Iran state media share Lego propaganda video with figures blasting targets across the Middle East - Trim.mp4

    drive.google.com drive.google.com
    11 תגובות
    לכל התגובות
     תגובה אחרונה 
    ב
    ביונסה
    איך שהם עשו שם את החרדים האלה שרצים מהזההההה אני נחנקתתת
    הצג עוד…
    פרסום בפרוג ←

    הצטרפות לניוזלטר

    מאשר/ת קבלת תוכן חם למייל
    בשליחת הטופס אני מסכים/ה שבית פרוג תשתמש במידע למטרות שיווק, דיוור ישיר ומשלוח פרסומות באמצעי הקשר שמסרתי, ותכלול אותו במאגר המידע של החברה, והכל בכפוף למדיניות הפרטיות של החברה.
    להסרה בעתיד פנה/י לדוא"ל [email protected] או לטלפון: 072-2201430

    איזה כיף שהצטרפתם לניוזלטר שלנו!

    מעכשיו, תהיו הראשונים לקבל את כל העדכונים, החדשות, ההפתעות בלעדיות, והתכנים הכי חמים שלנו בפרוג!

    לוח לימודים

    מסלולי לימוד שאפשר להצטרף
    אליהם ממש עכשיו:

    26.04

    ט' אייר


    קורס עימוד ועיצוב ספרים

    ההרשמה בעיצומה

    30.04

    י"ג אייר


    קורס בוטים ואוטומציות עיסקיות

    ההרשמה בעיצומה

    10.05

    כ"ג אייר


    קורס שיווק ופרסום דיגיטלי

    נפתחה ההרשמה

    14.05

    כ"ז אייר


    קורס שמאות רכוש

    נפתחה ההרשמה

    14.06

    כ"ט סיוון


    קורס אדריכלות עיצוב פנים

    נפתחה ההרשמה
    לכל מסלולי הלימוד

    לוח מודעות

    הפרק היומי

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


    תהילים פרק כג

    אמִזְמוֹר לְדָוִד יי רֹעִי לֹא אֶחְסָר:בבִּנְאוֹת דֶּשֶׁא יַרְבִּיצֵנִי עַל מֵי מְנֻחוֹת יְנַהֲלֵנִי:גנַפְשִׁי יְשׁוֹבֵב יַנְחֵנִי בְמַעְגְּלֵי צֶדֶק לְמַעַן שְׁמוֹ:דגַּם כִּי אֵלֵךְ בְּגֵיא צַלְמָוֶת לֹא אִירָא רָע כִּי אַתָּה עִמָּדִי שִׁבְטְךָ וּמִשְׁעַנְתֶּךָ הֵמָּה יְנַחֲמֻנִי:התַּעֲרֹךְ לְפָנַי שֻׁלְחָן נֶגֶד צֹרְרָי דִּשַּׁנְתָּ בַשֶּׁמֶן רֹאשִׁי כּוֹסִי רְוָיָה:ואַךְ טוֹב וָחֶסֶד יִרְדְּפוּנִי כָּל יְמֵי חַיָּי וְשַׁבְתִּי בְּבֵית יי לְאֹרֶךְ יָמִים:
    סמן אחרי הקריאה
    לקריאה בפורום
    נקרא  8  פעמים
    פיקוח של ועדת הרבנים 'שמור'
    למעלה