Sped ECF Disponibilizado do Trunk2

[Rodrigo - Digibyte]

Acabei de atualizar os fontes (meu AcbrSped.pas está atualizado) e os memory leaks voltaram. A primeira imagem são com as minhas alterações a segunda com o que está no trunk2.

Repetindo, segui exatamente o que estava numa unit do SpedPisCofins (não tem os overloads) e você disse que não é assim. Ela está errada? Realmente não sei o que estou fazendo de errado. Se puder realmente verificar e explicar como deve ser ajudaria porque pelas imagens dá pra ver que não está ok.

Do que conheço de OO na classe pai está declarado como virtual para ser implementada na filha. Essa implementação seria feita utilizando a diretiva Override e não Overload (que serve para criar métodos com o mesmo nome na mesma classe). Se a lógica é outra aguardo explicação ...

 

 

[Juliomar Marchetti]

Sim está correto! 100% certo

[Rodrigo - Digibyte]

Se está certo porque minhas units estão erradas ?

[colmanetti]

BLOCO P

Corrigido Unit´s ACBrECFBloco_P.pas e ACBrECFBloco_P_Class.pas

e validado no PVA.

 

 

ACBrECFBloco_P.pas

ACBrECFBloco_P_Class.pas

[Juliomar Marchetti]

No SVN  bloco X Y e P

[colmanetti]

Correção no Bloco Y  RegistroY570

linha 435: 

Campo Faltando LFill(IND_ORG_PUB)+  

 

 

 

 

ACBrECFBloco_Y_Class.pas

[Juliomar Marchetti]

No svn

[igcastro]

desculpa a minha insistencia Juliomar mas eu baixei o truk2 e não tem o ECF, voce poderia me passar o endereço completo para ver se não estou fazendo errado.

[Isaque Pinheiro]

O Link do Trunk2 é https://svn.code.sf.net/p/acbr/code/trunk2

[Juliomar Marchetti]

desculpa a minha insistencia Juliomar mas eu baixei o truk2 e não tem o ECF, voce poderia me passar o endereço completo para ver se não estou fazendo errado.

Você baixou do endereço certo? veja o isaque postou!

você usou o instalador?

[Juliano Rosa]

amigos, no Bloco Y, registros Y600 e Y611, mesmo informando o código do país correto (105) ele gera 14041900 no campo e da erro ao importar o arquivo.

é só mudar o LFILL no campo PAIS ?

[arielguareschi]

amigos, no Bloco Y, registros Y600 e Y611, mesmo informando o código do país correto (105) ele gera 14041900 no campo e da erro ao importar o arquivo.

é só mudar o LFILL no campo PAIS ?

Boa tarde,

 

Sim soh alterar o lfill

[Juliano Rosa]

Boa tarde

Ajustei o LFILL nos campos de CNPJ/CPF e PAÍS que estavam gerando erro no Bloco Y.

ACBrECFBloco_Y_Class.pas

[Juliomar Marchetti]

No svn!

[igcastro]

porque baixa e aparece a pasta ECF sem nada pelo instalador ACBrInstall_Trunk2

Editado 4 Setembro, 2015 por igcastro

[Juliomar Marchetti]

Porque ele faz parte do pacote SPED!

[Anderson_Neves]

Bom dia!

Estou gerando os Blocos X e Y desta forma:

procedure TFormADP514.BlocoX;
begin
  // Alimenta o componente com informações para gerar todos os registros do
  // Bloco X.
  with DMForm, SPEDEcf do
  begin
    // Abertura do Bloco X
    with Bloco_X.RegistroX001 do
    begin
      IND_DAD := idComDados;
    end;

    with Bloco_X.RegistroX430New do
    begin
      PAIS := 105;
    end;

    with Bloco_X.RegistroX450New do
    begin
      PAIS := 105;
    end;

  end;
end;

