| |
|
Bem Vindo, Visitante
|
 Todos os Fórums
  ADVPL
|
 Imprimir
 Enviar Para um Amigo
Precisa estar Logado
|
 |
 |
Assunto: |
Perda de dados na Query |
|
Versão: |
12.1.33 |
|
Plataforma: |
Microsoft |
Complemento: |
|
|
DB: |
SQL Server |
Complemento: |
|
|
|
|
|
|
|
Mensagem do
WANDERSONW
em 16/01/2022, 15:25 h
Local: SP Registro: 01/07/2015 Postagens: 166 |
Boa Tarde Pessoal
Tenho que Query que carrega todas as informações de acordo com o parâmetro
porém quando uso a função abaixo ele perde todo conteúdo da query quando chega na linha do While
Count To nTotal
oObj:SetRegua1(nTotal)
Parte do codigo
cQuery+=" SE1.E1_EMISSAO =‘" + DTOS(MV_PAR07) +"‘ AND " + CRLF
cQuery+=" SE1.E1_NATUREZ >=‘"+MV_PAR12 +"‘ AND " + CRLF
cQuery+=" SE1.E1_NATUREZ <=‘"+MV_PAR13 +"‘" + CRLF
cQuery+=" ORDER BY" + CRLF
cQuery+=" 2" + CRLF
TCQUERY cQuery NEW ALIAS "BOLSICOB"
memowrite("C:\Advpl\Querys\VSPBBGPDF.SQL",cQuery )
dbSelectArea("BOLSICOB")
If BOLSICOB->(eof())
MsgAlert("A consulta não retornou nenhum valor, por favor reveja os parametros.")
dbSelectArea("BOLSICOB")
dbclosearea()
return
EndIf
Count To nTotal
oObj:SetRegua1(nTotal)
dbSelectArea("BOLSICOB")
dbGotop()
While BOLSICOB->( ! EOF() )
BOLSICOB->( dbskip())
Enddo
Como posso resolver isso? |
|
 Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|
