Hoje vamos aprender como usar cadastrar um feriado e como verificar se uma data é válida.

1- Cadastro de feriados

Para que o sistema consiga considerar uma data como feriado é necessário que cadastre esta data na tabela genérica(SX5) –  63.

Acesse: Configurador (SIGACFG) > Base de Dados > Dicionário > Base de Dados > Selecione a Empresa (Grupo) e clique em “Tabelas Genéricas”.

Importante: A data deve ser cadastrada em Dia/Mês/Ano (01/01/99). Caso a data deva ser considerada todo ano, informe três espaços em branco após o mês (01/01 ) e depois insira a descrição.

2-Verificando de uma data é dia útil, para isso vamos usar a função datavalida()

Essa função recebe dois parametros, são eles!

1-Data para iniciar o cálculo da função

2-Se .T. posterga a data recebida para o próximo dia útil – Se .F. retrocede a data recebida para o dia útil anterior

Abaixo o código fonte onde exemplificamos o seu uso.

#Include "Protheus.ch"
#Include "TopConn.ch"
  

/*/{Protheus.doc} SPDTVAL
Função SPDTVAL, exemplo de uso de data valida
@return Não retorna nada
@author Rafael Goncalves
@owner sempreju.com.br
@version Protheus 12
@since Abr|2021
/*/
User Function SPDTVAL()  

    /*
    Parametros
        1-Data para iniciar o cálculo da função
        2-Se .T. posterga a data recebida para o próximo dia útil – Se .F. retrocede a data recebida para o dia útil anterior (default .f.)
    Retorno
    	Data válida do sistema

    Obs.: Para cadastrar um feriado use a tabela genérica 63
    */
    MsgInfo(    'DataValida ou próxima: '  + cValtoChar( DataValida( Date(), .T. ) ) + CRLF + ;
                'DataValida ou anterior: ' + cValtoChar( DataValida( Date(), .F. ) ) ;
 , 'Sempreju =)' )


Return .t.

Agor

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

Post interessantes:

Aprenda a instalar o Protheus no Windows aqui.

Aprenda a instalar o Protheus no Linux aqui.

configurar serviço rest 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 cadastrar feriado e verificar se uma data é valida! apareceu primeiro em Sem Preju.

Hoje vamos aprender como usar a função cGetFile através do F3 de um campo ou pergunte, isso pode ser util especialmente quando precisarmos selecionar um arquivo e não queremos digitar todo o caminho, mas sim apenas selecionar.

Abaixo o código fonte onde criamos a função que será utilizada no cadastro da consulta padrão (SXB).

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

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

/*/{Protheus.doc} SPSF3DIA
Função SPSF3DIA, para exemplificar como selecionar o diretório de um arquivo no SF3.
@param Não recebe parâmetros
@return Patch do arquivo selecionado
@author Rafael Goncalves
@owner sempreju.com.br
@version Protheus 12
@since Mar|2021
/*/

User Function SPSF3DIA(cCampo)
Local cRet := ""

cRet := cGetFile(,"Selecione o diretorio",,"",.T.,GETF_NETWORKDRIVE+GETF_RETDIRECTORY+128)

//Atualiza o campo com o caminho selecionado
&(cCPO)	:= cRet

Return (!Empty(cRet))

Agora que temos a função responsável por tratar e retornar o arquivo, vamos criar uma consulta padrão que utilizará essa função (tipo da consulta padrão será “especifica”) ao invés de uma tabela. Para isso no configurador, vamos criar o seguinte SXB.

Avançando vamos configurar  a nossa função, enviando como parametro a função readvar(), e retornando o valor M->(readvar()).

Agora onde for necessário selecionar um arquivo (campo ou pergunte) através do SF3, vamos usar a nossa nova consulta, para demonstrar adicionei no campo A1_END, e o resultado foi o print abaixo

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

Post interessantes:

Aprenda a instalar o Protheus no Windows aqui.

Aprenda a instalar o Protheus no Linux aqui.

configurar serviço rest 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 selecionar arquivo através do F3 apareceu primeiro em Sem Preju.

Mas primeiramente o que é o slack?

Saiba mais sobre isso no nosso post sobre a ferramenta clicando aqui.

Primeiros passos

Antes de iniciamos a configuração, temos que criar uma conta no slack, para isso acesse aqui.

Após termos criados a nossa conta, vamos criar um novo token de autorização dentro do slack, com esse token vamos postar as mensagens enviadas do protheus para o nosso canal, para isso siga as etapas abaixo.

1. Crie um novo aplicativo na app management page;
2. Clique no botão create a new app, seremos redirecionados a pagina de configuração.
   1. Informe um nome para seu aplicativo ex. ERPProtheus
   2. Seleciona o workspace que esse app pertencerá]

3. Criar Webhooks de entrada para o Slack,

   1. Na pagina de seus aplicativos, selecionar o novo app criado.
   2. Seleciona a opção, adicionar novas funcionalidades.
   3. Seleciona a opção webhook de entrada e a ative.
   4. Clique em adicionar novo webhook ao workspace(onde vamos informar em que canal serão enviadas as informações)
   5. Nesse momento o sistema ira gerar uma URL única, copie e guarde, vamos precisar dela no nosso fonte.

   6. resumindo o webhooks de entrada são um jeito simples de compartilhar informações de fontes externas com seu workspace. Mais informações aqui.

