Esa impresión nace de lo invisible: el valor real de su trabajo no se mide en movimiento, sino en resultados que otros no ven.

El área de sistemas no solo “arregla computadoras”:

• Automatiza procesos para que las tareas rutinarias se hagan solas, los equipos trabajen más rápido y de ser posible se ejecuten sin intervención humana; eso ahorra tiempo y reduce errores.

• Diseña programas y soluciones que permiten que cada departamento (facturación, inventarios, reportes, comunicaciones, etc.) funcione sin tener que preocuparse por lo técnico.

• Previene problemas antes de que ocurran, asegurando que la operación nunca se detenga y tenga continuidad el negocio.

• Conecta personas y datos para que la información fluya sin obstáculos.

• Crean herramientas que trabajan para el encargado de sistemas, es decir, construyen soluciones (programación de sistemas) que monitorean, corrigen y optimizan automáticamente.

Lo que parece “no hacer nada” en realidad es crear sistemas que trabajan en automático para todos los demás.

El encargado de sistemas programa, configura y vigila que todo esté en orden, para que los demás puedan enfocarse en sus tareas sin interrupciones.

Por qué su trabajo parece “invisible”

Lo visible es el resultado: un correo que llega, una base de datos que responde, un proceso que se completa.

Lo invisible es la arquitectura, las pruebas, la depuración y la vigilancia constante.

Cuando todo funciona, nadie nota el esfuerzo; cuando falla, todos lo notan de inmediato.

¿A poco no?.

Reflexión clara y profunda

El área de sistemas no es un lujo ni un soporte secundario: es la columna vertebral que permite que la empresa respire y avance.

Su trabajo transforma tareas manuales en flujos automáticos, convierte datos en decisiones y libera a las personas para que aporten creatividad y juicio.

Valorar a sistemas es entender que la eficiencia y la resiliencia de una compañía dependen tanto de lo que se ve como de lo que se construye en silencio.

La próxima vez que pienses que alguien de sistemas “no trabaja”, recuerda que gracias a ellos tu correo llega, tu software funciona, tu red se mantiene estable y tus procesos se ejecutan sin que tengas que mover un dedo.

¡Si el articulo te ayudó, puedes ofrecer una donación voluntaria para seguir motivado!

La función es bastante simple, se hace una consulta al la unidad A: que es su momento fue la del diskette y hay un dispositivo de lectura te envía un mensaje de confirmación. Esto me sirvió mucho cuando en su momento realicé copias de seguridad en discos. Si ya se me dirán anciano pero en su momento fue increíble:

function HayDisquete(var Razon: Integer): Boolean;
var
  Handle: THandle;
  FindData: TWin32FindData;
begin
  Razon := NO_ERROR;    { Al menos, de momento }
  FillChar(FindData, SizeOf(TWin32FindData), 0);
  Handle := Windows.FindFirstFile(PChar('A:\*.*'),
FindData);
  if (INVALID_HANDLE_VALUE <> Handle) then
  begin
    Windows.FindClose(Handle);    { El disquete está
montado y tiene algún archivo }
    Result := TRUE;
  end
  else
  begin
    Razon := Windows.GetLastError;
    Case (Razon) of
    ERROR_FILE_NOT_FOUND:
      begin
        Result := TRUE;     { El disquete está montado
pero no tiene ningún archivo }
      end;
    ERROR_NOT_READY:
      begin
        Result := FALSE;    { El disquete no está
montado }
      end;
      else
      begin
        Result := FALSE;    { ¿Qué error se ha
producido?: comprobar a la salida }
      end;
    end;
  end;
end;

Código Delphi7

Para hacer el llamado de la función del procedimiento, simplemente se hace:

procedure TForm1.Button1Click(Sender: TObject);
var
  razon: integer;
begin
  razon:=1;
  if HayDisquete(razon) then
    showmessage('Hay disco');
end;

¡Si el articulo te ayudó, puedes ofrecer una donación voluntaria para seguir motivado!

La función es bastante simple ya que solo se hace el llamado a un procedimiento y ajustando lo valores para que realice la copia al lugar donde se desee:

/*
parámetros:
  Origen: carpeta origen de la copia
  Destino: carpeta destino donde irá la copia
  Mask: máscara a usar (ej: *.exe, *.*,....)
  Process: si despues de cada copia hay que lanzar o no un ProcessMessage
*/
procedure CopyDirectory(Origen, Destino, Mask: string; Process: boolean);
var
  Files: integer;
  FOrigen: string;
  FDestino: string;
  ok: boolean;
  Search: TSearchRec;
