LIMITAÇÃO TAMANHO VARIAVEL

[VASCON]

PESSOAL:

Criei uma variavel com 60 espaços.

Na digitação somente esta permitindo 53 caracteres.

Como resolver isso.

ABS

NILSON

[VASCON]

PESSOAL:

Criei uma variavel com 60 espaços.

Na digitação somente esta permitindo 53 caracteres.

Como resolver isso.

ABS

NILSON

[cendon]

poste o código

Abençoados sejam os pessimistas, eles fizeram backups!!

Angelo Cendon

cendon.angelo@gmail.com

Belo Horizonte-MG

Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

[sambomb]

Verifique a máscara, verifique a atribuição da variável e a inicialização da mesma.

Obs.: "9999999999" e "999.999,99" ambas tem 10 caracteres

MSN: samirabreu@hotmail.com

Skype: SamirAbreu

xHarbour 1.1.0 + FwXh 8.02

[Kbelo]

citação:

PESSOAL:

Criei uma variavel com 60 espaços.

Na digitação somente esta permitindo 53 caracteres.

Como resolver isso.

ABS

NILSON

---

id=quote>id=quote>

Qual Sua Picture?

Essa Variavel é Igualada a Alguma outra???

[2] poste o código

Marcelo Michels

Msn/E-mail:marcelo@infototal.com.br

Msn/E-mail:celo.michels@hotmail.com

xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate.

Editado por - kbelo on 26/01/2009 10:29:54

[VASCON]

**------------ Inclusao de Registros -------------------------------------------------------------

STATIC Function INTFIS()

LOCAL TAP := { "0 - TRANSFERENCIA DE MERCADORIAS","1 - COMPRAS PARA COMERCIALIZACAO","2 - VENDAS DE MERCADORIAS"}

SET ORDER TO 1

oCOFUN:=mCOFUN:=SPACE(5)

oNOFUN:=mNOFUN:=SPACE(60)

oNOFUN01:=mNOFUN01:=SPACE(60)

M->oTAP:=mTAP:=SPACE(1)

AB=1

DEFINE DIALOG oDlgPLA from 15,12 to 23,102;

TITLE 'Inclusao de Codigos Fiscais';

COLOR CLR_BLACK, CLR_HGRAY

oDlgPLA:LHELPICON := .F.

@00,0.7 TO 03.0,50.3

@01,01 SAY "CODIGO:"

@01,05 GET oCOFUN VAR mCOFUN OF oDlgPLA SIZE 25,12 PICT "9.999" VALID VERCOF(mCOFUN)

@01,09 SAY "LINHA 1:"

@01,13 GET oNOFUN VAR mNOFUN OF oDlgPLA SIZE 245,12 PICT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"

@02,09 SAY "LINHA 2:"

@02,13 GET oNOFUN01 VAR mNOFUN01 OF oDlgPLA SIZE 245,12 PICT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"

@03.50,01 SAY "TIPO DE OPERACAO:"

@03.18,10 COMBOBOX mTAP ITEMS TAP OF oDlgPLA SIZE 140,40 VALID VEROP(mTAP)

@04.0,40.5 BUTTON "&Gravar" OF oDlgPLA SIZE 33,08 ACTION {||GRAVPLA(),oBrw:UpStable(),oBrw:refresh(),oBrw:SetFocus(),oDlgPLA:end()}

@04.0,45.5 BUTTON "&Sair" OF oDlgPLA SIZE 33,08 ACTION oDlgPLA:end() CANCEL

ACTIVATE DIALOG oDlgPLA CENTERED

RETURN .T.

[sambomb]

Vascon, aparentemente está certo será que é o tamanho do get é que não cabe e teclando para direita aparece o resto?

E acho que você poderia fazer isso para ficar mais visível:

@01,13 GET oNOFUN VAR mNOFUN OF oDlgPLA SIZE 245,12 PICT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"id=red>

@01,13 GET oNOFUN VAR mNOFUN OF oDlgPLA SIZE 245,12 PICT Replicate("X",60)id=blue>

MSN: samirabreu@hotmail.com

Skype: SamirAbreu

xHarbour 1.1.0 + FwXh 8.02

[kapiaba]

citação:

Vascon, aparentemente está certo será que é o tamanho do get é que não cabe e teclando para direita aparece o resto?

E acho que você poderia fazer isso para ficar mais visível:

@01,13 GET oNOFUN VAR mNOFUN OF oDlgPLA SIZE 245,12 PICT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"id=red>

@01,13 GET oNOFUN VAR mNOFUN OF oDlgPLA SIZE 245,12 PICT Replicate("X",60)id=blue>

