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

לאחרונה אני מקבל כל יום כ-4/5 הודעות כמו שמצורף בתמונה.
וזה מגיע כל פעם מכתובת אחרת.
יש מה לעשות לזה?

@בערל
יש שם 2 אפשרויות
הראשון זה עם סימניות
כלומר אתה יוצר סימניות במסמך
ואח"כ עובר עליהם ומכניס להם ערכים
את האמת שלא מכיר את זה כל כך

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

@בערל אמר בהדפסת ד''וח מאקסס על בסיס קובץ וורד:

Mail Merge

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

@בערל
אולי לא הבנתי נכון?

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

@שלל
שים את הקוד הבא בעת לחיצה על הפקד CheckBox1

 If IsNull(CheckBox1.Value) Then
 CheckBox1.Caption = "Value is Null"
 ElseIf CheckBox1.Value = False Then
 CheckBox1.Caption = "Value is False"
 ElseIf CheckBox1.Value = True Then
 CheckBox1.Caption = "Value is True"
 End If

@איש-ימיני
מצורף חוברת ישנה מאמין שיש עדכונים מאז
איך לאשר.pdf

@ass
נראה לי ש @חגי התכוון שהמשתנה $i מכיל את המיקום
כלומר אתה צריך להגדיר לו ש$i שווה ל-0
או להריץ לולאה

@zvinissim

1. בניין עובד

2. היום יש תשתית אחת של בזק לאינטרנט ותשתית נוספת עם דרייטק למצלמות.

3. לא הבנתי את השאלה....

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

5. אני מחפש המלצה על יועץ רשת.

תודה

@avramk אמר בבחירת תשתית נכונה למוסד, פורטיגייט/דרייטק/2 תשתיות?!:

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

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

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

שלום לכולם.

אודה לקבלת הכוונה, על בנין גדול שיש בו ב-100 מצלמות, 10 מחשבים ועוד 20 קווי טלפון IP, מדפסות ועוד.
כרגע יש 2 תשתיות אחד לגלישה ועוד אחד של דרייטק לטלפון IP, אין צורך לצפיה מרחוק במצלמות.
יש עכשיו איש תקשורת שמציע לעבור על תשתית אחת של בזק פורטיגייט+/ סיב אופטי.

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

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

@אוריי אמר בעזרה | לערוך קובץ אקסל ע"י קוד vba מקובץ אקסס:

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

תנסה ללחוץ על קונטרול+BREK
או משהו בסגנון כדי לשחרר אותו
כמובן שאתה צריך להיות בפוקוס

@אוריי
שים לב שחסר לך את המקף במשתנה מסוג אובייקט אקסל

xl_App.Quit

@אוריי תוכל בבקשה לעלות את הקוד המלא
או לחילופין לעבור לקוד שהבאת
ולהוסיף אחרי השורה הזאת
End With
את האפשרות של סגירת האקסל

תכל'ס הקוד שהבאת הוא מצוין
כי היה בו

1. טיפול בשגיאות
2. שמירת הנתונים
3. ניקוי האובייקטים

@אוריי אמר בעזרה | לערוך קובץ אקסל ע"י קוד vba מקובץ אקסס:

@מנחם
הרבה תודה
זו באמת היתה הבעיה
תכלס התקדמתי עוד
וזה הקוד שיש לי

On Error GoTo doExcelAutomationErr

Dim mySheet As Object
Dim xlApp As Object
Dim strName As String

    strName = aName
    Set xlApp = CreateObject("Excel.Application")
    Set mySheet = xlApp.Workbooks.open(aName).Sheets(1)

    mySheet.SaveAs strName
    xlApp.Visible = False
    Set mySheet = xlApp.Sheets("Export")
    
    With mySheet
        
    Range("a1").Value = "שם ספר"
    Range("b1").Value = "צבע"
    Range("c1").Value = "מדף"
    Range("d1").Value = "שם מחבר"
    Range("e1").Value = "סיווג"
    Range("f1").Value = "הערות"
    
    
    .Application.ActiveWorkbook.Save
    End With
    
    Set mySheet = Nothing
    Set xlApp = Nothing

doExcelAutomationExit:
    Exit Sub

doExcelAutomationErr:
    MsgBox Err.Description, vbOKOnly, Err.Source & ":" & Err.Number
    Resume doExcelAutomationExit

הקוד עובד מעולה חוץ מזה שיש לי 2 בעיות...
1. בשורה 11 הוא ככל הנראה פותח קובץ חדש והוא מבקש ממני להחליף אותו מה שאני רוצה לבטל עריכה: בסיעתא דשמיא הצלחתי להתגבר על הבעיה הזו.
2. הקוד הזה לא סוגר לי את קובץ האקסל

משתנה aName מכיל את הנתיב של הקובץ

אני מקוה שהבנת ששורה 11 צריך למחוק
שים לב ששורה 9 ו 13 חוזרים על עצמם
אני הייתי משאיר רק את שורה 9
כשהסוגריים הראשון זה שם הקובץ והסוגריים השני זה או מספר הגליון כמו שרשום אצלך או "שם הגליון" עם מרכאות

@אוריי
דבר ראשון אני מצרף לך ולאחרים קוד בסיסי מסודר
בשורה 13 יש לך את הסגירה של האקסל

'הגדרת המשתנים עבור אקסל
Dim xl_app As Object, xlwkb As Object, xl_wks As Object
'פתיחת אובייקט מסוג אקסל
Set xl_app = CreateObject("Excel.Application")
'פתיחת הקובץ המבוקש
Set xl_wkb = xl_app.Workbooks.Open("C:\Users\USER\Desktop\עותק של אנשי  קשר.xlsx")
'פתיחת הגליון הרצוי
Set xl_wks = xl_wkb.Sheets("חברות ביטוח ")
'A2 הצגת תוכן התא
MsgBox = xl_wks.Range("A" & 2).Value

'סגירת האובייקט הנל מסוג אקסל
xlApp.Quit

@אוריי בדיוק כמו בפוסט שהבאת את הקישור
זה נראה מתרגום גוגל
שלא שמת את הקישור ל-גליון

Set xl_wks = xl_wkb.Sheets(source_cbo)

source_empl_col = xl_wks.Range(empl_col_txt.Text & 1).Column

@חוקר אמר בהתממשקות ל API של ניהול קופה והדפסת הקבלה על נייר תרמי:

@מנחם אמר בהתממשקות ל API של ניהול קופה והדפסת הקבלה על נייר תרמי:

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

משהו תואם למסמך המקור.

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

@חוקר אמר בהתממשקות ל API של ניהול קופה והדפסת הקבלה על נייר תרמי:

@מנחם אמר בהתממשקות ל API של ניהול קופה והדפסת הקבלה על נייר תרמי:

כי יהיה מאוד מעניין איך אפשר להדפיס חשבונית של איזיקאונט וכדו' בפורמט קטן

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

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

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