Ir para conteúdo
  • Cadastre-se

Weriton Teixeira Machado

Membros
  • Total de ítens

    49
  • Registro em

  • Última visita

Últimos Visitantes

940 visualizações

Weriton Teixeira Machado's Achievements

Contributor

Contributor (5/14)

  • First Post
  • Collaborator Rare
  • Conversation Starter
  • Week One Done
  • One Month Later

Recent Badges

8

Reputação

1

Community Answers

  1. O meu mesmo depois de atualizar os fontes continuou dando erro. Eu alterei os endereços para os novos do site da receita e o erro parou na hora. Não precisei alterar nenhuma outra linha de código, só os endereços do captcha e de consulta. estou enviando o arquivo alterado caso queiram subir pro svn. ACBrConsultaCPF.pas
  2. Boa tarde @Juliomar Marchetti, procurei no código do componente e esta modificação não consta lá. Gostaria de saber se ela vai ser implementada, pois caso não seja implementarei aqui por minha conta pois alguns clientes continuam tendo dificuldade com esta parte de digitar a data errada e não perceber. Desde já agradeço a atenção
  3. Ok, segue em anexo. Obrigado por responder Juliomar. ACBrConsultaCPF.pas
  4. Bom dia, Não sei se aqui seria o melhor lugar para colocar isso, mas não quis abrir uma nova discussão sobre o assunto. por isso procurei uma que já estive em aberto. O retorno de erro do Consulta CPF está muito genérico e as vezes causa confusão. Um erro muito comum é a digitação errada da data de nascimento e o site da receita retorna esse erro porém no acbr ele apenas retorna que não foi possível buscar os dados. eu modifiquei aqui na nossa empresa pra ele retornar que a data foi digitada errada, caso queiram replicar para o fonte oficial ou melhorar o que eu fiz acredito que seria um bom acréscimo para o componente. 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:'); FDataNascimento := LerCampo(Resposta,'Data de Nascimento:'); 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:'); //coloquei aqui pra capturar se o erro é de data caso o nome esteja vazio if Trim(FNome) = '' then begin Erro := LerCampo(Resposta,'Data de nascimento informada'); if Trim(Erro) <> '' then Erro := 'Erro de data'; end; //fim da adição de código finally Resposta.Free; end ; //caso tenha capturado o erro de data ele da raise if Trim(Erro) = 'Erro de data' then raise EACBrConsultaCPFException.Create('Data de nascimento divergente da base da Receita Federal.'); // fim da adição de código if Trim(FNome) = '' then raise EACBrConsultaCPFException.Create('Não foi possível obter os dados.');
  5. Bom dia Ítalo, Eu me referia justamente a uma nota emitida off-line que for rejeitada quando for enviada. Nesse caso não sei como proceder pois o cliente já levou o danfe. Desculpe se não me fiz entender muito bem.
  6. Nós aqui validamos todos os dados antes da geração do XML. A nfce não pode nem ser gerada se os dados básicos não estiverem preenchidos e validados. Pode acontecer de uma nota dessa ainda assim ser rejeitada. Porém é mais difícil. Agora se for rejeitada depois de já gerada. Não sei como proceder não. Porque ela não pode set cancelada. Mas tbm não pode ser alterada. Uma vez que o consumidor já levou o danfe impresso daquela nota.
  7. Boa tarde, recentemente 2 clientes da empresa em que trabalho tiveram seus certificados apagados do nada. Entramos em contato com a empresa que gerou o certificado e ela disse que alguém ou algum sistema tinha apagado o certificado. Que minguem apagou tínhamos certeza, porém pairou a duvida sobre o sistema, como não enviávamos nenhum comando de apagar certificado em nosso código fonte, fui pesquisar o código do ACBR NFe pois é o componente que usamos para emissão de NFe. Em pesquisa no fórum, neste mesmo tópico vi que o código foi revisado para que todos os acessos fossem feito por somente leitura. Ao rastrear o componente pude verificar que realmente os acessos estão sendo feitos como somente leitura, o que me deixou mais tranquilo, porém fiquei com uma duvida na linha 1810 da unit ACBRNFeUtil que utiliza um numeral com $ na frente ao invés das constantes que o resto do código usa e justamente o numeral que consta nessa linha é o referente ao acesso total na leitura e gravação. Como não entendo do acesso interno ao token, resolvi perguntar para sanar essa duvida e para no caso de realmente estar errado avisa-los. Seria possível que alguém com um conhecimento mais profundo do assunto desse uma olhada nessa linha que citei e de um retorno do que se trata? o código que consta na linha é esse abaixo: signedKey := xmldsig.sign(dsigKey, $00000002); Aguardo resposta. Atenciosamente, Weriton Machado.
  8. Pelo que entendi eles prepararam a nfc-e pra esses tipos de emissão, mas não viram viabilidade do uso delas no dia a dia em um pdv. Pelo menos foi o que deu a entender uma palestra que eu vi, no youtube, de um dos membros do comitê gestor...
  9. Bom dia Rafael, Também uso o Fast Report e aqui fiz desse jeito até usando um exemplo que achei pesquisando aqui no forum. ACBrNFeDANFEFR1.DescricaoViaEstabelec := 'Via do Consumidor'; ACBrNFe1.NotasFiscais.Imprimir; if rgImprimepdf.ItemIndex = 0 then ACBrNFe1.NotasFiscais.ImprimirPDF else if (rgImprimepdf.ItemIndex = 2) and (MensagemDeConfirmacao('Salvar DANFE NFC-e em PDF?', '') = mrYes) then ACBrNFe1.NotasFiscais.ImprimirPDF; // 2ª via do Estabelecimento - Capítulo 2.2.6 da Nota Técnica da NFC-e if Application.MessageBox(PChar( 'NFC-e Emitida em modo de Contingência off-line.' + sLineBreak + 'Deseja efetuar a Impressão da Via do Estabelecimento?' + sLineBreak + sLineBreak + 'Atenção: Optando por "não" imprimir a segunda via, estará automaticamente optando pela guarda do XML.' + sLineBreak), PChar(Application.Title), MB_YESNO + MB_ICONWARNING) = IDYES then begin ACBrNFeDANFEFR1.DescricaoViaEstabelec := 'Via do Estabelecimento'; ACBrNFe1.NotasFiscais.Imprimir; end;
  10. houve alguma alteração nas regras de validação do QR-Code? porque quando a SEFAZ-RJ me mandou o endereço de consulta do QR-Code se eu consulta-se uma nota que foi emitida off-line aparecia 'nota emitida off-line....' aquela mensagem do manual, porem agora aparece sempre "Erro ao validar campos do QR Code"
  11. no caso quando eu vou enviar a nota emitida off-line quando eu chamo o enviar é pra colocar o sincrono como true?
×
×
  • 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.