[Problema UserControl Delphi 11.3 Alexandria]

Muito obrigado pelo retorno, vi que realmente não tem suporte.

Mas consegui fazer todas as alterações para que o componente UserControl funcione totalmente no Delphi 11.3 Alexandria.

[Problema UserControl Delphi 11.3 Alexandria]

Bom dia, alguém conseguiu instalar o componente UserControl no Delphi 11.3 ?

[Dados ACBrTEFD.Resp Retorno informação Cheque]

Está bem Daniel, muito obrigado pelo retorno.

[Dados ACBrTEFD.Resp Retorno informação Cheque]

Bom dia a todos,

Gostaria de saber se tem como receber as informações do TEF nas transações com Cheque, verifiquei que no retorno do ATEFResp: TACBrTEFResp vem as seguinte informações:

  vbanco          := ATEFResp.Banco;
  vagencia        := ATEFResp.Agencia;
  vagencia_dc     := ATEFResp.AgenciaDC;
  vconta          := ATEFResp.Conta;
  vconta_dc       := ATEFResp.ContaDC;
  vcheque         := ATEFResp.Cheque;
  vdtvencto       := ATEFResp.DataPreDatado;
  vqtdparcelas    := ATEFResp.QtdParcelas;
  vcmc7           := ATEFResp.CMC7;
 

Essas informações estão corretas ?

 

[Pay&GoWeb não está apresentando QrCode no ACBrTEFAPI]

Bom dia Daniel, obrigado pelo retorno.

Falei com David PayGo e ele resolveu o problema, segue a conversa:

David - PayGo  11h27

descobri..quando reseta o pdc via form o xml é enviado ao muxx que rebate bagunçando a config. de carteira dig.

vou ajustar o pdc novamente. detalhe: toda vez que usar o form para liberar o pdc perderá o pix.

[Pay&GoWeb não está apresentando QrCode no ACBrTEFAPI]

Bom dia a todos,

Ontem dia 17/02/2022 parou de mostrar o QrCode nas transações da "05 - Carteira Digital"

Estou utilizando o componente ACBrTEFAPI configurado para o modelo: tefApiPayGoWeb

Se alguém souber de algo post aqui por favor.

Obrigado

[Capturar bandeira do cartão no ACBrTEFAPI]

Boa tarde a todos,

Consegui implemetar, segue abaixo para quem quiser utilizar;

function TF_LancarVendas.DeduzirBandeiraTEF(ATEFResp: TACBrTEFResp) : string;
var
  p: Integer;
  Bandeira: String;
  RetNomeBandeira : string;
begin
  Bandeira := LowerCase(Trim(ATEFResp.NFCeSAT.Bandeira));
  RetNomeBandeira := '';
  // Pega apenas a Perimeira Palavra
  p := pos(' ',Bandeira);
  if (p > 0) then
     Bandeira := copy(Bandeira,1, p-1);
  if (pos('visa',Bandeira) = 1) then
     RetNomeBandeira := 'VISA'
  else if (pos('mastercard',Bandeira) = 1) then
     RetNomeBandeira := 'MASTERCARD'
  else if (pos('american',Bandeira) = 1) or (pos('amex',Bandeira) = 1) then
     RetNomeBandeira := 'AMERICAN EXPRESS'
  else if (pos('sorocred',Bandeira) = 1) then
     RetNomeBandeira := 'SOROCRED'
  else if (pos('diners',Bandeira) = 1) then
     RetNomeBandeira := 'DINERSCLUB'
  else if (pos('elo',Bandeira) = 1) then
     RetNomeBandeira := 'ELO'
  else if (pos('hipercard',Bandeira) = 1) then
     RetNomeBandeira := 'HIPERCARD'
  else if (pos('aura',Bandeira) = 1) then
     RetNomeBandeira := 'AURA'
  else if (pos('cabal',Bandeira) = 1) then
     RetNomeBandeira := 'CABAL'
  else
     RetNomeBandeira := 'OUTROS';
  Result := RetNomeBandeira;
end;
 

 

[Capturar bandeira do cartão no ACBrTEFAPI]

Bom dia Daniel,

Por gentileza, você teria como implementar no TEFAPIDemo por favor ?

Eu assisti o vídeo mas estou com dificuldade para implementar essas 2 procedures para obter o retorno da bandeira.

    procedure DeduzirCredenciadoraNFCe(APag: TpagCollectionItem; ATEFResp: TACBrTEFResp);
    procedure DeduzirBandeiraNFCe(APag: TpagCollectionItem; ATEFResp: TACBrTEFResp);

Desde jà, muito obrigado. 

 

[Capturar bandeira do cartão no ACBrTEFAPI]

Não consigo receber o retorno do ACBrTEFAPI fiz alteracoes mas não deu certo, se alguém souber como fazer eu agradeço .

 

[Capturar bandeira do cartão no ACBrTEFAPI]

Vi sim mas o vídeo está se referindo ao POSTEFServer e estou utilizando a versão ACBrTEFAPI, estou com dificuldade para receber essa informação da Bandeira.

No Demo do TEFAPIDemo o Daniel utiliza a procedure abaixo, mas ela não contém a Bandeira, será que é possível receber a Bandeira nessa procedure ?

procedure TF_LancarVendas.AtualizarPagamentosVendaNaInterface;
var
  i, ARow: Integer;
  AResp: TACBrTEFResp;
