C010

[Fabricio]

Gostaria de saber porque é gerado automaticamente o registro C010 com CNPJ zerado, sendo que ao validar o arquivo diz que é inválido e duplicado.

[Filipe Sortica]

Olá Fabrício!

Terias como mostrar como tu estás preenchendo este registro?

[Fabricio]

Conteudo do codigo:

with Sped.Bloco_C do

begin

RegistroC001New.IND_MOV := imComDados;

RegistroC010New.CNPJ:= config.Cnpj;

// Participante(Entrada.Participante.ID);

if TConvertValuesBD.IndEscrNFeECF(config.Ind_ApuNfeEcf)=IndEscrConsolidado then

begin

RegistroC010New.IND_ESCRI := IndEscriConsolidado;

LancaBlocoC180Saida;

LancaBlocoC190Entrada;

end

else

begin

RegistroC010New.IND_ESCRI := IndEscriIndividualizado;

ListaEntradas;

end;

end;

==========================================================================

Conteudo do arquivo:

|C010|07518802000137|1|

|C010|00000000000000|1|

|C180|55|01012012|31012012|1|29051900||703.20|

|C181|01|5102|703.20|0.00|703.20|0.6500|||4.61||

|C185|01|5102|703.20|0.00|703.20|3.0000|||21.12||

|C180|55|01012012|31012012|2|15200010||237.68|

|C181|01|5102|237.68|0.00|237.68|0.6500|||1.59||

[Filipe Sortica]

Era o que eu imaginava...

Tu estás instanciando um registro C010:

RegistroC010New.CNPJ:= config.Cnpj;

e depois instanciando outro:

RegistroC010New.IND_ESCRI := IndEscriConsolidado;

ou

RegistroC010New.IND_ESCRI := IndEscriIndividualizado;

Tente fazer assim:

with Sped.Bloco_C do

begin

  RegistroC001New.IND_MOV := imComDados;

  with RegistroC010New do

  begin

    CNPJ:= config.Cnpj;

    // Participante(Entrada.Participante.ID);

    if TConvertValuesBD.IndEscrNFeECF(config.Ind_ApuNfeEcf)=IndEscrConsolidado then

    begin

      IND_ESCRI := IndEscriConsolidado;

      LancaBlocoC180Saida;

      LancaBlocoC190Entrada;

    end

    else

    begin

      IND_ESCRI := IndEscriIndividualizado;

      ListaEntradas;

    end;

  end;

end;

[Fabricio]

Funcionou, mas visualmente não vi muita diferença nos codigo, a unica diferença é que voce chama o metodo utilizando :

with RegistroC010New do

begin

CNPJ:= config.Cnpj;

e eu utilizei

RegistroC010New.CNPJ:= config.Cnpj;

Programação por programação o conceito é o mesmo, qual a finalidade de utilizar somente "with" para iniciar a classe?

[Filipe Sortica]

Visualmente parece igual.

Porém, o "RegistroC010New" é uma função. Cada vez que chamamos ela, um novo registro C010 é instanciado.

Utilizando o "with", apenas uma chamada é feita à função, apenas um registro é instanciado. E, dentro do escopo do "with", acessamos este registro e inserimos todas suas informações.