newsige
-
Total de ítens
11 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por newsige
-
-
Muito obrigado mesmo Italo. Não tinha encontrado esse posto no fórum e postei em outro o erro nos schemas que estava acontecendo... mas era justamente os dígitos do ano.
Obrigado mesmo.
-
-
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.
- 2
-
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?
-
Obrigado mesmo Gelson,
Implantei aqui e funcionou no Delphi 7 também.
Abraço.
-
Se eu não me engano você precisa de um certificado com padrão ICP Brasil para funcionar. Confira se seu certificado é desse padrão para poder testar melhor o exemplo.
-
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?
-
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?
-
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?
-
Existe algum demo para a implementação da NFSE para Maringá? Ou é o mesmo demo que vem com os fontes?
NFe sem protocolo de autorização
em ACBrNFe
Postado
Estou com o mesmo problema.
O detalhe é que mesmo consultando o arquivo xml ele não retorna o protocolo de autorização.