בניית פרוצדורה לשליחת דוח ע"י הTTS

לפרוצדורה נדרשת שתי שורות בלבד

:GROUP = 'TAPIMW';
EXECUTE WINACTIV '-R', 'XXXX_NOPRODUCTION2', '-g', :GROUP;

הגישה הזו מחייבת את הדו"ח להיות ללא פרמטרים.

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

קודם כל CONTEXPIRY זה לא דו"ח, זאת פרוצדורה שיש בתוכה דו"ח.

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

אבל במקרה שלך כל זה לא יעזור, כי את צריכה תאריך דינמי.

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

OK.
אז צריך להעתיק את הפרוצדורה CONTEXPIRY (לא את הדו"ח).
בפרוצדורה הפרטית שיצרת (לא ב-CONTEXPIRY !!!) יש לעשות שינויים כדלהלן:
1. למחוק שלבים 2, 10.
2. למחוק משלב 20 את הפרמטרים DAT, NC (להשאיר את ה-STK).
3. בשלב 10 למחוק את הקוד ובמקומו להכניס את הקוד הבא:
LINK STACK23 TO :$.STK;
ERRMSG 1 WHERE :RETVAL <= 0;
INSERT INTO STACK23(FIRSTKEY, SECONDKEY)
SELECT DOCUMENTS.DOC, CUSTOMERS.CUST
FROM DOCUMENTS, CUSTOMERS, SERVCONT
WHERE DOCUMENTS.TYPE = 'Z'
AND DOCUMENTS.CANCEL 'Y'
AND SERVCONT.EXPIRYDATE <= ENDOFMONTH(SQL.DATE)
AND DOCUMENTS.CUST = CUSTOMERS.CUST
AND DOCUMENTS.DOC = SERVCONT.DOC;
UNLINK STACK23;


בהצלחה!