Erro em SPED pis e cofins com matriz e filiais

[Carlos Hendrik Oliveira]

Boa tarde,

estou implementando um Sped Contribuções com matriz e filial, mas ao escrever o arquivo, o Acbr duplica o registro C010 com um CNPJ zerado.

alguém já passou por este problema?

[EMBarbosa]

Não que eu saiba. Você poderia postar o código para reproduzir o problema?

[Carlos Hendrik Oliveira]

1 hora atrás, EMBarbosa disse:

Não que eu saiba. Você poderia postar o código para reproduzir o problema?

Lhe enviei o arquivo de como foi gerado.

teste.txt

[EMBarbosa]

Na verdade, seria mais útil o código fonte pra reproduzir o problema. Ou a correção se você souber como corrigir.

[Carlos Hendrik Oliveira]

Em 05/01/2018 at 14:05, EMBarbosa disse:

Na verdade, seria mais útil o código fonte pra reproduzir o problema. Ou a correção se você souber como corrigir.

Segue o código que estou desenvolvendo:

GeradorSpedContribuicoes.rar

[brsamn]

Bom dia.

Tente fazer algo assim no procedimento RegC010, na linha 552 da ufrmPrincipal.pas:

      with RegistroC010New do
      begin
        CNPJ := SomenteNumeros(queryEmpresa.FieldByName('cgc').AsString);;
        IND_ESCRI := IndEscriIndividualizado;

Como você está passando duas vezes o RegistroC010New no seu procedimento, ele pode estar criando duas vezes o registro.

Espero que ajude.

Obrigado.

Editado 8 Janeiro, 2018 por brsamn

[Carlos Hendrik Oliveira]

1 hora atrás, brsamn disse:

Bom dia.

Tente fazer algo assim no procedimento RegC010, na linha 552 da ufrmPrincipal.pas:

      with RegistroC010New do
      begin
        CNPJ := SomenteNumeros(queryEmpresa.FieldByName('cgc').AsString);;
        IND_ESCRI := IndEscriIndividualizado;

Como você está passando duas vezes o RegistroC010New no seu procedimento, ele pode estar criando duas vezes o registro.

Espero que ajude.

Obrigado.

Deu certo, obrigado.

Ficou assim

 

procedure TfrmPrincipal.RegC010(pBloco: TBloco_C);
begin
  try
    with pBloco.RegistroC010New do
      begin
        CNPJ := SomenteNumeros(queryEmpresa.FieldByName('cgc').AsString);
        IND_ESCRI := IndEscriIndividualizado;
      end;
  except on E: Exception do
    raise Exception.Create('Erro ao criar registro C010. Motivo:'+#13+E.Message);
  end;
end;

 

[joabe]

Em 08/01/2018 at 10:51, Carlos Hendrik Oliveira disse:

Deu certo, obrigado.

Ficou assim

 

procedure TfrmPrincipal.RegC010(pBloco: TBloco_C);
begin
  try
    with pBloco.RegistroC010New do
      begin
        CNPJ := SomenteNumeros(queryEmpresa.FieldByName('cgc').AsString);
        IND_ESCRI := IndEscriIndividualizado;
      end;
  except on E: Exception do
    raise Exception.Create('Erro ao criar registro C010. Motivo:'+#13+E.Message);
  end;
end;

 

voce tem exe deste seu projeto para me fazer um teste

estou precisando unificar sped fiscal contribuição alguém pode me ajudar!

[Carlos Hendrik Oliveira]

Em 27/02/2020 at 21:17, joabe disse:

voce tem exe deste seu projeto para me fazer um teste

estou precisando unificar sped fiscal contribuição alguém pode me ajudar!

Bom dia,
o programa que fiz, não foi para unificar arquivos de matriz e filial. Somente gero as informações do banco de dados.