Ir para conteúdo
  • Cadastre-se

RibaSoft

Membros
  • Total de ítens

    142
  • Registro em

  • Última visita

  • Days Won

    1

Tudo que RibaSoft postou

  1. Boa noite fico muito contente pelas suas explicações, vou tentar coloca-las em prática. Só para entender melhor, meu form padrão nunca é criado (instanciado), ele serve apenas para que os forms herdeiros herdem seus eventos e propriedades, o meu form que é instanciado junto com o sistema é o formPrincipal que também é herdeiro do form padrão, minha duvida é: Se esse evento o Application.OnException que é herdado pode dar problemas, o meus outros eventos herdados tambem podem dar problemas? tipo o onKeyPress que uso para fechar todos os forms com o ESC? Sou autodidata por isso não tenho tanta experiência, acho que não venho usando corretamente a herança de classes. Preciso estudar mais.
  2. Olá queridos companheiros, pesquisei muito sobre uma forma de tratar erros inesperados que causam o fechamento da aplicação e acabei descobrindo (ou inventando kkk), um modo de tratar todos os erros que não foram tratados, vi uma postagem de mais de um ano aq no forum mas não puder dar sequencia nela por estar fechada. Nesse post vi a sugestão do componente TApplicationProperties, para usar seu evento OnException, mas ao tentar usar ele, disparava 3 vezes, sem contar que ao colocar um componente em um form e herda-lo, ele componente fica aparecendo em todos os forms e eu só meio xarope e isso me incomoda. Seguinte.... Eu uso um FormPadrao no qual estão todas procedures (ferramentas) criadas por mim e algumas outras facilidades como mudar de campo com Enter, fechar as janelas com Esc, etc. E derivo todos os meus outros forms desse para herdarem essas funções e propriedades. Nele eu criei o seguinte procedimento. //================================== Inicio do Procedimento ==================================\\ procedure TFormPadrao.OnException(Sender: TObject; E: Exception); var auxLog: TextFile; begin try AssignFile(auxLog, 'Log_Exceptions.txt'); if (FileExists('Log_Exceptions.txt')) then begin Append(auxLog); end else begin Rewrite(auxLog); WriteLn(auxLog, 'Log de Erros!'); WriteLn(auxLog, ''); end; WriteLn(auxLog, FormatDateTime('dd/MM/yyyy - hh:mm:ss',now) + ' => Origem: ' + Sender.ToString + ' => Erro: ' + E.Message); finally CloseFile(auxLog); end; Riba.Aviso('Origem: ' + Sender.ToString + ' => Erro: ' + E.Message); if(Sender is TForm)then (Sender as TForm).Close; end; //================================== Fim do Procedimento ==================================\\ E no evento onCreate eu digitei essa linha que associa um procedimento ao um evento Application.OnException := @OnException; Agora todo erro não tratado é mostrado na tela, fecha só o form que deu o erro e faz um log dos erros. obs. Esse Riba.Aviso é pra mostrar mensagens na tela do meu jeito. Se eu fiz algo errado no post me corrijam por favor pois é meu primeiro post compartilhando informação. DEUS abençoe a todos.
  3. Desculpem, tinha retirado a tabela pra atualização mas já esta disponível novamente, DEUS abençoe
  4. Ola Eu tenho a tabela com relação ncm, cest, cfop, csosn, ibpt_estadual e ibpt_federal do parana www.ribasoft.com.br => downloads => regras Está em txt bem formatadinho com espaços
  5. Deu certinho, DEUS abençoe Era só a configuração das margens mesmo como o "DIMAS - DBSOFT" falou, como que marco como resolvido? Muito obrigado pela rapida resposta, era pra eu ter respondido antes mas to meio perdido ainda na forma de usar o forum
  6. Nos fonts antigos está normal mas quando atializo os fonts fica assim. Não sei se era o caso de criar um novo topico, me orientem por favor se fiz errado. DEUS abençoe
  7. Boa noite amigo, comigo esta acontecendo a mesma coisa, vc conseguiu resolver?
  8. DEU CERTO!!! Mudei para o Openssl dai resolveu, muito obrigado mesmo, DEUS abençoe a todos que se preocuparam em me ajudar.
  9. Só uso o A1 Muitissimo obrigado, vi que outro cliente meu esta com o mesmo problema e o provedor de internet é outro, deve ser isso mesmo que vc falou, vou testar e respondo aq depois, DEUS abençoe
  10. NFC.Configuracoes.Geral.SSLLib := libWinCrypt; NFC.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2;
  11. Bom dia, muito obrigado pela atenção, é o erro 12152 e não o 12169, mas mesmo assim vou fazer esse procedimento, pois o cliente está a 2 dias sem emitir notas. Ainda falta eu trazer o pc dela pra ver se tem algo relacionado ao provedor de internet, dai eu posto aq o resultado. DEUS abençoe a todos.
  12. Muito obrigado pela boa vontade em me ajudar, o problema esta só em um cliente, vou trazer o PC dele pra testar na internet daqui, o provedor dele é diferente do meu. Já fiz de tudo, mudei as configurações de internet, troquei o antivírus, desabilitei o firewall e continua dando o mesmo erro. Sou da Cidade de Carlópolis, Paraná, se vc conseguir algo e puder me avisar ficarei muito grato. DEUS abençoe.
  13. Olá, tem um tópico parecido com esse aberto porem não finalizado, e estou com esse mesmo problema no pc de apenas um cliente, copiando o sistema dele para o meu pc funciona normal, alguém descobriu como solucionar esse erro interno 12152? To o dia inteiro pesquisando e não encontro nada que resolva Por favor é a primeira vez que peço ajuda, pois sempre pesquiso muito antes de incomodar os outros.
  14. Refiz todo o processo de emissão e tratamento de erro, coloquei pra só salvar o xml no banco quando for autorizado, mantendo o xml original em uma pasta e consultando através dela, assim ficam separados os xmls originais dos salvos em banco, vou distribuir e testar, muito obrigado pela ajuda. DEUS abençoe
  15. Ela é autorizada, pois quando tento enviar novamente da duplicidade, e quando tento consultar da digestvalue diferente. Muito obrigado pela atenção, vou seguir sua dica. DEUS abençoe.
  16. Boa tarde É a primeira vez que peço ajuda no forum, pois percebo que quando se faz pergunta que já foi feita, ou pergunta simples, o pessoal fica meio bravo em responder, (não que seja o seu caso), por isso desenvolvi minha aplicação inteira sem preguntar nada, mas estou com um problema que a muito tempo tenho pesquisado e não consigo resolver, tenho uns 15 clientes, e de vez em quando, em torno de 2 a cada 1400 notas, acontece o seguinte, na hora do retorno do xml autorizado, por algum problema, provavelmente conexão, é perdido o xml, e quando tento consultar dá que o disgest value esta diferente, ja tentei de várias formas, varios tipos de tratamento de erro, eu codigo ta virando uma bagunça e não consigo resolver, queria lhe pedir por favor que me ajude assim que possivel, não sei mais o que fazer. Ficarei eternamente grato. NFC.zip
  17. Tenho a mesma duvida, e vou tentar explicar melhor, tem como salvar em banco de dados as informações de retorno do sefaz para que seja gerada uma nota autorizada a qualquer momento, pois um pequena cagadinha e a gente perde o xml autorizado, o programa gratuito do governo tem uma opção de exportar xml, acho que ele faz dessa forma que queremos fazer.
×
×
  • 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.