Get do tipo data - Não permite edição

[cjp]

Outro erro estranho que estou enfrentando no Harbour. Na seguinte função:

Código: Selecionar todos

                        dt=date()
                        vlxx=50
                        @ 23,45 say "Tecle [ESC] para cancelar"
                        @ 18,45 say "Data:"get dt pict "  /  /  "
                        @ 20,45 say "Creditar na conta:"get vlxx pict "9999.99"
                        read

Ao abrir o primeiro get, ele só me permite alterar o ano. Embora mostre dia e mês também, não me permite editá-lo.

O mais estranho é que esse erro só dá de vez em quando, e em alguns gets.

Alguém saberia me explicar isso?

[Imatech]

Código: Selecionar todos

   dt := date()
   vlxx := 50

   @ 23,45 say "Tecle [ESC] para cancelar"
   @ 18,45 say "Data:" get dt pict "@E"
   @ 20,45 say "Creditar na conta:" get vlxx pict "@E 9999.99"

   read

[cjp]

Obrigado, meu caro.

Só para eu entender: o que é "@E"?

Estou com um outro erro estranho:

Error BASE/42 Scope violation (protected): HBGETLIST:CREADPROCNAME

A linha onde está dando este erro está assim:

Código: Selecionar todos

   snh:=getsecret("           ",5,5,.T.,"Digite a senha:")

Estou fazendo algo errado?

[Imatech]

@E == European ( Formato de data dd/mm/aaaa )
@E 999,999.99 == European ( Formato Numerico usando "," como separador de decimais )

Código: Selecionar todos

   snh := SPACE( 11 )
   snh := getsecret( snh, 5, 5, .T., "Digite a senha:" )

Estou fazendo algo errado?

Sim: Acredito que livros sobre programação em Cli*per irão ajudar no aperfeiçoamento e evolução do conhecimento...
Autor recomendado: Rick Spence ( The Cli*per Guide )

[cjp]

Obrigado, vou começar agora mesmo a ler livro de Clipper 5.2 do Rick Spence que já tenho. Achei que era velho demais e não servia mais, mas pelo jeito vai servir sim.

Quanto ao último erro, vc poderia me ajudar?

[Imatech]

Olá CJP !

Testei aqui e não tem problema algum

Código: Selecionar todos

   snh := getsecret( SPACE( 11 ), 5, 5, .T., "Digite a senha:" )

   alert( snh )

Faça o post com a tela da compilação exibindo o erro...

Qual o conteudo da varialvel de ambiente: SET PATH em seu micro ?

[cjp]

O erro não é de compilação, mas de execução, e só dá às vezes.

O path tá assim:

Código: Selecionar todos

Path=C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\Arquivos de programas\Panda Security\Panda Antivirus Pro 2012
PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH

[Pablo César]

Mais uma vez outra prática de misturar assuntos. Lembre que uma das regras do fórum tem que ser claro com a questão de cada tópico. Não dá para misturar, por favor evite essa prática.

Tópico desmembrado de outro: diferentes assuntos.

[cjp]

Peço desculpas, mas achei que estava falando do mesmo assunto: erros estranhos no Harbour, erros que não aconteciam no xharbour e para os quais não vejo uma explicação lógica.

De toda forma, peço desculpas, comprometendo-me a respeitar as regras do fórum, que me é muito útil.

[mateus301]

isso aqui resolve a questão do get da data->

Código: Selecionar todos

dt := Date()
@ 12, 12 SAY 'Digite a data:'  + GET dt PICT  "99/99/99"

[Pablo César]

@ 12, 12 SAY 'Digite a data:' + GET dt PICT "99/99/99" (sem o "+" antes do Get, porque dá erro de sintaxe) mas ainda se considerar o Set Century On para trabalhar com quatro dígitos, outra forma é: @ 12, 12 SAY 'Digite a data:' GET dt PICT "@D" (corrigido. Erro de edição, isso por usar copiar/colar, rs)

No entanto trabalhar com Set Century On, é bem mais seguro para não cometer erros de inclusão de anos errados, quando não for utilizar o Set Epoch to...

[alxsts]

Olá!

Na sintaxe do comando GET não existe esse sinal de mais (+). O correto é:

Código: Selecionar todos

     @ <nRow>, <nCol>
        [SAY <exp>
           [PICTURE <cSayPicture>]
           [COLOR <cColorString>]]
        GET <idVar>
           [PICTURE <cGetPicture>]
           [COLOR <cColorString>]
           [CAPTION<cCaption>]
           [MESSAGE <cMessage>]
           [WHEN <lPreExpression>]
           [RANGE* <dnLower>, <dnUpper>] |
           [VALID <lPostExpression>]
           [SEND <msg>]
           [GUISEND <guimsg>]

outra forma é: @ 12, 12 SAY 'Digite a data:' + GET dt PICT "@D"

[mateus301]

corrigindo :

Código: Selecionar todos

@ 12, 12 SAY 'Digite a data:'  GET dt PICT "99/99/99"