[ACBRLCDPR Correção no campo Participação bloco 0040 e 0045]

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

[ACBRLCDPR Correção no campo Participação bloco 0040 e 0045]

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

[Rejeição 929 Informado CST de diferimento sem as informações de diferimento]

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

[Envio NFe - Arquivo Schema não especificado]

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

[Envio NFe - Arquivo Schema não especificado]

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?

 

[Correção e inclusão de campos na impressão do DANFSE]

 

5 horas atrás, Juliomar Marchetti disse:

Bom dia

fiz o merge e disponibilizei

favor testar!

Obrigado pela alteração!

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

Obrigado.

[Correção e inclusão de campos na impressão do DANFSE]

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. 

[Correção e inclusão de campos na impressão do DANFSE]

Boa tarde Juliomar, 

Fiz mais algumas alterações na unit, estou enviando a mesma para analise. 

Segue anexo.

ACBrNFSeDANFSeFR.pas

[Correção e inclusão de campos na impressão do DANFSE]

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;