Hi,
I am using CR 2008, during formula check, it doesn't show any error, however, at runtime, i get the string ... error.
Please check the below code:
1: Notes_HTML_Text is a memo datatype in my db.
-------------------------------------------------------------------------------------------
stringvar HTMLnote := {Notes_Master_EXT.Notes_HTML_TEXT};
stringVar colon;
NumberVar intPosition := InStr(HTMLnote, ">");
HTMLnote := Replace(HTMLnote, "<P>", "<BR>");
HTMLnote := Replace(HTMLnote, "</P>", "</BR>");
If Instr({Notes_Master_EXT.Notes_NOTE_DESC}, ":") > 0 Then
colon := " "
else
colon := ": ";
IF inStr(htmlnote, "<FONT") > 0 Then
(
if trim({Notes_Master_EXT.Notes_NOTE_DESC}) = "" then
"<FONT style='font-size: 8pt'>" & HTMLnote & "</FONT>"
else
If intPosition > 0 Then
"<FONT style='font-size: 8pt'>" & Left(HTMLNote, intPosition) & Trim({Notes_Master_EXT.Notes_NOTE_DESC}) & colon & Mid(HTMLnote, intPosition + 1) & "</FONT>"
Else
"<FONT style='font-size: 8pt'>" & Trim({Notes_Master_EXT.Notes_NOTE_DESC}) & colon & HTMLnote & "</FONT>";
)
Else
(
if trim({Notes_Master_EXT.Notes_NOTE_DESC}) = "" then
HTMLnote
else
If intPosition > 0 Then
Left(HTMLNote, intPosition) & Trim({Notes_Master_EXT.Notes_NOTE_DESC}) & colon & Mid(HTMLnote, intPosition + 1)
Else
Trim({Notes_Master_EXT.Notes_NOTE_DESC}) & colon & HTMLnote;
)
----------------------
Please advise.
Thanks in advance...
Mike
I am using CR 2008, during formula check, it doesn't show any error, however, at runtime, i get the string ... error.
Please check the below code:
1: Notes_HTML_Text is a memo datatype in my db.
-------------------------------------------------------------------------------------------
stringvar HTMLnote := {Notes_Master_EXT.Notes_HTML_TEXT};
stringVar colon;
NumberVar intPosition := InStr(HTMLnote, ">");
HTMLnote := Replace(HTMLnote, "<P>", "<BR>");
HTMLnote := Replace(HTMLnote, "</P>", "</BR>");
If Instr({Notes_Master_EXT.Notes_NOTE_DESC}, ":") > 0 Then
colon := " "
else
colon := ": ";
IF inStr(htmlnote, "<FONT") > 0 Then
(
if trim({Notes_Master_EXT.Notes_NOTE_DESC}) = "" then
"<FONT style='font-size: 8pt'>" & HTMLnote & "</FONT>"
else
If intPosition > 0 Then
"<FONT style='font-size: 8pt'>" & Left(HTMLNote, intPosition) & Trim({Notes_Master_EXT.Notes_NOTE_DESC}) & colon & Mid(HTMLnote, intPosition + 1) & "</FONT>"
Else
"<FONT style='font-size: 8pt'>" & Trim({Notes_Master_EXT.Notes_NOTE_DESC}) & colon & HTMLnote & "</FONT>";
)
Else
(
if trim({Notes_Master_EXT.Notes_NOTE_DESC}) = "" then
HTMLnote
else
If intPosition > 0 Then
Left(HTMLNote, intPosition) & Trim({Notes_Master_EXT.Notes_NOTE_DESC}) & colon & Mid(HTMLnote, intPosition + 1)
Else
Trim({Notes_Master_EXT.Notes_NOTE_DESC}) & colon & HTMLnote;
)
----------------------
Please advise.
Thanks in advance...
Mike