Ir para conteúdo
  • Cadastre-se

netsoftclaudio

Membros
  • Total de ítens

    121
  • Registro em

  • Última visita

Tudo que netsoftclaudio postou

  1. 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.
  2. Bom dia, alguém conseguiu instalar o componente UserControl no Delphi 11.3 ?
  3. 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 ?
  4. 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.
  5. 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
  6. 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;
  7. 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.
  8. Não consigo receber o retorno do ACBrTEFAPI fiz alteracoes mas não deu certo, se alguém souber como fazer eu agradeço .
  9. 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;
  10. 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
  11. 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?
  12. 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
  13. 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.
  14. 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.
  15. Estou utilizando o componente NFSeX com a programa de exemplo e está me retornando a seguinte mensagem abaixo, alguém já passou por isso?
  16. Então não tem os xsd "schemas" ? Consigo enviar sem eles ? Vc está usando o componente NFSe ou NFSeX ?
  17. 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.
  18. Porque será que minha pasta está vazia? Já atualizei o svn vária vezes.
  19. 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?
  20. 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
  21. Fiz tudo isso, mas quando altero alguma coisa no form ele faz a pergunta novamente, que estranho.
×
×
  • 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.