Forum Discussion

elanto's avatar
elanto
Occasional Contributor
5 years ago

DelphiScript runtime error on: .GetColumn('name').Index

Hi SM-TestComplete Community, First of all, here are some general info: --- TC language: DelphiScript Testcomplete Version: 14.20.2175.7 x64 OS: MS WIN 10 Pro 64-bit The AUT (Desktop) is built...
runtime error
  • elanto's avatar
    elanto
    5 years ago

    I attached the same picture, maybe it is now better to see.

    The error text is: "An Exception occurred: 0xC0000096; class: ; description: ".

    <So, a copy/paste of your code snippet would be helpful.>

    -- START SNIPPET

    procedure einenBeliebigenMandantenLoeschenAberNichtDenDemoDatenMandanten();
    var
    i, mandantenAnzahl, ColumnVerzeichnisIndex: Integer;
    lVerzeichnis: String;
    const
    MAX_ANZAHL_MANDANTEN = 15;
    begin
    lVerzeichnis := ProjectSuite.Variables.DemoDatenMandantenPfad;

    if NOT Aliases.Lohn.FMandantenanlage.Exists then
    begin
    Aliases.Lohn.FSMenu.MDIClient.Keys('~fm');
    end;
    Aliases.Lohn.FMandantenanlage.Maximize;
    Aliases.Lohn.FMandantenanlage.Panel1.NO_1.TS_Mandanten.GR_Mandant.Keys('^[Home]');
    mandantenAnzahl := Aliases.Lohn.FMandantenanlage.Panel1.NO_1.TS_Mandanten.GR_Mandant.RowCounter;
    ColumnVerzeichnisIndex := Aliases.Lohn.FMandantenanlage.Panel1.NO_1.TS_Mandanten.GR_Mandant.GetColumn('Pfad').Index + 1;

    -- END

    Thank you.

    E.A.

tristaanogre's avatar
tristaanogre
Esteemed Contributor
5 years ago

The image you have embedded is too small and is hard to read for the forum.  Could you attach the image rather than embed into your message or take the image at a higher resolution?

Also, simply the error text would be helpful.

Additionally, it would be good to know the code around it.  It might be that everything about the single line is just fine but the context in which it is called is problematic.  So, a copy/paste of your code snippet would be helpful.

  • elanto's avatar
    elanto
    Occasional Contributor
    5 years ago

    I attached the same picture, maybe it is now better to see.

    The error text is: "An Exception occurred: 0xC0000096; class: ; description: ".

    <So, a copy/paste of your code snippet would be helpful.>

    -- START SNIPPET

    procedure einenBeliebigenMandantenLoeschenAberNichtDenDemoDatenMandanten();
    var
    i, mandantenAnzahl, ColumnVerzeichnisIndex: Integer;
    lVerzeichnis: String;
    const
    MAX_ANZAHL_MANDANTEN = 15;
    begin
    lVerzeichnis := ProjectSuite.Variables.DemoDatenMandantenPfad;

    if NOT Aliases.Lohn.FMandantenanlage.Exists then
    begin
    Aliases.Lohn.FSMenu.MDIClient.Keys('~fm');
    end;
    Aliases.Lohn.FMandantenanlage.Maximize;
    Aliases.Lohn.FMandantenanlage.Panel1.NO_1.TS_Mandanten.GR_Mandant.Keys('^[Home]');
    mandantenAnzahl := Aliases.Lohn.FMandantenanlage.Panel1.NO_1.TS_Mandanten.GR_Mandant.RowCounter;
    ColumnVerzeichnisIndex := Aliases.Lohn.FMandantenanlage.Panel1.NO_1.TS_Mandanten.GR_Mandant.GetColumn('Pfad').Index + 1;

    -- END

    Thank you.

    E.A.

    • tristaanogre's avatar
      tristaanogre
      Esteemed Contributor
      5 years ago

      Whoops!  Accidentally marked as solution... sorry...  

      In any case, a couple of things:

      1) You're doing a Ctrl-Home on the grid first.  I'm assuming that's doing some sort of refresh or other action?    Is it possible that the grid is not ready at that point for you to do the GetColumn information?  What's the value of mandantenAnzahl at that point?

      2) There could be other issues with the componet not being found, that it might not be ready at that point, taht you might have lost the handle, etc.  Try calling a RefreshMapping method off the grid before you do the GetColumn

       

      • elanto's avatar
        elanto
        Occasional Contributor
        5 years ago

        Thanks Robert,

        I'll try with RefreshMapping and then I'll come back. But please consider again the point 3. of my first post, since in another TC-Project, calling the same script on the same object it seems, - I tried/tested it more than one time - not to raise an exception at all.

        Many thanks again.

        Regards

        E.A.

    • AlexKaras's avatar
      AlexKaras
      Champion Level 3
      5 years ago

      Hi,

       

      One more thing to try:

      > Aliases.Lohn.FMandantenanlage.Maximize;
      > Aliases.Lohn.FMandantenanlage.Panel1.NO_1.TS_Mandanten.GR_Mandant.Keys('^[Home]');

      There is a possibility that GR_Mandant object is not focused and thus keys are not processed by it.

      Try this:

      Aliases.Lohn.FMandantenanlage.Maximize;

      Aliases.Lohn.FMandantenanlage.Panel1.NO_1.TS_Mandanten.GR_Mandant.Focus;

      Aliases.Lohn.FMandantenanlage.Panel1.NO_1.TS_Mandanten.GR_Mandant.Keys('^[Home]');

       

      • elanto's avatar
        elanto
        Occasional Contributor
        5 years ago

        Hi AlexKaras,

        thanks for your suggestion; I will try today and then I will replay.

        Our nightly test on this point shows again that an Exception raised (now I handled with try-except block and warning message); the point is but that the same function in another project on the same object (see point 3 of my first posting) raised no Exception. The context plays a rule and I have perhaps also to consider/analyse that.

        Have a nice day and best regards

        E. Antonini