two problems

Article View: borland.public.vdbase.data.sql

Article #1264

Back to borland.public.vdbase.data.sql Previous Next

#1264

From: Enes Boric
Date: Mon, 23 Mar 1998 00:00

29 lines
1263 bytes

 In 5.5 I have

1.) Procedure IMAGE_OnClick
      select dslink
      seek left(form.cbDStyle.Value,3)
      if found()
         form.DSImageForm.Text=form.cbDStyle.Value
         form.DSImageForm.itemimage.DataSource="BINARY
dsicat->I"+dslink->ImageCd
         form.DSImageForm.ReadModal()
      else
         ?chr(7)
         MsgBox("The image for this style is not
available.","Information",16)
      endif
   Return

2.) SELECT OthDet
      SCAN FOR ordno = P_OrdNo
         DO CASE
         CASE agrp = "C"
            L_TotC = L_TotC + aprice * (.01 * amarkup + 1)
         CASE agrp = "I"
            L_TotI = L_TotI + aprice * (.01 * amarkup + 1)
         ENDCASE
      ENDSCAN

If somebody knows how to convert to 7.0  I appreciate.

Technical Details

Message-ID: <3516D357.2349AD15@ionline.net>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: ff5a1,13e19dd500828fdc,start
X-Google-Attributes: gidff5a1,public
From: Enes Boric <eboric@ionline.net>
Subject: two problems
Date: 1998/03/23
Message-ID: <3516D357.2349AD15@ionline.net>
X-Deja-AN: 336946031
Content-Transfer-Encoding: 7bit
X-Priority: 3 (Normal)
Content-Type: text/plain; charset=us-ascii
Organization: Another Netscape Collabra Server User
Mime-Version: 1.0
Newsgroups: borland.public.vdbase.data.sql