Hoje vou postar uma rotina para que possamos criar facilmente um markbrowse editável, assim o usuário pode selecionar os registros e tambem editar as informações.

Abaixo o código fonte, a rotina é bem simples basta compilar e executar para ver um exemplo.

#Include "Protheus.ch"

/*/{Protheus.doc} SPMarkTe
Função SPMarkTe, cria um markbrowse editavel.
@param Não recebe parâmetros
@return Não retorna nada
@author Rafael Goncalves
@owner sempreju.com.br
@version Protheus 12
@since Out|2020
/*/

User Function SPMarkTe()
Private lMarker     := .T.
Private aDespes := {}

//Alimenta o array
BUSDATA()


DEFINE MsDIALOG o3Dlg TITLE 'Clientes' From 0, 4 To 650, 1180 Pixel
    
    oPnMaster := tPanel():New(0,0,,o3Dlg,,,,,,0,0)
    oPnMaster:Align := CONTROL_ALIGN_ALLCLIENT

    oDespesBrw := fwBrowse():New()
    oDespesBrw:setOwner( oPnMaster )

    oDespesBrw:setDataArray()
    oDespesBrw:setArray( aDespes )
    oDespesBrw:disableConfig()
    oDespesBrw:disableReport()

    oDespesBrw:SetLocate() // Habilita a Localização de registros

    //Create Mark Column
    oDespesBrw:AddMarkColumns({|| IIf(aDespes[oDespesBrw:nAt,01], "LBOK", "LBNO")},; //Code-Block image
        {|| SelectOne(oDespesBrw, aDespes)},; //Code-Block Double Click
        {|| SelectAll(oDespesBrw, 01, aDespes) }) //Code-Block Header Click

    oDespesBrw:addColumn({"Codigo"              , {||aDespes[oDespesBrw:nAt,02]}, "C", "@!"    , 1,  20    ,                            , .T. , , .F.,, "aDespes[oDespesBrw:nAt,02]",, .F., .T.,                                    , "ETDESPES1"    })
    oDespesBrw:addColumn({"Nome"                , {||aDespes[oDespesBrw:nAt,03]}, "C", "@!"    , 1, 100    ,                            , .T. , , .F.,, "aDespes[oDespesBrw:nAt,03]",, .F., .T.,                                    , "ETDESPES2"    })
    oDespesBrw:addColumn({"End"                 , {||aDespes[oDespesBrw:nAt,04]}, "C", "@!"    , 1, 100    ,                            , .T. , , .F.,, "aDespes[oDespesBrw:nAt,04]",, .F., .T.,                                    , "ETDESPES3"    })
    oDespesBrw:addColumn({"Cidade"              , {||aDespes[oDespesBrw:nAt,05]}, "C", "@!"    , 1, 100    ,                            , .T. , , .F.,, "aDespes[oDespesBrw:nAt,05]",, .F., .T.,                                    , "ETDESPES4"    })

    oDespesBrw:setEditCell( .T. , { || .T. } ) //activa edit and code block for validation

    /*
    oDespesBrw:acolumns[2]:ledit     := .T.
    oDespesBrw:acolumns[2]:cReadVar:= 'aDespes[oBrowse:nAt,2]'*/

    oDespesBrw:Activate(.T.)

Activate MsDialog o3Dlg

return .t.



Static Function SelectOne(oBrowse, aArquivo)
aArquivo[oDespesBrw:nAt,1] := !aArquivo[oDespesBrw:nAt,1]
oBrowse:Refresh()
Return .T.



Static Function SelectAll(oBrowse, nCol, aArquivo)
Local _ni := 1
For _ni := 1 to len(aArquivo)
    aArquivo[_ni,1] := lMarker
Next
oBrowse:Refresh()
lMarker:=!lMarker
Return .T.





//Alimenta a tabela temporaria
Static Function BUSDATA()
Local cQuery    as Character
Local cQryT3    as Character

