Multiplicar Entero y Decimales mismo GET

[nixbeau]

Tengo que multiplicar el GET mismo un valor con decimales y otro valor entero. Cuando escriba el valor fraccionario y entró en prensa '*' este valor se transfiere a un SAY y el GET debe mantenerse limpio, esperando el valor entero.

El código que hice fue esto:

Code: Select all  Expand view

              CASE NKEY = 106
                  // QDT *
                  mgetent:=ogetent:oget:buffer
                  ogetent:varput(mgetent)
                  cQuantidade:=val(mGetEnt)
                  oSayVLQuant:refresh()
                  wValor:=''
                  mGetEnt:=''
                  oGetEnt:Varput(mGetEnt)
                  oGetEnt:Setfocus()
                  oGetEnt:refresh()
              ENDCASE
oGetEnt:Varput(wValor)
oGetEnt:refresh()          
oGetEnt:Setpos(Len(mGetEnt))              
 

Tengo 3 problemas con este código:

1) Los datos que se deben aceptar: ". '*' ',' '0'' 1 ''2'' 3' '4'' 5 ''6'' 7' '8'' 9 '" ¿Cómo puedo limitar esta entrada?
2) El cursor se encuentra a la izquierda justo cuando puse el último carácter tecleado bien?
3) ¿Cómo puedo declarar una variable numérica vacía? Si declare mValor: ='' en GET me hace entrar sólo 1 carácter.

Gracias a todos por la ayuda.