diogo_maxx

Segue em anexo então as correções feitas nos arquivos. Registro0040.pasUACBrLCDPR.pasRegistro0045.pas

Boa tarde @EMBarbosa estou utilizando o componente recém criado e percebi uma inconsistência de informação no Bloco 0040 e também no Bloco 0045 no campo "Participação" que está como Integer sendo que o mesmo é do tipo Double, pois aceita 2 casas decimais. Teria como fazer essa alteração? REGISTRO 0040: CADASTRO DOS IMÓVEIS RURAIS Nível Hierárquico – 2 Ocorrência – 1:N Campo(s) chave: [REG] Nº Campo Descrição Tipo Tamanho Decimal Valores Válidos Obrigatório 1 REG Texto fixo contendo a identificação do registro (0040). C 4 - [0040] Sim 2 COD_IMÓVEL Código do Imóvel no LCDPR N 3 - - Sim 3 PAIS País Brasil = BR C 2 - - Sim 4 MOEDA Moeda = BRL C 3 - - Sim 5 CAD_ITR CAFIR (Com DV) N 8 - - Sim se imóvel localizado em zona rural e 0040.PAIS = BR 6 CAEPF Cadastro de Atividade Econômica da Pessoa Física (IN RFB nº 1.828/2018) N 14 - - Sim se 0040.PAIS = BR 7 INSCR_ESTADUAL Inscrição Estadual N 14 - - Não 8 NOME_IMÓVEL Nome do Imóvel C 50 - - Sim 9 ENDERECO Endereço do Imóvel C 150 - - Sim 10 NUM Número C 6 - - Não 11 COMPL Complemento C 50 - - Não 12 BAIRRO Bairro/Distrito C 50 - - Sim 13 UF Unidade Federativa (http://sped.rfb.gov.br/pasta/show/1932) C 2 - Tabela Sim se 0040.PAIS = BR 14 COD_MUN Código do Município (http://sped.rfb.gov.br/pasta/show/1932) C 7 - Tabela Sim se 0040.PAIS = BR 15 CEP Código de Endereçamento Postal (CEP) C 8 - - Sim se 0040.PAIS = BR 16 TIPO_EXPLORAÇÃO Tipo de Exploração do Imóvel: 1 – Exploração individual (Imóvel próprio) 2 - Condomínio 3 - Imóvel arrendado 4 - Parceria 5 - Comodato 6- Outros N 1 - [1;2;3;4;5;6] Sim 17 PARTICIPAÇÃO Participação em percentual na exploração do Imóvel N 5 2 - Sim

Boa tarde pessoal. Hoje aqui no sistema está dando esse mesmo erro e teoricamente estão todas as tags preenchidas. Antes era esporádico a SEFAZ retornar essa mensagem mas agora tá direto. Segue em anexo. Não sei mais onde procurar... NFe51190700046385800920559200000000811994751819.xml

Italo boa tarde. Era erro de configuração realmente. Obrigado.

Boa tarde pessoal. Estou com o mesmo problema de "Arquivo Schema não especificado". No momento do envio, na validação do componente está dando a mensagem. Utilizando a versão 4.0 da nfe. Debugando ele tenta localizar este arquivo e o mesmo não existe nos SCHEMAS do ACBr e nem da SEFAZ. Teria alguma forma de contorno ou ajuste que deveria ser feito?

Juliomar, fiz os testes aqui e está tudo ok! Obrigado.

Bom dia Juliomar. O provedor aqui da cidade é o PRODATA e a série da nota é "UNICA" em extenso. Olhando o layout da ABRASF 2.1 a série realmente tem o tamanho até 5 digitos.

Boa tarde Juliomar, Fiz mais algumas alterações na unit, estou enviando a mesma para analise. Segue anexo. ACBrNFSeDANFSeFR.pas

Boa tarde. A informação da série da nota, não está sendo levada separadamente para o danfse. Observando o código do componente pude notar que o mesmo não está preenchendo o campo "Serie" do clientdataset para impressão do danfse. Gostaria que adicionassem a linha e alterassem o tamanho do campo "Serie" do clientdataset para 5. cdsIdentificacao := TClientDataSet.Create(nil); with cdsIdentificacao do begin Close; with FieldDefs do begin Clear; Add('id', ftString, 10); Add('Numero', ftString, 16); Add('Serie', ftString, 3); => Alterar o valor para 5. Add('Tipo', ftString, 1); Add('Competencia', ftString, 7); Add('NumeroNFSe', ftString, 16); Add('NFSeSubstituida', ftString, 15); Add('DataEmissao', ftString, 10); Add('CodigoVerificacao', ftString, 15); end; CreateDataSet; LogChanges := False; end; procedure TACBrNFSeDANFSeFR.CarregaIdentificacao(ANFSe: TNFSe); begin with cdsIdentificacao do begin EmptyDataSet; Append; with ANFSe do begin FieldByName('Id').AsString := IdentificacaoRps.Numero + IdentificacaoRps.Serie; FieldByName('Numero').AsString := FormatarNumeroDocumentoFiscalNFSe(IdentificacaoRps.Numero); FieldByName('Serie').AsString := IdentificacaoRPS.Serie; => Adicionar esta linha FieldByName('Competencia').AsString := FormatDateTime('MM"/"yyyy', DataEmissao ) ; FieldByName('NFSeSubstituida').AsString := FormatarNumeroDocumentoFiscalNFSe(NfseSubstituida); FieldByName('NumeroNFSe').AsString := FormatarNumeroDocumentoFiscalNFSe(Numero); FieldByName('DataEmissao').AsString := FormatDateBr(DataEmissao); FieldByName('CodigoVerificacao').AsString := CodigoVerificacao; end; Post; end; end;