Como usar o Assistente de Código no TDS

Olá pessoal…

Hoje vou mostrar como utilizar o Assistente de Código no TDS.

Primeiramente esteja conectado em um ambiente, e usando uma empresa e filial (rodapé direito do TDS). Em seguida, clique com o botão direito em uma pasta do projeto, e depois clique em Assistente de Código.

Acessando Assistente de Código

Coloque um nome para o arquivo, e escolha o tipo de Assistente (no nosso exemplo será um AxCadastro).

Escolhendo a função

Selecione o Alias da tabela, e avance.

Escolhendo recursos

Se necessário, informe o módulo e clique em Concluir.

Definindo a documentação

Por último basta utilizar o fonte gerado.

Fonte gerado

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Dan_Atilio
Analista e desenvolvedor de sistemas. Técnico em Informática pelo CTI da Unesp. Graduado em Banco de Dados pela Fatec Bauru. Entusiasta de soluções Open Source e blogueiro nas horas vagas.

2 Responses

  1. Wagney disse:

    Dan boa noite. No cadastro de produto os pontos de entrada M010inc e M010Alt não funcionam mais .Vc tem algum fonte de como ficariam esse pontos de entrada em MVC ?

    • Dan_Atilio disse:

      Então jovem, o ponto de entrada da MATA010 em MVC, se chama item, crie o arquivo MATA010_pe.prw, e o conteúdo de exemplo abaixo:

      //Bibliotecas
      #Include "Protheus.ch" 
      
      /*/{Protheus.doc} ITEM
      Exemplo de Ponto de Entrada em MVC 
      @author zIsMVC 
      @since 29/06/2018
      @version 1.0 
      @type function 
      @obs Deixar o nome do prw como: ITEM_pe.prw 
      /*/ 
      
      User Function ITEM() 
      	Local aParam := PARAMIXB 
      	Local xRet := .T. 
      	Local oObj := Nil 
      	Local cIdPonto := "" 
      	Local cIdModel := "" 
      	Local nOper := 0 
      	Local cCampo := "" 
      	Local cTipo := "" 
      	Local lEnd
      
      	//Se tiver parâmetros
      	If aParam != Nil 
      		ConOut("> "+aParam[2]) 
      
      		//Pega informações dos parâmetros
      		oObj := aParam[1] 
      		cIdPonto := aParam[2] 
      		cIdModel := aParam[3] 
      
      		//Valida a abertura da tela
      		If cIdPonto == "MODELVLDACTIVE" 
      			xRet := .T. 
      
      			//Pré configurações do Modelo de Dados
      		ElseIf cIdPonto == "MODELPRE" 
      			xRet := .T. 
      
      			//Pré configurações do Formulário de Dados
      		ElseIf cIdPonto == "FORMPRE" 
      			xRet := .T. 
      
      
      			//Adição de opções no Ações Relacionadas dentro da tela
      		ElseIf cIdPonto == "BUTTONBAR" 
      			xRet := {}
      
      			//Pós configurações do Formulário
      		ElseIf cIdPonto == "FORMPOS" 
      			nOper := oObj:GetModel(cIdPonto):nOperation
      
      			xRet := .T. 
      
      			//Validação ao clicar no Botão Confirmar
      		ElseIf cIdPonto == "MODELPOS" 
      			xRet := .T. 
      
      
      			//Pré validações do Commit
      		ElseIf cIdPonto == "FORMCOMMITTTSPRE" 
      
      			//Pós validações do Commit
      		ElseIf cIdPonto == "FORMCOMMITTTSPOS" 
      
      			//Commit das operações (antes da gravação)
      		ElseIf cIdPonto == "MODELCOMMITTTS" 
      
      			//Commit das operações (após a gravação)
      		ElseIf cIdPonto == "MODELCOMMITNTTS" 
      			nOper := oObj:nOperation
      
      			//Se for alteração
      			If nOper == 3  
      				Alert("Fim da Inclusão")
      			ElseIf nOper == 4  
      				Alert("Fim da Alteração")
      			EndIf
      		EndIf 
      	EndIf 
      Return xRet
      

      O fonte foi gerado usando o zIsMVC – https://terminaldeinformacao.com/2018/04/24/saiba-como-identificar-se-uma-funcao-e-em-mvc-como-fazer-seu-ponto-de-entrada/
      Abraços.

Deixe uma resposta