Página 1 de 1
Get do tipo data - Não permite edição
Enviado: 18 Out 2012 21:29
por 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?
erro estranho no Harbour
Enviado: 18 Out 2012 21:38
por 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
erro estranho no Harbour
Enviado: 18 Out 2012 22:36
por 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:
Estou fazendo algo errado?
erro estranho no Harbour
Enviado: 18 Out 2012 23:01
por 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 )
erro estranho no Harbour
Enviado: 18 Out 2012 23:49
por 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?
erro estranho no Harbour
Enviado: 19 Out 2012 00:30
por 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 ?
erro estranho no Harbour
Enviado: 19 Out 2012 02:30
por 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
erro estranho no Harbour
Enviado: 19 Out 2012 21:44
por 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.
Get do tipo data - Não permite edição
Enviado: 19 Out 2012 22:51
por 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.
Get do tipo data - Não permite edição
Enviado: 20 Out 2012 22:36
por 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"
Get do tipo data - Não permite edição
Enviado: 21 Out 2012 11:32
por 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...
Get do tipo data - Não permite edição
Enviado: 21 Out 2012 16:22
por 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>]
Pablo César escreveu:outra forma é: @ 12, 12 SAY 'Digite a data:' + GET dt PICT "@D"
Get do tipo data - Não permite edição
Enviado: 28 Out 2012 17:39
por mateus301