Ir para conteúdo
  • Cadastre-se

tchuck

Membros
  • Total de ítens

    674
  • Registro em

  • Última visita

  • Days Won

    1

Tudo que tchuck postou

  1. Fiz o mesmo teste hj usado no ACbrTeste mas dentro da minha aplicação e no ACBrTeste deu o mesmo erro exemplo de teste usando na aplicação so alterando a propriedade do Cód. de barras FDataModule.ACBrECF.VendeItem(VendaDetalhe.GTIN, 'DESCRICAO DO PRODUTO', 'NN', 1, 8.95, 0, 'UN', '$'); Modelo do ACBrTeste Form1.ACBrECF1.VendeItem(CodBarras, 'DESCRICAO DO PRODUTO', 'NN', 1, 1.5, 0, 'UN', '$'); Eu estou usando a impressora Virtual associada
  2. EmBarbosa estou tentando descobrir aqui mas ele da o erro aleatório na função que passei acima o que eu notei é que quando da erro nem entrar no except congela tudo ta muito estranho. O problema so esta acorrendo com as atualizações novas do acbr tenho uma do mês de setembro em uma maquina virtual e não da o erro. To o dia todo revendo isso oq pode ser mas é meio doido tem hora que passo 400 itens sem problemas em algum momento da o erro com 50 itens 30 mas não é sempre e é sempre os mesmos itens que estou testando.
  3. Repare que no ultimo item ele não lançou totalmente. Do nada ele para isso sempre da acima de 50 itens. mas no debug ele para na função mencionada acima dando o erro tbm acima informado.
  4. tchuck

    Erro ao Registrar Item

    Não sei se isso ja aconteceu com alguém, mas comigo esta acontecendo diariamente de quando vou registrar os itens esta dando erro na fsECF.VendeItem( Codigo, CodificarPaginaDeCodigoECF( Descricao ), AliquotaECF, Qtd, ValorUnitario, ValorDescontoAcrescimo, Unidade, TipoDescontoAcrescimo, DescontoAcrescimo, CodDepartamento ); ou seja estou efetuando o mesmo item varias vezes quando lanço cima de 50 itens da erro na função acima congelando a aplicação isso sando ecf ou ecfVirtual mas acontece mais usando a ecf virtual associado ao compónente ACBrECF. Segue o log e a mensagem que esta dando. Log.txt
  5. No meu Caso Desenvolvi um Componente para o Mesmo, fiz isso para todos os convênios. O que vc precisa pegar deles é o desconto e enviar o menor preço aplicando o desconto e comparar com o seu aplicativo e qual tiver o menor preço aplicar. Eles são terríveis para homologar achei mais fácil o paf do que a homologação do TrCenter rsrssrrs
  6. Temos uns cliente que estão imprimindo o comprovante sem o valor na primeira via, segue anexo print do comprovante e o arquivo de retorna gerado pelo tef no qual o mesmo sai o valor corretamente. O problema esta acontecendo com o NFC-e e com o Cupom Fiscal Paf-ECf também. IntPos(1).001
  7. A integração não tem nada a ver com o componente ACBrTEFD ele so vai ser requisitado em um teste que tem q transmitir o tef. Eu ja fiz a autorização do sistema e não usei nada do ACBr para fazer a autorização.
  8. Bom Dia, Existe uma forma de eu recuperar o numero do lote enviado na NFC-e; Aconteceu um problema em alguns clientes meu de não gravar o numero do lote.
  9. Estou com o mesmo problema e não tenho nem uma unit libeay32 no sistema.
  10. Boa tarde, Joao como vc conseguiu rodar o ACBr em Android pois aqui no meu Delphi ele fica desabilitado quando mudo para Android e da um monte de erros.
  11. Resolvi o problema antes eu passava qualquer arquivo sem sua extensão e funcionava, agora tive que colocar a extensão .txt para funcionar
  12. Estou tendo problemas, com essa atualização, por exemplo eu utilizo as impressoras virtuais com o ACBrECF por causa do pafecf, eu passo para a porta do ACBrECF uma porta qualquer tipo NFCe no formato txt, mas agora com essa nova propriedade ela não deixa o sistema entrar mais dizendo Impressora não encontrada.
  13. Tambem estou com o mesmo problema nas mesmas marcas de impressora, mas o problema ocorre muito é na bematech no meu caso muitas vezes é -- 26/09 17:29:23:644 Estado -- 26/09 17:29:26:644 ----------------- ERRO ----------------- Impressora BEMATECH não está em linha ----------------------------------------
  14. consegui resolver o meu problema fazendo a seguinte mudança alterei a ACBrNFeDANFEFRDM.pas na procedure CarregaPagamento if vTroco > 0 then begin Last; Edit; FieldByName('vPag').AsFloat := FieldByName('vPag').AsFloat + vTroco; Post; Append; FieldByName('tPag').AsString := 'Troco R$'; FieldByName('vPag').AsFloat := vTroco; Post; end;
  15. Estou com um problema no valor pago com troco, por exemplo tem uma venda no valor de 22,00 pago 25,00 mas no danfe não sai o valor pago de 25,00 e sim 22,00 e logo a baixo o troco de 3,00. To tentando achar uma solução mas não estou conseguindo, pois se eu passar para o componente na tag vPag o valor de 25,00 da erro de valor ser diferente do totais do produto, uns clientes me mandaram uns danfe com essa opção, mas não sei de qual componentes foi. Segue um anexo do danfe como esta saindo. Caso alguem souber de alguma forma de resolver o problema eu agradeço. DANFeNFCe.pdf
  16. No meu caso eu deixo os cancelados pois trabalhamos com supermercados e para controle, vai precisar dos cancelados. quando faço a transmissão eu recrio a sequencia dos itens
  17. E realmente ele não gravou tive q colocar via codigo passando os valores.
  18. mesmo eu alterando as margens não deu certo, ficou do mesmo cortando, todas as configuração de tamanho eu usei e sempre corta. Fiz um debug e mesmo com as informações de margens zerada ele esta pegando em algum lugar essa margem O problema eu resolvi mudando na unit ACBrNFeDANFEClass ele esta com esses valores a abaixo como padrão então mesmo eu diminuindo nas propriedades do componente para 0 ele sempre vinha com esses valores pelo mesmo para resolver um problema do cliente comentei os valores padrões. FMargemInferior := 0;//0.8; FMargemSuperior := 0;//0.8; FMargemEsquerda := 0;//0.6; FMargemDireita := 0;//0.51;
  19. Fiz a atualização do meu componente hj e quando fui emitir algumas notas percebi que o danfe esta cortando, e a dois dias a traz estava certinho. segue o pdf do danfe com o problema, fiz um teste do fortereport e agora o danfe ficou meio embolado. DANFeNFCe.pdf
  20. Obrigado Juliomar, aqui no teste funcionou certinho.
  21. Estou com um problema em clientes com PinPad o mesmo não encontra a porta de comunicação do mesmo tem 10 caixas parados com o tef por esse problema alguem sabe como resolver esse problema, os PinPad são usbs e tem as portas configuradas no arquivo ini certinho mas sempre da erro de falha de PinPad
  22. Bom Dia Renan, eu uso no sistema mais antigo o ACBrECFVirtualNFCe, mas no sistema novo que contem o paf-ecf junto eu so uso o ACBrECFVirtualNãoFiscal, e funciona uma blz... O que ue fiz foi conectar todas as funcionalidades do paf-ecf ao ACBrECFVirtualNãoFiscal, quando vou enviar minha NFCe eu usei a mesma forma que usei no exemplo e inclusive ficou muito mais rapido que usando o ACBrECFVirtualNFCe para o envio, dessa forma meus controle ficou mais livre podendo fazer meus proprios tratamentos de envio na propria aplicação, sem depender de fazer alterações em componentes... Para cadastrar as aliquotas vc altera o arquivo ACBrecf001.ini os controles são todo nesse arquivo.
  23. Estou ainda fazendo testes e Realmente o if não tem sentido mesmo mas é no caso dessa procedure TACBrECFVirtualClass.LeArqINIVirtual(ConteudoINI: TStrings) esta relacionada ao ConteudoINI.LoadFromFile( fpNomeArqINI ) ou seja ela sempre irá pegar o arquivo e não o conteudo pasado na QuandoLerArqINI eu ja uso as duas propriedades e esse esta sendo o problema pois o componente esta ignorando as propriedades que eu estou passando. Como eu estou testando tinha so colocado uma opção nessa procedure e tudo tinha funcionado corretamente como por exemplo: if not FileExists( fpNomeArqINI ) and (ConteudoINI.Text = '') then CriarMemoriaInicial; if ConteudoINI.Text <> '' then ConteudoINI.Text := ConteudoINI.Text else ConteudoINI.LoadFromFile( fpNomeArqINI ); Eu pensei no caso se o fpNomeArqINI fosse = '' ai faria a verificação no ConteudoINI Nossa esquece tudo o que eu escrevi aqui Habilitei a opção Tratado e parece que resolveu o problema
  24. Eu estou tentando umas modificações no componente para isso a leitura eu consegui fazer alterando a procedure LeArqINIVirtual procedure TACBrECFVirtualClass.LeArqINIVirtual(ConteudoINI: TStrings); begin if not FileExists( fpNomeArqINI ) then CriarMemoriaInicial; //Adicionei essa verificação if ConteudoINI.Text <> '' then ConteudoINI.Text := ConteudoINI.Text else ConteudoINI.LoadFromFile( fpNomeArqINI ); end; Funciona certinho, mas na gravação se eu não tiver o arquivo acbrecf001.ini ele grava tudo zerado essa parte que estou com dificuldade para ler variável ConteudoINI que esta correta e gravar com os dados dele.
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.