Ir para conteúdo
  • Cadastre-se

FabioMachado

Membros
  • Total de ítens

    257
  • Registro em

  • Última visita

  • Days Won

    1

Tudo que FabioMachado postou

  1. É exatamente isso, o cliente tem cnpj e não tem IE (ou seja é isento), e eu deixei em branco ( Dest.IE:= ''; ) e o campo Dest.indIEDest defini como inIsento, mas da rejeição e eu não to entendendo o pq, uma vez que, a rejeição é exatamente por deixar em branco o IE. <xMotivo>Rejeicao: IE do destinatario nao informada</xMotivo> E se eu definir com ISENTO não valida.
  2. o problema não é a consulta, há clientes que tem cnpj sem a necessidade de ter IE, ou seja isentos como é o caso da Policia Militar e outros. A questão é a rejeição vejam que no xml a opção está 2 isento mais ta rejeitando e eu não sei o pq.
  3. O erro ocorre em ambiente de produção, o ambiente de homologação da demonstração é apenas para os meus testes e a rejeição é a mesma nos dois ambientes.
  4. Boa Noite galera, essa semana começou a dar esse erro quando o destinatário é contribuinte e isento de IE. Utilizei o seguinte código; if ((Trim(sqlClienteCLI_CNPJ.AsString)<>'') AND (sqlClienteCLI_IE.AsString<>'')) then begin Dest.indIEDest := inContribuinte; Dest.IE := sqlClienteCLI_IE.AsString; end; if (sqlClienteCLI_IE.AsString='ISENTO') OR (sqlClienteCLI_IE.AsString='') then begin Dest.indIEDest := inIsento; Dest.IE := ''; end; if (Trim(sqlClienteCLI_CPF.AsString)<>'') and (Trim(sqlClienteCLI_CNPJ.AsString)='') then begin Dest.indIEDest := inNaoContribuinte; Dest.IE := ''; end; E gera o XML em anexo. O que ta errado? 14150407198515000197550010000005001000005002-nfe.xml 14150407198515000197550010000005001000005002-nfe.xml
  5. fiz diversos testes aqui, inclusive atualizei o acbr e está acontecendo exatamente isso, quando ha rejeição não gera ou apaga o xml e quando transmite normal o xml fica na pasta correta.
  6. Boa noite, hoje me deparei com algo curioso, fui testar umas mudanças na NFCe e deu rejeição, blz fui olhar o xml e descobri que o mesmo não foi gerado e no lugar do xml gerou um pdf. É isso mesmo?
  7. Ok, OK!! problema resolvido. Executar em modo administrador o arquivo ApagaACBr.bat que fica na pasta principal do componente e depois disso instala-lo novamente.
  8. Bom dia! Nem sei na realidade reportar o erro, e talvez seja isso que eu não tenha encontrado aqui no forum a solução. Mas tenho o seguinte problema: Apesar de realizar a instalação sem problemas com o instalador do acbr, na hora de abrir o delphi ocorre o erro da imagem anexa e não consigo dar continuidade aos trabalhos. Tenho certeza que alguem ja resolveu o problema, mas eu sinceramente não consegui encontrar. Segue anexo o arquivo de log e da imagem. só pra referencia do topico: ACBrHTTPReqResp Desde ja agradeço. log_Delphi_XE7.txt
  9. Boa noite, estou emitindo as NFCes sem problemas, porém o espaçamento das linhas é minimo ficando as letras umas quase por cima das outras. Estou utilizando a impressora Epson TM-T20 - usb virtualizada na porta com. Há como aumentar esse espaçamento?
  10. Boa Noite, eu utiliza o componente boleto do quickreport mas por uma serie de fatores estou deixando-o e passei a utilizar o do fast, nao estou localizando a opcao para nao imprimir o comprovante de entrega que eu acho que serie o aceite e mesmo colocando assim: Aceite := atNao; o danado aparece sempre.
  11. Agora deu certo. Mas não me pergunte pq.
  12. Sim o Sistema operacional na unidade C e os fontes do ACBr na unidade D, mas sempre foi assim, sempre fiz assim. Não possuo o ACBr em mais de um local.
  13. Estou tendo o mesmo problema, e mesmo executando o arquivo .bat sitado por Juliomar não resolveu. Tambem pesquisei algum arquivo bpl solto como disso o nosso amigo e não o encontrei. Mais alguma coisa que posso fazer?
  14. O instalador tb da erro pra tudo que é lado, e não instala os pacotes. Estou testando o XE6 com quickreport 506
  15. Bom dia, a uns dias atras eu tinha instalado o danfe nfce (ACBrDANFCeFortesFr) só que tive um problema no pc e tive formatar, agora não encontro mais as units para instalação , nem a do quickreport;
  16. Consegui resolver essa pendencia mudando de "QR5RunDXE6" para " QR506RunDXE6" apenas inclui o 06 por causa da versão do quick 5.06
  17. Deixa eu te perguntar, você conseguiu o envio o arquivo remessa e a leitura do arquivo retorno do banco itau?
  18. Boa Noite! Estou tentando recepcionar os arquivos de retorno do banco Itaú mais me retorna o erro CNPJ\CPF do Arquivo Inválido. Ja olhei no arquivo e está correto. Estou fazendo algo errado? ACBrBoletoRetorno.Cedente.TipoInscricao:=pFisica; ACBrBoletoRetorno.Cedente.Nome:=sqlCadBAN_NOME_CEDENTE.AsString; ACBrBoletoRetorno.Cedente.CodigoCedente:=sqlCadBAN_CODIGO_CEDENTE.AsString; ACBrBoletoRetorno.Cedente.Agencia:=sqlCadBAN_AGENCIA.AsString; ACBrBoletoRetorno.Cedente.AgenciaDigito:=sqlCadBAN_AGENCIA_DIGITO.AsString; ACBrBoletoRetorno.Cedente.Conta:=sqlCadBAN_CONTA.AsString; ACBrBoletoRetorno.Cedente.ContaDigito:=sqlCadBAN_DIGITO_CONTA.AsString; ACBrBoletoRetorno.Cedente.CNPJCPF:=sqlCadBAN_CPF_CNPJ_CEDENTE.AsString; ACBrBoletoRetorno.Banco.Nome:=sqlCadBAN_NOME.AsString; ACBrBoletoRetorno.Banco.Numero:=sqlCadBAN_NR.AsInteger; dlgOpen1.FileName := ''; dlgOpen1.Title := 'Selecione o arquivo de retorno'; if dlgOpen1.Execute then begin ACBrBoletoRetorno.DirArqRetorno := ExtractFilePath(dlgOpen1.FileName); ACBrBoletoRetorno.NomeArqRetorno := ExtractFileName(dlgOpen1.FileName); end; ACBrBoletoRetorno.LerRetorno; CN03074A.txt
  19. Não consigo fazer o cancelamento do CT-e segue código. procedure TfrmCTe.btnCancelaNFeClick(Sender: TObject); var vAux, MemoResp : String; begin if (Trim(objCTE_CHAVE_ACESSO.Text) = '') then begin MessageDlg('CTe não foi autorizada', mtInformation, [mbOK], 0); objCTE_CHAVE_ACESSO.SetFocus; Exit; end; if (objCTE_Numero_LOTE.EditValue = 0) then begin MessageDlg('Entre com o número do lote', mtInformation, [mbOK], 0); objCTE_Numero_LOTE.SetFocus; Exit; end; if (Trim(objCTE_MOTIVO_CANCELAMENTO.Text) = '') then begin MessageDlg('Entre com o motivo do cancelamento', mtInformation, [mbOK], 0); objCTE_MOTIVO_CANCELAMENTO.SetFocus; Exit; end; ACBrCTe1.Conhecimentos.Clear; OpenDialog1.Title := 'Selecione o CTe'; OpenDialog1.DefaultExt := '*'+objCTE_CHAVE_ACESSO.Text+'*-cte.xml'; OpenDialog1.Filter := 'Arquivos CTe ('+objCTE_CHAVE_ACESSO.Text+'-cte.xml)|'+ objCTE_CHAVE_ACESSO.Text+'-cte.xml|Arquivos XML (*' + '.xml)|'+objCTE_CHAVE_ACESSO.Text+'.xml'; OpenDialog1.InitialDir := ACBrCTe1.Configuracoes.Geral.PathSalvar; if OpenDialog1.Execute then begin ACBrCTe1.Conhecimentos.LoadFromFile(OpenDialog1.FileName); ACBrCTe1.Cancelamento(objCTE_MOTIVO_CANCELAMENTO.Text); objCTE_PROTOCOLO_CANCELAMENTO.Text:= ACBrCTe1.WebServices.Cancelamento.Protocolo; ShowMessage(IntToStr(ACBrCTe1.WebServices.Cancelamento.cStat)); ShowMessage(ACBrCTe1.WebServices.Cancelamento.Protocolo); end; end;
  20. Segue link do post:
  21. Boa Noite, a uns 6 meses mais ou menos eu postei aqui no forum os fontes do boleto em quickreport com as alterações necessários para fazer a geração do PDF. Porém na ultima atualização o problema ainda permanecia. Há alguem responsavel pelos boletos em quickreport? Gostaria das implementações. Não to sabendo o que fazer .. pode ser que haja outras correções necessários que não tenham sido implementadas.
  22. Boa Noite, estou tendo um problema com a transmissão da NFe. Ta dando rejeição em todas elas Rejeição 103 - Segue arquivo XML. 14140407198515000197550010000001031000001030-nfe.xml
  23. O demo ta assim: if ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpEmis = teDPEC then begin ACBrNFe1.WebServices.ConsultaDPEC.NFeChave := ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID; ACBrNFe1.WebServices.ConsultaDPEC.Executar; ACBrNFe1.DANFE.ProtocoloNFe := ACBrNFe1.WebServices.ConsultaDPEC.nRegDPEC +' '+ DateTimeToStr(ACBrNFe1.WebServices.ConsultaDPEC.dhRegDPEC); end; Igual acabei de atualizar inclusive e o Anti-virus pegou um virus vindo do SVN.
  24. Quando vou imprimir o DANFE novamente não está saindo protocolo eu estou usando assim mais não da resultado sai em branco. ACBNFe.DANFE.ProtocoloNFe := ACBNFe.WebServices.ConsultaDPEC.nRegDPEC +' '+ DateTimeToStr(ACBNFe.WebServices.ConsultaDPEC.dhRegDPEC);
  25. Renato Lucas Pandolfo, eu ja espero esse layout a um bom tempo .. e até onde sei não há previsão... principalmente se for pra quickreport. você poderia fazer desenvolvimento utilizando os fontes ja existentes e assim que estivesse ok, postasse aqui pra ver se algum administrador incluia no svn.
×
×
  • 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.

The popup will be closed in 10 segundos...