VASCON Posted January 26, 2009 Report Share Posted January 26, 2009 PESSOAL: Criei uma variavel com 60 espaços. Na digitação somente esta permitindo 53 caracteres. Como resolver isso. ABS NILSON Quote Link to comment Share on other sites More sharing options...
VASCON Posted January 26, 2009 Author Report Share Posted January 26, 2009 PESSOAL: Criei uma variavel com 60 espaços. Na digitação somente esta permitindo 53 caracteres. Como resolver isso. ABS NILSON Quote Link to comment Share on other sites More sharing options...
cendon Posted January 26, 2009 Report Share Posted January 26, 2009 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 Quote Link to comment Share on other sites More sharing options...
sambomb Posted January 26, 2009 Report Share Posted January 26, 2009 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 Quote Link to comment Share on other sites More sharing options...
Kbelo Posted January 26, 2009 Report Share Posted January 26, 2009 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 Quote Link to comment Share on other sites More sharing options...
VASCON Posted January 26, 2009 Author Report Share Posted January 26, 2009 **------------ 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. Quote Link to comment Share on other sites More sharing options...
sambomb Posted January 26, 2009 Report Share Posted January 26, 2009 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 26, 2009 Report Share Posted January 26, 2009 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 Quote Link to comment Share on other sites More sharing options...
sambomb Posted January 26, 2009 Report Share Posted January 26, 2009 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 26, 2009 Report Share Posted January 26, 2009 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 Quote Link to comment Share on other sites More sharing options...
VASCON Posted January 26, 2009 Author Report Share Posted January 26, 2009 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 26, 2009 Report Share Posted January 26, 2009 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 Quote Link to comment Share on other sites More sharing options...
sambomb Posted January 26, 2009 Report Share Posted January 26, 2009 Se é para misturar pra que máscara? MSN: samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02 Quote Link to comment Share on other sites More sharing options...
personal Posted January 26, 2009 Report Share Posted January 26, 2009 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 Quote Link to comment Share on other sites More sharing options...
sambomb Posted January 26, 2009 Report Share Posted January 26, 2009 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 Quote Link to comment Share on other sites More sharing options...
Geraldo (gbsilva) Posted January 26, 2009 Report Share Posted January 26, 2009 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 Quote Link to comment Share on other sites More sharing options...
Kbelo Posted January 26, 2009 Report Share Posted January 26, 2009 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. Quote Link to comment Share on other sites More sharing options...
VASCON Posted January 27, 2009 Author Report Share Posted January 27, 2009 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 27, 2009 Report Share Posted January 27, 2009 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 Quote Link to comment Share on other sites More sharing options...
sambomb Posted January 27, 2009 Report Share Posted January 27, 2009 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 27, 2009 Report Share Posted January 27, 2009 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 Quote Link to comment Share on other sites More sharing options...
vagner Posted January 27, 2009 Report Share Posted January 27, 2009 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 27, 2009 Report Share Posted January 27, 2009 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 Quote Link to comment Share on other sites More sharing options...
personal Posted January 27, 2009 Report Share Posted January 27, 2009 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 Quote Link to comment Share on other sites More sharing options...
sambomb Posted January 27, 2009 Report Share Posted January 27, 2009 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 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.