I have unfortunately received our first workstation Loaded with Windows Vista 
(Service Pack 1)
 since Pre-loaded XP machines are getting harder to get.

I set the terminal up and loaded in RB 7.6 Win and Update 5 (7.6.5.31229).  
Everything was working very nicely until the user reported a MAJOR delay on one 
of my forms going from field to field.  The code in the field (an exit eep) was 
very straight forward.  So I pulled the code and put it into a test file to 
run.  I have narrowed down the problem to one command (Insert) and am not sure 
what could be causing this issue.  Has anyone else experienced this issue and 
could help resolve it  or confirm my results and that  I need help from a 
higher power..

>From my tests this is the results I get from the code below

WINDOWS VISTA SP 1 AND RB 7.6 7.6.5.31229 2 Users Connected :Time Between Show 
var NOW : 35 Seconds
WINDOWS VISTA SP 1 AND RB 7.6 7.6.5.31229 Single User Connected :Time Between 
Show var NOW : 32 Seconds
WINDOWS VISTA SP 1 AND RB 7.5 7.5.25.31212 2 Users Connected :Time Between Show 
var NOW : 00 Seconds (Instant)
WINDOWS XP SERVICE PACK 3 AND RB 7.6 7.6.5.31129 2 Users Connected : Time 
Between Show var Now : 00 Seconds (Instant)

As you can see the issue is definitely with Windows Vista and RBase 7.6 . 
Windows XP and Vista with RB 7.5 have no issues with this command

Here is the code :

SET VAR VBLNO = 1716840
SET VAR TMPLREC = 119511

SHOW VAR #NOW
INSERT INTO bladingdet (blno, itemno, nounits, lotn, acctno, +
lotrecno) SELECT  .vblno, tmpitemno, tmpnounits, tmplotn, +
shipper, tmplotrecno +
FROM tmpinventory WHERE tmplotrecno = .TMPLREC

SHOW VAR #NOW

RETURN

  Temporary Table: tmpinventory

 No. Column Name        Attributes
 --- ------------------ ------------------------------------------------------
   1 tmprowid           Type   : INTEGER
   2 tmpitemdesc        Type   : TEXT 35
   3 tmpsize            Type   : TEXT 8
   4 tmpitemno          Type   : INTEGER
   5 tmplotn            Type   : TEXT 8
   6 tmplotrecno        Type   : INTEGER
   7 tmpLotType         Type   : TEXT 2
   8 tmpweight          Type   : REAL
   9 tmpnounits         Type   : INTEGER
  10 tmploss_waste      Type   : INTEGER
  11 tmpfarmno          Type   : INTEGER
  12 tmpQSoldBD         Type   : INTEGER
  13 tmpQSoldSales      Type   : INTEGER

 No. Column Name        Attributes
 --- ------------------ ------------------------------------------------------
  14 tmpcurrinv         Type   : INTEGER
  15 Shipper            Type   : INTEGER
  16 tmpOrigUnits       Type   : INTEGER
  17 tmpQtyRemain       Type   : INTEGER
                                 Compute: (tmpCurrInv- tmpNoUnits)
   Current number of rows:      7

   Table: BLADINGDET           No Lock(s)
   Descr: BILL OF LADING DETAIL DATA -- LINKED TO BLADING

   Triggers: INSERT UPDATE DELETE
 No. Column Name        Attributes
 --- ------------------ ------------------------------------------------------
   1 BLNO               Type   : INTEGER  NOT NULL
                        Consrnt: FOREIGN KEY REFERENCES BLADING
   2 ITEMNO             Type   : INTEGER
                        Consrnt: FOREIGN KEY REFERENCES ITEMMSTR
   3 WEIGHT             Type   : REAL
                                 Comment: POUNDS
   4 NOUNITS            Type   : INTEGER
                                 Comment: NUMBER OF UNITS
   5 LOTN               Type   : TEXT 8
   6 BLDetNo            Type   : INTEGER  NOT NULL AUTONUMBER
                        Consrnt: PRIMARY KEY
   7 AcctNo             Type   : INTEGER
                        Index  : SINGLE-COLUMN

 No. Column Name        Attributes
 --- ------------------ ------------------------------------------------------
   8 LotRecNo           Type   : INTEGER
                        Consrnt: FOREIGN KEY REFERENCES PLOTDET
   9 WEIGHTCLASS        Type   : TEXT 5
  10 SRate              Type   : REAL
  11 SNOTE              Type   : TEXT 46
  12 AcctLotNItemNo     Type   : TEXT 35
                                 Compute: ((CTXT(AcctNo)) & LotN&
                                 (CTXT(ItemNo)))
  13 BLLotRecNo         Type   : TEXT 35
                        Index  : SINGLE-COLUMN
                                 Compute: (CTXT(BLNo) & CTXT(LotRecNo))


Any Help is appreciated...



Frank Taylor - Information Technology Administrator
F.J. O'Hara & Sons, Inc - Araho Transfer Inc.
Boston, MA - Rockland, ME - Miami, FL
Direct Dial - 617-790-3093
email: [email protected]

Reply via email to