Jump to content

edsonsimoespereira

Membros
  • Content Count

    20
  • Joined

  • Last visited

Community Reputation

6 Neutral

About edsonsimoespereira

  • Rank
    Novato

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Obrigado EMBarbosa pelo retorno. Bom no exemplo, tudo é feito em um único form. Eu usei o form na minha aplicação para realizar as transações TEF, pata testar, Acontece que a icialização do "ACBRTEFD.Inicializar", o processo leva 10 segundos, então resolvi passar esse processo para o form principal da minha aplicação, mas, quando inicio a venda através do form VendaTEF, o sistema me retorna a mensagem: if not (EstadoECF in ['V','P','N']) then raise EACBrTEFDErro.Create( ACBrStr('ECF deve estar em Estado de "Venda", "Pagamento" ou "Não Fiscal"') ); só não exibe a mensagem se eu executar os códigos abaixo, no form principal onde FOI inicializado o componente ACBERTEFD1. procedure TForm1.ButtonIniciaVendaClick(Sender: TObject); begin if StrToIntDef(EditNumNFCe.Text, 0) = 0 then raise Exception.Create('Informe o número NFce'); if StrToIntDef(edValorVenda.Text, 0) = 0 then raise Exception.Create('Informe o valor total da venda'); MemoCupomTEF.Lines.Add('#################### NFCE:' + EditNumNFCe.Text + ' ####################'); pgRespostas.ActivePage := TabSheetCupomTef; estadoSimuladoEcf := tpsVenda; EditTotalPago.Text := '0'; EditSaldoRestante.Text := edValorVenda.Text; IndiceTransacaoTef := -1; MemoCupomTEF.Lines.Add('Inicia Venda [Valor:' + edValorVenda.Text + ']'); travarComponentesTEF(True); end;
  2. Bom dia! Senhores(as) Estou realizando testes com o exemplo "TEF" da pasta; "C:\ACBr\Exemplos\ACBrDFe\ACBrNFe\Delphi - TEF\ACBrNFe_demo" consegui realizar todos os testes perfeitamente, mas, vou precisar inicializar o TEF, "ACBrTEFD1.Inicializar( TACBrTEFDTipo( cbxGP.ItemIndex ) )" num form e realizar as operações de venda em outro, usando os eventos do ACBrTEFD que foi inicializado num formulário inicial. Acontece que quando inicio o processo de venda com cartão, o EstadoECF esta sempre "L" e não "V", mesmo tendo iniciado a venda com o estadoSimuladoEcf := tpsVenda; Por favor, como posso resolver esta operação. Desde ja, agradeço a quem poder me passar, essa informação.
  3. Bom dia! Senhores(as) como posso informar os dados de Grupos de Cartões, usando o ACBRTEFD? Uma vez que é obrigatório para homologação TEF. <pag> <tPag>04</tPag> <vPag>17.90</vPag> <card> <tpIntegra>1</tpIntegra> <CNPJ>99999999999999</CNPJ> <tBand>02</tBand> <cAut>180003</cAut> </card> </pag> Não encontrei nos exemplos, alguma rotina que trate esse recurso. Desde já, agradeço o apoio de todos.
  4. Bom dia! Daniel. Eu estava usando o exemplo de retorno existente no demo; MemoCupomTEF.Lines.Add('Pagamento [Cartao:' + edValorVenda.Text + '][NSU:'+ACBrTEFD1.RespostasPendentes[IndiceTransacaoTef].NSU + '][Rede:'+ACBrTEFD1.RespostasPendentes[IndiceTransacaoTef].Rede+ ']');, mas, eu preciso da informação de retorno do campo: ACBrTEFD1.RespostasPendentes[IndiceTransacaoTef].codigoBandeiraPadrao; que estava vindo sempre "00000". O pessoal da SkyTEF me informou que eu deveria incluir a linha; [Geral] BandeiraPadraoHabilitada=1 no arquivo "sitefcfg.ini" De qualquer forma, obrigado. Você e sua equipe desenvolvem um trabalho muito importante para a comunidade delphi.
  5. Bom dia Senhores(as) Preciso retornar o Código da Bandeira (Cartão de crédito), na minha aplicação TEF. No manual informa que posso obter através da rotina ContinuaFuncaoSiTefInterativo, tipo de campo 32, mas, não estou conseguindo criar uma função para isso. Alguém pode me prestar um auxilio de como realizar este procedimento. Obrigado.
  6. Bom dia senhores(as), Atualmente é possível imprimir Cupom com o QRCode e LogoTipo lateral, na impressora Bematech MP-4200 TH?, usando o ACBrNFeDANFeESCPOS1 ? Obrigado.
  7. Bom dia Senhores(as). Estou no teste do roteiro de Homologação TEF, e no momento do envio : ACBrNFe1.Enviar(numeroNFce, True, False); acontece o seguinte erro: Erro Interno: 0 Erro HTTP: 404 URL:https://homnfce.sefaz.am.gov.br/nfce-services-nac/services/NfeRetAutorizacao4 verifique na relação de endereços dos web services da nfc-e, que não tem a informação "nfce-services-nac", apenas "nfce-services". Gostaria de saber onde posso alterar esse endereço de web services para ver se resolve o problema do erro. Todas as NFCe estão sendo emitidas em contingencia. Obrigado.
  8. Boa tarde. No primeiro teste do roteiro de homologação, é solicitado para: Realizar uma venda de um item qualquer - Verificar o menu de transações retornado - Printar a tela com o menu para enviar como evidência da pré-homologação. - Em seguida cancelar o cupom e Printar a tela com o menu de transações gerenciais. Como posso realizar esse cancelamento usando ACBRTEFD? Obrigado.
  9. Boa tarde. Resolvi a questão do print da imagem com o comando abaixo. ACBrPosPrinter1.Imprimir('VINCULADO:' + ImagemComprovante.Text);
  10. Ola! Daniel. Você se refere aos eventos do componente "ACBrTEFD1" ? Obrigado.
  11. bom dia Senhores(as).] Qual configuração necessária para imprimir os comprovantes TEF na impressora não fiscal ? Nas minhas simulações de venda com cartão, mostra as mensagens: Imprimindo NFCe Imprimindo Transações/Comprovante TEF, mais a impressão na sai na impressora. Obrigado.
  12. Olá Daniel. No fonte que estou usando não tinha o código do evento OnAguardaresp, então peguei o código abaixo no forum. Você pode verificar se esta correto o código? --------------------------------------------------- procedure TForm1.ACBrTEFD1AguardaResp(Arquivo: string; SegundosTimeOut: Integer; var Interromper: Boolean); var Msg : String ; fCancelado : Boolean; begin Msg := '' ; if (ACBrTEFD1.GPAtual in [gpCliSiTef, gpVeSPague]) then // É TEF dedicado ? begin if (Arquivo = '23') and (not bCancelarResp.Visible) then // Está aguardando Pin-Pad ? begin if ACBrTEFD1.TecladoBloqueado then begin ACBrTEFD1.BloquearMouseTeclado(False); // Desbloqueia o Teclado // TODO: nesse ponto é necessário desbloquear o Teclado, mas permitir // um clique apenas no botão cancelar.... FALTA CORRIGIR NO DEMO end ; Msg := 'Tecle "ESC" para cancelar.'; bCancelarResp.Visible := True ; fCancelado := False; end; end else Msg := 'Aguardando: '+Arquivo+' '+IntToStr(SegundosTimeOut) ; if Msg <> '' then StatusBar1.Panels[2].Text := Msg; Application.ProcessMessages; if fCancelado then Interromper := True ; end; Obrigado.
  13. Bom dia Daniel. Fiz o que você recomendou, instalei novamente o SiTef Simulado, mas, continuo com o problema nos testes de homologação. O sistema emite a mensagem "13-Operação cancelada? Yes/No" sem que eu tenha pressionado qualquer tecla. Entrei em contato com o suporte da SkyTEF, eles pediram pra enviar os arquivos de log e me retornaram que pelo log o processo esta normal. Poderia ser algum problema com o Pinpad que estou usando? Obrigado.
×
×
  • Create New...