procedure TFormADP514.BlocoY;
var
begin
  // Alimenta o componente com informações para gerar todos os registros do
  // Bloco Y.
  with DMForm, SPEDEcf do
  begin
    // Abertura do Bloco Y
    with Bloco_Y.RegistroY001 do
    begin
      IND_DAD := idComDados;
    end;

    with Bloco_Y.RegistroY600New do
    begin
      DT_ALT_SOC := Y600DT_ALT_SOC.Date;
      DT_FIM_SOC := Y600DT_FIM_SOC.Date;
      PAIS := StrToInt(Y600PAIS.Text);
      IND_QUALIF_SOCIO := Y600IND_QUALIF_SOCIO.Value;
      CPF_CNPJ := Desformata(Y600CPF_CNPJ.Text);
      NOM_EMP := Y600NOM_EMP.Text;
      QUALIF := Y600QUALIF.Value;
      PERC_CAP_TOT := FormatFloat('0000', StrToFloatDef(Y600PERC_CAP_TOT.Text, 0));
      PERC_CAP_VOT := FormatFloat('0000', StrToFloatDef(Y600PERC_CAP_VOT.Text, 0));
      CPF_REP_LEG := Desformata(Y600CPF_REP_LEG.Text);
      QUALIF_REP_LEG := StrToInt(Y600QUALIF_REP_LEG.Value);
    end;

    with Bloco_Y.RegistroY611New do
    begin
      PAIS := StrToInt(Y600PAIS.Text);
      IND_PF_PJ := Y600IND_QUALIF_SOCIO.Value;
      CPF_CNPJ := Desformata(Y600CPF_CNPJ.Text);
      NOM_EMP := Y600NOM_EMP.Text;
      QUALIF := Y600QUALIF.Value;
    end;

  end;
end;

 

 

Porém no arquivo está gerando assim:

...

|X001|0|
|X990|2|
|Y001|0|
|Y800||Y800FIM|
|Y990|3|

 

...

Estou fazendo alguma coisa de errado?

Alguém teve este problema?

Obrigado.

[Juliano Rosa]

Acredito que está faltando o Write de cada bloco... 

Por exemplo: após alimentar o Bloco P inclua a seguinte linha:  

WriteBloco_P;

[Juliomar Marchetti]

Os fontes de vocês estão desatualizados pois revi o código e é chamado nos locais correto e gera o bloco!

[Anderson_Neves]

Acredito que está faltando o Write de cada bloco... 

Por exemplo: após alimentar o Bloco P inclua a seguinte linha:  

WriteBloco_P;

Obrigado pela resposta Juliano, mas estou alimentando os blocos como faço com os demais e eles estão sendo gerados.

Os fontes de vocês estão desatualizados pois revi o código e é chamado nos locais correto e gera o bloco!

Juliomar, atualizei meus fontes hoje de manhã, antes de gerar o arquivo.

Seria alguma dependência de bloco pai que não estou colocando (de acordo com o meu código acima)?

[Juliano Rosa]

Meus fontes estão atualizados. Mas o Juliomar tem razão, não é necessário forçar o Write. Na minha tela estava forçando porque peguei o exemplo de outro colega que estava assim. Já removi da minha tela e está gerando normalmente.

A diferença que vi no seu código é que eu coloco os registros filhos dentro dos registros pai assim:

with RegistroY001New do

begin

  IND_DAD := idComDados;

  with RegistroY600New do

  begin

...

  end;

end;

 

[Anderson_Neves]

Meus fontes estão atualizados. Mas o Juliomar tem razão, não é necessário forçar o Write. Na minha tela estava forçando porque peguei o exemplo de outro colega que estava assim. Já removi da minha tela e está gerando normalmente.

A diferença que vi no seu código é que eu coloco os registros filhos dentro dos registros pai assim:

with RegistroY001New do

begin

  IND_DAD := idComDados;

  with RegistroY600New do

  begin

...

  end;

end;

 

Ah...correto Juliano.

Provavelmente é esse o problema, obrigado.

[arielguareschi]

Boa tarde Senhores,

 

Segue as units do bloco C, implementado os métodos conforme o manual.

Porém ainda não as testei, conforme já havia postado este registro deve ser importado de um sped contabil, tanto que alguns registro pedi até o número da linha em que este registro esta no arquivo.

 

ACBrECFBloco_C_Class.pas

ACBrECFBloco_C.pas

Boa tarde Senhores,

 

Segue as units do bloco C, implementado os métodos conforme o manual.

Porém ainda não as testei, conforme já havia postado este registro deve ser importado de um sped contabil, tanto que alguns registro pedi até o número da linha em que este registro esta no arquivo.

 

ACBrECFBloco_C_Class.pas

ACBrECFBloco_C.pas

Segue o arquivo ACBSpedECF, para poder totalizar os registros.

ACBrSpedECF.pas

[Juliomar Marchetti]

Boa noite

subi ao svn pois naõ tive como mexer mas peço que cuide pois sua indentação está diferente dos padrões do projeto!

terei que rever depois

[arielguareschi]

Bom dia Pessoal,

No Bloco M -> Registro M010 o campo COD_TRIBUTO esta com o integer na versão que está no SVN, porém no manual o mesmo deve ser caractere [ I ; C ], alguém está mexendo neste bloco, que possa alterar a propriedade? ou posso mandar a correção?