שליחת דוח לסוכנים מרובים במתזמן

babun: אפשר להקים קבוצה

 

להכניס את כל מי שרלוונטי לקבוצה ולשלוח את הדוח לקבוצה..

בסוף הפקודה של winactiv להוסיף  -g  ושם הקבוצה..

בהצלחה

לא עונה על הדרישה:

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

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

<p dir="ltr">LINK STACK2 TO :$.ST2;
ERRMSG 1 WHERE :RETVAL <= 0;
INSERT INTO STACK2 (ELEMENT, TYPE)
SELECT DOCUMENTS.DOC, DOCPROJ.MUSER
FROM DOCUMENTS, DOCPROJ, DOCUMENTSA, PROJTYPES
WHERE DOCUMENTS.DOC = DOCUMENTSA.DOC
AND DOCUMENTS.DOC = DOCPROJ.DOC
AND DOCPROJ.PROJTYPE = PROJTYPES.PROJTYPE
AND PROJTYPES.PROJTYPECODE = '10'
AND DOCUMENTSA.ASSEMBLYSTATUS IN (50, 56)
AND DOCPROJ.TEST_CLEANORD <= SQL.DATE8 + 3*1440
AND DOCUMENTS.DOC > 0
;
LINK STACK TO :$.ST0;
ERRMSG 1 WHERE :RETVAL <= 0;
DECLARE C1 CURSOR FOR
SELECT DISTINCT USERSB.USER, USERSB.EMAIL
FROM USERSB, STACK2
WHERE USERSB.USER = STACK2.TYPE
AND USERSB.EMAIL <> "
AND STACK2.TYPE > 0;
OPEN C1;
GOTO 300 WHERE :RETVAL <= 0;
LABEL 100;
FETCH C1 INTO :USER, :EMAIL;
GOTO 200 WHERE :RETVAL <= 0;
DELETE FROM STACK;
INSERT INTO STACK (ELEMENT)
SELECT STACK2.ELEMENT
FROM STACK2
WHERE STACK2.TYPE = :USER;
EXECUTE WINACTIV '-R', 'TEST_PROJUNCLEAN', 'STACK', :$.ST0, '-e',
:EMAIL;
LOOP 100;
LABEL 200;
CLOSE C1;
LABEL 300;
UNLINK STACK;
UNLINK STACK2;</p>