ACBrGNRE na Trunk2

[Leandro_Silva]

FRetorno.numeroRecibo := FEnviar.numero;

ta ficando vazio

retosno do WS

'<?xml version="1.0" encoding="utf-8"?><soapenv:Envelope xmlns:soapenv="http://www.w3.org/2003/05/soap-envelope" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"><soapenv:Body><gnreRespostaMsg xmlns="http://www.gnre.pe.gov.br/webservice/GnreResultadoLote"><ns1:TResultLote_GNRE xmlns="http://www.gnre.pe.gov.br" xmlns:ns1="http://www.gnre.pe.gov.br"><ns1:ambiente>1</ns1:ambiente><ns1:situacaoProcess><ns1:codigo>503</ns1:codigo><ns1:descricao>O valor do campo ''numeroRecibo'' est&#xE1; inv&#xE1;lido. O valor deve possuir 10 caracteres num&#xE9;ricos!</ns1:descricao></ns1:situacaoProcess></ns1:TResultLote_GNRE></gnreRespostaMsg></soapenv:Body></soapenv:Envelope>'

 

Arrumou isso Cesar ?

[Cesar Balbinott]

faz o seguinte na procedure TGNRERetRecepcao.Clear;

vc comenta a linha FnumeroRecibo := '';

[Lucas Peres]

Olá, segue uma pequena alteração que tive que fazer para imprimir as guias:

Index: ACBrGNRE2.pas
===================================================================
--- ACBrGNRE2.pas	(revision 11198)
+++ ACBrGNRE2.pas	(working copy)
@@ -141,6 +141,7 @@
 
   FGuias := TGuias.Create(Self, Guia);
   FWebServices := TWebServices.Create(Self);
+  FGuiasRetorno := TGuiasRetorno.Create(Self, GuiaRetorno);
 end;
 
 destructor TACBrGNRE.Destroy;

 

 

 

impressao.patch

[Leandro_Silva]

Também fiz essa alteração, isso se fez necessario pois dava um clear em um obj nao instanciado...

[Juliomar Marchetti]

Atualizem o svn pois subi as mudanças sugeridas e fiz algumas outras!

lembrando de recompilar os componentes

[carlosmarian]

Olá,
  estou começando os testes com o GNRe.

  De início ao tentar fazer uma consulta de configurações estou tendo um problema.
  Faço as atribuições da seguinte forma:

  ACBrGNRE.WebServices.ConsultaUF.Uf := 'SC';
  ACBrGNRE.WebServices.ConsultaUF.Executar;

O XML é gerado da seguinte forma:

<TConsultaConfigUf xmlns="http://www.gnre.pe.gov.br">
<ambiente>2</ambiente>
<uf/>
</TConsultaConfigUf>

Ao debugar a rotina que gera o xml, o atributo fUf esta vazio.

O que posso estar fazendo errado?

 

Outro fato que é estou recebendo a mensagem "12045 - A autoridade de certificação não é válida ou está incorreta.", para contornar este erro passei a usar "libCapicomDelphiSoap" no atributo "SSLLib". 

 

Obrigado pela atenção.

[Juliomar Marchetti]

3 minutos atrás, carlosmarian disse:

Olá,
  estou começando os testes com o GNRe.

  De início ao tentar fazer uma consulta de configurações estou tendo um problema.
  Faço as atribuições da seguinte forma:

  ACBrGNRE.WebServices.ConsultaUF.Uf := 'SC';
  ACBrGNRE.WebServices.ConsultaUF.Executar;

O XML é gerado da seguinte forma:

<TConsultaConfigUf xmlns="http://www.gnre.pe.gov.br">
<ambiente>2</ambiente>
<uf/>
</TConsultaConfigUf>

Ao debugar a rotina que gera o xml, o atributo fUf esta vazio.

O que posso estar fazendo errado?

 

Outro fato que é estou recebendo a mensagem "12045 - A autoridade de certificação não é válida ou está incorreta.", para contornar este erro passei a usar "libCapicomDelphiSoap" no atributo "SSLLib". 

 

Obrigado pela atenção.

Por favor pesquisa no fórum!

tem até um tópico onde é informado como usar! e relato de usuário já emitindo!

[carlosmarian]

Olha por favor se alguém conseguiu fazer uso do método de consulta de configuração(ACBrGNRE1.WebServices.ConsultaUF.Executar) e teve retorno correto, por favor de um retorno, realmente não consegui efetuar consulta.
Tbm não achei post que detalhe este procedimento, como indicado pelo Juliomar.

At+

[Juliomar Marchetti]

 

[carlosmarian]

Fiz alguns pequenos ajustes na rotina de consulta de configuração de UF, se possível verificar se estão corretos..
Tbm incrementei o exemplo para permitir na consulta informa a Uf e a Receita a ser consultada.

