edsonsimoespereira
-
Total de ítens
20 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por edsonsimoespereira
-
-
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.
-
Já consegui, obrigado.
-
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.
-
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.
- 2
-
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.
-
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.
-
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.
-
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.
-
Boa tarde.
Resolvi a questão do print da imagem com o comando abaixo.
ACBrPosPrinter1.Imprimir('VINCULADO:' + ImagemComprovante.Text);
- 2
-
Ola! Daniel.
Você se refere aos eventos do componente "ACBrTEFD1" ?
Obrigado.
-
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.
-
Obrigado.
- 1
-
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.
-
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.
-
Bom dia Senhores.
Recebi a documentação para homologação TEF através da dll Clisitef.
Fiz as instalações e logo no no primeiro teste, "Venda com cartão de Débito" onde eu devo passar o cartão na maquina,
o sistema emite a mensagem "13-Operação cancelada? Yes/No" sem que eu tenha pressionado qualquer tecla.
Alguem pode me informar o que esta causando essa ação? Estou inicialmente usando o exemplo que usa o componente
ACBrTEFD1.
Obrigado.
-
Bom dia Senhores.
Recebi a documentação para homologação TEF através da dll Clisitef.
Fiz as instalações e logo no no primeiro teste, "Venda com cartão de Débito" onde eu devo passar o cartão na maquina,
o sistema emite a mensagem "13-Operação cancelada? Yes/No" sem que eu tenha pressionado qualquer tecla.
Alguem pode me informar o que esta causando essa ação? Estou inicialmente usando o exemplo que usa o componente
ACBrTEFD1.
Obrigado.
-
Obrigado. Enviei um email à SkyTef e estou no aguardo do retorno.
40 minutos atrás, Cleber disse:Tenho esses telefones. Talvez você consiga falar em algum deles:
- (11)3170-5300
- (11)3170-6721
- (11)4766-8000
Obrigado Cleber. Enviei um email à skytef e estou no aguardo.
- 1
-
Obrigado Daniel, vou contactar sim.
-
Bom dia Senhores.
Estou à mais de uma semana tentando obter o roteiro de homologação, dll,s e demais arquivos,
junto com a Software Express e ainda não me retornaram nenhum contato.
Já tentei baixar a dll e roteiro de homologação pra tentar adiantar os testes, mas, não encontro
disponível.
Alguém sabe onde posso consegui esse material enquanto a software Express atende os meus emails?
Obrigado.
acbrtefd
em Dúvidas Gerais sobre o ACBr
Postado
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;