Rodrigo - Digibyte

Alterei o exemplo do eSocial baseando inteiramente nos fontes oficiais e aplicando as alterações efetuadas pelo @Sandro Felipe Adad . Testei usando o certificado A1 e funcionou, com o certificado A3 não. Espero que sirva como ponto de partida para atualizar o exemplo do Acbr, se for aceito posso (podemos) melhorar ele, caso contrário o negócio é esperar que alguém poste algum outro exemplo. Delphi.rar

Estou tentando fazer o exemplo do esocial enviar os arquivos, está dando o erro abaixo no método enviar, o que poderia ser?

Então, muito provavelmente é porque eu estou testando com um certificado comprado por internet, para assinar executáveis (comodo). Hoje a tarde vou pegar um A1 "nacional" e refazer o teste.

Eu olhei no projeto de exemplo e por enquanto só faz a assinatura, é isso mesmo ou estou enganado?

Pra mim dá erro 403 na homologação. Esse erro é acesso negado ...

Eu uso +- assim, acho que dá pra entender for i := 0 to ACBrSpedImpEF.ACBrSpedFiscal.Bloco_C.RegistroC001.RegistroC100.Count -1 do begin with ACBrSpedImpEF.ACBrSpedFiscal.Bloco_C.RegistroC001.RegistroC100.Items do begin for j := 0 to RegistroC190.Count -1 do begin with RegistroC190.Items[j] do begin seu código := VL_BC_ICMS; etc ... end; end; end

Pessoal, estou tentando rodar o exemplo do eSocial fornecido pelo Leivio Fontelene, porém não estou conseguindo. O que eu fiz: Reinstalei ontem o ACBr do zero; Instalei o ACBr fornecido pelo Leivio; Verifiquei que vários usuários postaram atualizações das units, utilizei elas Agora realmente estou perdido, acontecem os erros em anexo e não tenho certeza de quais são as units que estão funcionando pois em vários tópicos tem correções postadas. Toda essa parte de assinatura para mim é complicado e sem conseguir fazer isso não consigo testar e contribuir para a parte que tenho mais facilidade, relacionada aos eventos da folha. Agradeço pela ajuda ou se alguém puder postar os últimos fontes/exemplo funcionais.

Realmente tem dois Delphi, segui as dicas daqui https://isaquepinheirobr.blogspot.com.br/2011/09/varias-versoes-do-delphi-instaladas-sem.html e instalei o acbr para uma versão e depois para outra, deu certo.

Boa tarde, apaguei minha instalação do ACBr para refazer por questões relativas ao eSocial. Agora ao carregar o Delphi aparecem os erros abaixo, o que poderia ser? Ele vai dando erro em todas a bpl, não carrega nada.

Tem alguma ideia de quando deve estar pronto? Só para me programar se continuo a parte que estou fazendo e espero mais um pouco ou testo com os fontes "não oficiais" disponibilizados

Bom dia, segue arquivo atualizado com várias cidades Cidades.ini

Fiz uma procura no cidades.ini e não encontrei nenhuma cidade da lista abaixo, realmente parece não estar implementado. De qualquer forma segue um guia do provedor com algumas informações e a lista de cidades. Quanto a NFSe nacional, conheçendo o Brasil, quem sabe em uns 10 anos todas as prefeituras adotem Em outro post estou enviando o cidades.ini atualizado com cidades de outros provedores. Cidades provedor Quality: CORGUINHO cÓD 5003108 UF: MS FIGUEIRÃO cÓD 5003900 UF: MS LADÁRIO cÓD 5005202 UF: MS RIO NEGRO cÓD 5007307 UF: MS ROCHEDO cÓD 5007505 UF: MS TERENOS cÓD 5008008 UF: MS BANDEIRANTES cÓD 5001508 UF: MS ANTONIO JOÃO cÓD 5000906 UF: MS NIOAQUE cÓD 5005806 UF: MS PARAÍSO DAS ÁGUAS cÓD ????? UF: MS ANGÉLICA cÓD 5000856 UF: MS CAMAPUÃ cÓD 5002605 UF: MS. Quality.pdf Arquivo XML de exemplo: http://notafiscal.qualitysistemas.com.br/Docs/manual/ExemploXML.xml Modelo de RPS: http://notafiscal.qualitysistemas.com.br/Docs/manual/ModeloRPS.pdf Manual do Web Service http://notafiscal.qualitysistemas.com.br/Docs/manual/ManualWebServ_v3.pdf

