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.

Passo a passo para habilitar a permissão: 

1. Acesse o ambiente do Protheus.
2. No menu, vá em Ambiente > Parâmetros > Parâmetros.
3. Localize o parâmetro MV_VALCNPJ.
4. Altere o valor deste parâmetro para “1”.
5. Repita os passos 3 e 4 para o parâmetro MV_VALCPF, se necessário.
6. Clique em “Atualizar” ou “<F4>” para salvar a configuração.
7. Saia e entre novamente no sistema para que a mudança seja aplicada.

Observações: 

• Com o parâmetro configurado para “1”, o sistema irá notificar o usuário de que o CNPJ já existe em outro cadastro, mas permitirá que a inclusão seja realizada.
• Se o valor for “2”, a inclusão do mesmo CNPJ será impedida.
• Este ajuste é feito para o cadastro de clientes na rotina SIGAFAT.

O post Permitir clientes com o mesmo CNPJ no Protheus apareceu primeiro em PHFSistemas.

Protheus – MATA103 – A partir da versão 11.80

Solução

Quando ocorre a escrituração de uma nota fiscal de serviço com IRRF o sistema apresenta duas fases:

Cálculo do Imposto:

O sistema faz o cálculo do IRRF de qualquer valor.

Retenção do imposto:

O sistema faz a retenção conforme a condição do parâmetro MV_VLRETIR = 10.00 (É dispensado a retenção do IR em até dez reais). Caso o IRRF seja abaixo de dez reais ele não leva para o financeiro, destaca na aba impostos mas “apaga” assim que você salva a nota e visualiza a nota escriturada no módulo de compras.

E por quê calcula:

O sistema precisa calcular esse impostos, pois há o fator da cumulatividade, caso você entre com outra nota com mesma data de emissão o sistema vai recuperar aquele imposto calculado/armazenado (que não havia superado os dez reais) e soma com essa segunda nota e gera retenção no financeiro.

Na pratica, ficaria deste modo na tabela SE2 com base em duas notas fiscais:

A primeira nota fiscal o valor do IRRF ficou em sete reais;

E2_VRETIRF = 7.00 (este campo armazena o cálculo)

E2_IRRF = 0.00 (este campo é o IR retido que leva o tipo TX no financeiro)

Segunda nota o valor do IRRF ficou em cinco reais (mesma data de emissão);

E2_VRETIRF = 5.00 (armazenou o cálculo da nota atual)

E2_IRRF = 12.00 (gerou retenção, pois no somatório das notas superou o valor de dez reais 7,00 + 5,00).

O post FIS – IRRF – aba duplicata ficando zerada após a gravação do documento quando o valor do Impostos é inferior a 10,00 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.

Configuração necessária para gerar a nota:

NATUREZA

Calcula PIS (ED_CALCPIS) = Sim

Percentual de PIS (ED_PERCPIS) = Informe a alíquota

Calcula COFINS (ED_CALCCOF) = Sim

Percentual de COFINS (ED_PERCCOF) = Informe a alíquota

Calcula CSLL (ED_CALCCSL) = Sim

Percentual de CSLL (ED_PERCCSL) = Informe a alíquota

TES
Gera Duplicata (F4_DUPLIC) = Sim

PRODUTO

Retém PIS (B1_PIS) = Sim

Retém COFINS (B1_COFINS) = Sim

Retém CSLL (B1_CSLL) = Sim

Ret. Operação (B1_RETOPER) = Não – Considera valor mínimo de retenção / Sim – Não considera valor mínimo de retenção

FORNECEDOR

Rec. PIS (A2_RECPIS) = Não

Rec. COFINS (A2_RECCOFI) = Não

Rec. CSLL (A2_RECCSLL) = Não

CLIENTE

Rec. PIS (A1_RECPIS) = Sim

Rec. COFINS (A1_RECCOFI) = Sim

Rec. CSLL (A1_RECCSLL) = Sim

Modo de abatimento do imposto (A1_ABATIMP) = Cálculo do sistema

Parâmetros referentes à retenção PIS/COFINS/CSLL – Lei 10.925

MV_RF10925: Data de referência inicial, para que os novos procedimentos quanto à retenção de PIS/COFINS/CSLL sejam aplicados) = 26/07/04

MV_VL10925: Valor máximo de pagamentos no período para dispensa da retenção de PIS/COFINS/CSLL = 5000

MV_RT10925: Modo padrão de operação do Sistema quanto à retenção de PIS/COFINS/CSLL. (1=Calculado p/sistema, 2=Efetua Retenção sempre – 3=Não efetua retenção) = 1

MV_AC10925: Controle de permissão para que o usuário altere o modo de retenção na janela cálculo de retenção – 1=Permite alteração – 2= Não permite alteração = 1

MV_AB10925: Modo de retenção do PIS,COFINS e CSLL p/ C.Receber 1=Verif.retenção pelo valor da nota emitida – 2=Verif.retenção p/soma notas emitidas no período = 2

MV_MT10925: Verifica base de retenção pelo total ou apenas pelos títulos que retiveram impostos.1=Todos 2=Somente os que retiveram PIS etc = 1

MV_BX10925 (Entrada): Define o momento do tratamento da retenção dos impostos PIS COFINS e CSLL. 1= Na Baixa OU 2 = Na Emissão

