Ir para conteúdo
  • Cadastre-se

tchuck

Membros
  • Total de ítens

    674
  • Registro em

  • Última visita

  • Days Won

    1

Tudo que tchuck postou

  1. Encontrei um Bug no ACBrECFVirtualNFCe, a função abaixo cancela os Itens vendidos with fsACBrNFCe do begin if (NumItem > NotasFiscais.Items[0].NFe.Det.Count) or (NumItem < 1) then exit; NotasFiscais.Items[0].NFe.Det.Delete(NumItem-1); end; mas tem um problema na função, quando eu lanço 3 item por exemplo na venda e quando vou cancela o Item 1 Ok cancela Certo mas Item 2 não entra na função NotasFiscais.Items[0].NFe.Det.Delete(NumItem-1); sempre quando cancelo mais de 1 item da o problema, dessa forma quando vou finalizar a venda é retornado o erro de somatório da Nota. Outra coisa que detectei quem apos os cancelamentos ele não esta atualizando os totalizadores da nota.
  2. Hum! ficou legal, da para quebrar o galho... Vlw
  3. Bom dia, estou com essa duvida de como configurar o sistema para trabalha off line, como deve ser o procedimento usando o ACBrECFVirtualNFCe ou terei que passar algum outro parâmetro para outro componente
  4. da uma olhada nesse tópico
  5. tchuck

    Problema Com Nfe

    Consegui resolver o problema, apaguei a pasta dos fontes que eu tinha e baixei novamente, funcionou tudo certinho
  6. tchuck

    Problema Com Nfe

    Atualizei meus componentes e agora estou com um problema no NFeRetorno.versao esta falando que não esta declarado ja compile todos os pacotes e ainda continua falando [DCC Error] ACBrNFeWebServices.pas(2112): E2003 Undeclared identifier: 'versao'
  7. Estou tendo esse problema usando o Delphi 7 ja no delphi 2010 e Ex5 funciona perfeitamente
  8. Criei uma Maquina Virtual Win7 e o problema continua sempre aparece a mesma mensagem acima informado, alguem ja passou por essa situação. O Problema é se eu compilar o sistema no Delphi ele da o erro acima e se eu usar o EX 5 funciona certinho fiz o teste com o exemplo e deu a mesma coisa em uma versão funciona na outra não funciona
  9. O pior q não resolveu esta dando o mesmo problema, so q eu uso uma Maquina Virtual, mesmo rodando o EXE no Win7 não funciona
  10. Bom Sergio eu ainda não teste em contingencia, mas não sei se o componente trata essa questão de ver o status do servidor, para tal função e fazer o processo ja a questão do reenvio sim ficaria a par de cada desenvolvedor
  11. Desculpe a falha minha falta de atenção no demo... olhando corretamente existe uma opção demonstrando como fazer as vendas.
  12. Estou com um problema com venda com 2 ou mais forma de pagamento por exemplo fazer uma venda com 50,00 passar 20,00 em cartão de credito e 80 em dinheiro quando executo esse procedimento não esta entrando na ACBrTEFDComandaECFPagamento dessa forma não é lançado no ecf a forma de pagamento no tef
  13. Obrigado Dercio vou fazer isso para ver se funciona
  14. Estou usando o A1 e Capicom
  15. Estou usando o Windows XP SP 3 e quando vou enviar a NFCe esta me retornando o seguinte erro
  16. Estou com uma duvida de como resolver um problema no teste 64 do Client Sistef la pede para fazer uma venda no valor de 25,00 no Debito blz, e dar um saque de 5,00 blz, so q vem o bendito do desconto do premia nesse momento e o retorno esta sendo 27,00 o retorno esse retorno que eu não estou sabendo como tratar faz da seguinte forma: {Retorno da Venda com Desconto no Cartao} if ACBrTEFD.RespostasPendentes.Objects[IndiceTransacaoTef].Desconto > 0 then begin UEfetuaPagamento.Desconto := UEfetuaPagamento.Desconto + ACBrTEFD.RespostasPendentes.Objects[IndiceTransacaoTef].Desconto; UEfetuaPagamento.TotalReceber := ACBrTEFD.RespostasPendentes.Objects[IndiceTransacaoTef].ValorTotal; UEfetuaPagamento.TotalVenda := ACBrTEFD.RespostasPendentes.Objects[IndiceTransacaoTef].ValorTotal; VendaCabecalho.Desconto := UEfetuaPagamento.Desconto; VendaCabecalho.ValorRecebido := ACBrTEFD.RespostasPendentes.Objects[IndiceTransacaoTef].ValorTotal; VendaCabecalho.ValorFinal := ACBrTEFD.RespostasPendentes.Objects[IndiceTransacaoTef].ValorTotal; TotalTipoPagamento.Valor := ACBrTEFD.RespostasPendentes.Objects[IndiceTransacaoTef].ValorTotal; end; {Retorno da Venda com Cartao de Debito com Saque sera passado para como Troco} if ACBrTEFD.RespostasPendentes.Objects[IndiceTransacaoTef].Saque > 0 then begin UEfetuaPagamento.Troco := UEfetuaPagamento.Troco + ACBrTEFD.RespostasPendentes.Objects[IndiceTransacaoTef].Saque; VendaCabecalho.Troco := UEfetuaPagamento.Troco; VendaCabecalho.ValorRecebido := ACBrTEFD.RespostasPendentes.Objects[IndiceTransacaoTef].ValorTotal; TotalTipoPagamento.Valor := ACBrTEFD.RespostasPendentes.Objects[IndiceTransacaoTef].ValorTotal; end; mas quando eu faço a comparação sempre o valor retornado é maior q eu vendi dessa forma sempre sobra um restante para eu lançar de novo na ecf.
  17. Como aqui a empresa tambem é lacradora e revendedora bematech eu conversei direto com o suporte apesar de eles não darem a mínima mais para nos, falam que não tem jeito tem q ajustar para ao padrão ESC/POS 42 colunas
  18. Ainda não sempre aparece a mesma mensagem
  19. aproveitando o topico, se vcs já repararam o ESC/POS trabalha com 42 colunas e o componente esta configurado para 48 colunas dessa forma vai ficar cortando campos no comprovante
  20. Sim entendo, so coloquei um ponto q eu vi q iria precisar eu estou fazendo varios teste no mesmo.
  21. Funcionou dessa forma pegou as informações. A questão do Travamento de teclado e mause é q chama a função FechaCupom, e quando abre a tela do certificado o teclado ta travado, mas resolvi esse problema desbloqueando antes o teclado. Fiz um teste quando é uma Nota Duplicada e esta sendo dificil para tratar esse erro pelo componente pois aparece a mensagem de erro no cupom tentar outra vez mas não aparece a de NFC-e Duplicada, so em debug q aparece. Outra coisa q percebi como vai funciona o componente se for emitir uma Venda OFLine, e ja tem algum recurso para o mesmo.
  22. André eu consegui resolver esse problema colocando o componente no forme principal e programando no sei evento ACBrECFVirtualNFCeQuandoAbrirDocumento Antes eu passava uma função que retornava uma lista para esse evento. mas o problema do travamento quando chama o Certificado continua. Porem não estou conseguindo pegar os retornos para eu reencher alguns dados no meu banco mas não estou sabendo em que evento tenho q colocar por exemplo tenho o código abaixo que para eu guarda a chaves, numero etc. da NFC-e ja coloquei no ACBrECFVirtualNFCeQuandoFecharDocumento mas essas informação não retorna nesse evento try with NFe do begin if procNFe.nProt <> '' then begin //Grava os Dados na NFC-e no Banco de Dados labelDescricaoProduto.Caption := procNFe.xMotivo; TVendaController.GravaChaveNCFe(VendaCabecalho.Id, VendaCabecalho.COO, NumeroNFCe, Configuracao.NumeroSerieNFCe, NumeroLote, procNFe.chNFe, TiraPontos(procNFe.nProt)); //Atualiza a o Numero da Ultima NFC-e emitida TConfiguracaoController.AtualizaUltimaNFCe(NumeroNFCe); end; end; except on e: exception do begin Application.MessageBox(PChar(E.Message), 'Informação do Sistema!',MB_OK); Abort; end; end;
  23. Estou com problema com o componente no delphi, um dos problemas quando mando finalizar o cupom esta congelando o sistema bloqueando toda aplicação quando chama o certificado digital usando o Capicom. 2. muitos campos nao esta sendo preenchidos, mas os mesmos esta sendo atribuídos mas quando mando finalizar esta dando uma mensagem os campos abaxo não estão sendo preenchidos mas todos eles esta preenchidos Ide.natOp := 'VENDA'; Ide.cUF := NotaUtil.UFtoCUF(Empresa.Uf); Ide.cMunFG := Empresa.CodigoIbgeCidade; //Identificação do Emitente da NFC-e Emit.CNPJCPF := Empresa.Cnpj; Emit.IE := Empresa.InscricaoEstadual; Emit.xNome := Empresa.RazaoSocial; Emit.xFant := Empresa.NomeFantasia; Emit.EnderEmit.fone := Empresa.Fone; Emit.EnderEmit.CEP := StrToInt(DevolveInteiro(Empresa.Cep)); Emit.EnderEmit.xLgr := Empresa.Logradouro; Emit.EnderEmit.nro := Empresa.Numero; Emit.EnderEmit.xCpl := Empresa.Complemento; Emit.EnderEmit.xBairro := Empresa.Bairro; Emit.EnderEmit.cMun := Empresa.CodigoIbgeCidade; Emit.EnderEmit.xMun := Empresa.Cidade; Emit.EnderEmit.UF := Empresa.Uf; Emit.enderEmit.cPais := 1058; Emit.enderEmit.xPais := 'BRASIL'; Emit.CRT := StrToCRT(OK ,Empresa.Crt);// (1-crtSimplesNacional, 2-crtSimplesExcessoReceita, 3-crtRegimeNormal) sendo se eu trocar o componente NFCe para o Nao Fiscal funciona certinho Obs: não consigo anexar nada no site.
×
×
  • 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.