cQuery      := ""
cQryT3      := GetNextAlias()
aDespes := {}

cQuery+="SELECT * FROM " + RetSqlName("SA1")
cQuery+=" WHERE D_E_L_E_T_=''"
cQuery:=ChangeQuery(cQuery)
dbUseArea( .T., "TOPCONN", TcGenQry( ,, cQuery ) , cQryT3, .T., .F. )

(cQryT3)->(DbGoTop())
While (cQryT3)->(!EOF())

    aadd(aDespes,{.f.,alltrim((cQryT3)->A1_COD+(cQryT3)->A1_LOJA),alltrim((cQryT3)->A1_NOME),alltrim((cQryT3)->A1_END),alltrim((cQryT3)->A1_MUN)    })

    (cQryT3)->(dbSkip())
EndDo
(cQryT3)->(dbCloseArea())
DbSelectArea('SA1')

Return .t.

O código fonte desse e outros exemplos podem ser encontrados em nosso git.

Post interessantes:

Ponto de entrada ao acessar o sistema aqui.

Aprenda a instalar o Protheus no Windows aqui.

Aprenda a instalar o Protheus no Linux aqui.

Retornar datas por extenso aqui.

Barras de progresso aqui.

Dúvidas e sugestões, entre em contato.

Obrigado e até a próxima!

O post Criar MarkBrowse editável em advpl apareceu primeiro em Sem Preju.

Com a evolução da tecnologia, o Protheus veio se adaptando e evoluindo conforme as necessidades do mercado, um avanço mesmo por exemplo, foi a utilização de CSS nos componentes gráficos, através das funcionalidades fornecidas com o usdo to TWebEngine e FWCallApp, será possível criar aplicações com o visual e recursos usados na web, ou seja visualmente mais modernos, e através de REST integrá-las com o Protheus.

A documentação (inclusive em como ativar) você confere em https://tdn.totvs.com/display/framework/Nova+interface+do+Protheus+com+PO+UI

Nessa primeira fase, a novidade chega com a tela de login e a de seleção de ambiente, abaixo o print do novo visual.

O código fonte desse e outros exemplos podem ser encontrados em nosso git.

Post interessantes:

Ponto de entrada ao acessar o sistema aqui.

Aprenda a instalar o Protheus no Windows aqui.

Aprenda a instalar o Protheus no Linux aqui.

Retornar datas por extenso aqui.

Barras de progresso aqui.

Dúvidas e sugestões, entre em contato.

Obrigado e até a próxima!

O post Alterando para o novo visual do Protheus com PO UI apareceu primeiro em Sem Preju.

Algumas vezes precisamos executar o gatilho de um determinado campo, já aprendemos a verificar se um gatilho existe aqui, vamos agora aprender a executar o gatilho

Para isso existe a função RunTrigger, ela é responsável por executar os gatilhos de um determinado campo. A documentação oficial pode ser encontrada aqui.

Sintaxe

RunTrigger( <nTipo>, <nLin>, <cMacro>, <oObj>, <cField> )

Parâmetros

Exemplo

#INCLUDE "TOTVS.CH"
#INCLUDE "RWMAKE.CH"
#INCLUDE "TOPCONN.CH"

#Define ENTER Chr(13)+Chr(10)

/*/{Protheus.doc} SPEXCTG
Função SPEXCTG, para exemplificar o uso da Função RunTrigger().
@param Não recebe 
@return Não retorna nada
@author Rafael Goncalves
@owner sempreju.com.br
@version Protheus 12
@since Dez|2020
/*/
User Function SPEXCTG()
Local cCampo := 'A1_CGC'

//Para Enchoice
 If ExistTrigger(cCampo) // verifica se existe trigger para este campo
	RunTrigger(1,Nil,Nil,,cCampo)
Endif

//Para aCols
If ExistTrigger(cCampo) // verifica se existe trigger para este campo
    RunTrigger(2,n,nil,,cCampo)
