Augusto Fontana
-
Total de ítens
171 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Augusto Fontana
-
-
Boa tarde Juliomar,
O docs foi disponibilizado pela Homologadora, acredito que seja da SEFAZ SC.
Segundo me informaram esse documento será liberado no futuro.
Atualmente a integração com o ambiente de teste já está funcionando conforme descrito no documento.
Att
-
-
Bom dia
Fiz novas alterações nos arquivos, para ficar mais de acordo com os arquivos atuais,
além de algumas correções no envio do arquivo de estoque.
Att
-
Vou homologar na TecPar, mas me informei também na Unisul, e eles estão cobrando a mesma coisa.
Att
-
Boa tarde,
Farei a homologação em Janeiro/2017 e as homologadoras estão cobrando o funcionamento completo desse requisito,
ou seja, o PAF-ECF deve ser capaz de transmitir os dados para o Fisco.
A homologadora me passou esse link contendo as novas instruções para geração do XML, ele ainda não é oficial,
mas segundo me informaram será liberado em breve.
Dessa forma, precisei fazer algumas alterações nos fontes, para adequar o XML e os novos métodos do WebService de SC.
Com essas alterações que implementei estou conseguindo transmitir e consultar, os dados corretamente.
Segue abaixo descrição das alterações realizadas :
- Agora no novo WebService, existem métodos distintos para envio, sendo uma para Redução Z e outro para o Estoque, por isso criei as propriedades 'EnviarReducaoZ' e 'EnviarEstoque' na classe TWebServices
- Criei a unit pcnRetEnvBlocoX.pas para carregar os dados do XML de resposta
- Criação de algumas propriedades, como CNPJ, EstadoProcessamentoCodigo, NumeroCredenciamento..., necessários no XML e úteis para facilitar a obtenção de alguma informações
Att
Lembrando que agora deve ser informado o arquivo zipado no formato Base64 no XML , segue trecho que utilizei aqui, caso alguém tenha interesse
uses Soap.EncdDecd ... vStream := TMemoryStream.Create; try // Carregar o stream do arquivo Zip vStream.LoadFromFile(vNomeArqZIP); // Codificar o stream para Base64 WebServices.EnviarReducaoZ.XML := EncodeBase64(vStream.Memory, vStream.Size); finally vStream.Free; end;
-
Obrigado Ítalo.
-
Boa tarde
A alteração implementada nesse tópico foi comentada na revisão 12029, gerando novamente erro na emissão de NFS-e para destinatários estrangeiros, nesse provedor.
Segue em anexo arquivo atualizado com a alteração necessária. Removi o código do comentário e reposicionei a condição dentro do if, para que mesmo quando for estrangeiro ("EX"), seja adicionada a tag "IdentificacaoTomador".
-
Obrigado Ítalo
-
Boa tarde,
Ao tentar emitir uma NFS-e para o provedor SimplISS estava obtendo o erro apresentado no xml em anexo.
Analisando o caso percebi que esse problema ocorre porque a senha (Configuracoes.Geral.SenhaWeb) do cliente tem o caractere especial &.
Avaliando os fontes verifiquei que o parse da senha não era realizado, sendo informando no XML a senha com o caractere & em vez de &, o que invalidava o XML.
Fiz alteração para informar a senha no XML com o parse. Considerei apenas o provedor SimplISS, mas acredito que seria útil para os demais provedores que utilizem Usuário/ Senha.
-
Bom dia Juliomar,
sincronizei os fontes e realizei os testes, está funcionando corretamente.
Obrigado.
-
Boa tarde
Seguem algumas considerações que encontrei relacionadas a impressão do DANFE para EPEC:
1) Está definido o seguinte no item 03.1 da Nota Técnica 2014.001 - v1.10 : "Impressão do DANFE da NF-e que consta do EPEC, em papel comum, constando no corpo a expressão “DANFE impresso em contingência - DPEC regularmente recebida pela Receita Federal do Brasil”"
Atualmente está mostrando o texto: "Danfe em contingência - Impresso em decorrência de problemas técnicos"
2) Pelo que verifiquei na NT, aparentemente o texto acima deve aparecer somente enquanto a NF-e não estiver autorizada, após autorização, não há mais necessidade em mostrar essa mensagem.
3) Percebi também que ao imprimir o DANFE um pedaço da última letra da mensagem estava ficando cortada (Imagem em anexo), por isso achei melhor usar alinhamento no topo para o label em questão.
Seguem arquivos com as alterações
-
Boa tarde,
não sei como fica para as demais cidades, mas para Guarapuava/PR é necessário usar o https,
e a propriedade UseCertificado precisa está habilitada.
Segue arquivo INI com as configurações
-
Boa tarde Ítalo,
eu reinstalei o certificado e as cadeias, agora está aparecendo outro erro, segue arquivo em anexo.
-
Bom dia Ítalo,
sim é para cidade de Guarapuava. Com a última alteração liberada não ocorre mais o erro: "Not Found (404)..." .
Agora está aparecendo a mensagem: "CNPJ do prestado deve ser igual ao CNPJ existente no certificado digital",
o certificado que estou usando é o correto, acredito que esteja apresentada essa mensagem pois a
propriedade UseCertificado está 0, e para acessar o link é necessário a autenticação com o certificado.
Eu testei habilitando a propriedade UseCertificado , mas nessa situação aparece a mensagem de erro:
"Erro ao ajusta INTERNET_OPTION_CLIENT_CERT_CONTEXT: 12046"
-
Boa tarde Ítalo,
testei hoje com os fontes atualizados e está aparecendo a seguinte mensagem:
"É necessário um certificado para concluir a autenticação do cliente"
Eu habilitei a propriedade "UseCertificado" e não apareceu mais a mensagem acima, mas agora aparece:
"Not Found (404)..."
-
Sincronizou o arquivo
Obrigado Ítalo.
-
1
-
-
Bom dia Ítalo,
eu sincronizei agora os fontes e não baixou a alteração no arquivo pnfsConversao.pas,
poderia confirmar se o arquivo foi liberado ?
-
Boa tarde,
para a cidade de Caçador, é necessário usar a natureza de operação 14, quando o ISS for retido pelo tomador e o emitente for optante do simples nacional. Segue imagem em anexo com as naturezas disponíveis na cidade.
Acrescentei o código 14 no tipo TnfseNaturezaOperacao, segue arquivo em anexo.
-
Bom dia Italo,
Esse provedor não segue o padrão ABRASF.
Manuais em anexo, caso alguém tenha interesse.
Att
-
Bom dia ALA,
Qual é a prefeitura, Itabira/MG?
Pelo que vi esse município está trocando de provedor, passando de Ginfes para Pronim, talvez o serviço não esteja rodando 100%.
Pela mensagem de erro parece que a prefeitura não está aceitando a integração na versão 2.02 do Pronim, já tentou usar a versão antiga 1.0?
-
Bom dia ALA,
vc deve remover a validação dos XMLs conforme comentei anteriormente,
se utilizar o INI que eu anexei, no qual removi a validação, a emissão funcionará corretamente.
Att
-
Boa tarde ALA,
envia o INI que vc está usando para avaliarmos.
Qual erro que está aparecendo ?
-
Boa tarde Ítalo,
seguem XMLs, o provedor aceita apenas quando não tem o NameSpece no xml.
Por isso removi a validação dos XMLs do INI, pois se tiver ativado, o NameSpace é acrescentado ao XML.
Att
-
Boa tarde Italo,
se deixar a validação ativada no INI o NameSpace: http://www.abrasf.org.br/nfse.xsd é adicionado ao XML,
ocorrendo o erro que comentei no post anterior, por isso removi a validação.
A validação poderá ser mantida, desde que não seja adicionado o NameSpace no XML
Erro envio Bloco X reduções Z
em ACBrSintegra/ACBrPAF
Postado
Boa tarde Daniel,
Os fontes a seguir foram implementados no Delphi XE6, não sei se vai funcionar em versões anteriores.
Precisa declarar a unit System.Zip
Segue:
interface /// <summary>Comprimir um arquivo em Zip</summary> /// <param name="pFileToZip">Caminho do arquivo que será comprimido</param> /// <returns>Retorna o caminho do arquivo Zip</returns> /// <remarks>O arquivo Zip ficará na mesma pasta do arquivo de origem</remarks> class function ZipFile(pFileToZip: String): String; implementation uses System.Zip class function TFuncao.ZipFile(pFileToZip: String): String; var vZip: TZipFile; begin vZip := TZipFile.Create; try // Definir o nome do arquivo Zip Result := ChangeFileExt(pFileToZip, '.zip'); // Preparar para geração do arquivo vZip.Open(Result, zmWrite); // Incluir arquivo que será comprimido vZip.Add(pFileToZip); // Comprimir o arquivo vZip.Close; finally vZip.Free; end; end;Utilização do método acima
// Obter o nome do arquivo XML vNomeArqXML := 'C:\teste.xml'; // Salvar o arquivo XML ACBrBlocoX.ReducoesZ.SaveToFile(vNomeArqXML); // Comprimir o arquivo XML em ZIP vNomeArqZIP := TFuncao.ZipFile(vNomeArqXML); try vStream := TMemoryStream.Create; try // Carregar o stream do arquivo Zip vStream.LoadFromFile(vNomeArqZIP); // Codificar o stream para Base64 WebServices.EnviarReducaoZ.XML := EncodeBase64(vStream.Memory, vStream.Size); finally vStream.Free; end; finally DeleteFile(PChar(vNomeArqZIP)); end;Att