MSN: samirabreu@hotmail.com

Skype: SamirAbreu

xHarbour 1.1.0 + FwXh 8.02

---

id=quote>id=quote>

Samir, para que isto??

Se basta:

IF InclusaO

cNome := SPACE(60)

ELSE //-> alteracao

cNome := Banco->Nome

ENDIF

id=code>id=code>

PICTURE "@!"

Isto já é o suficiente.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

[sambomb]

citação:

citação:

Vascon, aparentemente está certo será que é o tamanho do get é que não cabe e teclando para direita aparece o resto?

E acho que você poderia fazer isso para ficar mais visível:

@01,13 GET oNOFUN VAR mNOFUN OF oDlgPLA SIZE 245,12 PICT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"id=red>

@01,13 GET oNOFUN VAR mNOFUN OF oDlgPLA SIZE 245,12 PICT Replicate("X",60)id=blue>

MSN: samirabreu@hotmail.com

Skype: SamirAbreu

xHarbour 1.1.0 + FwXh 8.02

---

id=quote>id=quote>

Samir, para que isto??

Se basta:

IF InclusaO

cNome := SPACE(60)

ELSE //-> alteracao

cNome := Banco->Nome

ENDIF

id=code>id=code>

PICTURE "@!"

Isto já é o suficiente.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

---

id=quote>id=quote>

Não sei(quer dizer não sabia) para que serve a máscara "X" por isso....

MSN: samirabreu@hotmail.com

Skype: SamirAbreu

xHarbour 1.1.0 + FwXh 8.02

[kapiaba]

citação:

citação:

citação:

Vascon, aparentemente está certo será que é o tamanho do get é que não cabe e teclando para direita aparece o resto?

E acho que você poderia fazer isso para ficar mais visível:

@01,13 GET oNOFUN VAR mNOFUN OF oDlgPLA SIZE 245,12 PICT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"id=red>

@01,13 GET oNOFUN VAR mNOFUN OF oDlgPLA SIZE 245,12 PICT Replicate("X",60)id=blue>

MSN: samirabreu@hotmail.com

Skype: SamirAbreu

xHarbour 1.1.0 + FwXh 8.02

---

id=quote>id=quote>

Samir, para que isto??

Se basta:

IF InclusaO

cNome := SPACE(60)

ELSE //-> alteracao

cNome := Banco->Nome

ENDIF

id=code>id=code>

PICTURE "@!"

Isto já é o suficiente.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

---

id=quote>id=quote>

Não sei(quer dizer não sabia) para que serve a máscara "X" por isso....

MSN: samirabreu@hotmail.com

Skype: SamirAbreu

xHarbour 1.1.0 + FwXh 8.02

---

id=quote>id=quote>

DESCONHEÇO MASCARA ´X´, CONHEÇO A MASCARA #. ESTA SIM, FUNCIONA NORMAL DESDE A ERA CLIPPER.

NÃO VEJOA RAZÃO, PARA ENCHER MINHA MASCARA DESTA FORMA, SE UM "@!" RESOLVE MEU PROBLEMA E FORMATA O GET DE BOA.

Somente o NILSON, para responder qual a razão desta escrita.

I DON´T NO.

Abraços.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

[VASCON]

PESSOAL

Mudei a mascara para '@R' pois tenho que misturar caracteres maisculos e minisculos. Não resolveu.

E digo mais; se uso o programa num NOTEBOOK dá o mesmo problema, só que a possibilidade de inserção de caracter é maior do que num computador normal.

Se não fui claro:

Num computador normal -> dos 60 espaços consigo inserir 50 caracteres

Num NOTEBOOK -> dos 60 espaços consigo inserir 55 caracteres

Durma com um barulho desse

Grato

NILSON

[kapiaba]

Nilsons:

PICTURE "@ ###999###999###999"

Deve resolver, tente ahi.

Abraços.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

[sambomb]

Se é para misturar pra que máscara?

MSN: samirabreu@hotmail.com

Skype: SamirAbreu

xHarbour 1.1.0 + FwXh 8.02

[personal]

To maluco ou todos voce estao.

Qual a relação da mascara, com a quantidade de bytes do get.

Se esta definido como Space(60).é 60 e ponto final.

Agora maluco mesmo é o lance de aceitar mais bytes no note que no desk.

Tem boi na linha.

de:

oNOFUN:=mNOFUN:=SPACE(60)

oNOFUN01:=mNOFUN01:=SPACE(60)id=red>

para:

mNOFUN:=SPACE(60)

