MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Laudo de procedimento APAC

    DFROBINSON
    DFROBINSON
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 21/04/2012

    [Resolvido]Laudo de procedimento APAC Empty [Resolvido]Laudo de procedimento APAC

    Mensagem  DFROBINSON 25/4/2016, 23:28

    Prezados.
    Necessito gerar relatório que se assemelhe ao máximo com o modelo de Laudo de Autorização APAC (que significa Autorização de Procedimentos de Alto Custo) do Sistema Único de Saúde (SUS) Brasil.
    Em anexo, cópia em .pdf de um dos formulários. Desde já agradeço qualquer indicação de caminho que leve ao atendimento dessa necessidade. Muito Obrigado.
    Anexos
    [Resolvido]Laudo de procedimento APAC AttachmentLaudo Proced APAC.pdf
    Você não tem permissão para fazer download dos arquivos anexados.
    (47 Kb) Baixado 19 vez(es)


    Última edição por DFROBINSON em 29/7/2017, 17:23, editado 1 vez(es)
    Silvio
    Silvio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4719
    Registrado : 20/04/2011

    [Resolvido]Laudo de procedimento APAC Empty Re: [Resolvido]Laudo de procedimento APAC

    Mensagem  Silvio 26/4/2016, 01:47

    Boa noite.

    Vai te dar um trabalho bem grande para deixar parecido ou similar.   Serão horas na frente para acertar os campos.
    Mas deixo aqui uma dica para o código CNS e CNSe.

    Use a seguinte mascara de entrada ( relatório ) nesses campos: |9\|9\|9\|9\|9\|9\|9\|9\|9\|9\|;0; -> CNS e
    \|9\|9\|9\|9\|9\|9\|9\|9\|9\|9\|9\|9\|9\|9\|9\|;0; - > CNSe

    Para que essa mascara funcione, na tabela de origem, CNS e CNSe tem que estar no formato texto.
    DFROBINSON
    DFROBINSON
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 21/04/2012

    [Resolvido]Laudo de procedimento APAC Empty Obrigado pela dica.

    Mensagem  DFROBINSON 30/4/2016, 14:43

    Olá Silvio. Obrigado pela dica. Vou tentar.
    Uma alternativa que me ocorreu (bem torta mas mais rápida de ter uma solução) será posicionar os campos no relatório de tal forma que se "encaixem" nas posições e imprimir, não sobre uma folha em branco, mas sobre o formulário conforme o que anexei, e preencher os campos necessários. Vou deixar o tópico em aberto por enquanto. Mas, obrigado, mais uma vez.
    Pablo Neruda
    Pablo Neruda
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 305
    Registrado : 17/09/2010

    [Resolvido]Laudo de procedimento APAC Empty Re: [Resolvido]Laudo de procedimento APAC

    Mensagem  Pablo Neruda 7/5/2016, 13:46

    Se você pegar o pdf que tem como modelo base e criar em cima dele um formulário em PDF criando os campos nas lacunas que quer preencher pode ser que seja mais rápido, só terá que fazer o tratamento para cortar as strings quando necessário de acordo com a posição (left, mid, rigth)...


    .................................................................................
    [Resolvido]Laudo de procedimento APAC Elohim Elohim Manutenção & Sistemas
    ..............Powered by MS Access with VBA code..............
    DFROBINSON
    DFROBINSON
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 21/04/2012

    [Resolvido]Laudo de procedimento APAC Empty Resolvido

    Mensagem  DFROBINSON 21/8/2016, 11:34

    A solução foi:
    - gerar um arquivo de imagem (.tif) do formulário.
    - ajustar o tamanho da imagem (altura e largura), utilizando o MS Paint (dezenas de tentativas), para o tamanho A4;
    - inserir a imagem na seção detalhe do formulário - tipo de imagem INSERIDA;
    - criar controles text box (cerca de 300) posicionando-os sobre a imagem;
    - inserir, na seção cabeçalho, os controles vinculados aos campos da consulta que alimenta o formulário;
    - no evento "ao imprimir" do cabeçalho, vai o código vba que examina os dados dos controles vinculados e, através de loops em conjunto com as funções "Len" e "Mid", endereça cada caracter aos seu respectivo controle na seção detalhe (dica do Silvio);  
    - ao final, incluir as instruções "Me.MoveLayout = False" e "Me.PrintSection = False"  para que a seção cabeçalho não seja impressa;

    Em anexo, o resultado.
    Obrigado a todos.
    Anexos
    [Resolvido]Laudo de procedimento APAC AttachmentrptAPAC_MA.pdf
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.4 Mb) Baixado 8 vez(es)

      Data/hora atual: 13/4/2021, 15:00