$recibo = $xRisk->documento_relacionado()->v(); $cont = array(); $linea = ""; $cont[1] = $xLayout->getClave(); $cont[2] = $FechaExtraccion; $cont[3] = $operaciones == 0 ? 1 : $operaciones; $cont[4] = "01" . $xT->cSerial(3, $supervisor); //clave nacional de entidad supervisora 1002 = CNBV $cont[5] = $casfin; $cont[6] = $xLoc->DomicilioLocalidadClave(); // cambiar por la UIF $cont[7] = $xLoc->DomicilioCodigoPostal(); // CP de la sucursal $xRec = new cReciboDeOperacion(false, false, $recibo); $xRec->init(); $docto_relacionado = $xRec->getCodigoDeDocumento() == DEFAULT_CREDITO ? $xRec->getCodigoDeRecibo() : $xRec->getCodigoDeDocumento(); $cont[8] = $xEquivOps->get($xRec->getTipoDeRecibo()); // Tipo de Operacion 01 deposito 02 retiro 03 compra divisas 04 venta divisas $cont[9] = $xEquivInst->get($xRec->getTipoDePago()); //TODO: Instrumento monetario $cont[10] = $docto_relacionado; $cont[11] = $xRec->getTotal(); $cont[12] = $xRec->getMoneda(); $cont[13] = $xRec->getFechaDeRecibo(); $cont[14] = $fechaDetec; //inusuales $cont[15] = $nac; $cont[16] = $tp; $nombresujeto = $xT->getCSV($xSoc->getNombre()); $cont[17] = $tp == SYS_UNO ? "" : $nombresujeto; $cont[18] = $tp == SYS_UNO ? $nombresujeto : "";
$empresa = parametro("empresa", SYS_TODAS);
$out = parametro("out", SYS_DEFAULT);
$idrecibo = parametro("cNumeroRecibo", 0, MQL_INT);
$idrecibo = parametro("recibo", $idrecibo, MQL_INT);
$idrecibo = parametro("idrecibo", $idrecibo, MQL_INT);
$idrecibo = parametro("clave", $idrecibo, MQL_INT);
$FechaInicial = parametro("on", false);
$FechaInicial = parametro("fecha-0", $FechaInicial);
$FechaInicial = $FechaInicial == false ? FECHA_INICIO_OPERACIONES_SISTEMA : $xF->getFechaISO($FechaInicial);
$FechaFinal = parametro("off", false);
$FechaFinal = parametro("fecha-1", $FechaFinal);
$FechaFinal = $FechaFinal == false ? fechasys() : $xF->getFechaISO($FechaFinal);
$jsEvent = $out != OUT_EXCEL ? "initComponents()" : "";
$senders = getEmails($_REQUEST);
$sql = "SELECT * FROM `operaciones_archivo_de_facturas` WHERE `clave_de_recibo` = ";
$titulo = "";
$archivo = "";
$xRec = new cReciboDeOperacion(false, false, $idrecibo);
$xRec->init();
$archivo = $xRec->getFactura(true);
if ($archivo == null) {
header("Content-type: text/plain");
echo $xRec->getMessages(OUT_TXT);
} else {
$nombrearchivo = "Factura_recibo_num_" . $xRec->getCodigoDeRecibo();
header("Content-type: application/pdf");
//ISO-8859-1
header("Content-Disposition: attachment; filename=\"{$nombrearchivo}.pdf\"; ");
//readfile($xRec->OFactura()->getComprobante() . ".pdf");
echo $archivo;
}
$sucess = true;
$msg = "";
if (CAPITAL_SOCIAL_EN_CAPTACION == true) {
$xSoc = new cSocio($persona);
$cuenta = $xSoc->getCuentaDeCaptacionPrimaria(CAPTACION_TIPO_VISTA, CAPTACION_PRODUCTO_CAPITALSOCIAL);
$xCta = new cCuentaALaVista($cuenta);
if ($cuenta == 0) {
//Aperturar nueva cuenta
$cuenta = $xCta->setNuevaCuenta(DEFAULT_CAPTACION_ORIGEN, CAPTACION_PRODUCTO_CAPITALSOCIAL, $persona);
$xCta->set($cuenta);
}
if ($xCta->init() == true) {
$idrecibo = $cRec->setNuevoRecibo($persona, $xCta->getNumeroDeCuenta(), $fecha, 1, RECIBOS_TIPO_DEPOSITO_VISTA, $observaciones, $cheque, $comopago, $foliofiscal);
$cRec->init();
if ($tipo1 != false and $monto1 > 0) {
$xCta->setDeposito($monto1, $cheque, $comopago, $foliofiscal, "Origen {$tipo1}:" . $observaciones, DEFAULT_GRUPO, $fecha, $cRec->getCodigoDeRecibo());
}
if ($tipo2 != false and $monto2 > 0) {
$xCta->setDeposito($monto2, $cheque, $comopago, $foliofiscal, "Origen {$tipo2}:" . $observaciones, DEFAULT_GRUPO, $fecha, $cRec->getCodigoDeRecibo());
}
if ($tipo3 != false and $monto3 > 0) {
$xCta->setDeposito($monto2, $cheque, $comopago, $foliofiscal, "Origen {$tipo2}:" . $observaciones, DEFAULT_GRUPO, $fecha, $cRec->getCodigoDeRecibo());
}
} else {
$msg .= "ERROR\tError en la carga de la cuentar {$cuenta}\r\n";
$sucess = false;
}
if (MODO_DEBUG == true) {
$msg .= $xCta->getMessages();
}
} else {
$OPerx = $xCred->getOPeriocidad();
$OEstado = $xCred->getOEstado();
$respetar_plan_pagos = $xCred->getRespetarPlanDePago();
$empresa = $xCred->getClaveDeEmpresa();
$tasa_iva = $xCred->getTasaIVA();
$msg .= "WARN\tPLAN\tQue hacer con el Plan: {$respetar_plan_pagos}\r\n";
$contrato_captacion = $dsol["contrato_corriente_relacionado"];
$saldo_anterior = $xCred->getSaldoActual();
if ($grupo == 0 || !isset($grupo) || $grupo == "" || $grupo == false) {
$grupo = DEFAULT_GRUPO;
}
$xNRec = new cReciboDeOperacion(RECIBOS_TIPO_PAGO_CREDITO);
$xNRec->setNuevoRecibo($socio, $solicitud, $fecha_operacion, $parcialidad, RECIBOS_TIPO_PAGO_CREDITO, $observaciones, $cheque, $tipo_pago, $recibo_fiscal, $grupo, false, AML_CLAVE_MONEDA_LOCAL, 0, $empresa);
$xNRec->init();
$msg .= $xNRec->getMessages(OUT_TXT);
$recibo_pago = $xNRec->getCodigoDeRecibo();
if ($procesado == SYS_AUTOMATICO or $pempresa > 0) {
$icxObs = $SRC["cobservaciones"];
$msg .= "WARN\tTOTAL AUTOMATICO\t:{$icxObs}\t{$totalAutomatico}\r\n";
my_query("UPDATE empresas_cobranza SET estado = 0, observaciones = CONCAT(observaciones, '[{$recibo_pago}]{$icxObs} [{$fecha_operacion}]') WHERE clave_de_credito={$solicitud} AND parcialidad={$parcialidad} AND `clave_de_nomina`={$pempresa}");
}
$msg .= "OK\tRECIBO\tEl Recibo es {$recibo_pago}\r\n";
$opends = "Pendientes de Cobro del Rec {$recibo_pago}";
$recibo_pendientes = false;
$total_pendientes = 0;
$xPlan = false;
$nueva_parcialidad = $parcialidad;
$tds = "";
/**
* Elimina el Recibo de Pendientes
**/