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

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

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

אבל אולי באמת... (זה יהיה אחרי שאני יסיים עם הפרוייקט של יצירת 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)

@רחמים

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

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

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

נכון.
ככה זה בPHP כשאפשר לייצר טופס HTML בזמן ריצה. אתה צודק.

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

@KingYes

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

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

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

@KingYes

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

בגלל שזה לא WEB, והממשק לא מבקש מAJAX לספר לשרת מה הID שהוא קיבל ואיזה HTML להחזיר (וגם זה שכשהתוכן יישלח עם הSUBMIT הוא לא חוזר לשרת), אז זה לא כ"כ שייך. (הרי לא מדובר בטפסים בזמן ריצה.- הלוואי...).
הכל מעוצב בתוך הטופס עצמו מראש.
בעיקרון, זו השיטה הרווחת בWINFORM ודומיה, (אפילו בWPF ובASPX) - וממש בעיקרון, אפילו בPHP. תקן אותי אם אני טועה. (אני לא טוען ח"ו שא"א לבצע טפסים דינמיים בשלל השפות שהזכרתי, אלא שהמתכנת בד"כ מעצב את הטופס מראש...)

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

@ClickOne

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

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

Screenshot 2014-01-06 00.13.25.png

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

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

הקוד:

Public Function setCmd(icmd As Integer)
' מטרת הפונקצייה לסדר את האקורדיון
' משתנה עבור גובה כולל
Dim AllH As Long
' הכפתור הראשון בגובה 0
c1.Top = 0
' מעבר בפור על כל הכפתורים
For i = 1 To 9
    'הגובה של הכפתור הוא הגובה הכולל + 20
    Me("c" & i).Top = AllH + 20
    ' שינוי הערך של הגובה הכולל
    AllH = AllH + Me("c" & i).Height + 20
    ' בדיקה אם הכפתור הוא הכפתור שנלחץ (לפי המספר שבר בפרמטר) ואם כן, להציב שם את הטאב
    If icmd = i Then
        ' הצבת הטאב
        Me!TabCtl.Top = AllH + 20
        ' הגובה של הכל עד עכשיו
        AllH = AllH + TabCtl.Height + 20
    End If
   ' מעבר לכפתור הבא
Next
' הערך של הטאב הנוכחי הוא מספר הכפתור פחות אחד, כי האינדקס בטאב קונטרול מתחיל מ0
Me!TabCtl.Value = icmd - 1


End Function

להורדת הדוגמא:
Accordion.zip
[size=150:2qf5zpm2]הקובץ + קוד המקור פתוח לשימוש ושינוי חופשי![/size:2qf5zpm2]

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

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