Redondeo Altruista
Byleto estoy haciendo una aplicación en Access 2003 por necesidad para mi tienda se poco de Access y menos aun de código y tengo una cuestión aver si se puede hacer:
Resulta que quiero hacer como las tiendas grandes, es decir que piden a sus clientes redondear sus centavos para donarlos a causas de bien social: Niños huérfanos, con Cáncer, etc.
En el formulario principal tengo los siguientes textbox: Importe, Efectivo, Cambio, Redondeo. Todos funcionan como se supone: Importe recibe el dato del SubForm, en Efectivo dígito la cantidad de dinero con la que paga el cliente y Cambio es la Resta de Efectivo e Importe, hasta aquí todo bien.
Bueno lo que necesito es:
Que al recibir el enfoque el textbox:Importe
1.- Si el Importe es un Número cuyos decimales sean .00 entonces no redondear el Importe porque no tiene centavos. Ej. 10.00 = 10.00
2.- Si el Importe es un Número cuyos decimales son mayores que .01 y menores que .49; entonces redondear los decimales a .50 ej. 10.01 = 10.50, 10.49 = 10.50
3.- Si el Importe es un Número cuyos decimales son mayores que .51 y menores que .99; entonces redondear los decimales al siguiente Entero ej. 10.51 = 11.00, 10.99 = 11.00
4.- Todavía no redondear en los hechos pues hace falta recibir el Efectivo del Cliente, una vez digitado el Efectivo y si procede el redondeo: Mostrar un cuadro de mensaje donde aparezcan: a) El Importe a redondear, el Importe ya redondeado y los centavos que se van a redondear; con los botones Si No y Cancelar.
Si selecciona Si, Redondear el Importe, restarlo al Efectivo y mostrar la diferencia en el Cambio. Si selecciona No cerrar el cuadro de mensaje y no hacer cambios y si selecciona cancelar cerrar el cuadro de mensaje y regresar el enfoque al textbox Importe.
Perdón se que es mucho pedir.
Resulta que quiero hacer como las tiendas grandes, es decir que piden a sus clientes redondear sus centavos para donarlos a causas de bien social: Niños huérfanos, con Cáncer, etc.
En el formulario principal tengo los siguientes textbox: Importe, Efectivo, Cambio, Redondeo. Todos funcionan como se supone: Importe recibe el dato del SubForm, en Efectivo dígito la cantidad de dinero con la que paga el cliente y Cambio es la Resta de Efectivo e Importe, hasta aquí todo bien.
Bueno lo que necesito es:
Que al recibir el enfoque el textbox:Importe
1.- Si el Importe es un Número cuyos decimales sean .00 entonces no redondear el Importe porque no tiene centavos. Ej. 10.00 = 10.00
2.- Si el Importe es un Número cuyos decimales son mayores que .01 y menores que .49; entonces redondear los decimales a .50 ej. 10.01 = 10.50, 10.49 = 10.50
3.- Si el Importe es un Número cuyos decimales son mayores que .51 y menores que .99; entonces redondear los decimales al siguiente Entero ej. 10.51 = 11.00, 10.99 = 11.00
4.- Todavía no redondear en los hechos pues hace falta recibir el Efectivo del Cliente, una vez digitado el Efectivo y si procede el redondeo: Mostrar un cuadro de mensaje donde aparezcan: a) El Importe a redondear, el Importe ya redondeado y los centavos que se van a redondear; con los botones Si No y Cancelar.
Si selecciona Si, Redondear el Importe, restarlo al Efectivo y mostrar la diferencia en el Cambio. Si selecciona No cerrar el cuadro de mensaje y no hacer cambios y si selecciona cancelar cerrar el cuadro de mensaje y regresar el enfoque al textbox Importe.
Perdón se que es mucho pedir.
2 Respuestas
Respuesta de xavi -ae soft-
1
Respuesta de byleto
1