Utilidad=IngresoAcumulado - EgresoAcumulado Tarifa=T01 Excedente=Utilidad-Tarifa.LI ImpMarg=Excedente*Tarifa.Porcentaje mImpuesto=ImpMarg+Tarifa.CuotaFija ISR=mImpuesto-ISRretenido-PagosProvisionalesAcumuladosISR ISRFederacion=ISR BaseIetu=IngresoAcumulado-EgresoDeducibleIETU-OtrosDeduciblesIETU mIetu=BaseIetu*0.165 IF(mIetu<0) IETU=0 CreditoFiscalPendiente=mIetu*-1 ELSE mNDIetu=EgresoNoDeducibleIETU*0.165 IETU=mIetu-mNDIetu-ISR-PagosProvisionalesIETU-CreditoFiscalPorPerdidas-OtrosCredFisIETU ENDIF