אורן קפלן

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

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

אין בעייה, אני בעד לפתור בשלבים.

תודה

אורן

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

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

מספר קרטונים:
אני בטוח שזה פיתוח, המנגנון הסטנרטי מוסתר.
Dump למסך TRANSORDER_D, שים לב שאם לפי ההגדרות מוצגים סמיילי אז זה מעוות את הטקסט:
(סימנתי את הפיתוח)

DECLARE FILL1344 CURSOR FOR
SELECT PART.PARTNAME, (TRANSORDER.NONSTANDARD 0 ? NONSTANDARD.TEXT
: PART.PARTDES), TRANSORDER.CQUANT, TRANSORDER.PQUANT, TRANSORDER.SETFLAG,
TRANSORDER.TQUANT, UNIT1.UNITNAME, TRANSORDER.PRICE, CURRENCIES1.CODE,
PRICESOURCE.PRSOURCENAME, TRANSORDER.PERCENT, TRANSORDER.PRICE * REALQUANT(TRANSORDER.TQUANT)
* (100.0 – TRANSORDER.PERCENT) / 100.0 * (:$$.CURRENCY = -1 ? TRANSORDER.IEXCHANGE
: 1.0), CURRENCIES.CODE, PART.MINPRICE, SERIAL.SERIALNAME, SERIAL.SERIALDES,
(PARTPACK.BARCODE " ? PARTPACK.BARCODE : PART.BARCODE), REVISIONS.REVNUM,
REVNAMES.REVNAME, CUSTPART.CUSTPARTNAME, CUSTOMERS.CUSTNAME,
CUSTOMERS1.CUSTNAME, ORDERS.REFERENCE, ORDERITEMSA.YOURORDLINE,
TRANSORDER.QUANT, UNIT.UNITNAME, TRANSORDER.NUMPACK, PACK.PACKCODE,
TRANSORDER.SPIR_NUMPACK, ORDERS.ORDNAME, ORDERITEMS.LINE, ACT.ACTNAME,
ACT.ACTDES, ORDERITEMS.DUEDATE, TRANSORDER.FLAG, TRANSORDER.CHECKING,
INVOICES.IVNUM, WAREHOUSES.WARHSNAME, WAREHOUSES.LOCNAME, DESTCODES.CODE,
TRANSORDER.ONLOAN, BUDGETS.BUDCODE, COSTCENTERS.COSTCNAME, TRANSORDER.IEXCHANGE
* CURRENCIES1.EXCHQUANT, TRANSORDERA.REFERENCE, PART1.PARTNAME,
PART1.PARTDES, PART.PARTNAME, TRANSORDERA.ANALYSISVALID, (TRANSORDERA.ANALYSISVALID
= 'N' ? 'Y' : '\0'), TRANSORDER.LINE, TRANSORDER.DOC, PART.PARTDES,
TRANSORDER.PART, TRANSORDER.ORDI, PACK.PACKQUANT, TRANSORDER.DOLLAR,
TRANSORDERA.CARTONNUM, (:$$.FLAG = 'Y' ? TRANSORDER.FLAG : '\0'),
CUSTOMERS.SELLFLAG, CUSTOMERS.STATUSFLAG, CUSTOMERS1.STATUSFLAG,
TRANSORDER.ACT, TRANSORDER.BACKFLUSH, TRANSORDER.BRANCH, TRANSORDER.BUDGET,
PART.CONV, PART.COST, TRANSORDER.COSTC, TRANSORDER.CURDATE, CURRENCIES.CURRENCY,
TRANSORDER.CUST, TRANSORDER.SUPPART, INVOICES.DEBIT, TRANSORDER.DESTCODE,
CURRENCIES1.EXCHQUANT, SERIAL.EXPIRYDATE, TRANSORDER.ICURRENCY,
TRANSORDER.IEXCHANGE, PARTPARAM.INVFLAG, TRANSORDER.IV, INVOICES.TYPE,
TRANSORDER.KLINE, 0, TRANSORDER.NONSTANDARD, PARTPARAM.NSFLAG,
ORDERITEMS.KLINE, ORDERITEMS.ORD, ORDERITEMS.ORDI, ORDERITEMS.NONSTANDARD,
PARTPARAM.ORDQUANTTOL, ORDERITEMS.TQUANT, TRANSORDER.PACK, TRANSORDER.PART,
ORDERITEMS.PART, TRANSORDER.PACK, PART.PARTPARAM, PARTPARAM.PURTAX,
PART.REV, PARTPARAM.PPACK, TRANSORDER.PRSOURCE, TRANSORDERA.PTRANS,
PART.PUNIT, PARTPARAM.VATFLAG, ORDERS.REFERENCE, TRANSORDER.REV,
TRANSORDER.SERIAL, TRANSORDER.SERIAL, SERIALA.REV, SERIAL.EXTFILEFLAG,
PART.SERNPATTERN, SERIAL.PART, SERIAL.REV, PART.SIZEBAR, TRANSORDER.TOACT,
TRANSORDER.TOCUST, TRANSORDER.TOPART, TRANSORDER.TOSERIAL, TRANSORDER.TOWARHS,
TRANSORDER.TRANS, TRANSORDER.TUNIT, TRANSORDER.TYPE, PART.UNIT,
TRANSORDER.USER, TRANSORDER.VATFLAG, TRANSORDER.WARHS, 0, IVTYPES.EXEC,
0, USERS.USERLOGIN, ORDERITEMS.LINE, TRANSORDER.UDATE, (PART.TYPE = 'R'
? 0+ :RAWEXEC : 0+ :SEREXEC), (CUSTOMERS.STATUSFLAG 'Y' ? 0+ :CSEXEC
: 0 + :STEXEC), (CUSTOMERS1.STATUSFLAG 'Y' ? 0+ :CSEXEC : 0+ :STEXEC),
(TRANSORDER.TQUANT > 0 ? 'Y' : '\0'), (CUSTPART.CUSTPARTNAME " ? CUSTPART.CUSTPARTNAME
: PART.PARTNAME), PART.BARCODE, NONSTANDARD.TEXT, :$$.NSCUST,
:$$.EXTTYPE, PART.NOTFIXEDCONV, PART.MPART, '\0'
FROM PARTPACK ?, NONSTANDARD , USERS , IVTYPES , SERIALA ?,
PARTPARAM , TRANSORDERA ?, PART PART1 , COSTCENTERS , BUDGETS ,
DESTCODES , WAREHOUSES , INVOICES , ORDERITEMS , ACT , PACK ,
UNIT , ORDERITEMSA ?, ORDERS , CUSTOMERS CUSTOMERS1 , CUSTOMERS ,
CUSTPART , REVNAMES , REVISIONS , SERIAL , CURRENCIES ,
PRICESOURCE , CURRENCIES CURRENCIES1 , UNIT UNIT1 , TRANSORDER ,
PART
WHERE (TRANSORDER.DOC = 0 + :$$.DOC)
AND TRANSORDER.PART = PART.PART
AND TRANSORDER.ORDI = ORDERITEMS.ORDI
AND TRANSORDER.ACT = ACT.ACT
AND TRANSORDER.BUDGET = BUDGETS.BUDGET
AND TRANSORDER.COSTC = COSTCENTERS.COSTC
AND (CURRENCIES.CURRENCY = :$$.CURRENCY)
AND TRANSORDER.CUST = CUSTOMERS.CUST
AND TRANSORDER.SUPPART = CUSTPART.CUSTPART
AND INVOICES.DEBIT = IVTYPES.DEBIT
AND TRANSORDER.DESTCODE = DESTCODES.DESTCODE
AND TRANSORDER.ICURRENCY = CURRENCIES1.CURRENCY
AND TRANSORDER.IV = INVOICES.IV
AND INVOICES.TYPE = IVTYPES.TYPE
AND TRANSORDER.NONSTANDARD = NONSTANDARD.NONSTANDARD
AND ORDERITEMS.ORD = ORDERS.ORD
AND ORDERITEMS.ORDI = ORDERITEMSA.ORDI
AND TRANSORDER.PACK = PACK.PACK
AND TRANSORDER.PART = PARTPACK.PART
AND TRANSORDER.PACK = PARTPACK.PACK
AND PART.PARTPARAM = PARTPARAM.PARTPARAM
AND TRANSORDER.PRSOURCE = PRICESOURCE.PRSOURCE
AND TRANSORDER.REV = REVNAMES.REV
AND TRANSORDER.SERIAL = SERIAL.SERIAL
AND TRANSORDER.SERIAL = SERIALA.SERIAL
AND SERIAL.REV = REVISIONS.REV
AND TRANSORDER.TOCUST = CUSTOMERS1.CUST
AND (TRANSORDER.TOWARHS = 0 + :$$.TOWARHS)
AND TRANSORDER.TRANS = TRANSORDERA.TRANS
AND TRANSORDER.TUNIT = UNIT1.UNIT
AND (TRANSORDER.TYPE = 'D')
AND PART.UNIT = UNIT.UNIT
AND TRANSORDER.USER = USERS.USER
AND TRANSORDER.WARHS = WAREHOUSES.WARHS
AND PART.MPART = PART1.PART
ORDER BY 51 ASC
;