$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 **/