Utilidad=IngresoAcumulado - EgresoAcumulado
Tarifa=T01
Excedente=Utilidad-Tarifa.LI
ImpMarg=Excedente*Tarifa.Porcentaje
mImpuesto=ImpMarg+Tarifa.CuotaFija
ISR=mImpuesto-ISRretenido-PagosProvisionalesAcumuladosISR
IF (ISR<=0)
ISREstatal=0
ISRFederacion=0
ELSE
ESTADO = Utilidad * 0.05
IF (ESTADO < ISR) 
ISREstatal = ESTADO
ISRFederacion = ISR-ESTADO
ELSE 
ISREstatal = ISR 
ISRFederacion = 0
ENDIF
ENDIF
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