Saltar al contenido

Aniversario rescate Mineros Chilenos


petercien1

Recommended Posts

publicado

Hola a Todos

Quisiera tomar este espacio para escribir algo que llebo como una espina clavada.

Hace un año escribiamos sobre lo grandioso que fue el rescate de los mineros de Atacama, ayer se cumplio un año de aquella asaña, podria haber sido un dia de conmemoracion no solo del rescate sino de un cambio de fondo en la legislacion sobre prevencion y fiscalizacion.

Pero no, como era de esperarse la clase politica y sobre todo la derecha que en estos tiempos es gobierno manoseo y utilizo este rescate casi como una bandera de guerra, conocidas son las pateticas intervenciones de Piñera (presidente de Chile) por el mundo con el papelito "estamos bien en el refugio los 33", lo utilizo hasta decir basta, pero lo utilizo en beneficio propio y no de los miles de trabajadores de la mineria, PEQUEÑA MINERIA QUE SON LOS MAS BULNERABLES.

En un Post Pegones escribió " Hay muchas preguntas por aclarar, ¿por qué había sólo dos inspectores de minas en la región de Acatama? ¿son caros los inspectores? ¿son seguras las minas? ¿o es que no interesa que paralicen las minas por motivos de seguridad?".

Lamentablemente Pedro aun hoy a un año te puedo decir que como pasa en casi todas las cosas no se a legislado al respecto, siguen muriendo compatriotas en las entrañas de la tierra y es como si nada ubiese pasado.

Es lamentable que los politicoas que son los que debieran legislar no lo hagan, solo hacen para los aplausos, buscan el lugar y el momento presiso para obtener un beneficio para su propia persona y/o partido politico, esto es generalizado en todos los colores politicos de Chile, Izquierda, derecha, centro, son todos lo mismo.

Sobre los compatriotas que estubieron atrapados son muy pocos los que estan trabajando, el resto que se puede decir la mayoria estan con problemas serios de variada indole, alcohol, drogas, avandono absoluto, problemas psicologicos, deudas y ahi estan en completo abandono, ayer el gobierno dijo que les prestaria ayuda psicologica si es que ellos lo querian, y eso seria todo.

Me pregunto despues de haber estrujado esta tragica situacion para obtener dividendos politicos sera justo que hoy abandonen a los Mineros, que no se legisle al respecto, que las condiciones siguen siendo iguaal de precarias que cuando sucedio el accidente.

Ojala un dia pueda alguien tener la capacidad y las ganas de realmente hacer leyes que cuiden a los desprotegidos, no solo en mineria sino que en casi todas las areas, Salud Publica, Edicacion, Construccion, Agricultura.... etc.

Es paradogico que Codelco sea una de las mas grandes mineras del mundo y por otro lado hay quienes se juengan la vida para llebar el Pan a su hogar, sacando con sus manos un par de rocas que significa la sobrevivencia de los pirquineros.

Es una pena todo esto, ojala pronto mejoren las cosas, hoy por hoy tenemos un pais revuelto con conflictos en educacion y salud publica que todavia no se solucionan.

El gobierno lo unico que busca es desprestigiar los movimientos sociales y no ve el trasfondo de todo, en educacion para quienes no tienen los medios estan obligados a vivir sin poder desarrollarse, no importando si tienen las suficientes capacidades para estudiar y desarrollarse en forma distinta y para quienes nos atrevemos a estudiar a pesar de no contar con recursos, nos enbarcamos en deudas enormes que al fin y al cabo no permiten un real desarrollo.

Y asi son variadas las situaciones que se dan en los distintos centros de educacion, es triste comparar colegios ubicados en lugares reservados para algunos (Ricos) y los ubicados en los suburivios, la diferencia es atros.

Y que decir de la Salud, para quienes tienen medios obtienen la salud que quieran y para quienes no tienen los medios estan destinados a esperar hasta 4 años para que los puedan operar de alguna enfermedad, muchos mueren esperando la oportunidad de ser atendidos.

En seguridad no se puede decir mucho tampoco, los suburbios estan invadidos por narcotrafico, los jovenes y los no tanto estan sumidos en las drogas y no pueden ver mas alla de su nariz, no hay oportunidad para todos.

