if ($DRec["socio"] != $codigo_rep) {
     echo "<p class='warn'>La Clave de Persona de la representante(" . $codigo_rep . ") <br />\n\t\t\t\t\t\t\t\t\t\tNo concide con el Numero de la Planeacion (" . $DRec["socio"] . ") <br />\n\t\t\t\t\t\t\t\t\t\tSegun la Planeacion " . $DRec["recibo"] . " </p>";
 } else {
     //retirar de la cuenta 50
     //obtener recibo de la garantia
     if ($solo_simular == 0) {
         $messages .= "Efectuar Retiro de la Socia {$codigo_rep} <br /> ";
         $sqlSumGtiaLiquida = "SELECT\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`codigo_de_base`,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`miembro`,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t`operaciones_mvtos`.`docto_afectado`,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\tSUM( (`eacp_config_bases_de_integracion_miembros`.`afectacion` *\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t`operaciones_mvtos`.`afectacion_real`) ) AS 'monto'\n\t\t\t\t\t\t\t\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t`operaciones_mvtos` `operaciones_mvtos`\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tINNER JOIN `eacp_config_bases_de_integracion_miembros`\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tON `operaciones_mvtos`.`tipo_operacion` =\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`miembro`\n\t\t\t\t\t\t\t\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t(`eacp_config_bases_de_integracion_miembros`.`codigo_de_base` =2500)\n\t\t\t\t\t\t\t\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t(`operaciones_mvtos`.`docto_afectado` = {$credito})\n\t\t\t\t\t\t\t\t\t\t\t\t\tGROUP BY\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t`eacp_config_bases_de_integracion_miembros`.`codigo_de_base`,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t`operaciones_mvtos`.`docto_afectado` ";
         $DG = obten_filas($sqlSumGtiaLiquida);
         $GDocto = $DG["docto_afectado"];
         $monto = $DG["monto"];
         $GDate = date("Y-m-d");
         //=============================retirar de garantia Liquida
         if ($monto > 0) {
             $xr = new cReciboDeOperacion(17);
             $xr->setNuevorecibo($codigo_rep, $GDocto, $GDate, 1, 17, "GENERADO_AUTOMATICAMENTE_POR_{$iduser}", "NA", "ninguno", "NA", $grupo);
             $xr->setNuevoMvto($GDate, $monto, 353, 1, "GENERADO_AUTOMATICAMENTE_POR_{$iduser}", 1, TM_CARGO);
             $xr->setFinalizarRecibo();
             //Mensages
             $messages .= $xr->getMessages() . "<br />";
         }
         //===============================Retirar el Ahorro
         //Buscar Ahorro
         $xCR = new cCuentaALaVista("50" . $codigo_rep . "01");
         $exist = $xCR->setContarCuentaBySocio($codigo_rep, 50);
         //Si el Ahorro exisre proseguir en el retiro
         if ($exist >= 1) {
             $messages .= "Efectuar Retiro de Ahorro de la Socia {$codigo_rep} <br /> ";
             $sqlSCta = "SELECT\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t`captacion_cuentas`.*\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t`captacion_cuentas` `captacion_cuentas`\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t(`captacion_cuentas`.`numero_socio` = {$codigo_rep})\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t(`captacion_cuentas`.`tipo_subproducto` = 50)\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tLIMIT 0,1";
             $RDG = obten_filas($sqlSCta);
             $RCta = $RDG["numero_cuenta"];