Ir para conteúdo
  • Cadastre-se

wrgoncalves2008

Membros
  • Total de ítens

    121
  • Registro em

  • Última visita

  • Days Won

    1

Tudo que wrgoncalves2008 postou

  1. Obrigado pela ajuda! Coloquei a validação pela DataHora pra garantir. Notei, pelo menos aqui comigo, que a função ConsultaNFSeporRps só retorna a data de cancelamento após um tempo. Cancelei e consultei, ele não retornou, aguardei um tempo e consultei novamente ai ele retornou que estava cancelada. Baseado nisso, da minha parte também está ok, funcionando e já temos clientes emitindo nota!!
  2. Pra fazer o cancelamento quais informações você está passando? Aqui ele retorna que cancelou, mas se consultar posteriormente, ele não retorna dados de cancelamento na consulta. Provavelmente tem algum pronto que estou pulando aqui....
  3. Bom Dia! O cancelamento aqui para mim ainda fiz alguns ajustes no meu código e está funcionando agora, porém na consulta não estou conseguindo diferenciar quando está cancelada ou não. Estou usando o ConsultarNFSeporRps, @Alex Heinen como você está identificando no retorno da consulta se está cancelada ou está normal?
  4. Abri um ticket na central deles, mas vou enviar e-mail também. Obrigado
  5. Bom Dia pessoal! Aconteceu com mais alguém de ter reiniciado a numeração das notas? Aqui, em Avaré, aconteceu com um cliente aqui que foi emitir nota, voltou a numeração pra 1. Notei que as notas do ano passado estavam com série 1 e as novas estão com série E, mesmo eu informando a série 1 na hora de emitir
  6. Bom Dia @Microsys Sistemas! Estou utilizando o meUnitário aqui e está normal, apenas o problema do cancelamento. Talvez um seria interessante verificar se está com os schemas atualizados ou apontando para a pasta correta dos schemas ou tbm fazer um reinstalação limpa do ACBr. Quando vou reinstalar aqui eu eu costumo apagar a pasta Lib que o instalador gera e deixo criar novamente.
  7. Mais um complemento sobre o cancelamento, fiz um teste em produção. Ele cancelou a nota, mas não deu retorno, e quando consulta o status da nota ele fala que está emitida...
  8. Boa Tarde! Testando hoje, na cidade Avaré, não consegui mais cancelar a nota. Ontem a tarde estava cancelamento normalmente, apenas não retornava a informação do cancelamento, tinha que consulta a nota pra saber. Talvez o pessoal da sigcorp tenha quebrado mais alguma coisa....
  9. Aqui consegui emitir, consultar e cancelar. Porém está com problema no retorno do cancelamento, a nota está sendo cancelada na prefeitura, mas não está retornando. Se consulta a nota após o cancelamento ele retorna que está cancelada.
  10. Boa Tarde! Consegui fazer a emissão utilizando o metódo enviar passando o parametro meUnitario
  11. Bom Dia Italo! Estou fazendo os testes aqui aqui, e estou recebendo seguinte retorno: Requisição Ambiente: 2 Cidade : Avare/SP Provedor: SigCorp Versão: 2.04 Método Executado: Enviar Lote Síncrono Parâmetros de Envio Numero do Lote: 1 Parâmetros de Retorno Data de Envio : 30/12/1899 Numero do Prot: Numero da Nota: Link : Código Verif. : Sucesso : True Erro(s): Código : EL41 Mensagem: Erro na assinatura do XML - CODE: 1 Correção: --------- Código : X202 Mensagem: Lista de NFSe não encontrada! (ListaNfse) Correção: --------- Método Executado: ConsultarLote Parâmetros de Envio Numero do Prot: Numero do Lote: Parâmetros de Retorno Situação Lote : Sucesso : False NFS-e Numero....: 1 Cod. Verificacao: Estou tentando descobri a causa.
  12. Boa Noite o provedor Sigcorp mudou para a versão 2.04, aqui na cidade de Avaré, não sei se já atualizaram todas as cidades, mas encontrei várias que eles migraram. Andei fazendo alguns ajustes no componente para adequar, me baseii em outro provedor que já usava a 2.04 pra ver como o componente estava trabalhando. É a primeira vez que mexo com nfse e com o componentes acbfnfsex, então estou um pouco perdido em como fazer as coisas. Com as mudanças que fiz, consegui passar pela rotina de validação do schemas e enviar a nota, porém estou tento o retorno que o webservice retornou um xml vazio. Testei em produção e homologação, mas sempre com o mesmo retorno. Em produção vi que a nota não foi emitida. Vou anexar aqui os fontes com as alterações que fiz, e os arquivos que estou usando, se alguém puder ajudar com as alterações ou me dar um norte pra onde seguir, agradeço demais. Novas urls: Homologação: https://testeavare.meumunicipio.online/abrasf/ws?wsdl Produção: https://abrasfavare.meumunicipio.online/ws?wsdl Fontes Alterados.rar Schemas.rar Arquivos xmls.rar
  13. Obrigado pelas respostas! Estamos migrando aos poucos, na medida do possível. ?
  14. Boa Tarde! O ACBr ainda está compatível com o Delphi 7? Se não, poderiam me informar até que data eles estava compatível para eu tentar baixar e instalar aqui. Obrigado.
  15. Boa Tarde! Estou testando esse comando com uma impressora Sweda SI-300s mas não corta o papel. Já tentei o [Chr(27)+'v'+Chr(150)] tentei [Chr(27)+'v'+Chr(109)] e também não foi. Teria mais alguma coisa para fazer? Obrigado
  16. Bom Dia! Verifiquei aqui os ajustes realizados, ainda estou sem a impressora, mas pelos arquivos txt vi que está gerando os comando na sequencia correta. Obrigado pela atenção e alterações realizadas!
  17. Isso sim Daniel, eu já fiz isso e verifiquei que ficou como deveria ser, o que estou pensando é nos comandos de Iniciar e Finalizar que estão sendo enviados sem necessidade quando mando imprimir, no arquivo de texto sempre vai dar certo. Como disse anteriormente aqui pra mim deu erro da outra vez, então quero ver esse ajustes funcionando na impressora, apenas quero garantir que vai continuar funcionando e evitar mandar o sistema com erro para um cliente, acredito que é uma preocupação que qualquer programador teria nessa situação
  18. Daniel, verifiquei aqui as alterações, confesso que não concordei totalmente com a forma que ficou, pois se eu utilizo o IniciarEtiqueta e o FinalizarEtiqueta, quando eu mando imprimir os mesmo são chamados novamente passando os comandos para a impressora, que é onde eu estava tendo problemas, infelizmente estou sem a impressora aqui nesse momento pra testar pra ver se resolveu, assim que pegar a impressora novamente vou testar pra ver,de momento vou manter as minhas alterações. Sobre a minha alteração poderia me explicar, por favor, em qual ponto ela "iria quebrar o código de quem não usa os métodos: "IniciarEtiqueta" e "FinalizarEtiqueta"", pois eu havia testado aqui utilizando o Iniciar/FinalizarEtiqueta e sem utilizar eles e funcionou, pode ser que eu tenha esquecido de alguma situação... . Desde já agradeço a atenção!
  19. Coloquei o sistema para salvar os comando em txt, acho que mais fácil para explicar. Estou simulando a impressão de etiquetas em duas colunas, dei uma reduzida na qtde de etiquetas pra simplicar, no caso aqui eu inicio a etiqueta passo dois produtos e finalizo, depois inicio passo mais dois produtos e finalizo, e assim sucessivamente, Antes da alteração no componente o sistema montava os comandos assim: D10 N R0,0 ZB A4,120,0,2,1,1,N,"0000000000017" A4,136,0,3,1,1,N,"SPRAY PROPOLIS 01" A480,120,0,2,1,1,N,"0000000000024" A480,136,0,3,1,1,N,"KAIX GUARD PAPEL 20X21,5 CM FLOR PINK C/25" P1 D10 N R0,0 ZB A4,120,0,2,1,1,N,"0000000000031" A4,136,0,3,1,1,N,"ACHOC. LIQ. CHOCOMIL 200ML UN." A480,120,0,2,1,1,N,"0000000000048" A480,136,0,3,1,1,N,"KAIX GUARD PAPEL 20X21,5 CM FLOR LILAS C/25" P1 Após a atualização do componente os comandos estão ficando assim: D10 N R0,0 ZB D10 N R0,0 ZB D10 N R0,0 ZB A4,120,0,2,1,1,N,"0000000000017" A4,136,0,3,1,1,N,"SPRAY PROPOLIS 01" A480,120,0,2,1,1,N,"0000000000024" A480,136,0,3,1,1,N,"KAIX GUARD PAPEL 20X21,5 CM FLOR PINK C/25" P1 A4,120,0,2,1,1,N,"0000000000031" A4,136,0,3,1,1,N,"ACHOC. LIQ. CHOCOMIL 200ML UN." A480,120,0,2,1,1,N,"0000000000048" A480,136,0,3,1,1,N,"KAIX GUARD PAPEL 20X21,5 CM FLOR LILAS C/25" P1 P1 E gerando dessa forma, pelo menos aqui pra mim, está dando problema na impressão, usando esse exemplo aqui sairia impresso +- 8 etiquetas, as vezes dobra, as vezes sai menos, mas de qualquer forma está saindo sempre a mais do que o necessário, acho que pode ser os P1 que fica no final. Com a minha sugestão, vai ficar assim quando utilizar o InciaEtiqueta e o FinalizaEtiqueta: D10 N R0,0 ZB A4,120,0,2,1,1,N,"0000000000017" A4,136,0,3,1,1,N,"SPRAY PROPOLIS 01" A480,120,0,2,1,1,N,"0000000000024" A480,136,0,3,1,1,N,"KAIX GUARD PAPEL 20X21,5 CM FLOR PINK C/25" P1 D10 N R0,0 ZB A4,120,0,2,1,1,N,"0000000000031" A4,136,0,3,1,1,N,"ACHOC. LIQ. CHOCOMIL 200ML UN." A480,120,0,2,1,1,N,"0000000000048" A480,136,0,3,1,1,N,"KAIX GUARD PAPEL 20X21,5 CM FLOR LILAS C/25" P1 *Vai ficar igual ao primeiro caso onde estava funcionando normalmente. Se não utiliza o IniciarEtiqueta e FinalizarEtiqueta a impressão fica normal. Com a minha sugestão vai ser possível, manter tudo funcionando, para quem usa o Iniciar/FinalizarEtiqueta e pra quem não usa. Espero ter conseguido exemplificar o problema.
  20. Alguém? Alguma posição sobre a alteração??
  21. A solução sugerida pelo DonizeteFalcon, não funcionou aqui, na realidade causou um problema no que estava funcionando perfeitamente, pelo menos aqui pra mim... Estou utilizando um zebra GC420t Eu mando imprimir utilizando o iniciarEtiqueta e o finalizarEtiqueta, porém faço da seguinte forma: While .... do begin IniciarEtiqueta; envio uma certa qtde de etiquetas ( 50 por exemplo); ... FinalizarEtiqueta end; Imprimir; Com a solução sugerida e implementada no componente, quando mando imprimir está duplicando a qtde de etiquetas impressas, se mando 2 está sendo impresso 4. Gostaria de sugerir uma alteração, que pelo menos nos meus testes não daria problema pra quem usa ou nao o IniciarEtiqueta e o FinalizarEtiqueta 1 - Na procedure IniciarEtiqueta remover a linha fpEtqFinalizada := False; 2 - No FinalizarEtiqueta remover a linha: fpEtqInicializada := False; 3 - Na procedure Imprimir adicionar as linhas: fpEtqFinalizada := False; fpEtqInicializada := False; Gostaria que avaliassem a sugestão e a possibilidade de implementação. Obrigado.
  22. Daniel, EMBarbosa obrigado alteração!! Problema resolvido!!!!!!
  23. EMBarbosa, o problema está na alteração realizada na revisão 7720 onde foram adicionadas as rotinas IniciaVendeItem e FinalizaVendeItem. O problema ocorre apenas na FinalizaVendeItem, e a sua sugestão resolve o problema!!!! Entendo o posicionamento seu e o do Daniel sobre o uso do componente, porém é uma coisa que sempre funcionou e nunca tivemos problemas com mesmo, ainda tenho um ou outro cliente que tem uma ECF matricial já no fim da vida, e por isso não posso simplesmente remover o componente do sistema, e acredito que deva ter mais alguém por aí que utilize utilize o ACBr e possa vir a passar pelo mesmo problema após efetuar a atualização do componente. Já que temos o componente e ele é funcional, apenas gostaríamos que o mesmo continuasse assim, até que possamos remover ele de nossos sistemas. Se for possível adicionar a alteração ao projeto seria de grande valia para nós. Desde já agradeço a atenção.
  24. Daniel, eu também utilizo ACBrRFD faz muito tempo, ele sempre funcionou perfeitamente independente da impressora, até essa ultima alteração. Sei que no caso das impressoras térmicas não haveria a necessidade dele, vou ver a possibilidade de remover ele do sistema . Agora sobre o erro que está ocorrendo infelizmente foi devido as ultimas alterações que foram realizadas no componente, nos testes que fiz apenas como uma linha na rotina VendeItem é possível resolver todo o problema. Adicionar a linha abaixo antes do comando FinalizaVendeItem() resolvi o problema. AliquotaECF := AliquotaICMS; Seria possivel adicionar essa linha a procedure VendeItem?? Desde já agradeço.
  25. Bom Dia! Então EMBarbosa, realmente é possível instalar o SQLCLientDataSet no Delphi 7 eu até instalei, mas quando tentamos rodar o sistema no D7 começou a aparecer erros, não me recorde de momento o que era pois já faz algum tempo que fizemos esse teste, assim que me sobrar um tempo vou tentar novamente e post aqui os problemas que tivemos. Tirando esses problemas, tem outra coisa também quem utilizou esse componente não tinha conhecimento suficiente para configura-lo (ProviderFlags, UpdateMode,...) e o componente começou a não funcionar corretamente, ai tiveram a brilhante ideia de ficar colocando SQLquery no sistema pra rodar updates e inserts, isso em diversos pontos do sistema. Se fosse somente trocar o componente e colocar um trio (SQLQuery+DataSetProvider+ClientDataSet) não seria tão dificil, mas também temos que revirar o sistema pra achar todas essas querys, o que vai levar um tempo considerável, coisa que não temos hoje. E a história é essa, Já inciamos uma nova versão no XE2, para melhorar os recursos do sistema e corrigir problemas como o acima, mas ainda não finalizamos essa versão, e enquanto isso estamos no D6... ... Dos links que você passou somente o ultimo eu ainda não havia visto, vou dar uma olhada quem sabe me dá uma luz...rs Felizmente o problema foi resolvido e agora nosso sistema está rodando perfeitamente!! Obrigado a todos pela colaboração e empenho para encontramos a solução do problema!!!!!!!!
×
×
  • 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.