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

ClickOne תודותי נתונים לך על שיפור קובץ המס"ב לתועלת הכלל.

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

1. עיצוב הטופס מחדש.
2. ניקוי הזכרון בסוף הפונקציות ע"י Set Object = Nothing, אני יודע שיש דעות בדבר הצורך בדבר, אך בכל מקרה אם לא יועיל לא יזיק.
3. תיבה משולבת לבחירת סוג הקובץ זיכוי/חיוב. (לא ניתן לשלב את שניהם בקובץ אחד).
4. יצירת הקובץ רק אם אין שדות ריקים בטופס.
5. שינוי בבדיקת חוקיות חשבון בנק, כל חשבון בבנק ירושלים חוקי.
6. סידור מחדש של חלק מהקוד, מחיקת שורות מיותרות, שינוי שנות פונקציות ומשתנים בהתאמה לשאר הקובץ.
7. תיקון שיבוש בקוד המקורי rs.clone במקום rs.close.
8. PadString(CStr(!Amount * 100), 13, "0", False) & _ במקום PadString(Replace(IIf(InStr(!Amount, ".") < 1, !Amount & String(2, "0"), IIf(InStr(StrReverse(!Amount), ".") = 2, !Amount & "0", !Amount)), ".", ""), 13, "0", False) & _

ועוד כמה שינויים קטנים.

בהצלחה לכולם.

דוגמא למס''ב.zip

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

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

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

2. הודעה נשלחת לשורת הסטטוס בכל שלב, למען ידע המשתמש מה מתרחש.

   Option Compare Database
   Option Explicit

   #If Win64 And VBA7 Then
   Public Declare PtrSafe Function InternetGetConnectedState Lib "wininet.dll" (lpdwFlags As LongPtr, ByVal dwReserved As Long) As Boolean
   #Else
   Public Declare Function InternetGetConnectedState Lib "wininet.dll" (lpdwFlags As Long, ByVal dwReserved As Long) As Boolean
   #End If

   Sub DownloadFile(myURL As String, FileNameSave As String)

   'myURL = "http://www.bankisrael.gov.il/he/BankingSupervision/BanksAndBranchLocations/Lists/BoiBankBranchesDocs/snifim.xls"
   Dim WinHttpReq As Object
   Dim oStream As Object

    ' בדיקה אם קיים חיבור לאינטרמת
    If InternetGetConnectedState(0, 0) Then
        Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
        WinHttpReq.Open "GET", myURL, False, "", ""
        WinHttpReq.send
   
        myURL = WinHttpReq.responseBody
        If WinHttpReq.Status = 200 Then
            Set oStream = CreateObject("ADODB.Stream")
            oStream.Open
            oStream.Type = 1
            oStream.Write WinHttpReq.responseBody
            oStream.SaveToFile FileNameSave, 2    ' 1 = no overwrite, 2 = overwrite
            oStream.Close
        End If
   
        Set WinHttpReq = Nothing
        Set oStream = Nothing
    Else
        MsgBox "לא זוהה חיבור לאינטרמת!" & "לא ניתן לעדכן את רשימת הסניפים.", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "מנותק!"
    End If
   

   End Sub

   Public Function ImportBranchXml()
   On Error Resume Next
   Dim sFile As String
   SysCmd acSysCmdSetStatus, "מוחק טבלה זמנית..."
   DoCmd.DeleteObject acTable, "Branch"
   sFile = CurrentProject.Path & "" & Format(Now, "ddmmyyyynnss") & ".xml"
   SysCmd acSysCmdSetStatus, "מוריד קובץ מאתר בנק ישראל..."
   DownloadFile "http://www.bankisrael.gov.il/he/BankingSupervision/BanksAndBranchLocations/Lists/BoiBankBranchesDocs/snifim_he.xml", sFile
   SysCmd acSysCmdSetStatus, "מייבא רשימת סניפים מהקובץ הזמני..."
   ImportXML sFile
   SysCmd acSysCmdSetStatus, "מוחק קובץ זמני..."
   Kill sFile
   SysCmd acSysCmdSetStatus, "מוחק את הסניפים מהטבלה"
   CurrentDb.Execute "DELETE * FROM TblBanks"
   SysCmd acSysCmdSetStatus, "מייבא רשימת סניפים מהטבלה הזמנית..."
   CurrentDb.Execute "INSERT INTO tblBanks ( [קוד בנק], [שם בנק], [מס סניף], [שם סניף], [כתובת סניף], יישוב, מיקוד, טלפון, פקס ) SELECT BRANCH.Bank_Code, BRANCH.Bank_Name, BRANCH.Branch_Code, BRANCH.Branch_Name, BRANCH.Branch_Address, BRANCH.City, BRANCH.Zip_Code, BRANCH.Telephone, BRANCH.Fax FROM BRANCH;"
   SysCmd acSysCmdSetStatus, "מוחק טבלה זמנית..."
   DoCmd.DeleteObject acTable, "Branch"
   SysCmd acSysCmdClearStatus
   End Function

פורסם במקור בפורום CODE613 ב23/04/2014 17:37 (+03:00)

Private Sub Form_Load()
    Me.RecourdSource = "SELECT tblTest.* FROM tblTest"
End Sub

פורסם במקור בפורום CODE613 ב07/06/2016 11:02 (+03:00)

גוגל והעזרה של VBA.

