Ir para conteúdo
  • Cadastre-se

herculanojs

Membros
  • Total de ítens

    76
  • Registro em

  • Última visita

2 Seguidores

Últimos Visitantes

O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.

herculanojs's Achievements

Enthusiast

Enthusiast (6/14)

  • First Post
  • Collaborator Rare
  • Conversation Starter
  • Week One Done
  • One Month Later

Recent Badges

3

Reputação

  1. Desculpa por nossa ignorância, mais olhei toda a ACBrTEFComum e ACBrTEFCliSiTefComum, e não consegui localizar nada que pudessem indicar o CNPJ da autorizadora. Não sei se está com outro nome tal propriedade. Poderia apontar qual propriedade estaria a informação
  2. eu uso o componente TEF ACBrTEFAPI, não uso o componente SAT Não entendi muito bem a questão agora do SAT, tenho que usar o SAT também?
  3. Vi o video acima, mas nele trata o paygo. No meu caso é o SiTEF, da Sofware Express Não retornando, qual a abordagem que os colegas utilizam para suprir essa informação.
  4. Boa tarde, Utilizano do ACBrTEFAPI é possível se obter o CNPJ da autorizadora do cartão de crédito? O código da autorização, NSU, numero do lote e nome da administratora eu consigo capturar. Mas não consegui identificar o CNPJ. Essa informação é retornável, se sim como ? Utilizo o SiTef. for i := 0 to ACBrTEFAPI.RespostasTEF.Count-1 do begin fCodigoAutorizacaoTransacao := ACBrTEFAPI.RespostasTEF[i].CodigoAutorizacaoTransacao; if fCodigoAutorizacaoTransacao='' then fCodigoAutorizacaoTransacao := ACBrTEFAPI.RespostasTEF[i].NSU; fNSU := ACBrTEFAPI.RespostasTEF[i].NSU; fNumeroLoteTransacao := ACBrTEFAPI.RespostasTEF[i].NumeroLoteTransacao; fQtdParcelas := ACBrTEFAPI.RespostasTEF[i].QtdParcelas; fNomeAdministradora := ACBrTEFAPI.RespostasTEF[i].Rede; fCodigoRedeAutorizada := ACBrTEFAPI.RespostasTEF[i].CodigoRedeAutorizada; end;
  5. Sim, já verifiquei todas as dll, estão com mesma versão e arquivos aqui do meu pc desenvolvimento. No servidor, os arquivos estão sendo gerados certinhos na mesma pasta. O arquivo xml do evento também esta correto. Vejam como estão sendo gerados: 51250700053641094100559210000003451000451180-Evento.pdf 51250700053641094100559210000003451000451180-Evento.xml
  6. Olá, estou necessitando de uma ajuda. Recentemente após alguns atualizações do componente, comecei a enfrentar uma problemática com a carta de correção que não estou conseguindo identificar. No meu PC de desenvolvimento, funciona perfeitamente. Contudo quando coloco no servidor, dá o problema. O que ocorre é que o documento PDF gerado no servidor esta saindo em branco, como se não localizasse os dados do evento. Como disse no meu PC de desenvolvimento, fica tudo certo. O que é que pode estar ocasionando o problema? Abaixo segue o código que estou utilizando: O Tipo do danfe é definido em outro local: mm.ACBrNFe.DANFE := mm.ACBrNFeDANFeRL; Parte do código da geração do PDF da Carta. if not FieldByName('arqXML').IsNull then begin nome := FieldByName('chave').AsString+'-ProcEventoNFe.xml'; TBlobField(FieldByName('arqXML')).SaveToFile(mm.ACBrNFe.DANFE.PathPDF+nome); end else exit; if not FieldByName('arqXML_nota').IsNull then begin nome2 := FieldByName('chave').AsString+'-nfe.xml'; TBlobField(FieldByName('arqXML_nota')).SaveToFile(mm.ACBrNFe.DANFE.PathPDF+nome2); end else exit; nome := mm.ACBrNFe.DANFE.PathPDF+nome; nome2 := mm.ACBrNFe.DANFE.PathPDF+nome2; if FileExists(nome2) then begin mm.ACBrNFe.NotasFiscais.Clear; mm.ACBrNFe.NotasFiscais.LoadFromFile(nome2); end else exit; if FileExists(nome) then begin mm.ACBrNFe.DANFE := mm.ACBrNFeDANFeRL; mm.ACBrNFe.DANFE.TipoDANFE := tiRetrato; mm.ACBrNFe.EventoNFe.Evento.Clear; mm.ACBrNFe.EventoNFe.LerXML(nome); mm.ACBrNFe.DANFE.NomeDocumento := mm.ACBrNFe.DANFE.PathPDF+FieldByName('chave').AsString+'.pdf'; mm.ACBrNFe.ImprimirEventoPDF; if FileExists(mm.ACBrNFe.DANFE.ArquivoPDF) then result := ExtractFileName(mm.ACBrNFe.DANFE.ArquivoPDF) ; end; No servidor: No PC desenvolvimento:
  7. Estou usando sitef. Há uma propriedade LimparRespostasQuandoNovoIdentificador estava sendo marcada como verdadeira. Coloquei para false e funcionou perfeitamente.
  8. Boa noite Primeiramente não consegui criar o tópico diretamente em TEF. Não dá opção para selecionar ou criar novo tópico ali. Estou enfrentando uma problemática na implementação de pagamento com múltiplos cartões no tef. Faço a venda passando uma parte em um cartão, e outra parte em outro cartão. O processo faço usando a função ACBrTEFAPI.EfetuarPagamento. Quando vou concluir a transação finalizando a venda usando a função ACBrTEFAPI.FinalizarTransacoesPendentes apenas o último cartão esta sendo confirmando, ficando pendente o primeiro. Debugando, pude observar que na função o loop efetuado em RespostasTEF retorna apenas um, sendo a última transação. Alguém poderia me auxiliar. procedure TACBrTEFAPIComum.FinalizarTransacoesPendentes(Status: TACBrTEFStatusTransacao); var i: Integer; ATEFResp: TACBrTEFResp; begin GravarLog('FinalizarTransacoes( '+ GetEnumName(TypeInfo(TACBrTEFStatusTransacao), integer(Status) )+' )'); for i := 0 to RespostasTEF.Count-1 do begin ATEFResp := RespostasTEF[i]; if ATEFResp.Confirmar and // Transação requer Confirmação ? (not ATEFResp.CNFEnviado) then // Ainda não enviou Terceira Perna ? begin FinalizarTransacao( ATEFResp.Rede, ATEFResp.NSU, ATEFResp.Finalizacao, Status ); end; end; end;
  9. Boa noite Primeiramente não consegui criar o tópico diretamente em TEF. Não dá opção para selecionar ou criar novo tópico ali. Estou enfrentando uma problemática na implementação de pagamento com múltiplos cartões no tef. Faço a venda passando uma parte em um cartão, e outra parte em outro cartão. O processo faço usando a função ACBrTEFAPI.EfetuarPagamento. Quando vou concluir a transação finalizando a venda usando a função ACBrTEFAPI.FinalizarTransacoesPendentes apenas o último cartão esta sendo confirmando, ficando pendente o primeiro. Debugando, pude observar que na função o loop efetuado em RespostasTEF retorna apenas um, sendo a última transação. Alguém poderia me auxiliar. procedure TACBrTEFAPIComum.FinalizarTransacoesPendentes(Status: TACBrTEFStatusTransacao); var i: Integer; ATEFResp: TACBrTEFResp; begin GravarLog('FinalizarTransacoes( '+ GetEnumName(TypeInfo(TACBrTEFStatusTransacao), integer(Status) )+' )'); for i := 0 to RespostasTEF.Count-1 do begin ATEFResp := RespostasTEF[i]; if ATEFResp.Confirmar and // Transação requer Confirmação ? (not ATEFResp.CNFEnviado) then // Ainda não enviou Terceira Perna ? begin FinalizarTransacao( ATEFResp.Rede, ATEFResp.NSU, ATEFResp.Finalizacao, Status ); end; end; end;
  10. Bom dia, estou iniciando a implantação do TEF e estou estudando o exemplo TEFAPI. No requisito 5 do roteiro de homologação diz: - Realizar uma transação com cartão de Crédito magnético - Selecionar a opção: Financ. Adm ou loja/estabelecimento - Dividir em 2 parcelas Vi que no exemplo de pagamento quando informa já a forma de pagamento, o TEF não retorna a opção de escolha de parcelamento, só Á Vista. Usando a opção ACBrTEFAPI1.EfetuarAdministrativa('0') mostra o menu para escolha das formas de pagamentos e quando eu escolho por ela ai sim aparece a opção de parcelamento. Minha dúvida é como eu passo o valor da venda usando a opção de pagamento escolhendo diretamente pelo menu conforme citado acima. Verifiquei se pediria o valor mas não pede, a função de pagamento encerra informando: valor inválido pois não recebeu o valor da venda.
  11. No ACBrDANFCeFortesFr linha 1396 há a instrução RLLayout.PrintDialog := (not MostraPreview) and EstaVazio(Impressora); Tal instrução impossibilita que possamos imprimir de forma automática, pois fica abrindo o setup de impressão mesmo estando marcado como false. Isso tem impossibilitado impressões diretas utilizando a impressora padrão no windows. Se já existe a propriedade MostrarSetup o correto entendo deveria ser RLLayout.PrintDialog := MostraSetup; (não ?) Para que cada um determine como queira se mostra ou não o setup de impressão. Estou informando em impressora um valor = 'X'. Hoje esta sendo tratado pelo windows e enviando para a impressora padrão, mas e amanhã, será que vai - ou vai dar algum erro. Qual a maneira que podemos fazer para que não exibe o setup de escolha na impressão?
  12. Na verdade estou me baseando no que esta escrito no comentário da propriedade: " {@prop NomeDocumento - Define/retorna o nome do documento para exportação PDF." E faria todo o sentido, quando por exemplo eu quisesse exportar um arquivo utilizando uma nomenclatura própria que não fosse a utilizada pelo padrão do componente que é o número da chave;
  13. Não sei como postar uma correção no acbr, então segue: Na classe ACBrDFeReport há uma propriedade NomeDocumento que deveria estar sendo utilizada para poder definir o nome do documento no ato da exportação do PDF. Contudo na exportação do pdf não esta levando em conta isso. Class: ACBrDFeReport {@prop NomeDocumento - Define/retorna o nome do documento para exportação PDF. @links TACBrDFeReport.NomeDocumento :/} property NomeDocumento: String read FNomeDocumento write FNomeDocumento; class: ACBrNFeDANFEFRDM procedure TACBrNFeFRClass.ImprimirDANFEPDF(ANFE: TNFe) ... frxPDFExport.FileName := PathWithDelim(DANFEClassOwner.PathPDF) + OnlyNumber(NFe.infNFe.ID) + '-nfe.pdf' else Sugestão: if DANFEClassOwner.NomeDocumento='' then //jhs frxPDFExport.FileName := PathWithDelim(DANFEClassOwner.PathPDF) + OnlyNumber(NFe.infNFe.ID) + '-nfe.pdf' else frxPDFExport.FileName := DANFEClassOwner.NomeDocumento; Assim podemos definir local e nome do arquivo desejado.
  14. Estranho hem, o erro do acess violation ocorre em Windows 7, windows 2008 r2, windows 8 (em diversos clientes). E todos os sistemas operacionais estão devidamente atualizados
  15. Bom dia Felipe, recebo mensagem de que as atualizações não podem ser executadas no pc.
×
×
  • 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.