×
Linguagem de Programação ADVPL
Perguntas Barra Progresso
- gustavo13
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
11 anos 3 meses atrás - 11 anos 3 meses atrás #16283
por gustavo13
Barra Progresso foi criado por gustavo13
Olá!
Estou com dificuldade de criar uma barra de progresso enquanto executo "COPY TO" de uma tabela, alguém sabe como criar essa barra de progresso enquanto executo a cópia. Queria que fosse aquela barra que "vai e volta."
Estou com dificuldade de criar uma barra de progresso enquanto executo "COPY TO" de uma tabela, alguém sabe como criar essa barra de progresso enquanto executo a cópia. Queria que fosse aquela barra que "vai e volta."
Ultima edição: 11 anos 3 meses atrás por gustavo13.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 3 meses atrás #16287
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Barra Progresso
Se estiver usando o comando copy to acho que não vai virar, agora se estiver efetuando essa cópia através de um loop segue um exemplo:
ProcRegua(0)
While Tabela->(!Eof())
IncRegua("Aguarde Processando Cópia...")
.....
Tabela->(dbSkip(1))
Enddo
ProcRegua(0)
While Tabela->(!Eof())
IncRegua("Aguarde Processando Cópia...")
.....
Tabela->(dbSkip(1))
Enddo
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- gustavo13
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
11 anos 3 meses atrás - 11 anos 3 meses atrás #16310
por gustavo13
Respondido por gustavo13 no tópico Barra Progresso [RESOLVIDO]
Acabei conseguindo fazer o que eu queria. Segue:
ProcRegua(0)
_cArquivo := "\edirw\bkp_SZD\AIB_"+Dtos(ddatabase)+".dbf"
If !File(_cArquivo)
DbSelectArea("AIB")
SZD->(dbGoTop())
COPY TO &_cArquivo ALL while EL_copia()
Endif
_cArquivo := "\edirw\bkp_SZD\SB1_"+Dtos(ddatabase)+".dbf"
If !File(_cArquivo)
DbSelectArea("SB1")
SZD->(dbGoTop())
COPY TO &_cArquivo ALL while EL_copia()
Endif
Static function EL_copia()
If !EOF()
IncProc(1)
_lRet := .T.
Else
_lRet := .F.
EndIf
return _lRet
ProcRegua(0)
_cArquivo := "\edirw\bkp_SZD\AIB_"+Dtos(ddatabase)+".dbf"
If !File(_cArquivo)
DbSelectArea("AIB")
SZD->(dbGoTop())
COPY TO &_cArquivo ALL while EL_copia()
Endif
_cArquivo := "\edirw\bkp_SZD\SB1_"+Dtos(ddatabase)+".dbf"
If !File(_cArquivo)
DbSelectArea("SB1")
SZD->(dbGoTop())
COPY TO &_cArquivo ALL while EL_copia()
Endif
Static function EL_copia()
If !EOF()
IncProc(1)
_lRet := .T.
Else
_lRet := .F.
EndIf
return _lRet
Ultima edição: 11 anos 3 meses atrás por gustavo13.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 3 meses atrás #16311
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Barra Progresso [RESOLVIDO]
Po Legal em Gustavo, essa não conhecia, valeu por compartilhar com a gente.
Abraços.
Depois coloca uma foto sua ai pra gente te conhecer melhor ok.
Abraços.
Depois coloca uma foto sua ai pra gente te conhecer melhor ok.
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.132 segundos