CLEAR
R="S"
STORE 0.00 TO BASE, CANT
STORE 0 TO DIAS
PORC=SPACE(5)
DO WHILE R="S"
CLEAR
@ 15,40 SAY "TECLEE EL IMPORTE DE LA CANTIDAD BASE:" GET BASE PICT "9,999,999.99"
@ 17,40 SAY "TECLEE LA CANTIDAD DE DIAS TRANSCURRIDOS" GET DIAS PICT "999,999.99"
READ
DO CASE
CASE DIAS
CANT=BASE*(.03)
PORC="3%"
CASE DIAS
CANT=BASE*(.015)
PORC="1.5%"
CASE DIAS>30
CANT=0
PORC="0%"
OTHERWISE
WAIT WINDOW 'ERROR EN EL PROGRAMA, PRESIONE UNA TECLA PARA CONTINUAR'
ENDCASE
@ 19,40 SAY "EL RESULTADO DE LA COMISION ES:"
@ 19,80 SAY ALLTRIM(STR(BASE))+" * " +ALLTRIM(PORC)+ " = "
@ 19,100 SAY ALLTRIM(TRANSFORM(CANT,'999,999.99'))
@ 22,40 SAY "REPETIR (S/N):" GET R PICT "@!" VALID R$"SN"
READ
ENDDO
CLEAR
RETURN
ZeRoberto, OJO con el Format = K para ingresar valores numéricos.Aca en Argentina si lo usas para el ingreso de % de inflación, el formato K achica los % ingresados.
Gracias Enrique! El problema ya fue solucionado. No estaba poniendo un 0 en la propiedad value del control text. Luego solo pondre la mascara 9,999,999.99 en el inputmask y una K en la propiedad format, además me recomendaron usar la propiedad maxlength, para definir los digitos máximos que aceptará el control text.
| R | Muestra la máscara de formato para el cuadro de texto
especificada en la propiedad InputMask. Los datos de formatos de máscaras para
una entrada más fácil y una presentación más clara (por ejemplo, si la máscara
es 99-999, el número 12345 se mostrará como 12-345), pero no se almacena como
parte de los datos. Se usa sólo con datos de caracteres o numéricos. |
Marco, si.. me pasé con el tema, pero solo era para recalcar la facilidad con que Clipper resolvía el asunto, aun en su versión vieja summer 87. Nada personal !Ya sé que el Fox es la neta del planeta, pero a veces me desespero al pasarme una tarde entera tratando de entender algo que al final era tan simple.Digamos que reconozco que Fox es dificil de entender, pero la Ley, una vez que ya le agarras la onda (como decimos en México). jeje
Con K de Kirchner ¿??? Jajajajajaj
MK