Jump to content

dev botao

Problemas Controle patrimonial - BLOCO G e 0300


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

Recommended Posts

Olá amigos, estou gerando o sped fiscal porém estou com problemas na parte patrimonial, o primeiro problema é que os itens não estão entrando no bloco 0300 e no Bloco G também não está gerando nenhuma linha no arquivo txt, quanto aos demais blocos, está gerando tudo ok.

acabei de atualizar o ACBR e fiz novamente toda a geração mas não deu certo, alguém sabe me dizer o que preciso fazer para gerar os registros ref. ao patrimonial?

Link to comment
Share on other sites

  • Consultores

você viu esse tópico se está relacionado?

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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 comment
Share on other sites

Já descobri onde estava o problema.

Na abertura do sped, antes de abrir o bloco zero tem que declarar uma data da seguinte forma:

with ACBrSPEDFiscal do

begin

DT_INI := StrToDate(FExportaOracle.Data1Sped.Text);

DT_FIN := StrToDate(FExportaOracle.Data2Sped.Text);

end;

with ACBrSPEDFiscal.Bloco_0 do

begin

sempre que não é informado esse período antes da abertura do bloco zero, tem-se problemas com o Patrimonial no sped. registros 0300 e bloco G

Link to comment
Share on other sites

  • Consultores

Joia. Obrigado pelo retorno.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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 comment
Share on other sites

  • 1 month later...

Joia. Obrigado pelo retorno.

Bom dia.

Após uma atualização recente, o bloco G não era gerado. Não havia movimento, porém teria que ser gerado o G001 e o G990.

Encontrei o seguinte no Código:

procedure TACBrSPEDFiscal.WriteBloco_G;

begin

if Bloco_G.Gravado then exit ;

if not Bloco_E.Gravado then

WriteBloco_E;

/// Este ato entra em vigor na data de sua publicação, produzindo efeitos

/// para as escriturações referentes aos períodos a partir de 1º de janeiro de 2010,

/// --> exceto quanto ao BLOCO G e registros pertinentes ao Livro de

/// Controle de Crédito de ICMS do Ativo Permanente cujos efeitos serão

/// a partir de 1º de julho de 2010 <--.

/// Exigência do Art. 3º do AC 09/08

///

/// Prorrogado para 01/01/2011 conforme Guia Prático da EFD 2.01

/// *Bloco G incluído para vigorar a partir do período de apuração de janeiro de 2011.

if DT_INI >= EncodeDate(2011,01,01) then

begin

/// BLOCO G

WriteRegistroG001;

WriteRegistroG990;

Bloco_G.WriteBuffer;

end;

Bloco_G.Conteudo.Clear;

Bloco_G.Gravado := True ;

end;

Preste atenção na DT_INI. ela pertence ao With RegistroG110New do.

Se não houve movimento está propriedade não será preenchida.

O correto é colocar a data:

if FBloco_0.Registro0000.DT_INI>=EncodeDate(2011,01,01)then

Após alterar gerou normalmente.

Se não procede, desculpe-me.

Tércio Lins.

Link to comment
Share on other sites

  • Consultores

Na verdade DT_INI pertence à classe TACBrSPEDFiscal. Ele é definido quando você faz no seu código algo como:


ACBrSPEDFiscal1.DT_INI := now;[/code]

O quê fez você acreditar que o erro está num "With RegistroG110New do" se ele nem aparece no arquivo fonte?

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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 comment
Share on other sites

Boa noite EMBarbosa.

Você está correto. O erro, ou desatenção, foi meu.

Quando me referi ao RegistroG110New, foi ao campo DT_FIN.

Pensei que ele estivesse recebendo o valor deste campo.

if DT_INI >= EncodeDate(2011,01,01) then

With RegistroG110New do

begin

DT_INI:=StrToDate(Fiscal.Inicial);

DT_FIN:=StrToDate(Fiscal.Final);

end;

Verificando o meu código, percebi que coloquei os valores apos gerar os Blocos.

SpedF.Bloco0;

Execute(LBloco0);

SpedF.BlocoC;

Execute(LBlocoC);

SpedF.BlocoD;

Execute(LBlocoD);

SpedF.BlocoE;

Execute(LBlocoE);

SpedF.BlocoG;

Execute(LBlocoG);

SpedF.BlocoH;

Execute(LBlocoH);

SpedF.Bloco1;

Execute(LBloco1);

with Dmf.ACBrSPEDFiscal do

begin

LinhasBuffer:=StrToIntDef('1000',0);

DT_INI:=StrToDate(Fiscal.Inicial);

DT_FIN:=StrToDate(Fiscal.Final);

memoError.Lines.Clear;

SaveFileTXT;

memoTXT.Lines.LoadFromFile(Path+Arquivo);

end;

Nos demais registros não ocorreu erro porque eu sempre alimentei o período através da variável que eu criei.

with RegistroE100New do

begin

DT_INI:=StrToDate(Fiscal.Inicial);

DT_FIN:=StrToDate(Fiscal.Final);

end;

Agradeço a dica e desculpe-me pela falha.

Tércio Lins.

Link to comment
Share on other sites

  • Consultores

Joia!

Obrigado pelo retorno. (:

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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 comment
Share on other sites

  • Este tópico foi criado há 4259 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...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.