Ir para conteúdo
  • Cadastre-se

dev botao

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


Aronbyte
Ver Solução Respondido por EMBarbosa,
  • Este tópico foi criado há 1317 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 para o comentário
Compartilhar em outros sites

  • Moderadores

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

  • Curtir 1
Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros sites

  • Administradores

Bom dia.

Por favor anexe o pas alterado.

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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 para o comentário
Compartilhar em outros sites

  • Moderadores

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.

  • Curtir 1
Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros sites

  • Moderadores

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

  • Curtir 1
Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores

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.

  • Curtir 1
Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros 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

 

  • Curtir 2

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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 para o comentário
Compartilhar em outros 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

 

  • Curtir 1

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

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 para o comentário
Compartilhar em outros sites

  • Moderadores
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 💪

 

  • Curtir 1
Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1317 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.