Replace the TEXT Red with the TEXT Blue

AntonyNgorora7
Member Posts: 18
These are the functions I have so far, but the word red will not convert to blue.
Custom Description - OnValidate()
//-- Validation for Custom Description
IF ("Custom Description" = UPPERCASE('RED')) THEN
fConvertCustomDescription("Custom Description", 'RED', 'BLUE');
IF ("Custom Description" = LOWERCASE('red')) THEN
fConvertCustomDescription("Custom Description", 'red', 'blue');
LOCAL fConvertCustomDescription(cDescription : Text[50];cRed : Text[50];cBlue : Text[50]) NewOutput : Text[50]
//-- fValidateCustomDescription
Pos := STRPOS(cDescription, cRed);
WHILE Pos > 0 DO //Original: WHILE Pos > 0 DO
BEGIN
cDescription := DELSTR(cDescription, Pos, STRLEN(cRed));
cDescription := INSSTR(cDescription, cBlue, Pos);
Pos := 0;
NewOutput := cDescription;
IF Pos = 0 THEN
EXIT(NewOutput);
END;
I tested it, it seems logically correct, but it won't convert the entered text red to blue.
Custom Description - OnValidate()
//-- Validation for Custom Description
IF ("Custom Description" = UPPERCASE('RED')) THEN
fConvertCustomDescription("Custom Description", 'RED', 'BLUE');
IF ("Custom Description" = LOWERCASE('red')) THEN
fConvertCustomDescription("Custom Description", 'red', 'blue');
LOCAL fConvertCustomDescription(cDescription : Text[50];cRed : Text[50];cBlue : Text[50]) NewOutput : Text[50]
//-- fValidateCustomDescription
Pos := STRPOS(cDescription, cRed);
WHILE Pos > 0 DO //Original: WHILE Pos > 0 DO
BEGIN
cDescription := DELSTR(cDescription, Pos, STRLEN(cRed));
cDescription := INSSTR(cDescription, cBlue, Pos);
Pos := 0;
NewOutput := cDescription;
IF Pos = 0 THEN
EXIT(NewOutput);
END;
I tested it, it seems logically correct, but it won't convert the entered text red to blue.
0
Comments
-
why bother with the second function?
Custom Description - OnValidate()
//-- Validation for Custom Description
IF ("Custom Description" = UPPERCASE('RED')) THEN
"Custom Description" := 'BLUE';"When you eliminate the impossible, whatever remains, however improbable, must be the truth" - Sherlock Holmes
"God and developers are in a constant battle. Developments to make their applications more idiot-proof, and God to produce bigger idiots!"1 -
Thank you so much. It worked. The second function actually doesn't serve much of a purpose. I am really grateful.0
Categories
- All Categories
- 73 General
- 73 Announcements
- 66.6K Microsoft Dynamics NAV
- 18.7K NAV Three Tier
- 38.4K NAV/Navision Classic Client
- 3.6K Navision Attain
- 2.4K Navision Financials
- 116 Navision DOS
- 851 Navision e-Commerce
- 1K NAV Tips & Tricks
- 772 NAV Dutch speaking only
- 617 NAV Courses, Exams & Certification
- 2K Microsoft Dynamics-Other
- 1.5K Dynamics AX
- 320 Dynamics CRM
- 111 Dynamics GP
- 10 Dynamics SL
- 1.5K Other
- 990 SQL General
- 383 SQL Performance
- 34 SQL Tips & Tricks
- 35 Design Patterns (General & Best Practices)
- 1 Architectural Patterns
- 10 Design Patterns
- 5 Implementation Patterns
- 53 3rd Party Products, Services & Events
- 1.6K General
- 1.1K General Chat
- 1.6K Website
- 83 Testing
- 1.2K Download section
- 23 How Tos section
- 252 Feedback
- 12 NAV TechDays 2013 Sessions
- 13 NAV TechDays 2012 Sessions