Debug Output in meddfnhtst

2026-10-06 15:02:47 +02:00
parent 0fd1de8826
commit eedba63fe2
1 changed files with 12 additions and 0 deletions
@@ -216,11 +216,23 @@ MediaDefinition.Replace =

 clear Error;

+dsply 'MEDDFNHTST START';
+
 MD_CreateMediaDefinition(
   MediaDefinition :
   Error);


+if Error.HasError;
+
+   dsply ('ERROR ' + Error.MessageID);
+
+else;
+
+   dsply 'MEDDFN CREATE OK';
+
+endif;
+
 //=====================================================================
 //
 // End