I.T. Discussion Community!
-Collapse +Expand
Paradox
Search Paradox Group:

Advanced
-Collapse +Expand Paradox To/From
To/FromCODEGuides
-Collapse +Expand Paradox Store
PRESTWOODSTORE

Prestwood eMagazine

August Edition
Subscribe now! It's Free!
Enter your email:

   ► MB LobbyCorel Paradox / ObjectPAL Coding BoardObjectPAL Topic   Print This     

Best technique for newly inserted blank records???

Best technique for newly inserted blank records??? in ObjectPAL topic (part of our Corel Paradox / ObjectPAL Coding group).

Quick Search: technique   inserted   records   Best technique   Best technique newly   inserted blank  
Most Recent Post
Robert.B2
-- --

#Formdata1  Var

  FD1_uiO    uiObject

  FD1_tC      tCursor

#Formdata1  Arrive

var

  a_logl       logical

  s_str         string

  n_lInt       longInt

endVar

  if (eventInfo.isPreFilter())  then

     ;;//for each object (i.e. box, mro, container, field)

     if (active.class  = "Field")  then

         s_str  = self.TableName

         a_logl = FD1_tC.open(FD1_uiO)

         arriveFieldObject()

     endIf

 else

     ;;//for Form only

     s_str  = self.name

     a_logl = FD1_uiO.attach(s_str)

     s_str  = self.TableName

     a_logl = FD1_tC.open(FD1_uiO)

endIf

#Formdata1  Proc

proc           arriveFieldObject()

var

  a_logl       logical

  s_str         string

  n_lInt       longInt

  o_uiO       uiObject

  fieldObjectName_str  string

  fieldName_str  string

endVar

;;  scenerio where user presses [Ins] key

     a_logl  =  FD1_uiO.recordStatus("New") 

     a_logl.view ("Viewing Record Status...")    ;;  CORRECTLY displays "True"

     a_logl  =  FD1_tc.recordStatus("New") 

     a_logl.view ("Viewing Record Status...")    ;;  INCORRECTLY displays "False"

     fieldObjectName_str   = "fieldName_01"

     a_logl  = o_uiO.attach(fieldObjectName_str)

     s_str  = o_uiO.value

     s_str.view ("Viewing contents of fieldName...")  ;; CORRECTLY displays blank

     fieldName_str  = "fieldName 01" 

     s_str  = FD1_tc.(fieldName_str) 

     s_str.view("Viewing contents of fieldName...")  ;; INCORRECTLY displays contents from the next record

------------------------------------

Manually, in Paradox Workspace

[Format][Data Model]  ;; to add table to data model

"Right-click" [Define Field]   ;; to add each field to form

-------------------------------------

Obviously, FD1_tc  does not "see" the newly inserted blank record.

Whereas, FD1_uiO does "see" the newly inserted blank record through the eyes of the form.

As a programmer/developer,

    I would prefer to use the FD1_tc."fieldName 01"  notation

        over the use of the FD1_uiO."fieldName_01"  notation

    I guess that this is a carryover from my [tableName->fieldName 01] PDOX for DOS days.

-----------------------------------

What is the best technique for referencing newly inserted blank records???

I have been giving thoughts to the use of FD1_uiO(postRecord)

 Posted 6 years ago (Thread Starter)
Comment Quote
About Robert.B2 -Collapse +Expand
Visit Profile
Approved member.
Member subscribes to this thread with a verified email.
Old Account!
If this is your account, sign in to activate web presence data (sign in quarterly to keep active). Alternatively, you can subscribe to our monthly eMag with a valid email address.
Web Presence Hidden.
Once above is taken care of, full Profile content will display including back links, about me, my message, custom Profile html, social networking links, message board signature, company profile, etc.

Post ID #14975, No Replies Be the first!
Thread Started 1/10/2013 7:49:37 PM
View Counter=1565
Location=-- -- 
Joined=8 years ago   MB Posts=11  

Revive Thread!

Add a comment to revive this old thread and make this archived thread more useful.

Write a Comment...
Full Editor
...
Sign in...

If you are a member, Sign In. Or, you can Create a Free account now.


Anonymous Post (text-only, no HTML):

Enter your name and security key.

Your Name:
Security key = P1181A1
Enter key:
Icon: A Post    Thread    Idea    Important!    Cool    Sad    No    Yes    Includes a Link...   
Thread #14975 Counter
1565
Since 1/10/2013
Follow PrestwoodBoards on: 


©1995-2019 PrestwoodBoards  [Security & Privacy]
Professional IT Services: Coding | Websites | Computer Tech