Endif

Return( Nil )

O código fonte desse e outros exemplos podem ser encontrados em nosso git.

Post interessantes:

Como verificar se campo possui gatilho aqui

Aprenda a instalar o Protheus no Windows aqui.

Aprenda a instalar o Protheus no Linux aqui.

Retornar datas por extenso aqui.

Barras de progresso aqui.

Dúvidas e sugestões, entre em contato.

Obrigado e até a próxima!

O post Como executar o gatilho de um campo – RunTrigger apareceu primeiro em Sem Preju.

Algumas vezes precisamos verificar se um determinado campo possui gatinho, já sabemos que realizar um seek nas tabelas de dicionário deve ser evitado, então como realizar essa consulta?

Para isso existe a função ExistTrigger , ela verificar se para determinado campo possui gatilhos no SX7e devolve True quando possuir ou False quando não possuir

Sintaxe

ExistTrigger( <cCampo> )

Parâmetros

Necessário informar somente o nome do campo.

Exemplo

#INCLUDE "TOTVS.CH"
#INCLUDE "RWMAKE.CH"
#INCLUDE "TOPCONN.CH"

#Define ENTER Chr(13)+Chr(10)

/*/{Protheus.doc} SPEXISTG
Função SPEXISTG, para exemplificar o uso da Função ExistTrigger().
@param Não recebe 
@return Não retorna nada
@author Rafael Goncalves
@owner sempreju.com.br
@version Protheus 12
@since Dez|2020
/*/
User Function SPEXISTG()
Local cCampo := 'A1_CGC'

If ExistTrigger( cCampo )
    MsgInfo( 'Campo: ' + cCampo + ENTER + "Possui Gatilho.", 'SemPreju' )
else
    MsgInfo( 'Campo: ' + cCampo + ENTER + "Não Possui Gatilho.", 'SemPreju' )
Endif
Return

Returno deverá ser semelhante a imagem abaixo:

O código fonte desse e outros exemplos podem ser encontrados em nosso git.

Post interessantes:

Ponto de entrada ao acessar o sistema aqui.

Aprenda a instalar o Protheus no Windows aqui.

Aprenda a instalar o Protheus no Linux aqui.

Retornar datas por extenso aqui.

Barras de progresso aqui.

Dúvidas e sugestões, entre em contato.

Obrigado e até a próxima!

O post Como verificar se existe gatilho para um campo – ExistTrigger apareceu primeiro em Sem Preju.

Segue como realizar a atualização do help dos campos, auxiliando o usuário na identificação de ajuda.

Primeiramente faça o download do arquivo, seguindo as etapas abaixo:

– Portal do Cliente: http://suporte.totvs.com
– Menu Downloads e Atualizações
– Linha Protheus
– Microsiga Protheus Versão 12.1.XX (onde XX é a Release do seu P12)
– Todos
– Categoria: Help de campo/pergunta
– Baixe os arquivos HELPS DE CAMPOS/PERGUNTAS DIFERENCIAL – BRASIL e HELPS DE CAMPOS/PERGUNTAS COMPLETO – BRASIL

Após baixar o pacote, descompacte os arquivos .txt para dentro da pasta Systemload do Protheus.

Para atualizar, pare o serviço do Protheus, acesse o módulo 99-Configurador, navegue em Atualizações / Help / Atualização do Help

Aguarde o processamento para a atualizar todos os help.

O código fonte desse e outros exemplos podem ser encontrados em nosso git.

Post interessantes:

Ponto de entrada ao acessar o sistema aqui.

Aprenda a instalar o Protheus no Windows aqui.

Aprenda a instalar o Protheus no Linux aqui.

Retornar datas por extenso aqui.

Barras de progresso aqui.

Dúvidas e sugestões, entre em contato.

Obrigado e até a próxima!

O post Como atualizar os arquivos de Help dos Campos – Completo apareceu primeiro em Sem Preju.

