Como criar tela de cadastro como a do Sefip para Ms-dos?

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

labaroazul
Usuário Nível 2
Usuário Nível 2
Mensagens: 83
Registrado em: 26 Fev 2008 14:52
Localização: São Paulo - SP
Contato:

Como criar tela de cadastro como a do Sefip para Ms-dos?

Mensagem por labaroazul »

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!
Windows XP Professional + Clipper 5.2e + Exospace + Dbase III Plus + SIX3 + NoDosImp + LXPic
"O trabalho afasta três males: o vício, a pobreza e o tédio." (Voltaire)
Site: http://www.labaroazul.xpg.com.br
Repositório: http://www.4shared.com/dir/31334106/e79 ... aring.html
Avatar do usuário
Maligno
Membro Master
Membro Master
Mensagens: 6398
Registrado em: 06 Jul 2004 01:40
Localização: Londrina/PR

Re: Como criar tela de cadastro como a do Sefip para Ms-dos?

Mensagem por Maligno »

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.
[]'s
Maligno
---
Não respondo questões técnicas através de MP ou eMail. Não insista.
As dúvidas devem ser postadas no fórum. Desta forma, todos poderão
se beneficiar das respostas.

---
Se um dia precisar de uma transfusão de sangue você perceberá como
é importante a figura do doador. Procure o hemocentro de sua cidade e
se informe sobre a doação de sangue, plaquetas e medula óssea. Doe!
Alcir
Usuário Nível 1
Usuário Nível 1
Mensagens: 34
Registrado em: 17 Abr 2008 10:57
Localização: sao paulo

Re: Como criar tela de cadastro como a do Sefip para Ms-dos?

Mensagem por Alcir »

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
Avatar do usuário
Maligno
Membro Master
Membro Master
Mensagens: 6398
Registrado em: 06 Jul 2004 01:40
Localização: Londrina/PR

Mensagem por Maligno »

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.
[]'s
Maligno
---
Não respondo questões técnicas através de MP ou eMail. Não insista.
As dúvidas devem ser postadas no fórum. Desta forma, todos poderão
se beneficiar das respostas.

---
Se um dia precisar de uma transfusão de sangue você perceberá como
é importante a figura do doador. Procure o hemocentro de sua cidade e
se informe sobre a doação de sangue, plaquetas e medula óssea. Doe!
Avatar do usuário
rochinha
Administrador
Administrador
Mensagens: 4664
Registrado em: 18 Ago 2003 20:43
Localização: São Paulo - Brasil
Contato:

Re: Como criar tela de cadastro como a do Sefip para Ms-dos?

Mensagem por rochinha »

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
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para [url=mailto://fivolution@hotmail.com]fivolution@hotmail.com[/url]. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar do usuário
Pablo César
Usuário Nível 7
Usuário Nível 7
Mensagens: 5312
Registrado em: 31 Mai 2006 10:22
Localização: Curitiba - Paraná

Exemplo para o uso de entrada de dados estilo TABSTRIP

Mensagem por Pablo César »

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.
Um clip-abraço !

Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
alxsts
Colaborador
Colaborador
Mensagens: 3092
Registrado em: 12 Ago 2008 15:50
Localização: São Paulo-SP-Brasil

Re: Como criar tela de cadastro como a do Sefip para Ms-dos?

Mensagem por alxsts »

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
[]´s
Alexandre Santos (AlxSts)
Avatar do usuário
Maligno
Membro Master
Membro Master
Mensagens: 6398
Registrado em: 06 Jul 2004 01:40
Localização: Londrina/PR

Re: Como criar tela de cadastro como a do Sefip para Ms-dos?

Mensagem por Maligno »

Na mensagem do link abaixo foi anexado um arquivo que contém esse header.
Link: viewtopic.php?f=43&t=8674&p=48816#p48816
[]'s
Maligno
---
Não respondo questões técnicas através de MP ou eMail. Não insista.
As dúvidas devem ser postadas no fórum. Desta forma, todos poderão
se beneficiar das respostas.

---
Se um dia precisar de uma transfusão de sangue você perceberá como
é importante a figura do doador. Procure o hemocentro de sua cidade e
se informe sobre a doação de sangue, plaquetas e medula óssea. Doe!
alxsts
Colaborador
Colaborador
Mensagens: 3092
Registrado em: 12 Ago 2008 15:50
Localização: São Paulo-SP-Brasil

Re: Como criar tela de cadastro como a do Sefip para Ms-dos?

Mensagem por alxsts »

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
[]´s
Alexandre Santos (AlxSts)
Responder