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

@ארכיטקט

If value1 > value2 Or IsNull(value1) Or IsMissing(value1) Or value1 = Empty Then

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

Public Function IsNothing(varToTest As Variant) As Integer
'  Tests for a "logical" nothing based on data type
'  Empty and Null = Nothing
'  Number = 0 is Nothing
'  Zero length string is Nothing
'  Date/Time is never Nothing

    IsNothing = True

    Select Case VarType(varToTest)
        Case vbEmpty
            Exit Function
        Case vbNull
            Exit Function
        Case vbBoolean
            If varToTest Then IsNothing = False
        Case vbByte, vbInteger, vbLong, vbSingle, vbDouble, vbCurrency
            If varToTest <> 0 Then IsNothing = False
        Case vbDate
            IsNothing = False
        Case vbString
            If (Len(varToTest) <> 0 And varToTest <> " ") Then IsNothing = False
    End Select

End Function

פורסם במקור בפורום CODE613 ב07/01/2014 00:06 (+02:00)

דבר שבאמת הייתי משנה בגלל הטענה שלך זה:
במקום:

If value1 > value2

הייתי כותב:

If value1 >= value2

אבל זה באמת תלוי בארכיטקט.

@ארכיטקט

האם ידוע למישהו אם יש פונקציה מובנית ב vb6 שמחזירה ערך נמוך מבין שניים??? כמו Math.Min בדוט נט....
הפיתרון הגאוני שלי הוא בינתים ככה:

Function GetMinValue(value1, value2)
If value1 > value2 Or IsNull(value1) Or IsMissing(value1) Or value1 = Empty Then
GetMinValue = value2
Else
GetMinValue = value1
End If

End Function

הייתי משנה את:

Or IsNull(value1) Or IsMissing(value1) Or value1 = Empty

ב:

Not IsNumeric(value1)

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

פורסם במקור בפורום CODE613 ב06/01/2014 23:55 (+02:00)

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

פורסם במקור בפורום CODE613 ב06/01/2014 23:50 (+02:00)

@רחמים

לא נראה לי הפונקציה שלך כל כך טובה,
כי היא יכולה להחזיר רק אחת משני אפשריות - אמת או שקר, אבל באמת כאשר משווים בין שני דברים יש שלוש אפשרויות - או שהים שווים או הראשון גדול או השני גדול, ולכן בפונקציית COMPARE בדוטנט יש החזרה של 0 או 1 או -1.

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

פורסם במקור בפורום CODE613 ב06/01/2014 23:33 (+02:00)

