Quickbooks change account

[Docfxit]

I have this script that runs fine interactively.  I can't get it to run compiled.

Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Opt("TrayIconDebug", 1) ;0-off
; Set so that tray displays current line number
WinWait("Docfxit, Inc.  - QuickBooks Desktop Pro 2021","General Ledger Last ")
If Not WinActive("Docfxit, Inc.  - QuickBooks Desktop Pro 2021","General Ledger Last ") Then WinActivate("Docfxit, Inc.  - QuickBooks Desktop Pro 2021","General Ledger Last ")
WinWaitActive("Docfxit, Inc.  - QuickBooks Desktop Pro 2021","General Ledger Last ")
Send("{ENTER}")
WinWait("Docfxit, Inc.  - QuickBooks Desktop Pro 2021","Enter Credit Card Ch")
If Not WinActive("Docfxit, Inc.  - QuickBooks Desktop Pro 2021","Enter Credit Card Ch") Then WinActivate("Docfxit, Inc.  - QuickBooks Desktop Pro 2021","Enter Credit Card Ch")
WinWaitActive("Docfxit, Inc.  - QuickBooks Desktop Pro 2021","Enter Credit Card Ch")
Send("{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}")
Sleep(100)
Send("Loan")
; Loan payable officer
Sleep(500)
Send("{ENTER}")
;Sleep(500000)
Send("{ALTDOWN}a{ALTUP}")
Sleep(100)
WinWait("Recording Transaction","Cancel")
If Not WinActive("Recording Transaction","Cancel") Then WinActivate("Recording Transaction","Cancel")
WinWaitActive("Recording Transaction","Cancel")
Send("{ALTDOWN}y{ALTUP}")

Running in Windows 10

AutoIt ver. 3.3.16.1

Edited September 1, 2023 by Docfxit

[Danp2]

Which commands aren't working as desired?

[Docfxit]

The first enter on line 10 for starters.

[Nine]

Maybe you are running Scite x64 but you compile x86 ?

[Danp2]

This is what I've previously used to send text to QB --

Const $QBVersion = "QuickBooks Pro 2021"

If WinActivate($QBVersion, "Write Checks - Due Client") Then
        send( "{TAB 3}" )
        send( "Client Reimb:Reimb Owed" )
        send( "{TAB 4}" )
        send( "Checks" )
        sleep(250)
        send( "{ENTER 2}" )
        sleep( 1000 )

        send( "{TAB}" )

        If ControlGetFocus($QBVersion, "Write Checks - Due Client") <> 309 Then
            send( "{TAB}" )
        EndIf

;       If ControlCommand ($QBVersion, "Write Checks - Due Client", 305, "IsChecked") = 0 Then
;           send( "{TAB}" )
;       EndIf
    Else
        Beep()
    EndIf

 

[Docfxit]

9 minutes ago, Nine said:

Maybe you are running Scite x64 but you compile x86 ?

I recompiled it to x64 and it solved the problem.  In the past I was running Quickbooks 2020 and x86 worked.  I did switch to 2021 this year and it seems to need x64.  Thank you very much for catching that.  Now I can get something done.

[Docfxit]

18 minutes ago, Danp2 said:

This is what I've previously used to send text to QB --

Const $QBVersion = "QuickBooks Pro 2021"

If WinActivate($QBVersion, "Write Checks - Due Client") Then
        send( "{TAB 3}" )
        send( "Client Reimb:Reimb Owed" )
        send( "{TAB 4}" )
        send( "Checks" )
        sleep(250)
        send( "{ENTER 2}" )
        sleep( 1000 )

        send( "{TAB}" )

        If ControlGetFocus($QBVersion, "Write Checks - Due Client") <> 309 Then
            send( "{TAB}" )
        EndIf

;       If ControlCommand ($QBVersion, "Write Checks - Due Client", 305, "IsChecked") = 0 Then
;           send( "{TAB}" )
;       EndIf
    Else
        Beep()
    EndIf

 

I tried changing my code as a test because I like your approach.

Const $QBVersion = "Docfxit, Inc.  - QuickBooks Desktop Pro 2021"
WinWait($QBVersion, "General Ledger Last Year")
If Not WinActive($QBVersion, "General Ledger Last Year") Then WinActivate("Docfxit, Inc.  - QuickBooks Desktop Pro 2021","General Ledger Last Year")
WinWaitActive($QBVersion, "General Ledger Last Year")

I couldn't get it to work.

[Danp2]

Add some error checking so that you can determine which command is failing.

[Docfxit]

I think it is looking better now.

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseX64=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Opt("TrayIconDebug", 1) ;0-off
; Set so that tray displays current line number
Const $QBVersion = "Docfxit, Inc.  - QuickBooks Desktop Pro 2021"
If WinActivate($QBVersion, "General Ledger Last Year") Then
    Send("{ENTER}")
    Sleep(100)
;   MsgBox(0, "", "Pressed Enter: " ) ; Shows
    If WinActivate($QBVersion, "Enter Credit Card Ch") Then
        send( "{TAB 8}" )
        Sleep(100)
        Send("Loan")
        ; Loan payable officer
        Sleep(500)
        Send("{ENTER}")
        Send("{ALTDOWN}a{ALTUP}")
        Sleep(100)
    EndIf
    If WinActivate("Recording Transaction","Cancel") Then
        Send("{ALTDOWN}y{ALTUP}")
        Sleep(200)
        Send("{UP}")
    EndIf
Else
    Beep()
EndIf

I can't get the Sleep(200) before the Send("{up}") correct.

[Danp2]

Have you tried using "!y" instead of "{ALTDOWN}y{ALTUP}"?

What is the {UP} doing at the end?

[Docfxit]

It's a timing issue.  The last screen stays up a long time.  If there is a way to wait for the screen to go away that would fix it.

The {UP} moves the cursor to the next transaction.

[Nine]

9 minutes ago, Docfxit said:

If there is a way to wait for the screen to go away that would fix it.

While WinExists("your title here")
  Sleep(100)
WEnd

 

[Docfxit]

I don't know if this is what you had in mind:

If WinActivate("Recording Transaction","Cancel") Then
        Send("!y")
    EndIf
    While WinExists("Recording Transaction","Cancel")
        Sleep(100)
    WEnd
        Send("{UP}")

It isn't moving the cursor up one transaction.

[Nine]

Yes it was.  You may need to give focus the the right window after this one closes or wait a little longer.  You need to experiment...

[Docfxit]

Yea!!!

This is working:

If WinActivate("Recording Transaction", "Cancel") Then
        Send("!y")
    EndIf
    While WinExists("Recording Transaction", "Cancel")
        Sleep(100)
    WEnd
    If WinActivate($QBVersion, "General Ledger Last Year") Then
        Send("{UP}")
    EndIf

 

You guys are great.

It's so nice getting your help to resolve issues.

Thanks a bunch...

Edited September 1, 2023 by Docfxit