phfsistemas, Autor em PHFSistemas

Como atualizar os dados de uma empresa que virou Lucro Real no documento de entrada do Protheus

phfsistemas — Wed, 24 Jun 2026 18:36:38 +0000

No artigo de hoje, vamos abordar alguns passos à executar, caso uma empresa mude para Lucro Real e já tenha alguns documentos de entrada lançados no sistema.

Antes de começarmos o tutorial, ressaltamos que o processo ideal é excluir os documentos de entrada e lançar eles novamente, após ter parametrizado o sistema para calcular o PIS e COFINS.

Mas se o prazo tiver curto, for poucas notas, ou até se quiser ir simulando numa base local, o tutorial abaixo é para você.

A ideia aqui, é por exemplo, supondo que havia poucas notas já lançadas, e elas precisam ter o PIS e COFINS ajustados.

O passo 1 é atualizar no documento de entrada, com as alíquotas necessárias e com a TES nova que controle o PIS e COFINS:

UPDATE SD1010 sET

D1_TES = '071',

D1_BASIMP6 = D1_TOTAL - D1_VALICM,

D1_ALQIMP6 = 1.65,

D1_VALIMP6 = ROUND((D1_TOTAL - D1_VALICM) * 0.0165, 2),

D1_BASIMP5 = D1_TOTAL - D1_VALICM,

D1_ALQIMP5 = 7.60,

D1_VALIMP5 = ROUND((D1_TOTAL - D1_VALICM) * 0.0760, 2)

WHERE

D1_DOC = '000036656'

ANDD1_FORNECE = '002104'

ANDD_E_L_E_T_ = ' '

O passo 2, você precisa capturar o IDTRIB que esta gravado na SD1 para depois atualizar também no CBS e IBS:

SELECT D1_IDTRIB, * FROM SD1010 WHERE D1_DOC = ‘000036656’ AND D1_FORNECE = ‘002104’ AND D_E_L_E_T_ = ‘ ‘

Ainda no passo 2, após pegar o IDTRIB, você vai atualizar a base de cálculo (F2D_BASE) do CBS e IBS dessa nota:

UPDATE

F2D010

SET

F2D_BASE = (

SELECT

D1_TOTAL - D1_VALICM - D1_VALIMP6 - D1_VALIMP5

FROM

SD1010 SD1

WHERE

D1_IDTRIB = F2D_IDREL

ANDD_E_L_E_T_ = ' '

)

WHERE

F2D_IDREL = 'BD9E7465-9103-4111-881B-005056908921'

O passo 3, você precisa rodar o Reprocessamento do Livros Fiscais (MATA930) dessa NF que foi atualizada, para ele pegar as informações da SD1 e atualizar na SF3 e SFT.

Por fim, o passo 4, é necessário atualizar a parte de custo da entrada (MATA190) dessa NF que foi atualizada, pra ele atualizar o D1_CUSTO.

Lembrando que se forem fazer, rodem primeiro na base de testes, e validem as informações com o departamento fiscal da empresa.

O post Como atualizar os dados de uma empresa que virou Lucro Real no documento de entrada do Protheus apareceu primeiro em PHFSistemas.

Como ver o conteúdo dos campos LGI e LGA no SQL Server

phfsistemas — Wed, 24 Jun 2026 18:11:28 +0000

Basta usar Substring e Convert que você consegue ver o resultado dos campos.

Para visualizar o usuário que incluiu ou alterou, você deve concatenar as seguintes posições: 03, 07, 11, 15, 19, 02, 06, 10, 14, 01, 18, 05, 09, 13, 17, 04, 08. Pois nas versões antigas do Protheus, era gravado o nome do usuário (por exemplo, “Daniel Atilio”), e a partir das versões mais novas, é gravado apenas o código (por exemplo, “000007”).

Para visualizar a data, você deve pegar a posição 12 e a 16, transformar em ascii tirando 50 caracteres e converter para data, pegando como início de corte 01/01/1996. Se for o campo de alteração, essa posição 12 além de tirar 50, você deve multiplicar por 100.

Abaixo o exemplo da query completa.

SELECT

B1_COD,

B1_DESC,

B1_USERLGI,

B1_USERLGA,

