Transmissão somente do BLOCO K

[anaves]

Meu cliente não trabalha com SPED no sistema de gestão construído pela minha empresa. O BLOCO K, participante do SPED, passa a ser obrigatório a partir de 01/01/2019.  Tentei gerar pelo exemplo do ACBR mas não tive sucesso. Solicito ajuda em: 

- Como gerar o Bloco K somente com os dados do estoque ( transmissão inicial ) ?
- Como gerar o Bloco K em regime, incluindo os dados de movimentação de produtos. ? 

Se alguém puder enviar exemplos simples em deplhi acho que resolveria estas primeiras dúvidas. 
Agradeço antecipadamente.

Editado 13 Dezembro, 2018 por anaves

[Juliana Tamizou]

Boa tarde.

Sua dúvida é em como alimentar o componente, ou quais informações  deve incluir?
Att.

[anaves]

Olá Juliana. 
O que eu necessito é implantar num cliente meu a emissão apenas do Bloco K, via SPED naturalmente. 
Compilar ( Delphi ) o exemplo da ACBR dá erro ( eu estava neste momento atualizando a  versão do ACBR ). 
Como o meu problema é o BLOCO K devido ao prazo, solicitei exemplo de código.  

Ageadeço

[Juliana Tamizou]

Boa tarde.

Segue trecho de código extraído do próprio demo, lembrando que para os demais bloco não utilizados basta inclui-los com a propriedade IND_MOV = imSemDados. Para adicionar outros registros filhos do Bloco K, o processo é o mesmo do K200

with ACBrSPEDFiscal1.Bloco_K do
begin
   with RegistroK001New do
   begin
      IND_MOV := imComDados;

      with RegistroK100New do
      begin
         DT_INI:= strtodate('01/01/2014');
         DT_FIN:= StrToDate('31/01/2014');

         with RegistroK200New do
         begin
            DT_EST := StrToDate('01/01/2014');
            COD_ITEM := '0001';
            QTD := 1;
            IND_EST := estPropInformantePoder;
            COD_PART := '0001';
         end;
      end;
   end;

Att.

[EMBarbosa]

22 horas atrás, anaves disse:

Compilar ( Delphi ) o exemplo da ACBR dá erro ( eu estava neste momento atualizando a  versão do ACBR ). 

Qual é a mensagem de erro? Qual a versão do seu Delphi?

[anaves]

Olá Juliana. 
O que eu necessito é implantar num cliente meu a emissão apenas do Bloco K, via SPED naturalmente. 
Compilar ( Delphi ) o exemplo da ACBR dá erro ( eu estava neste momento atualizando a  versão do ACBR ). 
Como o meu problema é o BLOCO K devido ao prazo, solicitei exemplo de código.  

Ageadeço

[anaves]

Olá EMBarbosa e Juliana. 

Delphi2010, atualizei o ACBR e não há mais erro. 
Mau problema agora é gerar os blocos sem erro na crítica no programa do SPED. Já tentei várias configurações de imSenDados e imComDados 
mas ainda não consegui. E só quero gerar o BLOCO K. Uma ajuda neste ponto seria quais os blocos tenho que gerar. E como gero o BLOCO K só para o estoque para o dia 01/01/2019. 

Ainda não testei o código que a Juliana me enviou
Desculpe o abuso.

Alvaro

 

[EMBarbosa]

Em 15/12/2018 at 14:24, anaves disse:

 

Mau problema agora é gerar os blocos sem erro na crítica no programa do SPED. Já tentei várias configurações de imSenDados e imComDados 
mas ainda não consegui. E só quero gerar o BLOCO K. Uma ajuda neste ponto seria quais os blocos tenho que gerar. E como gero o BLOCO K só para o estoque para o dia 01/01/2019. 

Ainda não testei o código que a Juliana me enviou
Desculpe o abuso.

Alvaro

 

Eu acredito que se você gerar apenas o bloco K seu arquivo não vai passar no PVA. Nesse caso, minha sugestão é você verificar com o seu cliente, ou a contabilidade dele, quais registros ele precisa pra você gerar o arquivo.

 

[BigWings]

Em 15/12/2018 at 12:24, anaves disse:

E só quero gerar o BLOCO K. Uma ajuda neste ponto seria quais os blocos tenho que gerar. E como gero o BLOCO K só para o estoque para o dia 01/01/2019. 

Você já leu o guia prático?

http://sped.rfb.gov.br/item/show/2761

Lá tem a estrutura dos blocos, campos a alimentar, dependências necessárias. Por exemplo, se a sua necessidade é gerar o registro K200 (estoque escriturado), obrigatoriamente terá que ter também o 0200 (tabela de identificação do item).

[anaves]

Olá amigos. Tentando ser objetivo: 

No bloco Existem 2 lugares onde que posso ler todos os produtos: 
1- IDENTIFICAÇÃO DOS ÍTENS ( Registro 0200 ).

........................
begin
        with Registro0200New do
        begin

          COD_ITEM   := IntToStr(dmSPED.qryListaProdutosIDPRODUTO.AsInteger);
          DESCR_ITEM := Copy(dmSPED.qryListaProdutosDESCRICAO.AsString,1, 60);
          COD_BARRA  := dmSPED.qryListaProdutosCODBARRAS.AsString;
          UNID_INV   := 'UN';
          TIPO_ITEM := tiMercadoriaRevenda;
          COD_NCM   := dmSPED.qryListaProdutosNCM.AsString;
          COD_GEN := '30';
          ALIQ_ICMS := 0;
          dmSPED.qryListaProdutos.Next;
........
2- O ponto de gerar o SALDO de cada ítem é pelo registro K0200 .

        with RegistroK200New do          // ==> Estoque escriturado
        begin
          COD_ITEM := FCod_Item;         // ==> Cod Produto
          QTD := 10;
          IND_EST := estPropInformantePoder;  // Tipo de estoque
          COD_PART := '60';
          DT_EST := ACBrSPEDFiscal1.DT_FIN;

..................................

Para apresentar estoque inicial, é isso ?
Att

 

[EMBarbosa]

Em 22/12/2018 at 20:05, anaves disse:

Olá amigos. Tentando ser objetivo: 

Olá, espero conseguir tirar suas dúvidas.

Em 22/12/2018 at 20:05, anaves disse:

No bloco Existem 2 lugares

Veja que você alistou registros (0200 e K200) de dois blocos diferentes, bloco 0 e bloco K. Cuidado com a terminologia e as diferenças entre "arquivo", "bloco" e "registro" porque pode acabar te confundindo.

Em 22/12/2018 at 20:05, anaves disse:

ponto de gerar o SALDO de cada ítem é pelo registro K0200

Se por saldo você quer dizer estoque, sim, isso está correto.

Em 22/12/2018 at 20:05, anaves disse:

Para apresentar estoque inicial, é isso ?

Parece que sim. Conforme já foi apontado antes, você precisa verificar se o arquivo vai passar no validador sem os outros registros.

Se for o caso, você talvez precise acionar a contabilidade do cliente que pediu o arquivo sem as outras informações.

[Rafael Dias]

Tópico fechado por falta de retorno do usuário