public static function liqcomercio()
{
$codigo_comercio = Persona::numeroComercio();
$sql = "SELECT tarjetas_comercios_mov.nro_liquidacion,\n\t\t\t\t\t tarjetas_comercios_mov.monto_liquidacion,\n\t\t\t\t\t tarjetas_comercios_mov.fecha_liquidacion,\n\t\t\t\t\t tarjetas_comercios_mov.fecha_vto_liquidacion\n \t\t\t FROM tarjetas_comercios_mov\n\t\t\t\t JOIN personas ON\n\t\t\t\t \t ( tarjetas_comercios_mov.codigo_comercio = personas.com_numero_comercio\n\t\t\t\t\t AND personas.es_comercio = 1 )\n\t \t\t\t WHERE tarjetas_comercios_mov.nro_empresa \t\t\t= 1\n\t \t\t AND tarjetas_comercios_mov.nro_sucursal \t\t\t= 1\n\t \t\t AND tarjetas_comercios_mov.codigo_tarjeta \t\t= 1\n\t\t\t\t AND tarjetas_comercios_mov.tipo_cbte_liquidacion\t= 27\n\t\t\t\t AND IsNull( tarjetas_comercios_mov.liquidacion_cancelada,0 ) = 0\n\t\t\t\t AND IsNull( tarjetas_comercios_mov.anulada,0 ) = 0\n\t\t\t\t AND codigo_comercio = {$codigo_comercio}\n\t\t\t ORDER BY tarjetas_comercios_mov.codigo_comercio ASC\n\t\t\t ";
$datos = DB::select($sql);
return $datos;
}
public function getIndex()
{
if (Auth::user()->nivel == 1 or Auth::user()->nivel == 3) {
// socio y socio-comercio
$nombre = Persona::nombreCompleto();
$nrosocio = 'Socio: ' . Persona::numeroSocio();
$cuentas = cuentasAhorro::socioCuentas();
$prestamos = Prestamos::activos();
$transitorias = Transitoria::activos();
$cheques = Cheques::rechazados();
$terminos = Termino::activos();
}
if (Auth::user()->nivel == 3 or Auth::user()->nivel == 2) {
// comercio-socio - comercio
$liqcomercio = TarjetaComercioMov::liqcomercio();
} else {
$liqcomercio = 'no';
}
if (Persona::usaTarjeta()) {
$limites = Socio::limites(Persona::numeroSocio());
$liqusuario = TarjetaUsuarioMov::liqusuario();
if (count($liqusuario) > 0) {
foreach ($liqusuario as $liq) {
$nro_liquidacion = $liq->nro_liquidacion;
}
$liqconsumos = TarjetasConsumos::consumos($nro_liquidacion);
} else {
$liqusuario = 'noliq';
$liqconsumos = 'no';
}
} else {
$liqusuario = 'no';
$liqconsumos = 'no';
$limites = '';
}
if (Auth::user()->nivel == 2) {
// comercio
$nombre = Persona::nombreComercio();
$nrosocio = 'Comercio: ' . Persona::numeroComercio();
$cuentas = 'no';
$prestamos = 'no';
$transitorias = 'no';
$cheques = 'no';
$terminos = 'no';
$liqconsumos = 'no';
}
if (Formatos::esCelular()) {
return View::make('usuario.celular.inicio')->with('nombrecompleto', $nombre)->with('nrosocio', $nrosocio)->with('cuentas', $cuentas)->with('prestamos', $prestamos)->with('transitorias', $transitorias)->with('cheques', $cheques)->with('terminos', $terminos)->with('liqcomercio', $liqcomercio)->with('liqusuario', $liqusuario)->with('liqconsumos', $liqconsumos)->with('limites', $limites);
} else {
return View::make('usuario.inicio')->with('nombrecompleto', $nombre)->with('nrosocio', $nrosocio)->with('cuentas', $cuentas)->with('prestamos', $prestamos)->with('transitorias', $transitorias)->with('cheques', $cheques)->with('terminos', $terminos)->with('liqcomercio', $liqcomercio)->with('liqusuario', $liqusuario)->with('liqconsumos', $liqconsumos)->with('limites', $limites);
}
}
public static function buscarPromo($codigo_plan)
{
$fecha_compra = Formatos::fechaHoraActual();
$codigo_comercio = Persona::numeroComercio();
$dia_semana = jddayofweek(cal_to_jd(CAL_GREGORIAN, date("m"), date("d"), date("Y")));
$empresa = 1;
$sucursal = 1;
$sql = "\n\t\t\t\tSELECT TOP 1\n\t\t\t\t\t tarjetas_planes_promocion.nombre_plan as nombre,\n\t\t\t\t\t tarjetas_planes_promocion.vigencia_hasta as vencimiento\n\t\t\t\t FROM tarjetas_planes_promocion\n\t\t\t\t WHERE nro_empresa = {$empresa}\n\t\t\t\t\tAND nro_sucursal = {$sucursal}\n\t\t\t\t\tAND tarjetas_planes_promocion.codigo_plan = {$codigo_plan}\n\t\t\t\t\tAND Isnull( comercios_todos, 0 ) = 1\n\t\t\t\t\tAND (( IsNull( domingo\t, 0 ) \t= 1 AND 1 = {$dia_semana} ) or \n\t\t\t\t\t\t ( IsNull( lunes\t, 0 ) \t= 1 AND 2 = {$dia_semana} ) or \n\t\t\t\t\t\t ( IsNull( martes\t, 0 ) \t= 1 AND 3 = {$dia_semana} ) or \n\t\t\t\t\t\t ( IsNull( miercoles, 0 ) \t= 1 AND 4 = {$dia_semana} ) or \n\t\t\t\t\t\t ( IsNull( jueves\t, 0 ) \t= 1 AND 5 = {$dia_semana} ) or \n\t\t\t\t\t\t ( IsNull( viernes\t, 0 ) \t= 1 AND 6 = {$dia_semana} ) or \n\t\t\t\t\t\t ( IsNull( sabado\t, 0 ) \t= 1 AND 7 = {$dia_semana} ) ) \n\t\t\t\t\tAND vigencia_desde <= '{$fecha_compra}'\n\t\t\t\t\tAND vigencia_hasta >= '{$fecha_compra}'\n\t\t\t\t\tAND isnull(habilitado,0) = 1\n\n\t\t\t\tUNION ALL\n\n\t\t\t\tSELECT\n\t\t\t\t\t tarjetas_planes_promocion.nombre_plan AS nombre,\n\t\t\t\t\t tarjetas_planes_promocion.vigencia_hasta AS vencimiento\n\n\t\t\t\t FROM tarjetas_planes_comercios\n\t\t\t\t JOIN tarjetas_planes_promocion ON\n\t\t\t\t\t\t( tarjetas_planes_comercios.nro_empresa \t = tarjetas_planes_promocion.nro_empresa AND\n\t\t\t\t\t\t tarjetas_planes_comercios.nro_sucursal \t = tarjetas_planes_promocion.nro_sucursal \t AND\n\t\t\t\t\t\t tarjetas_planes_comercios.codigo_plan \t = tarjetas_planes_promocion.codigo_plan \t AND\n\t\t\t\t\t\t tarjetas_planes_comercios.vigencia_desde = tarjetas_planes_promocion.vigencia_desde AND\n\t\t\t\t\t\t tarjetas_planes_comercios.cod_promocion\t = tarjetas_planes_promocion.cod_promocion\t )\n\n\t\t\t\t WHERE tarjetas_planes_comercios.nro_empresa \t\t= {$empresa}\n\t\t\t\t\tAND tarjetas_planes_comercios.nro_sucursal \t\t= {$sucursal}\n\t\t\t\t\tAND tarjetas_planes_comercios.codigo_comercio \t= {$codigo_comercio}\n\n\t\t\t\t\tAND tarjetas_planes_comercios.codigo_plan \t\t= {$codigo_plan}\n\t\t\t\t\tAND (( IsNull( tarjetas_planes_promocion.domingo\t, 0 ) = 1 AND 1 = {$dia_semana} ) or \n\t\t\t\t\t\t ( IsNull( tarjetas_planes_promocion.lunes\t\t, 0 ) = 1 AND 2 = {$dia_semana} ) or \n\t\t\t\t\t\t ( IsNull( tarjetas_planes_promocion.martes\t, 0 ) = 1 AND 3 = {$dia_semana} ) or \n\t\t\t\t\t\t ( IsNull( tarjetas_planes_promocion.miercoles\t, 0 ) = 1 AND 4 = {$dia_semana} ) or \n\t\t\t\t\t\t ( IsNull( tarjetas_planes_promocion.jueves\t, 0 ) = 1 AND 5 = {$dia_semana} ) or \n\t\t\t\t\t\t ( IsNull( tarjetas_planes_promocion.viernes\t, 0 ) = 1 AND 6 = {$dia_semana} ) or \n\t\t\t\t\t\t ( IsNull( tarjetas_planes_promocion.sabado\t, 0 ) = 1 AND 7 = {$dia_semana} ) ) \n\n\t\t\t\t\tAND tarjetas_planes_comercios.vigencia_desde <= '{$fecha_compra}'\n\t\t\t\t\tAND tarjetas_planes_comercios.vigencia_hasta >= '{$fecha_compra}'\n\t\t\t\t\tAND isnull(tarjetas_planes_comercios.habilitado,0) = 1\n\t\t\t\t AND isnull(tarjetas_planes_promocion.habilitado,0) = 1\n\t\t";
$datos = DB::select($sql);
if (count($datos) <= 0) {
return 'no hay';
}
return $datos;
}
public function postDetallecompra()
{
if (Input::get('cuotas') * 1 < 2) {
return 'Mínimo de cuotas 2';
}
$tarjeta = str_pad(Input::get('tarjeta') . '', 16, '0', STR_PAD_LEFT);
$comercio = str_pad(Persona::numeroComercio() . '', 13, '0', STR_PAD_LEFT);
$cuotas = str_pad(Input::get('cuotas') . '', 2, '0', STR_PAD_LEFT);
$monto = str_pad(Input::get('monto') . '', 12, '0', STR_PAD_LEFT);
$parametro = $tarjeta . $comercio . $cuotas . $monto;
$comando = 'c:\\neoweb\\ivrweb\\ivrweb.exe ' . $parametro;
//$usr = exec('whoami'); . ' - USR: '******'CMD: ' . $comando);
//$r = shell_exec($comando);
$r = shell_exec($comando);
if (!file_exists('c:/neoweb/ivrweb/detalles/' . $tarjeta . '.xml')) {
Log::error('NO EXISTE: ' . 'd:/ivrweb/detalles/' . $tarjeta . '.xml');
return 'no se puede leer detalle';
}
$xml = simplexml_load_file('c:/neoweb/ivrweb/detalles/' . $tarjeta . '.xml');
unlink('c:/neoweb/ivrweb/detalles/' . $tarjeta . '.xml');
$nroPlan = TarjetasPlanes::nroPlan($cuotas * 1);
$promo = TarjetaPlanPromocion::buscarPromo($nroPlan);
return View::make('comercio.detallecompra')->with('detalle', $xml)->with('promo', $promo);
}
public static function retenciones($importe)
{
$nro_comercio = Persona::numeroComercio();
$adec_porc_tomar_pago = 100;
$ldec_imponible = $importe;
$ret_iva = 0;
$ret_gan = 0;
$ret_iibb = 0;
$li_condicion_iva = 0;
$li_rubro_comercio = 0;
$li_retiene_iva = 0;
$li_retiene_ganancias = 0;
$li_retiene_ingbrutos = 0;
$li_retiene_debcred = 0;
$ll_codigo_provincia = 0;
$li_presento_ddjj = 0;
$li_convenio_multi = 0;
$sql = "SELECT ISNULL( tarjetas_comercios.condicion_iva, 7 ) \t AS li_condicion_iva, \n\t\t \t\t tarjetas_comercios.codigo_rubro_ret \t\t\t\t AS li_rubro_comercio, \n\t\t \t\t ISNULL( tarjetas_comercios.retiene_iva, 0 ) \t\t AS li_retiene_iva, \n\t\t \t\t ISNULL( tarjetas_comercios.retiene_ganancias, 0 ) AS li_retiene_ganancias, \n\t\t \t\t ISNULL( tarjetas_comercios.retiene_ingbrutos, 0 ) AS li_retiene_ingbrutos, \n\t\t \t\t ISNULL( tarjetas_comercios.retiene_debcred, 0 ) AS li_retiene_debcred,\n\t \t\t localidad.codigo_provincia \t\t\t\t\t\t AS ll_codigo_provincia, \n\t\t \t\t ISNULL( tarjetas_comercios.presento_ddjj, 0 ) \t AS li_presento_ddjj,\t\n\t\t \t\t ISNULL( tarjetas_comercios.convenio_multilateral, 0 ) AS li_convenio_multi\n\t\t\t FROM tarjetas_comercios \n\t\t LEFT JOIN Localidad ON\n\t\t \t\t ( tarjetas_comercios.codigo_postal = localidad.codigo_postal )\n\t\t\t WHERE tarjetas_comercios.nro_empresa \t\t\t\t = 1 \n\t\t\t AND tarjetas_comercios.nro_sucursal \t\t\t\t = 1 \n\t \t\t AND IsNull( tarjetas_comercios.comercio_propio, 0 ) = 0 \n\t\t\t AND codigo_comercio \t\t\t\t\t\t\t\t\t= {$nro_comercio}\n \t\t ";
$datos = DB::select($sql);
$li_condicion_iva = $datos[0]->li_condicion_iva;
$li_rubro_comercio = $datos[0]->li_rubro_comercio;
$li_retiene_iva = $datos[0]->li_retiene_iva;
$li_retiene_ganancias = $datos[0]->li_retiene_ganancias;
$li_retiene_ingbrutos = $datos[0]->li_retiene_ingbrutos;
$li_retiene_debcred = $datos[0]->li_retiene_debcred;
$ll_codigo_provincia = $datos[0]->ll_codigo_provincia;
$li_presento_ddjj = $datos[0]->li_presento_ddjj;
$li_convenio_multi = $datos[0]->li_convenio_multi;
if ($li_retiene_iva == 1) {
$sql = "SELECT IsNull( tarjetas_ret_config.porcentaje, 0 ) as adec_porcentaje, \n\t\t\t\t IsNull( tarjetas_ret_config.no_imponible, 0 ) as adec_noimponible, \n\t\t\t\t IsNull( tarjetas_ret_config.exento, 0 ) as adec_exento,\n\t\t\t\t IsNull( tarjetas_ret_config.depende_tabla, 0 ) as li_depende_tabla\n\t\t\t FROM tarjetas_ret_config\n\t\t\t WHERE ( tarjetas_ret_config.tipo_impuesto = 1 )\n\t\t\t AND ( tarjetas_ret_config.codigo_rubro = {$li_rubro_comercio} )\n\t\t\t AND ( tarjetas_ret_config.condicion_iva = {$li_condicion_iva} );\n\t\t\t";
$datos = DB::select($sql);
$iva_porcentaje = $datos[0]->adec_porcentaje;
$iva_noimponible = $datos[0]->adec_noimponible;
$iva_exento = $datos[0]->adec_exento;
$iva_depende_tabla = $datos[0]->li_depende_tabla;
if ($iva_noimponible >= $ldec_imponible) {
$ret_iva = 0;
} else {
$ret_iva = round($ldec_imponible * $iva_porcentaje / 100, 2);
}
if ($ret_iva <= $iva_exento) {
$ret_iva = 0;
}
}
if ($li_retiene_ganancias == 1) {
$sql = "SELECT IsNull( tarjetas_ret_config.porcentaje, 0 ) AS adec_porcentaje, \n\t\t\t\t IsNull( tarjetas_ret_config.no_imponible, 0 ) AS adec_noimponible, \n\t\t\t\t IsNull( tarjetas_ret_config.exento, 0 ) \t\t AS adec_exento,\n\t\t\t\t IsNull( tarjetas_ret_config.depende_tabla, 0 ) AS li_depende_tabla\n\t\t\t FROM tarjetas_ret_config\n\t\t\tWHERE ( tarjetas_ret_config.tipo_impuesto = 2 )\n\t\t\t AND ( tarjetas_ret_config.codigo_rubro = {$li_rubro_comercio} )\n\t\t\t AND ( tarjetas_ret_config.condicion_iva = {$li_condicion_iva} )\n\t";
$datos = DB::select($sql);
$gan_porcentaje = $datos[0]->adec_porcentaje;
$gan_noimponible = $datos[0]->adec_noimponible;
$gan_exento = $datos[0]->adec_exento;
$gan_depende_tabla = $datos[0]->li_depende_tabla;
if ($gan_noimponible >= $ldec_imponible) {
$ret_gan = 0;
} else {
$ret_gan = round($ldec_imponible * $gan_porcentaje / 100, 2);
}
if ($ret_gan <= $gan_exento) {
$ret_gan = 0;
}
}
if ($li_retiene_ingbrutos == 1) {
$sql = "SELECT IsNull( tarjetas_ret_config.porcentaje, 0 ) as adec_porcentaje, \n\t\t\t\t IsNull( tarjetas_ret_config.no_imponible, 0 ) as adec_noimponible, \n\t\t\t\t IsNull( tarjetas_ret_config.exento, 0 ) as adec_exento,\n\t\t\t\t IsNull( tarjetas_ret_config.depende_tabla, 0 ) as li_depende_tabla\n\t\t\t FROM tarjetas_ret_config\n\t\t\t WHERE ( tarjetas_ret_config.tipo_impuesto = 3 )\n\t\t\t AND ( tarjetas_ret_config.codigo_rubro = {$li_rubro_comercio} )\n\t\t\t AND ( tarjetas_ret_config.condicion_iva = {$li_condicion_iva} )\n\t\t ";
$datos = DB::select($sql);
$iibb_porcentaje = $datos[0]->adec_porcentaje;
$iibb_noimponible = $datos[0]->adec_noimponible;
$iibb_exento = $datos[0]->adec_exento;
$iibb_depende_tabla = $datos[0]->li_depende_tabla;
if ($iibb_noimponible >= $ldec_imponible) {
$ret_iibb = 0;
} else {
$ret_iibb = round($ldec_imponible * $iibb_porcentaje / 100, 2);
}
if ($ret_iibb <= $iibb_exento) {
$ret_iibb = 0;
}
}
$total = $ret_iva + $ret_gan + $ret_iibb;
$retenciones = array();
$retenciones[1] = $ret_iva;
$retenciones[2] = $ret_gan;
$retenciones[3] = $ret_iibb;
$retenciones[4] = $total;
return $retenciones;
}
