$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 $docto_relacionado = $OAEc == null ? $OAEc->getNumeroDeSeguridadSocial() : $xRisk->documento_relacionado()->v(); //($xRec->getCodigoDeDocumento() == DEFAULT_CREDITO) ? $xRec->getCodigoDeRecibo() : $xRec->getCodigoDeDocumento(); $fecha_de_op = $xF->getFechaByInt($xRisk->fecha_de_reporte()->v()); $instrumento = $xRisk->instrumento_financiero()->v(); $tipo_de_op = $xRisk->tipo_de_operacion()->v(); $total = $xRisk->monto_total_relacionado()->v(); $moneda = AML_CLAVE_MONEDA_LOCAL; //TODO: Agregar soporte para captación y colocación switch ($tipo_de_obj) { case iDE_RECIBO: $xRec = new cReciboDeOperacion(false, false, $recibo); if ($xRec->init() == true) { if ($xRec->getCodigoDeSocio() == $tercero) { $tipo_de_op = $xEquivOps->get($xRec->getTipoDeRecibo()); $instrumento = $xEquivInst->get($xRec->getTipoDePago()); $moneda = $xRec->getMoneda(); $total = $xRec->getTotal(); } else { $msg .= "ERROR\tLa persona {$tercero} no es misma del recibo {$recibo}- " . $xRec->getCodigoDeSocio() . "\r\n"; $totalerrores++;
function add($persona, $tipo, $fecha, $valor, $documento, $tipo_de_documento = false, $usuario = false, $hora = false, $instrumento = false, $tipo_de_operacion = false, $tercero_relacionado = DEFAULT_SOCIO, $mensajes = "", $inmediato = false) { $hora = $hora == false ? date("Hi") : $hora; $usuario = $usuario == false ? getUsuarioActual() : $usuario; $tipo_de_documento = $tipo_de_documento == false ? iDE_RECIBO : $tipo_de_documento; $instrumento = setNoMenorQueCero($instrumento); if ($instrumento <= 0 or setNoMenorQueCero($tipo_de_operacion) <= 0) { switch ($tipo_de_documento) { case iDE_RECIBO: $EqOps = new cSistemaEquivalencias(TOPERACIONES_RECIBOSTIPOS); $EqTes = new cSistemaEquivalencias(TTESORERIA_TIPOS_DE_PAGO); $xRec = new cReciboDeOperacion(false, false, $documento); $instrumento = $EqTes->get($xRec->getTipoDePago()); $tipo_de_operacion = $EqOps->get($xRec->getTipoDeRecibo()); if ($xRec->isDivisaExtranjera() == true) { $instrumento = AML_OPERACIONES_CLAVE_DIVISA; } if ($tipo_de_operacion == null) { $tipo_de_operacion = "01"; } break; } } if ($inmediato == true) { $inmediato = 1; } $inmediato = setNoMenorQueCero($inmediato); $xPR = new cAml_risk_register(); $xPR->clave_de_riesgo($xPR->query()->getLastID()); $xPR->escore($valor); $xPR->fecha_de_reporte($fecha); $xPR->hora_de_reporte($hora); $xPR->persona_relacionada($persona); $xPR->tipo_de_riesgo($tipo); $xPR->usuario_de_origen($usuario); $xPR->tipo_de_documento($tipo_de_documento); $xPR->documento_relacionado($documento); $xPR->estado_de_envio(SYS_UNO); $xPR->fecha_de_envio(0); $xPR->estado_de_envio(0); $xPR->fecha_de_checking(0); $xPR->oficial_de_checking(AML_OFICIAL_DE_CUMPLIMIENTO); $xPR->monto_total_relacionado(0); //cargar datos del recibo $xPR->instrumento_financiero($instrumento); //mejorar segun catalogo CNBV $xPR->tipo_de_operacion($tipo_de_operacion); $xPR->tercero_relacionado($tercero_relacionado); $xPR->mensajes_del_sistema($mensajes); $xPR->reporte_inmediato($inmediato); $ql = $xPR->query()->insert(); $ql->save(); $this->mMessages .= $ql->getMessages(OUT_TXT); }
} else { $xTabla->query()->update()->save($clave); } $xFRM->addAvisoRegistroOK(); } $xFRM->OHidden("clave_de_riesgo", $xTabla->clave_de_riesgo()->v(), "TR.clave de riesgo"); $xFRM->addHElem($xTxt->getDeSocio("0", false, $xTabla->persona_relacionada()->v(), "", "TR.persona")); $xFRM->addHElem($xTxt->getDeSocio("1", false, $xTabla->tercero_relacionado()->v(), "", "TR.persona relacionada")); //$xFRM->OMoneda("persona_relacionada" //$xFRM->OMoneda("tercero_relacionado" $xFRM->addHElem($xSel->getListaDeRiesgosAML("tipo_de_riesgo", "", $xTabla->tipo_de_riesgo()->v())->get(true)); $xFRM->OMoneda("documento_relacionado", $xTabla->documento_relacionado()->v(), "TR.documento relacionado"); $xFRM->addHElem($xSel->getListaDeObjetosEnSistema("tipo_de_documento", $xTabla->tipo_de_documento()->v())->get(true)); //$xFRM->OMoneda("tipo_de_documento", $xTabla->tipo_de_documento()->v(), "TR.tipo de documento"); $ti = $xSel->getListadoGenerico("aml_tipos_de_operacion", "tipo_de_operacion"); $ti->setOptionSelect($xTabla->tipo_de_operacion()->v()); $xFRM->addHElem($ti->get("TR.tipo de operacion", true)); $ti2 = $xSel->getListadoGenerico("aml_instrumentos_financieros", "instrumento_financiero"); $ti2->setOptionSelect($xTabla->instrumento_financiero()->v()); $xFRM->addHElem($ti2->get("TR.instrumento_financiero", true)); //$xFRM->OText("tipo_de_operacion", $xTabla->tipo_de_operacion()->v(), "TR.tipo de operacion"); //$xFRM->OMoneda("instrumento_financiero", $xTabla->instrumento_financiero()->v(), "TR.instrumento financiero"); $xFRM->OMoneda("monto_total_relacionado", $xTabla->monto_total_relacionado()->v(), "TR.monto total relacionado"); //$xFRM->OTextArea("notas_de_checking", $xTabla->notas_de_checking()->v(), "TR.notas de checking"); //$xFRM->OTextArea("mensajes_del_sistema", $xTabla->mensajes_del_sistema()->v(), "TR.mensajes del sistema"); //$xFRM->OMoneda("tipo_de_riesgo", $xTabla->tipo_de_riesgo()->v(), "TR.tipo de riesgo"); //$xFRM->OMoneda("fecha_de_envio", $xTabla->fecha_de_envio()->v(), "TR.fecha de envio"); //$xFRM->OMoneda("estado_de_envio", $xTabla->estado_de_envio()->v(), "TR.estado de envio"); //$xFRM->OMoneda("fecha_de_checking", $xTabla->fecha_de_checking()->v(), "TR.fecha de checking"); //$xFRM->OMoneda("oficial_de_checking", $xTabla->oficial_de_checking()->v(), "TR.oficial de checking"); //$xFRM->OText("firma_de_checking", $xTabla->firma_de_checking()->v(), "TR.firma de checking");