mNOFUN01:=SPACE(60)id=red>

Oliveira, Sérgio A.

PERSONAL Comp. e Sitemas.id=green>

FWH,SqlLib,MySql,Pelles

[sambomb]

Personal, se o campo receber Space(60) e a máscara estiver como replicate("#",30) só vai aceitar 30....

citação:

Tem boi na linha.

de:

oNOFUN:=mNOFUN:=SPACE(60)

oNOFUN01:=mNOFUN01:=SPACE(60)

para:

mNOFUN:=SPACE(60)

mNOFUN01:=SPACE(60)

---

id=quote>id=quote>

E vendo agora é mesmo, deveria ser assim:

mNOFUN := SPACE(60)

mNOFUN01 := SPACE(60)

e sobre a diferença entre o note e desktop pode ser como sistemas operacionais diferentes estão reconhecendo...

MSN: samirabreu@hotmail.com

Skype: SamirAbreu

xHarbour 1.1.0 + FwXh 8.02

[Geraldo (gbsilva)]

Conforme o Samir disse, pode ser o tamanho do get, usando recursos tem como definir se o campo terá deslocamento na horizontal, usando @SAY também deve ter como definir, é a única explicação que vejo se a variável estiver sendo definida corretamente.

Geraldo B. Silva

FWH 2.6 Junho/2005, xHarbour 0.99.50 (Simplex), Bcc55, Pelles, xDev, MyMake, Sqllib e MySql.

lucgera@terra.com.br

São Paulo - SP

[Kbelo]

citação:

**------------ Inclusao de Registros -------------------------------------------------------------

STATIC Function INTFIS()

LOCAL TAP := { "0 - TRANSFERENCIA DE MERCADORIAS","1 - COMPRAS PARA COMERCIALIZACAO","2 - VENDAS DE MERCADORIAS"}

SET ORDER TO 1

oCOFUN:=mCOFUN:=SPACE(5)

oNOFUN:=mNOFUN:=SPACE(60)

oNOFUN01:=mNOFUN01:=SPACE(60)

M->oTAP:=mTAP:=SPACE(1)

AB=1

DEFINE DIALOG oDlgPLA from 15,12 to 23,102;

TITLE 'Inclusao de Codigos Fiscais';

COLOR CLR_BLACK, CLR_HGRAY

oDlgPLA:LHELPICON := .F.

@00,0.7 TO 03.0,50.3

@01,01 SAY "CODIGO:"

@01,05 GET oCOFUN VAR mCOFUN OF oDlgPLA SIZE 25,12 PICT "9.999" VALID VERCOF(mCOFUN)

@01,09 SAY "LINHA 1:"

@01,13 GET oNOFUN VAR mNOFUN OF oDlgPLA SIZE 245,12 PICT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"

@02,09 SAY "LINHA 2:"

@02,13 GET oNOFUN01 VAR mNOFUN01 OF oDlgPLA SIZE 245,12 PICT "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"

@03.50,01 SAY "TIPO DE OPERACAO:"

@03.18,10 COMBOBOX mTAP ITEMS TAP OF oDlgPLA SIZE 140,40 VALID VEROP(mTAP)

@04.0,40.5 BUTTON "&Gravar" OF oDlgPLA SIZE 33,08 ACTION {||GRAVPLA(),oBrw:UpStable(),oBrw:refresh(),oBrw:SetFocus(),oDlgPLA:end()}

@04.0,45.5 BUTTON "&Sair" OF oDlgPLA SIZE 33,08 ACTION oDlgPLA:end() CANCEL

ACTIVATE DIALOG oDlgPLA CENTERED

RETURN .T.

---

id=quote>id=quote>

Tenta Assim.

@01,13 GET oNOFUN VAR mNOFUN OF oDlgPLA SIZE 300id=red>,12 PICTURE "@#"id=red>

id=code>id=code>

Marcelo Michels

Msn/E-mail:marcelo@infototal.com.br

Msn/E-mail:celo.michels@hotmail.com

xHarbour 1.1 + Fwh 8.01 + WorkShop + Bcc 5.82 + WvwTools + SQLRDD + xMate.

[VASCON]

Marcelo,

Também não funciona.

E digo mais: se digitar somente numeros preenche os 60 espaços. Se digitar letras vai permitir digitar apenas 53 catacteres.

E não tem nada a ver com máscara.

Grato

NILSON

[kapiaba]

Fala sério...

#Include "FiveWin.Ch"

**------------ Inclusao de Registros -------------------------------------------------------------

FUNCTION INTFIS() //-> nao use STATIC