MV_BR10925 (Saída): Define o momento do tratamento da retenção dos impostos PIS COFINS e CSLL. 1= Na Baixa OU 2 = Na Emissão

MV_BS10925: Indica se o cálculo da retenção será sobre a base do PIS/COFINS/CSLL ou pelo valor total da duplicata. 1=Valor da base; 2=Valor total = 2

MV_LJ10925: Considerar para verificação de valores de retenção os valores de todas as lojas do cliente. Opções: 1 = Loja atual ou 2 = Todas as lojas = 2

MV_VRETPIS: Valor mínimo para dispensa de retenção de PIS = 0.00

MV_VRETCOF: Valor mínimo para dispensa de retenção de COFINS = 0.00

MV_VRETCSL: Valor mínimo para dispensa de retenção de CSLL = 0.00

MV_RATPIS: Rateio do imposto na entrada – T. (Default) para ratear os impostos OU .F. para NÃO ratear.

MV_RATCOF: Rateio do imposto na entrada – T. (Default) para ratear os impostos OU .F. para NÃO ratear.

MV_RATCSLL: Rateio do imposto na entrada – T. (Default) para ratear os impostos OU .F. para NÃOratear.

MV_PISNAT: Natureza para títulos referentes ao PIS : “PIS”

MV_COFINS: Natureza para títulos referentes a COFINS : “COFINS”

MV_CSLL: Natureza de títulos de Pagamento de CSLL : “CSLL”

MV_AG10925: Indica se os impostos do PCC serão aglutinados em um titulo apenas quando ocorrerem os três impostos num mesmo titulo. 1=Aglutina OU 2=Não Aglutina 2

*OBS: Os parâmetros referente à Lei 10.925 devem permanecer conforme sugerido acima.

Parâmetros referentes à retenção PIS/COFINS/CSLL – Lei 13.137

Adequação do Protheus para atender as alterações de regras de cálculo do Pis, Cofins e Csll de acordo com a Lei 13137/15 | Lei nº 13.137, de 19 de junho de 2015 vigente a partir do dia 22/06/2015.

MV_VL13137: Define o valor mínimo para retenção do Pis/Cofins/Csll de acordo com a Lei 13.137 = 10.00

MV_VCPCCP: Qual a data que será considerada para a cumulatividade do PCC na entrada.

1=Emissao

2=Venc.Real

3=Dt Contab.

MV_VCPCCR: Qual a data que sera considerada para a cumulatividade do PCC na saída:

1=Emissao

2=Venc.Real

3=Dt Contab.

.

De acordo com a legislação o valor mínimo para retenção passa a ser a soma do valor calculado do Pis, Cofins e Csll, que deverá ser maior que  R$10,00 e a cumulatividade passa a ser diária. A data de vencimento dos impostos foi alterada para o segundo decêndio do mês subsequente.

Para isto, foi criado o parâmetro MV_VL13137 que define o novo valor mínimo para retenção no qual serão gravados informações no contas a receber e pagar.

O post MP – FIS – Retenção de PIS, COFINS e CSLL apareceu primeiro em PHFSistemas.

User Function zExe523()

    Local aArea      := FWGetArea()

    Local cCodUsr    := ""

    Local cNomUsr    := ""

    Local cEmailUsr  := ""

    Local cMensagem  := ""

    //Busca as informações do usuário

    cCodUsr    := RetCodUsr()

    cNomUsr    := UsrRetName(cCodUsr)

    cEmailUsr  := UsrRetMail(cCodUsr)

    //Monta a mensagem e exibe

    cMensagem := "Usuário logado: "+ cCodUsr + " ("+ cNomUsr + "), tem o seguinte endereço de email: "+ cEmailUsr

    FWAlertInfo(cMensagem, "Teste UsrRetMail")

    FWRestArea(aArea)

Return

O post Buscando o eMail de um usuário através da UsrRetMail apareceu primeiro em PHFSistemas.

User Function zExe284()

    Local aArea      := FWGetArea()

    Local aInfo      := {}

    Local cMensagem  := ""

    //Busca as informações da máquina

    aInfo := GetRmtInfo()

    //Monta a mensagem e exibe

    cMensagem += "Nome Computador:  "+ aInfo[01] + CRLF

    cMensagem += "S.O.:             "+ aInfo[02] + CRLF

    cMensagem += "Inf. Adicional:   "+ aInfo[03] + CRLF

    cMensagem += "Mem. Fisica:      "+ aInfo[04] + CRLF

    cMensagem += "Nr.Processadores: "+ aInfo[05] + CRLF

    cMensagem += "MHz Processador:  "+ aInfo[06] + CRLF

    cMensagem += "Descr. Process.:  "+ aInfo[07] + CRLF

    cMensagem += "Linguagem:        "+ aInfo[08] + CRLF

    cMensagem += "Navegador:        "+ aInfo[09] + CRLF

    cMensagem += "Android ou iOS:   "+ aInfo[10] + CRLF

    cMensagem += "Arquitetura:      "+ aInfo[11] + CRLF

    cMensagem += "Estát. ou Dinam:  "+ aInfo[12] + CRLF

    cMensagem += "Pasta do execut:  "+ aInfo[13]

    ShowLog(cMensagem)

    FWRestArea(aArea)

Return

O post Buscando informações de onde esta rodando o SmartClient com GetRmtInfo apareceu primeiro em PHFSistemas.