Italo Giurizzato Junior

Bom dia Fernando, Por não utilizar, não conheço as versões do Forts, Fast, Rave, ... eu trabalho com o Quick Report. No caso do Quick Report, temos a versão 3 que vem junto com o Delphi 7, mas é possível utilizarmos a versão 4 ou a 5. Eu em particular utilizo a versão 5.02, os DA (DANFE, DACTE, etc) feitos em Quick Report são disponibilizados no repositório segundo a versão 5.02 Portanto se você vai utilizar uma versão diferente, com certeza vai ter problemas com propriedades não existentes. Inclusive, existem propriedades a mais ou a menos na mesma versão do Quick Report para versões diferentes de Delphi. No caso do Quick Report disponibilizei um passo a passo que encontra-se dentro da pasta que contem os fontes do componente. Sei que você não utiliza o Quick Report, mas que tal tentar fazer algo semelhante, pode resolver o seu problema. Faça como eu fiz escreva um passo a passo que faz com que o problema seja resolvido. Post aqui como anexo para que outros colegas possam testar, ai vamos disponibilizar o seu passo a passo junto com os fontes.

Bom dia Rubens, Altere a sua rotina para: ACBrCTe.EventoCTe.Evento.Clear; with ACBrCTe.EventoCTe.Evento.Add do begin infEvento.nSeqEvento := 1; infEvento.chCTe := sChave; // Chave do CT-e a ser cancelado infEvento.CNPJ := sCNPJ; // CNPJ do emitente do CT-e infEvento.dhEvento := now; infEvento.tpEvento := teCancelamento; infEvento.detEvento.xJust := trim(sJustificativa); // Justificativa pelo cancelamento, minimo 15 caracteres infEvento.detEvento.nProt := sProtocolo; // Protocolo de autorização do CT-e a ser cancelado end; ACBrCTe.EnviarEventoCTe(nLote); // numero do lote de eventos Pela mensagem de Rejeicao: O autor do evento diverge do emissor do CT-e. Concluo que o CNPJ que você esta informando em infEvento.CNPJ não é o mesmo do emitente (transportadora) do CT-e.

Bom dia ilsouza, Respondendo a sua pergunta, deixe o componente gerar a chave. Note que a chave é compostas por vários elementos conhecidos, como código da UF, ano, mês, CNPJ, etc. Mas, um deles é o código do conhecimento, TAG cCT, trata-se de um numero aleatório de 8 dígitos que compõe a chave de 44 dígitos do CT-e. Na minha aplicação quando o usuário vai salvar no banco de dados as informações digitadas, faço com que esse numero seja gerado pelo Randomize e salvo junto. Portanto na estrutura do registro no banco de dados tenho um campo chamado cCT e outro chamado chave (que ao salvar o registro deixo em branco). Ao ler os dados do banco de dados para alimentar o componente, atribuo a propriedade cCT o conteúdo do campo cCT lido do registro. Desta forma o componente vai utilizar esse numero como sendo o numero aleatório. Se informarmos zero a cCT, o componente se encarrega de gerar esse numero, mas eu prefiro ter o controle dessa informação. Ao executar os comandos Assinar ou Valida ou Envia, lembrando que o Envia se encarrega de executar o Assinar e o Valida, é possível ler a chave gerada pelo componente. Eu faço a leitura dessa informação e atualizo o registro no banco de dados (campo Chave). Mais dicas, estude os fragmentos de códigos que estão na pasta ...\Exemplos\ACBrCTe.

