69 lines
2.2 KiB
Ruby
69 lines
2.2 KiB
Ruby
#!/usr/bin/env ruby
|
|
# frozen_string_literal: true
|
|
|
|
require_relative 'drones/lib/dasu_executor'
|
|
|
|
puts "=== DASU-SQL4 - Registros de ABRIL 2026 ==="
|
|
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] Registros de abril 2026 ordenados por fecha:"
|
|
$cmd = New-Object System.Data.SqlClient.SqlCommand("
|
|
SELECT TOP 30 idsolicitud, fecha, codigoafiliado, dependencia
|
|
FROM BonosAfiliado
|
|
WHERE fecha >= '2026-04-01'
|
|
ORDER BY fecha DESC, idsolicitud 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 " ID: $($_.idsolicitud) | fecha: $($_.fecha) | afiliado: $($_.codigoafiliado)"
|
|
}
|
|
|
|
Write-Host "`n[2] Cantidad de registros por día (abril 2026):"
|
|
$cmd = New-Object System.Data.SqlClient.SqlCommand("
|
|
SELECT CAST(fecha AS DATE) as dia, COUNT(*) as c
|
|
FROM BonosAfiliado
|
|
WHERE fecha >= '2026-04-01'
|
|
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[3] IDs mínimos y máximos por día (abril 2026):"
|
|
$cmd = New-Object System.Data.SqlClient.SqlCommand("
|
|
SELECT
|
|
CAST(fecha AS DATE) as dia,
|
|
MIN(idsolicitud) as min_id,
|
|
MAX(idsolicitud) as max_id,
|
|
COUNT(*) as c
|
|
FROM BonosAfiliado
|
|
WHERE fecha >= '2026-04-01'
|
|
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): IDs [$($_.min_id) - $($_.max_id)] | c: $($_.c)"
|
|
}
|
|
|
|
$conn.Close()
|
|
PSCMD
|
|
|
|
DasuExecutor.execute_ps_on_dasu(ps_script)
|
|
|
|
puts "\n✅ Verificación completada"
|