Painel de líderes

Substitui a Procedure Captcha da ACBRConsultaCPF pela abaixo: Nos testes rápidos que fiz no XE3 funcionou. procedure TACBrConsultaCPF.Captcha(Stream: TStream); begin try HTTPGet('http://www.receita.fazenda.gov.br/Aplicacoes/ATCTA/CPF/captcha/gerarCaptcha.asp'); if HttpSend.ResultCode = 200 then begin HTTPSend.Document.Position := 0; Stream.CopyFrom(HttpSend.Document, HttpSend.Document.Size); Stream.Position := 0; end; Except on E: Exception do begin raise EACBrConsultaCPFException.Create('Erro na hora de fazer o download da imagem do captcha.'+#13#10+E.Message); end; end; end; Nada mais é do que o código antigo (igual do CNPJ) sem a busca pelo captchaURL. Passei a URL nova fixa.

[Destinatario] .... indIEDest=9 ...

Tem outros topicos sobre isso no forum, de uma procurada pois o assunto ja foi bem discutido, procura na área do acbrecf. Senão me engano é algo com o tamanho do path ou acentuação ou o fato de ter barra no final, foi tanto topico que não lembro mas exatamente qual foi a solução.

Boa tarde Seja Bem vindo ao fórum! peço que anexe os arquivos e não cole do jeito que fez! modifiquei dessa vez da próxima excluo o post pois é solicitado nas regras do fórum, caso não tenha lido a mesma solicito que faça!

Bom dia a todos, Mesmo que hoje ainda esteja em fase de teste (projeto piloto) deve utilizar a versão 3.10

Bom dia Fabio, Acredito que você deva ter entendido errado, ou eu escrito algo errado. De qualquer forma: Sou uma pessoa física, e nunca comprei um certificado digital. Quando iniciei o desenvolvimento da minha aplicação, utilizei um certificado A1 disponibilizado pela SEFAZ-RS. Este certificado só serve para assinar o XML, não é possível estabelecer uma conexão com a SEFAZ utilizando esse certificado. Os testes que realizei de envio para SEFAZ foi utilizando o certificado de um cliente. Infelizmente as SEFAZs não disponibilizam ou permitem que você adquira um certificado e seja credenciado na SEFAZ para só e somente só utilizar o ambiente de homologação.

Bom dia Daniel, A SEFAZ não faz uso dessa informação para nada, é apenas uma informação para o consumidor final, para que este fique com mais raiva do governo sabendo o quando o mesmo embolsa quando compramos um produto. O importante é a informação aparecer no papel. Me parece que vai sair uma nova versão do Manual de especificação do DANFE NFC-e e nessa nova versão não vai mais constar a seção V do DANFE, seção esta onde é impresso o valor aproximado dos tributos. Os tributos segmentados deverão ser informados na área de informações complementares, isso deverá constar também na nova versão do manual. Vamos aguardar.

Todas as propriedades abaixo estão disponíveis após o objeto ACBrNFe1.WebServices.Consulta property NFeChave: WideString read FNFeChave write FNFeChave; property Protocolo: WideString read FProtocolo write FProtocolo; property DhRecbto: TDateTime read FDhRecbto write FDhRecbto; property XMotivo: WideString read FXMotivo write FXMotivo; property versao: String read Fversao; property TpAmb: TpcnTipoAmbiente read FTpAmb; property verAplic: String read FverAplic; property cStat: Integer read FcStat; property cUF: Integer read FcUF; property protNFe: TProcNFe read FprotNFe; property retCancNFe: TRetCancNFe read FretCancNFe; property procEventoNFe: TRetEventoNFeCollection read FprocEventoNFe; Exemplo: ACBrNFe1.WebServices.Consulta.NFeChave; ACBrNFe1.WebServices.Consulta.Protocolo; ACBrNFe1.WebServices.Consulta.DhRecbto; ACBrNFe1.WebServices.Consulta.XMotivo; ....

Bom sua versão não é a completa pois está faltando o Fast Scrpit coforme pode ver na mensagem! ele quer o fs7

Verifique as propriedades do objeto ACBrSAT1.CFe ACBrSAT1.EnviarDadosVenda( VENDA ); if ACBrSAT1.Resposta.codigoDeRetorno = 6000 then begin ACBrSAT1.CFe.ide.nCFe; ACBrSAT1.CFe.infCFe.ID; ..... ..... end;

Por favor estude o projeto SATTeste.dpr Você tem o Objeto ACBrSAT.Resposta... e o XML de resposta estará em: ACBrSAT.CFe... Veja o exemplo do Demo: procedure TForm1.mEnviarVendaClick(Sender : TObject) ; begin if mVendaEnviar.Text = '' then mGerarVenda.Click; PageControl1.ActivePage := tsLog; ACBrSAT1.EnviarDadosVenda( mVendaEnviar.Text ); if ACBrSAT1.Resposta.codigoDeRetorno = 6000 then begin mRecebido.Lines.Text := ACBrSAT1.CFe.AsXMLString; PageControl1.ActivePage := tsRecebido; end; end;