1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
| DECLARE @_BMIN INT DECLARE @_BMAX INT DECLARE @_CMIN INT DECLARE @_CMAX INT DECLARE @_BCNUM VARCHAR(20) DECLARE @_BSNUM VARCHAR(20)
DECLARE BCUS_BCNUM CURSOR FOR SELECT BCNUM FROM dbo.BCUS WHERE BCTYP='C'
SET @_CMIN = 0 SET @_CMAX = (SELECT COUNT(BCNUM) FROM BCUS WHERE BCTYP='C')
OPEN BCUS_BCNUM
WHILE (@_CMIN < @_CMAX)
BEGIN FETCH NEXT FROM BCUS_BCNUM INTO @_BCNUM DECLARE BSTO_BSNUM CURSOR FOR SELECT BSNUM FROM dbo.BSTO SET @_BMIN = 0 SET @_BMAX = (SELECT COUNT(BSNUM) FROM BSTO) OPEN BSTO_BSNUM
WHILE (@_BMIN < @_BMAX) BEGIN FETCH NEXT FROM BSTO_BSNUM INTO @_BSNUM INSERT INTO dbo.BDZS (TRDAT,BSCLS,BSNUM,BSCTM,BSNUC,BSAVX) VALUES ('2021-10-18','C',@_BSNUM,@_BCNUM,@_BSNUM,0) SET @_BMIN = @_BMIN + 1 END CLOSE BSTO_BSNUM DEALLOCATE BSTO_BSNUM SET @_CMIN = @_CMIN + 1 END
CLOSE BCUS_BCNUM DEALLOCATE BCUS_BCNUM
GO
|