› פורומים › אפיון ופיתוח פריוריטי › הכנסת שורות לחשבונית ספק מרכזת
- This topic has 5 תגובות, 2 משתתפים, and was last updated לפני 3 שנים by הילה.
- Post
-
- אוקטובר 28, 2021 בשעה 9:30 am
שלום,אני מנסה להכניס מהלך כזה:
יש לנו שורות קריאות שרות שמקושרות לשדה מס' חשבונית ספק (BOOKNUM)
במסך חשבונית ספק מרכזות הכנסו מסך בן 'קריאות שרות לחשבונית'
לפי הקריאה שרושמים, המערכת הולכת לTRANSORDER ומזהה את השורות שמקושרות לBOOKNUM הנוכחי ומכניסה את השורות ל INVOICEITEMS בממשק מסכי.
לא יודעת למה לא עובד לי! אני רואה שזה מכניס את השורות נכון לGENERALLOAD אבל הוא נכשל בשורה השנייה. ז"א בתחילת הכנסת שורות החשבונית.עברתי על זה כבר כמה פעמים ולא מוצאת היכן אני שוגה!
אשמח לעזרה
מצרפת קוד:
- Replies
-
- אוקטובר 28, 2021 בשעה 9:31 am
שם מסך כותרת מזהה רשומה
PINVOICES חשבוניות ספק מרכזות 1
עמודת טבלת טעינה עמודת מסך סדר
INT1 IV 1שם מסך כותרת מזהה רשומה
PINVOICEITEMS חשבוניות ספק מרכזות – פירוט 2
עמודת טבלת טעינה עמודת מסך סדר
INT5 LINE 1
INT7 KLINE 2
TEXT1 PARTNAME 3
TEXT2 PDES 4
INT4 HE_TRANS 5
INT6 TQUANT 6
REAL2 PRICE 7
REAL3 PERCENT 8- אוקטובר 28, 2021 בשעה 9:32 am
קוד במסך בן לחשבונית ספק מרכזת 'קריאות לחשבונית' ב-POST-INSERT
/**/
:HE_KLINE = :HE_LINE = 0;
SELECT MAX(KLINE) INTO :HE_KLINE
FROM INVOICEITEMS
WHERE IV = :$$.IV AND TYPE = :$$.IVTYPE;
/**/
/**/
SELECT MAX(LINE) INTO :HE_LINE
FROM INVOICEITEMS
WHERE IV = :$$.IV AND TYPE = :$$.IVTYPE;
/**/
/**/
/**/
SELECT SQL.TMPFILE INTO :TMPFILE FROM DUMMY;
LINK GENERALLOAD TO :TMPFILE;
ERRMSG 70 WHERE :RETVAL <=0;
/**/
INSERT INTO GENERALLOAD (LINE, RECORDTYPE, INT1)
VALUES (1, '1', :$$.IV );
/**/- אוקטובר 28, 2021 בשעה 9:41 am
אני לא מצליחה לטעון את כל הקוד. גם לא מצליחה להעלות קובץ.
בכל אופן בהמשך למה ששלחתי יש CURSOR שעובר על כל שורה בTRANSORDER שמקושרת לBOOKNUM
מבצעת INSERT לGENERALLOAD
INSERT INTO GENERALLOAD (LINE, RECORDTYPE, TEXT1, INT4, INT5, INT7,
TEXT2, INT6, REAL2, REAL3)
VALUES (:HEZ_GLINE, '2', :HEZ_PARTNAME, :HEZ_TRANS, :HE_LINE,
:HE_KLINE, :HEZ_PDES, :HEZ_TQUANT, :HEZ_PRICE, :HEZ_PERCENT);
/**/
:HEZ_GLINE = :HEZ_GLINE + 1;
לאחר היציאה מהCURSOR מריץ על הממשקEXECUTE INTERFACE 'HE_IVXMLLOADP', SQL.TMPFILE, '-L',:TMPFILE;
- אוקטובר 28, 2021 בשעה 10:56 am
את בונה שורות חדשות?אני חושב שאולי אני מזהה את הבעיה כבר בממשק.
ראשית כל אל תעדכנו את LINE. שהמערכת תנהל את זה. גם אם מעדכנים רשומה.
אם את קובעת ערך עבור KLINE אל תעשי את זה. להכנסת שורה לא צריכים KLINE בכלל, זה רק למשיכת שורה לצורך עדכון. לצורך הכנסה קבעו ערכים רק בעמודות שגלויות במסך וזהו.
[ בבקשה לא לשלוח הודעות פרטיות במערכת - אני לא קורא אותן ]
- יש להתחבר למערכת על מנת להגיב.