Jump to content
Sign in to follow this  
cgycowboy

Confused

Recommended Posts

cgycowboy

Hello,

I would appreciate any help on this...I am trying to compile this script

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=harddisc.ico
#AutoIt3Wrapper_outfile=rmaparts.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <ButtonConstants.au3>
#Include <GuiEdit.au3>


Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)

Local $ilc, $ilc2, $sn, $i, $p, $opd, $oin, $edit1max, $location, $blob, $locationcarrriagereturn, $locationspace
$i= 1
$p= 0
$ilc=""
$ilc2=""
$sn=""
$opd=""
$oin=""

$p=InputBox("Number Of Parts ","Number Of Parts Being Checked In")

Do
$ilc=InputBox("What is the ILC?", "What is the ILC?")
$sn=InputBox("What is the Serial Number?", "What is The Serial Number? If There Is No Serial Number, Enter N/A or leave BLANK")
$opd=InputBox("What was the Original Purchase Date?", "What was the Original Purchase Date?")
$oin=InputBox("What is The Original Invoice Number?", "What is The Original Invoice Number")

Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("Issue", 615, 222, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$Label1 = GUICtrlCreateLabel("Please Describe The Customer's Issue For The Technician", 88, 0, 416, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Edit1 = GUICtrlCreateEdit("", 16, 32, 577, 113, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
GUICtrlSetResizing(-1, $GUI_DOCKHCENTER)
$Button1 = GUICtrlCreateButton("OK", 240, 160, 105, 33, 0)
GUICtrlSetOnEvent(-1, "Button1Click")
GUISetState(@SW_SHOW)

Func Button1Click()
$blob = GUICtrlRead($edit1)
$edit1max = StringLen($blob) ;number
;~ Exit
GUIDelete()

EndFunc

WinWaitClose("Issue","Please Describe The Customer's Reason For RMA")

Func CLOSEClicked()
EndFunc
Func datetime()
   $min=string(@MIN)
   $hour=@HOUR
   $day=string(@MDAY)
   $mon=string(@MON)
   $year=string(@YEAR)
   If $hour=00 then
      $hour="24"
   Else
      $hour=string(@HOUR)
   Endif
   $time = $hour & ":" & $min
   $date= $mon & "/" & $day & "/" & $year
   $dt=$time & " ON  " & $date
   Return ($dt)
EndFunc
$dt=datetime()
WinWait("Microsoft Store Operations POS","")
If Not WinActive("Microsoft Store Operations POS","") Then WinActivate("Microsoft Store Operations POS","")
WinWaitActive("Microsoft Store Operations POS","")
;~  work order mode detect by color
$POS="Microsoft Store Operations POS"
$POSposition = WinGetPos($POS)
$coord = PixelSearch( $POSposition[0], $POSposition[1], $POSposition[0]+200, $POSposition[1]+200, 0xFFFF00 )

If @error Then
    Send("^{F2}")
;~  work order mode toggle
EndIf
Send("{F2}")
WinWait("Items (All)","")
If Not WinActive("Items (All)","") Then WinActivate("Items (All)","")
WinWaitActive("Items (All)","")
ControlClick("Items (All)","","[ID:3]")
WinWait("Items (All)","")
If Not WinActive("Find Items","") Then WinActivate("Find Items","")
WinWaitActive("Find Items","")
ControlClick("Find Items","","[ID:1001]")
send($ilc)
ControlClick("Find Items","","[ID:12]")
SLEEP(1000)
WinWait("Items (All)","")
If Not WinActive("Find Items","") Then WinActivate("Find Items","")
WinWaitActive("Find Items","")
ControlClick("Find Items","","[ID:9]")
WinWait("Items (All)","")
If Not WinActive("Items (All)","") Then WinActivate("Items (All)","")
WinWaitActive("Items (All)","")
ControlClick("Items (All)","","[ID:7]")
WinWait("Item Properties:","")
If Not WinActive("Item Properties:","") Then WinActivate("Item Properties:","")
WinWaitActive("Item Properties:","")
ControlClick("Item Properties: ","","[ID:20]")
send("^{c}")
$ilc2= ClipGet()
ControlClick("Item Properties: ","","[ID:5]")
WinWait("Items (All)","")
If Not WinActive("Items (All)","") Then WinActivate("Items (All)","")
WinWaitActive("Items (All)","")
ControlClick("Items (All)","","[ID:10]")
WinWaitActive("Microsoft Store Operations POS","")
WinWait("Microsoft Store Operations POS","")
If Not WinActive("Microsoft Store Operations POS","") Then WinActivate("Microsoft Store Operations POS","")
WinWaitActive("Microsoft Store Operations POS","")
Send("{DOWN}0{ENTER}{UP}{CTRLDOWN}{F10}{CTRLUP}")
Send("Part # "&$i&"{CTRLDOWN}{ENTER}{CTRLUP}")
Send("ILC: "&$ilc&"{CTRLDOWN}{ENTER}{CTRLUP}")
Send("SN: "&$sn&"{CTRLDOWN}{ENTER}{CTRLUP}")
Send("Description: "&$ilc2&"{CTRLDOWN}{ENTER}{CTRLUP}")
Send("Original Purchase Date: "&$opd&"{CTRLDOWN}{ENTER}{CTRLUP}")
Send("Original Invoice Number: "&$oin&"{CTRLDOWN}{ENTER}{CTRLUP}")
send("{ENTER}")
ClipPut("")
WinWait("Microsoft Store Operations POS","")
If Not WinActive("Microsoft Store Operations POS","") Then WinActivate("Microsoft Store Operations POS","")
WinWaitActive("Microsoft Store Operations POS","")
Send("{DOWN}0{ENTER}{UP}^{F10}")
;~ MsgBox(0,"stop3","")
WinWait("Comment","")
If Not WinActive("Comment","") Then WinActivate("Comment","")
WinWaitActive("Comment","")
Send("^{enter}ISSUE:^{enter}")

;~ continous issue data: resolved feb 20/10

while 1

    $locationcarrriagereturn = StringInStr($blob,@CR,0,1,240);find key seperator for carriage returns
;~  MsgBox(0,"carriage return location",$locationcarrriagereturn)

    $locationspace = StringInStr($blob," ",0,1,240);find key seperator for space seperators
;~  MsgBox(0,"space location",$locationspace)

;~      choose shorter position
            if $locationcarrriagereturn < $locationspace Then
            $location = $locationcarrriagereturn
            Else
            $location = $locationspace
            EndIf


;~      check if leftover text is shorter than limit, then print last of text and exit
            if $location < 1 then
;~              MsgBox(0,"final page",$location)
;~              WinActivate("Untitled - Notepad")
;~              Send(StringLeft(StringReplace($blob,@CRLF,"|||"),$location))
                Send(StringLeft(StringReplace($blob,@CRLF,"^{enter}"),$location))

;~          close final comment box
                Send("{ENTER}")
                ExitLoop
            EndIf

;~              WinActivate("Untitled - Notepad")
;~              Send(StringLeft(StringReplace($blob,@CRLF,"|||"),$location))
                Send(StringLeft(StringReplace($blob,@CRLF,"^{enter}"),$location))


;~ close comment box
        Send("{ENTER}")

        $blob = StringTrimLeft($blob,$location) ;resize the edit text

;~ WEnd
WinWait("Microsoft Store Operations POS","")
If Not WinActive("Microsoft Store Operations POS","") Then WinActivate("Microsoft Store Operations POS","")
WinWaitActive("Microsoft Store Operations POS","")
Send("{DOWN}0{ENTER}{UP}^{F10}")
;~ MsgBox(0,"stop3","")
WinWait("Comment","")
If Not WinActive("Comment","") Then WinActivate("Comment","")
WinWaitActive("Comment","")
WEnd
$i = $i + 1
Until $i = $p



WinWait("Microsoft Store Operations POS","")
If Not WinActive("Microsoft Store Operations POS","") Then WinActivate("Microsoft Store Operations POS","")
WinWaitActive("Microsoft Store Operations POS","")
Send("{DOWN}0{ENTER}{UP}^{F10}")
Send("PLEASE TEST THE INCLUDED PART(S) FOR THE CUSTOMER")
Send("{ENTER}")
Send("{SHIFTDOWN}{F9}{SHIFTUP}")
WinWait("Work Order Information","")
If Not WinActive("Work Order Information","") Then WinActivate("Work Order Information","")
WinWaitActive("Work Order Information","")
Send("RMA PART(S){TAB}")
Send("CHECKED IN AT: " & $dt & ")
Send("{ENTER}")
MsgBox(0,"IMPORTANT", "PLEASE PRINT ANY INVOICES RELATING TO THE PART(S) ON THIS WORK ORDER")
Send("{SHIFTDOWN}{F7}{SHIFTUP}")

and I keep getting the error

Edited by cgycowboy

Share this post


Link to post
Share on other sites
cgycowboy

H:\POS TOOLS\rmaparts.au3(45,1) : ERROR: missing Until <expr>.

Func

^

H:\POS TOOLS\rmaparts.au3(28,1) : REF: missing Until <expr>.

Do

^

H:\POS TOOLS\rmaparts.au3(191,1) : ERROR: syntax error

Until

^

H:\POS TOOLS\rmaparts.au3 - 2 error(s), 0 warning(s)

It's probably something simple I am missing, but I can't figure it out....any help would be appreciated

Share this post


Link to post
Share on other sites
somdcomputerguy

I can say off the bat I don't think functions can be defined in a do loop.


- Bruce /*somdcomputerguy */  If you change the way you look at things, the things you look at change.

Share this post


Link to post
Share on other sites
cgycowboy

I can say off the bat I don't think functions can be defined in a do loop.

Is there a way I can do the loop then?

Share this post


Link to post
Share on other sites
somdcomputerguy

Well yeah you can do a loop, but maybe not the loop. At the least one without defining a function in it.

Edit: I guess what I'm saying is you can call a function from a loop, but the function itself is created outside the loop. In AutoIt, the function(s) can be created in the code after a loop.

Edited by snowmaker

- Bruce /*somdcomputerguy */  If you change the way you look at things, the things you look at change.

Share this post


Link to post
Share on other sites
99ojo

Hi,

resorting your code should solve your problems.

If you define a function, the function could be called from everywhere inbeetween your code.

You should structure your code better, like:

1) includes

2) Variable declarations

3) Main Code

4) Functions

