Olá pessoal,

Neste artigo vou mostrar quais são os parâmetros para configurar o envio de e-mails nos relatórios do ERP Protheus.

Vamos fazer um exemplo configurando com um e-mail do Gmail.

Acesse o Configurador e o menu Ambiente -> E-mail/Proxy -> Configurar

1. Informe os dados do e-mail

2. Informe os dados referente a TLS, SSL e Autenticação

3. Caso tenha Proxy, informe

Quais os parâmetros que serão alterados?

MV_RELAUTH – Servidor de e-mail necessita de Autenticação?

MV_EMCONTA – Indica qual conta utilizada para envio de e-mails automáticos pelo sistema.

MV_RELSERV – Nome do servidor de envio de e-mail utilizado nos relatórios

MV_RELPSW – Senha da conta de e-mail para envio de relatórios

MV_RELACNT – Conta a ser utilizada no envio de e-mail para os relatórios

Como configurar envio de e-mails no Protheus com Office365

Se for utilizar o Office365 como SMTP, utilize as informações abaixo, substituindo nos respectivos campos do exemplo das imagens acima:

Servidor SMTP: smtp.office365.com:587

Conta: seu_email@seudominio.com.br

Senha: Sua senha

Servidor necessita de autenticação? SIM

Time-out em segundos: 120

E-mail utilizado no campo FROM: * Obrigatoriamente o mesmo e-mail da Conta

Protocolo de recebimento: SMTP

Utiliza SMTP Extended? Sim

Habilita autenticação SMTP ‘LOGIN’? Sim

Utiliza segurança TLS? Sim

Utiliza segurança SSL? Sim

Habilita protocolo NTLM? Sim

O post Parâmetros para Envio de E-mail Protheus apareceu primeiro em PHFSistemas.

Se você já precisou colocar os fontes em validação no Code Analysis, sabe que o ConOut é acusado para que seja melhorado a estrutura dos fontes.

A TOTVS criou a função FWLogMsg, porém essa função recebe vários parâmetros, então não daria simplesmente para dar um Ctrl+F no projeto e substituir o texto ConOut.

Pensando nisso, encapsulei a função FWLogMsg dentro de uma função de usuário chamada zConOut. Portanto, basta você procurar no projeto por ConOut e substituir por u_zConOut.

Abaixo o código fonte desenvolvido:

#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zConOut

Função para substituir o ConOut (por causa do Code Analysis)

@type  Function

@author Atilio

@since 24/06/2021

@version version

@param cTexto, Caractere, Texto a ser exibido no console.log

@example

    u_zConOut("Teste")

@obs Para ativar esse recurso, a chave FWLogMsg_Debug tem que estar como 1 no AppServer.ini:

@see https://tdn.totvs.com/display/framework/FWLogMsg

/*/

User Function zConOut(cTexto)

    Local aArea    := GetArea()

    Default cTexto := ""

    FWLogMsg(;

        "INFO",;    //cSeverity      - Informe a severidade da mensagem de log. As opções possíveis são: INFO, WARN, ERROR, FATAL, DEBUG

        ,;          //cTransactionId - Informe o Id de identificação da transação para operações correlatas. Informe "LAST" para o sistema assumir o mesmo id anterior

        "ZCONOUT",; //cGroup         - Informe o Id do agrupador de mensagem de Log

        ,;          //cCategory      - Informe o Id da categoria da mensagem

        ,;          //cStep          - Informe o Id do passo da mensagem

        ,;          //cMsgId         - Informe o Id do código da mensagem

        cTexto,;    //cMessage       - Informe a mensagem de log. Limitada à 10K

        ,;          //nMensure       - Informe a uma unidade de medida da mensagem

        ,;          //nElapseTime    - Informe o tempo decorrido da transação

        ;           //aMessage       - Informe a mensagem de log em formato de Array - Ex: { {"Chave" ,"Valor"} }

    )

    RestArea(aArea)

Return

Creditos :https://terminaldeinformacao.com/

O post Como substituir o ConOut pelo FWLogMsg apareceu primeiro em PHFSistemas.

Exemplo da Rotina:

Begin Transaction

    //Tratativas de inclusão, alteração, disarm

End Transaction

Exemplo 1- Exemplo de criação de registro no cadastro de Produtos, perguntando se deseja cancelar:

//Bibliotecas

#Include "Protheus.ch"

/*/{Protheus.doc} zTeste

Função de Teste

@type function

@author Terminal de Informação

@since 13/11/2016

@version 1.0

    @example

    u_zTeste()

