Jump to content

Delphi chamada_delphi.png acbr.png

C6 chamada_c6.png botao.png

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


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

Recommended Posts

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 by Luciano César Gimenez
Link to comment
Share on other sites

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

Link to comment
Share on other sites

  • Consultores

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?

  • Like 1
Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

 

Link to comment
Share on other sites

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