LOCAL oCOFUN, mCOFUN, oNOFUN, mNOFUN, oNOFUN01, mNOFUN01, oDlgPLA

LOCAL TAP := { "0 - TRANSFERENCIA DE MERCADORIAS","1 - COMPRAS PARA COMERCIALIZACAO","2 - VENDAS DE MERCADORIAS"}

//SET ORDER TO 1

oCOFUN := SPACE(05)

mCOFUN := SPACE(05)

oNOFUN := SPACE(60)

mNOFUN := SPACE(60)

oNOFUN01 := SPACE(60)

mNOFUN01 := SPACE(60)

//M->oTAP:=mTAP:=SPACE(1)

AB := 1

DEFINE DIALOG oDlgPLA from 15,12 to 23,102;

TITLE 'Inclusao de Codigos Fiscais';

COLOR CLR_BLACK, CLR_HGRAY

oDlgPLA:LHELPICON := .F.

@00,0.7 TO 03.0,50.3

@01,01 SAY "CODIGO:"

// @01,05 GET oCOFUN VAR mCOFUN OF oDlgPLA SIZE 25,12 PICTURE "9.999" VALID VERCOF(mCOFUN)

@01,09 SAY "LINHA 1:"

//-> Posso entrar numeros e letras - ate 60 cacaracteres

@01,13 GET oNOFUN VAR mNOFUN OF oDlgPLA SIZE 245,12 PICTURE "@!"

@02,09 SAY "LINHA 2:"

//-> Posso entrar numeros e letras - ate 60 cacaracteres

@02,13 GET oNOFUN01 VAR mNOFUN01 OF oDlgPLA SIZE 245,12 PICTURE "@!"

// @03.50,01 SAY "TIPO DE OPERACAO:"

// @03.18,10 COMBOBOX mTAP ITEMS TAP OF oDlgPLA SIZE 140,40 VALID VEROP(mTAP)

@04.0,40.5 BUTTON "&Gravar" OF oDlgPLA SIZE 33,08 // ACTION {||GRAVPLA(),oBrw:UpStable(),oBrw:refresh(),oBrw:SetFocus(),oDlgPLA:end()}

@04.0,45.5 BUTTON "&Sair" OF oDlgPLA SIZE 33,08 // ACTION oDlgPLA:end() CANCEL

ACTIVATE DIALOG oDlgPLA CENTERED

RETURN NIL

id=code>id=code>

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

[sambomb]

Kapiaba a máscara não pode ser essa pois ele precisa de caracteres minusculos tb(acho que nem de máscara precisa) e na atribuição das variáveis os objetos não deveriam receber caracter( no caso space(xx) ).

MSN: samirabreu@hotmail.com

Skype: SamirAbreu

xHarbour 1.1.0 + FwXh 8.02

[kapiaba]

citação:

Kapiaba a máscara não pode ser essa pois ele precisa de caracteres minusculos tb(acho que nem de máscara precisa) e na atribuição das variáveis os objetos não deveriam receber caracter( no caso space(xx) ).

MSN: samirabreu@hotmail.com

Skype: SamirAbreu

xHarbour 1.1.0 + FwXh 8.02

---

id=quote>id=quote>

Basta tirar a !, baixe o exemplo e teste.

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

[vagner]

Olá,

O q está parecendo é q visualmente não aparece, mas ele deixa entrar, aumente o tamanho do size para um teste

de 245,12 passe para 300,12, lógicamente esse espaço precisa ficar dentro da dialog

Vagner Wirts

VI Encontro está chegando , não perca

[kapiaba]

João Santos - São Paulo.

kmt_karinha@pop.com.br

kapiaba@brfree.com.br

Fone: (11) 3106-2832

FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe

[personal]

Ainda falo que tem boi na linha, mas to achando que é uma pulga, pois é uma besteira tão pequena que não esta sendo vista.

Mesmo que o size seja pequeno, o que acontece é que rola dentro do proprio get.

Para mim esta parecendo que esta sendo feita uma atribuição em algum lugar, e mudando o tamanho do get original.

Oliveira, Sérgio A.

PERSONAL Comp. e Sitemas.id=green>

FWH,SqlLib,MySql,Pelles

Editado por - personal on 27/01/2009 11:29:04

[sambomb]

Sérgio, ele disse que os números funcionam mas os caracteres não... portanto de estivesse sendo atribuido um valor menor iria deixar de funcionar os números tb...

MSN: samirabreu@hotmail.com

Skype: SamirAbreu

xHarbour 1.1.0 + FwXh 8.02