Ir para conteúdo
  • Cadastre-se

Mario Inacio

Membros Pro
  • Total de ítens

    317
  • Registro em

  • Última visita

  • Days Won

    1

Posts postados por Mario Inacio

  1. A venda não foi finalizada, pois ainda precisa da emissão da NFC-e.

    O que foi finalizada corretamente foi a transação com o cartão.

    Então nesse caso, o componente não poderia enviar um "CancelarTransacao", pois não existe nada pendente na parte "cartão".

    Como vou acessar a venda no meu sistema, tomarei a decisão de dai sim, cancelar a transação (que já esta Confirmada junto a operadora) e passar novamente o cartão, ou manter a transação anterior e fazer a emissão da NFC-e.

  2. Ola Daniel.

    Só não entendi porque no começo do LOG, após inicializar o componente está enviando um cancelamento, sendo que a Confirmação está automática, e esta transação finalizou corretamente, faltando apenas emitir a NFC-e, pois derrubei a aplicação antes.

    Mas de qualquer forma a transação já deveria estar confirmada, e minha aplicação é que tem que enviar o cancelamento ao retornar a tela de vendas, conforme minha regra de negócio.

    Correto?

    image.thumb.png.9fbb5e4aa2a83a98e270a19a83db2383.png

  3. Bom dia.

    Estou configurando meu sistema para o Sitef.

    A transação de autorização está ok.

    Dai derrubo a aplicação após a autorização, já com confirmação automática ativada.

    Então quando reinicio e Inicializo o TEFApi, deveria cancelar automaticamente, apresentando a mensagem abaixo, mas solicita a senha do operador, sem ao menos informar do que se trata.

    Mas analisando melhor, não há nenhuma transação pendente, pois a confirmação automatica está ativada.

     

     

    Deveria aparecer diretamente isso:

    image.png.6e34bc9787ef6d6acca281fbe4ac4a66.png

     

    Apenas solicita a senha do supervisor, e depois é apresentado o Menu com as opções:

    image.png.26ce9d28347c1f398b7a15158084bbbc.png

    image.png.cc267d1612c599fd2bddf69997b5b84b.png

     

    TefApi configurado assim:

    image.png.732344be0bf36c9b032e2ff1e7002c5b.png

  4. Boa tarde.

    Abri uma conta no Efi (antigo GerenciaNet) para operar com PIX.

    Semana passada até consegui gerar um QrCode e pagar por PIX, mas hoje voltei para efetuar novos testes e ocorre o erro atual.

    image.thumb.png.0e2fcef41a8b5e28b4cc30f9e6cd8c57.png

    Seguem as configurações do PIX e PSP e estão com as mesmas chaves da conta.

    aCjc8EOBWB4xSIgoOAsVBFHkIzAdKweLukfqaWcwlvDy0YJGbNDdS1UnWCtFVvvXiecEL8NfU3UbbGDpZPXPLjCLAUQzxxDZ9t-Ot_kZb2KMvdNlmG2QdbQNP-q7a-D5CWcIuqIkdbbJfpvwy4zfeugUbVK-hZpeYWb_IrJ6nfeyOw6uOtx1tp2B4IXMcM_1_b72Zo8FUvdIDkhFpF30lJq6ZRrJA4KnO2_sZH8Y_uLfTPAPlVHPJbLxoqHJb_dfg1UoKsji-O4q5RzZtClQMq47Q-U7XBzJ1dG1vpKROBX_iE

     

    Uso windows 11, Avast desativado.

    Uma luz do que pode ser?

     

  5. Ola Italo.

    Entao vamos usar da seguinte forma, se houver erros no envio, já gera a exceção com base nos erros.

    Caso contrario, consultamos o evento pra ver se algo gerou erros.

    with iNFSe do begin
    
    	EnviarEvento(InfEvento);
        with WebService.EneviarEvento do
             GeraException(Erros,Alertas);
    
        ConsultarEvento(InfEvento.pedRegEvento.chNFSe,
                        WebService.EnviarEvento.tpEvento,
                        WebService.EnviarEvento.nSeqEvento);
        with WebService.ConsultarEvento do
             GeraException(Erros,Alertas);
    
    end;

     

    • Curtir 1
  6. Boa tarde.

    Estou emitindo normalmente a NFS-e no Padrão Nacional.

    O cancelamento está funcionando corretamente.

     

    O único problema é o retorno do cancelamento quando informo por exemplo, uma chave inválida, sendo que o componente não está retornando erro nesse caso, e deveria vir algo de que a chave não existe na base ou o evento não foi efetivado.

    Código do Cancelamento:

                      with InfEvento.pedRegEvento do begin
                         tpAmb          := iNFSe.Configuracoes.WebServices.AmbienteCodigo;
                         verAplic       := 'ACBrNFSeX-1.0';
                         dhEvento       := Now;
                         chNFSe         := '42177092223253393000140000000000002423106094041473';
                         nPedRegEvento  := 1;
                         tpEvento       := teCancelamento;
                         cMotivo        := 1;
                         xMotivo        := 'Erro no preenchimento dos dados';
                      end;
                      with iNFSe do begin
                         EnviarEvento(InfEvento);
                         ConsultarEvento(InfEvento.pedRegEvento.chNFSe,
                                         WebService.EnviarEvento.tpEvento,
                                         WebService.EnviarEvento.nSeqEvento);
                         with WebService.ConsultarEvento do
                            GeraException(Erros,Alertas);
                      end;

    Esta chave por exemplo, não existe, então o evento deveria ser enviado mas na linha "WebService.ConsultarEvento.Erros" deveria vir algo.

  7. Boa tarde Diego.

    Erro AV corrigido e NFS-e aprovada.

     

    Agora estou testando o cancelamento com o código:

                      with InfEvento.pedRegEvento do begin
                         tpAmb          := iNFSe.Configuracoes.WebServices.AmbienteCodigo;
                         verAplic       := 'ACBrNFSeX-1.0';
                         dhEvento       := Now;
                         chNFSe         := '42177092223253393000140000000000002423106094041473';
                         nPedRegEvento  := 1;
                         tpEvento       := teCancelamento;
                         cMotivo        := 1;
                         xMotivo        := 'Erro no preenchimento dos dados';
                      end;
                      with fMenu.iNFSe do begin
                         EnviarEvento(InfEvento);
                         ConsultarEvento(InfEvento.pedRegEvento.chNFSe,
                                         WebService.EnviarEvento.tpEvento,
                                         WebService.EnviarEvento.nSeqEvento);
                         with WebService.ConsultarEvento do
                            GeraException(Erros,Alertas);
                      end;

    O cancelamento é feito com sucesso.

     

    Mas fiz um teste informando uma chave inválida e o WebService.ConsultarEvento.Erros não retorna nenhum erro, sendo que a chave é inválida.

  8. Boa tarde.

    Removi toda a pasta ACBr e ao reinstalar acusa e erro IndexText:

    Delphi 7 e Fortes já instalado

     

    C:\Compo\ACBr\Fontes\ACBrBoleto\ACBrBancoDaycoval.pas(782) Error: Undeclared identifier: 'IndexText'
    C:\Compo\ACBr\Fontes\ACBrBoleto\ACBrBoleto.pas(2012) Fatal: Could not compile used unit '..\..\..\Fontes\ACBrBoleto\ACBrBancoDaycoval.pas'
    Compilation failure
    Erro ao compilar o pacote "ACBr_Boleto.dpk".
    Abortando... Ocorreram erros na compilação dos pacotes.

     

×
×
  • 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...