Jump to content
Fivewin Brasil

identificar campo obrigatorio no GET


marcioe

Recommended Posts


#include "FiveWin.ch"

function Main()

LOCAL oDlg, oGet, oFont, oFnt, oOk, oSaida
LOCAL cCad

cCad := "*" + SPACE(20)

DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 00, -14 BOLD
DEFINE FONT oFnt NAME "Ms Sans Serif" SIZE 00, -12 BOLD

DEFINE DIALOG oDlg TITLE "TGet from " + FWDESCRIPTION ;
COLORS CLR_BLACK, CLR_WHITE TRANSPARENT

@ 1, 2 SAY "Texto:" OF oDlg

@ 1, 6 GET oGet VAR cCad OF oDlg SIZE 60, 10 PICTURE "@K" ;
COLORS CLR_HRED, CLR_WHITE

@ 3, 7 BUTTON oOk PROMPT "&Ok" OF oDlg SIZE 30, 12 ACTION oDlg:End()

@ 3, 16 BUTTON oSaida PROMPT "&Saida" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL

SET FONT OF oOk TO oFont
SET FONT OF oSaida TO oFont

ACTIVATE DIALOG oDlg CENTERED ;
ON INIT( oGet:bGotFocus := { || oGet:SetPos( 2 ), Nil } )

return nil


Com RECURSO é mais fácil ainda, basta criar 2(dois) GETS 1 pequeno para o * e outro lado a lado IDs diferentes e controlá-los.

Link to comment
Share on other sites

faço assim:

@ 0.94, 0.4 GET oGet[1] VAR cHORA OF oDLG SIZE 24,11 FONT oFnt[1];
PICTURE "99:99" WHEN VALIDAR() UPDATE
...SEGUEM OS DEMAIS GET.
FUNC VALIDAR() //VAI RETORNAR SEMPRE TRUE
//na func vc percorre todos gets e os que estão iconsistente vc deixa em vermelho pode até colocar uma marca como exemplo q vc postou.
IF !TIMEVALID(cHora)
oGet[1]:SetColor(CLR_HRED,CLR_WHITE)
//oGet[1]:cText( "#")
oGet[1]:Refresh()
ENDIF
.
.
.
repete para os demais GET.....
RETURN .T. ///SEMPRE
Link to comment
Share on other sites

Márcio, boa noite.

É possível de fazer sim, com algumas alterações na TGET, veja a imagem. Note que a rotina do Gilmer, além de colocar o icone vermelho, destaca o campo com o foco atual.

Se quiserem, posso enviar as alterações necessárias.

post-14-0-57720100-1397098547_thumb.jpg

JMSilva, da forma que você implementou fica muito legal, porém para os campos que ficarem em branco não terá efeito, concorda?

Você poderia pensar em deixar o fundo vermelho com escrita em branco, o que acha? Assim destacaria os campos invalidados.

Abs.

Alexandre

Link to comment
Share on other sites

Quem disse que era em FIVEWIN foi o gilmer.

Pelo Visto ele quem Modificou a Classe do GET para fazer lance de o campo ficar com o canto em vermelho

Bom Dia,

Isto é FiveWin sim, esta rotina é minha.

Amigo, já quando a sua pergunta AMIGO evertonlb é do MARCELO LOMBARDO SIM assim

Ele tem uma versao qu roda na web, no navegador. essa eu acho que nao seja FIVEWIN.

Já o PDV, que roda LOCAL no pc esse sim é five, conforme afirmação o GILMER.

O cara da SQLRDD? O Marcelo Lombardo??? então esse é o software do cara!!! Recebi alguns e-mail fazendo propaganda do software.

Ha muito tempo... claro!

Ficou muito legal.. parabéns ao Gilmer e a quem mais trabalhou no projeto!

Link to comment
Share on other sites

Srs.

O PDV é da SysFar que se integra com o restante.

O Omie é uma mistura de xharbour, php, java, silverlight, dotnet etc, que ficou conhecido como CoreBuilder da antiga NewAge

Márcio, vou postar as informações pra vc daqui a pouco.

Att,

Alexandre

Tá explicado. Valeu, Ale.

Link to comment
Share on other sites

  • 9 years later...
14 minutos atrás, marcioe disse:

Ok,

Já é um caminho,

Mas na verdade o que foi feito é usar @say   * e colorir ele.   Ou seja como uso .RES, bataria colocar imagem ou algo similar

Então... Você pode fazer como achar melhor, é só encaixar lógica. Correto? O caminho é esse, não tem milagre em programação.

 

abs.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...