Perguntas Ajuda rotina de atualização

Bom dia pessoal,

Estou tentando desenvolver uma rotina que reabre o atendimento do Call Center, conforme parâmetro passado.

Abaixo segue o realizado até o momento:

#INCLUDE ‘PROTHEUS.CH‘
#INCLUDE ‘TOPCONN.CH‘
#include "TOTVS.CH"
#DEFINE CRLF chr(13) + chr(10)


User Function BIOTMK13 ()

Local cAteQry := ""

Private cPerg := ‘BIOTMK13‘

If !Pergunte(cPerg,.T.)
Return
End If
Pergunte(cPerg,.F.)


//Atalizando a Reabertura do Atendimento
cAteQry += CRLF + " UPDATE SUC010 SET UC_STATUS = ‘2‘, UC_DTENCER = ‘‘, UC_CODENCE = ‘‘, UC_CODMOT = ‘‘ "
cAteQry += CRLF + " WHERE "
cAteQry += CRLF + " UC_CODIGO BETWEEN ‘" + MV_PAR01 + "‘ AND ‘" + MV_PAR02 + "‘"


//Verificando se a query está aberta na memória
If Select(‘QRYATE‘) <> 0
QRYATE->(DbCloseArea())
End If
TCQUERY cAteQry NEW ALIAS ‘QRYATE‘

//Validando se tem algum atendimento
if QRYATE->(EOF())
MsgAlert (‘O Atendimento não foi localizado. Favor revisar o filtro!‘)
Return
End If


Return Nil


Como podem ver é bem simples, pois oa selecionar atualiza alguns campos essenciais!

Porém, quando executo tenho a seguinte mensagem: TOP Error -19 - Invalid Select / Query Statement.

O que pode ser? Qual a solução para o caso?

Obrigada dese já!

Flávia Mártis

Consegui resolvendo assim:

#INCLUDE 'PROTHEUS.CH'
#INCLUDE 'TOPCONN.CH'
#include "TOTVS.CH"
#DEFINE CRLF chr(13) + chr(10)


User Function BIOTMK13 ()

Local cAteQry := ""
Private cPerg := 'BIOTMK13'

If !Pergunte(cPerg,.T.)
Return
End If
Pergunte(cPerg,.F.)



//Atualizando a Reabertura do Atendimento
cAteQry += CRLF + " UPDATE SUC010 SET UC_STATUS = '2', UC_DTENCER = ' ', UC_CODENCE = ' ', UC_CODMOT = ' ' "
cAteQry += CRLF + " WHERE "
cAteQry += CRLF + " UC_CODIGO = '" + MV_PAR01 + "' "


nReturn := TcSqlExec(cAteQry )
If nReturn < 0
MsgStop("Não foi possível reabrir o atendimento solicitado!")
Else
MsgInfo("Atendimento reaberto com sucesso!")
End If

Return Nil


Obrigada pessoal!

Flávia Mártis