....

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=harddisc.ico
#AutoIt3Wrapper_outfile=rmaparts.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <ButtonConstants.au3>
#Include <GuiEdit.au3>


Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)

Local $ilc, $ilc2, $sn, $i, $p, $opd, $oin, $edit1max, $location, $blob, $locationcarrriagereturn, $locationspace
$i= 1
$p= 0
$ilc=""
$ilc2=""
$sn=""
$opd=""
$oin=""

$p=InputBox("Number Of Parts ","Number Of Parts Being Checked In")

Do
    $ilc=InputBox("What is the ILC?", "What is the ILC?")
    $sn=InputBox("What is the Serial Number?", "What is The Serial Number? If There Is No Serial Number, Enter N/A or leave BLANK")
    $opd=InputBox("What was the Original Purchase Date?", "What was the Original Purchase Date?")
    $oin=InputBox("What is The Original Invoice Number?", "What is The Original Invoice Number")

    Opt("GUIOnEventMode", 1)
    $Form1 = GUICreate("Issue", 615, 222, -1, -1)
    GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
    $Label1 = GUICtrlCreateLabel("Please Describe The Customer's Issue For The Technician", 88, 0, 416, 24)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
    $Edit1 = GUICtrlCreateEdit("", 16, 32, 577, 113, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
    GUICtrlSetResizing(-1, $GUI_DOCKHCENTER)
    $Button1 = GUICtrlCreateButton("OK", 240, 160, 105, 33, 0)
    GUICtrlSetOnEvent(-1, "Button1Click")
    GUISetState(@SW_SHOW)

    WinWaitClose("Issue","Please Describe The Customer's Reason For RMA")
    $dt=datetime()
    WinWait("Microsoft Store Operations POS","")
    If Not WinActive("Microsoft Store Operations POS","") Then WinActivate("Microsoft Store Operations POS","")
    WinWaitActive("Microsoft Store Operations POS","")
    ;~  work order mode detect by color
    $POS="Microsoft Store Operations POS"
    $POSposition = WinGetPos($POS)
    $coord = PixelSearch( $POSposition[0], $POSposition[1], $POSposition[0]+200, $POSposition[1]+200, 0xFFFF00 )

    If @error Then
        Send("^{F2}")
    ;~  work order mode toggle
    EndIf
    Send("{F2}")
    WinWait("Items (All)","")
    If Not WinActive("Items (All)","") Then WinActivate("Items (All)","")
    WinWaitActive("Items (All)","")
    ControlClick("Items (All)","","[ID:3]")
    WinWait("Items (All)","")
    If Not WinActive("Find Items","") Then WinActivate("Find Items","")
    WinWaitActive("Find Items","")
    ControlClick("Find Items","","[ID:1001]")
    send($ilc)
    ControlClick("Find Items","","[ID:12]")
    SLEEP(1000)
    WinWait("Items (All)","")
    If Not WinActive("Find Items","") Then WinActivate("Find Items","")
    WinWaitActive("Find Items","")
    ControlClick("Find Items","","[ID:9]")
    WinWait("Items (All)","")
    If Not WinActive("Items (All)","") Then WinActivate("Items (All)","")
    WinWaitActive("Items (All)","")
    ControlClick("Items (All)","","[ID:7]")
    WinWait("Item Properties:","")
    If Not WinActive("Item Properties:","") Then WinActivate("Item Properties:","")
    WinWaitActive("Item Properties:","")
    ControlClick("Item Properties: ","","[ID:20]")
    send("^{c}")
    $ilc2= ClipGet()
    ControlClick("Item Properties: ","","[ID:5]")
    WinWait("Items (All)","")
    If Not WinActive("Items (All)","") Then WinActivate("Items (All)","")
    WinWaitActive("Items (All)","")
    ControlClick("Items (All)","","[ID:10]")
    WinWaitActive("Microsoft Store Operations POS","")
    WinWait("Microsoft Store Operations POS","")
    If Not WinActive("Microsoft Store Operations POS","") Then WinActivate("Microsoft Store Operations POS","")
    WinWaitActive("Microsoft Store Operations POS","")
    Send("{DOWN}0{ENTER}{UP}{CTRLDOWN}{F10}{CTRLUP}")
    Send("Part # "&$i&"{CTRLDOWN}{ENTER}{CTRLUP}")
    Send("ILC: "&$ilc&"{CTRLDOWN}{ENTER}{CTRLUP}")
    Send("SN: "&$sn&"{CTRLDOWN}{ENTER}{CTRLUP}")
    Send("Description: "&$ilc2&"{CTRLDOWN}{ENTER}{CTRLUP}")
    Send("Original Purchase Date: "&$opd&"{CTRLDOWN}{ENTER}{CTRLUP}")
    Send("Original Invoice Number: "&$oin&"{CTRLDOWN}{ENTER}{CTRLUP}")
    send("{ENTER}")
    ClipPut("")
    WinWait("Microsoft Store Operations POS","")
    If Not WinActive("Microsoft Store Operations POS","") Then WinActivate("Microsoft Store Operations POS","")
    WinWaitActive("Microsoft Store Operations POS","")
    Send("{DOWN}0{ENTER}{UP}^{F10}")
    ;~ MsgBox(0,"stop3","")
    WinWait("Comment","")
    If Not WinActive("Comment","") Then WinActivate("Comment","")
    WinWaitActive("Comment","")
    Send("^{enter}ISSUE:^{enter}")

    ;~ continous issue data: resolved feb 20/10

    while 1

        $locationcarrriagereturn = StringInStr($blob,@CR,0,1,240);find key seperator for carriage returns
    ;~  MsgBox(0,"carriage return location",$locationcarrriagereturn)

        $locationspace = StringInStr($blob," ",0,1,240);find key seperator for space seperators
    ;~  MsgBox(0,"space location",$locationspace)

    ;~      choose shorter position
        if $locationcarrriagereturn < $locationspace Then
            $location = $locationcarrriagereturn
        Else
            $location = $locationspace
        EndIf


    ;~      check if leftover text is shorter than limit, then print last of text and exit
        if $location < 1 then
    ;~      MsgBox(0,"final page",$location)
    ;~      WinActivate("Untitled - Notepad")
    ;~      Send(StringLeft(StringReplace($blob,@CRLF,"|||"),$location))
            Send(StringLeft(StringReplace($blob,@CRLF,"^{enter}"),$location))

    ;~      close final comment box
            Send("{ENTER}")
            ExitLoop
        EndIf

    ;~  WinActivate("Untitled - Notepad")
    ;~  Send(StringLeft(StringReplace($blob,@CRLF,"|||"),$location))
        Send(StringLeft(StringReplace($blob,@CRLF,"^{enter}"),$location))
    ;~ close comment box
        Send("{ENTER}")
        $blob = StringTrimLeft($blob,$location) ;resize the edit text
    ;~ WEnd
        WinWait("Microsoft Store Operations POS","")
        If Not WinActive("Microsoft Store Operations POS","") Then WinActivate("Microsoft Store Operations POS","")
        WinWaitActive("Microsoft Store Operations POS","")
        Send("{DOWN}0{ENTER}{UP}^{F10}")
        ;~ MsgBox(0,"stop3","")
        WinWait("Comment","")
        If Not WinActive("Comment","") Then WinActivate("Comment","")
        WinWaitActive("Comment","")
    WEnd
    $i = $i + 1
Until $i = $p
WinWait("Microsoft Store Operations POS","")
If Not WinActive("Microsoft Store Operations POS","") Then WinActivate("Microsoft Store Operations POS","")
WinWaitActive("Microsoft Store Operations POS","")
Send("{DOWN}0{ENTER}{UP}^{F10}")
Send("PLEASE TEST THE INCLUDED PART(S) FOR THE CUSTOMER")
Send("{ENTER}")
Send("{SHIFTDOWN}{F9}{SHIFTUP}")
WinWait("Work Order Information","")
If Not WinActive("Work Order Information","") Then WinActivate("Work Order Information","")
WinWaitActive("Work Order Information","")
Send("RMA PART(S){TAB}")
Send("CHECKED IN AT: " & $dt & "); This is faulty as well, it might be: Send("CHECKED IN AT: " & $dt & """) 
Send("{ENTER}")
MsgBox(0,"IMPORTANT", "PLEASE PRINT ANY INVOICES RELATING TO THE PART(S) ON THIS WORK ORDER")
Send("{SHIFTDOWN}{F7}{SHIFTUP}")

Func Button1Click()
    $blob = GUICtrlRead($edit1)
    $edit1max = StringLen($blob) ;number
    ;~ Exit
    GUIDelete()
EndFunc

Func CLOSEClicked()
EndFunc

Func datetime()
   $min=string(@MIN)
   $hour=@HOUR
   $day=string(@MDAY)
   $mon=string(@MON)
   $year=string(@YEAR)
   If $hour=00 then
      $hour="24"
   Else
      $hour=string(@HOUR)
   Endif
   $time = $hour & ":" & $min
   $date= $mon & "/" & $day & "/" & $year
   $dt=$time & " ON  " & $date
   Return ($dt)
EndFunc

;-))

