Jump to content

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png click.png click.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


Saiba mais

beneficios.png

Transmissão somente do BLOCO K


anaves
Go to solution Solved by EMBarbosa,
  • Este tópico foi criado há 931 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui

Recommended Posts

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.

Edited by anaves
Link to comment
Share on other sites

  • Consultores

Boa tarde.

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

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

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

  • Sad 1
Link to comment
Share on other sites

  • Consultores

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.

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Consultores
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?

[]'s

Consultor SAC ACBr

Elton
Ajude o Projeto ACBr crescer - Assine o SAC

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

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

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

  • Consultores
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.

 

  • Like 1

[]'s

Consultor SAC ACBr

Elton
Ajude o Projeto ACBr crescer - Assine o SAC

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

  • Moderadores
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).

  • Like 1
Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link to comment
Share on other sites

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


 

Link to comment
Share on other sites

  • Consultores
  • Solution
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.

[]'s

Consultor SAC ACBr

Elton
Ajude o Projeto ACBr crescer - Assine o SAC

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

  • 3 weeks later...
  • Este tópico foi criado há 931 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui
Guest
This topic is now closed to further replies.
×
×
  • 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.