ACBrGNRE na Trunk2

[dantemartins]

Eu cheguei a compilar o demo e vi que abria, mais não tinha feito o mesmo teste que você, de jogar o componente da palheta num form, aqui tá dando um AV.

To tentando descobrir o que é... acho que tem a ver com o create do TWebService.

[dantemartins]

Entendi o erro...

Deixa o Create do componente como abaixo, não vai mais dar o AV.

constructor TACBrGNRE.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  FGuias := TGuias.Create(Self, Guia);
  FGuiasRetorno := TGuiasRetorno.Create(Self, GuiaRetorno);
  FGuias.Configuracoes := Configuracoes;
  FWebServices := TWebServices.Create(Self);

{$IFDEF ACBrGNREOpenSSL}
  GNREUtil.InitXmlSec;
{$ENDIF}

  FOnGerarLog := nil;
end;

 

Editado 15 Dezembro, 2015 por dantemartins

[gutembergscosta]

15 minutos atrás, dantemartins disse:

Entendi o erro...

Deixa o Create do componente como abaixo, não vai mais dar o AV.

constructor TACBrGNRE.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  FGuias := TGuias.Create(Self, Guia);
  FGuiasRetorno := TGuiasRetorno.Create(Self, GuiaRetorno);
  FGuias.Configuracoes := FConfiguracoes;
  FWebServices := TWebServices.Create(Self);

{$IFDEF ACBrGNREOpenSSL}
  GNREUtil.InitXmlSec;
{$ENDIF}

  FOnGerarLog := nil;
end;

 

Assim passa, mas não cria as propriedades no componentes para as configurações.

[dantemartins]

Agora aparece as Configurações, porém acho que tem que fazer ajustes ainda...

ACBrGNRE_Package.7z

ACBrGNRE_Fontes.7z

Editado 15 Dezembro, 2015 por dantemartins

[gutembergscosta]

52 minutos atrás, dantemartins disse:

Agora aparece as Configurações, porém acho que tem que fazer ajustes ainda...

ACBrGNRE_Package.7z

ACBrGNRE_Fontes.7z

Legal ... Agora foi ...

Poderia disponibilizar as DCUs para emissão da Guia em Fortes Report ?

ACBrGNREGuiaFRFortes.dcu

Obrigado! 

[dantemartins]

Em 15/12/2015 at 19:12, gutembergscosta disse:

Legal ... Agora foi ...

Poderia disponibilizar as DCUs para emissão da Guia em Fortes Report ?

ACBrGNREGuiaFRFortes.dcu

Obrigado! 

Não mexi no fortes porque não tenho ele instalado, mas vou dar uma olhada quando der tempo.

[dantemartins]

Em 15/12/2015 at 19:12, gutembergscosta disse:

Legal ... Agora foi ...

Poderia disponibilizar as DCUs para emissão da Guia em Fortes Report ?

ACBrGNREGuiaFRFortes.dcu

Obrigado! 

 

ACBrGNREGuiaFRFortes.dcu

[NilsonJ]

  Bom dia, alguém fez testes na GNRE com essas modificações utilizando a instalação do trunk2?, estou implementando essa funcionalidade e se for o caso já faço com essas modificações, como é a primeira vez que estou utilizando o componente se der erros não saberei se o erro é na aplicação ou no componente, por isso gostaria de utiliza-lo já testado por alguém que tenha conhecimento de como funciona.

                   Atenciosamente,

 

                             Nilson.

 

[gutembergscosta]

4 minutos atrás, NilsonJ disse:

  Bom dia, alguém fez testes na GNRE com essas modificações utilizando a instalação do trunk2?, estou implementando essa funcionalidade e se for o caso já faço com essas modificações, como é a primeira vez que estou utilizando o componente se der erros não saberei se o erro é na aplicação ou no componente, por isso gostaria de utiliza-lo já testado por alguém que tenha conhecimento de como funciona.

                   Atenciosamente,

 

                             Nilson.

 

