sambomb

Se mudar a máscara deve pegar novamente do banco de dados, vale lembrar que o ideal é você deve truncar e não arredondar nesses casos pois assim evita que os valores fiquem discrepantes da realidade. Coloca o trecho do código para ficar mais simples de ajudarmos.

If Condicao() oBtn:Click() End

Eu não utilizo essa função, só fiz o esqueleto mesmo pra você poder ver se funciona...

Function OrdenaChave( cChave ) Local i := 0, nScan := 0, lResult := .F. For i := 1 to 15 if !Empty( IndexKey( i ) ) aAdd(aChave, OrdName(i) ) end End nScan := aScan(aChave,{|X| X = cChave } ) If nScan > 0 DbSetOrder(nScan) lResult := .T. End Return lResult Testa ae....

Algum motivo específico pra não usar o DbSetOrder() ?

Pode fazer do jeito que quiser, não to querendo dizer como cada um deve programar... Só dei a dica pois da forma que tá vai não vai aproveitar ao máximo o banco de dados

Só o VarPut não resolve.... Testa nesse exemplo que postei ae com e sem o VarPut pra vc ver, Linares mandou atualizar o Fivewin pra ver se resolve... Até então resolvi com uma gambiarra...

Você sabe que a nível de banco de dados essa sua lógica está errada né? O número de casas antes da vírgula deve ser o mesmo para ambos os casos pois o banco de dados já trata as casas decimais como parte integrante do total. No seu exemplo: "999999999" => "999999999.999" | CAMPO2, N, 13,3 "99999.999" => "99999" | CAMPO2, N, 9,3

oCol:bStrData := {|| Transform( ALIAS->CAMPO, '@R 999999' ) }

http://www.youtube.com/watch?v=X7Ld24pJLRg

Hmm... Vou dar um jeito

Kapiaba, olha ae: http://alanart.net/fivewin/index.php?/files/download/1083-picture-erro.zip

Use: cMensaDaruma := Padr(Mensagem1,48) cMensaDaruma += Padr(Mensagem2,48) cMensaDaruma += Padr(Mensagem3,48) Daruma_FI_FechaCupom(cFPAGTO,'D',"$",' 00,00',TRANSF(nVALORC,"@E 999999999.99"), cMensaDaruma )

1 minuto usando a pesquisa foi o suficiente É só saber o que procurar que no caso foi maps.google que é o prefixo usado pelo google

Veja se é isso: http://alanart.net/fivewin/index.php?/topic/20743-rotas-pelo-google-map/?hl=maps.google

Qual a memória e tipo do SO ( x86 / x64 )? Pode ser que o sistema não esteja conseguindo carregar um arquivo tão grande 2300 caracteres por linha, se tiver umas 1000 linhas já vai ficar bem pesado

Isso eu já faço, olha aqui: Eu resumi meu código para ficar só cMascara := "999,999.999" Procedure TrocaMascara() cMascara := "999,999.999" oGt[4]:cPicture := cMascara oGt[4]:oGet:Picture := cMascara oGt[4]:Refresh() Return

Da uma olhada aqui: http://www.pctoledo.com.br/forum/viewtopic.php?f=5&t=14124

Kapiaba, o que preciso é mudar de 2 decimais para 3 decimais, só que só funciona os 3 decimais se eu apertar ponto, ou seja mesmo com a máscara definida para "999,999.999" se eu pressionar 123456789 o último caracter continua inalterado, mas se eu pressionar até 6 caracteres, ponto e depois as casas decimais funciona.

Redefine Get oGt[4]; Var cStr[5] ; Update; ID 108; Picture "999,999.99" ; of oDlg Procedure TrocaMascara() cMascara := "999,999.999" oGt[4]:cPicture := cMascara oGt[4]:oGet:Picture := cMascara oGt[4]:Refresh() Return Com essa procedure a máscara é modificada, mas apenas se eu pressionar "." ( ponto ) antes do primeiro decimal ser adicionado Exemplo das teclas pressionadas 123.456 = OK => 123.456 12345.678 = OK => 12,345.678 123456.789 = OK => 123,456.789 123456789 = Falha => 123,456.780 1234567.89 = Falha => 123,456.790 12345678.9 = Falha => 123,456.790 Na classe TGet achei no método KeyChar esse trecho, que aparentemente é o responsável por esse funcionamento mas não consegui implementar if ::oGet:Type == "N" .and. ( Chr( nKey ) == "." .or. Chr( nKey ) == "," ) if ::oGet:Clear() #ifndef __XHARBOUR__ ::oGet:DelEnd() #endif endif ::oGet:ToDecPos()

Sim

Da pra forçar o posicionamento em uma coluna especifica... No caso ao chegar no "final" e clicar para direita ou esquerda joga o foco para uma coluna especifica

Outra solução é ir utilizando oBrw:aCols[ i ]:Show() ou oBrw:aCols[ i ]:Hide() nas colunas que você quer Exibir ou Esconder respectivamente...

//METHOD SetArray( aData, lAutoOrder, nColOrder, aCols, bOnSkip ) CLASS TXBrowse oBrw:SetArray(aItens,,,{1,2,3,4,5,6,7,8}) Procedure TrocaColunas() If Empty(oBrw:Cargo) oBrw:Cargo := 1 End If oBrw:Cargo =3 oBrw:Cargo := 1 Else oBrw:Cargo += 1 End If oBrw:Cargo = 1 oBrw:SetArray(aItens,,,{1,2,3,4,5,6,7,8}) ElseIf oBrw:Cargo = 2 oBrw:SetArray(aItens,,,{9,10,11,12,13,14,15,16}) //ElseIf oBrw:Cargo = 3 //Etc... End oBrw:Refresh(.T.) Return

Maximized não vai deixar centralizar, vai entrar maximizado, retira essa tag