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     

Old code, now broken...?

Old code, now broken...? in ObjectPAL topic (part of our Corel Paradox / ObjectPAL Coding group).

Quick Search: Old code   Old code now   broken   
Lothar.K
-- --

Howdy,

I run Paradox 9 under Win 10, and have some code that is to write date sensitive action steps to a table caled TICK.db when we enter future seminar information in a table called NewProgsDateSort.

After some needed tweaking on TICK.db, the code no longer works.

I put a piece of the code on a button for testing purposes. It fires no errors, and stepping through the code shows that it properly moves through every line.

The problem is that no entry is actually written to the TICK.db table, and I can't spot the reason why.

Here is the button code:

method pushButton(var eventInfo Event)
var
newprogsTC, tcTICK tCursor
endVar

if not newProgsTC.open(":DATA:newProgsDateSort.DB") then
errorShow()
endif

Scan newProgsTC:

if newProgsTC.("TicksDone").isBlank() then

progTitle = newProgsTC.("Title")
progDate = newProgsTC.("StartDate")
emailDateOne = date (progDate - 150)
emailDateTwo = date (progDate - 120)
siteCheck = date (progDate - 50)
decideDate = date (progDate - 60)
packetDate = date (progDate - 55)
webDate = date (progDate + 5)
invoicesOut = date (progDate - 20)
callToRecruit = date (progDate - 130)
addToCalendar = date (progDate - 365)

if not tcTICK.open(":DATA:Tick.DB")
then errorShow()
return
else
endif

if not tcTICK.edit()
then errorShow()
endif

if not tcTICK.insertRecord()
then errorShow()
return
endif

itemCount=tcTICK.cMax("Item")
itemCount = itemCount +1
tcTICK."DueDate" = date (addToCalendar)
TargetNum = 1600
tcTICK."TargetNum" = TargetNum
tcTICK."item" = itemCount
tcTICK."WhoDoesIt" = "Assist"
tcTICK."note" = memo ("Have Joe add the" + progTitle + " session of " + string(progDate) + "to his electronic Calendar.")
tcTICK."status" = ""
tcTICK."RemovedOn" = ""

tcTick.endEdit()
tcTick.close()
return


endIf
endScan
endMethod

Thanks for any help in spotting the reason the entry to TICK.db is not being written,

Lothar

 Posted 39 months ago (Thread Starter)
Comment Quote
About Lothar.K -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 #16671, 1 reply
Thread Started 5/21/2017 8:05:46 AM
View Counter=705
Last Reply Posted 5/22/2017 5:37:32 AM)
Location=-- -- 
Joined=9 years ago   MB Posts=63  
Most Recent Post
Lothar.K
-- --

Hi again,

With apology to those who might have checked this out, I now have it working.

All the best,

Lothar

 Posted 39 months ago (Thread Starter)
Comment Quote
About Lothar.K -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 #16672 (Level 2) and Parent is 16671
Reply Posted 5/22/2017 5:36:34 AM
Location=-- -- 
Joined=9 years ago   MB Posts=63  

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 = P154A1
Enter key:
Icon: A Post    Thread    Idea    Important!    Cool    Sad    No    Yes    Includes a Link...   
Thread #16671 Counter
705
Since 5/21/2017

Follow PrestwoodBoards on: 


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