Jwest

Boa tarde, Usando componente TEF, eu fiz uma venda e paguei com GP Sitef. Tudo normal e transação efetuada e posso imprimir o comprovante TEF sem problemas. Estou usando o TEF sem acbrecf. Eu gostaria de reimprimir o comprovante. Eu uso, para fazer isso: ACBrTEFD1.ADM(gpCliSiTef); As telas do sitef são mostradas, eu escolho "Ultimo comprovante" e aparece o dialogo com a mensagem "conf. reimpressão", mas nada é reimpresso. O que preciso configurar para fazer a reimpressão? Onde fica guardado o arquivo que será lido para reimpressão? Eu tenho que salvá-lo manualmente para posterior reimpressão? Eu tenho configurado no \SiTef\CONFIG\sitefcfg.ini [Redecard] HabilitaReimpressao=1 DiasReimpressao=10 Mas não reimprime. Luiz

Resolvido, tem que criar a forma de pagamento 02 antes.

Resolvido pesquisando nos fontes, desculpe

Boa tarde, Como posso gerar uma NFS-e e imprimir a DANFSe direto para a impressora, sem preview usando fortesreport. O demo da NFS-e usa essas funções da lib que sempre mostram a previa de impressão. function Enviar(ALote: integer; Imprimir: Boolean = True): Boolean; overload; function Enviar(ALote: String; Imprimir: Boolean = True): Boolean; overload; Minha app é de auto-tendimento e não preciso de prévia de impressão. Luiz

Como obter o no. da transacao aberta para cancelar? Em que condições isso ocorre usando o acbrtef com acbrecf?

Obrigado Juliomar, sempre prestativo. Mas, qual aplicação usar para desfazer? Term muitos executáveis junto ao sitidemo.exe, poderia me dizer qual? Como desfaço a transação? Alguma dica, ou demo do acbr mostrando como? Já aprendi muito aqui, mas estou longe ainda de saber esses detalhes.

Bom dia, estou fazendo alguns teste com tefdemo e sitef(sitdemo). Após alguns testes de venda, quando faço: ACBrTEFD1.CRT( total ,'02', '04'); Estou tendo o erro de 'transacao ja efetuada' e não sei como "resetar" o tef para fazer uma nova venda. Qual comando do acbrtef eu tenho que emitir para limpar tudo e fazer uma nova venda? Em anexo está o log do sitdemo do Sitex.

OK, Resolvido. Mudei o codigo para checar o tipo de campo primeiro antes de mostrar o form.

Não funfa não. Coloquei a tag=1. Como disse esse codigo só é chamado após o dialogo do SITef pedindo a taxa de embarque aparecer. Eu quero justamente o contrário, que ela não apareça.

Juliomar eu apenas copiei e colei e fiz alguns ajustes no TEFDemo para acomodá-lo, mas pelo que vi, quando esse código é executado já é muito tarde. Esse código é executado somente após o dialogo pedindo a a taxa de embarque ter sido mostrado. Minha intenção é prevenir que dialogo apareça, pois não preciso dele. Não tenho taxas de embarque e serviço, no meu caso.

Preciso que o dialogo da taxa de embarque e serviço não apareça na sequência do TEF. Vi essa resposta antiga do Daniel em um post sobre TEF. Eu tentei usa-la mas não parece surtir efeito. Na sequencia de telas do Sitef, usando como base o tefdemo, o form para taxa de embarque e serviço sempre aparece. Estou tentando escondê-la assim: procedure TfrmPrincipal.ACBrTEFD1CliSiTefObtemCampo(Titulo: string; TamanhoMinimo, TamanhoMaximo, TipoCampo: Integer; Operacao: TACBrTEFDCliSiTefOperacaoCampo; var Resposta: AnsiString; var Digitado, VoltarMenu: Boolean); Var AForm : TfrmDadosTef ; MR : TModalResult ; PerguntaCampo:boolean; begin AForm := TfrmDadosTef.Create(self); try AForm.Panel1.Caption := Titulo; AForm.TamanhoMaximo := TamanhoMaximo; AForm.TamanhoMinimo := TamanhoMinimo; AForm.Operacao := Operacao; AForm.TipoCampo := TipoCampo; AForm.Edit1.Text := Resposta; { Para usar Valores Previamente informados } MR := AForm.ShowModal ; Digitado := (MR = mrOK) ; VoltarMenu := (MR = mrRetry) ; case TipoCampo of 504 : // Taxas de Servico e Taxa de Embarque begin PerguntaCampo := (ACBrTEFD1.TEFCliSiTef.Tag > 0) ; if not PerguntaCampo then begin Digitado := True; VoltarMenu := False; Resposta := '0,00' ; end end ; else if Digitado then Resposta := AForm.Edit1.Text; end; finally AForm.Free; end; end; Dados do post antigo do Daniel: "Se a pergunta tive um "TipoCampo" específico a ela, você poderia simplesmente enviar a resposta para o TEFD, sem abrir a tela para o usuário... No caso do SiTef eu uso isso para não exibir as perguntas de Taxa de Serviço e Embarque da Visa" 504 : // Taxas de Servico e Taxa de Embarque begin PerguntaCampo := (ACBrTEFD1.TEFCliSiTef.Tag > 0) ; if not PerguntaCampo then begin Digitado := True; VoltarMenu := False; Resposta := '0,00' ; end end ;

