Ir para conteúdo
  • Cadastre-se

dev botao

Provedor CONAM (alterações e melhorias)


  • Este tópico foi criado há 2381 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Olá amigos !

Fiz algumas correções e melhorias no provedor conam. Lembrando que os valores decimais são separados por virgula no XML. 

Para isso fiz as seguintes alterações:

1) Mudei a formatação dos valores que estavam como tcStr no gerador com FormatFloat para tcDe2

Gerador.wCampoNFSe(tcDe2, '', 'AlqIssSN_IP', 01, 06, 0, NFSe.ValoresNfse.Aliquota, '');

2) Adicionei a linha abaixo no Create do objeto para informar ao gerador que queremos usar ', ' no lugar de '.'

Gerador.Opcoes.DecimalChar := ',';

Segue anexo o arquivo alterado

Abraços,

pnfsNFSeW_CONAM.pas

  • Curtir 1
logo-keruak.png

 André Medeiros

 Estratégia & Negócios
 +55 11 3010 0000

url-keruak.pngfacebook-keruak.pngespaco.pnglinkedin-keruak.png

Link para o comentário
Compartilhar em outros sites

  • Consultores

Boa noite André,

Muito obrigado pela colaboração, ainda hoje estarei enviando para o repositório.

  • Curtir 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Consultores

Boa noite André,

Só para confirmar, enviei para o repositório as suas alterações.

  • Curtir 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

Olá Italo, tudo bem ?

Atualizei meu fonte e vi as alterações, obrigado.

Precisei fazer a mesma alteração no pnfsNFSeG.pas conforme o bloco abaixo

    proCONAM: begin
                Gerador.Opcoes.DecimalChar := ',';
                Gerador.Prefixo := '';
                Gerador.wGrupoNFSe('Sdt_processarpsin xmlns="NFe"');
                Gerador.wGrupoNFSe('Login');
                Gerador.wGrupoNFSe('CodigoUsuario>' + UserWeb + '</CodigoUsuario');
                Gerador.wGrupoNFSe('CodigoContribuinte>' + SenhaWeb + '</CodigoContribuinte');
                Gerador.wGrupoNFSe('/Login');

                // Identificaçao do RPS
                Gerador.wGrupoNFSe('SDTRPS');
                Gerador.wCampoNFSe(tcStr, '', 'Ano'    , 01, 04, 0, FormatDateTime('yyyy', DataInicial) , '');
                Gerador.wCampoNFSe(tcStr, '', 'Mes'    , 01, 02, 0, FormatDateTime('mm', DataInicial) , '');
                Gerador.wCampoNFSe(tcStr, '', 'CPFCNPJ', 01, 14, 0, CNPJ , '');
                Gerador.wCampoNFSe(tcStr, '', 'DTIni'  , 01, 10, 0, FormatDateTime('dd/mm/yyyy', DataInicial) , '');
                Gerador.wCampoNFSe(tcStr, '', 'DTFin'  , 01, 10, 0, FormatDateTime('dd/mm/yyyy', DataFinal) , '');

                if OptanteSimples = snSim then
                begin
                  Gerador.wCampoNFSe(tcInt, '', 'TipoTrib'   , 01, 01, 0, 4 , '');
                  // Data de adesao ao simples nacional
                  Gerador.wCampoNFSe(tcStr, '', 'DtAdeSN'    , 01, 10, 0, FormatDateTime('dd/mm/yyyy', DataOptanteSimples) , '');
                  Gerador.wCampoNFSe(tcDe2, '', 'AlqIssSN_IP', 01, 06, 0, AliquotaIss, '');
                end
                else begin
                  case ExigibilidadeISS of
                    exiExigivel:                       Gerador.wCampoNFSe(tcInt, '', 'TipoTrib', 001, 1, 0, 1 , '');
                    exiNaoIncidencia,
                    exiIsencao,
                    exiImunidade:                      Gerador.wCampoNFSe(tcInt, '', 'TipoTrib', 001, 1, 0, 2 , '');
                    exiSuspensaDecisaoJudicial,
                    exiSuspensaProcessoAdministrativo: Gerador.wCampoNFSe(tcInt, '', 'TipoTrib', 001, 1, 0, 3 , '');
                    exiExportacao:                     Gerador.wCampoNFSe(tcInt, '', 'TipoTrib', 001, 1, 0, 5 , '');
                  end;
                  // Data de adesao ao simples nacional
                  Gerador.wCampoNFSe(tcStr, '', 'DtAdeSN'    , 01, 10, 0, '', '');
                  Gerador.wCampoNFSe(tcStr, '', 'AlqIssSN_IP', 01, 06, 0, '' , '');
                end;

                if RegimeEspecialTributacao = retMicroempresarioIndividual then
                  Gerador.wCampoNFSe(tcStr, '', 'AlqIssSN_IP', 001, 6, 0, '' , '');

                Gerador.wCampoNFSe(tcStr, '', 'Versao', 001, 4, 0, '2.00' , '');

                Gerador.wGrupoNFSe('Reg20');
                Gerador.ArquivoFormatoXML := Gerador.ArquivoFormatoXML + Notas;
                Gerador.wGrupoNFSe('/Reg20');

                // Inicio do rodape registro 90
                Gerador.wGrupoNFSe('Reg90');
                Gerador.wCampoNFSe(tcStr, '', 'QtdRegNormal'  , 01, 05, 1, QtdeNotas, '');
                Gerador.wCampoNFSe(tcDe2, '', 'ValorNFS'      , 01, 16, 2, ValorTotalServicos, '');
                Gerador.wCampoNFSe(tcDe2, '', 'ValorISS'      , 01, 16, 2, ValorIss, '');
                Gerador.wCampoNFSe(tcDe2, '', 'ValorDed'      , 01, 16, 2, ValorTotalDeducoes, '');
                Gerador.wCampoNFSe(tcDe2, '', 'ValorIssRetTom', 01, 16, 2, ValorIssRetido, '');
                Gerador.wCampoNFSe(tcDe2, '', 'ValorTributos' , 01, 16, 2, ValorTotalTributos, '');
                Gerador.wCampoNFSe(tcStr, '', 'QtdReg30'      , 01, 05, 1, QtdTributos, '');
                Gerador.wGrupoNFSe('/Reg90');
                // Fim do rodape registro 90

                Gerador.wGrupoNFSe('/SDTRPS');
                Gerador.wGrupoNFSe('/Sdt_processarpsin');
              end;

