netsoftclaudio

Bom dia Italo, mais uma vez muito obrigado pelo retorno, vou verificar com o provedor.

Boa tarde, estou com a seguinte dúvida: A natureza de operação no fonte "TACBrNFSeXProvider.NaturezaOperacaoDescricao", não contém a descrição de algumas operações, exemplo: (* ACBrNFSexProviderBase TnfseNaturezaOperacao = ( no1, no2, no3, no4, no5, no6, no7, no50, no51, no52, no53, no54, no55, no56, no57, no58, no59, no60, no61, no62, no63, no64, no65, no66, no67, no68, no69, no70, no71, no72, no78, no79, no101, no111, no121, no201, no301, no501, no511, no541, no551, no601, no701 ); function TACBrNFSeXProvider.NaturezaOperacaoDescricao( const t: TnfseNaturezaOperacao): string; begin case t of no1 : Result := '1 - Tributação no município'; no2 : Result := '2 - Tributação fora do município'; no3 : Result := '3 - Isenção'; no4 : Result := '4 - Imune'; no5 : Result := '5 - Exigibilidade susp. por decisão judicial'; no6 : Result := '6 - Exigibilidade susp. por proced. adm.'; no51 : Result := '5.1 - Tributacao No Municipio com retenção de ISS'; no52 : Result := '9 - Tributacao No Municipio Sem Retenção de ISS'; no58 : Result := '5.8 - Não tributável'; no59 : Result := '7 - Simples Nacional (Dentro Estado)'; no61 : Result := '6.1 - Tributacao No Municipio Com Retenção de ISS' ==> Como obter a descrição das opções que não aparecem, ex: no50,no53,no54,no55,no56,no57, etc...

Muito obrigado pelo retorno

Olá bom dia a todos, estou utilizando NFSeX. Onde posso encontrar o código NBS para download? No Layout Padrão Nacional Servico.ItemListaServico := '010601'; ==> qual o tamanho correto do código ? Servico.CodigoNBS := ''; ==> qual o tamanho correto do código ? No Layout Próprio e ABRASF Servico.ItemListaServico := '09.01'; ==> qual o tamanho correto do código ? Porque "ItemListaServico" ==> esse campo tem tamanhos diferentes, gostaria de criar uma tabela com lista de serviços e NBS, mas não sei qual tamanho assumir. Alguém tem essa lista pronta em banco de dados, trabalho com MySQL e Paradox

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.

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

Está bem Daniel, muito obrigado pelo retorno.

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 ?

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.

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

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;

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.

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

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;

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