Skip to content

Instantly share code, notes, and snippets.

View Dadinel's full-sized avatar
🍺
Working/Studying at TOTVS

Daniel Mendes Dadinel

🍺
Working/Studying at TOTVS
View GitHub Profile
@Dadinel
Dadinel / rotinas-mvc.csv
Last active April 8, 2022 19:18
Protheus - Rotinas MVC
Source Model View
AGRA020 Yes Yes
AGRA030 Yes Yes
AGRA001 Yes Yes
AGRA005 Yes Yes
AGRA035D Yes Yes
AGRA010 Yes Yes
AGRA035 Yes Yes
AGRA050 Yes Yes
AGRA045RUS Yes Yes
@Dadinel
Dadinel / DnlMethd.prw
Created December 11, 2019 21:21
DnlMethd - Exemplo de chamada de método estático
#include "prothues.ch"
// -----------------------------------------------------------------
/*{Protheus.doc} DnlMethd
Função para exemplo de chamada de método estático
@sample U_DnlMethd()
@author Daniel Mendes
@since 11/10/2019
@version 1.0
@Dadinel
Dadinel / EssaEhUmClasseDeExemplo.prw
Last active December 11, 2019 21:18
EssaEhUmClasseDeExemplo - Classe ADVPL para exemplo com mais de dez caracteres e métodos estáticos
#include "protheus.ch"
// -----------------------------------------------------------------
/*{Protheus.doc} EssaEhUmClasseDeExemplo
Classe ADVPL de exemplo, que suporta mais de dez caracteres
@author Daniel Mendes
@since 11/10/2019
@version 1.0
*/
@Dadinel
Dadinel / EssaEhUmClasseDeExemplo.prw
Created December 11, 2019 21:12
EssaEhUmClasseDeExemplo - Classe ADVPL para exemplo com mais de dez caracteres
#include "protheus.ch"
// -----------------------------------------------------------------
/*{Protheus.doc} EssaEhUmClasseDeExemplo
Classe ADVPL de exemplo, que suporta mais de dez caracteres
@author Daniel Mendes
@since 11/10/2019
@version 1.0
*/
@Dadinel
Dadinel / xDNLInsTmp.prw
Last active November 1, 2019 11:13
FWTemporaryTable - Exemplo de insert into com select
#include 'protheus.ch'
//Grupo e filial que o ambiente será aberto
#define C_GRUPO "99"
#define C_FILIAL "01"
// -----------------------------------------------------------------
/*{Protheus.doc} xDNLInsTmp
Exemplo de INSERT INTO com a tabela temporária (FWTemporaryTable)
@Dadinel
Dadinel / totvs-protheus-resumo-environment.csv
Created September 16, 2019 17:36
TOTVS Protheus - Exportação de dados, shift+f6
We can make this file beautiful and searchable if this error is corrected: No commas found in this CSV file in line 0.
Fontes
Nome;Data;Hora
AP5ARR.PRW;20/08/2019;15:48:55
AP5FTP.PRW;20/08/2019;15:48:55
AP5MAIL.PRW;20/08/2019;15:48:55
AP5RAS.PRW;20/08/2019;15:48:55
AP5TRANSLATE.PRW;20/08/2019;15:48:55
APCFG010.PRW;20/08/2019;15:48:55
APCFG020.PRW;20/08/2019;15:49:19
APCFG020A.PRW;20/08/2019;15:49:19
@Dadinel
Dadinel / funcao_gera_error_log.prw
Last active August 22, 2019 12:53
Função de exemplo para gerar um error.log, contendo parâmetros, variáveis, tabela e pilha
#include "protheus.ch"
#define TABLE_DELET "SQLExemplo"
#define SQLITE_DRIVER "SQLITE_MEM"
user function funcao_gera_error_log()
funcao_chama_error_log()
return nil
static function funcao_chama_error_log()
@Dadinel
Dadinel / funcao_gera_error_log.prw
Created August 21, 2019 14:40
Error.log - Função de exemplo para gerar error.log
#include 'protheus.ch'
user function funcao_gera_error_log()
if variavel_nao_existe == variavel_nao_existe[0]
endif
return nil
@Dadinel
Dadinel / appserver.ini
Created July 19, 2019 16:26
Exemplo REST - Configuração do INI
[GENERAL]
MAXSTRINGSIZE=10
[HTTPV11]
Enable=1
Sockets=HTTPREST
[HTTPREST]
Port=8080
URIs=HTTPURI
@Dadinel
Dadinel / DnlRestETC.prw
Last active July 19, 2019 16:57
Exemplo REST - GET - Hello World
wsmethod get wsservice DnlRestETC
//Esse cara indica que vamos retornar um HTML, apenas para o nosso primeiro retorno
self:setContentType("text/html")
self:setResponse("<p>Hello World</p>")
self:setStatus(200)
return .T.