calcular los dias de mora

[heberthm]

Hola a todos, he conseguido solucionar el cálculo de días de mora para un préstamo diario, aquí el código:

UPDATE pagos
SET estado = Case when forma_pago ='diario' then
IF(TIMESTAMPDIFF(DAY , fecha, CURDATE()) <= 2, 'Al dia', IF(TIMESTAMPDIFF(DAY , fecha, CURDATE()) >=3, 'Mora','Mora' ))
when forma_pago ='semanal' Then
IF(TIMESTAMPDIFF(DAY , fecha, CURDATE()) <= 5, 'Al dia', IF(TIMESTAMPDIFF(DAY , fecha, CURDATE()) >= 6, 'Mora','Mora' ))

end

El propósito de éste código es poder calcular de forma automática los días transcurridos despúes de la fecha de pago teniendo en cuenta que si la forma de pago es diario dar 2 días de gracia y si el pago es semanal dar 5 días de gracia.
Agradezco a jmendezg por su colaboración.