From 382ec5cd3576cac4e4ffbcdc25f33dd8fef65781 Mon Sep 17 00:00:00 2001
From: Jhonny Soto <jsoto@marmotech.com.do>
Date: Thu, 3 Sep 2026 10:12:37 -0400
Subject: [PATCH] JSOTO Se adiciono programa adprmt017

---
 PROYECTO/addir/adprmt017.4gl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/PROYECTO/addir/adprmt017.4gl b/PROYECTO/addir/adprmt017.4gl
index fc0896d..2baf358 100644
--- a/PROYECTO/addir/adprmt017.4gl
+++ b/PROYECTO/addir/adprmt017.4gl
@@ -1619,6 +1619,9 @@ FUNCTION desplegar()
      IF acc_per.estado_civil = "C" THEN
         LET estado = "CASADO"
      END IF
+    IF acc_per.estado_civil = "U" THEN
+        LET estado = "UNION LIBRE"
+     END IF
 
      IF acc_per.sexo = "M" THEN
         LET tipo_sexo = "MASCULINO"