Eroni

Resolvido, problema de atribuição mesmo.

Boa tarde e obrigado Juliomar, na realidade este procedimento já fiz e descobri que o problema é outro. procedure TACBrSPEDContabil.IniciaGeracao; var intFor: integer; begin showmessage( fpath ); showmessage( arquivo ); // esta variavel chega aqui nula, sem valor if FInicializado then exit; if (Trim(Arquivo) = '') or (Trim(fPath) = '') then raise Exception.Create( ACBrStr('Caminho ou nome do arquivo não informado!')); FACBrTXT.NomeArquivo := FPath + Arquivo ; FACBrTXT.Reset; // Apaga o Arquivo e limpa memória InicializaBloco( Bloco_0 ) ; InicializaBloco( Bloco_I ) ; InicializaBloco( Bloco_J ) ; InicializaBloco( Bloco_9 ) ; /// Preparação para totalizações de registros. Bloco_0.Registro0990.QTD_LIN_0 := 0; Bloco_I.RegistroI990.QTD_LIN_I := 0; Bloco_J.RegistroJ990.QTD_LIN_J := 0; Bloco_9.Registro9990.QTD_LIN_9 := 0; Bloco_9.Registro9999.QTD_LIN := 0; for intFor := 0 to Bloco_9.Registro9900.Count - 1 do begin Bloco_9.Registro9900.Items[intFor] := nil; Bloco_9.Registro9900.Items[intFor].Free; end; Bloco_9.Registro9900.Clear; FInicializado := True; end;

Bom dia, poderia dizer como resolveu, pois estou enfrentando o mesmo problema. Grato.

Boa tarde amigo, você deve estar com algum item com CST diferente ou errado.

Comentei o codigo que gera a versão antiga e gerei o arquivo corretamente.

Resolvi comentando o código onde analiza a DT_INI, optei por gerar automaticamente a versão 2.00, acredito que não ficará assim definitivamente.

Consegui validar o Sped contabil, fazendo algumas alterações a meu jeito, acredito que não ficará definitivamente assim, mas resolvi, se quiser alguma ajuda por skype, estou a disposição.

Boa tarde, estou usando o Sped contábil, mas com alguns problemas ainda não resolvidos, mas estou mexendo e tentando resolver, uso o sped contábil, fiscal e contribuições. Pode entrar em contato sim, meu skype é eroni_americo.

Boa tarde, também estou com o mesmo problema, a DT_INI passado no registro 0000 entra como 01/01/2013, porém ao chegar neste registro o mesmo chega com 30/12/1899. Já tentei rastrear mas não consegui localizar onde está o problema.

Até agora ainda não descobri, o registro J100 está com o mesmo problema, onde tem DT_INI está vindo com o valor de 30/12/1899. No registro I030 no fonte ACBrECDBloco_I_Class onde tem if DT_INI >= EncodeDate(2013,01,01) then resolvi colocar if DT_EX_SOCIAL >= EncodeDate(2012,12,31) then e funcionou, porém no registro J100 não funciona. Continuando a tentar descobrir onde DT_INI ou está faltando atribuir o valor correto.

OK, Juliomar, obrigado pelas dicas e desculpe por não ter explicado desde o inicio, é que já tinha mencionado em outras ocasiões de outros tópicos e acabei esquecendo de mencionar. Vou tentar seguir os passos seguindo as datas agora a tarde e tentar descobrir.

É que eu uso uma outra linguagem e dentro dela eu chamo uma dll que faz a geração do arquivo. Essa dll é gerada em Deplhi, usando os componentes da ACBR. Então as parte que fornece os dados é na minha outra linguagem e a geração do arquivo é uma dll que é feita em Dephi.

Juliomar, o problema é que eu não tenho idéia de como tenho que checar isso, o componente que vc fala, é o fonte que eu gero a dll? A ocorrencia não foi encontrada, é algum outro fonte?

Alterei o fonte conforme abaixo, fiquei espeando a mensagem, mas não apareceu nada, será que esta função não está sendo chamada onde deveria? procedure TACBrSPEDContabil.SetDT_INI(const Value: TDateTime); begin showmessage( 'teste' ) ; // aqui - eroni showmessage( datetostr( Value ) ) ; // aqui - eroni FDT_INI := Value; // FBloco_0.DT_INI := Value; FBloco_I.DT_INI := Value; FBloco_J.DT_INI := Value; FBloco_9.DT_INI := Value; // if Assigned(FBloco_0) then begin FBloco_0.Registro0000.DT_INI := Value; end; end;

Obrigado Juliomar, é que não sou programador Delphi, uso uma outra linguagem, então vou apanhar um pouco para implementar os devidos debugs, mas vou me virando e posto o resultado aqui.