פתיחה אוטומטית של מסך "משלוח דואר"

פורומים אפיון ופיתוח פריוריטי פתיחה אוטומטית של מסך "משלוח דואר"

  • Post
    אלמוני
    אורח
    ב-SDK מתועד איך לפתוח מסך לאחר היווצרות באמצעות ממשק

    EXECUTE WINFORM 'DOCUMENTS_D','',:DOCNO, '','2';

    (אגב, מומלץ להכניס את המלה BACKGROUND בין EXECUTE לבין WINFORM)

    כל זה טוב ויפה כל עוד יש מספר תעודה. אך איך פותחים מסך שאין לו מספר תעודה, כמו "משלוח דואר" (MAILBOXSEND)? הקוד למעלה אמנם פותח את המסך (לאחר החלפת DOCUMENTS_D ב-MAILBOXSEND) אך אני מקבל מסך ריק ולא המכתב שזה עתה פתחתי באמצעות מחולל.

מוצגות 13 תגובות – 1 עד 13 (מתוך 13 סה״כ)
  • Replies
    yitzchok
    משתתף
    IL
    לא יודע בוודאות אבל דומני שמה שאתה מעביר זה לא ערך של מפתח אלא ערך עבורו יהיה חיפוש בשדה הראשון של המסך.

    מה קורה אם אתה מעביר את הנושא (אם זה אכן השדה הראשון)?

      [ בבקשה לא לשלוח הודעות פרטיות במערכת - אני לא קורא אותן ]
    אלמוני
    אורח
    גם אני חשבתי שהפרמטר צריך להיות הנושא, אך מתברר שלא, מפני שהנושא אינו שדה יחודי בכלל. לטבלת MAILBOX יש מפתח ראשי שמורכב מארבעה שדות (ממשתמש, אל משתמש, תאריך ומספר משימה) כך נראה שאין דרך לבצע את מה שאני רוצה.

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

    roni
    משתתף
    שלום נועם
    זה אפשרי , עשיתי זאת , לא זוכר כרגע מה אני מעביר , נידמה לי שאת הנושא והתאריך
    אפשר בנושא להעביר מספר יחודי
    אלמוני
    אורח
    אשמח מאד לראות את הקוד! מידעטק אומרים שניתן להעביר את מספר המכתב (מפתח A) אבל לא הצלחתי גם כך.
    roni
    משתתף
    /* load data */
    /*header */
    /* :$.SB is the subject */
    INSERT INTO GENERALLOAD (LINE, RECORDTYPE ,TEXT)
    VALUES (1 , '1' , :$.SB) ;

    .
    .
    .

    EXECUTE INTERFACE 'MAILBOXSEND', SQL.TMPFILE, '-L', :PRIV_GL;
    /* */
    SELECT TEXT INTO :$.SB FROM GENERALLOAD
    WHERE LOADED ='Y' AND LINE = 1
    ;
    /* NEXT ADD THE FORM MAILBOXSEND AS STEP */
    In the paramenter SCREEN add SB (CHAR TYPE )

    yitzchok
    משתתף
    IL
    תודה רוני

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

    תודה

      [ בבקשה לא לשלוח הודעות פרטיות במערכת - אני לא קורא אותן ]
    roni
    משתתף

    /* load data */
    /*header */
    /* :$.SB is the subject */
    INSERT INTO GENERALLOAD (LINE, RECORDTYPE ,TEXT)
    VALUES (1 , '1' , :$.SB) ;

    .
    .
    .

    EXECUTE INTERFACE 'MAILBOXSEND', SQL.TMPFILE, '-L', :PRIV_GL;
    /* */
    SELECT TEXT INTO :$.SB FROM GENERALLOAD
    WHERE LOADED ='Y' AND LINE = 1
    ;
    /* NEXT ADD THE FORM MAILBOXSEND AS SQLI STEP */
    In the paramenter SCREEN add SB (CHAR TYPE )

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

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

    אלמוני
    אורח
    עקבתי אחרי ההוראות: הוספתי שלב לפרוצדורה שלי, MAILBOXSEND, טיפוס F. יש לו פרמטר אחד, SBJ, שהוא הנושא היחודי.

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

    roni
    משתתף
    אם הנושא ארוך מידי הוא לא נשלף
    תבדוק אם אתה שולף ידנית את הנושא (F11) האם המייל ניפתח
    (במסך משלוח דואר )
    תשלוף גם לפי תאריך תראה אם אתה מקבל משהו
    אלמוני
    אורח
    ניסיתי עם נושא "ABC" – לא עבד.
    ניסיתי להעביר את SQL.DATE למסך – גם לא עבד.

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

    roni
    משתתף
    היי
    רצב קוד שטוען את המסך
    השלב הבא פותח אותו

    SELECT SQL.TMPFILE INTO :PRIV_GL FROM DUMMY ;
    LINK GENERALLOAD TO :PRIV_GL ;
    ERRMSG 1 WHERE :RETVAL <= 0 ;
    /* load data */
    INSERT INTO GENERALLOAD (LINE, RECORDTYPE ,TEXT )
    VALUES (1 , '1' , 'ABC' ) ;
    EXECUTE INTERFACE 'MAILBOXSEND', SQL.TMPFILE, '-L', :PRIV_GL;
    /* */
    SELECT TEXT INTO :$.SB FROM GENERALLOAD
    WHERE LOADED ='Y' AND LINE = 1 ;
    UNLINK GENERALLOAD ;

    תצלום השלב שפותח אותו

מוצגות 13 תגובות – 1 עד 13 (מתוך 13 סה״כ)
  • יש להתחבר למערכת על מנת להגיב.