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.

Boa tarde, Juliomar, obrigado pela ajuda, seguindo suas instruções, coloquei um aviso no ponto que você mencionou, a data que estou passando como parâmetro do meu sistema é 01/01/2013 e o valor que está chegando lá é 30/12/1899, conforme a imagem que anexei. Alguma idéia de onde posso estar errando? Antecipadamente obrigado pela atenção.

Boa noite, estou gerando o arquivo na versão 2.00, o registro 0000 gera os campos adicionais que foram criados normalmente, porém o registro I030 insiste em gerar como na versão 1.00, mesmo eu passando os parametros corretos na chamada da função, as datas serem de 2013 e a versao passada no registro I010 ser 2.00, alguem já passou por isso? Boa noite a todos.

Obrigado EMBarbosa. Resolvido.

Sim, eu conferi o codigo que tenho aqui em ACBrECDBloco_I.pas e está igual ao seu acima. Mas não consegui entender o que preciso mexer.

Boa tarde, Juliomar, acredito que estes erros deve ser minha falta de conhecimento em Delphi mesmo, a ultima vez que eu trabalhei com Delphi estava na versão 5 ainda, de la pra cá não mexi mais, meu aplicativo é em outra ferramenta. Mas vou tentar voltar a ter a mesma prática que tinha antes, e assim, também vou poder contribuir para esta comunidade. Alguma dica de documentação para quem está enferrujado? Grato.

Bom dia, no meu caso, na geração da dll, o erro está dando neste ponto: Function RegistroI015(SEQ_ITEM:integer; COD_CTA_RES: PChar): Integer; Export; stdcall; begin Result := 0; try SC.Bloco_I.RegistroI015.New; // erro aqui SC.Bloco_I.RegistroI015.Items[sEQ_ITEM].COD_CTA_RES := COD_CTA_RES; // erro aqui except Result := -1; end; end;

Olá, também estou com o mesmo problema, CharlesCmS, conseguiu resolver?

Grato EMBarbosa.

Bom dia, acredito que sim, pois eu uso gerando uma dll em Delphi que abro na minha aplicação que é feita em outra linguagem. Mas tem que saber Delphi para gerar a dll.

Bom dia, recentemente tive que formatar o pc e re-instalar o Delphi, quando recompilo um projeto que gera dll, funciona na minha máquina onde o Delphi está instalado, mas em outra máquina não funciona, diz que está faltando o arquivo rtl100.bpl. já procurei tutorial sobre o assunto mas não encontrei, alguem sabe o que ocorre? Grato a todos.