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.

Relacionado

Tags: AdvPL TDS

30 de janeiro de 2019

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.

Wagney disse:

6 de março de 2019 às 8:36 pm

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 ?

Responder

Dan_Atilio disse:

15 de março de 2019 às 8:34 am

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.

Responder