begin
  Origen := IncludeTrailingPathDelimiter(Origen);
  Destino := IncludeTrailingPathDelimiter(Destino);

  Files := FindFirst(Origen + Mask, faAnyFile, Search);
  while Files = 0 do
  begin
    if Search.Attr <> faDirectory then
    begin
      FOrigen := Origen + Search.Name;
      FDestino  := Destino + Search.Name;
      ok := CopyFile(PChar(FOrigen), PChar(FDestino), false);
      if not ok then raise Exception.Create('No se pudo copiar el
fichero: ' + Search.Name);
    end
    else
    begin
      if (Search.Name <> '.') and (Search.Name <> '..') then
      begin
        ok := CreateDir(Destino + Search.Name);
        if not ok then raise Exception.Create('No se pudo crear el
directorio: ' + Search.Name)
        else CopyDirectory(Origen + Search.Name, Destino + '\' +
Search.Name, Mask);
      end;
    end;
    Files := FindNext(Search);

    if Process then Application.ProcessMessages;
  end;
  FindClose(Search);
end;

Código Delphi7

Para hacer el llamado de la función del procedimiento, simplemente se hace:

 CopyDirectory("C:\carpetaOrigen\archivo.txt","C:\carpetaDestino\archivo.txt");

¡Si el articulo te ayudó, puedes ofrecer una donación voluntaria para seguir motivado!

Supongamos que tenemos un equipo PC que administra la red, éste debe estar conectado en unos de los puertos del Mikrotik, teniendo asignado una IP del segmento de red de tu red LAN

Debes tener comunicación a alguna IP de tus clientes, esto lo haces haciendo un PING a la IP del equipo cliente, supongamos que el cliente tiene una IP 192.168.14.42:

C:>ping 192.168.14.42
Haciendo ping a 192.168.14.42 con 32 bytes de datos:
Respuesta desde 192.168.14.42: bytes=32 tiempo=10ms TTL=63
Respuesta desde 192.168.14.42: bytes=32 tiempo=20ms TTL=63
Respuesta desde 192.168.14.42: bytes=32 tiempo=8ms TTL=63
Respuesta desde 192.168.14.42: bytes=32 tiempo=9ms TTL=63

Estadísticas de ping para 192.168.14.42:
    Paquetes: enviados = 4, recibidos = 4, perdidos = 0
    (0% perdidos),
Tiempos aproximados de ida y vuelta en milisegundos:
    Mínimo = 9ms, Máximo = 20ms, Media = 13ms

Al tener comunicación, ya podemos ingresar el ONU por medio del navegador de nuestra preferencia, de la siguiente manera:

Debes colocar el https:// seguidamente de la IP del cliente, dos puntos y terminar colocando el puerto de seguridad 8090. Por ejemplo https://192.168.14.42:8090

Ejemplo de resultado en el navegador

El equipo Huawei como medida de seguridad por default usa el puerto de seguridad 8090. De esta forma ya podremos acceder hacer los cambios necesarios en esos equipos.

El equipo NO esta liberado ni tiene cargado algún tipo de Firmware especial.

¡Si el articulo te ayudó, puedes ofrecer una donación voluntaria para seguir motivado!

Supongamos que tenemos un equipo PC que administra la red, éste debe estar de preferencia conectado en unos de los puertos del Mikrotik, teniendo asignado una IP del segmento de red de tu red LAN

De allí debes poder tener comunicación a alguna IP de tus clientes, esto lo haces haciendo un PING a la IP del equipo cliente, supongamos que el cliente tiene una IP 192.168.8.176:

C:>ping 192.168.8.176
Haciendo ping a 192.168.8.176 con 32 bytes de datos:
Respuesta desde 192.168.8.176: bytes=32 tiempo=15ms TTL=63
Respuesta desde 192.168.8.176: bytes=32 tiempo=23ms TTL=63
Respuesta desde 192.168.8.176: bytes=32 tiempo=16ms TTL=63
Respuesta desde 192.168.8.176: bytes=32 tiempo=40ms TTL=63

Estadísticas de ping para 192.168.8.176:
    Paquetes: enviados = 4, recibidos = 4, perdidos = 0
    (0% perdidos),
Tiempos aproximados de ida y vuelta en milisegundos:
    Mínimo = 15ms, Máximo = 40ms, Media = 23ms

Al tener comunicación, ya podemos ingresar el ONU por medio del navegador de nuestra preferencia, de la siguiente manera:

Debes colocar el https:// seguidamente de la IP del clientes, dos puntos y terminar colocando el puerto de seguridad 8090.

Ejemplo de resultado en el navegador

El equipo ZTE como medida de seguridad por default usa el puerto de seguridad 8090. De esta forma ya podremos acceder hacer los cambios necesarios en esos equipos.

El equipo NO esta liberado ni tiene cargado algún tipo de Firmware especial.

¡Si el articulo te ayudó, puedes ofrecer una donación voluntaria para seguir motivado!

Existes muchos tipo de modelos y marcas que hay ene l mercado, sobre todo con la tecnología Gpon que es la mas usada en las redes FFTH, pero hay veces donde es complicado saber que marca y modelos podemos usar en estos equipos, la compatibilidad es muy importante ya que te permite un mejor uso del equipo.

A continuación les comparto marcas y modelos de equipo que hasta la fecha han sido compatibles con el modelo OLT MA5683T.

Hasta el momento estas han sido los que me a tocado comprobar que funcionan, se irán agregando mas modelos si van saliendo y sobre todo que haya comprobado.

Se les invita de igual forma compartir algún otro modelo para agregarlo a la lista y así poder hacer crecer este banco de conocimiento que se a muchos les va a ayudar.

Para los que somos muy fans de este tipo de películas créanme que los 54 minutos que dura el video valen mucho la pena verlos y el final que ni yo me esperaba fue sublime. Todos los créditos al autor del video.

Fuente: Youtube.

En el siguiente guion usamos la sentencia «for» para poder hacer un barrido en la lista que tengamos y seguidamente por medio de una variable ir cambiado el valor que deseamos editar. Colocamos el siguiente código en la terminal de comandos:

for e from=0 to=100 do={ /queue simple set $e max-limit=10M/10M}

En la variable (e) le damos el valor de 0 hasta 100 (puede ser hasta N número dependiendo tus registros), así que cada recorrido de la sentencia ira lanzando el comando de edición (set) al comando /queue de la sección simple (colas simples), dando el valor de 10M (megas) de descarga y de subida a la opción max-limit. 

El resultado se vería directamente en la sección de colas simples (Queues) en la terminal solo te mostrará el prompt de regreso.

Espero les sea útil!! si tienes algún otro parecido o que hayas hecho a partir de este ejemplo no dudes en compartirlo, a alguien mas le podría servir!

¡Si el articulo te ayudó, puedes ofrecer una donación voluntaria para seguir motivado!, Gracias.

Debes de tomar en cuanta que hay muchas personas en este momento que quizá estén haciendo el trámite, por lo cual se te pide paciencia al momento de realizar el registro, a continuación debes entrar en el siguiente enlace:

https://satid.sat.gob.mx/

A continuación te mostrará la siguiente ventana:

Debe seleccionar la primera opción ( Generación de Contraseña ). Para esto debes tener a la mano lo siguiente:

En el Primer Paso, debes tener la siguiente información:

• Tu número de RFC. (suponiendo que ya estas antes dado de alta en el SAT).
• Correo electrónico. En donde te enviarán el resultado del proceso.
• Número de Celular.

El segundo paso es tener a la mano tu documentación oficial, en este caso seria tu INE.

Y por último en el tercer paso, deberás hacer desde tu celular un video confirmar tu identidad y para finalizar firmar la solicitud.

Con eso sería todo, el resultado de tu solicitud tardaría aproximadamente 5 días laborales. Se paciente el resultado llegará a tu correo.

Espero te sea de utilidad.

¡Si el articulo te ayudó, puedes ofrecer una donación voluntaria para seguir motivado!, Gracias.

Para poder exportar tos consultas solamente debe hacer llamado a tu puntero, una vez que ya lo tengas almacenado solo es hacer llamado y exportarlo a excel de la siguiente forma:

LOCAL lcPath as string
lcPath=PUTFILE("Guardar como: ","personal","xls")
SELECT MiPuntero
COPY TO (lcPath) TYPE XLS

Este tipo de exportación es la mas sencilla y recomendado para personas que usan office menor a 2010. ya que el la extensión xls corresponde a esa versión.
La siguiente forma aun mas elegante donde te pregunta si quieres abrir el archivo excel una vez que se efectuó el proceso de exportación. Se realiza de la siguiente forma:
SELECT MiPuntero
lcFileOpen = Putfile( 'Listado de la consulta','TituloConsulta','Xls' )
If ! Empty( lcFileOpen )
    Copy To ( lcFileOpen ) Type Xls
    If Messagebox( '¿Desea abrir el Archivo de Excel recién exportado?',32+4,'Exportar a excel') = 6 Then && si
        Declare Integer ShellExecute In shell32.Dll ;
            INTEGER hndWin, ;
            STRING cAction, ;
            STRING cFileName, ;
            STRING cParams, ;
            STRING cDir, ;
            INTEGER nShowWin
        cAction = "open"
        ShellExecute(0,cAction,lcFileOpen,"","",1)
    Endif
Endif

Cualquiera de la dos formas puede usar. Mejoras son bienvenidas!.. 
]]>
					
					https://koalasoft.wordpress.com/2022/01/12/exportar-a-excel-consultas-en-visualfoxpro/feed/
			0
		
		
		1655
		
			KoalaSoft
		

		
			logo_vfp