Rodrigo - Digibyte

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

Pelo que entendi da página 6 do MOS 2.2 não é necessário enviar o fim da validade, isso facilita muito. O fim de validade será considerado automaticamente o movimento anterior ao início enviado. Seria apenas um envio.

Mas a idéia não é controlar isso não. Se o cliente marcou uma incidência e depois desmarcou mando o evento pro esocial mesmo assim com nova validade. Logicamente vai estar igual mas duvido que isso será validado.

Por qual motivo ?

Bom, estou realmente pegando firme agora a questão do eSocial. Estava analisando por exemplo como trabalhar com a tabela de eventos=proventos/descontos (mas a lógica pode servir para outras) e suas alterações/inclusões/exclusões que tem que ser informadas. Pensei o seguinte: Exclusão de evento: não informar, que fique lá na base do esocial... Inclusão: setar um campo "novo evento" e "data inclusão". Antes de enviar a folha dar um aviso, ou fazer automático, e enviar a inclusão. Recebendo um retorno positivo resetar o campo "novo evento" Alteração: setar um campo "evento alterado" e "data alteração" e seguir a lógica da inclusão. Se o usuário alterar o evento e depois alterar novamente, voltando ao que era, a princípio não tenho como saber, vai ser enviada a alteração de qualquer forma. O que acham, pensam da mesma forma?

Gostaria de compartilhar algumas idéias sobre como preparar nossos aplicativos para o eSocial, poderia ser por aqui ? O que acham?

Não sei o que fiz mas realmente estava errada, agora vai a correta ! uExemploEsocial.pas

Na unit eSocial_Conversao linha tpSimNao = (tpSim, tpNao) proponho alteração para tpNaoSim = (tpNao, tpSim) de forma a facilitar quando estiver em produção a leitura direta dos dados de forma que zero seria não e um seria sim

A atual não compilava por algumas diferenças nos tipos uExemploEsocial.pas

Foi criado um novo componente (TACBrSpedFiscalImportar) que é o importador do Sped Fiscal. Ele foi criado nos mesmos moldes do importador do Sped Contribuições e colocado no mesmo pacote de instalação. Para usá-lo basta ligar o mesmo, pela propriedade ACBrSpedFiscal, a um TAcbrSpedFiscal e usar da seguinte forma: if OpenDialog.Execute then begin ACBrSpedImpEF.Arquivo := OpenDialog.FileName; (ler arquivo sped) ACBrSpedImpEF.Importar; end; Feito isso estarão disponíveis os valores como por exemplo: with ACBrSpedImpEF.ACBrSPEDFiscal.Bloco_0 do begin vCnpj := ACBrSpedImpEF.ACBrSpedFiscal.Bloco_0.Registro0000.CNPJ; vCpf := ACBrSpedImpEF.ACBrSpedFiscal.Bloco_0.Registro0000.CPF; end; Pode ter melhorias a fazer mas está plenamente funcional.

Realmente acho que a opção de load ficaria melhor. No momento porém eu teria que estudar um pouco mais como fazer e levaria mais tempo pois não tenho tanta experiência com a parte de componentes. De qualquer forma desenvolvi o importador Fiscal com base no importador Contribuições. ACBr_SPEDImportar.dpk ACBrEFDBlocos.pas ACBrSPEDFiscalImportar.rar

Foi feito alguma coisa para importar Sped Fiscal? Se não tiver nada vou iniciar com base no TFrmImpoSped

Está errado essa parte segundo o manual é o último dígito da conta mais o dígito verificador Pessoal, já está bem esclarecido, é necessário apenas arrumar para ou pegar 2 dígitos do campo complemento ou pegar direto o último dígito da conta + verificador conforme manual. O que falta para atualizar ?

Já tinha atualizado o ACBR, atualizei novamente e está errado.

Em relação ao erro reportado por João Paulo F. Bellucci se é adicionado o número final da conta teria que tirar um espaço (de space(6) para space (5)). Pra mim deu certo assim: RightStr(Cedente.Conta, 1) + Cedente.ContaDigito + Space(5) + // 384 a 391

Creio que muita gente vai precisar e estou achando que o prazo não será mais prorrogado. Baixei o que tem para começar a testar porém acho que o mesmo já deveria ser disponibilizado como parte do pacote, assim ficaria mais visível e mais pessoas ajudariam.

Bom dia seguem algumas implementações e correções. Estou sempre procurando seguir o padrão que está nos SPED em relação a nomeclatura e tipo de dados. ACBrLFDBloco_A_Class.pas ACBrLFDBloco_C.pas ACBrLFDBloco_C_Class.pas ACBrLFDBloco_E.pas ACBrLFDBloco_E_Class.pas ACBrLFD.pas ACBrLFDBloco_A.pas