Jump to content

LANÇAMENTO
Curso Completo - Dominando o ACBrMonitor

Conheça o Curso

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

Sign in to follow this  
L. Massao Aihara (Akai)

Erro FCONT

Recommended Posts

Abri esse topico para informar que no fonte "ACBrSpedFCONT.pas"

Quando vai totalizar o Registro M025 no bloco 9,

Esta fixando o valor 1 na quantidade:

"QTD_REG_BLC := 1;"

alterei o meu para:

"QTD_REG_BLC := Bloco_M.RegistroM025.Count;"

Qualquer outros "erros" que eu for encontrando vo postar nesse topico mesmo para aproveita-lo.

~ Akai ~


Lutzem Massao Aihara
Email: [email protected]

Share this post


Link to post
Share on other sites

Estou fazendo uma verificação aqui que o M020 também está assim.

Não tenho a documentação aqui comigo do FCONT.

Pode confirmar que esses registros podem ser gerados mais de um por arquivo?

Outra coisa, observando o código do J930, parece que não é só trocar o count...

Então a correção que deve ser feita deve ser a seguinte:


function TACBrSPEDFCont.WriteRegistroM020: AnsiString;
begin
Result := Bloco_M.WriteRegistroM020;

if Bloco_J.RegistroM020.Count > 0 then
begin
with Bloco_9.Registro9900.New do
begin
REG_BLC := 'M020';
QTD_REG_BLC := Bloco_M.RegistroM020.Count;
end;
end;

end;

function TACBrSPEDFCont.WriteRegistroM025: AnsiString;
begin
Result := Bloco_M.WriteRegistroM025;

if Bloco_J.RegistroM025.Count > 0 then
begin
with Bloco_9.Registro9900.New do
begin
REG_BLC := 'M025';
QTD_REG_BLC := Bloco_M.RegistroM025.Count;
end;
end;
end;
[/code]

EDIT: Será que pode testar aí e me dar um retorno?

Sobre outros erros:

1) Crie tópicos novos sempre que os erros não tiverem relação entre si.

2) Use uma descrição mais detalhada no título possível.

Não precisa economizar. Isso torna muito mais fácil pesquisar depois.


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

Share this post


Link to post
Share on other sites

ok's...pelo documentação do sped fcont o M020 ocorre uma vez so por arquivo

m025 varias/arquivo

m030 ate 4 vezes/arquivo

m155 varos/arquivo

...

Se quiser passo a lista por email.

Dei uma testada aqui e gerou certo...

mas desque baixei o validador 4.6 do site da receita...valida o layout ai

ele vai validar os dados e fica validando validando...

e depois de ums 15~20min ele fecha o programa e nao retorna nada,

sera que isso acontece so comigo?


Lutzem Massao Aihara
Email: [email protected]

Share this post


Link to post
Share on other sites

Hmm... então a alteração ao Registro M020 não era necessária...

Não sei quanto ao seu validador. Como não tenho usado aqui não posso afirmar... mas o validador do SPED PIS/Confins estava com bug e foi atualizado. Não duvido que possa haver algum erro também...

Teste com outros arquivos.

Não tem necessidade de me enviar nada por e-mail. Se você achar necessário mais alguma alteração além dessa sugerida, pode usar aqui o fórum mesmo.


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

Share this post


Link to post
Share on other sites

Já enviei para o SVN a correção. revisão 3049


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

Share this post


Link to post
Share on other sites

Já enviei para o SVN a correção. revisão 3049

Parcero, atualizei a biblioteca e não esta compilando o ACBrSpedFCont.pas

if Bloco_J.RegistroM025.Count > 0 then

não seria isso

if Bloco_M.RegistroM025.Count > 0 then

??

Abraço,

Share this post


Link to post
Share on other sites

Barbaridade chê :o ... passou despercebido.

Obrigado pela pronta resposta.

Já corrigi e submeti ao SVN.


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

Share this post


Link to post
Share on other sites

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
Sign in to follow this  

×
×
  • Create New...