Alguém sabe alguma informação ou se o ACBR prevê o provedor Quality? Procurei no ACBR e não achei nada desse provedor. http://www.qualitysistemas.com.br/v2017/

Alguém tem o exemplo do código delphi de transmissão do xml do eSocial? Quero começar a testar melhor mas sem essa parte, que não sei muito bem como fazer, não consigo sair do lugar.

Estava atualizando meus fontes e pelo que entendi desde o dia 10/08/17 não tem alterações no eSocial. É essa a situação mesmo ou estou vendo a pasta errada no SVN?

Não tenho experiência com a parte de transmisão de arquivos do eSocial para a receita, que deve ser semelhante a NFe (que também não trabalho). Alguém poderia passar alguma dica, código ou roteiro? Atualmente, após carregar os registros, o que tenho no meu código é isso: ACBreSocial.SSL.SelecionarCertificado; ACBreSocial.Eventos.GerarXMLs; ACBreSocial.Eventos.SaveToFiles; ACBreSocial.Eventos.Clear; Mas... como envio? como pego o retorno?

Seguem duas pequenas correções referente ao layout 2.4. ideTabRubr obrigatório xsd´s versão 2.4 Vi que já estão falando e atualizando pro layout 3 mas não achei nenhuma informação no site do eSocial, alguém tem o link? ACBreSocialGerador.pas eSocial_S1010.pas

Além da alteração acima, mais uma que implementa o registro C465. São alterações no ACBrImporta e no ACBrSped. ACBrEFDBloco_C.pas ACBrEFDBloco_C_Class.pas ACBrEFDBloco_C_Events.pas ACBrEFDBloco_C_Importar.pas ACBrSpedFiscal.pas

Segue uma pequena correção que valida as linhas do arquivo sped, ignorando quando não tem o "pipe". Alguns sistemas ERP geram uma linha com um comentário e isso causava erro. ACBrEFDImportar.pas

Segue correção da importação dos registros C500, C590 ACBrEFDBloco_C_Importar.pas

Obrigado, pelo retorno, o cliente está pressionando... esse XML com certeza foi baixado da prefeitura ou algum outro lugar (não foi gerado pelo ACBR). O que estou tentando fazer é importar a nota para dentro do meu sistema fiscal que já importa de várias outras prefeituras pelo ACBR. É muito pouco provável que o ACBr não importe NFSe de uma cidade como Campo Grande mas realmente não tenho tanta experiência para saber se esse é um XML correto, como é o XML de Campo Grande ou se realmente pode ser algo no ACBr. O fato é que ele não reconheçe nem como NFEs nem como RPS.

[3529203] Nome=Martinópolis UF=SP Provedor=ABRASFV1

Alguma dica do que poderia ser?

