רועי זלוף

בטריגר #INCLUDE DOCTRIG/NextPattern (שמעדכן מספר תעודה חדש לפי סוג התעודה ותבנית הסניף).

בסוף הטריגר ישנה השורה:
<p style="direction: ltr;">:$.DOCNO.T = :DOCNO;</p>
 

א. ראיתי את תנאי הLIKE בטריגרים הקיימים, וזה הסתדר (like '%').

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

תודה רבה!

אכן אתה צודק, מטרתי היתה להשתמש ב-date table, ושתי הפתרונות שהצעת עברו לי בראש, רציתי רק לבדוק אם קיימת טבלה שכזאת שאני לא מכיר.

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

תודה רבה,

רועי.

משהו לא מובן פשוט קרה בפרויקטים מסוימים בשרת הטסטים.

העברתי את זה לשרת האמת, והכל תקין.

קודם כל תודה.

גם לפני זה ניסיתי להפעיל את זה עם השמת הסטטוס בתוך משתנה, וזה לא עבד – גם לא עם הממשק שלי וגם לא עם הממשק הסטנדרטי.

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

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

מוזר מאוד.

LINK GENERALLOAD TO :$.GL;

ERRMSG 1 WHERE :RETVAL <= 1;

INSERT INTO GENERALLOAD (LINE, RECORDTYPE, INT1, TEXT1)

VALUES(1, '1', 136399, 'סופית');

EXECUTE INTERFACE 'METL_CLOSEPROJ',SQL.TMPFILE,'-L',:$.GL;

SELECT LINE, RECORDTYPE, INT1, TEXT1, TEXT2, LOADED, KEY1, KEY2,

KEY3 FROM GENERALLOAD TABS 'C:\GL.TXT';

UNLINK GENERALLOAD;

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

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

:STR = 'שולש םייתש דחא';
:NEW = ";
:LEN = 0;
:CHAR = ";
:ALPHA = 0;
:CNT = 0;
/* INSERT '-' TO STRING */
SELECT STRLEN(:STR) INTO :LEN FROM DUMMY;
:NEW_LEN = :LEN;
LABEL 500;
SELECT SUBSTR(:STR,:NEW_LEN,1) INTO :CHAR FROM DUMMY;
:ALPHA = ISALPHA(:CHAR);
SELECT STRCAT(:NEW,(:ALPHA = 0 ? :CHAR : '-')) INTO :NEW FROM DUMMY;
:NEW_LEN = :NEW_LEN -1;
LOOP 500 WHERE :NEW_LEN > 0;
:STR = :NEW;
/* COUNT AMOUNT OF '-' */
SELECT STRLEN(:STR) INTO :LEN FROM DUMMY;
:NEW_LEN = :LEN;
LABEL 501;
SELECT SUBSTR(:STR,:NEW_LEN,1) INTO :CHAR FROM DUMMY;
:CNT = (:CHAR = '-' ? :CNT + 1 : :CNT);
:NEW_LEN = :NEW_LEN -1;
LOOP 501 WHERE :NEW_LEN > 0;
/* REPLACE '-' TO ' ' */
LABEL 502;
SELECT STRCAT(STRPIECE(:STR,'-',1,:CNT),' ',STRPIECE(:STR,'-',:CNT +
1,1)) INTO :STR FROM DUMMY;
:CNT = :CNT – 1;
LOOP 502 WHERE :CNT > 0;
SELECT :STR FROM DUMMY FORMAT;