Esta vez trouxe uma dica para facilitar o entendimento da SX5.

O código fonte desse e outros exemplos podem ser encontrados em nosso git.

Post interessantes:

Ponto de entrada ao acessar o sistema aqui.

Aprenda a instalar o Protheus no Windows aqui.

Aprenda a instalar o Protheus no Linux aqui.

Retornar datas por extenso aqui.

Barras de progresso aqui.

Dúvidas e sugestões, entre em contato.

Obrigado e até a próxima!

O post Entendendo o SX5 – Tabelas Genéricas do Protheus apareceu primeiro em Sem Preju.

Esta vez trouxe uma dica para quem está precisando adicionar um novo modulo?

As vezes customizamos um processo inteiro em nosso cliente que as rotinas não se encaixam em nenhum módulo padrão!

No Protheus existe opção de criação de até três módulos específicos. Na realidade eles já existem, mas para que eles estejam disponíveis na escolha do módulos é necessário dar um nome a cada um deles como abaixo:

Não esqueça de dar permissão no configurador para o módulo e criar um menu =]

Abaixo o código fonte, a rotina é bem simples basta compilar e executar para ver um exemplo.

#include 'totvs.ch'


/*/{Protheus.doc} SIGAESP - Módulo 97
Função ESPNOME - Define o nome para o módulo especifico - 97
@param Não recebe parâmetros
@return Não retorna nada
@author Rafael Goncalves
@owner sempreju.com.br
@version Protheus 12
@since Out|2020
/*/
User Function ESPNOME
Return ("Novo Modulo 97")

/*/{Protheus.doc} ESP1NOME - Módulo 98
Função ESP1NOME - Define o nome para o módulo especifico - 98
@param Não recebe parâmetros
@return Não retorna nada
@author Rafael Goncalves
@owner sempreju.com.br
@version Protheus 12
@since Out|2020
/*/
User Function ESP1NOME
Return ("Novo Modulo 98")

/*/{Protheus.doc} ESP2NOME - Módulo 99
Função ESP2NOME - Define o nome para o módulo especifico - 99
@param Não recebe parâmetros
@return Não retorna nada
@author Rafael Goncalves
@owner sempreju.com.br
@version Protheus 12
@since Out|2020
/*/
User Function ESP2NOME
Return ("Novo Modulo 98")


//Tambem temos assim o ponto de entrada de carregamento do sistema, o nome da função é o mesmo da chamado do programa inicial.
user Function SigaEsp()
Alert( Time() )
Return .t. 

O código fonte desse e outros exemplos podem ser encontrados em nosso git.

Post interessantes:

Ponto de entrada ao acessar o sistema aqui.

Aprenda a instalar o Protheus no Windows aqui.

Aprenda a instalar o Protheus no Linux aqui.

Retornar datas por extenso aqui.

Barras de progresso aqui.

Dúvidas e sugestões, entre em contato.

Obrigado e até a próxima!

O post Criação de Módulos Específicos no Protheus apareceu primeiro em Sem Preju.

Esta vez trouxe uma dica para quem está precisando abrir uma página dentro do protheus, a classe TWebEngine pode nos ajudar, abaixo no exemplo como executar a mesma, ainda é possivel usar webSockets para enviar e receber informações a página

Documentação oficial da função aqui.

aixo o código fonte, a rotina é bem simples basta compilar e executar para ver um exemplo.

#INCLUDE "TOTVS.CH"
#INCLUDE "RWMAKE.CH"


/*/{Protheus.doc} SPWEBENG
Função SPWEBENG exemplo de uso da classe TWebEngine
@param Não recebe parâmetros
@return Não retorna nada
@author Rafael Goncalves
@owner sempreju.com.br
@version Protheus 12
@since Oct|2020
/*/
User Function SPWEBENG()
	If (aLLTRIM(FwRetIdiom()) =='en-us')
 		U_OpenPage('https://www.totvs.com/','TOTVS')
	Else
 		U_OpenPage('https://sempreju.com.br','Sempreju')
	Endif
