דילוג לתוכן

תכנות

4.6k נושאים 38.2k פוסטים

קטגוריות משנה


  • 22 נושאים
    137 פוסטים
    katzK

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

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

    נתחיל...

    שלב א:

    ראשית בקובץ ה- Excel של רשימת הנמענים, הוסיפו לטבלת הנתונים ארבעה עמודות בשמות כדלהלן (חשוב שהשמות יהיו מדויקים ללא רווחים מיותרים - לתשומת ליבכם):

    DocFolderPath

    DocFileName

    PdfFolderPath

    PdfFileName

    שלב ב:
    צרו שתי תיקיות נפרדות, אחד לקבצי הפלט בפורמט docx, ואחד לקבצי הקלט בפורמט pdf, העתיקו את נתיב התיקייה של קבצי ה- docx והדביקו אותם עבור כל רשומה בשדה שיצרתם בשם DocFolderPath, לאחמ"כ חזרו על הפעולה והפעם העתיקו את נתיב התיקייה של קובצי ה- PDF והדביקו בשדה PdfFolderPath.
    בשדה DocFileName כתבו את השם של הקובץ עבור הרשומה - ניתן להשתמש בנוסחאות, כמו"כ בשדה PdfFileName כתבו את שם הקובץ כנ"ל.

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

    שלב ד:
    פתחו את לשונית מפתחים בקובץ ה- word פתחו את עורך הקוד הוסיפו מודל חדש מצו"ב צילום מסך:
    3eb2538f-9ab1-41eb-a1df-452212916da6-image.png

    הדביקו את הקוד הבא:

    Sub MailMergeToPdfBasic() ' Mark the start of the Subroutine (i.e. Macro) and name it "MailMergeToPdf" ' Macro created by Imnoss Ltd ' Please share freely while retaining attribution ' Last Updated 2021-05-03 Dim masterDoc As Document, singleDoc As Document, lastRecordNum As Long ' Create variables ("Post-it Notes") for later use Set masterDoc = ActiveDocument ' Identify the ActiveDocument (foremost doc when Macro run) as "masterDoc" masterDoc.MailMerge.DataSource.ActiveRecord = wdLastRecord ' jump to the last active record (active = ticked in edit recipients) lastRecordNum = masterDoc.MailMerge.DataSource.ActiveRecord ' retrieve the record number of the last active record so we know when to stop masterDoc.MailMerge.DataSource.ActiveRecord = wdFirstRecord ' jump to the first active record (active = ticked in edit recipients) Do While lastRecordNum > 0 ' create a loop, lastRecordNum is used to end the loop by setting to zero (see below) masterDoc.MailMerge.Destination = wdSendToNewDocument ' Identify that we are creating a word docx (and no e.g. an email) masterDoc.MailMerge.DataSource.FirstRecord = masterDoc.MailMerge.DataSource.ActiveRecord ' Limit the selection to just one document by setting the start ... masterDoc.MailMerge.DataSource.LastRecord = masterDoc.MailMerge.DataSource.ActiveRecord ' ... and end points to the active record masterDoc.MailMerge.Execute False ' run the MailMerge based on the above settings (i.e. for one record) Set singleDoc = ActiveDocument ' Identify the ActiveDocument (foremost doc after running the MailMerge) as "singleDoc" singleDoc.SaveAs2 _ FileName:=masterDoc.MailMerge.DataSource.DataFields("DocFolderPath").Value & Application.PathSeparator & _ masterDoc.MailMerge.DataSource.DataFields("DocFileName").Value & ".docx", _ FileFormat:=wdFormatXMLDocument ' Save "singleDoc" as a word docx with the details provided in the DocFolderPath and DocFileName fields in the MailMerge data singleDoc.ExportAsFixedFormat _ OutputFileName:=masterDoc.MailMerge.DataSource.DataFields("PdfFolderPath").Value & Application.PathSeparator & _ masterDoc.MailMerge.DataSource.DataFields("PdfFileName").Value & ".pdf", _ ExportFormat:=wdExportFormatPDF ' Export "singleDoc" as a PDF with the details provided in the PdfFolderPath and PdfFileName fields in the MailMerge data singleDoc.Close False ' Close "singleDoc", the variable "singleDoc" can now be used for the next record when created If masterDoc.MailMerge.DataSource.ActiveRecord >= lastRecordNum Then ' test if we have just created a document for the last record lastRecordNum = 0 ' if so we set lastRecordNum to zero to indicate that the loop should end Else masterDoc.MailMerge.DataSource.ActiveRecord = wdNextRecord ' otherwise go to the next active record End If Loop ' loop back to the Do start End Sub ' Mark the end of the Subroutine

    שלב ה וסיום:
    סגרו את עורך הקוד.
    לחצו על כפתור פקודות מאקרו שבכרטיסיית מפתחים, בחרו את המאקרו בשם MailMergeToPdfBasic ולחצו הפעל מצו"ב צילום מסך
    3890ce69-c0e9-4f30-89ce-3e97b7de750b-image.png

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

    מקור

  • ארכיון האתר הקודם והחביב קוד-613

    1k נושאים
    10k פוסטים
    chagoldC

    @אבי אמר בשוב, צילומי הצ'קים בבנקים:

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

    @אבי איך יוצרים אתך קשר?

  • 31 נושאים
    133 פוסטים
    Y.Excel.AccessY

    יש כמה נוסחאות חדשות שממש משנות את כללי המשחק בגוגל שיטס:

    CHOOSECOLS לבחירת עמודות ממערך CHOOSEROWS לבחירת שורות ממערך WRAPROWS להמרת מערך חד ממדי לרב ממדי - פריסה לשורות WRAPCOLS כנ"ל - פריסה לעמודות HSTACK ו VSTACK - הפעולה של {} אך בלי סוגריים - לא משמעותי לכאורה

    והעולה על כולנה, סוף סוף:

    LET - ליצירת משתנים.

    כל אלו מצטרפות לפונקציות שנוספו מוקדם יותר -
    https://blog.sheetgo.com/google-sheets-formulas/10-new-google-sheets-functions/

    וכלול בתוכם - LAMBDA, MAP (חלקי - לא עובד לקנן ב MAP ודומיו מערכים אחרים), פונקציות בעלות שם, וכו' ע"ש בקישור.

  • איך לחסוך בעומסים ב PHP עם MYSQL

    2
    0 הצבעות
    2 פוסטים
    64 צפיות
    nigunN

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

    כנ"ל לא נראה לי שכל תהליכון של MYSQL, מייצג חיבור חדש
    אלא תהליכים שMYSQL מייצר שלא קשורים דווקא לחיבורים חדשים.

  • מה הדרך הכי טובה לנהל תור?

    3
    0 הצבעות
    3 פוסטים
    100 צפיות
    nigunN

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

  • 0 הצבעות
    7 פוסטים
    309 צפיות
    chvC

    תודה רבה!! @chagold @nigun
    וכמובן @yossiz
    בא נראה לאן אנחנו מתקדמים..

  • אקסס | פונקציה בערך ברירת מחדל

    הועבר
    8
    0 הצבעות
    8 פוסטים
    277 צפיות
    A

    @odeddvir אמר באקסס | פונקציה בערך ברירת מחדל:

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

    אפשר אולי להכניס את זה בתוך if רק אם השדה הנ"ל Null

  • אקסס | הזנת ערך בתא ע"פ ערך בתא אחר

    הועבר
    10
    0 הצבעות
    10 פוסטים
    275 צפיות
    OdedDvirO

    @אביי נא עיין בחוקי הפורום:

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

  • שירות ענן ישראלי מומלץ

    30
    0 הצבעות
    30 פוסטים
    490 צפיות
    nigunN

    @aaron
    זה משנה בכלל מי בנה את הקופסה?
    בהשוואה למחשב שולחני זה נשמע כמו ההבדל בין הרכבה עצמית בחנות לבין הרכבה ע"י HP?

  • 9 הצבעות
    6 פוסטים
    225 צפיות
    zvizviZ

    @מנחם-ציון אמר בתוסף חדש, עריכת אונליין לריפו בגיטהאב:

    @zvizvi אמר בתוסף חדש, עריכת אונליין לריפו בגיטהאב:

    Edge בקרוב

    Edge החדש מבוסס כרומיום ותוספים של כרום עובדים בו

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

  • References ב-PHP

    42
    3 הצבעות
    42 פוסטים
    778 צפיות
    WWWW

    @yossiz אמר בReferences ב-PHP:

    אבל יש כאן בעיה שצריך לשים לב אליה. מה ש-@nigun הזכיר למעלה, שב-PHP לולאת foreach לא יוצרת scope נפרד, ולכן המשתנה ‎$row נשארת אחרי הלולאה מצביעה על האיבר האחרון של ה-array. שימוש חוזר בשם המשתנה תעשה דברים לא צפויים...

    זו בעיה שאפשר לפתור אותה בקלות. וגם בד"כ באמת לא אמורים להשתמש שוב באותו שם משתנה.

  • זמן ריצה של קוד

    14
    0 הצבעות
    14 פוסטים
    261 צפיות
    OdedDvirO

    @מומחה-באקסס לא התכוונתי מעולם לומר שאסור להשתמש ב-DCount ושות', אלא שמיעוטן יפה.
    במקרה שבו פתחת את הפוסט, היה ניכר שיש בעיה רצינית ביעילות, וראית את השיפור העצום ששימוש בכמה שאילתות גרם, והוריד את זמן הריצה פי 100 כמעט בדיוק: שניות 4/210 = 0.019.

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

    במקרה הזה של הטופס, זה לכאורה מקום ראוי להשתמש ב-DCount. אבל תבדוק טוב אם אי אפשר להמנע בכל זאת.

  • 0 הצבעות
    3 פוסטים
    1k צפיות
    chocolateC

    @meme יש לי רעיון חזק שיכול לעזור לעם ישראל,
    באם אתם מוכנים להתחיל לעבוד על זה, אבל אחרי זה שישאר קוד פתוח, שכל אחד יוכל להוסיף ולשפר אותו, תיצרו קשר איתי info@chocolatey.ga.

  • API לקבל את שם הבנק ושם הסניף

    9
    0 הצבעות
    9 פוסטים
    232 צפיות
    מומחה באקססמ

    @katz אמר בAPI לקבל את שם הבנק ושם הסניף:

    @חוקר או להשאיר ריק ואז מחזיר לך הכל

    לא מדוייק, אם משאיר רק מחזיר 100 ראשונים

  • NODE יבוא נתונים מהבנק

    3
    0 הצבעות
    3 פוסטים
    82 צפיות
    שואףש

    אני. למה?

  • ייצוא למס"ב / ASCII מ PHP

    9
    0 הצבעות
    9 פוסטים
    169 צפיות
    ח

    @clickone אמר בייצוא למס"ב / ASCII מ PHP:

    תסתכל אם אתה רואה את העברית תקין

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

  • טיפ: TAB השלמה אוטומטית בCLI

    11
    6 הצבעות
    11 פוסטים
    170 צפיות
    nigunN

    @yossiz
    בקיצור יש הרבה מה ללמוד
    ותכל'ס שווה לכתוב כאן טיפים בנאלים כאלו, כי ככה אני לומד הרבה יותר.

  • עזרה - הכנסת ערך לתיבת טקסט c#

    הועבר
    4
    0 הצבעות
    4 פוסטים
    173 צפיות
    yossizY

    @נ-נח אמר בעזרה - הכנסת ערך לתיבת טקסט c#:

    @dovid תודה רבה! עובד מצוין

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

  • LOG של על הבקשות לשרת

    10
    1 הצבעות
    10 פוסטים
    162 צפיות
    clickoneC

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

    זה חוסך לי 99 אחוז מזמן התמיכה שאני צריך לתת, ומשאיר את זירת התמיכה למי שאמור לטפל בזה

  • כמה שורות לכמה שדות - SQL

    5
    0 הצבעות
    5 פוסטים
    87 צפיות
    ח

    @ש-ב-ח אמר בכמה שורות לכמה שדות - SQL:

    אני כמעט בטוח שקיים כזה דבר (אולי זה נקרה טבלת ציר - pivot)

    איזה SQL מדובר?
    MSSQL או MYSQL?
    כי בMSSQL זה נראה לי קיים.
    אבל ב MYSQL זה לא קיים.
    אך יש דרכים לבצע זאת פרימטיבי

  • קידוד מסד נתונים mssql

    5
    0 הצבעות
    5 פוסטים
    96 צפיות
    י

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

  • JS - אימות מספר חשבון ישראלי

    8
    9 הצבעות
    8 פוסטים
    309 צפיות
    איש ימיניא

    @avi-rz
    זה הקוד ב-vba מפרוג.

    Public Function fValidateBankAccount(lngBankNumber As Long, _ lngBranch As Long, _ lngAccount As Long) As Boolean On Error GoTo fValidateBankAccount_Error Dim lngRequiredAccountLength As Long Dim lngTotal As Long Dim strArrayAccount() As String Dim strArrayBranch() As String Dim strAccount As String Dim strBranch As String If lngBankNumber = 0 Or lngBranch = 0 Or lngAccount = 0 Then Exit Function 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 Case 54 lngRequiredAccountLength = 9 End Select strBranch = lngBranch strAccount = String(lngRequiredAccountLength - Len(CStr(lngAccount)), "0") & CStr(lngAccount) strAccount = StrConv(strAccount, vbUnicode) strArrayAccount = Split(strAccount, vbNullChar) If lngBankNumber = 20 And lngBranch > 400 Then ' אם מספר הסניף בבנק מזרחי-טפחות גדול מ400 strBranch = CStr(lngBranch - 400) ' לפני החישובים יש להפחית 400 Else ' אם מספר הסניף בבנק מזרחי-טפחות לא גדול מ400 strBranch = CStr(lngBranch) ' לפני החישובים אל תבצע כלום End If If lngBankNumber = 12 Or lngBankNumber = 4 Then strBranch = lngBranch End If If Len(strBranch) < 3 Then strBranch = String(3 - Len(strBranch), "0") & strBranch ' מוסיף אפסים להשלים ל3 ספרות End If strBranch = StrConv(strBranch, vbUnicode) strArrayBranch = Split(strBranch, vbNullChar) Select Case lngBankNumber Case 10, 13, 34 lngTotal = 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 + _ Right(lngAccount, 2) Select Case Right(lngTotal, 2) Case 90, 72, 70, 60, 20 fValidateBankAccount = True Case Else fValidateBankAccount = False End Select Case 12 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, 6 fValidateBankAccount = True Case Else fValidateBankAccount = False End Select Case 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 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 Select Case lngTotal Mod 11 Case 0, 6 fValidateBankAccount = True Case Else fValidateBankAccount = False End Select 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 Else fValidateBankAccount = False End If Case 54 fValidateBankAccount = True 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 Else fValidateBankAccount = False End If Case 46 lngTotal = CLng(strArrayBranch(0)) * 9 + _ CLng(strArrayBranch(1)) * 8 + _ CLng(strArrayBranch(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 2 Select Case strBranch Case 154, 166, 178, 181, 183, 191, 192, 503, 505, 507, 515, 516, 527, 539 fValidateBankAccount = True Case Else fValidateBankAccount = False End Select Case Else 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 Else fValidateBankAccount = False End If End If End Select Case 14 lngTotal = CLng(strArrayBranch(0)) * 9 + _ CLng(strArrayBranch(1)) * 8 + _ CLng(strArrayBranch(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 2 Select Case strBranch Case 347, 361, 362, 363, 365, 385 fValidateBankAccount = True Case Else fValidateBankAccount = False End Select Case 4 Select Case strBranch Case 361, 362, 363 fValidateBankAccount = True Case Else fValidateBankAccount = False End Select Case Else 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 Select End Select On Error GoTo 0 Exit Function fValidateBankAccount_Error: fValidateBankAccount = False MsgBox "Error " & err.Number & " (" & err.Description & ") in procedure fValidateBankAccount of Function mdlValidations" End Function
  • קבלת שבוע עברי באופן כלשהו

    3
    0 הצבעות
    3 פוסטים
    151 צפיות
    scez scezS

    @chagold תודה רבה

בא תתחבר לדף היומי!