Merge branch 'master' of http://192.168.10.111:8383/SIG

Nomina/CalculoISRAnual.aspx.cs

@@ -252,8 +252,8 @@ public partial class Nomina_CalculoISRAnual : ClsPaginas
         {
             XElement xempleado = new XElement("empleado");
             xempleado.SetAttributeValue("CvePersonal", item.DataKey("CvePersonal"));
-            xempleado.SetAttributeValue("ACarago", item.DataKey("Acargo"));
+            xempleado.SetAttributeValue("ACargo", item.DataKey("Acargo").ToDecimal().RoundSQL(2));
-            xempleado.SetAttributeValue("ACompensar", item.DataKey("Acompensar"));
+            xempleado.SetAttributeValue("ACompensar", item.DataKey("Acompensar").ToDecimal().RoundSQL(2));
 
             xfolder.Add(xempleado);
         }

Ventas/Promociones.aspx.vb

@@ -329,6 +329,7 @@ Partial Class Ventas_Promociones
 
             TxtPromocion.Enabled = False
             TxtPromocion.ReadOnly = True
+            CargaFolio()
 
         End If
 
@@ -1577,20 +1578,27 @@ Partial Class Ventas_Promociones
 
 
     Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs)
-        If Me.CvePromocion <= 0 Then
+        CargaFolio()
-            Dim ObjFolios As New ClsGralFolios()
+    End Sub
-            If ObjFolios.GetFolios("PRM", UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero()) Then
-                Dim DT As DataTable = ObjFolios.DtResultados
-                If DT.Rows.Count > 0 Then
-                    TxtPromocion.Text = String.Format("{0}-{1}", DT.Rows(0)("Serie"), DT.Rows(0)("FActual"))
-                Else
-                    TxtPromocion.Text = ""
-                End If
-                DT.Dispose()
-            End If
-            ObjFolios.Dispose()
 
-            UpGenerales.Update()
+    Private Sub CargaFolio()
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+            If Me.CvePromocion <= 0 Then
+                Dim ObjFolios As New ClsGralFolios()
+                If ObjFolios.GetFolios("PRM", UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero()) Then
+                    Dim DT As DataTable = ObjFolios.DtResultados
+                    If DT.Rows.Count > 0 Then
+                        TxtPromocion.Text = String.Format("{0}-{1}", DT.Rows(0)("Serie"), DT.Rows(0)("FActual"))
+                    Else
+                        TxtPromocion.Text = ""
+                    End If
+                    DT.Dispose()
+                End If
+                ObjFolios.Dispose()
+
+                UpGenerales.Update()
+            End If
         End If
+
     End Sub
 End Class