-
Total de ítens
121 -
Registro em
-
Última visita
Últimos Visitantes
netsoftclaudio's Achievements
-
Problema UserControl Delphi 11.3 Alexandria
netsoftclaudio replied to netsoftclaudio's tópico in Dúvidas não relacionadas ao ACBr
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. -
netsoftclaudio started following ACBRNFe DANFE Simplificado Etiqueta , Problema UserControl Delphi 11.3 Alexandria , Dados ACBrTEFD.Resp Retorno informação Cheque e 2 outros
-
Problema UserControl Delphi 11.3 Alexandria
um tópico no fórum postou netsoftclaudio Dúvidas não relacionadas ao ACBr
Bom dia, alguém conseguiu instalar o componente UserControl no Delphi 11.3 ? -
Dados ACBrTEFD.Resp Retorno informação Cheque
netsoftclaudio replied to netsoftclaudio's tópico in Dúvidas sobre TEF
Está bem Daniel, muito obrigado pelo retorno. -
Dados ACBrTEFD.Resp Retorno informação Cheque
um tópico no fórum postou netsoftclaudio Dúvidas sobre TEF
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
netsoftclaudio replied to netsoftclaudio's tópico in Dúvidas sobre TEF
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
um tópico no fórum postou netsoftclaudio Dúvidas sobre TEF
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
netsoftclaudio replied to netsoftclaudio's tópico in Dúvidas sobre TEF
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
netsoftclaudio replied to netsoftclaudio's tópico in Dúvidas sobre TEF
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
netsoftclaudio replied to netsoftclaudio's tópico in Dúvidas sobre TEF
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
netsoftclaudio replied to netsoftclaudio's tópico in Dúvidas sobre TEF
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
um tópico no fórum postou netsoftclaudio Dúvidas sobre TEF
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 -
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
netsoftclaudio replied to netsoftclaudio's tópico in ACBrNFSe
Maravilha meu amigo, muito obrigado. -
São Carlos mudou o provedor GINFES para GIAP
netsoftclaudio replied to netsoftclaudio's tópico in ACBrNFSe
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
netsoftclaudio replied to netsoftclaudio's tópico in ACBrNFSe
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.