/*/

User Function zTeste()

    Local aArea    := GetArea()

    Local aAreaB1  := SB1->(GetArea())

    //Iniciando controle de transações

    Begin Transaction

        RecLock('SB1', .T.)

            B1_COD  := dToS(dDataBase)+StrTran(Time(), ':', '')

            B1_DESC := "Teste"

        SB1->(MsUnlock())

        //Se a pergunta foi confirmada, cancela os lançamentos na transação

        If MsgYesNo("Deseja cancelar e disarmar a transação?", "Atenção")

            DisarmTransaction()

        EndIf

    //Finalizando controle de transações

    End Transaction

    RestArea(aAreaB1)

    RestArea(aArea)

Return

O post Begin Transaction … End Transaction apareceu primeiro em PHFSistemas.

#Include "Totvs.ch"

/*/{Protheus.doc} User Function zExe220

Faz um backup da área em memória e depois volta

@type Function

@author Atilio

@since 20/02/2023

@see https://tdn.totvs.com/display/public/framework/FwGetArea , https://tdn.totvs.com/display/public/framework/FwRestArea , https://tdn.totvs.com/pages/releaseview.action?pageId=24346925, https://tdn.totvs.com/pages/releaseview.action?pageId=24347058

@obs

    Função FWGetArea

    Parâmetros

        Não possui parâmetros

    Retorno

        Retorna um array com as posições [1] Alias ; [2] Índice Usado ; [3] Registro posicionado

    Função FWRestArea

    Parâmetros

        + aArea         , Array       , Array com as posições igual armazenadas na FWGetArea

    Retorno

        Não tem retorno

    Função GetArea

    Parâmetros

        Não possui parâmetros

    Retorno

        Retorna um array com as posições [1] Alias ; [2] Índice Usado ; [3] Registro posicionado

    Função RestArea

    Parâmetros

        + aArea         , Array       , Array com as posições igual armazenadas na GetArea

    Retorno

        Não tem retorno

    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****

/*/

User Function zExe220()

    Local aArea    := FWGetArea()

    Local aAreaSB1 := SB1->(FWGetArea())

    //Aqui suas customizações

    FWRestArea(aAreaSB1)

    FWRestArea(aArea)

Return

/*/{Protheus.doc} User Function A010TOK

Ponto de entrada ao clicar no botão Ok no Cadastro de Produtos

@type  Function

@author Atilio

@since 20/02/2023