CASEWHENSUBSTRING(B1_USERLGI, 03, 1) != ' 'ANDB1_USERLGI != ''THEN

CONVERT(VARCHAR,DATEADD(DAY,CONVERT(INT,CONCAT(ASCII(SUBSTRING(B1_USERLGI,12,1)) - 50, ASCII(SUBSTRING(B1_USERLGI,16,1)) - 50) + IIF(SUBSTRING(B1_USERLGI,08,1) = '<',10000,0)),'1996-01-01'), 103)

ELSE

''

ENDASDATA_INCL,

CASEWHENSUBSTRING(B1_USERLGA, 03, 1) != ' 'ANDB1_USERLGA != ''THEN

CONVERT(VARCHAR,DATEADD(DAY,CONVERT(INT,CONCAT(ASCII(SUBSTRING(B1_USERLGA,12,1)) - 50, ASCII(SUBSTRING(B1_USERLGA,16,1)) - 50) + IIF(SUBSTRING(B1_USERLGA,08,1) = '<',10000,0)),'1996-01-01'), 103)

ELSE''

ENDASDATA_ALT,

LEFT(

SUBSTRING(B1_USERLGI, 11, 1) +

SUBSTRING(B1_USERLGI, 15, 1) +

SUBSTRING(B1_USERLGI, 19, 1) +

SUBSTRING(B1_USERLGI, 02, 1) +

SUBSTRING(B1_USERLGI, 06, 1) +

SUBSTRING(B1_USERLGI, 10, 1) +

SUBSTRING(B1_USERLGI, 14, 1) +

SUBSTRING(B1_USERLGI, 01, 1) +

SUBSTRING(B1_USERLGI, 18, 1) +

SUBSTRING(B1_USERLGI, 05, 1) +

SUBSTRING(B1_USERLGI, 09, 1) +

SUBSTRING(B1_USERLGI, 13, 1) +

SUBSTRING(B1_USERLGI, 17, 1) +

SUBSTRING(B1_USERLGI, 04, 1) +

SUBSTRING(B1_USERLGI, 08, 1)

, 6) ASUSER_INCL,

LEFT(

SUBSTRING(B1_USERLGA, 11, 1) +

SUBSTRING(B1_USERLGA, 15, 1) +

SUBSTRING(B1_USERLGA, 19, 1) +

SUBSTRING(B1_USERLGA, 02, 1) +

SUBSTRING(B1_USERLGA, 06, 1) +

SUBSTRING(B1_USERLGA, 10, 1) +

SUBSTRING(B1_USERLGA, 14, 1) +

SUBSTRING(B1_USERLGA, 01, 1) +

SUBSTRING(B1_USERLGA, 18, 1) +

SUBSTRING(B1_USERLGA, 05, 1) +

SUBSTRING(B1_USERLGA, 09, 1) +

SUBSTRING(B1_USERLGA, 13, 1) +

SUBSTRING(B1_USERLGA, 17, 1) +

SUBSTRING(B1_USERLGA, 04, 1) +

SUBSTRING(B1_USERLGA, 08, 1)

, 6) ASUSER_ALTE

FROM

SB1990 SB1

WHERE

B1_FILIAL = ' '

ANDB1_MSBLQL != '1'

ANDSB1.D_E_L_E_T_ = ' '

