Jump to content
Notícias do ACBr

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

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

Dúvida geração do registro C810 no SPED


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

Recommended Posts

Boa tarde pessoal, estou gerando o registro C810 e estou até passando um valor fixo para o campo "VL_ITEM"
mas quando é feita a geração do txt ele me retorna um valor totalmente diferente.
Diante mão já agradeço pelo apoio de todos.

with RegistroC810New do
begin

  atestevlr := GeraArquivoSpedFiscal.CDSSATItensTOTAL_ITEM.AsExtended;

  NUM_ITEM := FormatFloat('000', GeraArquivoSpedFiscal.CDSSATItensITEM.AsInteger);
  COD_ITEM := FormatFloat('000000', GeraArquivoSpedFiscal.CDSSATItensID_PRODUTO.AsInteger);
  QTD      := GeraArquivoSpedFiscal.CDSSATItensQUANTIDADE.AsFloat;
  UNID     := Produto.UnidadeComercial;
  //VL_ITEM  := //GeraArquivoSpedFiscal.CDSSATItensTOTAL_ITEM.AsExtended;
  VL_ITEM  := 500; //GeraArquivoSpedFiscal.CDSSATItensTOTAL_ITEM.Value;
  CST_ICMS := GeraArquivoSpedFiscal.CDSSATItensCST.AsString;
  CFOP     := GeraArquivoSpedFiscal.CDSSATItensCFOP.AsString;
end; //Fim dos Itens;



imagem.thumb.png.a57b30aca17a66fe8e1c17753b531985.png


 

Link to comment
Share on other sites

  • Consultores

Movi para um tópico adequado.

está falando do Sped Fiscal?

abre o arquivo ACBrEFDBloco_C_Class.pas e vai na linha 3718 e coloca um ponto de parada e quando gerar veja o que tem ali antes de gerar oarquivo

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

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to comment
Share on other sites

Bom dia Juliomar obrigado pelo retorno.
No arquivo "ACBrEFDBloco_C_Class.pas" dentro da procedure "WriteRegistroC810" alterei a linha 3737

Anteriormente:

Add( LFill('C810') +
             LFill( NUM_ITEM ) +
             LFill( COD_ITEM ) +
             LFill( QTD, 0, 5 ) +
             LFill( UNID ) +
             LFill( VL_ITEM ) +
             LFill( CST_ICMS ) +
             LFill( CFOP )
           ) ;

 

Ficando assim:

Add( LFill('C810') +
             LFill( NUM_ITEM ) +
             LFill( COD_ITEM ) +
             LFill( QTD, 0, 5 ) +
             LFill( UNID ) +
             LFill( VL_ITEM, 0, 0 ) +
             LFill( CST_ICMS ) +
             LFill( CFOP )
           ) ;

Com isso consegui resolver muito obrigado Juliomar.

Link to comment
Share on other sites

  • Consultores

Bom dia.

Por favor anexe o pas alterado.

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

Pera tá estranho isso. tu está dizendo ao sistema para tirar as casas decimais e também os inteiros.

acho que tem algo de errado na configuração do componente.

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

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to comment
Share on other sites

Tambem achei estranho mas como não utilizo muito o lfill ou rfill, so tentei seguir a logica que vi no campo "QTD",
então seguindo o layout da tabela abaixo imaginei que seria "LFill( VL_ITEM, 0, 0 )"

imagem.png.0e47ce5dad1a090330aa06703698b573.png


Tambem encontrei um topico aqui que um amigo no 3 comentario pelo que parece estava passando por um problema parecido, que passando um valor para o campo currency ele entendia como um valor de data: https://www.projetoacbr.com.br/forum/topic/9898-arquivos-do-paf-função-lfill/

 

Link to comment
Share on other sites

  • Consultores

Nussa 2013 os posts.

notei que nenhum deles respondeu as perguntas feitas e dai ficamos na tentativa e erro .

uma ideia mude o tipo para Double

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

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to comment
Share on other sites

  • Consultores

Bom dia.

analisando novamente cheguei a conclusão que seus fontes estão diferentes do SVN

faça um revert dos fontes , verifique se está no trunk2 e faça update e recompile

acabei de fazer um app de testes lancei valores e saiu certinho sem nenhum problema.

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

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to comment
Share on other sites

  • Consultores
  • Solution
Em 14/08/2020 at 10:32, Aronbyte disse:

Bom dia Juliomar obrigado pelo retorno.
No arquivo "ACBrEFDBloco_C_Class.pas" dentro da procedure "WriteRegistroC810" alterei a linha 3737

Anteriormente:

Add( LFill('C810') +
             LFill( NUM_ITEM ) +
             LFill( COD_ITEM ) +
             LFill( QTD, 0, 5 ) +
             LFill( UNID ) +
             LFill( VL_ITEM ) +
             LFill( CST_ICMS ) +
             LFill( CFOP )
           ) ;

 

Ficando assim:

Add( LFill('C810') +
             LFill( NUM_ITEM ) +
             LFill( COD_ITEM ) +
             LFill( QTD, 0, 5 ) +
             LFill( UNID ) +
             LFill( VL_ITEM, 0, 0 ) +
             LFill( CST_ICMS ) +
             LFill( CFOP )
           ) ;

Com isso consegui resolver muito obrigado Juliomar.

Seus códigos estão desatualizados. Isso já está corrigido pelo menos desde 18/02/2020

 

  • Like 2

[]'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

  • Consultores
1 hora atrás, Aronbyte disse:

Obrigado pela ajuda de todos.

Podem encerrar o topico já.

Mas o que era?

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

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to comment
Share on other sites

  • Consultores
45 minutos atrás, Juliomar Marchetti disse:

Mas o que era?

 

Em 18/08/2020 at 11:59, EMBarbosa disse:

Seus códigos estão desatualizados

 

  • 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

  • Consultores
Em 15/08/2020 at 11:03, Juliomar Marchetti disse:

analisando novamente cheguei a conclusão que seus fontes estão diferentes do SVN

faça um revert dos fontes , verifique se está no trunk2 e faça update e recompile

Havia solicitado aqui para a reversão e atualização do svn.

16 horas atrás, Aronbyte disse:

Bom dia, obrigado pelo retorno 💪

 

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

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
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á 342 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.