Problemas Controle patrimonial - BLOCO G e 0300

[rrodrigoffernandes]

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?

[EMBarbosa]

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

[rrodrigoffernandes]

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

[EMBarbosa]

Joia. Obrigado pelo retorno.

[Tercio Lins]

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.

[EMBarbosa]

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?

[Tercio Lins]

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.

[Tercio Lins]

Quando escrevi:

"Quando me referi ao RegistroG110New, foi ao campo DT_FIN."

Deveria ter escrito:

Quando me referi ao RegistroG110New, foi ao campo DT_INI.

Tércio Lins.

[EMBarbosa]

Joia!

Obrigado pelo retorno. (: