Vídeo Aula – AdvPL 013 – Como debugar um fonte no TDS

Olá pessoal…

Na vídeo aula de hoje, vou mostrar como debugar (depurar) um fonte AdvPL no TDS, utilizando os recursos da perspectiva Depurar.



Abaixo o código fonte utilizado para os testes:

//Bibliotecas
#Include "Protheus.ch"

/*/{Protheus.doc} zDebug
Função de teste para Debug / Depurar programas via TDS
@type function
@author Atilio
@since 06/12/2015
@version 1.0
	@example
	u_zDebug()
/*/

User Function zDebug()
	Local aArea := GetArea()
	Local aProds := {}
	Local nSequen := 0
	
	//Selecionando a tabela de produtos e posicionando no topo
	DbSelectArea("SB1")
	SB1->(DbSetOrder(1)) //Filial + Código
	SB1->(DbGoTop())
	//TODO fazer rotina X
	//Enquanto não for fim do arquivo
	While ! SB1->(EoF())
		aAdd(aProds,{	SB1->B1_COD,;
						SB1->B1_DESC,;
						SB1->B1_TIPO})
	
		nSequen++
		SB1->(DbSkip())
	EndDo
	
	Alert(nSequen)
	RestArea(aArea)
Return

Se quiser fazer o download desse código ou do conteúdo mostrado na vídeo aula, acesse nosso GitHub pelo link github.com/dan-atilio/AdvPL (Exemplos > Vídeo Aulas > 013 – Como debugar um fonte no TDS).

Bom pessoal, por hoje é só.
Abraços e até a próxima.

Dan (Daniel Atilio)
Cristão de ramificação protestante. Especialista em Engenharia de Software pela FIB, graduado em Banco de Dados pela FATEC Bauru e técnico em informática pelo CTI da Unesp. Entusiasta de soluções Open Source e blogueiro nas horas vagas. Autor e mantenedor do portal Terminal de Informação.

7 Responses

  1. Valdemir disse:

    Parceiro, boa tarde.

    Já trabalho alguns anos com ADVPL e utilizando o TDS, quando tento debugar ele não respeita a função pergunte(), ou seja ao invés de ele abrir a tela de parâmetros ele passa direto. Isto ocorre somente com essa função. Já atualizei o Java, já instalei a versão 11.2 e 11.3, já limpei todo registro que estava com a versão do java ante de instalar e não adiantou. Sabe o que pode ser???

    Já abri chamado na Totvs sobre este caso, nem eles conseguem me informar o que pode ser….rs

    Agradeço desde já,

    Valdemir

    • Dan_Atilio disse:

      Bom dia Valdemir, tudo bem?
      Aparentemente é um bug mesmo, talvez apenas para algumas versões do AppServer, procurei no Fluig, e existem outras pessoas também com o mesmo problema, mas aparentemente não foi solucionado.
      Tente talvez, com uma outra versão do AppServer, se for isso, altere o chamado constatando.
      Caso não, instale do zero o TDS em outra máquina qualquer e verifique se o problema também persiste.
      Um grande abraço.

    • Igor Guimarães disse:

      Boa tarde Valdemir, tb estou com esse problema, tá froids pra debugar!!!!

      • Julyane do Vale Galo disse:

        Alguém de vocês conseguiu corrigir o problema? também não consigo debugar por nada no mundo e é o Pergunte() que não executa.

        • Dan_Atilio disse:

          Bom dia Julyane, realmente é um bug do TDS.
          Se eu não me engano, eles iam disponibilizar alguma atualização, mas não sei se foi disponibilizado.
          Abraços.

  2. Marcelo Vinholi disse:

    Olá..
    Aqui usamos balances…. e ao executar o debug, ocorre erro de standalone… No IDE antigo era simples de corrigir: só apontar o AMBIENTE para um TCP_debug (que está no INI)… Mas no TDS não achei onde…

    Como usar com balance ?

    • Dan_Atilio disse:

      Boa noite Marcelo, tudo bem?
      Basta criar uma conexão no TDS apontando diretamente para uma de debug, caso queira ver, eu explico na primeira vídeo aula (aproximadamente às 09:10 do vídeo até 10:45 do vídeo), abaixo o link:

      Um grande abraço.

Deixe uma resposta

Terminal de Informação