docs & tools: Actualización de informes y scripts de migración DASUTEN

adn/tools/cli/verificar_solo_dasu.rb

@@ -0,0 +1,63 @@
+#!/usr/bin/env ruby
+# frozen_string_literal: true
+
+require_relative 'drones/lib/dasu_executor'
+
+puts "=== VERIFICANDO DATOS EN DASU-SQL4 ==="
+puts "Fecha: #{Time.now.strftime('%Y-%m-%d %H:%M:%S')}"
+puts ""
+
+ps_script = <<~PSCMD.strip
+  $ErrorActionPreference = "Stop"
+  $connString = "Server=localhost;Database=sysdasuten;Integrated Security=true;TrustServerCertificate=yes;"
+  $conn = New-Object System.Data.SqlClient.SqlConnection($connString)
+  $conn.Open()
+
+  Write-Host "[1] BonosAfiliado - Última fecha:"
+  $cmd = New-Object System.Data.SqlClient.SqlCommand("SELECT MAX(fecha) as ultima FROM BonosAfiliado", $conn)
+  $ultima = $cmd.ExecuteScalar()
+  Write-Host "    $ultima"
+
+  Write-Host "`n[2] BonosAfiliado - ID máximo:"
+  $cmd = New-Object System.Data.SqlClient.SqlCommand("SELECT MAX(idsolicitud) as max_id FROM BonosAfiliado", $conn)
+  $maxId = $cmd.ExecuteScalar()
+  Write-Host "    $maxId"
+
+  Write-Host "`n[3] BonosAfiliado - Registros por fecha:"
+  $cmd = New-Object System.Data.SqlClient.SqlCommand("SELECT CAST(fecha AS DATE) as dia, COUNT(*) as c FROM BonosAfiliado GROUP BY CAST(fecha AS DATE) ORDER BY dia DESC", $conn)
+  $adapter = New-Object System.Data.SqlClient.SqlDataAdapter($cmd)
+  $ds = New-Object System.Data.DataSet
+  $adapter.Fill($ds)
+  $ds.Tables[0].Rows | ForEach-Object { Write-Host "    $($_.dia): $($_.c) registros" }
+
+  Write-Host "`n[4] AutorizacionBonosExcepcion - ID máximo:"
+  $cmd = New-Object System.Data.SqlClient.SqlCommand("SELECT MAX(idsolicitud) as max_id FROM AutorizacionBonosExcepcion", $conn)
+  $maxId = $cmd.ExecuteScalar()
+  Write-Host "    $maxId"
+
+  Write-Host "`n[5] AutorizacionBonosExcepcion - Última fecha:"
+  $cmd = New-Object System.Data.SqlClient.SqlCommand("SELECT MAX(fechasolicitud) as ultima FROM AutorizacionBonosExcepcion", $conn)
+  $ultima = $cmd.ExecuteScalar()
+  Write-Host "    $ultima"
+
+  Write-Host "`n[6] Fecha del último restore:"
+  $cmd = New-Object System.Data.SqlClient.SqlCommand("SELECT TOP 1 restore_date FROM msdb.dbo.restorehistory WHERE destination_database_name = 'sysdasuten' ORDER BY restore_date DESC", $conn)
+  $adapter = New-Object System.Data.SqlClient.SqlDataAdapter($cmd)
+  $ds = New-Object System.Data.DataSet
+  $adapter.Fill($ds)
+  if ($ds.Tables[0].Rows.Count -gt 0) {
+    Write-Host "    Restore: $($ds.Tables[0].Rows[0].restore_date)"
+  }
+
+  Write-Host "`n[7] Archivos en F:\\BACKUP:"
+  Get-ChildItem "F:\\BACKUP\\*.bak" | ForEach-Object {
+    Write-Host "    $($_.Name)"
+    Write-Host "      LastWriteTime: $($_.LastWriteTime)"
+  }
+
+  $conn.Close()
+PSCMD
+
+DasuExecutor.execute_ps_on_dasu(ps_script)
+
+puts "\n✅ Verificación completada"