Puxar dado de consulta padrão

Olá galera, eu tenho um fonte que realiza uma query de update, alteração de dados. Eu puxo esses dados via ParamBox, mas estou precisando puxar via consulta padrão. Eu consegui colocar a consulta padrão da SB1 no fonte, porém os dados não estão armazenando e nem sendo executados na query. Alguém pode ajudar?

#Include "Totvs.ch"

User Function bzemin()
    Local aArea := FWGetArea()

    //Abre consulta padrão das filiais
    DbSelectArea("SM0")
    cFil := ConPad1(, , , "SM0")

    //Abre consulta padrão dos produtos
    DbSelectArea("SB1")
    cProd := ConPad1(, , , "SB1")

    //Pergunta ao usuário qual o novo valor do campo BZ_EMIN
    cEmin := FWInputBox('Alterar campo para:','Valor:')

    //Chama a query
    Processa({|| query() } )

    FWRestArea(aArea)
Return

Static Function query()
    Local aArea     := FWGetArea()
    Local cQuery   := ""

    //Realiza a query de update para alterar o campo BZ_EMIN de acordo com a variável cEmin
    cQuery := "UPDATE SBZ010 " + CRLF
    cQuery += "SET BZ_EMIN = '" + cEmin + "' " + CRLF
    cQuery += "WHERE BZ_FILIAL = '" + cFil + "'" + CRLF
    cQuery += "AND BZ_COD = '" + cProd + "' " + CRLF
    TCSqlExec(cQuery)

    FWRestArea(aArea)
Return