Hetosoft Sistemas

Blz Usei ShowMessage( FloatToStr( RespostasPendentes.ValorTotal ) ); procedure TForm1TEFD.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 ); ShowMessage( FloatToStr( RespostasPendentes.ValorTotal ) ); ///------------------EU end; end; para ver o total, mais so min mostra quando termina de imprimir tudo, tem algum evento que eu possa pega o toal para modifica a tela do soft, depois que confirma o cartao?

Uma duvida uma venda de 40,00 coloque 10,00 acrescimo ficou um total de 50,00 entao acionei um CRT de 50,00 que min retornou 5,00 real de desconto, entao ficou assim subtotal 40,00 acrecimo de 5,00 ( 10,00 acrecimo - 5,00 desconto cielo premier) ---------------- 45,00 45,00 cartao 0,00 troco NO ECF ta assim, vou ter que passar esses valores para o soft, e mostra para o cliente na tela do soft, porque na tela do meu soft ta assim total 50,00 (40 + 10 acrecimo) 50,00 RECEBIDO CRT 0,00 TROCO É OBRIGATORIO ?

if Form1TEFD.ACBrTEFD1.CHQ( StrToFloat(Form1TEFD.edValorTEF.Text) ,Form1TEFD.edFPGCheque.Text, dm.Client_CUPOMCOO.Text)=True then quando executo essa funcao, e na hora de coloca os dados em ObtemCampo ex 0:51646464646464666464645446 mais se coloco sem 0: 51646464646464666464645446 da ERRO DE INFORMACOES se o cliente sem quere tira o 0:, como automaticamete ao finalizar ENTER coloco automatico 0:

Ja tentei de tudo aqui e nao consigui diminuir o tempo de espera para a primerira via para segunda, nos comprovante tef estaem 2 segundos como façor para muda para 1 ou ate menos ?

1-liquei e coloquei no CliSiTef.ini [CliSiTefI] HabilitaTrace=1 é uma opcao iqual taxa de servico e embarque. ------------------------------------------ So um problema no acbr ta tudo ok total 2,00 cartao 2,50 ( cartao 2,00 saque 0,50 ) troco 0,50 mais no sistema mostra total 2,00 cartao 2,00 troco 0,00 Eu tenho que pega o valor do saque e coloca no meu sitema um total de cartao de 2,50 ? e como faco para saber que tem saque e o valor dele ? --------------- 2-Outra peguntar no campo coloque taxa de servico, ou taxa de embarque ta ok mais agora tem mais uma que é saque, ta mostrando assim VISA ELECTON mais na verdade o suporte do software spress falaou que tem que ser assim VISA ELECTON SAQUE porque sera que ta diferente ? --------------- 3-Outra peguntar toda transacao de cartao depois que finalizar , o cartao é aprovado, pode ser no primeiro cartao ou no segundo, mostra a messagem Operation aborted com botao de OK do ok e blz nao acontece nada , sera que o do acbr ? --------------- 4-Outra peguntar o valor da taxa de embaque e de servico preciso colocar no meu sistema ou nao?

no meu sitef demo, nao tem a opcao de saque , estou usando cartao visa debito - opcao avista. essa opcao de saque aparece, no form ObtemCampo como TAXA DE EMBARQUE , TAXA DE SERVICO ou no form ExibeMenu ?

- Realizar uma transação com cartão de Débito - Selecionar a opção: á vista - Valor do Saque: R$ 10,99 - Passar o 2º cartão em crédito à vista - Ao solicitar taxa de serviço digitar até 10% do valor da venda - Prosseguir com a venda normalmente ----------------------- Lique para software spreess e falai que o meu sitef teste, nao aparece a opcao de coloca o SAQUE, o suporte falou que o saque na verdade é o troco ex compra 10 cartao 12 troco 2 (que 2 seria o saque), ai vem essa sequencia 67. que dis para eu coloca o saque no primiero cartao, o que devo fazer ?

DEMO ACBRNFE2. 0 - retorno as ultimas notas emitidas de 15 dias . Correto. a pegunta é porque nao retorna ? mostra a messagem menhum documento para este destinatario. sabendo que tem nota deste ultimo 15 dias. sabendo que nao quero baixar o xml, e sem informcoes sobre o tratamento do manifestacao. ex chave, cnpj emitente, nome empresa, total, inform manifesto. (*veja NT 2012/002 pág. 11 para identificar os valores possíveis Último NSU recebido pela Empresa. Caso seja informado com zero, ou com um NSU muito antigo, a consulta retornará unicamente as notas fiscais que tenham sido recepcionadas nos últimos 15 dias.*) ultNSU := '0'; if not(InputQuery('WebServices Consulta NFe Destinadas', 'Último NSU recebido pela Empresa', ultNSU)) then exit; ACBrNFe1.ConsultaNFeDest(CNPJ, StrToIndicadorNFe(ok,indNFe), StrToIndicadorEmissor(ok,IndEmi), UltNSu); Pag.11 IP08 ultNSU E IP01 N 1-1 1-15 Último NSU recebido pela Empresa. Caso seja informado com zero, ou com um NSU muito antigo, a consulta retornará unicamente as notas fiscais que tenham sido recepcionadas nos últimos 15 dias.

