Ir para conteúdo
  • Cadastre-se

newsige

Membros
  • Total de ítens

    11
  • Registro em

  • Última visita

Posts postados por newsige

  1. Boa tarde,

     

    Hoje fui tentar inutilizar uma faixa de numeração de NFE e apresentou uma falha nos schemas.

     

    Já tentei atualizar os schemas e o erro persiste. Alguem sabe me informar se houve alguma mudança ou algo parecido?

     

    Obrigado pela atenção.

     

    post-6673-0-25782400-1434664585_thumb.jp

    post-6673-0-25782400-1434664585_thumb.jp

  2. Resolvido como o Alexandreac informou. A function ficou assim:

     

    function TACBrConsultaCPF.Consulta(const ACPF, DataNasc,  ACaptcha: String;
      ARemoverEspacosDuplos: Boolean): Boolean;
    var
      Post: TStringStream;
      Erro: String;
      Resposta : TStringList;
    begin
      Erro := ACBrValidadorValidarCPF( ACPF ) ;
      if Erro <> '' then
         raise EACBrConsultaCPFException.Create(Erro);

      //txtCPF=11122334410&txtToken_captcha_serpro_gov_br=299218104152138191166941752496584741018616278361624164&txtTexto_captcha_serpro_gov_br=ZCI8B9&Enviar=Consultar
      Post:= TStringStream.Create('');
      try

     

       //acredito que irão mudar esse tempTxtCPF, tempTxtNascimento, temptxtToken e temptxtTexto_captcha_serpro_gov_br para como era anteriormente
        Post.WriteString('tempTxtCPF='+ACPF+'&');
        Post.WriteString('tempTxtNascimento='+datanasc+'&');
        Post.WriteString('temptxtToken_captcha_serpro_gov_br='+FTokenCaptcha+'&');
        Post.WriteString('txtTexto_captcha_serpro_gov_br='+Trim(ACaptcha)+'&');
        Post.WriteString('temptxtTexto_captcha_serpro_gov_br='+Trim(ACaptcha)+'&');
        Post.WriteString('Enviar=Consultar');

        Post.Position:= 0;

        HttpSend.Clear;
        HttpSend.Document.Position:= 0;
        HttpSend.Document.CopyFrom(Post, Post.Size);
        HTTPSend.MimeType := 'application/x-www-form-urlencoded';
        HTTPPost('http://www.receita.fazenda.gov.br/aplicacoes/atcta/cpf/ConsultaPublicaExibir.asp');

        Erro := VerificarErros(RespHTTP.Text);

        if Erro = '' then
        begin
          Result:= True;
          Resposta := TStringList.Create;
          try
            Resposta.Text := StripHTML(RespHTTP.Text);
            RemoveEmptyLines( Resposta );

            //DEBUG:
            //Resposta.SaveToFile('C:\temp\cpf.txt');

            FCPF      := LerCampo(Resposta,'No do CPF:');
            FNome     := LerCampo(Resposta,'Nome da Pessoa Física:');
            FSituacao := LerCampo(Resposta,'Situação Cadastral:');
            FEmissao  := LerCampo(Resposta,'Comprovante emitido às:');
            FCodCtrlControle   := LerCampo(Resposta,'Código de controle do comprovante:');
            FDigitoVerificador := LerCampo(Resposta,'Digito Verificador:');

          finally
            Resposta.Free;
          end ;

          if Trim(FNome) = '' then
            raise EACBrConsultaCPFException.Create('Não foi possível obter os dados.');

          if ARemoverEspacosDuplos then
          begin
            FNome := RemoverEspacosDuplos(FNome);
          end;
        end
        else
        begin
          Result:= False;
          raise EACBrConsultaCPFException.Create(Erro);
        end;
      finally
        Post.Free;
      end;
    end;

     

     

    Estou encaminhando o arquivo em anexo.

    ACBrConsultaCPF.pas

    • Curtir 2
  3. Boa noite,

     

    Comigo ocorre 19 erros, incluindo esse mesmo erro que o Raffael comentou. Já desinstalei, efetuei a limpeza conforme segue nos tópicos anteriores e mesmo assim... o AcbrInstall não consegue instalar sozinho, tenho que instalar manualmente, e quando vou instalar o Acbr ESC POS ele repassa esses mesmos erros indicados acima.

     

    Alguém tem algum tipo de informação diferente para passar?

  4. Boa noite a todos... então o problema que indiquei acima é o mesmo que o Adriano indicou. Como foi mencionado para atualizar os fontes... tentei mas acho que o servidor do SVN está com problema pois esta dando erro quando tento acessar com o tortoise... indica que a pasta temporária do servidor esta com problemas... tentei em duas máquinas diferentes. O que pode ser?

  5. Então... eu dei uma olhada nos fontes do programa demo que veio... Ele gera a RPS normalmente ... mas se utilizo o botão Gerar e enviar lote ele da um erro gigante dizendo que não foi possível carregar o arquivo: <EnviarLoteRpsEnvioxmlns.................................... e por ai vai... o erro é tão grande que não da nem para interpretar. O que poderia ser?

  6. Fiquei sabendo que Maringá teria sido incluída na ACBR... eu vi no fonte do ACBrProvedorISSe.pas que Maringá já está incluída. Nesse caso seria somente incluir o nome de Maringá na combobox de cidades e colocar os schemas dentro da pasta ISSe? Onde colocaria os Schemas fornecidos pela cidade?

×
×
  • 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.