WD11: Error Management

Hello

I write a new function. This function fill a Winword-Document.
This docoment has over 100 "FormField"-values.

I fill this "FormField" with:
s_MyDok>>content>>FormFields("MyAdress")>>result = "Hello"

s_MyDok>>content>>FormFields("Phone")>>result = "4711"

if all fields defined in the word-document then work this function without problems.

BUT

delete the customer one formfield in the Word-document, for example "MyAdress", then WINDEV give me a error-message.

I do not need this message. I want: Windev should ignore this error and continue with the next line.

In VB I have a statement: on error resume next.

I search a similar statement in WD.

Thanks for answers.
Udo

Hi,

Check out "If Error: by program" and "When Exception: by program" which are in the header of each and every code section (a bit to the right, in blue, underlined). You can click on them.

/sohan

Hi Sohan
I have clicked the "When Exception" in the header line.
In my code is:
--
s_MyDok>>content>>FormFields("MyAdress")>>result = "Hello"
s_MyDok>>content>>FormFields("Phone")>>result = "4711"


CASE EXCEPTION:
IF ExceptionInfo(errCode) = 2205 then // field not found

END
--

If the FormField("MyAdress") is not in the Word-Doc, I get the errorcode 2205. That is fine.
I want ignore this and execute with the next code-line. (Here: s_MyDok>>content>>FormFields("Phone")>>result = "4711")

At the moment the programm leave the procedure if one field not in the word-Doc.

How can I tell WD: ignore the error and execute the next code line.

Hi Udo,

Try this:

WHEN EXCEPTION IN
	s_MyDok>>content>>FormFields("MyAdress")>>result = "Hello"
DO
	//nothing	
END
WHEN EXCEPTION IN
        s_MyDok>>content>>FormFields("Phone")>>result = "4711"
DO
	//nothing	
END

You could save a lot of lines of code if you put your fieldnames and content in an array (look at StringToArray):

FOR i=1 _TO_ ArrayInfo(ar_FieldNames,tiDimension)
       WHEN EXCEPTION IN
	       s_MyDok>>content>>FormFields(ar_FieldNames)>>result = ar_FieldContent
       DO
	       //nothing	
       END
END

Best regards,
Piet

Hi,

I would prefer:

WHEN EXCEPTION IN
	s_MyDok>>content>>FormFields(ar_FieldNames)>>result = ar_FieldContent
DO
	IF ExceptionInfo(errCode) = 2205 THEN
		// field not found; do nothing
	ELSE
		Error(ExceptionInfo(errFullDetails))
	END
END

Be carefull not to hide any errors you did NOT expect.

/sohan

Hi Sohan Hi Piet

Thanks for suggestions.

Udo

Hi Sohan,

In principle you are right. On the other hand, there's not much error processing one can do if the substitution fails. And the end-user will not be happy clicking away continuous error screens.

Best regards,
Piet