Vc é o cara mano.

é real, do meu banco, mais vou liga la, blz

nao conseguir coloca a imagem, mais a messagem depois que envio o comando Cara nao conseguir endentifica se o sitef ou acbr ? mais o comando é esse: ACBrTEFD1.CHQ( 1.00 ,'04', '004620', '', 'J', '08398100000120', StrToDate('19/03/2013'), '399', '0820','5', '145953','7', '660497','8', ''); MostraSaldoRestante; mais limpei o log. e clique em CHQ - onde esta o comando acima Log acbr: -- 20/03 11:35:42:591 - BloquearMouseTeclado: SIM -- 20/03 11:35:42:592 - ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer = -- 20/03 11:35:42:609 - ContinuaFuncaoSiTefInterativo, Retornos: STS = -100 ProximoComando = 22 TipoCampo = -1 Buffer = Tam.Min = 1 Tam.Max = 2 -- 20/03 11:35:42:609 - *** ContinuaFuncaoSiTefInterativo, Finalizando: STS = -100 -- 20/03 11:35:42:610 - BloquearMouseTeclado: NAO -- 20/03 11:35:43:425 - InfoECF: ineEstadoECF -- 20/03 11:35:43:452 - Ret: P -- 20/03 11:35:43:453 - InfoECF: ineSubTotal -- 20/03 11:35:43:545 - Ret: 1 -- 20/03 11:35:43:545 - InfoECF: ineTotalAPagar -- 20/03 11:35:43:546 - Ret: 0 -- 20/03 11:35:43:547 - *** IniciaFuncaoSiTefInterativo. Modalidade: 1 Valor: 1,00 Documento: 004620 Data: 20130320 Hora: 113543 Operador: Restricoes: [15;25]{TipoTratamento=4} -- 20/03 11:35:43:556 - BloquearMouseTeclado: SIM -- 20/03 11:35:43:557 - ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer = -- 20/03 11:35:43:583 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 1 TipoCampo = -1 Buffer = Conectando SiTef Tam.Min = 0 Tam.Max = 0 -- 20/03 11:35:43:584 - CliSiTef DoExibeMsg: Oper: opmExibirMsgOperador Mensagem: Conectando SiTef -- 20/03 11:35:43:587 - ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer = -- 20/03 11:35:43:597 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 13 TipoCampo = -1 Buffer = Tam.Min = 0 Tam.Max = 0 -- 20/03 11:35:43:598 - CliSiTef DoExibeMsg: Oper: opmRemoverMsgOperador Mensagem: -- 20/03 11:35:43:609 - CliSiTef DoExibeMsg: Oper: opmRemoverMsgCliente Mensagem: -- 20/03 11:35:43:610 - ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer = -- 20/03 11:35:43:617 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 1 TipoCampo = -1 Buffer = SiTef Conectado Tam.Min = 0 Tam.Max = 0 -- 20/03 11:35:43:618 - CliSiTef DoExibeMsg: Oper: opmExibirMsgOperador Mensagem: SiTef Conectado -- 20/03 11:35:43:621 - ContinuaFuncaoSiTefInterativo, Chamando: Contina = 0 Buffer = -- 20/03 11:35:43:634 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 22 TipoCampo = -1 Buffer = Dados Invalidos Tam.Min = 1 Tam.Max = 2 -- 20/03 11:35:43:634 - CliSiTef DoExibeMsg: Oper: opmOK Mensagem: Dados Invalidos -- 20/03 11:35:43:635 - BloquearMouseTeclado: NAO

Cara vc é direto, mais se foce para escolher o melhor suporte acbrsaq seria vc.

blz vou muda não. mais brigadao por fala onde modificar , legal. vou guarda a linha.

Estou usando o demo ACBrTEFD. no teste 68, - Realizar uma transação de Crédito magnético com uma parte do valor da venda - Selecionar a opção á vista - Chamar o 2º cartão com o valor restante da venda, ao aparecer a mensagem de “Insira ou passe o cartão”, desligar o computador (reset) e em seguida desligar a impressora - Ligar novamente o computador e não ligar a impressora - Cancelar a transação TEF mesmo com a impressora desligada e caso não tenha lançado a forma de pagamento é permitido aproveitar o cupom fiscal, caso contrário, cancelar o cupom fiscal. Resultado Esperado “Última transação TEF não foi efetuada. Favor reter o Cupom.” ---------------------------------------------------- Mais quanto eu abro o TEFDDemo e ativo o gpCliSitTef ele mostra esta messagem e confirma o TEF o que devo Fazer ? Transação TEF efetuada. Favor reimprimir ultimo Cupom. NSU: 000200005 (Para Cielo utilizar os 6 últimos digitos) O que devo fazr ? --------------------- 2 etapa ----------------------------- fis o mesmo teste com a impressora LIGADA e deu certo ! Messagem: Transacao nao efetuada. Favor reter o Cupom.

