diff --git a/AC/RegNomina.aspx b/AC/RegNomina.aspx
index db1709f12..4c71060cf 100644
--- a/AC/RegNomina.aspx
+++ b/AC/RegNomina.aspx
@@ -107,7 +107,7 @@
                                 <td>
                                     <asp:TextBox ID="TxtSindical" runat="server" Width="75px"></asp:TextBox></td>
                                
-                                <td> </td><td> </td>
+                                <td>P. Empleados:</td><td><asp:TextBox ID="TxtPrestamoEmpleados" runat="server" Width="75px"></asp:TextBox></td>
                                  </tr>
                             </table>
                         </asp:Panel>
diff --git a/AC/RegNomina.aspx.vb b/AC/RegNomina.aspx.vb
index 38dda7c00..a85fa5425 100644
--- a/AC/RegNomina.aspx.vb
+++ b/AC/RegNomina.aspx.vb
@@ -379,6 +379,7 @@ Partial Class AC_RegNomina
         Dim IdCtaServicioMedico As Integer = 643
         Dim IdCtaPension As Integer = 643
         Dim IdCtaISRAsimilados As Integer = 4442
+        Dim IdCtaPrestamoEmpleados As Integer = 4477
 
         Dim Importe As Double
         Dim MsgError As String = ""
@@ -617,6 +618,9 @@ Partial Class AC_RegNomina
             Importe = TxtISRAsimilados.Text.ToDouble
             If Importe > 0 AndAlso Not objAC.AddMovimiento(IDPoliza, IdCtaISRAsimilados, True, Importe, "", Concepto, 0, Fecha, "") Then TieneError = True
 
+            'Registro Prestamo Empleados
+            Importe = TxtPrestamoEmpleados.Text.ToDouble
+            If Importe > 0 AndAlso Not objAC.AddMovimiento(IDPoliza, IdCtaPrestamoEmpleados, True, Importe, "", Concepto, 0, Fecha, "") Then TieneError = True
 
             ''Registro del Mov Devolución 
             'Importe = TxtISPT.Text.ToDouble - TxtCredSalario.Text.ToDouble