Ir para conteúdo
  • Cadastre-se

Leandro_Silva

Membros
  • Total de ítens

    90
  • Registro em

  • Última visita

  • Days Won

    1

Posts postados por Leandro_Silva

  1. estou quase chegando la...

    ja ja posto aqui

     

    function TDFeWebService.Executar: Boolean;

    Adicionei :"Result := True;" apos a chamada do metodo  SalvarResposta

    ---------------------------
    Aviso
    ---------------------------
    Erro ao transmitir GNRE! URL não definida para: TGNRERetRecepcao
    ---------------------------
    OK   
    ---------------------------

     

    Arquivo ini esta errado ?
         

  2. Problema esta aqui: ACBrGNREWebServices

     

    procedure TGNRERecepcao.DefinirDadosMsg;
    var
      i: Integer;
      vGuias: WideString;
    begin
      vGuias := '';
      for i := 0 to FGuias.Count - 1 do
        vGuias := vGuias + FGuias.Items.XML;                                                                        --------------------------> retonar vazio

      FPDadosMsg := '<TLote_GNRE xmlns="http://www.gnre.pe.gov.br">' +
                    '<guias>' + vGuias + '</guias>' +
                   '</TLote_GNRE>';

      if Length(FPDadosMsg) > (300 * 1024) then
        GerarException(ACBrStr('Tamanho do XML de Dados superior a 300 Kbytes. Tamanho atual: ' +
          IntToStr(trunc(Length(FPDadosMsg) / 1024)) + ' Kbytes'));
    end;

     

    ja ja descubro o furo..

    Cesar nao intendi sua pergunta...

  3. Boa tarde, a todos, estou usando o fonte que esta no svn agora, vou começa postar aqui oque tiver que arrumar

    e os erros que to vendo caso alguém ja tenha passado e quiser se manifestar agradeço.

    1) erro  Acesso violado na linha ACBrGNRE1.GuiasRetorno.Clear;

      Correção: classe: ACBrGNRE2

                       metodo: constructor TACBrGNRE.Create(AOwner: TComponent);
                       solução: Adicionar a linha (FGuiasRetorno := TGuiasRetorno.Create(Self, nil);  // ++)

                       metodo: destructor TACBrGNRE.Destroy;

                       adicionar linha: FGuiasRetorno.Free;

     

    depois de mecher no ini de configurações : 

    [GNRE_PE_P]
    GnreRecepcao=https://www.gnre.pe.gov.br/gnreWS/services/GnreLoteRecepcao

    [GNRE_PE_H]
    GnreRecepcao=https://www.testegnre.pe.gov.br/gnreWS/services/GnreLoteRecepcao

     

    cheguei nesse erro em anexo.: 

     

    Alguem passou por isso ?

     

                         

     

                      

     

     

    Erro.PNG

  4. 52 minutos atrás, NilsonJ disse:

        Olá @Juliomar Marchetti, obrigado pelo seu retorno. Sim, entendo isso, por isso está sendo feito a parte, não sei se as modificações estão em acordo com os critérios das mudanças do TRUNK2, mas entendo que se funcionar no trunk2 já vai nos ajudar bastante, principalmente por não precisar de ter 2 ambientes, e talvez essas modificações será de grande ajuda ao pessoal que modificou no TRUNK2 e possam fazer os acertos necessários para subir para o SVN. Por enquanto agradecido as pessoas que modificarão para funcionar no trunk2, continuarei a fazer testes baseado nesta modificações, creio que não será serviço perdido pois modificar para o trunk1 não será tão complexo. Em relação ao erro no demo do acbrgnre ocorre o erro de exception na linha 1251 "Stream.Free" do acbrGNREwebServices, se alguém tiver alguma ideia.

               Obrigado,

                     Nilson.

     

    Ele esta sendo destruído duas veses ai da acesso violado.

    • Curtir 1
  5.  

    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.

  6. 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.

     

  7. 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;

  8. 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;

  9. 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...

     

     

  10. Bom dia, acabei descobrindo as configurações corretas para funcionar, porem o peso nao fica 100% correto

    string que vem da balança:

     

     '000000'#$D#2',p 000040000000'#$D#2',p 000040000000'#$D#2',p 000040000000'#$D#2',p 000040000000'#$D#2',p 000040000000'#$D#2',p 000040000000'#$D#2',p 000040000000'#$D#2',p 000040000000'#$D#2',p 000040000000'#$D#2',p 000040000000'#$D

    0,40 kg

    se tiverem alguma sugestão ficarei grato.

     

     

  11. Em 13/11/2015 10:02:44, fr.rodrigo disse:
    13 minutos atrás, Daniel Simoes disse:

    Seus fontes parecem estar defasados... essa String recebida, não seria reconhecida como "Protocolo A" na implementação existente no SVN

    Mesmo assim, a String recebida não se assemelha com nenhum dos protocolos suportados pela Toledo (parece com lixo de transmissão)... provavelmente você precisa configurar corretamente os parâmetros da Serial no ACBrBAL.Device

     

     

    Assim que consegui vou testar com esse projeto que tenho com o trunk 2, no hiper terminal le certinhu... mais blza depois posto aqui as novidades.vlw.

     

     

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.