/* Exemplo original:

SELECT

B1_COD,

B1_USERLGI,

B1_USERLGA,

SUBSTRING(B1_USERLGI, 03, 1) +

SUBSTRING(B1_USERLGI, 07, 1) +

SUBSTRING(B1_USERLGI, 11, 1) +

SUBSTRING(B1_USERLGI, 15, 1) +

SUBSTRING(B1_USERLGI, 19, 1) +

SUBSTRING(B1_USERLGI, 02, 1) +

SUBSTRING(B1_USERLGI, 06, 1) +

SUBSTRING(B1_USERLGI, 10, 1) +

SUBSTRING(B1_USERLGI, 14, 1) +

SUBSTRING(B1_USERLGI, 01, 1) +

SUBSTRING(B1_USERLGI, 18, 1) +

SUBSTRING(B1_USERLGI, 05, 1) +

SUBSTRING(B1_USERLGI, 09, 1) +

SUBSTRING(B1_USERLGI, 13, 1) +

SUBSTRING(B1_USERLGI, 17, 1) +

SUBSTRING(B1_USERLGI, 04, 1) +

SUBSTRING(B1_USERLGI, 08, 1) AS USER_INC,

CONVERT(VARCHAR(10),CAST(DATEADD(DAY,CONVERT(INT,CONCAT(ASCII(SUBSTRING(B1_USERLGI,12,1)) - 50, ASCII(SUBSTRING(B1_USERLGI,16,1)) - 50)),'1996-01-01') AS DATETIME),103) AS DATA_INC,

SUBSTRING(B1_USERLGA, 03, 1) +

SUBSTRING(B1_USERLGA, 07, 1) +

SUBSTRING(B1_USERLGA, 11, 1) +

SUBSTRING(B1_USERLGA, 15, 1) +

SUBSTRING(B1_USERLGA, 19, 1) +

SUBSTRING(B1_USERLGA, 02, 1) +

SUBSTRING(B1_USERLGA, 06, 1) +

SUBSTRING(B1_USERLGA, 10, 1) +

SUBSTRING(B1_USERLGA, 14, 1) +

SUBSTRING(B1_USERLGA, 01, 1) +

SUBSTRING(B1_USERLGA, 18, 1) +

SUBSTRING(B1_USERLGA, 05, 1) +

SUBSTRING(B1_USERLGA, 09, 1) +

SUBSTRING(B1_USERLGA, 13, 1) +

SUBSTRING(B1_USERLGA, 17, 1) +

SUBSTRING(B1_USERLGA, 04, 1) +

SUBSTRING(B1_USERLGA, 08, 1) AS USER_ALT,

CASE WHEN SUBSTRING(B1_USERLGA, 03, 1) != ' ' THEN

CONVERT(VARCHAR,DATEADD(DAY,((ASCII(SUBSTRING(B1_USERLGA,12,1)) - 50) * 100 + (ASCII(SUBSTRING(B1_USERLGA,16,1)) - 50)),'19960101'),112)

ELSE ''

END AS DATA_ALT

FROM

SB1010 SB1

WHERE

B1_USERLGI != ' '

*/

Abaixo uma query, para quem tem o dicionário no banco, onde é possível fazer o relacionamento com a tabela SYS_USR:

SELECT

B1_COD,

B1_DESC,

B1_USERLGI,

B1_USERLGA,

USR_I.USR_ID AS USRINC_COD,

USR_I.USR_NOME AS USRINC_NOM,

CASE WHEN SUBSTRING(B1_USERLGI, 03, 1) != ' 'AND B1_USERLGI != ''THEN

CONVERT(VARCHAR,DATEADD(DAY,CONVERT(INT,CONCAT(ASCII(SUBSTRING(B1_USERLGI,12,1)) - 50, ASCII(SUBSTRING(B1_USERLGI,16,1)) - 50) + IIF(SUBSTRING(B1_USERLGI,08,1) = '<',10000,0)),'1996-01-01'), 103)

ELSE

''

END AS DATA_INCL,

USR_A.USR_ID AS USRALT_COD,

USR_A.USR_NOME AS USRALT_NOM,

CASE WHEN SUBSTRING(B1_USERLGA, 03, 1) != ' 'AND B1_USERLGA != ''THEN

CONVERT(VARCHAR,DATEADD(DAY,CONVERT(INT,CONCAT(ASCII(SUBSTRING(B1_USERLGA,12,1)) - 50, ASCII(SUBSTRING(B1_USERLGA,16,1)) - 50) + IIF(SUBSTRING(B1_USERLGA,08,1) = '<',10000,0)),'1996-01-01'), 103)

ELSE ''

END AS DATA_ALT

FROM

SB1990 SB1

