אקסס קובץ אקסס להפקת ובדיקת קבצי מס''ב

אפר

סתם מתעניין...
מנוי פרימיום
איזה אליפות !
תודה!
האם תוכל לסייע לי (אפילו באופן פרטני) בכמה דברים קטנים בתוכנה שאתה עושה בעצימת עניים?
1. עמודת פרטים-שנוכל לרשום על מה העברה.
2. שעושים ניקוי שהנתונים יישמרו במידה ואני ירצה לחפש אותם.
3. לעשות מוטבים קבועים - שלא אצטרך כל פעם להזין - אלה להזין רק כמה לשלם.
4. להפיק דוח תשלומים
תודה רבה רבה!!!
נקלעתי במקרה
אשמח לעזור
1. הוספתי
2. הוספתי ארכיון כולל תאריך רישום (לא שומר מוסד)
3. הוספתי לחצן שמאפס רק את הסכום
4. אם יהיה הסבר ברור יותר אוכל לעשות
 

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

  • זיכוי אקראי 2020.rar
    KB 128.9 · צפיות: 59

yahel cohen

משתמש חדש
נקלעתי במקרה
אשמח לעזור
1. הוספתי
2. הוספתי ארכיון כולל תאריך רישום (לא שומר מוסד)
3. הוספתי לחצן שמאפס רק את הסכום
4. אם יהיה הסבר ברור יותר אוכל לעשות
תודה איש יקר!
לסעיף 4 כוונתי היא כזו- לאחר שסוגרים קובץ למס"ב שיהיה אפשר להפיק דוח של כל העברות של המסב שהפקנו. על מנת להעביר להנהלת החשבונות פירוט של הקובץ (מצורף דוגמא).

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

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

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

שוב תודה איש יקר!
 

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

  • שאילתה2.pdf
    KB 39.9 · צפיות: 47

yahel cohen

משתמש חדש
נקלעתי במקרה
אשמח לעזור
1. הוספתי
2. הוספתי ארכיון כולל תאריך רישום (לא שומר מוסד)
3. הוספתי לחצן שמאפס רק את הסכום
4. אם יהיה הסבר ברור יותר אוכל לעשות
עוד המלצה- לגבי סעיף 3
לעשות רשימה של כל המוטבים-וברשימה של העברות שיהיה אפשר לבחור מהרשימת המוטבים- אחרת הרשימה שיש כיום יכולה להיות ארוכה ולא יעילה
 

אפר

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

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

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

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

שוב תודה איש יקר!
תיקנתי כך
אם תעביר לארכיון כך או כך יעביר ללא מספר קובץ
אם תייצא יעביר לארכיון עם מספר

כרגע עשיתי ששומר מוסד על פי קוד המוסד בן ה 8 ספרות (אם יהיו שני מוסדות על אותו מספר זה יהיה בעייתי)

לייצוא קובץ יש להזין את מספרו לאחר הלחיצה - יוצא אקסל

עוד המלצה- לגבי סעיף 3
לעשות רשימה של כל המוטבים-וברשימה של העברות שיהיה אפשר לבחור מהרשימת המוטבים- אחרת הרשימה שיש כיום יכולה להיות ארוכה ולא יעילה
עשיתי אפשרות לבחור תעודת זהות שמבוססת על הארכיון והרשומות הנוכחיות
אם תבחר מהרשימה יעתיק את הפרטים לפי התיעדוף הבא
1. רשומות נוכחיות בסדר עולה (הראשונה)
2. רשומות ארכיון בסדר יורד (האחרונה)
כמובן שלא עובד על "000000000"
 

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

  • זיכוי אקראי 2020.rar
    KB 142 · צפיות: 57

yahel cohen

משתמש חדש
תודה רבה! לדעתי יש תקלה בקובץ
לא נותן להפיק קובץ מסב וגם לייצא לאקסל
 

yahel cohen

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


אלפי או מליון תודות

תבורך
 

טוטלי

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

אפר

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

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

  • זיכוי אקראי 2020.rar
    KB 137.1 · צפיות: 50

אפר

סתם מתעניין...
מנוי פרימיום
יש בעיה בבדיקת חשבונות פאגי והבינלאומי
שלא מוגדר ששארית 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 · צפיות: 43

אפר

סתם מתעניין...
מנוי פרימיום
לאחר בדיקה נוספת מצאתי עוד כמה באגים
  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 · צפיות: 63

moishy

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

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

  • זיכוי אקראי 2021.rar
    KB 85.1 · צפיות: 255

פורקן יקום

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

moishy

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

תיקון קטן לכאורה
נוסף H בשם של הטבלה tblArchive
בעוד שבקודים זה נכתב כך tblArchive
 

אולי מעניין אותך גם...

הפרק היומי

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


תהילים פרק קכו

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

אתגר AI

קוביסט • אתגר 144

לוח מודעות

למעלה