פורסם במקור בפורום CODE613 ב03/05/2016 10:46 (+03:00)

ניתן להשתמש עם C# אבל זה מסורבל, יותר קל להשתמש במאקרו כזה

Sub Demo()
    Dim para As Paragraph
    For Each para In ActiveDocument.Paragraphs
        If Len(para.Range) = 1 Then
            para.Range.Style = "כותרת 1"
        End If
    Next para
End Sub

פורסם במקור בפורום CODE613 ב03/05/2016 10:01 (+03:00)

בס"ד נמצאה הפתרון, כדלהלן:

using Newtonsoft.Json;

private void Window_Loaded(object sender, RoutedEventArgs e)
    {
        string url = "https://api.myjson.com/bins/30fkq";
        using (var wc = new WebClient())
        {
            var strJsonData = string.Empty;
        try
        {
            strJsonData = wc.DownloadString(url);
            var students = JsonConvert.DeserializeObject<Students>(strJsonData);
            cboStudents.ItemsSource = students.Student;
            cboStudents.DisplayMemberPath = "Surname";
        }
        catch (Exception ex)
        {
            System.Windows.MessageBox.Show(ex.ToString());
        }
    }
 
    public class Students
    {
        public Student[] Student { get; set; }
    }
 
    public class Student
    {
        public string Surname { get; set; }
        public string GivenName { get; set; }
        public long Age { get; set; }
    }

פורסם במקור בפורום CODE613 ב04/07/2015 21:52 (+03:00)

לזה בדיוק מיועד תוסף זה https://wordpress.org/plugins/zip-attachments/

פורסם במקור בפורום CODE613 ב29/04/2015 23:17 (+03:00)

בטבלה יש לשמור כל פעולה שנעשתה בפנ"ע.
סיכומים ושאר ירקות [u:3bj7ypfm]רק[/u:3bj7ypfm] בשאילתות.

פורסם במקור בפורום CODE613 ב24/08/2014 00:36 (+03:00)

SQLITESPY הינו ממשק גרפי לניהול מסדי נתונים של SQLite.
כאן http://www.yunqa.de/delphi/doku.php/products/sqlitespy/index תמצא פירוט.

פורסם במקור בפורום CODE613 ב04/04/2014 00:13 (+03:00)

התאריך שמכניסים בinput box הוא לא לצורך סינון, הוא רק ערך יום החיוב/זיכוי לצורך מס"ב.

ניתן להוסיף סינון אם יש בכל צורך, אבל לצורך כך נצטרך לסנן את הrecord set בתחילת הקוד.

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

@yits אמר בהמלצה על אנטי וירוס:

השאלה יותר איך האנשים הפשוטים מסתדרים,
לא איך הטכנאים והמתכנתים.

אני איש פשוט.

כוונתך אולי לזה:
http://www.lukepaynesoftware.com/projects/peek-through/

זה לא VB, זה הבן דוד שלו VBA.
בכל מקרה תצטרך ללמוד את הobject model של וורד, על הדרך תלמד VBA.
זה פשוט וקל.

פורסם במקור בפורום CODE613 ב03/05/2016 10:37 (+03:00)

@רחמים

אולי תוכנת K9 תעזור לך

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

פורסם במקור בפורום CODE613 ב11/10/2015 23:09 (+03:00)

יש דרכים רבות, הנה הדרך הפשוטה ביותר, בxaml תוסיף SelectedIndex.

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

<ComboBox Name="cboTest" SelectedIndex="0" Width="200" Height="22" VerticalAlignment="Top" HorizontalAlignment="Left" Margin="10,10,0,0">

פורסם במקור בפורום CODE613 ב08/07/2015 13:33 (+03:00)

בVBA אין אפשרות כזו. צריך להקיף את התוים המיוחדים בגרשיים.

פורסם במקור בפורום CODE613 ב19/04/2015 08:46 (+03:00)

מה רע בShell?

פורסם במקור בפורום CODE613 ב17/02/2015 21:39 (+02:00)

תוכל להשתמש עם הכלי Mgmtclassgen.exe
http://msdn.microsoft.com/en-us/library/2wkebaxa(vs.80).aspx
ליצור קוד כזה:

using System.Management;


	public static class Module1
	{

		public static bool IsUserLoggedOn(string userName)
		{
			ManagementClass mc = new ManagementClass("Win32_Process");
			ManagementObjectCollection moc = mc.GetInstances();
			ManagementObject mo = null;
			foreach (ManagementObject mo_loopVariable in moc) {
				mo = mo_loopVariable;
				ROOT.CIMV2.Process p = new ROOT.CIMV2.Process(mo);

				string processDomain = null;
				string processUser = null;
				p.GetOwner(processDomain, processUser);
				if (processUser == userName) {
					return true;
				}
			}
		}
	}

פורסם במקור בפורום CODE613 ב27/12/2014 19:38 (+02:00)

כבר עניתי לך בפרוג!

התשובה וקובץ דוגמא תמצא שם.

פורסם במקור בפורום CODE613 ב23/12/2014 15:21 (+02:00)

השתמש ב Microsoft Office Document Imaging Viewer Control.
http://msdn.microsoft.com/en-us/library/office/aa167614(v=office.11).aspx
http://support.microsoft.com/kb/982760/he

פורסם במקור בפורום CODE613 ב28/10/2014 16:34 (+02:00)