Se habla de creciemiento de 5%, 6%... etc, pero si le preguntas a cualquiera en la calle lo unico que te dira es que debe el 80% de sus ingresos y lleba esa vida desde siempre.

Este es Chile un pasis de gente linda, de comidas ricas muy ricas y para variados gustos, de paisajes paradisiacos.

Pero de Empresarios y Politicos casi todos unos Hijos de ...........

Saludos Cordiales

Pedro.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      188
    • Comentarios
      98
    • Revisiones
      29

    Más información sobre "Cambios en el Control Horario"
    Última descarga
    Por pegones1

    4    1

  • Crear macros Excel

  • Mensajes

    • Hola, veo que tienes 365, así que esta forma funcionará   Almacen.xlsx
    • Buenos días  @LeandroA espero estes bien Tengo un caso idéntico al planteado en la siguiente pregunta: Sin embargo, a diferencia de quien planteo originalmente la pregunta al correr el código no obtengo ningún resultado podrían ayudarme a resolver este inconveniente y que al hacer click en el Botón Guardar (CommandButton3) del Formulario RCS (frmrcs) el archivo pdf quede configurado con orientación vertical, márgenes superior, inferior, derecho e izquierdo = 1 y en página tamaño carta. Si acaso influye uso Microsoft Excel LTSC MSO (versión 2209 Compilación16.0.1.15629.20200) de 64 bits Mucho le sabre agradecer la ayuda que me pueda dar  RCS PRUEBA - copia.xlsm
    • @JSDJSDCon gusto mi estimado Para la opción 1: Sub Surtirhastadondealcanse() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 4 Dim filaFin As Integer: filaFin = 7 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Else solicitudes(i) = 0 End If surtido(i) = "POR FALTA STOCK" Next i ' Surtir de acuerdo al inventario disponible For i = 1 To numClientes If solicitudes(i) > 0 Then If inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) ElseIf inventario > 0 Then surtido(i) = inventario totalSurtido = totalSurtido + inventario inventario = 0 Else surtido(i) = "POR FALTA STOCK" End If End If Next i ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = "POR FALTA STOCK" Then .Value = surtido(i) .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Para la opción 2:   Sub surtirenpartesiguales() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 13 Dim filaFin As Integer: filaFin = 16 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 Dim totalPedido As Double: totalPedido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) totalPedido = totalPedido + solicitudes(i) Else solicitudes(i) = 0 End If surtido(i) = 0 Next i ' Si hay suficiente inventario, surtir lo que el cliente pide If inventario >= totalPedido Then For i = 1 To numClientes If solicitudes(i) > 0 And inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) End If Next i Else ' Reparto base igualitario Dim baseSurtido As Long baseSurtido = Int(inventario / numClientes) For i = 1 To numClientes If solicitudes(i) > 0 Then If solicitudes(i) <= baseSurtido Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) Else surtido(i) = baseSurtido inventario = inventario - baseSurtido totalSurtido = totalSurtido + baseSurtido End If End If Next i ' Repartir sobrante restante uno por uno, respetando lo pedido Do While inventario > 0 For i = 1 To numClientes If surtido(i) < solicitudes(i) Then surtido(i) = surtido(i) + 1 totalSurtido = totalSurtido + 1 inventario = inventario - 1 If inventario = 0 Then Exit For End If Next i Loop End If ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = 0 Then .Value = "POR FALTA STOCK" .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Saludos, Diego
    • Buenos dias.  Estoy trabajando en una hoja para poder llevar un control de un pequeño almacén.  Tengo un pedido con varias líneas y "lotes" y necesito sacar las ubicaciones que coincidan con la referencia y lote que pone en el pedido. El problema viene cuando tengo la misma referencia y mismo lote en ubicaciones diferentes y necesito sacar la información en columnas diferentes. No se si  me he explicado bien, pero creo que con el ejemplo adjunto se entiende mejor. Agradecería mucho si me pudieran ayudar  Libro1.xlsx
    • Exelente solución mil gracias 
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.