EMBarbosa

Barbaridade chê ... passou despercebido. Obrigado pela pronta resposta. Já corrigi e submeti ao SVN.

Não tem problema. É só que facilita MUITO na hora de comparar.

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

Olá já enviei pro SVN Revisão 3048. Obrigado pela adição. Mas notei que seus fontes estão desatualizados. Antes de postar outra adição, faça um update nos seus arquivos locais aí por favor.

Olá Cilleni, Eu já tive esse problema. Acabei descobrindo que havia um Application.processMessages no meu código que estava atrapalhando a posição do WebBrowser. Comentei ele e resolveu.

Claro. É até melhor para poder testar o componente.

É. Não está saindo porque você não está passando a alíquota para a situação tributária. Veja o comentário feito na revisão 3032 (é sempre bom acompanhar o log do SVN além do arquivo changelog): Como eu disse, vou esperar o eselvati se manifestar. Se estiver dando problemas a você, volte o código aí localmente até segunda ordem. Eu não posso simplesmente mudar o código no SVN sem saber se foi ou não um equívoco, pois não fui em quem fiz a alteração.

Isso. No meu também. Está pedindo a situação e a alíquota, e não o índice da alíquota.

Me refiro a debugar o componente também... Ele tem que chamar os comandos WriteRegistroXXXX para adicionar ao TStringList interno (FConteudo). Talvez note os comandos ADD nessa procedure. Depois, a cada Bloco_X.WriteBuffer, ele salva no arquivo definido os dados. Então algum passo desses deve estar falhando. Tente descobrir onde e o porquê, pois sem o seu código fonte para essa parte e seu banco de dados, eu não tenho como testar aqui.

Sim. Foi alterado pelo eselvati na revisão 3032. Precisa ver com ele os motivos. Não achei na documentação onde está dizendo pra colocar o índice da alíquota. Isso é o que está fazendo o campo ficar com tamanho 7 ao invés de 5 (1 para tipo aliquota+ 4 aliquota) que estava antigamente. Se está lhe causando muitos problemas você tem liberdade para voltar para o código antigo: RFill(SIT_TRIB,1) + LFill(ALIQ,4) +[/code] EDIT: Obrigado por reportar, vamos aguardar ele se manifestar...

fiz o download aqui... depois do almoço eu vou analisar e submeter ao SVN.

Além da propriedade que você define se tem dados ou não, não consigo lembrar de nada que poderia impedir a gravação dos dados. Você precisa debugar e entrar no código do componente e verificar o motivo dele não entrar na parte do writeRegistroXXX que adiciona ao arquivo o registro esperado.

É só você criar os registros 50 como quiser. Você notou que lá no DEMO ele gera só um registro? Então, no seu código você gera um para CADA agrupamento de alíquota/CFOP. Simples assim.

Acredito que sim.

Mas o DEMO funciona certo? Você vai ter que debugar pra procurar o que ele está fazendo diferente.

Sim eu entendi o erro. Mas não tem como você conseguir passar as datas do registro 0205. Não existe propriedade DT_INI e DT_FIN no 0205. Você está confundindo as propriedades TACBrSPEDPISConfins.DT_INI e TACBrSPEDPISConfins.DT_FIN com TRegistro0205.DT_INI e TRegistro0205.DT_FIM. Veja o tópico que citei acima. Repito, essas duas últimas não estão implementadas. O que provavelmente está acontecendo é que para cada registro 0205 você está alterando as datas do componente e não do Registro0205.

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.

Já enviei para o SVN. Favor atualizar seus fontes e testar. Obrigado,

Não entendi como é que ele pega a data do 0205 se no registro 0205 nem te possibilita colocar data... veja: viewtopic.php?f=23&t=3230&p=15042&hilit=0205#p15042

Já corrigi registros semelhantes no SPEDFiscal e Sintegra. Poderia, por favor, alistar quais são os campos e os registros? O código eu mesmo ajeito...

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.

E como deveria ser? Não entendi o problema...

Obrigado pelo retorno e pelas contribuições.

Toda vez que encontrar leitura X ou relatório X nos manuais TEF, entenda que é um Relatório Gerencial como o Fernando explicou. Isso confunde todo mundo...

Na verdade não... foi falha minha mesmo... Vou corrigir logo... foi mal aí... EDIT: Mas como eu fiz algumas alterações no código, você pode confirmar se está funcionando ok?