begin
  sgPagamentos.RowCount := 1;
  ARow := sgPagamentos.RowCount;

  for i := 0 to Venda.Pagamentos.Count-1 do
  begin
    sgPagamentos.RowCount := sgPagamentos.RowCount + 1;

    with Venda.Pagamentos[i] do
    begin
      if not Cancelada then
      begin
        AResp := AcharTransacaoTEF(i);
        if Assigned(AResp) then
          Confirmada := AResp.CNFEnviado;
      end;
      sgPagamentos.Cells[0, ARow] := FormatFloat('000', ARow);
      sgPagamentos.Cells[1, ARow] := TipoPagamento + ' - ' + DescricaoTipoPagamento(TipoPagamento);
      sgPagamentos.Cells[2, ARow] := FormatFloatBr(ValorPago);
      sgPagamentos.Cells[3, ARow] := NSU;
      sgPagamentos.Cells[4, ARow] := Rede;
      sgPagamentos.Cells[5, ARow] := ifthen(Cancelada, 'Cancelada', ifthen(Confirmada, 'Confirmada', 'Pendente'));
      sgPagamentos.Cells[6, ARow] := RedeCNPJ;
    end;

    Inc(ARow);
  end;

  AtualizarTotaisVendaNaInterface;
end;
 

 

[Capturar bandeira do cartão no ACBrTEFAPI]

Bom dia a todos,

Como capturar a bandeira do cartão em uma transação TEF, exemplo: VISA, MASTERCAD, AMERICAN EXPRESS, SOROCRED, DINERSCLUB, ELO, HIPERCAD, etc...

Estou utilizando o componente ACBrTEFAPI

obrigado

[ACBRNFe DANFE Simplificado Etiqueta]

Bom dia a todos,

Estou com problema utilizando ACBRNFe Danfe Simplificado Etiqueta, não imprime o "VALOR TOTAL DA NOTA FISCAL"

Utilizo o arquivo de impressão "DANFE SIMPLIFICADO - ETIQUETA - NT2020.004.fr3"

Alguém sabe me dizer se preciso configurar algo para imprimir esse total?
 

[NFSeX Erro de Conexão: Erro Interno: 87]

Maravilha meu amigo, muito obrigado.

[São Carlos mudou o provedor GINFES para GIAP]

Consegui resolver configurando o certificado da seguinte forma:

Como vc trata o retorno :

// Alimentar componente
AlimentarNFSe(vNumRPS,vNumLote);

// Enviar
ACBrNFSeX1.Emitir(vNumLote);

// Checar resposta
ChecarResposta(tmRecepcionar);

 

tem como tratar algo assim para saber se deu certo a NFSe ?

if (tmRecepcionar.Protocolo <> '') then
    ShowMessage('SUCESSO');  // listou

[São Carlos mudou o provedor GINFES para GIAP]

Vou mudar para Chave de Autorização, já liguei até na C-Lig "provedor de internet" para liberar todas as portas e nada.

Estou usando o demo exemplo, antes de migrar meu sistema, pois ele está no NFSe e não no NFSeX.

Nossa só dor de cabeça.

[NFSeX Erro de Conexão: Erro Interno: 87]

Bom dia a todos, estou tendo o erro ao tentar enviar uma NFSe pela primeira vez, utilizando o exemplo do ACBr NFSEX.

Será que alguém já passou por isso e como resolver ?

Muito obrigado.

 

[São Carlos mudou o provedor GINFES para GIAP]

Estou utilizando o componente NFSeX com a programa de exemplo e está me retornando a seguinte mensagem abaixo, alguém já passou por isso?

[São Carlos mudou o provedor GINFES para GIAP]

Muito obrigado amigo pelo feedback

[São Carlos mudou o provedor GINFES para GIAP]

Então não tem os xsd "schemas" ?

Consigo enviar sem eles ?

Vc está usando o componente NFSe ou NFSeX ?

[São Carlos mudou o provedor GINFES para GIAP]

Ele atualiza mas não traz os schemas na pasta C:\Projetos\ACBr\trunk2\Exemplos\ACBrDFe\Schemas\NFSe\Giap\1.00

Já até apaguei a pasta exemplos e atualizei novamente, mas nada.

 

[São Carlos mudou o provedor GINFES para GIAP]

Está verde mas não atualiza.

[São Carlos mudou o provedor GINFES para GIAP]

Porque será que minha pasta está vazia?

Já atualizei o svn vária vezes.

[São Carlos mudou o provedor GINFES para GIAP]

Bom dia, São Carlos passou a operar provedor GIAP, no ACBR não encontrei os arquivos "SCHEMAS" para esse provedor:

C:\Projetos\ACBr\trunk2\Exemplos\ACBrDFe\ACBrNFSe\Schemas\Giap

Alguém pode me ajudar?

[ACBrBAL LePeso Problema com última pesagem]

Bom dia a todos,

Quando coloco um produto sobre a balança ela faz a leitura perfeita, mas quando tiro o produto ela continua trazendo o peso, e era para informar zero.

Estou usando o ACBrBAL para fazer a leitura da balança Toledo PRIX 9094 Plus, com as seguinte configurações:

Balança: balToledo

Porta: COM5

Baud Rate: 2400

Data Bits: 8

Parity: none

Stop Bits: s1

HandShaking: Nenhum 

-------------------

Monitorar a balança está ativado

-------------------

Configuração da balança TOLEDO

C14 - PROTOCOLO DE COMUNICAÇÃO
      PRT2 - PROTOCOLO PARA ECF-PDV E MICROTERMINAIS

C16 - TRANSMISSÃO CONTÍNUA DE DADOS
      L - LIGADA

 

[ACBRBAL LePeso]

Fiz tudo isso, mas quando altero alguma coisa no form ele faz a pergunta novamente, que estranho.