Leandro, seguem as Solicitações de Manutenções: Corretiva e Incremental:
000 - Corrigir acentuação...
001 - Na Exibição da Poesia em Baixo de Autor: e Data:, colocar o Link www.eupoeta.com
002 - Ativar o Contador de Acessos ao Site...
003 - Corrigir a Exibição das Categorias de Poesias...
004 - Corrigir a Exibição das Poesias...
005 - Retirar a Primeira Categoria que Foi Incluída Erroneamente em Branco...
006 - Trocar a Cor da Letra do Título do Site "POESIAS E ESCRITOS DE EDUARDO GOMES" de Creme para Marrom Escuro...
007 - Corrigir a Função: Imprimir a Poesia...
0071 - No Formulário de Impressão, corrigir o nome do Site para www.eupoeta.com:
008 - Corrigir a Função: Enviar a Poesia para Um Amigo...
0082 - Quando Enviar um Email para um Amigo, Enviar também um Email para ebgomes11@hotmail.com
009 - Corrigir a Função: Feedback ao Poeta...
0091 - Abrir o Outlook para ebgomes11@hotmail.com, colocando como Email para ebgomes11@hotmail.com
010 - Na Primeira Página de Exibição Corrigir a Acentuação do Título Categorias Poéticas:..
011 - Corrigir acentuação da Página de Imagens...
012 - No Rodapé de Exibição trocar a Exibição do Tel: por Whatsapp: (71) 98148.6350 e trocar o Email do Rodapé para: ebgomes11@hotmail.com
013 - Abaixo do Link Imagens: colocar o Link Pesquisas:...
014 - Quando clicar em Pesquisas: abrir uma janela para receber o Nome da Poesia, pesquisar a Poesia no Banco de Dados e Exibir como uma Poesia Qualquer...
015 - No Rodapé de Exibição trocar a Exibição do Tel: por Whatsapp: (71) 98148.6350
Algoritmo de Pesquisa de Nome:
Tabela de Nomes...
Vetor para Pesquisa
Vetor para Pesquisa em Maiúscula e sem Acentuação
Vetor para Pesquisa Abreviado (vet-pesq)
Mova nome-tabela para vetor-da-tabela.
Vetor da Tabela
Vetor da Tabela em Maiúscula e sem Acentuação
Vetor da Tabela Abreviado (vet-tab)
Mova 0 para ind-pesq, ind-tab e fs-ok-vet.
Chame a Procedure de Equiparação de Nomes... (vet-pesq, vet-tab)
Procedure de Equiparação de Nomes: (vet-pesq, vet-tab)
Add 1 to ind-pesq, ind-tab
Se ind-pesq >= 5 and fs-ok-vet = 1
Display vetor-da-tabela na tela.
Fim do Se.
Se vet-pesq(ind-pesq) = vet-tab(ind-tab)
Chame a Procedure de Equiparação de Nomes (vet-pesq, vet-tab)
mova 1 to fs-ok-vet
Senão
mova 0 to fs-ok-vet
Fim do Se.
Se fs-ok-vet = 0
Display "Nenhum Registro Encontrado para Este Nome"
Fim do Se.
Fim da Procedure.
Fim do Algoritmo.
Autor: Eduardo Gomes
Data: 12/09/2025
| 