Está compilável e instalável pelos fontes disponibilizados aqui (mensagens anteriores), contudo, não prosseguir com os testes pois esto de férias ... será necessário fazer os testes utilizando o certificado para identificação de possíveis erros...

[Rodrigo Sidney]

Depois que estiver funcionando corretamente, este componente é capaz de gerar as GNREs relacionadas ao ICMS Interestadual?

Mesmo para estados como São Paulo que possuem forma diferente de gerar Gnre?

Obrigado

[NilsonJ]

  Obrigado Gutemberg, vou aguardar, talvez o Dante já tenha feito testes.

          Atenciosamente,

               Nilson.

7 minutos atrás, Rodrigo Sidney disse:

Depois que estiver funcionando corretamente, este componente é capaz de gerar as GNREs relacionadas ao ICMS Interestadual?

Mesmo para estados como São Paulo que possuem forma diferente de gerar Gnre?

Obrigado

  Bom dia Rodrigo, sim o sistema tem a condição de transmitir, gerar e imprimir as GNRE relacionadas aos estados que integram o sistema de GNRE, você pode obter mais informações no site  (http://www.testegnre.pe.gov.br/gnre/portal/automacao.jsp#) que é o de testes.

             Atenciosamente,

                        Nilson.

[Leandro_Silva]

Boa tarde senhores, tentei fazer uns testes mais não consegui esta dando erro:

'Erro: Requisição não enviada.'#$D#$A'12045 - A autoridade de certificação não é válida ou está incorreta'

tive dando uma olhada na classe ACBrGNREWebServices.pas foi modificada ?

so pra constar meu pc emite nota de consumidor normal.. achei que poderia ser o capicom...

 

 

[Leandro_Silva]

A mensagem anterior pode desconsiderar foi barbeiragem minha.

Testes efetuados nos estados: AC,PB,RS,TO,PE,PI,AL,MT,MA,MG,SE

Ajustes no fonte

ACBrGNREGuiaFRDM.pas

linha 296: FieldByName('DataLimitePagamento').AsDateTime := StrToDateDef(FormatarData(DataLimitePagamento),StrToDate(FormatarData(DataVencimento)));

metodo:

function RemoverZeros(Str: string): string;
  begin
    if Str <> '' then
    begin
      while (Str <> '') and (Str[1] = '0') do
        Str := Copy(Str, 2, Length(Str));
    end;

    Result := Str;
  end;

 

 

Faltou esse:

 

function FormatarData(Str: string): string;
  begin
    if Trim(Str) <> '00000000' then
      Result := Copy(Str, 1, 2) + '/' + Copy(Str, 3, 2) + '/' + Copy(Str, 5, 4);
  end;

[gutembergscosta]

Agora, Leandro_Silva disse:

A mensagem anterior pode desconsiderar foi barbeiragem minha.

Testes efetuados nos estados: AC,PB,RS,TO,PE,PI,AL,MT,MA,MG,SE

Ajustes no fonte

ACBrGNREGuiaFRDM.pas

linha 296: FieldByName('DataLimitePagamento').AsDateTime := StrToDateDef(FormatarData(DataLimitePagamento),StrToDate(FormatarData(DataVencimento)));

metodo:

function RemoverZeros(Str: string): string;
  begin
    if Str <> '' then
    begin
      while (Str <> '') and (Str[1] = '0') do
        Str := Copy(Str, 2, Length(Str));
    end;

    Result := Str;
  end;

 

 

Faltou esse:

 

function FormatarData(Str: string): string;
  begin
    if Trim(Str) <> '00000000' then
      Result := Copy(Str, 1, 2) + '/' + Copy(Str, 3, 2) + '/' + Copy(Str, 5, 4);
  end;

Bom dia, uma pergunta ...

Esses fontes que estão em testes, sofrendo alteração e funcionais estão no SVN /; Trunk2 ou estão em outra fonte para baixar?

 

[Leandro_Silva]

Baxei aqui nesse topico mesmo postado pelo sr gutembergscosta

[gutembergscosta]

Agora, Leandro_Silva disse:

Baxei aqui nesse topico mesmo postado pelo sr gutembergscosta

É que eu estava testando ..

Porém estou de férias e estou  meio por fora das alterações novas que foram realizadas ... O último teste que realizei não estava transmitido ... apresentava um erro ...

[Leandro_Silva]

Segue os fontes caso tenha deixado passa algo...

src.rar

3 minutos atrás, gutembergscosta disse:

É que eu estava testando ..

Porém estou de férias e estou  meio por fora das alterações novas que foram realizadas ... O último teste que realizei não estava transmitido ... apresentava um erro ...

Arrumei tbm um acesso violado que dava... 

no obj: TGNRERetRecepcaoLote

metodo: function Executar: Boolean; override;

[gutembergscosta]

6 minutos atrás, Leandro_Silva disse:

Segue os fontes caso tenha deixado passa algo...

src.rar

Arrumei tbm um acesso violado que dava... 

no obj: TGNRERetRecepcaoLote

metodo: function Executar: Boolean; override;

Disponibiliza aqui então os fontes atualizados que corrigiram os problemas desde a ultima postagem dos fontes aqui no tópico.

Assim que está precisando usar já conseguirá progredir.

Abraços

Agora, gutembergscosta disse:

Disponibiliza aqui então os fontes atualizados que corrigiram os problemas desde a ultima postagem dos fontes aqui no tópico.

Assim que está precisando usar já conseguirá progredir.

Abraços

Desculpe não tinha visto o anexo ...

[rodrigoogioni]

Bom dia,

Instalei os componentes, e estou começando a testar, alguem tem algum exemplo de como preencher os campos?

Grato,

 

[rodrigoogioni]

Tentei enviar uma de teste, retornou a seguinte mensagem:

Requisição não enviada.
12045 - A autoridade de certificação não é válida ou está incorreta

Alguem tem alguma ideia?

[Leandro_Silva]

6 minutos atrás, rodrigoogioni disse:

Tentei enviar uma de teste, retornou a seguinte mensagem:

Requisição não enviada.
12045 - A autoridade de certificação não é válida ou está incorreta

Alguem tem alguma ideia?

Ja passei por isso se nao me ingano é o codigo da receita faltando GNRE.c02_receita ou invalido...

algo assim.

 

[rodrigoogioni]

Boa tarde,

estou inserindo este valor c02_receita := 100102;  que seria para impressão do difal.

Outra coisa que não estou me achando, é refente aos xmls, embora esteja setando nas pasta pathsalvar, mas não esta salvando.

Grato

[Leandro_Silva]

 

53 minutos atrás, rodrigoogioni disse:

Tentei enviar uma de teste, retornou a seguinte mensagem:

Requisição não enviada.
12045 - A autoridade de certificação não é válida ou está incorreta

Alguem tem alguma ideia?

Olha... nao fui afundo mais dentro da pasta da minha app gerou uma pasta Docs e fica tudo ali dentro.

[raosistemas]

Essa versão já está funcional? Gera a guia em fortes ou Fast?

Migrei para o Trunk2 agora preciso fazer umas adequações no sistema de GNRE.

Obrigado!

[NilsonJ]

  Bom dia, não seria interessante deixar somente um membro disponibilizando os fontes, pelo que entendi o @dantemartins fez a maioria das alterações e o @Leandro_Silva complementou então poderia deixar um dos dois como o moderador dos fontes até que depois de testado sejam liberados e possam ser carregados para o trunk2  por um dos moderadores, assim facilitaria na hora de disponibilizar os fontes por aqui mesmo. Também estou implementando e gostaria de instalar no trunk2, dessa forma não preciso ficar com 2 ambientes diferentes para trabalhar, o que acham?, Algum dos dois se habilita em ser o moderador?

   Obrigado,

            Nilson.