Forum Discussion

ryan_buntrock's avatar
ryan_buntrock
Occasional Contributor
13 years ago

Elements not getting set

I have a java app I am trying to write a script against. I seem to be having an issue on a specific screen in the app. I basiclly want to enter into the screen... hit the F1 key... Enter...
ryan_buntrock's avatar
ryan_buntrock
Occasional Contributor
13 years ago
This seems to work.. but maybe there is a better way?  And why wouldnt I be able to set the ztext on this screen but can on other screens.



----------------------------------------------------------------




 

  

   Set Cover = Project.Variables.gClin.FindChild(Array("AWTComponentAccessibleName", "AWTComponentIndex"), Array("Cover", "15"), 50)

  

    Set Claim_Status = Project.Variables.gClin.FindChild(Array("AWTComponentAccessibleName", "AWTComponentIndex"), Array("St Required", "28"), 50)

  

    Set D_Required = Project.Variables.gClin.FindChild(Array("AWTComponentAccessibleName", "AWTComponentIndex"), Array("D Required", "41"), 50)

  

    Set Claim_Amt = Project.Variables.gClin.FindChild(Array("AWTComponentAccessibleName", "AWTComponentIndex"), Array("Claim Amt", "119"), 50)

  

    

  

    

  

     'Query Open Claim.

  

      Project.Variables.gClin.setfocus

  

      Claim_Status.click

  

      'sys.Keys("[F1]")

  

      Project.Variables.gClin.Keys("[F1]")

  

      aqUtils.Delay 1000

  

      Project.Variables.gClin.setfocus

  

      Claim_Status.click

  

      

  

      'Claim_Status.ztext="O"

  

      'Claim_Status.setText="O"

  

      

  

      'Claim_Status.Keys("O")

  

      sys.Keys("O")

  

      'Claim_Status.Keys("O")

  

      

  

      'Project.Variables.gClin.setfocus

  

      'sys.Keys("[F2]")

  

      Project.Variables.gClin.Keys("[F2]")

  

    

  

      'Grab the claim amount and then add it to the cover...

  

      varClaim_Amt=Claim_Amt.ztext

  

      'ShowMessage("varClaim_Amt=" & varClaim_Amt & "      Now should set the cover to the claim amount")

  

      

  

      Cover.ztext=varClaim_Amt

  

      

  

      

  

      'CR the claim

  

      Claim_Status.ztext="C"

  

      D_Required.ztext="R"

  

    

  

      'Set textbox values to variables...

  

      varCover=Cover.ztext

  

      varClaim_Status=Claim_Status.ztext

  

      varDenial=D_Required.ztext

  

      

  

      'Wait a second...  

  

      aqUtils.Delay 1000  

  

    

  

    'Check to see if its ok to Save....

  

    If (varClaim_Status <>"C") OR (varDenial <>"R")  OR (varCover <> varClaim_Amt) Then

  

      ShowMessage("STOP!!!!!....Please Check account. Check for C&R and claim Amount")

  

    End If