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

[אפר]

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

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

 

[yahel cohen]

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

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

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

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

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

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

 

[yahel cohen]

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

עוד המלצה- לגבי סעיף 3
לעשות רשימה של כל המוטבים-וברשימה של העברות שיהיה אפשר לבחור מהרשימת המוטבים- אחרת הרשימה שיש כיום יכולה להיות ארוכה ולא יעילה

 

[אפר]

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

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

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

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

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

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

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

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

עוד המלצה- לגבי סעיף 3
לעשות רשימה של כל המוטבים-וברשימה של העברות שיהיה אפשר לבחור מהרשימת המוטבים- אחרת הרשימה שיש כיום יכולה להיות ארוכה ולא יעילה

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

 

[yahel cohen]

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

 

[אפר]

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

אצלי עובד

 

[yahel cohen]

אצלי עובד

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


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

תבורך

 

[yahel cohen]

אצלי עובד

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


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

תבורך

 

[טוטלי]

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

 

[אפר]

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

מצורף מתוקן
אמור לעבוד

 

[אפר]

יש בעיה בבדיקת חשבונות פאגי והבינלאומי
שלא מוגדר ששארית 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

מצורף קובץ מתוקן

 

[אפר]

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

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

קובץ מתוקן:

 

[אברהם1111]

וואו, כל הכבוד לכולם...

שאלה, יש אופציה להסטוריה בקובץ??

 

[אברהם1111]

וואו, כל הכבוד לכולם...

שאלה, יש אופציה להסטוריה בקובץ??

סליחה, כעת ראיתי, שוב תודה

 

[moishy]

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

 

[פורקן יקום]

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

 

[moishy]

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

שירות חיוב לקוחות (הוראות קבע)

www.masav.co.il

 

[אין עוד מלבדו 1-1-1]

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

לפני שאני כותב הערה מגיע לך ייש"כ עצום על זיכוי הרבים

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