Comparing Information

[sriKnight]

I apologize for having to go back and fourth. i know how hard it is to answer these questions with out being able to test it....

When the lot adjustment window is open there will either be two buttons or three buttons depending of that part numbers traits. If the window has two buttons then I will only need to update one piece of information. If the window has the third button then I will need to use that button. When I click on that third button a new window will open up. It is that window I will need to make my adjustment in and then close that window.

I have in my script now

ControlClick("Edit Lot", "Adjust inventory core value...", 2333, "left")
  
If WinExists("Adjust Inventory Core Value", "") Then
  WinActivate("Adjust Inventory Core Value", "")
  WinWaitActive("Adjust Inventory Core Value", "")
  ControlClick("Adjust Inventory Core Value", "Adjusted core value:", 2337, "left")
  ControlSend("Adjust Inventory Core Value", "Adjusted core value:", 2337, $aArray1[$c][2])
  ControlCommand("Adjust Inventory Core Value", "Reason for adjustment:", 2363, "ShowDropDown", "")
  ControlCommand("Adjust Inventory Core Value", "Reason for adjustment:", 2363, "SelectString", 'string')
  ControlCommand("Adjust Inventory Core Value", "Reason for adjustment:", 2363, "HideDropDown", "")
  Sleep(700)
  ControlClick("Adjust Inventory Core Value", "OK", "Button1", "left")
Else
  EndIf

when i run the script the first lot happens to have the third button so it opens the desired window. but it doesn't do anything with that window. It starts working with the window behind it.

[sriKnight]

none of my "if win exists" seem to be wanting to take effect.

[water]

After the ControlClick do a WinWait and then continue processing.

[sriKnight]

no dice. It just stops the script completely.

[sriKnight]

my script as it stand right now

expandcollapse popup

#include <File.au3>
#include <Array.au3>
#include <Excel.au3>
; opens excel workbook
;RESET THE WORKBOOK FOR YOUR FILE PATH AND NAME
Local $oExcel = _ExcelBookOpen("C:AutoIttest array.xls")
; reads data into array
$aArray1 = _ExcelReadSheetToArray($oExcel, 1, 1, 0, 4, True)
; closes the excel workbook
_ExcelBookClose($oExcel)
; displays the array that was read.
_ArrayDisplay($aArray1)
; counts the number of rows in the array
$rows = UBound($aArray1) - 1

For $c = 1 To $rows
WinActivate("CORRIDOR", "")
Send("{ALT}" & "T")
Send("{DOWN 3}")

Send("{ENTER}")
WinWaitActive("Current Parts in Inventory Search", "")
WinActivate("Current Parts in Inventory Search", "")
ControlCommand("Current Parts in Inventory Search", "", "SysTabControl323", "TabRight", "")


ControlSend("Current Parts in Inventory Search", "Lot number:", 1070, $aArray1[$c][0])
Send("{TAB}")
sleep(700)
;if corridor cant find the lot number
WinWait("Invalid Lot Number", "")
If WinExists("Invalid Lot Number", "Please search for the Lot Number you want.") Then
  WinActivate("Invalid Lot Number", "Please search for the Lot Number you want.")
  ControlClick("Invalid Lot Number", "OK", 2, "left")
  WinWaitActive("Current Parts in Inventory Search", "")
  ControlClick("Current Parts in Inventory Search", "Lot reference number:", 1300, "Left")
  ControlSend("Current Parts in Inventory Search", "Lot reference number:", 1300, $aArray1[$c][4])
  ControlClick("Current Parts in Inventory Search", "Scan", 1063, "left")
Else
EndIf

ControlClick("Current Parts in Inventory Search", "Lot reference number:", 1300, "left")
ControlClick("Current Parts in Inventory Search", "Less", 1947, "left")
ControlClick("Current Parts in Inventory Search", "Scan", 1063, "left")
Sleep(700)
ControlClick("Current Parts in Inventory Search", "", "SysListView322", "left")

ControlClick("Current Parts in Inventory Search", "Open", 1663, "Left")

WinWaitActive("Edit Lot", "")
WinActivate("Edit Lot", "")

$sControlText = ControlGetText("Edit Lot", "Lot number:", 1136)
While $sControlText <> $aArray1[$c][0]
  ControlClick("Edit Lot", "Close", "Button24", "left")
  ControlClick("Current Parts in Inventory Search", "", "SysListView322", "left")
  Send("{DOWN}")
  ControlClick("Current Parts in Inventory Search", "Open", 1663, "Left")
  WinWaitActive("Edit Lot", "")
  WinActivate("Edit Lot", "")
  $sControlText = ControlGetText("Edit Lot", "Lot number:", 1136)
WEnd
WinActivate("Edit Lot", "")
ControlCommand("Edit Lot", "", "SysTabControl321", "TabRight", "")
ControlCommand("Edit Lot", "", "SysTabControl321", "TabRight", "")
ControlClick("Edit Lot", "Adjust part cost...", 1514, "left")
WinWaitActive("Adjust Part Cost", "")
WinActivate("Adjust Part Cost", "")
ControlClick("Adjust Part Cost", "Adjusted cost:", 1535, "left")
ControlSend("Adjust Part Cost", "Adjusted cost:", 1535, $aArray1[$c][1])

ControlCommand("Adjust Part Cost", "Reason for adjustment:", 1536, "ShowDropDown", "")
ControlCommand("Adjust Part Cost", "Reason for adjustment:", 1536, "SelectString", 'Cost Adj: Correct Improper Process')
ControlCommand("Adjust Part Cost", "Reason for adjustment:", 1536, "HideDropDown", "")
Sleep(700)
ControlClick("Adjust Part Cost", "OK", "Button1", "left")
WinWait("Edit Lot", "")
WinActivate("Edit Lot", "")
WinWaitActive("Edit Lot", "")
ControlClick("Edit Lot", "Adjust inventory core value...", 2333, "left")

If WinExists("Adjust Inventory Core Value", "") Then
WinWait("Adjust Inventory Core Value", "")
  WinActivate("Adjust Inventory Core Value", "")
  WinWaitActive("Adjust Inventory Core Value", "")
  ControlClick("Adjust Inventory Core Value", "Adjusted core value:", 2337, "left")
  ControlSend("Adjust Inventory Core Value", "Adjusted core value:", 2337, $aArray1[$c][2])
  ControlCommand("Adjust Inventory Core Value", "Reason for adjustment:", 2363, "ShowDropDown", "")
  ControlCommand("Adjust Inventory Core Value", "Reason for adjustment:", 2363, "SelectString", 'Cost Adj: Correct Improper Process')
  ControlCommand("Adjust Inventory Core Value", "Reason for adjustment:", 2363, "HideDropDown", "")
  Sleep(700)
  ControlClick("Adjust Inventory Core Value", "OK", "Button1", "left")
Else
EndIf
ControlClick("Edit Lot", "Close", "Button24", "left")
WinWait("Current Parts in Inventory Search", "")
WinActivate("Current Parts in Inventory Search", "")
WinWaitActive("Current Parts in Inventory Search", "")
ControlClick("Current Parts in Inventory Search", "Close", "Button30", "left")
Next

The first issue is at line 39. before I wrote that in there i had the issue at line 103