function setEnviarMoroso($fecha, $parcialidad, $recibo = false)
 {
     $FMora = $this->mFechaMora;
     $FVenc = $this->mFechaVencimientoLegal;
     $monto = $this->mSdoCapitalInsoluto;
     $socio = $this->mNumeroSocio;
     $solicitud = $this->mNumeroCredito;
     $estatus = CREDITO_ESTADO_MOROSO;
     $xT = new cTipos();
     $msg = "";
     if ($xT->cBool(CREDITO_GENERAR_MVTO_MORA) == true) {
         //========================================================
         $xRec = new cReciboDeOperacion(10);
         $xRec->setNumeroDeRecibo($recibo);
         //========================================================
         $nota = "Estatus [{$estatus}] Modificado en el cierre del {$fecha}, Mora: {$FMora}, Vence: {$FVenc}";
         //agregar Movimiento con Partida
         $xMvto = $xRec->setNuevoMvto($fecha, $monto, 115, $parcialidad, $nota, 1, TM_CARGO, $socio, $solicitud);
         //Agregar Contrapartida
         $xRec->addMvtoContable(OPERACION_CLAVE_MINISTRACION, $monto, TM_ABONO, $socio, $solicitud);
         $msg = "{$socio}\t{$solicitud}\tMOROSO\tEstatus[{$estatus}] Modificado en el cierre del {$fecha}, Mora: {$FMora}, Vence: {$FVenc}\r\n";
     } else {
         $this->setCambiarEstadoActual($estatus, $fecha);
     }
     $this->mMessages .= $msg;
     return $msg;
 }