Estou enviando o arquivo alterado.

No caso do arquivo do CONAM, por algum motivo que eu não consegui identificar, as vezes a configuração do DecimalChar no Crete não funcionou muitobem. Fiz vários testes deixando o  Gerador.Opcoes.DecimalChar := ','; no método GerarXML_CONAM; e o comportamento foi bem melhor. Vou enviar o pnfsNFSeW_CONAM.pas também com esta pequena alteração.

Obrigado mais uma vez

[]s

pnfsNFSeG.pas

pnfsNFSeW_CONAM.pas

logo-keruak.png

 André Medeiros

 Estratégia & Negócios
 +55 11 3010 0000

url-keruak.pngfacebook-keruak.pngespaco.pnglinkedin-keruak.png

Link para o comentário
Compartilhar em outros sites

  • Consultores

Bom dia André,

Muito obrigado pela colaboração, já enviei para o repositório.

  • Curtir 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • 1 mês depois ...
  • Consultores

Boa noite Juliana,

Deveria sim existir uma pasta chamada Conam com os arquivos XSD do respectivo provedor.

Mas até o momento não conseguimos esses arquivos.

É por isso que no arquivo INI do provedor temos o seguinte:

; 0 = False / 1 = True (Se True então valida)
[Schemas]
Validar=0
 

  • Curtir 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

Olá 

Acredito que seja um problema no servidor da prefeitura

Veja o link abaixo

https://nfe.etransparencia.com.br/sp.pirassununga/nfe/principal.aspx

Compare com este

https://nfe.etransparencia.com.br/sp.poa/nfe/principal.aspx

E aparentemente eles fizeram um alteração no serviço

http://pirassununga.sp.gov.br/nfe-nota-fiscal/

[]s

logo-keruak.png

 André Medeiros

 Estratégia & Negócios
 +55 11 3010 0000

url-keruak.pngfacebook-keruak.pngespaco.pnglinkedin-keruak.png

Link para o comentário
Compartilhar em outros sites

Olá Juliana,

O site da prefeitura esta confuso, alguns links apontam para o provedor CONAM como este os que eu te mandei acima, alguns links apontam para um outro provedor, aparentemente GIAP, como este que você postou.

Na realidade não haveria mudanças a fazer nem no arquivo ini nem no componente se o provedor for o CONAM.

Dando uma boa pesquisada no site me parece que o novo provedor é o GIAP mesmo. (O ideal é conformar com a prefeitura)

https://giap.com.br/apex/apoio/f?p=312:1:

Se for este o novo provedor, será necessário implementa-lo no ACBr. Porém seria interessante aguardar o parecer de outros membros como o do @Italo Jurisato Junior que mantem esta parte do ACBr.

O link para o manual é o 

https://pirassununga.giap.com.br/apex/pirassu/f?p=867:94

[]s

 

logo-keruak.png

 André Medeiros

 Estratégia & Negócios
 +55 11 3010 0000

url-keruak.pngfacebook-keruak.pngespaco.pnglinkedin-keruak.png

Link para o comentário
Compartilhar em outros sites

  • Consultores

Boa noite a todos,

André, e esse novo provedor Giap segue qual versão do layout da ABRASF ou tem o seu próprio layout?

  • Curtir 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Consultores

Boa tarde André,

Espero em dezembro soltar rojões, não ser final de ano, Natal, Ano Novo e sim pela NFS-e Padrão Nacional que estão prometendo para o final de ano.

Ai teremos um layout e web service único para todas as cidades brasileiras.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...
  • Consultores

Boa tarde Juliana,

Em razão do Padrão Nacional da NFS-e eu não estou implementando provedores que não seguem o layout da ABRASF.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...

Olá @Italo Jurisato Junior tudo bem ?

No arquivo  pnfsNFSeR alterei a linha 3304 conforme abaixo para ler o arquivo retorno do CONAM de forma correta

Antigo

Servico.CodigoTributacaoMunicipio := Leitor.rCampo(tcStr, 'CodSrv');


Novo

Servico.ItemListaServico := Leitor.rCampo(tcStr, 'CodSrv');

Estou enviando a correção em anexo.

Abraços,

pnfsNFSeR.pas

logo-keruak.png

 André Medeiros

 Estratégia & Negócios
 +55 11 3010 0000

url-keruak.pngfacebook-keruak.pngespaco.pnglinkedin-keruak.png

Link para o comentário
Compartilhar em outros sites

  • Consultores

Boa noite André,

O arquivo em anexo não consta a alteração.

  • Curtir 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2381 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...