/*/

User Function A010TOK()

    Local lRet     := .T.

    //Aciona o exemplo do GetArea e RestArea

    u_zExe220()

Return lRet

O post Restaurando a memória com FWGetArea, FWRestArea, GetArea e RestArea apareceu primeiro em PHFSistemas.

Para a retenção será necessário seguir a configuração abaixo:

1 – Tabelas:

Natureza (SED):

Calcula IRRF = SIM

Percentual de cálculo de IRRF = 1,0/1,5

Amarrar Natureza ao cadastro de Cliente/ Fornecedor

Se o fornecedor for Pessoa Física, o Sistema busca a alíquota da tabela de IRRF (CFX011) do configurador.

CLIENTE (SA1):

Pode ser informada a alíquota no campo A1_ALIQIR

Recolhe IRRF (A1_RECIRRF) = SIM

Modo Abatimento do Imposto (A1_ABATIMP) = Calculado pelo sistema

FORNECEDOR (SA2):

Cálculo IRRF = Normal

IRRF Prog = SIM (Pessoa Física)

Vlr.Mín.IRRF( A2_MINIRF) = 1 – Sim – O Sistema não considera o parâmetro MV_VLRETIR

                                                2 – Não – O Sistema considera esse parâmetro.

PRODUTOS (SB1):

Impos Renda (B1_IRRF) = Sim

Redução de IRRF (B1_REDIRRF) – Caso haja redução

TES (SF4):

Gera Dupl. (F4_DUPLIC) = Sim

2 – Parâmetros (SX6):

MV_1DUPNAT – Campo ou dado a ser gravado na natureza do titulo.

MV_MP447 – Define se a empresa terá IRRF retido na forma da MP 232. T = Considera a M.P.; F = Não considera a M.P.               

MV_VENCIRF – Indica se o título de IRRF será gerado a partir da data de (E)missão, (V)encimento ou (C)ontabilização.

MV_VCTIRPF – Indica se o título de IRRF (Pessoa Física) será gerado data de (E)missão, (V)encimento ou  (C)ontabilização.       

MV_ACMIRPF -Define se a cumulatividade dos valores de IR-PF levarão em conta a data de Emissão ou Vencimento do titulo principal. 1=Emissao; 2=Vencto Real.                                    

MV_ACMIRPJ –Define se a cumulatividade dos valores de IR-PJ levarão em conta a data de Emissão ou Vencimento do titulo principal. 1=Emissao; 2=Vencto Real.                            

MV_VC11196 – Determina se fará o cálculo de data dos impostos IRRF, PIS, COFINS, CSLL conforme Lei 11196.

                 1 = Calcula os vencimentos de acordo com a lei 11.196

                          2 = Default, de acordo com 10925

MV_IRMP232 – Define se a empresa terá IRRF retido na forma da MP 232. 1-Sim/ 2-Não

MV_ALIQIRF – Alíquota de IRRF para títulos com retenção na fonte.Utilizam percentuais de acordo com tabela legal.

MV_IMPADT – Define utilização da geração de IRRF em adiantamento a Pagar.

MV_NATNDF – Natureza do título NDF gerado via apuração de IRRF.

MV_PRZIRRF – Número de dias para pagamento do IRRF após a emissão do título.

MV_VLRETIR – Valor mínimo para dispensa de retenção de IRRF.

MV_RATIRRF – Indica se o valor do IRRF deve ser ou não rateado pelo número de títulos a pagar em uma nota fiscal de compra.

MV_IRF……… – Natureza utilizada para Imposto de Renda “IRF”

MV_IRMP232 – Define se a empresa tera IRRF retido na forma da MP 232. Valores Possiveis 1-Sim, 2-Nao

MV_IRPJ -Naturezas para impostos manuais IRPJ – DCTF

                      .T. = Rateia

                      .F. = Não Rateia

 MV_RNDIRF… – Informe o critério de arredondamento da IRRF.

MV_AGLIMPJ – Define forma de verificação da base do IRRF

                        1 = Apenas Filial Corrente (DEFAULT)

                        2 = Todas Filiais por CNPJ

                        3 = Todas Filias por raiz CNPJ (8 dígitos)

Para atender o fator da cumulatividade:

MV_ACMIRCR – Define se acumula o valor mínimo do imposto IRRF – (Contas á receber)  

                           1 = Acumula (Default)

                          2 = Nao Acumula          

MV_ACMIRRF – Define se acumula o valor mínimo do imposto IRRF – (contas à Pagar)     

                         1 = Acumula (Default)

                         2 = Nao Acumula    

O post FIS – Como calcular o IRRF para notas de entrada e saída? apareceu primeiro em PHFSistemas.

Pessoal, como sabem via ADVPL existem inúmeras funções para mostrar mensagens, como Alert, Aviso, MsgInfo, etC. Mas existem algumas funções “novas”, e no artigo de hoje irei citar exatamente essas.

Elas não são bem novas, porém são bem mais recentes que as antigas funções (MsgInfo, MsgStop, MsgAlert, etc). Pois bem, abaixo uma pequena descrição de cada uma:

• FWAlertError: Mostra uma mensagem com um círculo vermelho e um x no meio
• FWAlertExitPage: Mostra uma pergunta com 3 opções (Continuar editando, Salvar, Sair da Página)
• FWAlertHelp: Mostra uma mensagem de help e solução
• FWAlertInfo: Mensagem informativa com um círculo azul e um i no meio
• FWAlertNoYes: Mensagem que tem 2 opções (Não e Sim)
• FWAlertSuccess: Mostra uma mensagem com um círculo verde e um ícone de check
• FWAlertWarning: Mostra uma mensagem com um triângulo amarelo e uma exclamação no meio
• FWAlertYesNo: Mensagem que tem 2 opções (Sim e Não)

//Bibliotecas

#Include "TOTVS.ch"

User Function zAlert()

    FWAlertError("Mensagem de erro", "Título FWAlertError")

    FWAlertExitPage("Mensagem de navegação de página", "Título FWAlertExitPage")

    FWAlertHelp("Mensagem do problema", "Mensagem da solução - FWAlertHelp")

    FWAlertInfo("Mensagem informativa", "Título FWAlertInfo")

    FWAlertNoYes("Mensagem de pergunta Não / Sim", "Título FWAlertNoYes")

    FWAlertSuccess("Mensagem de sucesso", "Título FWAlertSuccess")

    FWAlertWarning("Mensagem de aviso", "Título FWAlertWarning")

    FWAlertYesNo("Mensagem de pergunta Sim / Não", "Título FWAlertYesNo")

Return

O post Executa FWAlert Totvs Protheus apareceu primeiro em PHFSistemas.