Obrigado.

Trunk2.zip

[Leandro_Silva]

Bom dia, segue algumas melhorias feita, quando ia transmir pra SC tava dando acesso violado e erro de data na impressão.

unit: ACBrGNREGuiaFRDM

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;

-------------------------------------------------------------------------------------------------------------------------------------

 

      if DataLimitePagamento = '00000000' then
        FieldByName('DataLimitePagamento').AsDateTime := FieldByName('DataVencimento').AsDateTime
      else
        FieldByName('DataLimitePagamento').AsDateTime := StrToDate(FormatarData(DataLimitePagamento));

 

[Juliomar Marchetti]

Anexa o arquivo @Leandro_Silva

[Leandro_Silva]

Segue.

ACBrGNREGuiaFRDM.pas

[Juliomar Marchetti]

no svn as alterações dos dois!

favor testar

[Fernando Rodrigo]

boa noite a todos,

alguem tem o demo para que possa dar uma verificada ?

preciso implementar em meu sistema

Editado 14 Março, 2016 por Fernando Rodrigo

[Juliomar Marchetti]

1 hora atrás, Fernando Rodrigo disse:

boa noite a todos,

alguem tem o demo para que possa dar uma verificada ?

preciso implementar em meu sistema

Verificar o que?

muito curto o que escreveu!

[Fernando Rodrigo]

9 horas atrás, Juliomar Marchetti disse:

Verificar o que?

muito curto o que escreveu!

So precido de um demo para fazer e imprimir a guia e implementar no meu sistema. Acho que o que vem no acbr não esta funcionando corretamente, se estiver errado por favor anexe o executável ou os fontes para eu testar.

[Juliomar Marchetti]

Verei como está mas já te explico como que tu faz pra testar! e também rodar!

insere um ACBrGNRE e um ACBrGNREGuiaXXX

vincula um componente ao outro! e ele ao finalizar o GNRE já trará a impressão! ou pode carregar o arquivo e chamar a impressão!

[Fernando Rodrigo]

a vinculação do componente eu ja fiz, agora o preenchimento dos campos, como faço

[Cesar Balbinott]

Bom dia Fernando, anexa teu código de alimentação do componente.

[Fernando Rodrigo]

56 minutos atrás, Cesar Balbinott disse:

Bom dia Fernando, anexa teu código de alimentação do componente.

Bom dia Cesar, o que peguei foi o demo do proprio acbr.

 

Delphi.rar

[Cesar Balbinott]

Fiz uma alteração aqui no demo da gnre, se você está recebendo a mensagem que não foi informado TDadosGNRE você tem que passar este comando antes de enviar a gnre.

ACBrGNRE1.Guias.GerarGNRE;

Fazendo isso já consegue enviar, eu estou enviando em produção, pois ainda não consegui resolver o problema do envio em homologação.

[gutembergscosta]

28 minutos atrás, Cesar Balbinott disse:

Fiz uma alteração aqui no demo da gnre, se você está recebendo a mensagem que não foi informado TDadosGNRE você tem que passar este comando antes de enviar a gnre.

ACBrGNRE1.Guias.GerarGNRE;

Fazendo isso já consegue enviar, eu estou enviando em produção, pois ainda não consegui resolver o problema do envio em homologação.

Na verdade não deveria ser necessário pois o método enviar já invoca o GerarGNRE, vide trecho abaixo;

Acontece que o método deve ser chamado antes de checar as quantidades, logo após o begin.

OS commiteres poderiam efetuar a alteração e disponibilizar para atualizar.

Obrigado!  . 

function TACBrGNRE.Enviar(Imprimir: Boolean): Boolean;
var
  i: Integer;
begin

if Guias.Count <= 0 then
    GerarException(ACBrStr('ERRO: Nenhuma GNRE adicionada ao Lote'));

  if Guias.Count > 50 then
    GerarException(ACBrStr('ERRO: Conjunto de GNRE transmitidas (máximo de 50 GNRE)' +
      ' excedido. Quantidade atual: ' + IntToStr(Guias.Count)));

  Guias.GerarGNRE;

  Result := WebServices.Envia;

  if FGNREGuia <> nil then
  begin
    for i := 0 to Guias.Count - 1 do
    begin
      if Guias.Items.Confirmada and Imprimir then
        Guias.Items.Imprimir;
    end;
  end;

end;

[Juliomar Marchetti]

Sugestões basta anexar o arquivo que é avaliado!

[gutembergscosta]

2 minutos atrás, Juliomar Marchetti disse:

Sugestões basta anexar o arquivo que é avaliado!

Anexo, 

Obrigado!

ACBrGNRE2.pas