LEFT JOIN SYS_USR USR_I ON (

USR_I.USR_ID = LEFT(

SUBSTRING(B1_USERLGI, 11, 1) +

SUBSTRING(B1_USERLGI, 15, 1) +

SUBSTRING(B1_USERLGI, 19, 1) +

SUBSTRING(B1_USERLGI, 02, 1) +

SUBSTRING(B1_USERLGI, 06, 1) +

SUBSTRING(B1_USERLGI, 10, 1) +

SUBSTRING(B1_USERLGI, 14, 1) +

SUBSTRING(B1_USERLGI, 01, 1) +

SUBSTRING(B1_USERLGI, 18, 1) +

SUBSTRING(B1_USERLGI, 05, 1) +

SUBSTRING(B1_USERLGI, 09, 1) +

SUBSTRING(B1_USERLGI, 13, 1) +

SUBSTRING(B1_USERLGI, 17, 1) +

SUBSTRING(B1_USERLGI, 04, 1) +

SUBSTRING(B1_USERLGI, 08, 1)

, 6)

)

LEFT JOIN SYS_USR USR_A ON (

USR_A.USR_ID = LEFT(

SUBSTRING(B1_USERLGA, 11, 1) +

SUBSTRING(B1_USERLGA, 15, 1) +

SUBSTRING(B1_USERLGA, 19, 1) +

SUBSTRING(B1_USERLGA, 02, 1) +

SUBSTRING(B1_USERLGA, 06, 1) +

SUBSTRING(B1_USERLGA, 10, 1) +

SUBSTRING(B1_USERLGA, 14, 1) +

SUBSTRING(B1_USERLGA, 01, 1) +

SUBSTRING(B1_USERLGA, 18, 1) +

SUBSTRING(B1_USERLGA, 05, 1) +

SUBSTRING(B1_USERLGA, 09, 1) +

SUBSTRING(B1_USERLGA, 13, 1) +

SUBSTRING(B1_USERLGA, 17, 1) +

SUBSTRING(B1_USERLGA, 04, 1) +

SUBSTRING(B1_USERLGA, 08, 1)

, 6)

)

WHERE

B1_FILIAL = ' '

AND B1_MSBLQL != '1'

AND SB1.D_E_L_E_T_ = ' '

/* Query original:

SELECT

B1_COD,

B1_DESC,

B1_TIPO,

USR_I.USR_ID AS USRINC_COD,

USR_I.USR_NOME AS USRINC_NOM,

CONVERT(VARCHAR,DATEADD(DAY,CONVERT(INT,CONCAT(ASCII(SUBSTRING(B1_USERLGI,12,1)) - 50, ASCII(SUBSTRING(B1_USERLGI,16,1)) - 50)),'1996-01-01'), 112) AS DATA_INC,

USR_A.USR_ID AS USRALT_COD,

USR_A.USR_NOME AS USRALT_NOM,

CASE WHEN SUBSTRING(B1_USERLGA, 03, 1) != ' ' THEN

CONVERT(VARCHAR,DATEADD(DAY,((ASCII(SUBSTRING(B1_USERLGA,12,1)) - 50) * 100 + (ASCII(SUBSTRING(B1_USERLGA,16,1)) - 50)),'19960101'),112)

ELSE ''

END AS DATA_ALT

FROM

SB1990 SB1

LEFT JOIN SYS_USR USR_I ON (

USR_I.USR_ID = (

SUBSTRING(B1_USERLGI, 11, 1) +

SUBSTRING(B1_USERLGI, 15, 1) +

SUBSTRING(B1_USERLGI, 19, 1) +

SUBSTRING(B1_USERLGI, 02, 1) +

SUBSTRING(B1_USERLGI, 06, 1) +

SUBSTRING(B1_USERLGI, 10, 1) +

SUBSTRING(B1_USERLGI, 14, 1) +

SUBSTRING(B1_USERLGI, 01, 1) +

SUBSTRING(B1_USERLGI, 18, 1) +

SUBSTRING(B1_USERLGI, 05, 1) +

SUBSTRING(B1_USERLGI, 09, 1) +

SUBSTRING(B1_USERLGI, 13, 1) +

SUBSTRING(B1_USERLGI, 17, 1) +

SUBSTRING(B1_USERLGI, 04, 1) +

SUBSTRING(B1_USERLGI, 08, 1)

)

LEFT JOIN SYS_USR USR_A ON (

USR_A.USR_ID = (

SUBSTRING(B1_USERLGA, 11, 1) +

SUBSTRING(B1_USERLGA, 15, 1) +

SUBSTRING(B1_USERLGA, 19, 1) +

SUBSTRING(B1_USERLGA, 02, 1) +

SUBSTRING(B1_USERLGA, 06, 1) +

SUBSTRING(B1_USERLGA, 10, 1) +

SUBSTRING(B1_USERLGA, 14, 1) +

SUBSTRING(B1_USERLGA, 01, 1) +

SUBSTRING(B1_USERLGA, 18, 1) +

SUBSTRING(B1_USERLGA, 05, 1) +

SUBSTRING(B1_USERLGA, 09, 1) +

SUBSTRING(B1_USERLGA, 13, 1) +

SUBSTRING(B1_USERLGA, 17, 1) +

SUBSTRING(B1_USERLGA, 04, 1) +

SUBSTRING(B1_USERLGA, 08, 1)

)

WHERE

B1_FILIAL = ''

AND B1_MSBLQL != '1'

AND SB1.D_E_L_E_T_ = ' '

*/