אבי אתה יכול להעלות תמונה?
לא ראיתי מסך כזה בדוגמא. (אא"כ אנחנו מדברים על קובץ אחר)

פורסם במקור בפורום CODE613 ב05/03/2017 14:03 (+02:00)

@אבי

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

תודה

זה הסכום המחושב שייכנס לבנק.
לא קשור להמרת מט"ח.

פורסם במקור בפורום CODE613 ב04/03/2017 23:02 (+02:00)

וואי וואי אתה מזכיר נשכחות....

האמת שבינתיים כלום

אבל אולי באמת... (זה יהיה אחרי שאני יסיים עם הפרוייקט של יצירת 30 שעות ביממה במקום ה24 הנוכחיות. נכתב באווירת השבוע הקרוב....)

פורסם במקור בפורום CODE613 ב04/03/2017 22:56 (+02:00)

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

ClickOne

פורסם במקור בפורום CODE613 ב19/01/2014 21:01 (+02:00)

@דוד ל.ט.

ClickOne, כלל יהיה נקוט בידך: בVB.NET ובC#, כל קוד VBA יורד ב70-90%. קוד משפה אחרת גם מקבל ירידה משמעותית אבל לא בשיעור זה.
חלק בגלל תחביר משופר והרבה בגלל ספרייה רחבה בהיקף של דוט נט.

לא אמרתי שלא. רק אמרתי שאפשר להמיר VBA לדוטנט בצורה חלקה (וגם בזבזנית בקוד) -אבל זה יעבוד.

פורסם במקור בפורום CODE613 ב07/01/2014 16:22 (+02:00)

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

פורסם במקור בפורום CODE613 ב07/01/2014 00:46 (+02:00)

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

public string InverseText(ref string sText)
{
	int i = 0;
	string S2 = null;
	for (i = Strings.Len(sText); i >= 1; i += -1) {
		S2 = S2 + Strings.Mid(sText, i, 1);
	}
	return S2;
}

או בVB:

Public Function InverseText(ByRef sText As String) As String
Dim i As Integer
Dim S2 As String
For i = Len(sText) To 1 Step -1
S2 = S2 & Mid(sText, i, 1)
Next
InverseText = S2
End Function

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

פורסם במקור בפורום CODE613 ב07/01/2014 00:23 (+02:00)

@שמואל

@ארכיטקט
יש גם אתר שנקרא מסבית שמעתי זה יוצר קובץ מסב חינם אין כסף.

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

הייתי מנסה לקחת את מה שיש שם, ולהדביק כאן (אתר שנותן לך להמיר מVB.NET לC# ולהפך)
לפני זה קח את הקוד של הVBA באקסס מפרוג, ותדביק אותו בתוך מודול של VB.NET, תגלה כמה פשוט ההעברה, רובב הדברים ישוכתבו לדוטנט, (לדוגמא: Variant יהפוך לObject), אח"כ תכנס לממיר ומיר אותו לC#. (או פשוט תשתמש בקלאס של VB בC# - נראה לי שזה אפשרי)

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

פורסם במקור בפורום CODE613 ב06/01/2014 23:02 (+02:00)

@ארכיטקט

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

יתרה מכך, למה א"א לשדר קובץ מס"ב דרך WEB SERVICE כמו באשראי?? לסגור את הקובץ לשמור אותו, לפתוח את מסב, להכניס את הקובץ, לבדוק, לבחור תאריך ערך, לאשר, לבצע, לשדר, לשים שם משתמש וסיסמא, וסגור 4 מסכים נפרדים... (מספיק ארוך התהליך???)
אגב, בקשר לתהליך הארוך, אני מצרף קובץ הוראות של אחד התומכים הבכירים במס"ב לשידור אוטומטי של הקובץ שיצרתם.
לינק לקובץ כי א"א לצרף כאן קובץ DOC

פורסם במקור בפורום CODE613 ב06/01/2014 22:56 (+02:00)

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

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

פורסם במקור בפורום CODE613 ב06/01/2014 22:49 (+02:00)

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

פורסם במקור בפורום CODE613 ב06/01/2014 22:38 (+02:00)

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

פורסם במקור בפורום CODE613 ב06/01/2014 00:32 (+02:00)

לצערי, זה מה שאני מקבל

Screenshot 2014-01-06 00.25.49.png

פורסם במקור בפורום CODE613 ב06/01/2014 00:26 (+02:00)

@דוד ל.ט.

web בלי שרת, זה לא שווה כלום.
איך תקרא את תוכן הפקדים?
איך תאזין לאירועי הדף/JS?
הפיתרון המסורבל הוא להשתמש בקבצים שזה זבל של עבודה.

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

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

פורסם במקור בפורום CODE613 ב08/01/2014 11:25 (+02:00)

@KingYes

למה כילאים?
אני מבין שיש לך חסכים מאיפה שאתה עומד.. :mrgreen:

ממש לא! כמו שאתה (ומיסטר ר') מתנגדים להביא את עולם הטפסים כי א"א לעשות כלאיים....
@ארכיטקט

אני נגד לכתוב פקדי web באקסס.

מי שכבר עובר ל web שיעבור עד הסוף, מי שעובד עם אקסס שיבין שאלו הם יכולותיו, זה לא שווה את התחזוקה.

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

פורסם במקור בפורום CODE613 ב08/01/2014 09:48 (+02:00)

@ClickOne

רציתי להתייעץ ולשמוע את דעתכם.
........

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

[size=150:bgsuz69e]מעניין שעל זה אף אחד לא ענה.[/size:bgsuz69e]
מה אתם אומרים, ראוי בכלל לנסות לכתוב פקדי WEB או להביא ממשק דמוי WEB לטפסי חלון, או שזה סתם עירבוב מעצבן בין התחומים.
אתם מתחברים לממשק כזה? או הייתם מעדיפים טפסים פשוטים?
דעתכם חשובה לי!!

פורסם במקור בפורום CODE613 ב07/01/2014 23:20 (+02:00)