Bloco 1 e 9 fora de Ordem (No inicio do Arquivo)

[Luciano César Gimenez]

Ola Pessoal boa tarde, estou gerando o arquivo do Sped PisCofins e a ordem dos Blocos1 e 9 estão ficando errado, alguém esta passando por este problema? segue abaixo o arquivo como esta ficando.

No mês passado estava gerando normalmente, é que diariamente venho atualizando o ACBR Trunk2, e depois de umas das atualização esta ocorrendo isso.

Desde já agradeço a atenção de todos...

Luciano...

 

Ordem dos Registros

|1001|0|
|1900|05412491000100|2D|||00|43,00|6|04|04|5102|||
|1900|05412491000100|2D|||00|156056,74|863|04|04|5405|||
|1990|4|
|9001|0|
|9900|1001|1|
|9900|1900|2|
|9900|1990|1|
|9900|9001|1|
|9900|9900|7|
|9900|9990|1|
|9900|9999|1|
|9990|10|
|9999|14|
|0000|003|0|0||01092015|30092015|RAZAO SOCIAL DO CLIENTA|00000000000000|SP|3534104||00|9|
|0001|0|
|0100|ESCRITORIO MM|00000000006|1SP228730/O-0||17570000|RODOLFO MIRANDA|||CENTRO|0000000000||[email protected]|3534104|
|0110|2||1|2|
|0140|1|RAZAO SOCIAL DO CLIENTE|00000000000000|SP|000000000000|3534104|||
|0990|6|
|A001|1|
|A990|2|
|C001|1|
|C990|2|
|D001|1|
|D990|2|
|F001|0|
|F010|00000000000000|
|F550|156099,74|04|0,00|156099,73|0,0000|0,00|04|0,00|156099,73|0,0000|0,00||5102|||
|F990|4|
|M001|0|
|M200|0,00|0,00|0,00|0,00|0,00|0,00|0,00|0,00|0,00|0,00|0,00|0,00|
|M400|04|156099,74|||
|M410|001|33,00|||
|M410|101|65949,45|||
|M410|102|25559,19|||
|M410|109|3721,50|||
|M410|113|60619,60|||
|M410|302|90,00|||
|M410|621|127,00|||
|M600|0,00|0,00|0,00|0,00|0,00|0,00|0,00|0,00|0,00|0,00|0,00|0,00|
|M800|04|156099,74|||
|M810|001|33,00|||
|M810|101|65949,45|||
|M810|102|25559,19|||
|M810|109|3721,50|||
|M810|113|60619,60|||
|M810|302|90,00|||
|M810|621|127,00|||
|M990|20|

 

Edited October 7, 2015 by Luciano César Gimenez

[Luciano César Gimenez]

Ola Pessoal, fiz uma comparação com a versão anterior da Unit "ACBrSpedPisCofins.pas" havia sido mudado essa rotina que segue abaixo, voltei como a anterior e voltou a funcionar corretamente a ordem do arquivo, se alguém puder ver o porque havia sido mudado isso, agradeço...

Unit ACBrSpedPisCofins.pas

procedure TACBrSPEDPisCofins.WriteBloco_1;
begin
   if Bloco_1.Gravado then exit ;

   if not Bloco_P.Gravado then    // No trunk2 estava Bloco_P   (Atual)
      WriteBloco_P;

   if not Bloco_M.Gravado then    // No trunk estava Bloco_M   (Anterior)
      WriteBloco_M;

   /// BLOCO 1
   WriteRegistro1001;
   WriteRegistro1990;
   Bloco_1.WriteBuffer;
   Bloco_1.Conteudo.Clear;
   Bloco_1.Gravado := True ;
end;

Desde ja agradeço a todos...

Luciano

[Juliomar Marchetti]

O problema é que está correto certo?

pois o bloco 1 antes dele é o bloco p e não o M certo?

ou o meu manual está errado?