דילוג לתוכן
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

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

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. גומלין - כללי
  3. הוספת מיקוד אוטומטי בקובץ אקסל

הוספת מיקוד אוטומטי בקובץ אקסל

מתוזמן נעוץ נעול הועבר גומלין - כללי
16 פוסטים 9 כותבים 2.1k צפיות 8 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • by6199B by6199

    שלו' וברכה

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

    א מנותק
    א מנותק
    אופקים
    כתב ב נערך לאחרונה על ידי
    #4

    @by6199 יש לרשות הדואר שרות שניתן ללא עלות לנושא המיקוד ושמו "השתלת מיקוד וקוד חלוקה" .

    מצ"ב הסכם השתלת מיקוד וקוד חלוקה יש לחתום ולשלוח למייל0_1536174986118_כתב הסכמה השתלה וקוד חלוקה 2013.pdf לאחר מכן יש לשלוח את הקובץ להשתלת מיקוד למייל mikudsupport@postil.com .

    by6199B תגובה 1 תגובה אחרונה
    0
    • א אופקים

      @by6199 יש לרשות הדואר שרות שניתן ללא עלות לנושא המיקוד ושמו "השתלת מיקוד וקוד חלוקה" .

      מצ"ב הסכם השתלת מיקוד וקוד חלוקה יש לחתום ולשלוח למייל0_1536174986118_כתב הסכמה השתלה וקוד חלוקה 2013.pdf לאחר מכן יש לשלוח את הקובץ להשתלת מיקוד למייל mikudsupport@postil.com .

      by6199B מנותק
      by6199B מנותק
      by6199
      כתב ב נערך לאחרונה על ידי
      #5

      @אופקים אמר בהוספת מיקוד אוטומטי בקובץ אקסל:

      @by6199 יש לרשות הדואר שרות שניתן ללא עלות לנושא המיקוד ושמו "השתלת מיקוד וקוד חלוקה" .

      מצ"ב הסכם השתלת מיקוד וקוד חלוקה יש לחתום ולשלוח למייל0_1536174986118_כתב הסכמה השתלה וקוד חלוקה 2013.pdf לאחר מכן יש לשלוח את הקובץ להשתלת מיקוד למייל mikudsupport@postil.com .

      וצריך לקוות שהדואר ייעשה את זה תוך 36 ימי עסקים ....

      תגובה 1 תגובה אחרונה
      3
      • by6199B by6199

        @www אמר בהוספת מיקוד אוטומטי בקובץ אקסל:

        @by6199 זה קצת מסבובך.
        אם זה היה הפוך, יותר קל.

        אבל כאן יכול להיות הרבה שגיאות הקלדה.

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

        A מנותק
        A מנותק
        Avi_av
        כתב ב נערך לאחרונה על ידי
        #6

        @by6199 אמר בהוספת מיקוד אוטומטי בקובץ אקסל:

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

        אז את אלו שלא יזהו אוטומטית - תמלא ידנית..
        את העבודה הקשה חסכת.

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

        avi_av at hi2.in

        by6199B תגובה 1 תגובה אחרונה
        0
        • A Avi_av

          @by6199 אמר בהוספת מיקוד אוטומטי בקובץ אקסל:

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

          אז את אלו שלא יזהו אוטומטית - תמלא ידנית..
          את העבודה הקשה חסכת.

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

          by6199B מנותק
          by6199B מנותק
          by6199
          כתב ב נערך לאחרונה על ידי
          #7

          @avi_av אמר בהוספת מיקוד אוטומטי בקובץ אקסל:

          @by6199 אמר בהוספת מיקוד אוטומטי בקובץ אקסל:

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

          אז את אלו שלא יזהו אוטומטית - תמלא ידנית..
          את העבודה הקשה חסכת.

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

          ראיתי, לא יודע איך להגדיר בקובץ, האקסס שם לא תקין ובנוסף זה אחד אחד את זה גם ניתן לעשות באתר הדואר

          Y תגובה 1 תגובה אחרונה
          0
          • by6199B by6199

            @avi_av אמר בהוספת מיקוד אוטומטי בקובץ אקסל:

            @by6199 אמר בהוספת מיקוד אוטומטי בקובץ אקסל:

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

            אז את אלו שלא יזהו אוטומטית - תמלא ידנית..
            את העבודה הקשה חסכת.

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

            ראיתי, לא יודע איך להגדיר בקובץ, האקסס שם לא תקין ובנוסף זה אחד אחד את זה גם ניתן לעשות באתר הדואר

            Y מנותק
            Y מנותק
            yits
            כתב ב נערך לאחרונה על ידי yits
            #8

            @by6199

            אם אתה עדיין צריך קוד, מצאתי משהו שעשיתי עם הקוד שפורסם בפרוג.
            Module1.bas

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

            ' השורה הראשונה עבור אקסס בלבד
            Option Compare Database
            Option Explicit
            
            Sub Demo()
            
                Dim rs As DAO.Recordset
                Dim strUrl As String
            
                Set rs = CurrentDb.OpenRecordset("נתונים")
            
                With rs
                    .MoveFirst
                    Do Until rs.EOF
                  
                        If Nz(!מיקוד) = "" Then
            
                            strUrl = "http://www.israelpost.co.il/zip_data1.nsf/SearchZip?OpenAgent"
                            strUrl = strUrl & "&Location=" & UnicodeEncode(!עיר)
                            strUrl = strUrl & "&POB="
                            strUrl = strUrl & "&Street=" & UnicodeEncode(!רחוב)
                            strUrl = strUrl & "&House=" & UnicodeEncode(!בית)
                            strUrl = strUrl & "&Entrance=" & UnicodeEncode(!כניסה)
                        
                            .Edit
                            !מיקוד = GetZipCode(strUrl, False)
                            .Update
                            If !מיקוד <> 0 Then
                                Debug.Print !עיר & vbTab & !רחוב & vbTab & !בית & vbTab & !מיקוד
                            End If
                        End If
                       
                        .MoveNext
                         
                    Loop
                End With
            
            End Sub
            
            Public Function UnicodeEncode(str) As String
                If IsNull(str) Then Exit Function
                Dim i, a
                For i = 1 To Len(str)
                    a = AscW(Mid(str, i, 1))
                    If a > -1 And a < 127 Then
                        UnicodeEncode = UnicodeEncode & "%" & String(2 - Len(Hex(a)), "0") & Hex(a)
                    ElseIf a > -1 Or a < 65535 Then
                        UnicodeEncode = UnicodeEncode & "%u" & String(4 - Len(Hex(a)), "0") & Hex(a)
                    End If
                Next
            End Function
            
            Function GetZipCode(strUrl As String, Optional blnAlert As Boolean = True) As Long
            
                Dim oHttpRequest As Object
                Dim strResult As String
            
                Set oHttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
                oHttpRequest.Open "GET", strUrl
            
                ' שליחת בקשה '
                oHttpRequest.Send
            
                ' נקבל תוצאה זו '
                strResult = oHttpRequest.ResponseText
            
                ' הוצאת המיקוד 7 ספרות '
                If InStr(1, strResult, "ישוב או רחוב לא קיים") > 0 Then
                    GetZipCode = 0
                ElseIf InStr(1, strResult, "לא נמצא מיקוד") > 0 Then
                    GetZipCode = 0
                ElseIf InStr(1, strResult, "למבנה קיימות מס' כניסות – לקבלת המיקוד המדויק לכניסה - נא לבחור כניסה") > 0 Then
                    GetZipCode = Mid(strResult, InStr(1, strResult, "</body>") - 78, 7)
                    If blnAlert Then MsgBox "למבנה קיימות מס' כניסות – לקבלת המיקוד המדויק לכניסה - נא לבחור כניסה.", vbMsgBoxRight + vbMsgBoxRtlReading + vbInformation
                Else
                    GetZipCode = Mid(strResult, InStr(1, strResult, "</body>") - 8, 7)
                End If
            
                Set oHttpRequest = Nothing
            
            End Function
            
            Function GetRate(strUrl As String) As Double
            
                Dim oHttpRequest As Object
                Dim strResult As String
            
                Set oHttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
                oHttpRequest.Open "GET", strUrl
            
                ' שליחת בקשה '
                oHttpRequest.Send
            
                ' נקבל תוצאה זו '
                strResult = oHttpRequest.ResponseText
            
            ''<ERROR1>
                GetRate = Mid(strResult, _
                    InStr(1, strResult, "<RATE>") + 6, _
                    InStr(1, strResult, "</RATE>") - InStr(1, strResult, "<RATE>") - 6)
            
                Set oHttpRequest = Nothing
            
            End Function
            
            
            
            

            לקניה והנחות ב KSP כנסו מכאן.
            למוצרים עם הנחה מכאן.

            by6199B מוטי מןמ 2 תגובות תגובה אחרונה
            2
            • Y yits

              @by6199

              אם אתה עדיין צריך קוד, מצאתי משהו שעשיתי עם הקוד שפורסם בפרוג.
              Module1.bas

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

              ' השורה הראשונה עבור אקסס בלבד
              Option Compare Database
              Option Explicit
              
              Sub Demo()
              
                  Dim rs As DAO.Recordset
                  Dim strUrl As String
              
                  Set rs = CurrentDb.OpenRecordset("נתונים")
              
                  With rs
                      .MoveFirst
                      Do Until rs.EOF
                    
                          If Nz(!מיקוד) = "" Then
              
                              strUrl = "http://www.israelpost.co.il/zip_data1.nsf/SearchZip?OpenAgent"
                              strUrl = strUrl & "&Location=" & UnicodeEncode(!עיר)
                              strUrl = strUrl & "&POB="
                              strUrl = strUrl & "&Street=" & UnicodeEncode(!רחוב)
                              strUrl = strUrl & "&House=" & UnicodeEncode(!בית)
                              strUrl = strUrl & "&Entrance=" & UnicodeEncode(!כניסה)
                          
                              .Edit
                              !מיקוד = GetZipCode(strUrl, False)
                              .Update
                              If !מיקוד <> 0 Then
                                  Debug.Print !עיר & vbTab & !רחוב & vbTab & !בית & vbTab & !מיקוד
                              End If
                          End If
                         
                          .MoveNext
                           
                      Loop
                  End With
              
              End Sub
              
              Public Function UnicodeEncode(str) As String
                  If IsNull(str) Then Exit Function
                  Dim i, a
                  For i = 1 To Len(str)
                      a = AscW(Mid(str, i, 1))
                      If a > -1 And a < 127 Then
                          UnicodeEncode = UnicodeEncode & "%" & String(2 - Len(Hex(a)), "0") & Hex(a)
                      ElseIf a > -1 Or a < 65535 Then
                          UnicodeEncode = UnicodeEncode & "%u" & String(4 - Len(Hex(a)), "0") & Hex(a)
                      End If
                  Next
              End Function
              
              Function GetZipCode(strUrl As String, Optional blnAlert As Boolean = True) As Long
              
                  Dim oHttpRequest As Object
                  Dim strResult As String
              
                  Set oHttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
                  oHttpRequest.Open "GET", strUrl
              
                  ' שליחת בקשה '
                  oHttpRequest.Send
              
                  ' נקבל תוצאה זו '
                  strResult = oHttpRequest.ResponseText
              
                  ' הוצאת המיקוד 7 ספרות '
                  If InStr(1, strResult, "ישוב או רחוב לא קיים") > 0 Then
                      GetZipCode = 0
                  ElseIf InStr(1, strResult, "לא נמצא מיקוד") > 0 Then
                      GetZipCode = 0
                  ElseIf InStr(1, strResult, "למבנה קיימות מס' כניסות – לקבלת המיקוד המדויק לכניסה - נא לבחור כניסה") > 0 Then
                      GetZipCode = Mid(strResult, InStr(1, strResult, "</body>") - 78, 7)
                      If blnAlert Then MsgBox "למבנה קיימות מס' כניסות – לקבלת המיקוד המדויק לכניסה - נא לבחור כניסה.", vbMsgBoxRight + vbMsgBoxRtlReading + vbInformation
                  Else
                      GetZipCode = Mid(strResult, InStr(1, strResult, "</body>") - 8, 7)
                  End If
              
                  Set oHttpRequest = Nothing
              
              End Function
              
              Function GetRate(strUrl As String) As Double
              
                  Dim oHttpRequest As Object
                  Dim strResult As String
              
                  Set oHttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
                  oHttpRequest.Open "GET", strUrl
              
                  ' שליחת בקשה '
                  oHttpRequest.Send
              
                  ' נקבל תוצאה זו '
                  strResult = oHttpRequest.ResponseText
              
              ''<ERROR1>
                  GetRate = Mid(strResult, _
                      InStr(1, strResult, "<RATE>") + 6, _
                      InStr(1, strResult, "</RATE>") - InStr(1, strResult, "<RATE>") - 6)
              
                  Set oHttpRequest = Nothing
              
              End Function
              
              
              
              
              by6199B מנותק
              by6199B מנותק
              by6199
              כתב ב נערך לאחרונה על ידי
              #9

              @yits לצערי מעולם לא התעסקתי לבד באקסס, וזה נשמע לי גדול קצת...

              Y תגובה 1 תגובה אחרונה
              1
              • by6199B by6199

                @yits לצערי מעולם לא התעסקתי לבד באקסס, וזה נשמע לי גדול קצת...

                Y מנותק
                Y מנותק
                yits
                כתב ב נערך לאחרונה על ידי
                #10

                @by6199

                מה אתה רוצה לעשות לעדכן פריט יחיד או טבלה שלמה?

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

                לקניה והנחות ב KSP כנסו מכאן.
                למוצרים עם הנחה מכאן.

                by6199B תגובה 1 תגובה אחרונה
                1
                • Y yits

                  @by6199

                  מה אתה רוצה לעשות לעדכן פריט יחיד או טבלה שלמה?

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

                  by6199B מנותק
                  by6199B מנותק
                  by6199
                  כתב ב נערך לאחרונה על ידי
                  #11

                  @yits אמר בהוספת מיקוד אוטומטי בקובץ אקסל:

                  @by6199

                  מה אתה רוצה לעשות לעדכן פריט יחיד או טבלה שלמה?

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

                  לעדכן טבלה.

                  בודד כבר הייתי מעתיק מהדואר

                  תגובה 1 תגובה אחרונה
                  0
                  • Y מנותק
                    Y מנותק
                    yits
                    כתב ב נערך לאחרונה על ידי
                    #12

                    @by6199
                    אני התכוונתי לשאול האם אתה רוצה שבהוספת איש קשר אוטמטי יתווסף לו מיקוד
                    או פעם ב... תפעיל שאילתה של הוספת/ עדכון מיקוד לכולם.

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

                    לקניה והנחות ב KSP כנסו מכאן.
                    למוצרים עם הנחה מכאן.

                    תגובה 1 תגובה אחרונה
                    0
                    • י מנותק
                      י מנותק
                      ימהר
                      כתב ב נערך לאחרונה על ידי
                      #13

                      @by6199
                      קח קובץ אקסס שיעשה לך את זה.
                      תדביק את הנתונים שלך בטבלה, והפעל את הלחצן
                      0_1536705537649_קבלת מיקוד.accdb

                      תגובה 1 תגובה אחרונה
                      5
                      • shloymiS מנותק
                        shloymiS מנותק
                        shloymi
                        כתב ב נערך לאחרונה על ידי
                        #14

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

                        תגובה 1 תגובה אחרונה
                        0
                        • Y yits

                          @by6199

                          אם אתה עדיין צריך קוד, מצאתי משהו שעשיתי עם הקוד שפורסם בפרוג.
                          Module1.bas

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

                          ' השורה הראשונה עבור אקסס בלבד
                          Option Compare Database
                          Option Explicit
                          
                          Sub Demo()
                          
                              Dim rs As DAO.Recordset
                              Dim strUrl As String
                          
                              Set rs = CurrentDb.OpenRecordset("נתונים")
                          
                              With rs
                                  .MoveFirst
                                  Do Until rs.EOF
                                
                                      If Nz(!מיקוד) = "" Then
                          
                                          strUrl = "http://www.israelpost.co.il/zip_data1.nsf/SearchZip?OpenAgent"
                                          strUrl = strUrl & "&Location=" & UnicodeEncode(!עיר)
                                          strUrl = strUrl & "&POB="
                                          strUrl = strUrl & "&Street=" & UnicodeEncode(!רחוב)
                                          strUrl = strUrl & "&House=" & UnicodeEncode(!בית)
                                          strUrl = strUrl & "&Entrance=" & UnicodeEncode(!כניסה)
                                      
                                          .Edit
                                          !מיקוד = GetZipCode(strUrl, False)
                                          .Update
                                          If !מיקוד <> 0 Then
                                              Debug.Print !עיר & vbTab & !רחוב & vbTab & !בית & vbTab & !מיקוד
                                          End If
                                      End If
                                     
                                      .MoveNext
                                       
                                  Loop
                              End With
                          
                          End Sub
                          
                          Public Function UnicodeEncode(str) As String
                              If IsNull(str) Then Exit Function
                              Dim i, a
                              For i = 1 To Len(str)
                                  a = AscW(Mid(str, i, 1))
                                  If a > -1 And a < 127 Then
                                      UnicodeEncode = UnicodeEncode & "%" & String(2 - Len(Hex(a)), "0") & Hex(a)
                                  ElseIf a > -1 Or a < 65535 Then
                                      UnicodeEncode = UnicodeEncode & "%u" & String(4 - Len(Hex(a)), "0") & Hex(a)
                                  End If
                              Next
                          End Function
                          
                          Function GetZipCode(strUrl As String, Optional blnAlert As Boolean = True) As Long
                          
                              Dim oHttpRequest As Object
                              Dim strResult As String
                          
                              Set oHttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
                              oHttpRequest.Open "GET", strUrl
                          
                              ' שליחת בקשה '
                              oHttpRequest.Send
                          
                              ' נקבל תוצאה זו '
                              strResult = oHttpRequest.ResponseText
                          
                              ' הוצאת המיקוד 7 ספרות '
                              If InStr(1, strResult, "ישוב או רחוב לא קיים") > 0 Then
                                  GetZipCode = 0
                              ElseIf InStr(1, strResult, "לא נמצא מיקוד") > 0 Then
                                  GetZipCode = 0
                              ElseIf InStr(1, strResult, "למבנה קיימות מס' כניסות – לקבלת המיקוד המדויק לכניסה - נא לבחור כניסה") > 0 Then
                                  GetZipCode = Mid(strResult, InStr(1, strResult, "</body>") - 78, 7)
                                  If blnAlert Then MsgBox "למבנה קיימות מס' כניסות – לקבלת המיקוד המדויק לכניסה - נא לבחור כניסה.", vbMsgBoxRight + vbMsgBoxRtlReading + vbInformation
                              Else
                                  GetZipCode = Mid(strResult, InStr(1, strResult, "</body>") - 8, 7)
                              End If
                          
                              Set oHttpRequest = Nothing
                          
                          End Function
                          
                          Function GetRate(strUrl As String) As Double
                          
                              Dim oHttpRequest As Object
                              Dim strResult As String
                          
                              Set oHttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
                              oHttpRequest.Open "GET", strUrl
                          
                              ' שליחת בקשה '
                              oHttpRequest.Send
                          
                              ' נקבל תוצאה זו '
                              strResult = oHttpRequest.ResponseText
                          
                          ''<ERROR1>
                              GetRate = Mid(strResult, _
                                  InStr(1, strResult, "<RATE>") + 6, _
                                  InStr(1, strResult, "</RATE>") - InStr(1, strResult, "<RATE>") - 6)
                          
                              Set oHttpRequest = Nothing
                          
                          End Function
                          
                          
                          
                          
                          מוטי מןמ מנותק
                          מוטי מןמ מנותק
                          מוטי מן
                          כתב ב נערך לאחרונה על ידי
                          #15
                          פוסט זה נמחק!
                          תגובה 1 תגובה אחרונה
                          0
                          • Y מנותק
                            Y מנותק
                            yossidror
                            כתב ב נערך לאחרונה על ידי
                            #16
                            פוסט זה נמחק!
                            תגובה 1 תגובה אחרונה
                            0
                            תגובה
                            • תגובה כנושא
                            התחברו כדי לפרסם תגובה
                            • מהישן לחדש
                            • מהחדש לישן
                            • הכי הרבה הצבעות


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

                            • אין לך חשבון עדיין? הרשמה

                            • התחברו או הירשמו כדי לחפש.
                            • פוסט ראשון
                              פוסט אחרון
                            0
                            • דף הבית
                            • קטגוריות
                            • פוסטים אחרונים
                            • משתמשים
                            • חיפוש
                            • חוקי הפורום