Após a criação do nosso app no slack, temos que configurar o protheus para enviar informações, abaixo um exemplo para ler o errorl.log e enviar os novos erros para o slack, altere e use da maneira que for sua necessidade.

#Include "Protheus.ch"
#INCLUDE "fileio.ch"
/*/{Protheus.doc} SPSLACK
(long_description)
@type Function
@author user
@since 22/01/2020
@version version
@param param_name, param_type, param_descr
@return return_var, return_type, return_description
@example
(examples)
@see (links_or_references)
/*/
user Function SPSLACK()
Local cUrl := ''//TODO insira aqui a sua url do slack, similar a https://hooks.slack.com/services/TSN3MSKFD/BTG0YNAMQ/M1bSfoBKUEyUX4uc7DezlC
Local nTimeOut := 120
Local aHeadOut := {}
Local cHeadRet := ""
Local sPostRet := ""
Local _ni := 0
Local aMsg := u_FSLERLOG() //get messages
//aadd(aHeadOut,'User-Agent: Mozilla/4.0 (compatible; Protheus '+GetBuild()+')')
aadd(aHeadOut,'Content-type: application/json')
For _ni := 1 to len(aMsg)
sPostRet := HttpPost(cUrl,,'{"text":"'+aMsg[_ni]+'"}',nTimeOut,aHeadOut,@cHeadRet)
next
if !empty(sPostRet)
conout("HttpPost Ok")
varinfo("WebPage", sPostRet)
else
conout("HttpPost Failed.")
varinfo("Header", cHeadRet)
Endif
Return .T.
/*/{Protheus.doc} User Function FSLERLOG
(long_description)
@type Function
@author user
@since 22/01/2020
@version version
@param param_name, param_type, param_descr
@return return_var, return_type, return_description
@example
(examples)
@see (links_or_references)
/*/
User Function FSLERLOG(cLogFile)
Local aMensagem as Array
Local cDelimt as Character
default cLogFile := '\system\error.log'
aMensagem := {}
cDelimt := 'SP_JA_ENVIADO'
nHdl := fOpen(cLogFile, FO_READWRITE + FO_SHARED) //fopen('\sigaadv\error.log' , FO_READWRITE + FO_SHARED )
If nHdl == -1
IF FERROR()== 516
ALERT("Feche a planilha que gerou o arquivo.")
EndIF
EndIf
//+---------------------------------------------------------------------+
//| Verifica se foi poss�vel abrir o arquivo |
//+---------------------------------------------------------------------+
If nHdl == -1
cMsg := "O arquivo de nome "+cLogFile+" nao pode ser aberto! Verifique os parametros."
MsgAlert(cMsg,"Atencao!")
Return
Endif
//+---------------------------------------------------------------------+
//| Posiciona no Inicio do Arquivo |
//+---------------------------------------------------------------------+
FSEEK(nHdl,0,0)
//+---------------------------------------------------------------------+
//| Traz o Tamanho do Arquivo TXT |
//+---------------------------------------------------------------------+
nTamArq:=FSEEK(nHdl,0,2)
//+---------------------------------------------------------------------+
//| Posicona novamemte no Inicio |
//+---------------------------------------------------------------------+
FSEEK(nHdl,0,0)
//+---------------------------------------------------------------------+
//| Fecha o Arquivo |
//+---------------------------------------------------------------------+
fClose(nHdl)
FT_FUse(cLogFile) //abre o arquivo
FT_FGOTOP() //posiciona na primeira linha do arquivo
nTamLinha := Len(FT_FREADLN()) //Ve o tamanho da linha
FT_FGOTOP()
//+---------------------------------------------------------------------+
//| Verifica quantas linhas tem o arquivo |
//+---------------------------------------------------------------------+
nLinhas := nTamArq/nTamLinha
nCont := 0
lAchou := .F.
lAchou2 := .F.
aDados:={}
While !FT_FEOF() //Ler todo o arquivo enquanto n�o for o final dele
//Se achou o delimetador, zera array pq as inform��es ja foram enviadas
If cDelimt $ FT_FREADLN()
aMensagem := {}
lAchou2 := .T.
Endif
//rava o erro para ser postado no Slack
If 'THREAD ERROR' $ FT_FREADLN()
aAdd(aMensagem," ") //Adcionar uma nova mensagem
lAchou := .T.
Endif
If lAchou .and. nCont <= 8 //gravar 8 linhas
aMensagem[len(aMensagem)] += FT_FREADLN() +CHR(13)+CHR(10)+CHR(13)+CHR(10)
nCont ++
else
lAchou := .F.
nCont := 0
Endif
clinha := FT_FREADLN()
conout(clinha)
FT_FSKIP()
EndDo
FT_FUse()
fClose(nHdl)
If !lAchou2
nHdl := fOpen(cLogFile, FO_READWRITE + FO_SHARED) //fopen('\sigaadv\error.log' , FO_READWRITE + FO_SHARED )
//add delimetador
FSeek(nHdl, 0, FS_END) // Posiciona no fim do arquivo
fWrite(nHdl,cDelimt + chr(13)+chr(10) )
fClose(nHdl)
Endif
Return aMensagem

Esse e outros exemplos você encontra em nosso git.

Até a próxima

O post Integrar Protheus ao Slack apareceu primeiro em Sem Preju.