Registro 0111 gerando sem precisar

[rmc2001]

Boa tarde pessoal

tenho um caso aqui de uma empresa onde nao é necessario gerar o registro 0111. Os campos (Indicador Incid. Tribut. e Metodo Apropriacao Credito) estao devidamente preenchidos e o sistema n entra na rotina que alimenta o 0111. Só que estou com problemas que onde mesmo assim o componente gera o registro. De qquer forma ele está entrado na linha "if Assigned(Reg0110.Registro0111) then" da unit ACBrEPCBloco_0_Class.pas. O objeto Reg0110.Registro0111 é criado de qquer forma junto ao OnCreate do Registro0110, mas n quero alimenta-lo.

alguem ja passou por este problema?? como foi resolvido?

mto obrigado

Rafael

[EMBarbosa]

Olá Rafael,

Tente com o DEMO.

[rmc2001]

n sei se resolveria pq detectei dentro do componente isso.

penso eu que o prob esta na forma de verificar. somente o "if assigned" n resolveria pq o componente do 0111 é instanciado sempre.

[EMBarbosa]

Sempre que encontrar um erro você deve testar com o DEMO, pois pode ser um problema do seu código...

Eu testei aqui no DEMO e o erro não acontece. Então não me parece erro no componente.

[analista.edilson]

Quando eu marco o método "Apropriação direta" o registro 0111 não é gerado como dever

ser veja se esta setando o enumerado correto.

[AlexandreADC]

O Registro 0110 fica assim:

|0110|2||1|9|

e o 0111 fica:

|0111|0,00|0,00|0,00|0,00|0,00|

Maioria dos nossos clientes estão reclamando deste registro que aparece, quando não deveria aparecer.

PELO MANUAL:

Obrigatório (se no registro 0110 o Campo “COD_INC_TRIB” = 1 ou 3

e o Campo “IND_APRO_CRED” = 2)

Não Informado (se no registro 0110 o Campo “COD_INC_TRIB” = 2

ou o Campo “IND_APRO_CRED” =1)

No meu caso o o COD_INC_TRIB = 1 e o IND_APRO_CRED = '' (vazio pois só é informado quando o COD_INC_TRIB = 1 ou 3)

No componente gera SE Assigned(Reg0110.Registro0111), ou seja: Vai gerar SEMPRE.

No DEMO gerou:

|0000|002|0|0||01072012|31072012|NOME DA EMPRESA|11111111000191|ES|3200607|000000000|00|0|

|0001|0|

|0100|NOME DO CONTADOR|12345678909|123456|22222222000000|00000000|||||0000000000|0000000000||3200607|

|0110|2||1|

|0111|0,00|0,00|0,00|0,00|0,00|

|0140|1|NOME DO ESTABELECIMENTO 1|11111111000191|ES||3200607|||

|0150|1|NOME DO CLIENTE 1|1058||12345678909||3200607||ENDERECO DO CLIENTE 1|1|COMPLEMENTO DO CLIENTE 1|BAIRRO|

|0150|2|NOME DO CLIENTE 2|1058||12345678909||3200607||ENDERECO DO CLIENTE 2|2|COMPLEMENTO DO CLIENTE 2|BAIRRO|

|0150|3|NOME DO CLIENTE 3|1058||12345678909||3200607||ENDERECO DO CLIENTE 3|3|COMPLEMENTO DO CLIENTE 3|BAIRRO|

[AlexandreADC]

Desculpa a arrogância, mas o DEMO está bem defasado e atende poucos casos.

Tanto que as datas de lá estavam para 04/2011.

Acho que o Demo deve ser usado para aprendizagem: para aprender COMO gerar o arquivo, e não para efetuar testes de erros.

[EMBarbosa]

Não, provavelmente eu é que não me fiz entender corretamente.

"Testar com o DEMO" não quer dizer abrir o DEMO e apertar um botão esperando que o arquivo será gerado de forma a ser validado de acordo com as últimas regras de validação e exigências do fisco.

Significa que você deve conseguir reproduzir a mesma situação usando o código do DEMO ou fazendo as alterações nele, visto que ele é o que temos em comum. A não ser que você queira enviar o código fonte do seu aplicativo e seu banco de dados para terceiros para que consigamos reproduzir o erro e debugar seu aplicativo.

[AlexandreADC]

Estamos com problemas de comunicação então. Porque o problema é simples.

Bem, vamos falar de outra maneira então.

Está neste arquivo a correção.

ACBrEPCBloco_0_Class.pas

ACBrEPCBloco_0_Class.pas

[AlexandreADC]

analista.edilson: No nosso caso é proporcional, não tem outro jeito.

[Isaque Pinheiro]

Estamos com problemas de comunicação então. Porque o problema é simples.

Bem, vamos falar de outra maneira então.

Está neste arquivo a correção.

Correção feita como diz o manual, alteração disponivel no SVN.

[AlexandreADC]

Obrigado Isaque Pinheiro!

Ficou certinho 100% e melhorando!

[EMBarbosa]

Se o componente está gerando um Registro 0111 sempre e ele pode não ser obrigatório, então temos um vazamento de memória indesejado (memory leak).

[Isaque Pinheiro]

Se o componente está gerando um Registro 0111 sempre e ele pode não ser obrigatório, então temos um vazamento de memória indesejado (memory leak).

Ei Elton, não entendi.

[EMBarbosa]

O Alexandre mencionou que o ACBrSPED fazia apenas o teste de if Assigned(Reg0110.Registro0111) e disse que assim vai gerar sempre.

Então me parece que está errado.

Se o usuário não criou o registro0111 o ACBrSPED não deve criá-lo sozinho já que não é um registro obrigatório. Vou verificar e dou um retorno.

[Isaque Pinheiro]

O Alexandre mencionou que o ACBrSPED fazia apenas o teste de if Assigned(Reg0110.Registro0111) e disse que assim vai gerar sempre.

Então me parece que está errado.

Se o usuário não criou o registro0111 o ACBrSPED não deve criá-lo sozinho já que não é um registro obrigatório. Vou verificar e dou um retorno.

Mas nesse caso o pai cria os filhos automaticamente, ai o Assigned vai entrar no if, mas isso não quer dizer que eles tenham dados.

[EMBarbosa]

Sim. Realmente usei mal as palavras e não é um memory leak propriamente dito.

O que acontece é alocação de memória que não vai ser utilizada. Isso não causa impacto pois um TRegistro0111 é bem pequeno.

Peguei o componente pra olhar, mas aí surgiram alguns problemas aqui, que vou ter que verificar antes...