https://terminaldeinformacao.com/2019/09/12/como-ver-o-conteudo-dos-campos-lgi-e-lga-no-sql-server/

Crédito Total ao Terminal de Informação.

O post Como ver o conteúdo dos campos LGI e LGA no SQL Server apareceu primeiro em PHFSistemas.

Parâmetros para Envio de E-mail Protheus

phfsistemas — Mon, 26 Jan 2026 12:18:58 +0000

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.

Como substituir o ConOut pelo FWLogMsg

phfsistemas — Mon, 24 Nov 2025 13:13:49 +0000

Hoje vou mostrar uma função desenvolvida, para substituir o clássico ConOut para passar pelas validações do Code Analysis.

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:

https://centraldeatendimento.totvs.com/hc/pt-br/articles/360041301114-MP-ADVPL-Como-Ativar-a-fun%C3%A7%C3%A3o-FWLogMsg-

@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.

Begin Transaction … End Transaction

phfsistemas — Mon, 20 Oct 2025 21:05:28 +0000

Exemplo de utilização de controle de transação no AdvPL, podendo utilizar “rollback” nas alterações feitas.

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.

Restaurando a memória com FWGetArea, FWRestArea, GetArea e RestArea

phfsistemas — Wed, 08 Oct 2025 14:00:30 +0000

//Bibliotecas

#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.

Permitir clientes com o mesmo CNPJ no Protheus

phfsistemas — Wed, 08 Oct 2025 12:53:49 +0000

Para permitir clientes com o mesmo CNPJ no Protheus, acesse o ambiente do módulo de cadastro de clientes (SIGAFAT), navegue até o menu Ambiente > Parâmetros > Parâmetros e configure os parâmetros MV_VALCNPJ e MV_VALCPF para “1” (permitir, mas notificar) em vez de “2” (impedir). Salve as alterações e saia e entre no sistema para validá-las.

Passo a passo para habilitar a permissão:

Acesse o ambiente do Protheus.
No menu, vá em Ambiente > Parâmetros > Parâmetros.
Localize o parâmetro MV_VALCNPJ.
Altere o valor deste parâmetro para “1”.
Repita os passos 3 e 4 para o parâmetro MV_VALCPF, se necessário.
Clique em “Atualizar” ou “” para salvar a configuração.
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.

FIS – IRRF – aba duplicata ficando zerada após a gravação do documento quando o valor do Impostos é inferior a 10,00

phfsistemas — Tue, 07 Oct 2025 17:33:23 +0000

Cliente destaca que ao lançar uma nota fiscal de entrada com IRRF abaixo de dez reais, o sistema calcula o impostos mas não mantém o mesmo na aba duplicatas, assim que a nota é salva.

Ambiente

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.

FIS – Como calcular o IRRF para notas de entrada e saída?

phfsistemas — Tue, 07 Oct 2025 17:31:59 +0000

Como calcular o IRRF via retenção nas notas fiscais de entrada ou saída?

Solução:

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.

MP – FIS – Retenção de PIS, COFINS e CSLL

phfsistemas — Tue, 07 Oct 2025 16:44:50 +0000

Como realizar a retenção de PIS COFINS CSLL?

Ambiente

Protheus – Livros Fiscais – A partir da versão 11.80

Solução

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.