Bom dia Luiz, Se o fragmento de código que você postou em ( #7 ) se refere a unit: ACBrMDFeConfiguracoes - function GetCertificado os seus fontes estão desatualizados. Compare com o que você postou com que esta disponível no repositório: (...) if CertStoreMem = nil then begin CertStoreMem := CoStore.Create; CertStoreMem.Open(CAPICOM_MEMORY_STORE, 'Memoria', CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED); CertStoreMem.Add(Cert); (...) no repositório: (...) if CertStoreMem = nil then begin CertStoreMem := CoStore.Create; CertStoreMem.Open(CAPICOM_MEMORY_STORE, 'MemoriaACBrMDFe', CAPICOM_STORE_OPEN_READ_ONLY); CertStoreMem.Add(Cert); (...) A diferença nesta linha não é o que esta provocando o erro, mas mostra que os seus fontes estão desatualizados.

Bom dia Heto Andrade, Alterei o tamanho da fonte de 8 para 6, agora é para exibir mais linhas.

Bom dia Wesley, Você chegou a realizar testes com o programa exemplo? Se sim, você selecionou no combo box a cidade do Rio de Janeiro? Configurou a pasta: ...\Exemplos\ACBrNFSe\Delphi\Schemas\RJ como sendo a pasta que contem os Schemas? Testou o envio usando o botão [Gerar e Enviar Lote] ? Qual Schema você esta utilizando, o que vem junto com o programa exemplo ou outro?

Cristiam, Fiz uma alteração no fonte do componente ACBrCTe que é utilizado pelo monitor: ACBrNFeMonitor. Aguarde a próxima compilação do mesmo.

Boa tarde Wesley, O componente esta configurado corretamente? O path schemas esta apontando para a pasta que contem os schemas utilizado pelo provedor que atende a cidade para qual a NFS-e vai ser emitida?

Luiz, O componente esta configurado corretamente? O path de schemas esta apontando para a pasta que contem os schemas do MDF-e atualizados?

E qual é o problema em atualizar os fontes? Eu mantenho os meus fontes atualizados diariamente.

ilsouza, Também utilizo a versão 5.02 do Quick Report sem nenhum problema. Todo caso, exclua os fontes referentes ao DACTE - Quick Report que estão na pasta: ...\Fontes\ACBrCTe. Baixe novamente e compile a sua aplicação com a opção Build e teste novamente.

Boa tarde ajlcorreia, Quando você fez a última atualização dos fontes?

Boa tarde Cristiam, No segundo bloco de informações as linhas: Identificador : Chave Acesso : Recebimento : Protocolo : Estão em branco porque você removeu os dados ou aparece mesmo em branco?

Boa tarde NatanaB, O problema é com o provedor. O componente possui configurações, para determinar o numero de tentativas de consultas que ele ira fazer, bem como o tempo entre uma tentativa e outra. Experimente aumentar o tempo e o numero de tentativas.

Boa tarde ilsouza, Eu também utilizo o Delphi 7 com o Quick Report - DACTE tamanho A4 - Retrato. E esta aparecendo o código de barras da chave.

Boa tarde Luiz, Você esta utilizando o componente ACBrMDFe? Se sim, tanto os fontes do componente, como os schemas estão atualizados? O componente esta sendo configurado com a versão: ve100a ?

Boa tarde Binho, Se o problema esta ocorrendo com o XML retornado ( NFS-e ) pelo Web Services e não o que é enviado ( RPS ) com certeza o problema é no provedor.

Boa tarde Heto Andrade, O que ocorre se colocar mais linhas? Ele corta, só mostra as 5 primeiras linhas?

Bom dia Heto Andrade, Verifique se não tem nenhuma DCU antiga perdida em alguma pasta que o Delphi possa ter acesso durante a compilação. Eu tenho o costume de compilar pacotes e aplicações utilizando a opção Build.

Bom dia Samuel, Se a nota foi processada 4 segundos após o envio, e mesmo assim ao usar o ConsultarLoteRps o Web Services retorna uma mensagem que ainda não foi processado, com certeza o problema é no Web Services.

Boa tarde Heto Andrade, Ao configurar o componente para emitir a NFC-e devemos atribuir o valor tiNFCe a propriedade TipoDANFE.

Boa tarde Heto Andrade, Atualize os fontes e tente novamente.

Boa tarde Ailton, Muito obrigado pela colaboração, ainda hoje estarei disponibilizando.

Bom dia Cristiam, Notei que você utiliza o ACBrNFeMonitor. O Cancelamento do CT-e na versão 2.00 é por evento, você configurou o ACBrNFeMonitor para efetuar o cancelamento por evento? Outra coisa, a mensagem de erro diz que a chave é inválida, verifique se a chave informada é mesmo a chave do CTe a ser cancelado.

Bom dia Caetano, Sim, exceto CE (ainda não disponibilizou os Web Services de homologação) e PR (não disponibilizou os Web Services de produção).