Pessoal, estou tentando importar NFSE para dentro do ACBr porém o mesmo não reconheçe a nota. Alguém pode me dar alguma dica ? A função PosNFSe abaixo não funciona pois não existem nenhuma das tags correspondentes, vou passar também um exemplo do arquivo que o cliente me mandou. function TNotasFiscais.LoadFromString(AXMLString: String; AGerarNFSe: Boolean = True): Boolean; var VersaoNFSe: TVersaoNFSe; Ok: Boolean; AXML: AnsiString; N, TamTAG, i: integer; TagF: Array[1..7] of String; function PosNFSe: Integer; begin TagF[1] := '</NFS-e>'; TagF[2] := '</CompNfse>'; TagF[3] := '</Nfse>'; TagF[4] := '</Nota>'; TagF[5] := '</NFe>'; TagF[6] := '</tbnfd>'; TagF[7] := '</nfs>'; i := 0; repeat inc(i); TamTAG := Length(TagF) -1; Result := Pos(TagF, AXMLString); until (i = 7) or (Result <> 0); end; <?xml version="1.0" encoding="ISO-8859-1"?> <NOTAS_FISCAIS> <NOTA_FISCAL> <TIPO>Prestado Eletrônico</TIPO> <NUM_NOTA>000000000009077</NUM_NOTA> <DATA_HORA_EMISSAO>03/07/2017 10:07:04</DATA_HORA_EMISSAO> <DIA_EMISSAO>03</DIA_EMISSAO> <MES_COMPETENCIA>07/2017</MES_COMPETENCIA> <SITUACAO_NF>Normal</SITUACAO_NF> <CODIGO_CIDADE>9051</CODIGO_CIDADE> <USUARIO_CPF_CNPJ>00629970000150</USUARIO_CPF_CNPJ> <USUARIO_RAZAO_SOCIAL>BOMBEX EXTINTORES E EQUIPAMENTOS DE SEGU</USUARIO_RAZAO_SOCIAL> <DATA_HORA_CANCELAMENTO>0000000000000000000</DATA_HORA_CANCELAMENTO> <RPS_EMISSAO>0000000000</RPS_EMISSAO> <SUB_EMISSAO>0000000000</SUB_EMISSAO> <PRESTADOR_CPF_CNPJ>00629970000150</PRESTADOR_CPF_CNPJ> <PRESTADOR_INSCRICAO_MUNICIPAL>00080802005</PRESTADOR_INSCRICAO_MUNICIPAL> <PRESTADOR_RAZAO_SOCIAL>BOMBEX EXTINTORES E EQUIPAMENTOS DE SEGURANCA EIRELI - ME</PRESTADOR_RAZAO_SOCIAL> <PRESTADOR_NOME_FANTASIA>BOMBERACO</PRESTADOR_NOME_FANTASIA> <PRESTADOR_TIPO_LOGRADOURO>AVENIDA</PRESTADOR_TIPO_LOGRADOURO> <PRESTADOR_LOGRADOURO>BANDEIRANTES</PRESTADOR_LOGRADOURO> <PRESTADOR_PREST_NUMERO>3036</PRESTADOR_PREST_NUMERO> <PRESTADOR_TIPO_BAIRRO>VILA</PRESTADOR_TIPO_BAIRRO> <PRESTADOR_BAIRRO>NOVA BANDEIRANTES</PRESTADOR_BAIRRO> <PRESTADOR_CIDADE_CODIGO>9051</PRESTADOR_CIDADE_CODIGO> <PRESTADOR_CIDADE>CAMPO GRANDE</PRESTADOR_CIDADE> <PRESTADOR_UF>MS</PRESTADOR_UF> <PRESTADOR_CEP>79006001</PRESTADOR_CEP> <PRESTADOR_DDD_TELEFONE>67</PRESTADOR_DDD_TELEFONE> <PRESTADOR_TELEFONE>33215651</PRESTADOR_TELEFONE> <TOMADOR_CPF_CNPJ>01016179000219</TOMADOR_CPF_CNPJ> <TOMADOR_RAZAO_SOCIAL>VIACAO SAO LUIZ LTDA</TOMADOR_RAZAO_SOCIAL> <TOMADOR_TIPO_LOGRADOURO>AVENIDA</TOMADOR_TIPO_LOGRADOURO> <TOMADOR_LOGRADOURO>MARECHAL DEODORO</TOMADOR_LOGRADOURO> <TOMADOR_NUMERO>2194</TOMADOR_NUMERO> <TOMADOR_COMPLEMENTO>386-2398</TOMADOR_COMPLEMENTO> <TOMADOR_TIPO_BAIRRO>JARDIM</TOMADOR_TIPO_BAIRRO> <TOMADOR_BAIRRO>TIJUCA</TOMADOR_BAIRRO> <TOMADOR_CIDADE_CODIGO>9051</TOMADOR_CIDADE_CODIGO> <TOMADOR_CIDADE>CAMPO GRANDE</TOMADOR_CIDADE> <TOMADOR_UF>MS</TOMADOR_UF> <TOMADOR_CEP>79094000</TOMADOR_CEP> <TOMADOR_EMAIL>[email protected]</TOMADOR_EMAIL> <TOMADOR_OPTANTE_SIMPLES>N</TOMADOR_OPTANTE_SIMPLES> <TOMADOR_DDD_TELEFONE>67</TOMADOR_DDD_TELEFONE> <TOMADOR_TELEFONE>00000000</TOMADOR_TELEFONE> <VALOR_NOTA>220</VALOR_NOTA> <VALOR_DEDUCAO>0</VALOR_DEDUCAO> <VALOR_SERVICO>220</VALOR_SERVICO> <VALOR_ISS>11</VALOR_ISS> <VALOR_PIS>1,43</VALOR_PIS> <VALOR_COFINS>6,6</VALOR_COFINS> <VALOR_INSS>0</VALOR_INSS> <VALOR_IR>0</VALOR_IR> <VALOR_CSLL>2,2</VALOR_CSLL> <ALIQUOTA_PIS>,65</ALIQUOTA_PIS> <ALIQUOTA_COFINS>3</ALIQUOTA_COFINS> <ALIQUOTA_INSS>0</ALIQUOTA_INSS> <ALIQUOTA_IR>1,5</ALIQUOTA_IR> <ALIQUOTA_CSLL>1</ALIQUOTA_CSLL> <CODIGO_ATIVIDADE>952150000</CODIGO_ATIVIDADE> <DESCRICAO_ATIVIDADE>Reparacao e manutencao de equipamentos eletroeletr</DESCRICAO_ATIVIDADE> <GRUPO_ATIVIDADE>A</GRUPO_ATIVIDADE> <ENQUADRAMENTO_ATIVIDADE>S</ENQUADRAMENTO_ATIVIDADE> <LOCAL_INCIDENCIA_ATIVIDADE>P</LOCAL_INCIDENCIA_ATIVIDADE> <TRIBUTAVEL_ATIVIDADE>S</TRIBUTAVEL_ATIVIDADE> <DEDUCAO_VALOR_ATIVIDADE>0.0000</DEDUCAO_VALOR_ATIVIDADE> <DEDUCAO_ATIVIDADE>0</DEDUCAO_ATIVIDADE> <ATV_ECON_ATV>S</ATV_ECON_ATV> <COS_SERVICO>1401</COS_SERVICO> <DESCRICAO_SERVICO>1401 - Lubrificação, limpeza, lustração, revisão, carga e recarga, conserto, restauração, blindagem, manutenção e conservação de máquinas, veículos, aparelhos, equipamentos, motores, elevadores ou de qualquer objeto (exceto peças e partes empregadas, que ficam sujeitas ao ICMS).</DESCRICAO_SERVICO> <ALIQUOTA>5</ALIQUOTA> <TIPO_RECOLHIMENTO>R</TIPO_RECOLHIMENTO> <OPERACAO_TRIBUTACAO>A</OPERACAO_TRIBUTACAO> <MOTIVO_PAGAMENTO></MOTIVO_PAGAMENTO> <CODIGO_REGIME>1</CODIGO_REGIME> <CIDADE_CODIGO_PRESTACAO>9051</CIDADE_CODIGO_PRESTACAO> <CIDADE_PRESTACAO>CAMPO GRANDE</CIDADE_PRESTACAO> <UF_PRESTACAO>MS</UF_PRESTACAO> <DOCUMENTO_PRESTACAO>NF</DOCUMENTO_PRESTACAO> <SERIE_PRESTACAO>10</SERIE_PRESTACAO> <TRIBUTACAO_PRESTACAO>T</TRIBUTACAO_PRESTACAO> <DESCRICAO_NOTA>Contribuições a serem pagas p/ tomador(PIS,CSLL,COFINS)&lt;br /&gt;R$10,23</DESCRICAO_NOTA> <CODIGO_VERIFICACAO>b249173e588771c718cb6173cac2db7d5beafd98</CODIGO_VERIFICACAO> <ID_NOTA_FISCAL>65012746</ID_NOTA_FISCAL> <VALOR_ISS_RET>11</VALOR_ISS_RET> <ALIQ_RET>5</ALIQ_RET> <DESCONTO_RET>0</DESCONTO_RET> <ITENS> <ITEM>

Inclusa cidade Rio Verde de Mato Grosso Cidades.INI