Stefan

Edited by 99ojo

Share this post


Link to post
Share on other sites
cgycowboy

Hi,

resorting your code should solve your problems.

If you define a function, the function could be called from everywhere inbeetween your code.

You should structure your code better, like:

1) includes

2) Variable declarations

3) Main Code

4) Functions

....

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=harddisc.ico
#AutoIt3Wrapper_outfile=rmaparts.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <ButtonConstants.au3>
#Include <GuiEdit.au3>


Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)

Local $ilc, $ilc2, $sn, $i, $p, $opd, $oin, $edit1max, $location, $blob, $locationcarrriagereturn, $locationspace
$i= 1
$p= 0
$ilc=""
$ilc2=""
$sn=""
$opd=""
$oin=""

$p=InputBox("Number Of Parts ","Number Of Parts Being Checked In")

Do
    $ilc=InputBox("What is the ILC?", "What is the ILC?")
    $sn=InputBox("What is the Serial Number?", "What is The Serial Number? If There Is No Serial Number, Enter N/A or leave BLANK")
    $opd=InputBox("What was the Original Purchase Date?", "What was the Original Purchase Date?")
    $oin=InputBox("What is The Original Invoice Number?", "What is The Original Invoice Number")

    Opt("GUIOnEventMode", 1)
    $Form1 = GUICreate("Issue", 615, 222, -1, -1)
    GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
    $Label1 = GUICtrlCreateLabel("Please Describe The Customer's Issue For The Technician", 88, 0, 416, 24)
    GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
    $Edit1 = GUICtrlCreateEdit("", 16, 32, 577, 113, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
    GUICtrlSetResizing(-1, $GUI_DOCKHCENTER)
    $Button1 = GUICtrlCreateButton("OK", 240, 160, 105, 33, 0)
    GUICtrlSetOnEvent(-1, "Button1Click")
    GUISetState(@SW_SHOW)

    WinWaitClose("Issue","Please Describe The Customer's Reason For RMA")
    $dt=datetime()
    WinWait("Microsoft Store Operations POS","")
    If Not WinActive("Microsoft Store Operations POS","") Then WinActivate("Microsoft Store Operations POS","")
    WinWaitActive("Microsoft Store Operations POS","")
    ;~  work order mode detect by color
    $POS="Microsoft Store Operations POS"
    $POSposition = WinGetPos($POS)
    $coord = PixelSearch( $POSposition[0], $POSposition[1], $POSposition[0]+200, $POSposition[1]+200, 0xFFFF00 )

    If @error Then
        Send("^{F2}")
    ;~  work order mode toggle
    EndIf
    Send("{F2}")
    WinWait("Items (All)","")
    If Not WinActive("Items (All)","") Then WinActivate("Items (All)","")
    WinWaitActive("Items (All)","")
    ControlClick("Items (All)","","[ID:3]")
    WinWait("Items (All)","")
    If Not WinActive("Find Items","") Then WinActivate("Find Items","")
    WinWaitActive("Find Items","")
    ControlClick("Find Items","","[ID:1001]")
    send($ilc)
    ControlClick("Find Items","","[ID:12]")
    SLEEP(1000)
    WinWait("Items (All)","")
    If Not WinActive("Find Items","") Then WinActivate("Find Items","")
    WinWaitActive("Find Items","")
    ControlClick("Find Items","","[ID:9]")
    WinWait("Items (All)","")
    If Not WinActive("Items (All)","") Then WinActivate("Items (All)","")
    WinWaitActive("Items (All)","")
    ControlClick("Items (All)","","[ID:7]")
    WinWait("Item Properties:","")
    If Not WinActive("Item Properties:","") Then WinActivate("Item Properties:","")
    WinWaitActive("Item Properties:","")
    ControlClick("Item Properties: ","","[ID:20]")
    send("^{c}")
    $ilc2= ClipGet()
    ControlClick("Item Properties: ","","[ID:5]")
    WinWait("Items (All)","")
    If Not WinActive("Items (All)","") Then WinActivate("Items (All)","")
    WinWaitActive("Items (All)","")
    ControlClick("Items (All)","","[ID:10]")
    WinWaitActive("Microsoft Store Operations POS","")
    WinWait("Microsoft Store Operations POS","")
    If Not WinActive("Microsoft Store Operations POS","") Then WinActivate("Microsoft Store Operations POS","")
    WinWaitActive("Microsoft Store Operations POS","")
    Send("{DOWN}0{ENTER}{UP}{CTRLDOWN}{F10}{CTRLUP}")
    Send("Part # "&$i&"{CTRLDOWN}{ENTER}{CTRLUP}")
    Send("ILC: "&$ilc&"{CTRLDOWN}{ENTER}{CTRLUP}")
    Send("SN: "&$sn&"{CTRLDOWN}{ENTER}{CTRLUP}")
    Send("Description: "&$ilc2&"{CTRLDOWN}{ENTER}{CTRLUP}")
    Send("Original Purchase Date: "&$opd&"{CTRLDOWN}{ENTER}{CTRLUP}")
    Send("Original Invoice Number: "&$oin&"{CTRLDOWN}{ENTER}{CTRLUP}")
    send("{ENTER}")
    ClipPut("")
    WinWait("Microsoft Store Operations POS","")
    If Not WinActive("Microsoft Store Operations POS","") Then WinActivate("Microsoft Store Operations POS","")
    WinWaitActive("Microsoft Store Operations POS","")
    Send("{DOWN}0{ENTER}{UP}^{F10}")
    ;~ MsgBox(0,"stop3","")
    WinWait("Comment","")
    If Not WinActive("Comment","") Then WinActivate("Comment","")
    WinWaitActive("Comment","")
    Send("^{enter}ISSUE:^{enter}")

    ;~ continous issue data: resolved feb 20/10

    while 1

        $locationcarrriagereturn = StringInStr($blob,@CR,0,1,240);find key seperator for carriage returns
    ;~  MsgBox(0,"carriage return location",$locationcarrriagereturn)

        $locationspace = StringInStr($blob," ",0,1,240);find key seperator for space seperators
    ;~  MsgBox(0,"space location",$locationspace)

    ;~      choose shorter position
        if $locationcarrriagereturn < $locationspace Then
            $location = $locationcarrriagereturn
        Else
            $location = $locationspace
        EndIf


    ;~      check if leftover text is shorter than limit, then print last of text and exit
        if $location < 1 then
    ;~      MsgBox(0,"final page",$location)
    ;~      WinActivate("Untitled - Notepad")
    ;~      Send(StringLeft(StringReplace($blob,@CRLF,"|||"),$location))
            Send(StringLeft(StringReplace($blob,@CRLF,"^{enter}"),$location))

    ;~      close final comment box
            Send("{ENTER}")
            ExitLoop
        EndIf

    ;~  WinActivate("Untitled - Notepad")
    ;~  Send(StringLeft(StringReplace($blob,@CRLF,"|||"),$location))
        Send(StringLeft(StringReplace($blob,@CRLF,"^{enter}"),$location))
    ;~ close comment box
        Send("{ENTER}")
        $blob = StringTrimLeft($blob,$location) ;resize the edit text
    ;~ WEnd
        WinWait("Microsoft Store Operations POS","")
        If Not WinActive("Microsoft Store Operations POS","") Then WinActivate("Microsoft Store Operations POS","")
        WinWaitActive("Microsoft Store Operations POS","")
        Send("{DOWN}0{ENTER}{UP}^{F10}")
        ;~ MsgBox(0,"stop3","")
        WinWait("Comment","")
        If Not WinActive("Comment","") Then WinActivate("Comment","")
        WinWaitActive("Comment","")
    WEnd
    $i = $i + 1
Until $i = $p
WinWait("Microsoft Store Operations POS","")
If Not WinActive("Microsoft Store Operations POS","") Then WinActivate("Microsoft Store Operations POS","")
WinWaitActive("Microsoft Store Operations POS","")
Send("{DOWN}0{ENTER}{UP}^{F10}")
Send("PLEASE TEST THE INCLUDED PART(S) FOR THE CUSTOMER")
Send("{ENTER}")
Send("{SHIFTDOWN}{F9}{SHIFTUP}")
WinWait("Work Order Information","")
If Not WinActive("Work Order Information","") Then WinActivate("Work Order Information","")
WinWaitActive("Work Order Information","")
Send("RMA PART(S){TAB}")
Send("CHECKED IN AT: " & $dt & "); This is faulty as well, it might be: Send("CHECKED IN AT: " & $dt & """) 
Send("{ENTER}")
MsgBox(0,"IMPORTANT", "PLEASE PRINT ANY INVOICES RELATING TO THE PART(S) ON THIS WORK ORDER")
Send("{SHIFTDOWN}{F7}{SHIFTUP}")

Func Button1Click()
    $blob = GUICtrlRead($edit1)
    $edit1max = StringLen($blob) ;number
    ;~ Exit
    GUIDelete()
EndFunc

Func CLOSEClicked()
EndFunc

Func datetime()
   $min=string(@MIN)
   $hour=@HOUR
   $day=string(@MDAY)
   $mon=string(@MON)
   $year=string(@YEAR)
   If $hour=00 then
      $hour="24"
   Else
      $hour=string(@HOUR)
   Endif
   $time = $hour & ":" & $min
   $date= $mon & "/" & $day & "/" & $year
   $dt=$time & " ON  " & $date
   Return ($dt)
EndFunc

;-))

Stefan

Thank You Very Much

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.