Correção acima de R$1000 -6 parcelas

Como eu configuro o componente AcbrTEF para parcelamento com o Sitef: Até R$100 - a vista de R$101 a R$500-3 parcelas de R$501 a R$1000-4 parcelas acima de R$1001 a R$1000-6 parcelas

OK obrigado

Também, coloquei acbrecf, agora, mas como mostro apenas o cartão de debito e credito nas opçoes?

Pelo que li de outro post do Regis, expert em acbr, SITEF não tem GP e não precisa ativá-lo. Acho que voce tem que remover o codigo que ativa o GP. Mas vc precisa ainda inicializa-lo

Mais uma observação. Não estou usando ECF

Estou tentando fazer a certificação com skytef Quando aparece as formas de pagamento, como abaixo, eu gostaria que aparecesse apenas 1.Cartão de Crédito 2.Cartão de Débito Como faço isso na configuração do ACBRTefD->CliSitef?

Tentei , mas parece que o componente ACBrTefD ao usar o Sitef, chama "VerificarTransacaoPagamento(valor)" e e checa o estado ECF dando erro em procedure TACBrTEFDClass.VerificarTransacaoPagamento(Valor: Double); var SaldoAPagar : Double ; begin Valor := RoundTo( Valor, -2); if (Valor <= 0) then raise EACBrTEFDErro.Create( ACBrStr( 'Valor inválido' ) ); { Lendo o SubTotal do ECF } with TACBrTEFD(Owner) do begin if not (EstadoECF in ['V','P','N']) then -->aqui

OK, meu erro. Contei errado.

Tenho um cliente que precisa o TEF e ele só vai vender serviços e não produtos.

Na Unit ACBrTEFD.pas temos a definição: Function CRT( const Valor : Double; const IndiceFPG_ECF : String; const DocumentoVinculado : String = ''; const Moeda : Integer = 0 ) : Boolean ; ... function TACBrTEFD.CRT(const Valor: Double; const IndiceFPG_ECF: String; const DocumentoVinculado: String; const Moeda: Integer): Boolean; begin Result := fTefClass.CRT( Valor, IndiceFPG_ECF, DocumentoVinculado, Moeda ); end; Mas no TEFDemo, ela é chamada com o argumento moeda como sendo do tipo string: procedure TForm1.bCRTClick(Sender : TObject); begin bCancelarResp.Visible := False; fCancelado := False; ACBrTEFD1.CRT( StringToFloatDef(edValorTEF.Text, 0) ,edFPGCartao.Text, ACBrECF1.NumCOO); MostraSaldoRestante; end; Se eu uso: ACBrTEFD1.CRT( StringToFloatDef(edValorTEF.Text, 0) ,edFPGCartao.Text, 4); Eu tenho um erro de parametros ."[dcc32 Error] Unit1.pas(1115): E2010 Incompatible types: 'string' and 'Integer'' O que pode estar errado? Luiz

Boa tarde, É possivel usar algo como o TEFDDemo para trabalhar junto com NFS-e e impressora jato de tinta? Quais componentes deveria usar?

Obrigado Juliomar, Te mandei whatsup e email sobre assesoria, mas você não respondeu.

Estou tentando usar o TefDDemo, fiz os seguintes passos: ECF->configurada para EcfNaoFiscal, porta: c:\temp\ecf.txt TEF->configurada para gpCliSitef Passos: 1.Ativar ECF -> resultado ok 2. TEF->inicializar->resultado ok 3.Operação-ECF-Abrir 4.Operação-ECF-Vende Item 5.Operação-ECF-Subtotalizar 6.Operação-CRT 7.Escolho a opção Cartão de Credito 8.Tipo de cartão - digitado 9. preencho no. do cartao 9. preencho data evencimento 10.Opção cartao crédito 11. codigo do cartao 12. forma de pagamento a vista 13.tx embarque -0 14.tx serviço-0 Após isso eu teno o erro: foma de pagamento inválida '02' e em seguida ' transação não efetuada favor reter o cupom.' O que estou fazendo errado? Estou tentando o demo para imprimir para um arquivo texto, pois não tenho muita experiência ainda nas configurações dos componentes. Não tenho impressora daruma, nem epson ou qualquer outra fiscal.Tenho apenas uma impressora epson L355 jato de tinta. Como posso configurar os componentes para ela?