Return


User Function OpenPage(cUrl,cTitle)
Local oModal
Local aSize           := {}
Local aObjects        := {} 
Local aInfo            := {} // Obt?m a a ?rea de trabalho e tamanho da dialog
Local nPort     :=  0
PRIVATE oWebChannel := TWebChannel():New()
PRIVATE oWebEngine 

DEFAULT cUrl	:=	"https://sempreju.com.br"
DEFAULT cTitle := cUrl
DEFAULT cRootPath	:=	"/"

aSize := MsAdvSize()
AAdd( aObjects, { 100, 100, .T., .T. } ) // Dados da Enchoice 
// Dados da ?rea de trabalho e separa??o
aInfo := { aSize[ 1 ], aSize[ 2 ], aSize[ 3 ], aSize[ 4 ], 3, 3 } 
aPosObj := MsObjSize( aInfo, aObjects,.T.)
DEFINE MSDIALOG oModal TITLE cTitle From aSize[7],0 To aSize[6],aSize[5] of oMainWnd PIXEL // Usar sempre PIXEL !!!
    nPort := oWebChannel::connect()
    oWebEngine := TWebEngine():New(oModal, 0, 0, 100, 100,, nPort)
    //oWebEngine:cLang := FwRetIdiom() Only in smartclient higher than 19.3.1.0
    oWebEngine:bLoadFinished := {|self,url| conout("Fim do carregamento da pagina " + url) }
    oWebEngine:navigate(cUrl)
    oWebEngine:Align := CONTROL_ALIGN_ALLCLIENT
  
  ACTIVATE DIALOG oModal CENTERED

Return

O código fonte desse e outros exemplos podem ser encontrados em nosso git.

Post interessantes:

Ponto de entrada ao acessar o sistema aqui.

Aprenda a instalar o Protheus no Windows aqui.

Aprenda a instalar o Protheus no Linux aqui.

Retornar datas por extenso aqui.

Barras de progresso aqui.

Dúvidas e sugestões, entre em contato.

Obrigado e até a próxima!

O post Como usar a classe TWebEngine e abrir páginas dentro do protheus apareceu primeiro em Sem Preju.

Esta vez trouxe uma dica para quem está precisando pegar informações do AppServer.ini ou do SmartCliente.ini e usar no ADVPL

Ainda é possivel criar uma seção totalmente customizada e utilizar os mesmos recuros! legal né, então vamos ver como isso é simples!

A documentação oficial da rotina pode ser encontrada aqui.

Abaixo o código fonte, a rotina é bem simples basta compilar e executar para ver um exemplo.

#INCLUDE "TOTVS.CH"
#INCLUDE "RWMAKE.CH"
#INCLUDE "TOPCONN.CH"
#INCLUDE "COLORS.CH"
#INCLUDE "FONT.CH"  


/*/{Protheus.doc} SPCHAVIN
Função SPCHAVIN para buscar uma chave no ini e retornar o valor
@param chave e valor padrao 
@return Não retorna nada
@author Rafael Goncalves
@owner sempreju.com.br
@version Protheus 12
@since Mar|2020
/*/
User Function SPCHAVIN()          
Local cMensagem as Character        
Local cServerIni as Character        
Local cClientIni as Character
Local cSecao as Character
Local cChave as Character
Local cPadrao as Character


cServerIni := GetAdv97()
cClientIni := GetRemoteIniName()
cSecao := "General" //vamos ser os parametros da seção [General]
cChave := "InstallPath" //qual chave queremos retornar o valor
cPadrao := "NaoEncontrado" //se nao encontrar esse é o valor padrao a ser retornado

cMensagem := "Arquivo de configuração do servidor: [" + cServerIni + "]" + CRLF
cMensagem += "  Seção [" + cSecao + "] Chave [" + cChave + "] Valor [" + ;
GetPvProfString(cSecao, cChave, cPadrao, cServerIni) + "]" + CRLF+ CRLF+ CRLF

