Jump to content

dia-do-acbr-online.png

.Promoção do Suporte ACBr:
Ganhe o Curso Migração e Modernização de Aplicações Legadas

Saiba Mais


RAFAEL_E_ANGELO3.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


botao.png

beneficios.png

Erro em SPED pis e cofins com matriz e filiais


  • Este tópico foi criado há 281 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui

Recommended Posts

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

[]'s

Consultor SAC ACBr

Elton
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to post
Share on other sites

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

[]'s

Consultor SAC ACBr

Elton
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to post
Share on other sites

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.

Edited by brsamn
  • Like 1
Link to post
Share on other sites
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;

 

  • Like 1
Link to post
Share on other sites
  • 2 years later...
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!

Link to post
Share on other sites
  • Este tópico foi criado há 281 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...