Provedor CONAM (alterações e melhorias)

[André Medeiros - KRK]

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

[Italo Giurizzato Junior]

Boa noite André,

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

[Italo Giurizzato Junior]

Boa noite André,

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

[André Medeiros - KRK]

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

[Italo Giurizzato Junior]

Bom dia André,

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

[julianamver]

Boa tarde. Estou com uma dúvida sobre provedor CONAM para Pirassununga. Não estou encontrando os arquivos .xsd nos Schemas. Deveria ter uma pasta CONAM nos Schemas da NFSe ou estou confundindo as coisas? Atualizei o ACBr hoje para o Delphi 10. Obrigada!

[Italo Giurizzato Junior]

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
 

[André Medeiros - KRK]

Olá @julianamver

A principio o CONAM não implementa a pré-validação dos xmls por isso não há a necessidade de te-los em seu diretório.

[julianamver]

Bom dia! Obrigada Italo e Keruak pelo retorno!

Então neste caso só precisarei do arquivo CONAM.ini? Quando tento enviar uma nota ocorre erro interno 0, erro http 404.

Obrigada!

[André Medeiros - KRK]

Olá @julianamver

Verifica no seu arquivo Cidades.ini se existe um bloco para Pirassununga. 

[3539301]
Nome=Pirassununga
UF=SP
Provedor=CONAM
NomeURL_H=sp.pirassununga
NomeURL_P=sp.pirassununga

[]s
 

[julianamver]

Olá Keruak, bom dia. O Cidades.ini está correto com Pirassununga, mas parece que o webservice agora é o giap e não mais o etransparencia. Eu alterei o arquivo Conam.ini p/ giap, mas ainda não deu certo. Obrigada pelo retorno e atenção.

[julianamver]

Gente, boa tarde!

Minha NFSe para Pirassununga (Conam) não funciona de jeito nenhum, dando erro HTTP 500.

Se alguém estiver usando Conam para Pirassununga e puder me ajudar...

Para as demais cidades, funciona normalmente.

Obrigada!

[André Medeiros - KRK]

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

[julianamver]

Oi André,

Neste caso teria que alterar no componente? Ou no Conam.ini?

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

Obrigada!

 

[André Medeiros - KRK]

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

 

[julianamver]

Entendi Andre.

Muito obrigada pelos esclarecimentos!

[Italo Giurizzato Junior]

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?

[André Medeiros - KRK]

Olá Italo,

O layout é próprio do provedor, e infelizmente, como a maioria dos provedores, a documentação é muito superficial.

[]s

[Italo Giurizzato Junior]

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.

[julianamver]

Boa tarde Ítalo,

Espero que a NFS-e Padrão Nacional saia até o fim do ano...

Quanto ao GIAP, exite alguma previsão para esse provedor no Acbr?

Obrigada!

[Italo Giurizzato Junior]

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.

[julianamver]

Entendi... Obrigada Italo!

 

[André Medeiros - KRK]

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

[Italo Giurizzato Junior]

Boa noite André,

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

[André Medeiros - KRK]

Bom dia Italo

Acabei enviando do meu SVN, segue o arquivo correto

Abraços,

 

pnfsNFSeR.pas