Estou usando o demo ACBrTEFD. no roteiro fala para mostrar a mensagem: “Última transação TEF foi efetuada. Favor reimprimir o Cupom. NSU: 0000001 NSU: 0000002 mais o acbrtefd mostra assim “Transação TEF foi efetuada. Favor reimprimir o Cupom. NSU: 0000001 0000002 a diferença esta na letra ULTIMA ,e para mostra os cartões efetuados para cada NSU mostra um NSU: antes pode ser assim mesmo ou tenho que Muda no acbr ?

o que devo coloca em const Compensacao: String = '' : ja deichei em blanco '', ja coloque 'True' e 'False' mais continua dando erro de DADOS INVALIDOS. ACBrTEFD1.CHQ( 1.00 ,'04', '004620', '', 'J', '08398100000120', StrToDate('20/03/2013'), '399', '0820','5', '0000145953','7', '660497','8', ''); E agora coloquei tudo manual e nada.

desde do comerco eu fiz com o demo do ACBrTEFD (Atualizado) ACBrTEFD1.CHQ( StringToFloatDef(edValorTEF.Text, 0) ,edFPGCheque.Text, ACBrECF1.NumCOO, '0', 'J', '08398100000120', StrToDate('20/03/2013'), '399', '0820','5', '0000145953','7', '660497','8'); os dados estao todos corretos, mais fala DADOS INVALIDOS.

estou no teste 60 do sitef Realizar uma transação de Cheque cupom item subtotal - pagamento chque, isso no demo do acbrtefd e coloco o comando acima, e da o erro de dados invalidos.

{ Function TACBrTEFD.CHQ( const Valor : Double; const IndiceFPG_ECF : String; const DocumentoVinculado : String = ''; const CMC7 : String = ''; const TipoPessoa : AnsiChar = 'F'; const DocumentoPessoa : String = ''; const DataCheque : TDateTime = 0; const Banco : String = ''; const Agencia : String = ''; const AgenciaDC : String = ''; const Conta : String = ''; const ContaDC : String = ''; const Cheque : String = ''; const ChequeDC : String = ''; const Compensacao: String = '' ) : Boolean ; begin Result := fTefClass.CHQ( Valor, IndiceFPG_ECF, DocumentoVinculado, CMC7, TipoPessoa, DocumentoPessoa, DataCheque, Banco, Agencia, AgenciaDC, Conta, ContaDC, Cheque, ChequeDC, Compensacao); } ACBrTEFD1.CHQ( StringToFloatDef(edValorTEF.Text, 0) ,edFPGCheque.Text, ACBrECF1.NumCOO, '0', 'J', '08398100000120', StrToDate('20/03/2013'), '399', '0820','5', '0000145953','7', '660497','8'); MostraSaldoRestante; Coloco esses dados , e fala que Dados invalidos, o que eu devo ta fazendo de errado?

Desculpa mais peguntei algo Errado ? O acbrnfe2 ta fazendo o buscando as notas emitidas para cnpj certinho ? ---------------------------- depois de 3 dias alguem pode min responder , to perdidao.

Desculpe mais eu tenho esse pdf, nas nao coneguir enteder, 0 - retorno as ultimas notas emitidas de 15 dias . Correto. a pegunta é porque nao retornou? (*veja NT 2012/002 pág. 11 para identificar os valores possíveis Último NSU recebido pela Empresa. Caso seja informado com zero, ou com um NSU muito antigo, a consulta retornará unicamente as notas fiscais que tenham sido recepcionadas nos últimos 15 dias.*) ultNSU := '0'; if not(InputQuery('WebServices Consulta NFe Destinadas', 'Último NSU recebido pela Empresa', ultNSU)) then exit; ACBrNFe1.ConsultaNFeDest(CNPJ, StrToIndicadorNFe(ok,indNFe), StrToIndicadorEmissor(ok,IndEmi), UltNSu); Pag.11 IP08 ultNSU E IP01 N 1-1 1-15 Último NSU recebido pela Empresa. Caso seja informado com zero, ou com um NSU muito antigo, a consulta retornará unicamente as notas fiscais que tenham sido recepcionadas nos últimos 15 dias. Desculpa, mais to travadao nesta questao.

Mais no espião também coloco zero, mais como vou descobrir o ultimo NSU?

Atualizei meu acbr e vir uma opção nova, a mesma opção que tem o proprama Espião NF-e, Consulta NFe Destinadas mais sempre min retorna - Nenhum documento localizado para o destinatario coloquei o cnfp e 0 0 0 para os parâmetros, sabendo que a opção Manif. Dest. - Conf. Operação - ta funcionado pos no soft Espião NF-e mostra as ultimas notas de 15 dias, e meu manifesto da nota nº1245 ta lar ok, estou usando delphi 7, o que pode ser? sabendo que estou usando o próprio demo sem nenhuma modificação.

O ACBr tem ? Manifestação do Destinatário: Confirmação da Operação, Desconhecimento da Operação e Operação não Realizada de NF-e.

Aonde eu posso ler sobre esse assunto, sabendo que nem sei o que o ACBrMDFe.