Ir para conteúdo
  • Cadastre-se

kenio_c

Membros
  • Total de ítens

    56
  • Registro em

  • Última visita

Tudo que kenio_c postou

  1. Galera, ta funcionando blz, acabei de implementar a busca do xml e a importação do mesmo para dentro do meu sistema, agora fiz uma alteração e gostaria de passar para vcs. na unit ACBRHTMLToXML na linha 535, acrescentei if not DirectoryExists(ExtractFilePath(Application.ExeName)+'Captura\') then CreateDir(ExtractFilePath(Application.ExeName)+'Captura\'); porque não criava a pasta onde fica o xml baixado. Vlwwwwwwwwww pessoal.
  2. Pessoal, consegui resolver, só não sei se foi da melhor maneira! Fiz o seguinte: no OnDepoisCancelarTransacao coloquei a função pra desbloqueio do teclado e mouse AcbrTefd.BloquearMouseTeclado(False)
  3. Boa Noite Pessoal. Estou homologando hoje e o avaliador encontrou um bug que testei e encontrei até no demo, é assim: No teste 15: Faço uma venda e assim que chamo o GP, desligo a ECF, apos o GP autorizar a venda, a AC mostra a msg de "Impressora não responde Deseja imprimir Novamente?" até ai tudo bem. Agora fica clicando em "sim" algumas vezes, até que você aperte em "não". É feito o cancelamento da transação corretamente, mas o problema vem agora! Depois da transação Cancelada vem a msg de "Impressora xxx não está em linha" e o teclado e mouse ficam bloqueados. O avaliador disse que tem de desbloquear, mas procurei no fórum e não consegui nada, se alguém puder me ajudar, ficarei muito grato, ah no demo acontece a mesma coisa.
  4. kenio_c

    Mt³ Não Sai Na Nfe

    Olá Pessoal. Dei uma pesquisada aqui no forum e não encontrei nada a respeito. Estou com o seguinte problema. Tenho um cliente que esta no ramo de madeiras, onde a medida de saida de cada produtos é mt³, até ai tudo bem, o problema é que não sai impresso mt³ sai somente mt. Verifiquei o xml e esta la somente mt. Alguem sabe se o xml que não aceita o mt³. Ja dei uma olhada no Layout e não achei nada, fico no aguardo pessoal.
  5. Estou com o mesmo problema, vou verificar nos meus fontes Juliomar!!!
  6. peterson161 Me equivoquei, olhando o fonte desde o inicio, vi que o Danfe que estava puxando era um antigo, mas agora ja esta tudo 100%. Fico muito agradecido!!!!
  7. Olha meu código FPrincipal.ACBrNFe.NotasFiscais.Clear; S := EChave.Text; S := FPrincipal.Caminho +'\'+ S +'-nfe.xml'; FPrincipal.ACBrNFe.NotasFiscais.LoadFromFile(S); FPrincipal.ACBrNFe.EventoNFe.Evento.Clear; // ACBrNFe1.EvnvEvento.EnvEventoNFe.idLote := StrToInt(idLote) ; with FPrincipal.ACBrNFe.EventoNFe.Evento.Add do begin infEvento.chNFe := EChave.Text; infEvento.CNPJ := CnpjEmitente; infEvento.dhEvento := Now; infEvento.tpEvento := teCancelamento; infEvento.detEvento.xJust := CBJustificativa.Text; infEvento.detEvento.nProt := EProtocolo.Text; end; FPrincipal.ACBrNFe.EnviarEventoNFe(1);
  8. Ola peterson161 Fiz como dito, mas o xml não atualizou e o Danfe continua saindo sem a "Nfe Cancelada". Ah o componente esta marcado para atualizar o xml
  9. Boa Tarde Pessoal! Atualizei meu fontes para o cancelamento atraves do evento, até ai tudo bem, mas no momento de re-impressão não esta saindo no danfe "NFe Cancelado". Sei que ele pega pelo XML, sobre o cStat, mas com o evento não sei como proceder. Se alguem souber fico agradecido!!!!
  10. Qual o sistema operacional, pois estava testando no XPau e estava com esses problemas!
  11. Bom dia Pessoal! Estou com um problema, que quando tento enviar uma nota no estado de "homologação" para o sitio de Goias, ele não envia e me retorna nenhum erro, simplesmente a tela de mensagem de erro sem nenhuma mensagem. Já vasculhei se é algum erro no sefaz, mas não encontrei nada. Se alguem puder me ajudar, fico grato!!
  12. Vlw Daniel, era o que eu estava precisando!!!
  13. Boa Tarde Pessoal! Estou com um problema, onde não consigo imprimir uns dados no rodapé do cupom, quando a venda é feita no cartão com o AcbrTEFD.
  14. Amigos, foi upado um novo link com um atualizador do Service Pack 3 no http://nfe.sefaz.go.gov.br/ tem os procedimentos. Ou direto no site da Microsoft http://www.microsoft.com/pt-br/download/details.aspx?id=28625
  15. Amigo to com o mesmo problema, ja atualizei o Windows XP, como disseram no sefaz, e nada. Alguem tem uma luz?????
  16. como o igor disse, o CSOSN você usa o 900 e o para destacar o icms é nas informações, no rodapé da nota.
  17. kenio_c

    Erro na BC Icms

    Olá rodnei, Mas 2.80 é o valor da BC St e 2.00 é o da BC de Icms! Vou tentar por os dois Valores iguais.
  18. kenio_c

    Erro na BC Icms

    Boa Noite! Pessoal, estou com um problemão, quando ha produtos com substituição tributária, a nfe não é enviada, dando o seguinte erro: "Rejeição: Total da BC ICMS difere do somatório dos itens" Se alguém puder me ajudar, vlw! 52120509576429000104550010000004161000004168-nfe.xml
  19. To com o problema até hoje! Alguem já tem algum resultado???
  20. Olá pessoal, estou com uma dificuldade assim: Tento passar um cartão e por algum motivo não passa (erro de comunicação, o cliente cancelou), as msg estao corretas, mas volta para o meu sistema na forma de pagamento (Dinheiro, Cheque, Cartao, . . . ), ai quando tento fechar como dinheiro, dá um erro, dizendo que ja existe uma forma de pagamento ja efetuada, eu pensei em cancelar a forma de pagamento, mas ai que esta o problema, como cancelar a o pagamento?????????
  21. Alguem já passou por isso???
  22. Olá amigao! Eu tinha muito esse problema aki, entao resolvi fazer uma função que arredonda todos os valores {+-----------------------------------------------------------------+ Arredondamento Financeiro ex: 2,556 = 2,55 2,567 = 2,56 I +-----------------------------------------------------------------+} function ArredFinanceiro(Value: Extended; Decimals: integer; ParaECF: Boolean): Extended; var Factor, Fraction, Teste : Extended; begin Factor := IntPower(10, Decimals); { A conversão para string e depois para float evita erros de arredondamentos indesejáveis. } Value := StrToFloat(FloatToStr(Value * Factor)); Teste := Int(Value); Fraction := Frac(Value); if not ParaECF then begin if Fraction > 0.5 then Teste := Teste + 1 else if Fraction <= -0.5 then Teste := Teste - 1 else if Fraction = 0.5 then Teste := Value - Fraction; end; Teste := Teste / Factor; Result := Teste; end;
  23. Olá Pessoal! Estou precisando de uma ajuda, quando faço a venda e já escolha a forma de pagamento, por exemplo Dinheiro, e o computador é reiniciado (falta de energia), eu fiz o tratamento o cupom ja volta com os itens, agora vou escolher a forma de pagamento, por exemplo Convênio, ai da o erro. Eu sei da função estornaformadepagamento, mas esta função só realiza o estorno de uma forma de pagamento e efetiva outro. Eu precisava cancelar qualquer forma de pagamento que estaria aberta!
  24. Olá pessoal, estou com um problema, não consigo fazer a inicialização do AcbrTefd, onde só acusa a mensagem "O gerenciador padrão TEF_DIAL não esta ativo!". E quando executo o demo, não aparece a msg. Olhem o log abaixo!
  25. Dei uma olhada, mas no demo faz a impressão corretamente!. Será que pode ser algo na impressora, estou usando uma Daruma FS700. Ou no windows uso o win 7 64bits????????
×
×
  • 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.