שלום,
האם ניתן לשנות סטטוס למק"ט שנמצא במלאי דרך הפקודה UPDATE מתוך הקוד שכתבתי בפרוצודורה?
אני מבצע בדיקת פגות תוקף, אם התאריך של הפגות תוקף קטן מהיום אני צריך לשנות הסטטוס מ 'GOODS' אל 'EXPR'.
אני מצרף חלק מהקוד.
<p dir="ltr" style="text-align: left;">DECLARE SERIAL1 CURSOR FOR
SELECT SERIAL.SERIAL, WARHSBAL.BALANCE/1000, ACT.ACT, CUSTOMERS.CUSTNAME, PART.PART, SERIAL.RIO_SERIESNUM
, RIO_PLS_BATCHES.START_DATE, PARTPARAM.EXPIRYMONTH
FROM WAREHOUSES, WARHSBAL, ACT, PART, CUSTOMERS, RIO_PLS_BATCHES
, SERIAL, PARTPARAM
WHERE WARHSBAL.WARHS = WAREHOUSES.WARHS
AND WARHSBAL.ACT = ACT.ACT
AND WARHSBAL.PART = PART.PART
AND WARHSBAL.CUST = CUSTOMERS.CUST
AND WAREHOUSES.WARHSNAME = '001'
AND CUSTOMERS.CUSTNAME <> 'Expr'
AND PART.PARTNAME = '495814090040'
AND PART.RIO_PLSSERIES = '1'
AND PART.PART = PARTPARAM.PART
AND PARTPARAM.EXPIRYMONTH > 0
AND WARHSBAL.BALANCE > 0
AND WARHSBAL.SERIAL = SERIAL.SERIAL
AND ATOI(SERIAL.RIO_SERIESNUM) = RIO_PLS_BATCHES.BATCH_NBR
ORDER BY SERIAL;
OPEN SERIAL1;
LABEL 1;
:PRT1 = :BAL1 = :SER1 = :EXPM1 = 0;
:CUS1 = 0;
:NUM1 = :NUM2 = ' ';
:DATE1 = 01/01/88;
FETCH SERIAL1 INTO :PRT1, :BAL1, :CUS1, :NUM2, :SER1, :NUM1, :DATE1, :EXPM1;
GOTO 2 WHERE :RETVAL = 0 ;
/*****Inserting data to stack4 *****/
INSERT INTO STACK4 (KEY, INTDATA, INTDATA5, RIO_CHARDATA5, INTDATA3, RIO_CHARDATA4, DATADATE, INTDATA4)
VALUES(:PRT1, :BAL1, :CUS1, :NUM2, :SER1, :NUM1, ((:EXPM1 * 30) * 1440) + :DATE1, :EXPM1);
LOOP 1;
LABEL 2;
CLOSE SERIAL1;
/*Update STATUS for each PART in stack4*/
DECLARE SERIAL2 CURSOR FOR
SELECT KEY, DATADATE, RIO_CHARDATA5
FROM STACK4
WHERE KEY <> 0;
OPEN SERIAL2;
LABEL 10 ;
:PRT12 = :CUST12 = 0;
:NUM12 = ";
:DATE12 = 01/01/88;
FETCH SERIAL2 INTO :PRT12, :DATE12, :NUM12;
GOTO 20 WHERE :RETVAL = 0 ;
/*****Inserting data to stack4 *****/
UPDATE CUSTOMERS
SET CUSTNAME = 'Expr'
WHERE CUSTNAME = :NUM12
AND :DATE12 < SQL.DATE;</p>
.
