Jump to content

econdotta

Membros
  • Posts

    72
  • Joined

  • Last visited

Recent Profile Visitors

econdotta's Achievements

Enthusiast

Enthusiast (6/14)

  • Reacting Well Rare
  • First Post
  • Collaborator Rare
  • Conversation Starter
  • Week One Done

Recent Badges

31

Reputation

6

Community Answers

  1. Boa tarde a todos. Estou utilizando o ACBRGTIN de forma tranquila e está funcionando muito bem, mas quando encerro o sistema ocorre um vazamento de memoria (memory leak) e infelizmente não sei como resolver, se alguém puder me ajudar eu agradeço muito. Abaixo vou enviar a função de pesquisa que utilizo. ACBrGTIN1.Consultar(edit1.text); Abaixo a imagem do madException que utilizo para resolver os problemas de vazamento que encontro, mas desta vez não consegui.
  2. Para atualização de todos. O Senado aprovou nesta terça-feira (12/04/2022) um projeto que cria a bula digital de medicamentos e revoga a implementação do Sistema Nacional de Controle de Medicamentos (SNCM), que teria o objetivo de acompanhar os medicamentos desde a produção até o consumo. O texto já foi aprovado na Câmara e segue para sanção presidencial. Pela proposta, as embalagens dos medicamentos virão com um código de leitura (QR Code), que possibilitará o acesso às informações do produto. A proposta também revoga a implementação do Sistema Nacional de Controle de Medicamentos (SNCM), que teria o objetivo de acompanhar os medicamentos em toda a cadeia produtiva, desde a fabricação até o consumo. Este sistema seria coordenado pela Agência Nacional de Vigilância Sanitária (Anvisa). O prazo para regulamentar e inaugurar esse acompanhamento termina dia 28 de abril. De acordo com a Anvisa, "a rastreabilidade realizada pelo SNCM traria benefícios significativos, que vão desde uma maior segurança de pacientes e de profissionais em relação aos medicamentos utilizados, até um maior controle de produção e de logística, além de facilidades de fluxos e manutenção de padrões regulatórios de conformidade". O texto retira essa prerrogativa de rastrear da Anvisa e estabelece que as farmacêuticas deverão possuir um "mapa de distribuição de medicamentos com identificação dos quantitativos comercializados e distribuídos para cada lote, bem como dos destinatários das remessas". O senador Fabiano Contarato (PT-ES) criticou a iniciativa e afirmou que votaria contra a proposta. Segundo o petista, a Anvisa emitiu parecer contrário ao texto no ano passado. "A quem se destina a favorecer este projeto de lei? Eu não tenho dúvida: ele vai favorecer a indústria farmacêutica. Ele revoga o art. 4º, que diz que o órgão de vigilância sanitária federal competente implementará e coordenará o Sistema Nacional de Controle de Medicamentos. Isso vai ficar para a iniciativa privada. É inadmissível nós votarmos este projeto de lei", disse Contarato. O relator esclareceu que o sistema de rastreamento não chegou a funcionar devido a "desafios tecnológicos e operacionais". "Essa nova concepção do SNMC visa a simplificá-lo por meio da descentralização das ações, já que se pretende contar com participação mais ativa dos detentores de registro de medicamentos [...] Ressalte-se, contudo, que a essa nova concepção não eximirá a Anvisa da austera fiscalização", disse Trad.
  3. Olá, estava começando a trabalhar nisto com o @Turbo Drive, mas demos um tempo para resolver outros incêndios e visto que esta obrigatoriedade ficou para 2025 (salve engano) colocamos outras prioridades na frente. Verifiquei que o XML não é muito complexo e decidimos começar por coisas mais gerais. Tenho um módulo que já faz a verificação do XML pelo XSD e iriamos começar a executar a assinatura do mesmo. Depois desta etapa faríamos a geração do XML propriamente dito e por ultimo transformar em componente. Pretendemos disponibilizar os fontes para todos assim que gerar, validar e assinar o arquivo XML. Por enquanto podemos apenas compartilhar o que temos com quem desejar ou quiser ajudar. Grande abraço.
  4. Dei uma olhada rápida no SNGPC e me pareceu ser semelhante. O SNCM é um sistema que vai controlar o medicamento (de forma especifica) desde a sua entrada no mercado até a chegada no usuário final através de um código específico chamado de IUM (Identificador Único de Medicamento) onde consta o GTIN + código pseudoaleatório + validade + lote. O link de minhas consultas segue abaixo: https://www.gov.br/anvisa/pt-br/assuntos/fiscalizacao-e-monitoramento/rastreabilidade Obrigado
  5. Olá, existe uma resolução da Anvisa para a implementação de um Sistema de Controle de Medicamento, nele deverá tramitar informações (no formato XML assinado digitalmente) sobre a movimentação dos mesmo. Alguém já está trabalhando com isto? Desde já agradeço a atenção. Edson Condotta
  6. Consegui da seguinte forma graças a ajuda do Everton Neres no canal do ACBR no Discord. fNF_e.ACBrNFe1.NotasFiscais.Clear; fNF_e.ACBrNFe1.NotasFiscais.LoadFromString(XML_Nota); fNF_e.ACBrNFe1.EventoNFe.Evento.Clear; fNF_e.ACBrNFe1.EventoNFe.LerXMLFromString(qryCorrecao.FieldByName('XML_Carta').AsString); fNF_e.ACBrNFe1.ImprimirEventoPDF; sNomePDF := fNF_e.ACBrNFeDANFE1.ArquivoPDF; Onde o sNomePDF possui o caminho e o nome do PDF gerado. Obrigado pela ajuda a todos. Edson Condotta
  7. Olá, estou com um pequeno problema. Salvei os eventos (carta de correção e cancelamento) em um XML dentro do banco. Consigo Imprimir e gravar o XML em arquivo sem problemas, o que não estou conseguindo fazer é salvar o PDF deste evento. fNF_e.ACBrNFe1.NotasFiscais.Clear; // Limpo as Notas fNF_e.ACBrNFe1.EventoNFe.Evento.Clear; // Limpo os Eventos fNF_e.ACBrNFe1.NotasFiscais.LoadFromString(XML_Nota); // Carrego a NF-e fNF_e.ACBrNFe1.EventoNFe.LerXMLFromString(qryCorrecao.FieldByName('XML_Carta').AsString); // Carrego o Evento (carta de correção e cancelamento) fNF_e.ACBrNFe1.ImprimirEventoPDF; // Imprimo o PDF do Evento O problema é que ele grava o PDF em ".\pdf" e com um nome que não reconheço mesmo estando configurado o seguinte: fNF_e.ACBrNFe1.Configuracoes.Arquivos.PathEvento := 'c:\temp\Eventos'; Tem como eu escolher o nome do arquivo PDF? Alterar a pasta de gravação do mesmo? Descobrir qual o nome que o ACBR utilizou para gravar o PDF? Muito obrigado desde já pela ajuda e atenção dispensada. Edson Condotta
  8. Vou experimentar utilizando o padrão 240. Obrigado pela orientação.
  9. Estive revendo posts meus e lendo com mais atenção o manual do Sicredi e observei que NÃO existe NumeroDocumento para este banco, ou seja, NumeroDocumento e SeuNumero são a mesma coisa para o Sicredi. Abaixo estou enviando o manual de integração que utilizei como referencia. Acredito que neste caso cada um tenha a adaptar seu sistema para esta situação. Eu pessoalmente comecei a utilizar o NossoNumero como identificação do titulo no banco de dados e na instituição bancaria. Obrigado a todos.
  10. Também verifiquei isto. Unit AcbrBancoSicredi.pas na linha 224: ANumeroDocumento := PadRight(IfThen(SeuNumero <> '', SeuNumero, NumeroDocumento), 10, ' '); Alterei para: ANumeroDocumento := PadRight(IfThen(NumeroDocumento <> '', NumeroDocumento, SeuNumero), 10, ' '); Desta forma fica mais coerente, caso não seja informado o NumeroDocumento o sistema usa o SeuNumero. Segue em anexo a Unit com a alteração acima mencionada, peço aos desenvolvedores que homologuem esta solução ou informem a forma correta de utilização dos parâmetros. Desde já agradeço a atenção e ajuda de todos. Edson Condotta ACBrBancoSicredi.pas
  11. Peço que desconsiderem a mensagem acima. Foi uma falha na geração do seu numero pelo nosso sistema. Desculpem.
  12. Olá a todos, Segue em anexo arquivo fonte do ACBRBancoSicredi para analise e se conveniente ajuste do mesmo que eu alterei em vista do mesmo estar preenchendo do zeros somente. Isto se deve ao fato de que o ACBrTitulo.fSeuNumero estar chegando com este conteúdo '0000000000000000000000192' e na formatação na linha 224 estar pegando apenas os 10 primeiros caracteres. Linha 224 anterior: ANumeroDocumento := PadRight(IfThen(SeuNumero <> '', SeuNumero, NumeroDocumento), 10, ' '); Linha 224 atual: ANumeroDocumento := PadRight(IfThen(SeuNumero <> '', IntToStr(SeuNumero.ToInteger), NumeroDocumento), 10, ' '); Desde já agradeço a atenção de todos. ACBrBancoSicredi.pas
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.