function setOtrosParametros($Parametro, $Valor, $FechaDeExpiracion = false)
{
$xDb = new cSAFETabla(TCREDITOS_PRODUCTOS_OTROS_PARAMETROS);
$dpt = $this->mClaveDeConvenio;
$f = fechasys();
$FechaDeExpiracion = $FechaDeExpiracion == false ? '2029-01-01' : $FechaDeExpiracion;
//idcreditos_productos_otros_parametros, clave_del_producto, clave_del_parametro, valor_del_parametro, fecha_de_alta, fecha_de_expiracion
$insert = $xDb->getInsert("{$dpt}, '{$Parametro}', '{$Valor}', '{$f}', '{$FechaDeExpiracion}' ", $xDb->getCamposSinClaveUnica());
my_query($insert);
}
/**
* Agrega un nuevo Patrimonio
* @param integer $Tipo
* @param float $Monto
* @param integer $Estado
* @param integer $Afectacion
* @param string $DocumentoProbatorio
* @param string $Descripcion
* @param string $Observaciones
* @param date $Expira
* @param date $Fecha
*/
function addPatrimonio($Tipo, $Monto, $Estado, $Afectacion = 1, $DocumentoProbatorio = "", $Descripcion = "", $Observaciones = "", $Expira = "2029-01-01", $Fecha = false)
{
$xF = new cFecha(0, $Fecha);
$xDBT = new cSAFETabla(TPERSONAS_PATRIMONIO);
$Fecha = $xF->get();
if ($Afectacion == -1 and $Monto > 0) {
$Monto = $Monto * -1;
}
$Socio = $this->mCodigo;
$Documento = DEFAULT_CREDITO;
$Sucursal = getSucursal();
$Eacp = EACP_CLAVE;
$Usr = getUsuarioActual();
$valores = "{$Socio}, {$Tipo}, {$Monto}, {$Afectacion}, '{$Expira}', '{$Observaciones}', '{$Descripcion}', '{$DocumentoProbatorio}', ";
$valores .= "{$Documento}, {$Estado}, {$Socio}, '{$Sucursal}', '{$Eacp}', {$Usr}, '{$Fecha}' ";
$SQLI = $xDBT->getInsert($valores, $xDBT->getCamposSinClaveUnica());
my_query($SQLI);
}