cMensagem += "Arquivo de configuração da estação: [" + cClientIni + "]" + CRLF
cMensagem += "  Seção [" + cSecao + "] Chave [" + cChave + "] Valor [" + ;
GetPvProfString(cSecao, cChave, cPadrao, cClientIni) + "]" + CRLF
//+----------------------------------------------------------------------------+
//|Apresenta uma mensagem com os resultados obtidos                            |
//+----------------------------------------------------------------------------+
MsgInfo(cMensagem, "Exemplo do GetPvProfString")


//é possivel assim criarmos uma chave customizada e usar ela em nossos fontes, como abaixo


cSecao := "SEMPREJU" //vamos ser os parametros da seção [SEMPREJU]
cChave := "url" //qual chave queremos retornar o valor
cPadrao := "URL Não encontrada" //se nao encontrar esse é o valor padrao a ser retornado

cMensagem := "Arquivo de configuração do servidor: [" + cServerIni + "]" + CRLF
cMensagem += "  Seção [" + cSecao + "] Chave [" + cChave + "] Valor [" + ;
GetPvProfString(cSecao, cChave, cPadrao, cServerIni) + "]" + CRLF+ CRLF+ CRLF
//+----------------------------------------------------------------------------+
//|Apresenta uma mensagem com os resultados obtidos                            |
//+----------------------------------------------------------------------------+
MsgInfo(cMensagem, "Exemplo do GetPvProfString")


Return .T.

O código fonte desse e outros exemplos podem ser encontrados em nosso git.

Post interessantes:

Ponto de entrada ao acessar o sistema aqui.

Aprenda a instalar o Protheus no Windows aqui.

Aprenda a instalar o Protheus no Linux aqui.

Retornar datas por extenso aqui.

Barras de progresso aqui.

Dúvidas e sugestões, entre em contato.

Obrigado e até a próxima!

O post Como buscar valores no Appserver.ini e SmartClient.ini apareceu primeiro em Sem Preju.

Ai que entra a classe ClassMethArr, essa classe retorna um array multidimensional com todas as informações sobre os métodos do objeto passado no parâmetro.

Exemplo de uso do código pode ser baixado aqui.

#Include "Protheus.ch"

/*/{Protheus.doc} areaQuad
Essa classe retorna um array multidimensional com todas as informações sobre os métodos do objeto passado no parâmetro.
@type function
@author  Rafael Gonçalves
@since janeiro/2020
@version 12.1.25
@param nil
@return nil
/*/
user function sempreju()
    u_SPCLASSM()
return

User Function SPCLASSM()

//Exemplo de objeto
oMsDialog := MSDialog():New(180,180,550,700,'Exemplo MSDialog',,,,,CLR_BLACK,CLR_WHITE,,,.T.)

//Parametro 1 - Objeto
//Parametro 2 - Se verdadeiro (.T.) retorna todos os parametros, inclusive os parâmetros herdados de outras classes, adiciona o nome da classe na 3ª coluna do array
aMethods := ClassMethArr(oMsDialog, .T.)
cMethods := PadR("METHOD", 30) + "|OWNER" + CRLF

//Concateno todas as informações
For nI := 01 To Len(aMethods)
    cMethods += PadR(AllTrim(aMethods[nI, 01]), 30) + "|" + AllTrim(aMethods[nI, 03]) + CRLF
Next nI

//Salvo
MemoWrite("D:\Rafael\Workspace_SemPreju\SemPreju-Exemplos\Exemplos\Classes\FWMBrowse_Methods.txt", cMethods) //Salva resultado da ClassMethArr

Return .t.

Bom pessoal, por hoje é só. Qualquer dúvida ou seguestão entre em contato

Abraços e até a próxima.

O post Classe ClassMethArr apareceu primeiro em Sem Preju.