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

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

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

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

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

עכשיו ג' מרץ 18, 2014 12:00 am

האמנם???

אצלי (GMT+2) השעה 14:00

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

כאן מצאתי קוד הממיר BAML לXMAL. אם יש לך כח וזמן תוכל להופכו.

פורסם במקור בפורום CODE613 ב17/03/2014 17:27 (+02:00)

בעת הידור פרויקט WPF בVisual Studio קבצי הXSML מומרים לקבצים בינריים - BAML.

פורסם במקור בפורום CODE613 ב17/03/2014 12:49 (+02:00)

@magicode

מה הבעיה לעשות שני שדות בוליאנים 1. האם ספק. 2. האם לקוח.

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

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

No-IP מקבל את ההמלצה שלי, אגב ישנם נתבים שמאפשרים הגדרת DNS דינאמי (אתמןל הגדרתי את זה על ראוטר של Vtech.

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

נשמע מעניין.

לדעתי יהיה יותר נוח אם יערך לאחר פסח.

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

אכן.

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

ניתן להשתמש בפונקציות פיננסיות וכדו' באמצעות CLR.
ראה כאן

או בUser Defined Functions
ראה כאן

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

תפעיל את הקוד הנ"ל בחלון המיידי, ותראה מה קורה ...

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

האם לזה כוונתך?

WordBasic.InsertImagerScan

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

כאן יש עדכון http://www.prog.co.il/showpost.php?p=2017816&postcount=11

פורסם במקור בפורום CODE613 ב10/03/2016 08:15 (+02:00)

@HUBHCBH

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

#If VBA7 Then
  'הקוד הזה יעבוד על 64 ביט
  'בין Declare ל Function הוספנו PtrSafe

    Private Declare PtrSafe Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long

#Else

'הקוד הזה יעבוד על 32 ביט
    Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
#End If

אל תשכח להוסיף את התנאי...

כמעט מדוייק...

#If Win64 And VBA7 Then

Private Type BROWSEINFO
    hOwner As LongPtr
    pidlRoot As LongPtr
    pszDisplayName As String
    lpszTitle As String
    ulFlags As Long
    lpfn As LongPtr
    lParam As LongPtr
    iImage As Long
End Type

Private Declare PtrSafe Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As LongPtr
Private Declare PtrSafe Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long

#Else

Private Type BROWSEINFO
    hOwner As Long
    pidlRoot As Long
    pszDisplayName As String
    lpszTitle As String
    ulFlags As Long
    lpfn As Long
    lParam As Long
    iImage As Long
End Type

Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long

#End If

פורסם במקור בפורום CODE613 ב22/06/2015 18:41 (+03: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)

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

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

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

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)