PC Toledo

Alguém se lembra do Sefip 7.0 para Ms-Dos? Pois bem: havia uma tela nele (para cadastro dos empregados da empresa, to tomador, etc) que funcionava mais ou menos como aquelas "abinhas" da tela propriedades de vídeo do XP. Gostaria de fazer algo mais ou menos assim em uma tela de cadastro de meus sistemas. Alguém tem um exemplo de como fazer isso?

Lembro que teclando CTRL + C a gente poderia entrar na tela de cadastro do nome do empregado e ctps, teclando CTRL + R a gente cadastraria o afastamento do trabalhador, etc...

Valeu!

Pra fazer isso você precisará montar uma interface que imite o visual que deseja. Você precisará montar alguns "gatilhos" com as teclas que deseja utilizar. Dentro de uma malha, e uma vez que uma dessas tecla seja pressionada, você forçará a saída do READ atual e irá para um teste que, verificando a tecla, montará a tela apropriada e entrará no READ que a ela corresponde. Aconselho você a montar todos os campos antes de entrar num READ. Fica mais fácil e rápido na transição entre telas.

Eu Lembro sim, do velho sefip para DOS.

Vc teclava CTRL+E, e entrava no cadatro de empresas, CTRL+R, dos trabalhadores e assim por diante.

Para isso, vc precisa indicar o caminho das _KEY, qdo o usuario teclar tal tecla ele irá abrir a tela solicitada.

If lastkey()== XXXX
cad_empresas()
elseif lastkey() == YYYY
cad_empregados()
.
.
.
.
..
endi

Abraços

Aliás, uma curiosidade: aquele SEFIP foi feito em Clipper. Eu sei porque o desmontei no Valkyrie pra aprender o algoritmo de validação do CNAE.

Amiguinhos

Maligno, tambem ja fiz isto, principalmente para entender como acrescentar informações de meu sistema diretamente nas tabelas do Sefip com meu antigo sistema de controle de cooperativas.

LabaroAzul, voce precisará de um algoritmo de paginação para suas telas e voce poderá usar o PageDown e PageUp para mudar de tela. Cada tela tem seu desenho e conjunto de Gets e Read e ao acionar os Pages o Read é terminado(como o Maligno falou), as variaveis ficam em memoria, outro conjunto de Get é ativado e assim por diante.

Veja o codigo neste link

Eu não conheço esse SEFIP, mas se é um modelo de tela com entrada de dados estilo TABSTRIP (orilhinhas, tipo fichas) então sugiro você dar uma olhada neste tópico: viewtopic.php?f=1&t=7751&p=43755#p43755

Se não possuir o CLIPMOUSE.LIB pode baixá-lo daqui: https://pctoledo.org/download/cop ... t&deonde=2 e se persistirem dúvidas sobre esse exemplo me faça saber.

Olá amigos, parabens pelo site, excelente para nós, amantes do bom e velho Clipper.

Achei interessante o tópico sobre as abas estilo Sefip. Decidi experimentar para ver como ficou. Fiz o Download mas, infelizmente, faltou o arquivo Mouse.Ch com as definições para ClipMous.Lib. Procurei na área de downloads e não encontrei. Alguem teria disponível?

Grato

Na mensagem do link abaixo foi anexado um arquivo que contém esse header.
Link: viewtopic.php?f=43&t=8674&p=48816#p48816

Alô Maligno,

obrigado a voce e ao Pablo.

Baixei a aplicação zipada e rodei. Muito legal, dá pra adaptar muito bem a coisas que preciso fazer, para economizar espaço na tela.

Achei muito interessante a sua discussão sobre o garbage collector (Memory(-1)). Nunca tinha ouvido falar. Já adotei.

Abraços a todos.

AlxSts