DODOBA
Membros-
Total de ítens
41 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que DODOBA postou
-
Baixei o componente ACBreSocial, mas não estou sabendo como usar, tem algum exemplo prático ? e uma versão mais atualizada? já que não vi na instalação da acbr.
-
ok vou verificar! obrigado !
-
Bom dia ! Estou utilizando o ACBrTEFD em minha aplicação, mas notei que quando ele imprimi o comprovante do cartão esta saindo dois em cada copia ou seja dois para o cliente e dois para loja, como faço para ficar um só e também queria colocar uma linha identificando qual a via do cliente e a da loja.
-
duvida sobre valores na implementação da rotina ACBrTEFD1InfoECF
DODOBA replied to DODOBA's tópico in Dúvidas gerais
deu certo obrigado a todos pela ajuda ! -
deu certo obrigado a todos pela ajuda, vou continuar, valeu
-
duvida sobre valores na implementação da rotina ACBrTEFD1InfoECF
DODOBA replied to DODOBA's tópico in Dúvidas gerais
veja como coloquei o evento: procedure TFormPrincipal.ACBrTEFD1InfoECF(Operacao: TACBrTEFDInfoECF; var RetornoECF: string); var ASubTotal: Double; begin case Operacao of ineSubTotal : begin //ASubTotal := ASubTotal - StringToFloatDef(EditTotalPago.Text, 0){ + Tratar Desconto e Acrescimo aqui: StringToFloatDef(edValorDescAcre.Text, 0)}; ASubTotal := TOTALp; // ASubTotal := ASubTotal - TOTALPAGOp; RetornoECF := FloatToStr(ASubTotal); if estadoSimuladoEcf = tpsPagamento then RetornoECF := FloatToStr(TOTALp - TOTALPAGOp); end; ineTotalAPagar : RetornoECF := FloatToStr(TOTALPAGOp); ineEstadoECF : begin Case estadoSimuladoEcf of tpsLivre : RetornoECF := 'L' ; tpsVenda : RetornoECF := 'V' ; tpsPagamento : RetornoECF := 'P' ; tpsRelatorio : RetornoECF := 'R' ; else RetornoECF := 'O' ; end; end; end; end; onde TOTALp é o total do cupom e TOTALPAGOp é o valor que já foi pago incluindo o valor do tef agora. no caso do meu teste TOTALp tem o valor de 0,20 e TOTALPAGO de 0,20 também agora esta mostrando a mensagem "operação tef deve ser limitada ao saldo restante a pagar -
duvida sobre valores na implementação da rotina ACBrTEFD1InfoECF
DODOBA replied to DODOBA's tópico in Dúvidas gerais
ok EMBarbosa, mas se não estou usando impressora fiscal, uso somente o componente nfe, coloco o que na segunda opção, zero. -
duvida sobre valores na implementação da rotina ACBrTEFD1InfoECF
um tópico no fórum postou DODOBA Dúvidas gerais
bom dia estou com duvida qual valor colocar nas operações ineSubTotal : begin ASubTotal := ACBrECF1.Subtotal ; ASubTotal := ASubTotal - ACBrECF1.TotalPago + StringToFloatDef(edValorDescAcre.Text, 0); RetornoECF := FloatToStr( ASubTotal ) ; end; e ineTotalAPagar : RetornoECF := FloatToStr( CalculaTotalPago ); da procedure TForm1.ACBrTEFD1InfoECF, a primeira é o total da venda e a segunda é o tal dos pagamentos incluindo dinheiro também, e porque o subtotal subtrai o total pago. aguardo respota. -
Estou configurando o ACBRTEFD em minha aplicação nfce, mas estou com um erro que não consigo achar, porque esta no componente, quando faço a transação tef usando sitef demo com o cliente modular, toda transação que faço e feita, mas cancelada automaticamente retornando os dados do cancelamento e antes de aparecer a tela de cancelamento de transação na minha aplicação ocorre o seguinte erro (access violation at address 0000000 in module PSNFCE.exe. Read of address 0000000) deixando a tela travada e tenho que pressionar ctrl + alt + del para voltar ao normal, mas a aplicação não continua, causando erros nos próximos comandos. Bem, fiz o teste na aplicação demo e ocorreu o mesmo erro. Segue a figura do erro na aplicação teste ACBRNFCE DEMO. Estou precisando de uma certa urgência porque o demo do sitef vence em 5 dias. obs.: debugando não acontece o erro, mas também não cancela a transação. Douglas Bonfim de Azevedo bom dia ! vou relatar passo a passo com o demo, primeiro coloquei o número do cupom da nfc, depois o valor total da venda em 1 porque se colocar 1,00 ele informa que não tem valor, cliquei no botão iniciar venda, já tinha antes inicializado o tef com as configurações padrão múltiplos cartões e auto ativa gp, agora coloquei 1 em valor pagamento, cliquei em pagar em cartão, ele abriu o cliente modular e eu coloquei debito, depois avista, depois a senha, ele retorna (transação aprovada, Favor tratar o dados do comprovante.), cliquei em OK na mensagem, ele aparece o danf em fortes reporte fecho a visualização do danf, depois aparece a caixa que coloquei acima indicando que a ultima transação foi cancelada, cliquei em ok e logo a pós o erro como mostra a figura acima. Fiz um teste com uma impressora virtual no demotef e ele não cancela a transação e nem dar erro !
-
bom dia ! vou relatar passo a passo com o demo, primeiro coloquei o número do cupom da nfc, depois o valor total da venda em 1 porque se colocar 1,00 ele informa que não tem valor, cliquei no botão iniciar venda, já tinha antes inicializado o tef com as configurações padrão múltiplos cartões e auto ativa gp, agora coloquei 1 em valor pagamento, cliquei em pagar em cartão, ele abriu o cliente modular e eu coloquei debito, depois avista, depois a senha, ele retorna (transação aprovada, Favor tratar o dados do comprovante.), cliquei em OK na mensagem, ele aparece o danf em fortes reporte fecho a visualização do danf, depois aparece a caixa que coloquei acima indicando que a ultima transação foi cancelada, cliquei em ok e logo a pós o erro como mostra a figura acima. Fiz um teste com uma impressora virtual no demotef e ele não cancela a transação e nem dar erro !
-
coloque o nome do arquivo C:\1\log\logtef.txt e não foi também não tem que ativar outra propriedade.
-
coloque o caminho na propriedade teflog do exemplo e ele não gerou o log, veja as figuras. ok entendi
-
Mas o evento DepoisConfirmarTransacoes tem o seguinte codigo: procedure TForm1.ACBrTEFD1DepoisConfirmarTransacoes( RespostasPendentes: TACBrTEFDRespostasPendentes); var I : Integer; begin for I := 0 to RespostasPendentes.Count-1 do begin with RespostasPendentes do begin Memo1.Lines.Add('Confirmado: '+Header+' ID: '+IntToStr( ID ) ); Memo1.Lines.Add( 'Rede: ' + Rede + ' NSU: ' + NSU + ' Valor: '+ FormatFloat('###,###,##0.00',ValorTotal)) ; Memo1.Lines.Add('Campo 11: ' + LeInformacao(11,0).AsString ); end; end; end; que se refere ao memo tudo bem e o OnDepoisCancelarTransacoes não existe. estou enviando o código do meu exemplo em anexo Delphi.rar
-
como faço para ativar o tef log e como pegar os dados das transações canceladas.
-
Estou configurando o ACBRTEFD em minha aplicação nfce, mas estou com um erro que não consigo achar, porque esta no componente, quando faço a transação tef usando sitef demo com o cliente modular, toda transação que faço e feita, mas cancelada automaticamente retornando os dados do cancelamento e antes de aparecer a tela de cancelamento de transação na minha aplicação ocorre o seguinte erro (access violation at address 0000000 in module PSNFCE.exe. Read of address 0000000) deixando a tela travada e tenho que pressionar ctrl + alt + del para voltar ao normal, mas a aplicação não continua, causando erros nos próximos comandos. Bem, fiz o teste na aplicação demo e ocorreu o mesmo erro. Segue a figura do erro na aplicação teste ACBRNFCE DEMO. Estou precisando de uma certa urgência porque o demo do sitef vence em 5 dias. obs.: debugando não acontece o erro, mas também não cancela a transação. Douglas Bonfim de Azevedo
-
estou com o mesmo problema é quando cancelar a transação, já que estou usando o sitef como teste, e quando debuga não cancela e não dar erro
-
Boa tarde ! Estou usando o acbrtefd em meu sistema e estou testando-o em uma impressora daruma e outra epson, na daruma da tudo certo, mas na epson toda vez que finaliza a transação do tef e finaliza o cupon aparece a messagem TENTAR NOVAMENTE ?, antes que a impressora termine a finalização do cupon, dai eu digo que sim e ai e que ela vai imprimir os relatórios gerenciais. Como resolvo isso pois já tentei aumentar o tempo nas propriedades tanto do acbrtefd como acbrecf. Obrigado pela atenção! Espero resposta ! DOUGLAS