Juliomar Marchetti

Dá uma conversada com o pessoal da EasyTEF acho que eles devem ter algo

Elton estava viajando pois os clientes querem tudo automatico querem cancelar e o cupom e seja enviado para o tef o comando para cancelar a transação que já foi confirmada e também querem que eu saiba que quando foi feito um cancelamento de transação lá no fim do dia eu consiga cancelar o cupom pro cliente também... ai confundi tudo.... mas está correto o que vocês me passaram, tanto o que você falou quanto ao link do post que o daniel passou pode ser fechado o post

certo mas o estorno vai ser feito do cupom dentro da ecf e vai ser emitido um canhoto com ele eu gostaria de pegar esse estorno pra fazer dentro do sistema

Obrigado daniel cheguei a pesquisar no forum mas não vi esse post

Obrigado pela dica mas e se no caso for cancelado uma operação anterior ele vai gerar e gerar o cupom de estorno depois de algumas vendas eu já estou com todas as minhas classes e variaveis zeradas ou até mesmo com outros cupons já emitidos eu tenho como saber de qual cupom fiscal está sendo feito o extorno ou o cancelamento total do tef? não sei se expliquei bem

Bom dia Achei que tinha feito correto o cancelamento do TEF, mas acho que me enganei consigo fazer o cancelamento do cupom e da transação tef só que não consigo pegar o retorno pra saber qual o cupom que foi estornado com a transação tef vou explicar como foi feito, efetuo a venda, fecho a venda com cartão e logo em seguida, manda o comando na ecf pra cancelar só que o número do cupom fiscal não me retorna pra mim saber qual devo cancelar no meu banco

isso mesmo jean todos os dados vem do banco filtra pelo periodo selecionado e gera o arquivo

senão me engano é EmulMFD=1

você habilitou no arquivo o local que diz pra emular a MFD? dá uma verificada no ini q configuração da bematech

bom dia sim é as dll´s da bematech baixe atualizada do site que resolve seu problema

Daniel sim eu cheguei a cogitar o uso do DescontoAcrescimoItemAnterior mas depois desisti, fiz os testes e está 100% tópico pode ser fechado.

Corrigido... Pode fechar o tópico

Boa tarde No dia da minha homologação do PAF me ocorreu um erro curioso na primeira vez que gerei algum arquivo e assinei foi beleza depois quando fazia assinatura novamente ele ocorria o erro de Acess violation se saisse da tela e entrasse novamente ele assinava corretamente até o homologador questionou mas funcionou saindo e entrando do sistema beleza hoje estava a testar algo que não tinha a ver e resolvi olhar a unit ACBrEAD.pas percebi que no create ele setava os valores constructor TACBrEAD.Create(AOwner : TComponent) ; begin inherited Create(AOwner) ; fsInicializado := False ; e dai no initopenssl procedure TACBrEAD.InitOpenSSL; begin if fsInicializado then exit ; mas não tinha outro local informando pra false a fsInicializado então fiz a seguinte alteração procedure TACBrEAD.LiberarChave ; begin if fsKey <> Nil then begin EVP_PKEY_free( fsKey ); fsKey := nil; fsInicializado := false; // <<---AQUI end; end ; e não ocorreu mais o problema ocorreu com alguém também o mesmo problema??? Uso Zeos pra conectar com postgresql que tb usa a libeay32.dll

Tive problemas com uma Mecaf fui obrigado a programa usando a dll dela mas o caso foi que a ecf sofreu uma queda de luz e queimou depois que retornou da assistencia só com a dll pra funcionar

boa tarde fiz a atualização do svn DescontoAcrescimoItemAnterior no corpo está colocando o valor default no NumItem = 0 ocasionando erro.

alguém esta com dificuldade na inutilização de notas no estado do PARANÁ??

Também estou a disposição para ajudar caso necessário.

Bom dia Daniel não cheguei a cojitar o erro na unit da Bematech por que fiquei com a pulga atrás da orelha você acredita ser necessário nesse caso aplicar as mesmas funções pra quando é verificado se trunca ou arredonda o ecf?

Daniel usava o simpleroud ou melhor o TruncFix Criado por vocês para truncar, mas comecei a perceber que mesmo assim problema ocorria então resolvi fazer um teste, fiz uma função e usei ela no local do truncfix, onde ele estava fazendo correto continuou correto e onde estava errado começou a ficar correto. olhe o codigo abaixo function TruncFix(x: Double; n: integer): Double; begin Result := IntPower(10, n); Result := Trunc(StrToFloat(FormatFloat('0.0000000000', x * Result))) / Result; end; onde se eu usar ela em toda a minha aplicação ele corrige e fica igual a emissão em ecf normal e o emulador será que seria o caso de modificar a função???? uso ela nos calculos de desconto e nas minhas telas, só fui pegar o erro por que o pessoal do suporte foi testar e me questionou pq na ecf estava de um jeito e na bobina de outro.

Bom Dia Estava fazendo testes de descontos com a ECF usando o emulador no meu caso fiz uma venda de 333,62 e fiz um desconto de 10,08% dentro do software eu trato se a ecf está para truncar ou arrendodar, no caso ela não arrendonda só trunca tanto no emulador da bematech quando na ecf bom os valores que fica gravado no banco caso seja efetuado o desconto de 10,08% é de 299,99 onde no emulador faz a mesma situação e no meu banco também, somente no caso do memo ele coloca o valor de 300 redondo fui verificar mas ele está tratando para quando for arredondamento e truncamento com RoundTo ou TruncFix e mesmo assim causa o problema será que seria o caso do TruncFix estar errado no tratamento em anexo imagens com a venda

Amaury isso acontece quando ocorre o seguinte você faz alterações nos fontes da sua maquina e ao atualizar ele tenta fazer um merge ou mostra pra você que possui conflitos e marca esse arquivo essa parte quer dizer que faz parte da sua unit alterada localmente se alguém souber explicar melhor a situação

Amigo se for pra continuar a compatibilidade cross plataforma não poderás usar a dll Se estiver usando o lazarus tem algumas formas de fazer a execução atraves do TProcess senaõ me engano ou algo assim boa noite jovem...

Amigo apaga tudo que você tem de antigo do ACBr baixa novamente do SVN e refaz a instalação a menos é claro que tenha feito alterações especificas no ACBr abraços..

amigo tratamento elegante with ACBrSPEDPisCofins1.Bloco_0.Registro0200New do begin COD_ITEM := sp_0200.FieldByName('COD_ITEM').AsString; DESCR_ITEM := sp_0200.FieldByName('DESCR_ITEM').AsString; TIPO_ITEM := TAcbrTipoItem(sp_0200.FieldByName('TIPO_ITEM').AsInteger); end; espero ter lhe ajudado

desculpe a pergunta mas não está no tópico errado?