Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

AF/PopUpBuscarAF.aspx

@@ -108,18 +108,18 @@
                 <tr>
                     <td class="text-right"><b>Tipo de Activo Fijo:</b></td>
                     <td>
-                        <asp:DropDownList ID="DdlTipoActivoFijo" CssClass="form-control input-sm" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoActivoFijo" DataValueField="CveTipoActivoFijo" Width="206px" ValidationGroup="GrpGuardar">
+                        <asp:DropDownList ID="DdlTipoActivoFijo" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoActivoFijo" DataValueField="CveTipoActivoFijo" Width="206px" ValidationGroup="GrpGuardar">
-                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                            <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                         </asp:DropDownList>
                         <asp:RequiredFieldValidator ID="RFVTipoActivoFijo" runat="server" ControlToValidate="DdlTipoActivoFijo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Activo Fijo''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                         <ajax:ValidatorCalloutExtender ID="VCOTipoActivoFijo" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoActivoFijo" Width="300px"></ajax:ValidatorCalloutExtender>
                     </td>
                     <%--</tr>--%>
                     <%--<tr>--%>
-                    <td class="text-right"><b>SubTipo de Activo Fijo:</b></td>
+                    <td class="text-right"><b>SubTipo de A.F:</b></td>
                     <td>
-                        <asp:DropDownList ID="DdlSubTipoActivoFijo" CssClass="form-control input-sm" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="SubTipoActivoFijo" DataValueField="CveSubTipoActivoFijo" Width="206px" ValidationGroup="GrpGuardar">
+                        <asp:DropDownList ID="DdlSubTipoActivoFijo" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="SubTipoActivoFijo" DataValueField="CveSubTipoActivoFijo" Width="206px" ValidationGroup="GrpGuardar">
-                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                            <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                         </asp:DropDownList>
                         <asp:RequiredFieldValidator ID="RFVSubTipoActivoFijo" runat="server" ControlToValidate="DdlSubTipoActivoFijo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubTipo de Activo Fijo''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                         <ajax:ValidatorCalloutExtender ID="VCOSubTipoActivoFijo" runat="server" HighlightCssClass="vco" TargetControlID="RFVSubTipoActivoFijo" Width="300px"></ajax:ValidatorCalloutExtender>
@@ -161,8 +161,8 @@
                 <tr>
                     <td class="text-right"><b>Estado:</b></td>
                     <td>
-                        <asp:DropDownList ID="DdlEstadoActivoFijo" CssClass="form-control input-sm" runat="server" AppendDataBoundItems="true" DataTextField="EstadoActivoFijo" DataValueField="CveEstadoActivoFijo" Width="200px" ValidationGroup="GrpGuardar">
+                        <asp:DropDownList ID="DdlEstadoActivoFijo" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="EstadoActivoFijo" DataValueField="CveEstadoActivoFijo" Width="200px" ValidationGroup="GrpGuardar">
-                            <asp:ListItem Selected="True" Text="Sin Estado Asignado" Value="-1"></asp:ListItem>
+                            <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                         </asp:DropDownList>
                         <asp:RequiredFieldValidator ID="RFVEstadoActivoFijo" runat="server" ControlToValidate="DdlEstadoActivoFijo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado Activo Fijo''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                         <ajax:ValidatorCalloutExtender ID="VCOEstadoActivoFijo" runat="server" HighlightCssClass="vco" TargetControlID="RFVEstadoActivoFijo" Width="300px"></ajax:ValidatorCalloutExtender>
@@ -171,8 +171,8 @@
                             <tr>--%>
                     <td class="text-right"><b>Responsable:</b></td>
                     <td>
-                        <asp:DropDownList ID="DdlResponsable" CssClass="form-control input-sm" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CvePersonal" Width="200px" ValidationGroup="GrpGuardar">
+                        <asp:DropDownList ID="DdlResponsable" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CvePersonal" Width="200px" ValidationGroup="GrpGuardar">
-                            <asp:ListItem Selected="True" Text="Sin Responsable Asignado" Value="-1"></asp:ListItem>
+                            <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                         </asp:DropDownList>
                     </td>
                 </tr>
@@ -181,8 +181,8 @@
                         <asp:Label runat="server" ID="LblProyecto" Font-Bold="true">Proyecto:</asp:Label>
                     </td>
                     <td runat="server" id="tdDdlProyecto">
-                        <asp:DropDownList ID="DdlProyecto" CssClass="form-control input-sm" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="200px" ValidationGroup="GrpGuardar">
+                        <asp:DropDownList ID="DdlProyecto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="200px" ValidationGroup="GrpGuardar">
-                            <asp:ListItem Selected="True" Text="Sin Proyecto asignado" Value="-1"></asp:ListItem>
+                            <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                         </asp:DropDownList>
                     </td>
                     <%-- </tr>
@@ -191,17 +191,18 @@
                         <asp:Label runat="server" ID="LblSubProyectos" Font-Bold="true">SubProyecto:</asp:Label>
                     </td>
                     <td>
-                        <asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="200px" ValidationGroup="GrpGuardar">
+                        <asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="200px" ValidationGroup="GrpGuardar">
-                            <asp:ListItem Selected="True" Text="Sin SubProyecto asignado" Value="-1"></asp:ListItem>
+                            <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                         </asp:DropDownList>
                     </td>
                 </tr>
                 <tr>
                     <td class="text-right"><b>Cliente:</b></td>
                     <td>
-                        <asp:DropDownList ID="DdlCliente" CssClass="form-control input-sm" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Nombre" DataValueField="CveCliente" Width="200px" ValidationGroup="GrpGuardar">
+                        <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
-                            <asp:ListItem Selected="True" Text="Sin Cliente Asignado" Value="-1"></asp:ListItem>
+                            <%--                            <asp:DropDownList ID="DdlClientes" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                        </asp:DropDownList>
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>--%>
                     </td>
                 </tr>
                 <tr>

AF/PopUpBuscarAF.aspx.vb

@@ -189,7 +189,7 @@ Partial Class AF_PopUpBuscarAF
         DdlSubTipoActivoFijo.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoActivoFijo = '" & DdlTipoActivoFijo.SelectedValue & "'")
         'DdlSubTipoActivoFijo.DataSource = GlobalDTSubTipoActivoFijo.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND CveTipoActivoFijo = '" & DdlTipoActivoFijo.SelectedValue & "'")
         DdlSubTipoActivoFijo.DataBind()
-        DdlSubTipoActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlSubTipoActivoFijo.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
     Private Sub CargaCaracteristicas()
@@ -214,7 +214,7 @@ Partial Class AF_PopUpBuscarAF
     '	DdlModeloActivoFijo.Items.Clear()
     '       DdlModeloActivoFijo.DataSource = GlobalDTModeloActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
     '	DdlModeloActivoFijo.DataBind()
-    '	DdlModeloActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1"))
+    '	DdlModeloActivoFijo.Items.Insert(0, New ListItem("Todos", "-1"))
     'End Sub
     Private Sub CargaMarcaActivoFijo()
         'DdlMarcaActivoFijo.DataSource = GlobalDTMarcaActivoFijo.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
@@ -238,15 +238,18 @@ Partial Class AF_PopUpBuscarAF
         DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
 
-        DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1"))
+        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
     Private Sub CargaEstatusActivoFijo()
         DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo
         DdlEstadoActivoFijo.DataBind()
     End Sub
     Private Sub CargaCliente()
-        DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
+
-        DdlCliente.DataBind()
+        DdlClientes.setEsWebService(True)
+
+        ' DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
+        'DdlCliente.DataBind()
     End Sub
 #End Region
 
@@ -265,7 +268,6 @@ Partial Class AF_PopUpBuscarAF
         Dim CveProyecto As Integer = -1
         Dim CveSubProyecto As Integer = -1
         Dim EstadoActivoFijo As Integer = -1
-        Dim CveCliente As Integer = -1
 
         If TxtCodigo.Text.Trim <> String.Empty Then Codigo = TxtCodigo.Text.Trim
         If TxtDescripcion.Text.Trim <> String.Empty Then Descripcion = TxtDescripcion.Text.Trim
@@ -278,7 +280,8 @@ Partial Class AF_PopUpBuscarAF
         If DdlProyecto.SelectedValue <> String.Empty Then CveProyecto = DdlProyecto.SelectedValue.ToEntero
         If DdlSubProyecto.SelectedValue <> String.Empty Then CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
         If DdlEstadoActivoFijo.SelectedValue <> String.Empty Then EstadoActivoFijo = DdlEstadoActivoFijo.SelectedValue.ToEntero
-        If DdlCliente.SelectedValue <> String.Empty Then CveCliente = DdlCliente.SelectedValue.ToEntero
+        'If DdlCliente.SelectedValue <> String.Empty Then CveCliente = DdlCliente.SelectedValue.ToEntero
+        Dim CveCliente As Integer = If(DdlClientes.SelectedValue = "", -1, DdlClientes.SelectedValue.ToEntero)
 
         Dim strSQL1 As New StringBuilder
         Dim booPrimerCampo As Boolean = False

App_Code/ClsContabilidad.vb

@@ -5773,7 +5773,8 @@ Public Class ClsContabilidad
 
     Public Function AddCuentasAsignaciones(Optional CveConceptoContable As Integer = -1, Optional CveEmpresa As Integer = -1, Optional CveCuenta As Integer = -1, Optional IdCtaContable As Integer = -1,
                                            Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1,
-                                           Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1, Optional CveBancoCuenta As Integer = -1) As Boolean
+                                           Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1, Optional CveBancoCuenta As Integer = -1,
+                                           Optional CveSubProyecto As Integer = -1) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_CuentasAsignacionesAdd")
@@ -5791,6 +5792,7 @@ Public Class ClsContabilidad
             .Add("@PorcentajeIVA", SqlDbType.Decimal).Value = PorcentajeIVA
             .Add("@CveConceptoNomina", SqlDbType.Decimal).Value = CveConceptoNomina
             .Add("@CveBancoCuenta", SqlDbType.Int).Value = CveBancoCuenta
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
         End With
 
         Try
@@ -5825,7 +5827,8 @@ Public Class ClsContabilidad
     Public Function UpdateCuentasAsignaciones(CveConceptoAsignacion As Integer, Optional CveConceptoContable As Integer = -1, Optional CveCuenta As Integer = -1,
                                               Optional IdCtaContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1,
                                               Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveAlmacen As Integer = -1,
-                                              Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1, Optional CveBancoCuenta As Integer = -1) As Boolean
+                                              Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1, Optional CveBancoCuenta As Integer = -1,
+                                              Optional CveSubProyecto As Integer = -1) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_CuentasAsignacionesUpdate")
@@ -5843,6 +5846,7 @@ Public Class ClsContabilidad
             .Add("@PorcentajeIVA", SqlDbType.Decimal).Value = PorcentajeIVA
             .Add("@CveConceptoNomina", SqlDbType.Decimal).Value = CveConceptoNomina
             .Add("@CveBancoCuenta", SqlDbType.Int).Value = CveBancoCuenta
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
         End With
 
         Try

App_Code/ClsContratos.vb

@@ -1198,6 +1198,26 @@ Public Class ClsContratos
 
         Return Retorno
     End Function
+
+    Public Function GetPSContratoDetalle(CveContrato As Integer, DtPS As String) As Boolean
+        Dim Retorno = False
+
+        DataAdapter("PA_Con_GetPSContratoDetalle")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@DtPS", SqlDbType.VarChar).Value = DtPS
+            .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al cargar los Detalles del Contrato.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
 #End Region
 
 #Region "Contratos detalles Avance"
@@ -1345,7 +1365,7 @@ Public Class ClsContratos
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
             .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle
-            .Add("@Cantidad", SqlDbType.Int).Value = Cantidad
+            .Add("@Cantidad", SqlDbType.Decimal).Value = Cantidad
             .Add("@Fecha", SqlDbType.Date).Value = Fecha
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa

App_Code/ClsNominas.vb

@@ -621,10 +621,14 @@ Public Class ClsNominas
         Return Retorno
     End Function
 
-    Public Function AddNom_NominasDetalles(CveNomina As Integer, CvePeriodo As Integer, CvePersonal As Integer, CveConcepto As Integer, Importe As Decimal, ImporteGravado As Decimal, ImporteExento As Decimal) As Boolean
+    Public Function AddUPNom_NominasDetalles(CveNomina As Integer, CvePeriodo As Integer, CvePersonal As Integer, CveConcepto As Integer,
+                                             Importe As Decimal, ImporteGravado As Decimal, ImporteExento As Decimal, ImporteValor As Decimal,
+                                             CveUsuario As Integer, IsEdited As Boolean,
+                                             chkImporte As Integer, chkImporteGravado As Integer, chkImporteValor As Integer
+                                             ) As Boolean
         Dim Retorno As Boolean = False
 
-        DataAdapter("PA_Nom_NominasDetallesAdd")
+        DataAdapter("PA_Nom_NominasDetallesAddUP")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("CveNomina", SqlDbType.Int).Value = CveNomina
@@ -634,6 +638,12 @@ Public Class ClsNominas
             .Add("Importe", SqlDbType.Float).Value = Importe
             .Add("ImporteGravado", SqlDbType.Float).Value = ImporteGravado
             .Add("ImporteExento", SqlDbType.Float).Value = ImporteExento
+            .Add("ImporteValor", SqlDbType.Float).Value = ImporteValor
+            .Add("CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("IsEdited", SqlDbType.Bit).Value = IsEdited
+            .Add("chkImporteValor", SqlDbType.Int).Value = chkImporteValor
+            .Add("chkImporte", SqlDbType.Int).Value = chkImporte
+            .Add("chkImporteGravado", SqlDbType.Int).Value = chkImporteGravado
         End With
 
         Try
@@ -646,31 +656,56 @@ Public Class ClsNominas
         Return Retorno
     End Function
 
-    Public Function UpdateNom_NominasDetalles(CveNominaDetalle As Integer, Importe As Decimal, ImporteExento As Decimal, ImporteGravado As Decimal) As Boolean
+    'Public Function AddNom_NominasDetalles(CveNomina As Integer, CvePeriodo As Integer, CvePersonal As Integer, CveConcepto As Integer, Importe As Decimal, ImporteGravado As Decimal, ImporteExento As Decimal) As Boolean
-        Dim Retorno As Boolean = False
+    '    Dim Retorno As Boolean = False
-        DataAdapter("PA_Nom_NominasDetallesUpdate")
 
-        With SqlAdapter.SelectCommand.Parameters
+    '    DataAdapter("PA_Nom_NominasDetallesAdd")
-            .Add("CveNominaDetalle", SqlDbType.Int).Value = CveNominaDetalle
-            .Add("Importe", SqlDbType.Float).Value = Importe
-            .Add("ImporteExento", SqlDbType.Float).Value = ImporteExento
-            .Add("ImporteGravado", SqlDbType.Float).Value = ImporteGravado
-        End With
 
-        Try
+    '    With SqlAdapter.SelectCommand.Parameters
-            SqlAdapter.Fill(Data)
+    '        .Add("CveNomina", SqlDbType.Int).Value = CveNomina
-            Retorno = True
+    '        .Add("CvePeriodo", SqlDbType.Int).Value = CvePeriodo
-            '
+    '        .Add("CvePersonal", SqlDbType.Int).Value = CvePersonal
-        Catch sqlex As SqlException
+    '        .Add("CveConcepto", SqlDbType.Int).Value = CveConcepto
-            If sqlex.Message.Contains("x5010") Then
+    '        .Add("Importe", SqlDbType.Float).Value = Importe
-                Me.OnError("Ocurrió un error al eliminar el Movimiento de Nomina(Timbrada).", sqlex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+    '        .Add("ImporteGravado", SqlDbType.Float).Value = ImporteGravado
-            Else
+    '        .Add("ImporteExento", SqlDbType.Float).Value = ImporteExento
-                Me.OnError("Ocurrió un error al eliminar el Movimiento de Nomina.", sqlex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+    '    End With
-            End If
-        End Try
 
-        Return Retorno
+    '    Try
-    End Function
+    '        SqlAdapter.Fill(Data)
+    '        Retorno = True
+    '    Catch Ex1 As SqlException
+    '        Me.OnError("Ocurrió un error al Guardar el Movimiento de Nomina.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+    '    End Try
+
+    '    Return Retorno
+    'End Function
+
+    'Public Function UpdateNom_NominasDetalles(CveNominaDetalle As Integer, Importe As Decimal, ImporteExento As Decimal, ImporteGravado As Decimal) As Boolean
+    '    Dim Retorno As Boolean = False
+    '    DataAdapter("PA_Nom_NominasDetallesUpdate")
+
+    '    With SqlAdapter.SelectCommand.Parameters
+    '        .Add("CveNominaDetalle", SqlDbType.Int).Value = CveNominaDetalle
+    '        .Add("Importe", SqlDbType.Float).Value = Importe
+    '        .Add("ImporteExento", SqlDbType.Float).Value = ImporteExento
+    '        .Add("ImporteGravado", SqlDbType.Float).Value = ImporteGravado
+    '    End With
+
+    '    Try
+    '        SqlAdapter.Fill(Data)
+    '        Retorno = True
+    '        '
+    '    Catch sqlex As SqlException
+    '        If sqlex.Message.Contains("x5010") Then
+    '            Me.OnError("Ocurrió un error al eliminar el Movimiento de Nomina(Timbrada).", sqlex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+    '        Else
+    '            Me.OnError("Ocurrió un error al eliminar el Movimiento de Nomina.", sqlex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+    '        End If
+    '    End Try
+
+    '    Return Retorno
+    'End Function
 
     Public Function DeleteNom_NominasDetalles(CveConcepto As Integer, CvePersonal As Integer, CvePeriodo As Integer) As Boolean
         Dim Retorno As Boolean = False
@@ -1770,7 +1805,7 @@ Public Class ClsNominas
     End Function
 #End Region
 
-#Region ""
+#Region "Periodos"
     Public Function GetPeriodos(CveTipoPeriodo As Integer, CveEmpresa As Integer, Ejercicio As Integer, Mes As Integer, CvePeriodo As Integer, Optional CveEstatus As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
@@ -2172,34 +2207,6 @@ Public Class ClsNominas
         End Try
         Return Retorno
     End Function
-    Public Function AddUPNom_NominasDetalles(CveNomina As Integer, CvePeriodo As Integer, CvePersonal As Integer, CveConcepto As Integer, Importe As Decimal, ImporteGravado As Decimal, ImporteExento As Decimal, ImporteValor As Decimal, CveUsuario As Integer, Optional IsEdited As Boolean = False) As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_Nom_NominasDetallesAddUP")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("CveNomina", SqlDbType.Int).Value = CveNomina
-            .Add("CvePeriodo", SqlDbType.Int).Value = CvePeriodo
-            .Add("CvePersonal", SqlDbType.Int).Value = CvePersonal
-            .Add("CveConcepto", SqlDbType.Int).Value = CveConcepto
-            .Add("Importe", SqlDbType.Float).Value = Importe
-            .Add("ImporteGravado", SqlDbType.Float).Value = ImporteGravado
-            .Add("ImporteExento", SqlDbType.Float).Value = ImporteExento
-            .Add("ImporteValor", SqlDbType.Float).Value = ImporteValor
-            .Add("CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("IsEdited", SqlDbType.Bit).Value = IsEdited
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch Ex1 As SqlException
-            Me.OnError("Ocurrió un error al Guardar el Movimiento de Nomina.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
-
     Public Function ProcesarSUA(txtSUA As String, cveEmpresa As Int32) As Boolean
         Dim retorno As Boolean = False
         DTSet = New DataSet()

App_Code/ClsPaginas.vb

@@ -6788,7 +6788,7 @@ Public Class ClsPaginas
                 params.Add(New ReportParameter("ClienteTelefono", Vta.ClienteSucursal.TelefonoSucursal))
             ElseIf Vta.CveCliente.ToEntero > 0 Then
                 params.Add(New ReportParameter("ClienteContactoMail", Vta.Cliente.MailCotizacion))
-                params.Add(New ReportParameter("ClienteTelefono", If(Vta.TipoDocto.Contiene("Ing", "Rem") AndAlso Vta.Cliente.Telefono.Length > 6, Vta.Cliente.Telefono, Vta.TelefonoGenerico)))
+                params.Add(New ReportParameter("ClienteTelefono", If(Vta.TelefonoGenerico <> "", Vta.TelefonoGenerico, Vta.Cliente.Telefono)))
             End If
 
             If UsuarioActual.CveEmpresa.Contiene(17) Then
@@ -7925,7 +7925,7 @@ Public Class ClsPaginas
         Dim DTDeducciones As Data.DataTable
         Dim DTDeducciones2 As New Data.DataTable
 
-        Dim Ruta As String = RutaEmpresa
+        Dim Ruta As String = UsuarioActual.Empresa.Ruta
         Dim PathXML As String = $"{Ruta}XML\Nomina\{ObjNomina.Serie }{If(indemnizacion, "F", "")}-{ObjNomina.Folio}.xml"
         Dim FechaEmision, FechaCertificacion As DateTime
         Dim FolioFiscal, NoSerieCertificado, NoSerieCertificadoContribuyente, SelloCFDi, SelloSAT As String

App_Code/ClsRH.vb

@@ -5656,7 +5656,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Return Retorno
     End Function
 
-    Public Function SolicitudVacacionesAdd(CvePersonal As Integer, Fecha As Date, FechaFin As Date, Estatus As Integer, CveUsuario As Integer, CveAutoriza As Integer, Folio As Integer, Optional Motivo As String = "", Optional FechaPago As String = "", Optional diasinabiles As Integer = 0, Optional PorcentajePrimaVac As Decimal = -1, Optional CveTipoPago As Integer = 0, Optional diasExtras As Integer = 0) As Boolean
+    Public Function SolicitudVacacionesAdd(CvePersonal As Integer, Fecha As Date, FechaFin As Date, Estatus As Integer, CveUsuario As Integer,
+                                           CveAutoriza As Integer, Folio As Integer, Optional Motivo As String = "", Optional FechaPago As String = "",
+                                           Optional diasinabiles As Integer = 0, Optional PorcentajePrimaVac As Decimal = -1,
+                                           Optional CveTipoPago As Integer = 0, Optional diasExtras As Integer = 0,
+                                           Optional Ejercicio As Integer = 0, Optional PrimaVacacional As Integer = 1, Optional CobrarImss As Integer = 0) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_RH_SolicitudVacacionesAdd")
@@ -5674,6 +5678,9 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             .Add("@FechaPago", SqlDbType.VarChar).Value = FechaPago
             .Add("@CveTipoPago", SqlDbType.Int).Value = CveTipoPago
             .Add("@diasExtras", SqlDbType.Int).Value = diasExtras
+            .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
+            .Add("@PrimaVacacional", SqlDbType.Int).Value = PrimaVacacional
+            .Add("@CobrarImss", SqlDbType.Int).Value = CobrarImss
             '.Add("@Motivo", SqlDbType.VarChar).Value = MotivoFechaPago As String = "", Optional diasinabiles 
         End With
 
@@ -6692,8 +6699,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
 
             ListaTagsDocumentost.Add(New TagsDocumentos("{Estatura}", DtResultados(0)("Estatura").ToString))
             ListaTagsDocumentost.Add(New TagsDocumentos("{Peso}", DtResultados(0)("Peso").ToString))
-            ListaTagsDocumentost.Add(New TagsDocumentos("{LugarNacimiento}", DtResultados(0)("LugarNacimiento").ToString))
+            ListaTagsDocumentost.Add(New TagsDocumentos("{LugarNacimiento}", DtResultados(0)("LugarNacimiento").ToString))
-            ListaTagsDocumentost.Add(New TagsDocumentos("{Edad}", DtResultados(0)("Edad").ToString))
+            ListaTagsDocumentost.Add(New TagsDocumentos("{Edad}", If(DtResultados(0)("Edad").ToString = "", If(DtResultados(0)("FechaNacimiento").ToString = "", "", DateDiff(DateInterval.Year, DtResultados(0)("FechaNacimiento").ToString.ToDate, Now.Date).ToString), DtResultados(0)("Edad").ToString)))
             ListaTagsDocumentost.Add(New TagsDocumentos("{NombreTelEmergencia}", DtResultados(0)("NombreTelEmergencia").ToString))
             ListaTagsDocumentost.Add(New TagsDocumentos("{TipoSangre}", DtResultados(0)("TipoSangre").ToString))
             ListaTagsDocumentost.Add(New TagsDocumentos("{SubProyecto}", DtResultados(0)("SubProyecto").ToString))
@@ -6712,8 +6719,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelitoObservaciones}", DtResultados(0)("AcusadoDelitoObservaciones").ToString))
 
             ListaTagsDocumentost.Add(New TagsDocumentos("{Calle}", DtResultados(0)("Calle").ToString))
+            ListaTagsDocumentost.Add(New TagsDocumentos("{NumInt}", DtResultados(0)("NumInt").ToString))
+            ListaTagsDocumentost.Add(New TagsDocumentos("{NumExt}", DtResultados(0)("NumExt").ToString))
             ListaTagsDocumentost.Add(New TagsDocumentos("{Colonia}", DtResultados(0)("Colonia").ToString))
             ListaTagsDocumentost.Add(New TagsDocumentos("{CP}", DtResultados(0)("CP").ToString))
+            ListaTagsDocumentost.Add(New TagsDocumentos("{Ciudad}", DtResultados(0)("Ciudad").ToString))
+            ListaTagsDocumentost.Add(New TagsDocumentos("{Estado}", DtResultados(0)("Estado").ToString))
+
             ListaTagsDocumentost.Add(New TagsDocumentos("{Telefono}", DtResultados(0)("Telefono").ToString))
             ListaTagsDocumentost.Add(New TagsDocumentos("{Celular}", DtResultados(0)("Celular").ToString))
             ListaTagsDocumentost.Add(New TagsDocumentos("{Correo}", DtResultados(0)("Correo").ToString))
@@ -6727,6 +6739,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             ListaTagsDocumentost.Add(New TagsDocumentos("{CredencialElector}", DtResultados(0)("CredencialElector").ToString))
 
             ListaTagsDocumentost.Add(New TagsDocumentos("{FechaIngreso}", DtResultados(0)("FechaIngreso").ToString.ToDate.ToShortDateString))
+            ListaTagsDocumentost.Add(New TagsDocumentos("{DiaIngreso}", DtResultados(0)("FechaIngreso").ToString.ToDate.Day.ToString))
+            ListaTagsDocumentost.Add(New TagsDocumentos("{MesIngreso}", DtResultados(0)("FechaIngreso").ToString.ToDate.Month.ToString))
+            ListaTagsDocumentost.Add(New TagsDocumentos("{MesLetraIngreso}", MesTexto(DtResultados(0)("FechaIngreso").ToString.ToDate.Month.ToEntero)))
+
+            ListaTagsDocumentost.Add(New TagsDocumentos("{AñoIngreso}", DtResultados(0)("FechaIngreso").ToString.ToDate.Year.ToString))
+
 
             ListaTagsDocumentost.Add(New TagsDocumentos("{Puesto}", DtResultados(0)("Puesto").ToString))
             ListaTagsDocumentost.Add(New TagsDocumentos("{CUIP}", ""))

App_Code/Timbrado.vb

@@ -813,7 +813,7 @@ Public Class Timbrado
         'validación especial. 
         If Ventas.TipoDocto.Contiene("Ing", "Dev") Then
 
-            Dim CodigoIncorrecto = (From c In Ventas.Timbre.Conceptos Where (c.ClaveProdServ = "01010101") OrElse (c.ClaveProdServ = "84111506" AndAlso Not UsuarioActual.CveEmpresa.Contiene(2, 70))
+            Dim CodigoIncorrecto = (From c In Ventas.Timbre.Conceptos Where (c.ClaveProdServ = "01010101") OrElse (c.ClaveProdServ = "84111506" AndAlso Not UsuarioActual.CveEmpresa.Contiene(2, 70, 144))
                                     Select c.ClaveProdServ, c.Descripcion)
             Dim Str As New StringBuilder
             Str.Append("Los siguentes productos tienen especificado un código no permitido por el SAT: <br/>")

Bancos/Devoluciones.aspx

@@ -58,7 +58,7 @@
                                     </asp:DropDownList>
                                 </div>
                             </div>
-                            <asp:TextBox ID="hdnTotal" runat="server"  Style="text-align: right; display: none;"  AutoComplete="off" Width="145px"></asp:TextBox>
+                            <asp:TextBox ID="hdnTotal" runat="server"  Style="text-align: right; display: none;" ClientIDMode="Static"  AutoComplete="off" Width="145px"></asp:TextBox>
                             <hr />
                              <div class="row" id="divTipoDevolucion" runat="server" visible="false" style="margin-top: -20px;">
                                     <div class="col-md-12">
@@ -222,7 +222,7 @@
                                                 <div class="form-group form-md-line-input input-iconright">
                                                     <asp:Label runat="server" Text="Veces por Aplicar:" AssociatedControlID=""></asp:Label>
 
-                                                    <asp:TextBox ID="TxtVecesAplicar" CssClass="form-control" runat="server"></asp:TextBox>
+                                                    <asp:TextBox ID="TxtVecesAplicar" CssClass="form-control" runat="server" Text="1"></asp:TextBox>
                                                 </div>
                                             </div>
                                         </div>
@@ -333,8 +333,11 @@
             } else {
                 txt.value = "";
             }
+           
             let valor = FormatoNumero(SumaValores(), 2);
-            $('#hdnTotal').val(valor);
+            debugger;
+
+            $get('hdnTotal').value = valor;
             $get('TxtImporte').value = valor;
             
         }
@@ -354,8 +357,9 @@
                 }
             }           
             var Suma = SumaValores();
-            let valor = FormatoNumero(SumaValores(), 2);
+            let valor = FormatoNumero(Suma, 2);
-            $('#C_hdnTotal').val(valor);
+            debugger;
+            $get('hdnTotal').value = valor;
             $get('TxtImporte').value = valor;
 
             if ($get('TxtTotal') != null) {

Bancos/Devoluciones.aspx.cs

@@ -338,13 +338,14 @@ public partial class Bancos_Devoluciones : ClsPaginas
     #region"GUARDAR"
     protected void BtnGuardar_Click(object sender, EventArgs e)
     {
+            //inician validaciones
         if (OpcionDevolucion.SelectedValue.ToEntero() != 3 && TipoDevolucion.SelectedValue.ToString().ToEntero() != 2 && TxtImporte.Text == "")
         {
                 Alert("Debe ingresar un importe", TipoMensaje.MsgAdvertencia);
                 return;
         }
 
-        if (OpcionDevolucion.SelectedValue.ToEntero() == 3 && TipoDevolucion.SelectedValue.ToString().ToEntero() == 2)
+        if (OpcionDevolucion.SelectedValue == "3" && TipoDevolucion.SelectedValue  == "2")
         {
             if (TxtValor.Text == "")
             {
@@ -353,17 +354,25 @@ public partial class Bancos_Devoluciones : ClsPaginas
             }
             else
             {
-                int valor = (TxtValor.Text.ToEntero() * TxtVecesAplicar.Text.ToEntero()).ToEntero();
+                decimal valor = TxtValor.Text.ToDecimal() * TxtVecesAplicar.Text.ToDecimal();
-                int total = hdnTotal.Text.ToEntero();
+                decimal total = hdnTotal.Text.ToDecimal();
                 if (valor != total)
                 {
-                    Alert("La cantidad total debe ser igual a lo seleccionado");
+                    Alert("La cantidad total debe ser igual a lo seleccionado", TipoMensaje.MsgAdvertencia);
                     return;
                 }
+                else
+                { 
+                    if (valor ==0)
+                    {
+                        Alert("No se han seleccionado opciones", TipoMensaje.MsgAdvertencia);
+                        return;
+                    }
+                }
             }
 
         }
-
+        //terminan validaciones
 
         ClsBancos ObjIE = new ClsBancos();
         ClsContabilidad ObjMov = new ClsContabilidad(ObjIE.IniciaTransacSQL());
@@ -465,7 +474,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
                             //Decimal tTotal = (TxtValor.Text.ToDecimal() * TxtVecesAplicar.Text.ToDecimal()).RoundSQL();
                             Decimal tTotal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal();
                             //GUARDA PREPOLIZAS DETALLE Via Nómina         
-                            if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, !TipoMovoDevolucion, tTotal, Ref, 174, Conc, DateTime.Now, 0, -1, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: cveCliente, CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: tTotal, CveNominaMovtoPermanente: CveMovtoPermanente))
+                            if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, !TipoMovoDevolucion, tTotal, Ref, 174, Conc, DateTime.Now, 0, -1, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: cveCliente, CveProveedor: cveProveedor, CvePersonal: cvePersonal, CveIE: gvr.DataKey("CveIE").ToEntero(), ImporteMX: tTotal, CveNominaMovtoPermanente: CveMovtoPermanente))
                             {
                                 MsgError = "No se pudo insertar concepto de Devolución";
                             }
@@ -617,15 +626,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
             {
                 archivo = new System.IO.FileInfo(String.Format("{0}Formatos/ComprobanteEgreso.rdlc", UsuarioActual.Empresa.Ruta, DdlCuenta.SelectedValue.ToEntero()));
             }
-
+ 
-            //if (archivo.Length > 0)
-            //{
-            //    if (archivo.Exists)
-            //    {
-            //        Msg.AppendFormat(@"<br/><br/> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">{1}</a> ", Encripta(String.Format("OP=IECHEQUE&CVEIE={0}", CveIE)), String.Format("Imprimir {0}", DdlTipoTransaccion.SelectedItem));
-            //    }
-            //}
-
             if (IDPoliza > 0)
             {
                 Msg.AppendFormat(@"<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IDPoliza);

Bancos/PopIECompras.aspx

@@ -523,7 +523,7 @@
                                                         </span>
                                                     </div>
                                                     <ajax:MaskedEditExtender ID="MEEFecha" runat="server" TargetControlID="TxtFechaDocumento" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                                    <ajax:CalendarExtender ID="Calendario" runat="server" TargetControlID="TxtFechaDocumento" PopupButtonID="ImgCalendario" PopupPosition="Left" Enabled="True"></ajax:CalendarExtender>
+                                                    <ajax:CalendarExtender ID="Calendario" runat="server" TargetControlID="TxtFechaDocumento" PopupButtonID="ImgCalendario" PopupPosition="TopLeft" Enabled="True"></ajax:CalendarExtender>
                                                     <asp:RequiredFieldValidator ID="RFVFechaDocumento" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''FechaDocumento''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                     <asp:CompareValidator ID="CVFechaDocumento" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''FechaDocumento''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
                                                     <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>

Bancos/PopIECompras.aspx.vb

@@ -1780,8 +1780,28 @@ Partial Class Bancos_PopIECompras
                                                     IdCtaContable = IdCtaProveedorExtranjera
                                                 End If
                                             End If
-                                        Case 15  'Ret IVA X Acreditar Honorarios/Serv. Prof.
+                                        Case 15  'Ret IVA X Acreditar Honorarios/Serv. Prof.
-                                            If MovimientoPagar.ConceptoRetIVA = 1 Then
+
+                                            If MovimientoPagar.ConceptoRetIVA > 0 Then
+                                                Dim Funcionalidad As Integer = 0
+                                                If MovimientoPagar.ConceptoRetIVA = 1 Then
+                                                    Funcionalidad = 307
+                                                    ConceptoContable = 15
+                                                ElseIf MovimientoPagar.ConceptoRetIVA = 2 Then
+                                                    Funcionalidad = 309
+                                                    ConceptoContable = 183
+                                                ElseIf MovimientoPagar.ConceptoRetIVA = 3 Then
+                                                    Funcionalidad = 311
+                                                    ConceptoContable = 185
+                                                ElseIf MovimientoPagar.ConceptoRetIVA = 4 Then
+                                                    Funcionalidad = 313
+                                                    ConceptoContable = 248
+                                                ElseIf MovimientoPagar.ConceptoRetIVA = 5 Then
+                                                    Funcionalidad = 578
+                                                    ConceptoContable = 285
+                                                End If
+
+
                                                 If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
                                                     ImporteMovimiento = MovimientoPagar.RetIVA * PorcentajePago
                                                     ImporteMX = ImporteMovimiento
@@ -1815,7 +1835,24 @@ Partial Class Bancos_PopIECompras
 
                                             End If
                                         Case 22 'Ret IVA Acreditable Honorarios/Serv. Prof.
-                                            If MovimientoPagar.ConceptoRetIVA = 1 Then
+                                            If MovimientoPagar.ConceptoRetIVA > 0 Then
+                                                Dim Funcionalidad As Integer = 0
+                                                If MovimientoPagar.ConceptoRetIVA = 1 Then
+                                                    Funcionalidad = 308
+                                                    ConceptoContable = 22
+                                                ElseIf MovimientoPagar.ConceptoRetIVA = 2 Then
+                                                    Funcionalidad = 310
+                                                    ConceptoContable = 184
+                                                ElseIf MovimientoPagar.ConceptoRetIVA = 3 Then
+                                                    Funcionalidad = 312
+                                                    ConceptoContable = 186
+                                                ElseIf MovimientoPagar.ConceptoRetIVA = 4 Then
+                                                    Funcionalidad = 314
+                                                    ConceptoContable = 249
+                                                ElseIf MovimientoPagar.ConceptoRetIVA = 5 Then
+                                                    Funcionalidad = 578
+                                                    ConceptoContable = 286
+                                                End If
                                                 If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
                                                     ImporteMovimiento = MovimientoPagar.RetIVA * PorcentajePago
                                                     ImporteMX = ImporteMovimiento
@@ -1838,281 +1875,8 @@ Partial Class Bancos_PopIECompras
                                                 'Conta ContPAQ
                                                 If IdCtaContRetIVAAcreditable > 0 Then
                                                     IdCtaContable = IdCtaContRetIVAAcreditable
-                                                ElseIf UsuarioActual.Empresa.Funcionalidad(308).ToEntero > 0 Then
+                                                ElseIf UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
-                                                    IdCtaContable = UsuarioActual.Empresa.Funcionalidad(308).ToEntero
+                                                    IdCtaContable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
-                                                Else
-                                                    If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                        If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                            IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
-                                                        End If
-                                                    End If
-                                                End If
-                                            End If
-                                        Case 183 'Ret IVA X Acreditar Fletes P.F.
-                                            If MovimientoPagar.ConceptoRetIVA = 2 Then
-                                                If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
-                                                    ImporteMovimiento = MovimientoPagar.RetIVA * PorcentajePago
-                                                    ImporteMX = ImporteMovimiento
-                                                ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
-                                                    ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
-                                                    ImporteMX = ImporteMovimiento * tipoCambioCompra
-                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
-                                                    ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
-                                                    ImporteMX = ImporteMovimiento * tipoCambioCompra
-                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
-                                                    ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
-                                                    ImporteMX = ImporteMovimiento * tipoCambioCompra
-                                                End If
-                                                ImporteMovimiento = ImporteMovimiento.RoundSQL
-                                                ImporteMX = ImporteMX.RoundSQL
-                                                TimpocambioGeneral = tipoCambioCompra
-
-                                                If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
-
-                                                'Conta ContPAQ
-                                                If IdCtaContRetIVA > 0 Then
-                                                    IdCtaContable = IdCtaContRetIVA
-                                                ElseIf UsuarioActual.Empresa.Funcionalidad(309).ToEntero > 0 Then
-                                                    IdCtaContable = UsuarioActual.Empresa.Funcionalidad(309).ToEntero
-                                                Else
-                                                    If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                        If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                            IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
-                                                        End If
-                                                    End If
-                                                End If
-
-                                            End If
-                                        Case 184 'Ret IVA Acreditable Fletes P.F.
-                                            If MovimientoPagar.ConceptoRetIVA = 2 Then
-                                                If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
-                                                    ImporteMovimiento = MovimientoPagar.RetIVA * PorcentajePago
-                                                    ImporteMX = ImporteMovimiento
-                                                ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
-                                                    ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
-                                                    ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
-                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
-                                                    ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
-                                                    ImporteMX = ImporteMovimiento * tipoCambioCompra
-                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
-                                                    ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
-                                                    ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
-                                                End If
-                                                ImporteMovimiento = ImporteMovimiento.RoundSQL
-                                                ImporteMX = ImporteMX.RoundSQL
-                                                TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
-
-                                                If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
-
-                                                If IdCtaContRetIVAAcreditable > 0 Then
-                                                    IdCtaContable = IdCtaContRetIVAAcreditable
-                                                ElseIf UsuarioActual.Empresa.Funcionalidad(310).ToEntero > 0 Then
-                                                    IdCtaContable = UsuarioActual.Empresa.Funcionalidad(310).ToEntero
-                                                Else
-                                                    If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                        If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                            IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
-                                                        End If
-                                                    End If
-                                                End If
-                                            End If
-                                        Case 185 'Ret IVA X Acreditar Fletes P.M.
-                                            If MovimientoPagar.ConceptoRetIVA = 3 Then
-                                                If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
-                                                    ImporteMovimiento = MovimientoPagar.RetIVA * PorcentajePago
-                                                    ImporteMX = ImporteMovimiento
-                                                ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
-                                                    ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
-                                                    ImporteMX = ImporteMovimiento * tipoCambioCompra
-                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
-                                                    ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
-                                                    ImporteMX = ImporteMovimiento * tipoCambioCompra
-                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
-                                                    ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
-                                                    ImporteMX = ImporteMovimiento * tipoCambioCompra
-                                                End If
-                                                ImporteMovimiento = ImporteMovimiento.RoundSQL
-                                                ImporteMX = ImporteMX.RoundSQL
-                                                TimpocambioGeneral = tipoCambioCompra
-
-                                                If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
-
-                                                'Conta ContPAQ
-                                                If IdCtaContRetIVA > 0 Then
-                                                    IdCtaContable = IdCtaContRetIVA
-                                                ElseIf UsuarioActual.Empresa.Funcionalidad(311).ToEntero > 0 Then
-                                                    IdCtaContable = UsuarioActual.Empresa.Funcionalidad(311).ToEntero
-                                                Else
-                                                    If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                        If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                            IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
-                                                        End If
-                                                    End If
-                                                End If
-                                            End If
-                                        Case 186 'Ret IVA Acreditable Fletes P.M.
-                                            If MovimientoPagar.ConceptoRetIVA = 3 Then
-                                                If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
-                                                    ImporteMovimiento = MovimientoPagar.RetIVA * PorcentajePago
-                                                    ImporteMX = ImporteMovimiento
-                                                ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
-                                                    ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
-                                                    ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
-                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
-                                                    ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
-                                                    ImporteMX = ImporteMovimiento * tipoCambioCompra
-                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
-                                                    ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
-                                                    ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
-                                                End If
-                                                ImporteMovimiento = ImporteMovimiento.RoundSQL
-                                                ImporteMX = ImporteMX.RoundSQL
-                                                TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
-
-                                                If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
-
-                                                'Conta ContPAQ
-                                                If IdCtaContRetIVAAcreditable > 0 Then
-                                                    IdCtaContable = IdCtaContRetIVAAcreditable
-                                                ElseIf UsuarioActual.Empresa.Funcionalidad(312).ToEntero > 0 Then
-                                                    IdCtaContable = UsuarioActual.Empresa.Funcionalidad(312).ToEntero
-                                                Else
-                                                    If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                        If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                            IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
-                                                        End If
-                                                    End If
-                                                End If
-                                            End If
-                                        Case 248 'Ret IVA x Acreditar Acreditable Arrendamiento
-                                            If MovimientoPagar.ConceptoRetIVA = 4 Then
-                                                If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
-                                                    ImporteMovimiento = MovimientoPagar.RetIVA * PorcentajePago
-                                                    ImporteMX = ImporteMovimiento
-                                                ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
-                                                    ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
-                                                    ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
-                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
-                                                    ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
-                                                    ImporteMX = ImporteMovimiento * tipoCambioCompra
-                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
-                                                    ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
-                                                    ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
-                                                End If
-                                                ImporteMovimiento = ImporteMovimiento.RoundSQL
-                                                ImporteMX = ImporteMX.RoundSQL
-                                                TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
-
-                                                If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
-
-                                                'Conta ContPAQ
-                                                If IdCtaContRetIVA > 0 Then
-                                                    IdCtaContable = IdCtaContRetIVA
-                                                ElseIf UsuarioActual.Empresa.Funcionalidad(313).ToEntero > 0 Then
-                                                    IdCtaContable = UsuarioActual.Empresa.Funcionalidad(313).ToEntero
-                                                Else
-                                                    If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                        If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                            IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
-                                                        End If
-                                                    End If
-                                                End If
-                                            End If
-                                        Case 249 'Ret IVA Acreditable Arrendamiento
-                                            If MovimientoPagar.ConceptoRetIVA = 4 Then
-                                                If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
-                                                    ImporteMovimiento = MovimientoPagar.RetIVA * PorcentajePago
-                                                    ImporteMX = ImporteMovimiento
-                                                ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
-                                                    ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
-                                                    ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
-                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
-                                                    ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
-                                                    ImporteMX = ImporteMovimiento * tipoCambioCompra
-                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
-                                                    ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
-                                                    ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
-                                                End If
-                                                ImporteMovimiento = ImporteMovimiento.RoundSQL
-                                                ImporteMX = ImporteMX.RoundSQL
-                                                TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
-
-                                                If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
-
-                                                'Conta ContPAQ
-                                                If IdCtaContRetIVAAcreditable > 0 Then
-                                                    IdCtaContable = IdCtaContRetIVAAcreditable
-                                                ElseIf UsuarioActual.Empresa.Funcionalidad(314).ToEntero > 0 Then
-                                                    IdCtaContable = UsuarioActual.Empresa.Funcionalidad(314).ToEntero
-                                                Else
-                                                    If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                        If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                            IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
-                                                        End If
-                                                    End If
-                                                End If
-                                            End If
-
-                                        Case 285 'Ret IVA x Acreditar Acreditable Servicios
-                                            If MovimientoPagar.ConceptoRetIVA = 5 Then
-                                                If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
-                                                    ImporteMovimiento = MovimientoPagar.RetIVA * PorcentajePago
-                                                    ImporteMX = ImporteMovimiento
-                                                ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
-                                                    ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
-                                                    ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
-                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
-                                                    ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
-                                                    ImporteMX = ImporteMovimiento * tipoCambioCompra
-                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
-                                                    ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
-                                                    ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
-                                                End If
-                                                ImporteMovimiento = ImporteMovimiento.RoundSQL
-                                                ImporteMX = ImporteMX.RoundSQL
-                                                TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
-
-                                                If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
-
-                                                'Conta ContPAQ
-                                                If IdCtaContRetIVA > 0 Then
-                                                    IdCtaContable = IdCtaContRetIVA
-                                                ElseIf UsuarioActual.Empresa.Funcionalidad(578).ToEntero > 0 Then
-                                                    IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
-                                                Else
-                                                    If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                        If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                            IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
-                                                        End If
-                                                    End If
-                                                End If
-                                            End If
-                                        Case 286 'Ret IVA Acreditable Servicio
-                                            If MovimientoPagar.ConceptoRetIVA = 5 Then
-                                                If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
-                                                    ImporteMovimiento = MovimientoPagar.RetIVA * PorcentajePago
-                                                    ImporteMX = ImporteMovimiento
-                                                ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
-                                                    ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
-                                                    ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
-                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
-                                                    ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
-                                                    ImporteMX = ImporteMovimiento * tipoCambioCompra
-                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
-                                                    ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
-                                                    ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
-                                                End If
-                                                ImporteMovimiento = ImporteMovimiento.RoundSQL
-                                                ImporteMX = ImporteMX.RoundSQL
-                                                TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
-
-                                                If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
-
-                                                'Conta ContPAQ
-                                                If IdCtaContRetIVAAcreditable > 0 Then
-                                                    IdCtaContable = IdCtaContRetIVAAcreditable
-                                                ElseIf UsuarioActual.Empresa.Funcionalidad(582).ToEntero > 0 Then
-                                                    IdCtaContable = UsuarioActual.Empresa.Funcionalidad(582).ToEntero
                                                 Else
                                                     If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
                                                         If ObjMov.DtResultados.Rows.Count > 0 Then
@@ -2121,223 +1885,169 @@ Partial Class Bancos_PopIECompras
                                                     End If
                                                 End If
                                             End If
-                                        'Case 16 'Ret ISR X Acreditar
-                                        '    If MovimientoPagar.ConceptoRetISR = 1 Then
-                                        '        If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
-                                        '            ImporteMovimiento = MovimientoPagar.RetISR * PorcentajePago
-                                        '            ImporteMX = ImporteMovimiento
-                                        '        ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
-                                        '            ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
-                                        '            ImporteMX = ImporteMovimiento * tipoCambioCompra
-                                        '        ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
-                                        '            ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
-                                        '            ImporteMX = ImporteMovimiento * tipoCambioCompra
-                                        '        ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
-                                        '            ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
-                                        '            ImporteMX = ImporteMovimiento * tipoCambioCompra
-                                        '        End If
-                                        '        ImporteMovimiento = ImporteMovimiento.RoundSQL
-                                        '        ImporteMX = ImporteMX.RoundSQL
-                                        '        TimpocambioGeneral = tipoCambioCompra
 
-                                        '        If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
+                                        Case 16 'Ret ISR X Acreditar
+                                            If MovimientoPagar.ConceptoRetISR > 0 Then
+                                                Dim funcionalidad As Integer = 0
+                                                If MovimientoPagar.ConceptoRetISR = 1 Then
+                                                    funcionalidad = 315
+                                                    ConceptoContable = 16
+                                                ElseIf MovimientoPagar.ConceptoRetISR = 2 Then
+                                                    funcionalidad = 317
+                                                    ConceptoContable = 243
+                                                End If
+                                                If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
+                                                    ImporteMovimiento = MovimientoPagar.RetISR * PorcentajePago
+                                                    ImporteMX = ImporteMovimiento
+                                                ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
+                                                    ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
+                                                    ImporteMX = ImporteMovimiento * tipoCambioCompra
+                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
+                                                    ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
+                                                    ImporteMX = ImporteMovimiento * tipoCambioCompra
+                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
+                                                    ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
+                                                    ImporteMX = ImporteMovimiento * tipoCambioCompra
+                                                End If
+                                                ImporteMovimiento = ImporteMovimiento.RoundSQL
+                                                ImporteMX = ImporteMX.RoundSQL
+                                                TimpocambioGeneral = tipoCambioCompra
 
-                                        '        'Conta ContPAQ
+                                                If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
-                                        '        If IdCtaContRetISR > 0 Then
-                                        '            IdCtaContable = IdCtaContRetISR
-                                        '        ElseIf UsuarioActual.Empresa.Funcionalidad(315).ToEntero > 0 Then
-                                        '            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(315).ToEntero
-                                        '        Else
-                                        '            If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                        '                If ObjMov.DtResultados.Rows.Count > 0 Then
-                                        '                    IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
-                                        '                End If
-                                        '            End If
-                                        '        End If
 
+                                                'Conta ContPAQ
+                                                If IdCtaContRetISR > 0 Then
+                                                    IdCtaContable = IdCtaContRetISR
+                                                ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then
+                                                    IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero
+                                                Else
+                                                    If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+                                                        If ObjMov.DtResultados.Rows.Count > 0 Then
+                                                            IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+                                                        End If
+                                                    End If
+                                                End If
+                                            End If
 
-                                        'Case 23 'Ret ISR Acreditable
+                                        Case 23 'Ret ISR Acreditable
-                                        '    If MovimientoPagar.ConceptoRetISR = 1 Then
+                                            If MovimientoPagar.ConceptoRetISR > 0 Then
-                                        '        If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
+                                                Dim funcionalidad As Integer = 0
-                                        '            ImporteMovimiento = MovimientoPagar.RetISR * PorcentajePago
+                                                If MovimientoPagar.ConceptoRetISR = 1 Then
-                                        '            ImporteMX = ImporteMovimiento
+                                                    funcionalidad = 316
-                                        '        ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
+                                                    ConceptoContable = 23
-                                        '            ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
+                                                ElseIf MovimientoPagar.ConceptoRetISR = 2 Then
-                                        '            ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago)
+                                                    funcionalidad = 318
-                                        '        ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
+                                                    ConceptoContable = 244
-                                        '            ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
+                                                End If
-                                        '            ImporteMX = ImporteMovimiento * tipoCambioCompra
+                                                If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
-                                        '        ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
+                                                    ImporteMovimiento = MovimientoPagar.RetISR * PorcentajePago
-                                        '            ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
+                                                    ImporteMX = ImporteMovimiento
-                                        '            ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago)
+                                                ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
-                                        '        End If
+                                                    ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
-                                        '        ImporteMovimiento = ImporteMovimiento.RoundSQL
+                                                    ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago)
-                                        '        ImporteMX = ImporteMX.RoundSQL
+                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
-                                        '        TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago)
+                                                    ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
+                                                    ImporteMX = ImporteMovimiento * tipoCambioCompra
+                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
+                                                    ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
+                                                    ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago)
+                                                End If
+                                                ImporteMovimiento = ImporteMovimiento.RoundSQL
+                                                ImporteMX = ImporteMX.RoundSQL
+                                                TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago)
 
-                                        '        If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
+                                                If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
 
-                                        '        'Conta ContPAQ
+                                                'Conta ContPAQ
-                                        '        If IdCtaContRetISRAcreditable > 0 Then
+                                                If IdCtaContRetISRAcreditable > 0 Then
-                                        '            IdCtaContable = IdCtaContRetISRAcreditable
+                                                    IdCtaContable = IdCtaContRetISRAcreditable
-                                        '        ElseIf UsuarioActual.Empresa.Funcionalidad(316).ToEntero > 0 Then
+                                                ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then
-                                        '            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(316).ToEntero
+                                                    IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero
-                                        '        Else
+                                                Else
-                                        '            If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+                                                    If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                        '                If ObjMov.DtResultados.Rows.Count > 0 Then
+                                                        If ObjMov.DtResultados.Rows.Count > 0 Then
-                                        '                    IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+                                                            IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
-                                        '                End If
+                                                        End If
-                                        '            End If
+                                                    End If
-                                        '        End If
+                                                End If
 
-                                        '    End If
+                                            End If
-                                        'Case 243 'Ret ISR X Acreditar Terceros y Arrendamiento
-                                        '    If MovimientoPagar.ConceptoRetISR = 2 Then
-                                        '        If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
-                                        '            ImporteMovimiento = MovimientoPagar.RetISR * PorcentajePago
-                                        '            ImporteMX = ImporteMovimiento
-                                        '        ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
-                                        '            ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
-                                        '            ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago)
-                                        '        ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
-                                        '            ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
-                                        '            ImporteMX = ImporteMovimiento * tipoCambioCompra
-                                        '        ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
-                                        '            ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
-                                        '            ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago)
-                                        '        End If
-                                        '        ImporteMovimiento = ImporteMovimiento.RoundSQL
-                                        '        ImporteMX = ImporteMX.RoundSQL
-                                        '        TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago)
 
-                                        '        If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
+                                        Case 14 'Iva por Acreditar
+                                            If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
+                                                'funcionalidad que toma el 100% del pago para acreditamiento de iva
+                                                Dim TotalImporte As Decimal
 
-                                        '        'Conta ContPAQ
+                                                If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
-                                        '        If IdCtaContRetISR > 0 Then
+                                                    TotalImporte = ImportePagado.ToString.ToDecimal
-                                        '            IdCtaContable = IdCtaContRetISR
+                                                ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
-                                        '        ElseIf UsuarioActual.Empresa.Funcionalidad(317).ToEntero > 0 Then
+                                                    TotalImporte = Math.Round(ImportePagado.ToString.ToDecimal / tipoCambioPago, 2)
-                                        '            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(317).ToEntero
+                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
-                                        '        Else
+                                                    TotalImporte = Math.Round(ImportePagado.ToString.ToDecimal * tipoCambioPago, 2)
-                                        '            If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
-                                        '                If ObjMov.DtResultados.Rows.Count > 0 Then
+                                                    TotalImporte = ImportePagado.ToString.ToDecimal
-                                        '                    IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+                                                End If
-                                        '                End If
-                                        '            End If
-                                        '        End If
 
-
+                                                If TotalImporte = CompraSaldo Then
-                                        '    End If
+                                                    If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
-                                        'Case 244 'Ret ISR Acreditable Terceros y Arrendamiento
+                                                        ImporteMovimiento = MovimientoPagar.IVA
-                                        '    If MovimientoPagar.ConceptoRetISR = 2 Then
+                                                        ImporteMX = ImporteMovimiento
-                                        '        If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
+                                                    ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
-                                        '            ImporteMovimiento = MovimientoPagar.RetISR * PorcentajePago
+                                                        ImporteMovimiento = MovimientoPagar.IVA
-                                        '            ImporteMX = ImporteMovimiento
+                                                        ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
-                                        '        ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
+                                                    ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
-                                        '            ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
+                                                        ImporteMovimiento = MovimientoPagar.IVA
-                                        '            ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago)
+                                                        ImporteMX = ImporteMovimiento * tipoCambioCompra
-                                        '        ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
+                                                    ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
-                                        '            ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
+                                                        ImporteMovimiento = MovimientoPagar.IVA
-                                        '            ImporteMX = ImporteMovimiento * tipoCambioCompra
+                                                        ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
-                                        '        ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
+                                                    End If
-                                        '            ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago)
-                                        '            ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago)
-                                        '        End If
-                                        '        ImporteMovimiento = ImporteMovimiento.RoundSQL
-                                        '        ImporteMX = ImporteMX.RoundSQL
-                                        '        TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago)
-
-                                        '        If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
-
-                                        '        'Conta ContPAQ
-                                        '        If IdCtaContRetISRAcreditable > 0 Then
-                                        '            IdCtaContable = IdCtaContRetISRAcreditable
-                                        '        ElseIf UsuarioActual.Empresa.Funcionalidad(318).ToEntero > 0 Then
-                                        '            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(318).ToEntero
-                                        '        Else
-                                        '            If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                        '                If ObjMov.DtResultados.Rows.Count > 0 Then
-                                        '                    IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
-                                        '                End If
-                                        '            End If
-                                        '        End If
-
-
-                                        '    End If
-                                        Case 14 'Iva por Acreditar
-                                            If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
-                                                'funcionalidad que toma el 100% del pago para acreditamiento de iva
-                                                Dim TotalImporte As Decimal
-
-                                                If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
-                                                    TotalImporte = ImportePagado.ToString.ToDecimal
-                                                ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
-                                                    TotalImporte = Math.Round(ImportePagado.ToString.ToDecimal / tipoCambioPago, 2)
-                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
-                                                    TotalImporte = Math.Round(ImportePagado.ToString.ToDecimal * tipoCambioPago, 2)
-                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
-                                                    TotalImporte = ImportePagado.ToString.ToDecimal
-                                                End If
-
-                                                If TotalImporte = CompraSaldo Then
-                                                    If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
-                                                        ImporteMovimiento = MovimientoPagar.IVA
-                                                        ImporteMX = ImporteMovimiento
-                                                    ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
-                                                        ImporteMovimiento = MovimientoPagar.IVA
-                                                        ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
-                                                    ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
-                                                        ImporteMovimiento = MovimientoPagar.IVA
-                                                        ImporteMX = ImporteMovimiento * tipoCambioCompra
-                                                    ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
-                                                        ImporteMovimiento = MovimientoPagar.IVA
-                                                        ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
-                                                    End If
                                                     ImporteMovimiento = ImporteMovimiento.RoundSQL
-                                                    ImporteMX = ImporteMX.RoundSQL
+                                                    ImporteMX = ImporteMX.RoundSQL
-                                                    TimpocambioGeneral = tipoCambioCompra
+                                                    TimpocambioGeneral = tipoCambioCompra
-
+
-                                                    If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
+                                                    If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
-                                                Else
+                                                Else
-                                                    ImporteMovimiento = 0
+                                                    ImporteMovimiento = 0
-                                                    ImporteMX = 0
+                                                    ImporteMX = 0
-                                                End If
+                                                End If
-                                            Else
+                                            Else
-                                                If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
+                                                If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
-                                                    'ImporteMovimiento = MovimientoPagar.IVA * PorcentajePago
+                                                    'ImporteMovimiento = MovimientoPagar.IVA * PorcentajePago
-                                                    ImporteMovimiento = MovimientoPagar.IVA * PorcentajePago
+                                                    ImporteMovimiento = MovimientoPagar.IVA * PorcentajePago
-                                                    ImporteMX = ImporteMovimiento
+                                                    ImporteMX = ImporteMovimiento
-                                                ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
+                                                ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
-                                                    ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago)
+                                                    ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago)
-                                                    ImporteMX = ImporteMovimiento * tipoCambioCompra
+                                                    ImporteMX = ImporteMovimiento * tipoCambioCompra
-                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
+                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
-                                                    ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago)
+                                                    ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago)
-                                                    ImporteMX = ImporteMovimiento * tipoCambioCompra
+                                                    ImporteMX = ImporteMovimiento * tipoCambioCompra
-                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
+                                                ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
-                                                    ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago)
+                                                    ImporteMovimiento = (MovimientoPagar.IVA * PorcentajePago)
-                                                    ImporteMX = ImporteMovimiento * tipoCambioCompra
+                                                    ImporteMX = ImporteMovimiento * tipoCambioCompra
-                                                End If
+                                                End If
-                                                ImporteMovimiento = ImporteMovimiento.RoundSQL
+                                                ImporteMovimiento = ImporteMovimiento.RoundSQL
-                                                ImporteMX = ImporteMX.RoundSQL
+                                                ImporteMX = ImporteMX.RoundSQL
-                                                TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
+                                                TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
-
+
-                                                If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
+                                                If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
-                                            End If
+                                            End If
-
+
-                                            PorcentajeImpuesto = MovimientoPagar.PorcentajeIVA
+                                            PorcentajeImpuesto = MovimientoPagar.PorcentajeIVA
-                                            Dim IdCtaIVAXAcreditar As Integer = 0
+                                            Dim IdCtaIVAXAcreditar As Integer = 0
-                                            Dim IdCtaIVAAcreditable As Integer = 0
+                                            Dim IdCtaIVAAcreditable As Integer = 0
-
+
-                                            If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then
+                                            If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then
-                                                IdCtaIVAXAcreditar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
+                                                IdCtaIVAXAcreditar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
-                                                IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
+                                                IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
-                                            End If
+                                            End If
-
+
-                                            IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
+                                            IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
-
+
-                                            If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
+                                            If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
-                                                If ObjMov.DtResultados.Rows.Count > 0 Then
+                                                If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                    IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
+                                                    IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
-                                                End If
+                                                End If
                                             End If
 
                                         Case 19 'Iva Acreditable
@@ -2562,7 +2272,7 @@ Partial Class Bancos_PopIECompras
 
                                             If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
                                                 If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                    IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
+                                                    IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
                                                 End If
                                             End If
 
@@ -2703,7 +2413,7 @@ Partial Class Bancos_PopIECompras
 
                                             If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
                                                 If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                    IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
+                                                    IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
                                                 End If
                                             End If
 

Bancos/ProveedoresAbonar.aspx.vb

@@ -1040,7 +1040,25 @@ Partial Class Bancos_ProveedoresAbonar
                                                         IdCtaContable = IdCtaProveedorExtranjera
                                                     End If
                                                 Case 15 'Ret IVA X Acreditar Honorarios/Serv. Prof.
-                                                    If gvr.DataKey("CveRetIVAConcepto").ToEntero = 1 Then
+                                                    If gvr.DataKey("CveRetIVAConcepto").ToEntero > 0 Then
+                                                        Dim Funcionalidad As Integer = 0
+                                                        If gvr.DataKey("CveRetIVAConcepto").ToEntero = 1 Then
+                                                            Funcionalidad = 307
+                                                            ConceptoContable = 15
+                                                        ElseIf gvr.DataKey("CveRetIVAConcepto").ToEntero = 2 Then
+                                                            Funcionalidad = 309
+                                                            ConceptoContable = 183
+                                                        ElseIf gvr.DataKey("CveRetIVAConcepto").ToEntero = 3 Then
+                                                            Funcionalidad = 311
+                                                            ConceptoContable = 185
+                                                        ElseIf gvr.DataKey("CveRetIVAConcepto").ToEntero = 4 Then
+                                                            Funcionalidad = 313
+                                                            ConceptoContable = 248
+                                                        ElseIf gvr.DataKey("CveRetIVAConcepto").ToEntero = 5 Then
+                                                            Funcionalidad = 578
+                                                            ConceptoContable = 285
+                                                        End If
+
                                                         If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                             ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
                                                             importeMX = ImporteMovimiento
@@ -1066,8 +1084,8 @@ Partial Class Bancos_ProveedoresAbonar
                                                         'Conta ContPAQ
                                                         If IdCtaContRetIVA > 0 Then
                                                             IdCtaContable = IdCtaContRetIVA
-                                                        ElseIf UsuarioActual.Empresa.Funcionalidad(307).ToEntero > 0 Then
+                                                        ElseIf UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
-                                                            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(307).ToEntero
+                                                            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
                                                         Else
                                                             If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
                                                                 If ObjMov.DtResultados.Rows.Count > 0 Then
@@ -1075,10 +1093,29 @@ Partial Class Bancos_ProveedoresAbonar
                                                                 End If
                                                             End If
                                                         End If
-
                                                     End If
-                                                Case 22 'Ret IVA Acreditable Honorarios/Serv. Prof.
+
-                                                    If gvr.DataKey("CveRetIVAConcepto").ToEntero = 1 Then
+
+                                                Case 22 'Ret IVA Acreditable Honorarios/Serv. Prof. 
+                                                    If gvr.DataKey("CveRetIVAConcepto").ToEntero > 0 Then
+
+                                                        Dim Funcionalidad As Integer = 0
+                                                        If gvr.DataKey("CveRetIVAConcepto").ToEntero = 1 Then
+                                                            Funcionalidad = 308
+                                                            ConceptoContable = 22
+                                                        ElseIf gvr.DataKey("CveRetIVAConcepto").ToEntero = 2 Then
+                                                            Funcionalidad = 310
+                                                            ConceptoContable = 184
+                                                        ElseIf gvr.DataKey("CveRetIVAConcepto").ToEntero = 3 Then
+                                                            Funcionalidad = 312
+                                                            ConceptoContable = 186
+                                                        ElseIf gvr.DataKey("CveRetIVAConcepto").ToEntero = 4 Then
+                                                            Funcionalidad = 314
+                                                            ConceptoContable = 249
+                                                        ElseIf gvr.DataKey("CveRetIVAConcepto").ToEntero = 5 Then
+                                                            Funcionalidad = 578
+                                                            ConceptoContable = 286
+                                                        End If
                                                         If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                             ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
                                                             importeMX = ImporteMovimiento
@@ -1103,8 +1140,8 @@ Partial Class Bancos_ProveedoresAbonar
                                                         'Conta ContPAQ
                                                         If IdCtaContRetIVAAcreditable > 0 Then
                                                             IdCtaContable = IdCtaContRetIVAAcreditable
-                                                        ElseIf UsuarioActual.Empresa.Funcionalidad(308).ToEntero > 0 Then
+                                                        ElseIf UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
-                                                            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(308).ToEntero
+                                                            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
                                                         Else
                                                             If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
                                                                 If ObjMov.DtResultados.Rows.Count > 0 Then
@@ -1113,438 +1150,96 @@ Partial Class Bancos_ProveedoresAbonar
                                                             End If
                                                         End If
                                                     End If
-                                                Case 183 'Ret IVA X Acreditar Fletes P.F.
+
-                                                    If gvr.DataKey("CveRetIVAConcepto").ToEntero = 2 Then
+
+                                                Case 16 'Ret ISR X Acreditar
+                                                    If gvr.DataKey("CveRetISRConcepto").ToEntero > 0 Then
+                                                        Dim funcionalidad As Integer = 0
+                                                        If gvr.DataKey("CveRetISRConcepto").ToEntero = 1 Then
+                                                            funcionalidad = 315
+                                                            ConceptoContable = 16
+                                                        ElseIf gvr.DataKey("CveRetISRConcepto").ToEntero = 2 Then
+                                                            funcionalidad = 317
+                                                            ConceptoContable = 243
+                                                        End If
+
                                                         If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
-                                                            ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
+                                                            ImporteMovimiento = gvr.DataKey("RetISR").ToDecimal * PorcentajePago
                                                             importeMX = ImporteMovimiento
                                                         ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
-                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
+                                                            ImporteMovimiento = (gvr.DataKey("RetISR").ToDecimal * PorcentajePago)
-                                                            ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
                                                             importeMX = ImporteMovimiento * tipoCambioCompra
                                                         ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
-                                                            ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
+                                                            ImporteMovimiento = (gvr.DataKey("RetISR").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento * tipoCambioCompra
                                                         ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
-                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
+                                                            ImporteMovimiento = (gvr.DataKey("RetISR").ToDecimal * PorcentajePago)
-                                                            ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
                                                             importeMX = ImporteMovimiento * tipoCambioCompra
                                                         End If
-                                                        ImporteMovimiento = ImporteMovimiento.RoundSQL
+                                                        ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
-                                                        importeMX = importeMX.RoundSQL
+                                                        importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero)
                                                         TipoCambioGeneral = tipoCambioCompra
-
                                                         If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
 
                                                         'Conta ContPAQ
-                                                        If IdCtaContRetIVA > 0 Then
+                                                        If IdCtaContRetISR > 0 Then
-                                                            IdCtaContable = IdCtaContRetIVA
+                                                            IdCtaContable = IdCtaContRetISR
-                                                        ElseIf UsuarioActual.Empresa.Funcionalidad(309).ToEntero > 0 Then
+                                                        ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then
-                                                            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(309).ToEntero
+                                                            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero
                                                         Else
-                                                            If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+                                                            If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
                                                                 If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                                    IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+                                                                    IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
                                                                 End If
                                                             End If
                                                         End If
-
                                                     End If
-                                                Case 184 'Ret IVA Acreditable Fletes P.F.
+                                                Case 23 'Ret ISR Acreditable
-                                                    If gvr.DataKey("CveRetIVAConcepto").ToEntero = 2 Then
+                                                    If gvr.DataKey("CveRetISRConcepto").ToEntero > 0 Then
+                                                        Dim funcionalidad As Integer = 0
+                                                        If gvr.DataKey("CveRetISRConcepto").ToEntero = 1 Then
+                                                            funcionalidad = 316
+                                                            ConceptoContable = 23
+                                                        ElseIf gvr.DataKey("CveRetISRConcepto").ToEntero = 2 Then
+                                                            funcionalidad = 318
+                                                            ConceptoContable = 244
+                                                        End If
+
                                                         If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
-                                                            ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
+                                                            ImporteMovimiento = gvr.DataKey("RetISR").ToDecimal * PorcentajePago
                                                             importeMX = ImporteMovimiento
                                                         ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
-                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
+                                                            ImporteMovimiento = (gvr.DataKey("RetISR").ToDecimal * PorcentajePago)
-                                                            ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
+                                                            importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, TipoCambioPago)
-                                                            importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
                                                         ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
-                                                            ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
+                                                            ImporteMovimiento = (gvr.DataKey("RetISR").ToDecimal * PorcentajePago)
                                                             importeMX = ImporteMovimiento * tipoCambioCompra
                                                         ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
-                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
+                                                            ImporteMovimiento = (gvr.DataKey("RetISR").ToDecimal * PorcentajePago)
-                                                            ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
+                                                            importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, TipoCambioPago)
-                                                            importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
                                                         End If
-                                                        ImporteMovimiento = ImporteMovimiento.RoundSQL
+                                                        ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
-                                                        importeMX = importeMX.RoundSQL
+                                                        importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero)
-                                                        TipoCambioGeneral = If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
+                                                        TipoCambioGeneral = TipoCambioPago
 
                                                         If TipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{TipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
 
                                                         'Conta ContPAQ
-                                                        If IdCtaContRetIVAAcreditable > 0 Then
+                                                        If IdCtaContRetISRAcreditable > 0 Then
-                                                            IdCtaContable = IdCtaContRetIVAAcreditable
+                                                            IdCtaContable = IdCtaContRetISRAcreditable
-                                                        ElseIf UsuarioActual.Empresa.Funcionalidad(310).ToEntero > 0 Then
+                                                        ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then
-                                                            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(310).ToEntero
+                                                            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero
                                                         Else
-                                                            If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+                                                            If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
                                                                 If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                                    IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+                                                                    IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
-                                                                End If
-                                                            End If
-                                                        End If
-                                                    End If
-                                                Case 185 'Ret IVA X Acreditar Fletes P.M.
-                                                    If gvr.DataKey("CveRetIVAConcepto").ToEntero = 3 Then
-                                                        If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
-                                                            ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
-                                                            importeMX = ImporteMovimiento
-                                                        ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
-                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
-                                                            ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
-                                                            importeMX = ImporteMovimiento * tipoCambioCompra
-                                                        ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
-                                                            ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
-                                                            importeMX = ImporteMovimiento * tipoCambioCompra
-                                                        ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
-                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
-                                                            ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
-                                                            importeMX = ImporteMovimiento * tipoCambioCompra
-                                                        End If
-                                                        ImporteMovimiento = ImporteMovimiento.RoundSQL
-                                                        importeMX = importeMX.RoundSQL
-                                                        TipoCambioGeneral = tipoCambioCompra
-
-                                                        If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
-
-                                                        'Conta ContPAQ
-                                                        If IdCtaContRetIVA > 0 Then
-                                                            IdCtaContable = IdCtaContRetIVA
-                                                        ElseIf UsuarioActual.Empresa.Funcionalidad(311).ToEntero > 0 Then
-                                                            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(311).ToEntero
-                                                        Else
-                                                            If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                                If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                                    IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
                                                                 End If
                                                             End If
                                                         End If
 
+
                                                     End If
-                                                Case 186 'Ret IVA Acreditable Fletes P.M.
-                                                    If gvr.DataKey("CveRetIVAConcepto").ToEntero = 3 Then
-                                                        If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
-                                                            ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
-                                                            importeMX = ImporteMovimiento
-                                                        ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
-                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
-                                                            ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
-                                                            importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
-                                                        ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
-                                                            ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
-                                                            importeMX = ImporteMovimiento * tipoCambioCompra
-                                                        ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
-                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
-                                                            ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
-                                                            importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
-                                                        End If
-                                                        ImporteMovimiento = ImporteMovimiento.RoundSQL
-                                                        importeMX = importeMX.RoundSQL
-                                                        TipoCambioGeneral = If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
 
-                                                        If TipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{TipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
-
-                                                        'Conta ContPAQ
-                                                        If IdCtaContRetIVAAcreditable > 0 Then
-                                                            IdCtaContable = IdCtaContRetIVAAcreditable
-                                                        ElseIf UsuarioActual.Empresa.Funcionalidad(312).ToEntero > 0 Then
-                                                            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(312).ToEntero
-                                                        Else
-                                                            If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                                If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                                    IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
-                                                                End If
-                                                            End If
-                                                        End If
-                                                    End If
-                                                Case 248 'Ret IVA X Acreditar Arrendamiento
-                                                    If gvr.DataKey("CveRetIVAConcepto").ToEntero = 4 Then
-                                                        If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
-                                                            ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
-                                                            importeMX = ImporteMovimiento
-                                                        ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
-                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
-                                                            ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
-                                                            importeMX = ImporteMovimiento * tipoCambioCompra
-                                                        ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
-                                                            ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
-                                                            importeMX = ImporteMovimiento * tipoCambioCompra
-                                                        ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
-                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
-                                                            ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
-                                                            importeMX = ImporteMovimiento * tipoCambioCompra
-                                                        End If
-                                                        ImporteMovimiento = ImporteMovimiento.RoundSQL
-                                                        importeMX = importeMX.RoundSQL
-                                                        TipoCambioGeneral = tipoCambioCompra
-
-                                                        If TipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{TipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
-
-                                                        'Conta ContPAQ
-                                                        If IdCtaContRetIVA > 0 Then
-                                                            IdCtaContable = IdCtaContRetIVA
-                                                        ElseIf UsuarioActual.Empresa.Funcionalidad(313).ToEntero > 0 Then
-                                                            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(313).ToEntero
-                                                        Else
-                                                            If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                                If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                                    IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
-                                                                End If
-                                                            End If
-                                                        End If
-                                                    End If
-                                                Case 249 'Ret IVA Acreditable Arrendamiento
-                                                    If gvr.DataKey("CveRetIVAConcepto").ToEntero = 4 Then
-                                                        If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
-                                                            ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
-                                                            importeMX = ImporteMovimiento
-                                                        ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
-                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
-                                                            ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
-                                                            importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
-                                                        ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
-                                                            ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
-                                                            importeMX = ImporteMovimiento * tipoCambioCompra
-                                                        ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
-                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
-                                                            ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
-                                                            importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
-                                                        End If
-                                                        ImporteMovimiento = ImporteMovimiento.RoundSQL
-                                                        importeMX = importeMX.RoundSQL
-                                                        TipoCambioGeneral = If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
-
-                                                        If TipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{TipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
-
-                                                        'Conta ContPAQ
-                                                        If IdCtaContRetIVAAcreditable > 0 Then
-                                                            IdCtaContable = IdCtaContRetIVAAcreditable
-                                                        ElseIf UsuarioActual.Empresa.Funcionalidad(314).ToEntero > 0 Then
-                                                            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(314).ToEntero
-                                                        Else
-                                                            If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                                If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                                    IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
-                                                                End If
-                                                            End If
-                                                        End If
-                                                    End If
-                                                Case 285 'Ret IVA x Acreditar Acreditable Servicios
-                                                    If gvr.DataKey("CveRetIVAConcepto").ToEntero = 5 Then
-                                                        If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
-                                                            ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
-                                                            importeMX = ImporteMovimiento
-                                                        ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
-                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
-                                                            ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
-                                                            importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
-                                                        ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
-                                                            ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
-                                                            importeMX = ImporteMovimiento * tipoCambioCompra
-                                                        ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
-                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
-                                                            ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
-                                                            importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
-                                                        End If
-                                                        ImporteMovimiento = ImporteMovimiento.RoundSQL
-                                                        importeMX = importeMX.RoundSQL
-
-                                                        If TipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{TipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
-
-                                                        'Conta ContPAQ
-                                                        If IdCtaContRetIVA > 0 Then
-                                                            IdCtaContable = IdCtaContRetIVA
-                                                        ElseIf UsuarioActual.Empresa.Funcionalidad(578).ToEntero > 0 Then
-                                                            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
-                                                        Else
-                                                            If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                                If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                                    IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
-                                                                End If
-                                                            End If
-                                                        End If
-                                                    End If
-                                                Case 286 'Ret IVA Acreditable Servicio
-                                                    If gvr.DataKey("CveRetIVAConcepto").ToEntero = 5 Then
-                                                        If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
-                                                            ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
-                                                            importeMX = ImporteMovimiento
-                                                        ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
-                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
-                                                            ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
-                                                            importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
-                                                        ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
-                                                            ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
-                                                            importeMX = ImporteMovimiento * tipoCambioCompra
-                                                        ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
-                                                            tipoCambioCompra = gvr.DataKey("TipoCambio").ToDecimal
-                                                            ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
-                                                            importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
-                                                        End If
-                                                        ImporteMovimiento = ImporteMovimiento.RoundSQL
-                                                        importeMX = importeMX.RoundSQL
-
-                                                        If TipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{TipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
-
-                                                        'Conta ContPAQ
-                                                        If IdCtaContRetIVAAcreditable > 0 Then
-                                                            IdCtaContable = IdCtaContRetIVAAcreditable
-                                                        ElseIf UsuarioActual.Empresa.Funcionalidad(582).ToEntero > 0 Then
-                                                            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(582).ToEntero
-                                                        Else
-                                                            If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                                If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                                    IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
-                                                                End If
-                                                            End If
-                                                        End If
-                                                    End If
-                                                'Case 16 'Ret ISR X Acreditar
-                                                '    If gvr.DataKey("CveRetISRConcepto").ToEntero = 1 Then
-                                                '        If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
-                                                '            ImporteMovimiento = gvr.DataKey("RetISR").ToDecimal * PorcentajePago
-                                                '            importeMX = ImporteMovimiento
-                                                '        ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
-                                                '            ImporteMovimiento = (gvr.DataKey("RetISR").ToDecimal * PorcentajePago)
-                                                '            importeMX = ImporteMovimiento * tipoCambioCompra
-                                                '        ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
-                                                '            ImporteMovimiento = (gvr.DataKey("RetISR").ToDecimal * PorcentajePago)
-                                                '            importeMX = ImporteMovimiento * tipoCambioCompra
-                                                '        ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
-                                                '            ImporteMovimiento = (gvr.DataKey("RetISR").ToDecimal * PorcentajePago)
-                                                '            importeMX = ImporteMovimiento * tipoCambioCompra
-                                                '        End If
-                                                '        ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
-                                                '        importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero)
-                                                '        TipoCambioGeneral = tipoCambioCompra
-
-                                                '        If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
-
-                                                '        'Conta ContPAQ
-                                                '        If IdCtaContRetISR > 0 Then
-                                                '            IdCtaContable = IdCtaContRetISR
-                                                '        ElseIf UsuarioActual.Empresa.Funcionalidad(315).ToEntero > 0 Then
-                                                '            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(315).ToEntero
-                                                '        Else
-                                                '            If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                '                If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                '                    IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
-                                                '                End If
-                                                '            End If
-                                                '        End If
-
-
-                                                '    End If
-                                                'Case 23 'Ret ISR Acreditable
-                                                '    If gvr.DataKey("CveRetISRConcepto").ToEntero = 1 Then
-                                                '        If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
-                                                '            ImporteMovimiento = gvr.DataKey("RetISR").ToDecimal * PorcentajePago
-                                                '            importeMX = ImporteMovimiento
-                                                '        ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
-                                                '            ImporteMovimiento = (gvr.DataKey("RetISR").ToDecimal * PorcentajePago)
-                                                '            importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, TipoCambioPago)
-                                                '        ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
-                                                '            ImporteMovimiento = (gvr.DataKey("RetISR").ToDecimal * PorcentajePago)
-                                                '            importeMX = ImporteMovimiento * tipoCambioCompra
-                                                '        ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
-                                                '            ImporteMovimiento = (gvr.DataKey("RetISR").ToDecimal * PorcentajePago)
-                                                '            importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, TipoCambioPago)
-                                                '        End If
-                                                '        ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
-                                                '        importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero)
-                                                '        TipoCambioGeneral = TipoCambioPago
-
-                                                '        If TipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{TipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
-
-                                                '        'Conta ContPAQ
-                                                '        If IdCtaContRetISRAcreditable > 0 Then
-                                                '            IdCtaContable = IdCtaContRetISRAcreditable
-                                                '        ElseIf UsuarioActual.Empresa.Funcionalidad(316).ToEntero > 0 Then
-                                                '            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(316).ToEntero
-                                                '        Else
-                                                '            If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                '                If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                '                    IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
-                                                '                End If
-                                                '            End If
-                                                '        End If
-
-
-                                                '    End If
-                                                'Case 243 'Ret ISR x Acreditar Terceros y Arrendamiento
-                                                '    If gvr.DataKey("CveRetISRConcepto").ToEntero = 2 Then
-                                                '        If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
-                                                '            ImporteMovimiento = gvr.DataKey("RetISR").ToDecimal * PorcentajePago
-                                                '            importeMX = ImporteMovimiento
-                                                '        ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
-                                                '            ImporteMovimiento = (gvr.DataKey("RetISR").ToDecimal * PorcentajePago)
-                                                '            importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, TipoCambioPago)
-                                                '        ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
-                                                '            ImporteMovimiento = (gvr.DataKey("RetISR").ToDecimal * PorcentajePago)
-                                                '            importeMX = ImporteMovimiento * tipoCambioCompra
-                                                '        ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
-                                                '            ImporteMovimiento = (gvr.DataKey("RetISR").ToDecimal * PorcentajePago)
-                                                '            importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, TipoCambioPago)
-                                                '        End If
-                                                '        ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
-                                                '        importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero)
-                                                '        TipoCambioGeneral = TipoCambioPago
-
-                                                '        If TipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{TipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
-
-                                                '        'Conta ContPAQ
-                                                '        If IdCtaContRetISR > 0 Then
-                                                '            IdCtaContable = IdCtaContRetISR
-                                                '        ElseIf UsuarioActual.Empresa.Funcionalidad(317).ToEntero > 0 Then
-                                                '            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(317).ToEntero
-                                                '        Else
-                                                '            If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                '                If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                '                    IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
-                                                '                End If
-                                                '            End If
-                                                '        End If
-
-
-                                                '    End If
-                                                'Case 244 'Ret ISR Acreditable Terceros y Arrendamiento
-                                                '    If gvr.DataKey("CveRetISRConcepto").ToEntero = 2 Then
-                                                '        If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
-                                                '            ImporteMovimiento = gvr.DataKey("RetISR").ToDecimal * PorcentajePago
-                                                '            importeMX = ImporteMovimiento
-                                                '        ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
-                                                '            ImporteMovimiento = (gvr.DataKey("RetISR").ToDecimal * PorcentajePago)
-                                                '            importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, TipoCambioPago)
-                                                '        ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
-                                                '            ImporteMovimiento = (gvr.DataKey("RetISR").ToDecimal * PorcentajePago)
-                                                '            importeMX = ImporteMovimiento * tipoCambioCompra
-                                                '        ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
-                                                '            ImporteMovimiento = (gvr.DataKey("RetISR").ToDecimal * PorcentajePago)
-                                                '            importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, TipoCambioPago)
-                                                '        End If
-                                                '        ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
-                                                '        importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero)
-                                                '        TipoCambioGeneral = TipoCambioPago
-
-                                                '        If TipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{TipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
-
-                                                '        'Conta ContPAQ
-                                                '        If IdCtaContRetISRAcreditable > 0 Then
-                                                '            IdCtaContable = IdCtaContRetISRAcreditable
-                                                '        ElseIf UsuarioActual.Empresa.Funcionalidad(318).ToEntero > 0 Then
-                                                '            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(318).ToEntero
-                                                '        Else
-                                                '            If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                '                If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                '                    IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
-                                                '                End If
-                                                '            End If
-                                                '        End If
-
-                                                '        End If
-                                                '    End If
                                                 Case 14 'Iva X Acreditar
                                                     Dim TotalImporte As Decimal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
                                                     If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then

Compras/Compras.aspx

@@ -2112,7 +2112,7 @@
                                                     <asp:TemplateField>
                                                         <ItemTemplate>
                                                             <asp:Label runat="server" Visible="false" ID="LbCveAF" Text='<%# Eval("CodAF")%>'></asp:Label>
-                                                            <asp:TextBox ID="LblCodigo" Text='<%# Eval("CodAF")%>' runat="server" Width="100px" Visible="true"></asp:TextBox>
+                                                            <asp:TextBox ID="LblCodigo" Text='<%# Eval("CodAF")%>' runat="server" Width="80px" Visible="true"></asp:TextBox>
                                                             <asp:HyperLink runat="server" ID="HLBuscarAF"><i class="fa fa-search" aria-hidden="true"></i></asp:HyperLink>
                                                             <asp:Label runat="server" ID="LblValido" Style="display: none" Text="<i class='fa fa-check' style='color:green'></i>"></asp:Label>
 
@@ -2129,7 +2129,7 @@
                                                     </asp:TemplateField>
                                                     <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Left">
                                                         <ItemTemplate>
-                                                            <asp:DropDownList ID="DdlTipoMantemiento" runat="server" CssClass="form-control select2me" Width="200px" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoMantemiento_SelectedIndexChanged">
+                                                            <asp:DropDownList ID="DdlTipoMantemiento" runat="server" CssClass="form-control select2me" Width="100px" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoMantemiento_SelectedIndexChanged">
                                                                 <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
                                                                 <asp:ListItem Text="Preventivo" Value="1"></asp:ListItem>
                                                                 <asp:ListItem Text="Correctivo" Value="2"></asp:ListItem>

Compras/PopUpVerFactura.aspx.vb

@@ -2920,11 +2920,9 @@ Partial Class PopUpVerFactura
             Case 24 'SALIDA POR RESGUARDO
                 If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then
                     Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-                    Dim params As New List(Of ReportParameter)
+                    Dim params As New List(Of ReportParameter)
-
+                    Dim ArchivoRuta As New System.IO.FileInfo(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta))
-                    Dim ArchivoRuta As New System.IO.FileInfo(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta))
+                    Dim Archivo As String = String.Format("{0}Formatos/EntradaSalidaUniforme.rdlc", UsuarioActual.Empresa.Ruta)
-                    Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntradaSalidaUniforme.rdlc"
-
                     If Not ArchivoRuta.Exists Then
                         Archivo = "Empresas/Grales/Formatos/EntradaSalidaUniforme.rdlc"
                     End If

Compras/ReembolsosComprobaciones.aspx.vb

@@ -724,7 +724,10 @@ Partial Class Compras_ReembolsosComprobaciones
                         End If
 
                         If SaldoCheque > 0 Then
-                            ImporteMovto = If(ImportePagar > SaldoCheque, SaldoCheque, ImportePagar)
+
+                            'ImporteMovto = If(ImportePagar > SaldoCheque, SaldoCheque, ImportePagar)
+                            ImporteMovto = ImportePagar
+
                             CvePrePolizaPago = CvePrePolizaIERegistrado
 
                             'SE USARA PARA PODER ELIMINAR UNA COMPROBACION
@@ -746,7 +749,7 @@ Partial Class Compras_ReembolsosComprobaciones
 
 
                             'Otros Ingresos
-                            If (ChkAjusteOI.Checked Or ChkOtrosIngresosCheque.Checked) AndAlso gvr.FCTextBox("TxtComision").Text.ToDecimal > 0 Then
+                            If (ChkAjusteOI.Checked Or ChkOtrosIngresosCheque.Checked) AndAlso gvr.FCTextBox("TxtComision").Text.ToDecimal <> 0 Then
                                 If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, gvr.FCTextBox("TxtComision").Text.ToDecimal, Referencia, 211, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaProveedor, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal), ImporteMX:=gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio, CveCuenta:=CveCuentaProveedor) Then
                                     MsgError = "no se pudo insertar el detalle de la poliza de otros ingresos"
                                 End If

Compras/RepProductosServiciosDetalle.aspx.vb

@@ -149,17 +149,21 @@ Partial Class Compras_RepProductosServiciosDetalle
 
         'DdlCategoria.SelectedValueExist(Categoria)
         DdlClasificacion.SelectedValueExist(Clasificacion)
-        If PS <> "-1" Then
+        If PS.ToEntero > 1 Then
             DdlPS.SelectedValue = PS
-            DdlPS.SelectedText = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=PS.ToEntero)(0)("PSCodigo").ToString
+            DdlPS.SelectedText = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=PS.ToEntero).FiltroPrimeroValor("PSCodigo")
         End If
 
         'DdlSubProyecto.SelectedValueExist(SubProyecto)
         DdlFamilia.SelectedValueExist(Familia)
         DdlSubFamilia.SelectedValueExist(SubFamilia)
-        DdlProveedor.SelectedValue = Proveedor
+
         If Proveedor.ToEntero > 0 Then
-            DdlProveedor.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {Proveedor}").Rows(0)("RazonSocial").ToString
+            Dim Dr As DataRow = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, Proveedor.ToEntero).FiltroPrimero("")
+            If Dr IsNot Nothing Then
+                DdlProveedor.SelectedText = Dr("RazonSocial").ToString
+                DdlProveedor.SelectedValue = Proveedor
+            End If
         Else
             DdlProveedor.SelectedText = "Todos"
         End If
@@ -200,8 +204,10 @@ Partial Class Compras_RepProductosServiciosDetalle
         DdlClasificacion.DataBind()
 
         'CargaProveedor
-        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        DdlProveedor.setEsWebService(True)
-        DdlProveedor.DataBind()
+        DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedor.SelectedText = "Todos"
+        DdlProveedor.SelectedValue = "-1"
 
         'CargaUsuarios
         DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)

Contabilidad/ContabilidadElectronica.aspx.vb

@@ -185,7 +185,7 @@ Partial Class Contabilidad_ContabilidadElectronica
         Dim DtCuentas As New DataTable
         If UsuarioActual.Empresa.TipoContabilidad = 1 Then
             Dim objconta As New ClsContabilidad
-            If objconta.GetBalanzaComprobacion(FechaI, FechaF, UsuarioActual.CveEmpresa) Then
+            If objconta.GetBalanzaComprobacion(FechaI, FechaF, 1, -1, "-1", UsuarioActual.CveEmpresa, 0) Then
                 DtCuentas = objconta.DtResultados
             End If
             objconta.Dispose()
@@ -218,11 +218,20 @@ Partial Class Contabilidad_ContabilidadElectronica
             'DETALLES
             For Each Dr As DataRow In DtCuentas.Rows
                 Str.Append("<BCE:Ctas ")
-                Str.AppendFormat("NumCta=""{0}"" ", Dr("NumCta").ToString)
+                If UsuarioActual.Empresa.TipoContabilidad = 1 Then
-                Str.AppendFormat("SaldoIni=""{0}"" ", Dr("SaldoIni").ToString)
+                    Str.AppendFormat("NumCta=""{0}"" ", Dr("Codigo").ToString)
-                Str.AppendFormat("Debe=""{0}"" ", Dr("Debe").ToString)
+                    Str.AppendFormat("SaldoIni=""{0}"" ", Dr("SaldoInicial").ToString)
-                Str.AppendFormat("Haber=""{0}"" ", Dr("Haber").ToString)
+                    Str.AppendFormat("Debe=""{0}"" ", Dr("Cargos").ToString)
-                Str.AppendFormat("SaldoFin=""{0}"" ", Dr("SaldoFin").ToString)
+                    Str.AppendFormat("Haber=""{0}"" ", Dr("Abonos").ToString)
+                    Str.AppendFormat("SaldoFin=""{0}"" ", Dr("SaldoActual").ToString)
+                Else
+                    Str.AppendFormat("NumCta=""{0}"" ", Dr("NumCta").ToString)
+                    Str.AppendFormat("SaldoIni=""{0}"" ", Dr("SaldoIni").ToString)
+                    Str.AppendFormat("Debe=""{0}"" ", Dr("Debe").ToString)
+                    Str.AppendFormat("Haber=""{0}"" ", Dr("Haber").ToString)
+                    Str.AppendFormat("SaldoFin=""{0}"" ", Dr("SaldoFin").ToString)
+                End If
+
                 Str.Append("/>")
             Next
 

Contabilidad/RegPrePoliza.aspx.vb

@@ -371,6 +371,7 @@ Partial Class ContabilidadC_RegPrePoliza
             .Add("ContadoImporte", Type.GetType("System.Double"))
             .Add("ContadoBeneficiario", Type.GetType("System.String"))
             .Add("ContadoObservaciones", Type.GetType("System.String"))
+            .Add("FolioPoliza", Type.GetType("System.Int32"))
         End With
     End Sub
 

Contabilidad/RepIVA.aspx.cs

@@ -121,6 +121,10 @@ public partial class Contabilidad_RepIVA : ClsPaginas
         GvIVAA.DataBind();
         GvIVA2.DataBind();
         UpDatos.Update();
+
+        String Str = "Se Consultó el Reporte de IVA. - " + UsuarioActual.Usuario;
+        Str.GuardaLog();
+
     }
 
     protected void BtnConsultar_Click(object sender, EventArgs e)

Contratos/ContratoAvance.aspx

@@ -4,28 +4,7 @@
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
     <style>
-        table.GVEstimacion{
+         
-            width:100%;
-        }
-        .txtimporte{
-                /*background: transparent;*/
-                /*border: none;*/
-        }
-        
-        .txtcant,.txtimporte,
-        table.GVEstimacion > tbody > tr > td,
-        table.GVEstimacion > tbody > tr > th{
-            text-align:right;
-        }
-        table.GVEstimacion > tbody > tr > th,
-        table.GVEstimacion > tbody > tr > td{
-            width:100px;
-        }
-        table.GVEstimacion > tbody > tr > th:nth-child(1),
-        table.GVEstimacion > tbody > tr > td:nth-child(1){
-            width:300px;
-            text-align:left;
-        } 
         .ddls {
             max-width:220px;
         } 
@@ -85,8 +64,8 @@
                                   Fecha:
                               </div>
                               <div class="col-md-4">
-                                  <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
+                                  <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 90px !important; padding: 0px;">
-                                      <asp:TextBox ID="TxtFecha" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 118px" MaxLength="10"></asp:TextBox>
+                                      <asp:TextBox ID="TxtFecha" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 88px" MaxLength="10"></asp:TextBox>
                                       <span class="input-group-btn ">
                                           <asp:LinkButton ID="ImgFecha" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
                                       </span>
@@ -113,18 +92,18 @@
 
                           <table class="table table-striped Widthall">
                               <tr>
-                                  <th style="width: 400px;"></th>
+                                  <th style=""></th>
-                                  <th style="width: 100px;"></th>
-                                  <th style="width: 100px;"></th>
-                                  <th style="width: 100px;"></th>
-                                  <th style="width: 100px;"></th>
-                                  <th style="width: 100px;"></th>
                                   <th style="width: 100px;"></th>
                                   <th style="width: 100px;"></th>
                                   <th style="width: 100px;"></th>
+                                  <th style="width: 120px;"></th>
+                                  <th style="width: 120px;"></th>
+                                  <th style="width: 120px;"></th>
+                                  <th style="width: 50px;"></th>
+                                  <th style="width: 50px;"></th>
                               </tr>
                               <tr>
-                                  <th>Producto / Servicio</th>
+                                  <th>Concepto</th>
                                   <th colspan="2">Avance</th>
                                   <th colspan="2">Ultimo Avance</th>
                                   <th colspan="2">Levantamiento</th>
@@ -138,7 +117,7 @@
 
                                   <asp:GridView ID="Gv" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron partidas para levantar avance"
                                       DataKeyNames="CveFamilias,CveSubFamilias,CveContratoDetalle,PS,Cantidad,Importe,Cantidad_Ultima,Importe_Ultima,PU,CantidadMax,Avance"
-                                      CssClass="table GVEstimacion table-advance table-hover mysmallbtn" GridLines="None">
+                                      CssClass="table table-advance table-hover mysmallbtn" GridLines="None">
                                       <Columns>
                                           <asp:TemplateField HeaderText="">
                                               <ItemTemplate>
@@ -147,58 +126,53 @@
                                               </ItemTemplate>
                                           </asp:TemplateField>
 
-                                            <asp:TemplateField HeaderText="Cantidad Total">
+                                            <asp:TemplateField HeaderText="Cant. Total"  ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Right">
-                                              <ItemTemplate>
+                                              <ItemTemplate >
                                                   <span><%# Eval("CantidadTotal", "{0:N2}")%></span>
                                               </ItemTemplate>
                                           </asp:TemplateField>
 
-                                          <asp:TemplateField HeaderText="UM">
+                                          <asp:TemplateField HeaderText="UM" ItemStyle-Width="60px">
                                               <ItemTemplate>
                                                   <span><%# Eval("Abreviatura")%></span>
                                               </ItemTemplate>
-                                          </asp:TemplateField>
+                                          </asp:TemplateField> 
-                                         
+                                          <asp:TemplateField HeaderText="Cantidad" ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Right">
-
-                                          <asp:TemplateField HeaderText="Cantidad">
                                               <ItemTemplate>
                                                   <span><%# Eval("Cantidad", "{0:N2}")%></span>
                                               </ItemTemplate>
                                           </asp:TemplateField>
 
-                                          <asp:TemplateField HeaderText="Importe">
+                                          <asp:TemplateField HeaderText="Importe" ItemStyle-HorizontalAlign="Right">
                                               <ItemTemplate>
                                                   <span><%# Eval("Importe", "{0:N2}")%></span>
                                               </ItemTemplate>
                                           </asp:TemplateField>
-                                          <asp:TemplateField HeaderText="Cantidad">
+                                          <asp:TemplateField HeaderText="Cantidad" ItemStyle-HorizontalAlign="Right">
                                               <ItemTemplate>
                                                   <span><%# Eval("Cantidad_Ultima", "{0:N2}")%></span>
                                               </ItemTemplate>
                                           </asp:TemplateField>
-                                          <asp:TemplateField HeaderText="Importe">
+                                          <asp:TemplateField HeaderText="Importe" ItemStyle-HorizontalAlign="Right">
                                               <ItemTemplate>
                                                   <span><%# Eval("Importe_Ultima", "{0:N2}")%></span>
                                               </ItemTemplate>
                                           </asp:TemplateField>
-                                          <asp:TemplateField HeaderText="Cantidad">
+                                          <asp:TemplateField HeaderText="Cantidad" ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Right">
                                               <ItemTemplate>
-                                                  <asp:TextBox ID="TxtCantidad" Text="" CssClass="txtcant"  type="number" step="any" data-cantidad='<%# Eval("CantidadMax")%>' data-pu='<%# Eval("PU")%>' data-cve='<%# Eval("CveContratoDetalle") %>' Width="90" runat="server"></asp:TextBox>
+                                                  <asp:TextBox ID="TxtCantidad" Text="" CssClass="txtcant"  type="number" step="any" data-cantidad='<%# Eval("CantidadMax")%>' data-pu='<%# Eval("PU")%>' data-cve='<%# Eval("CveContratoDetalle") %>' Width="70" runat="server"></asp:TextBox>
                                               </ItemTemplate>
                                           </asp:TemplateField>
-                                          <asp:TemplateField HeaderText="Importe">
+                                          <asp:TemplateField HeaderText="Importe"  ItemStyle-Width="90px" ItemStyle-HorizontalAlign="Right">
                                               <ItemTemplate>
                                                   <asp:TextBox ID="TxtImporte" Text="" CssClass="txtimporte"   data-cve='<%# Eval("CveContratoDetalle") %>'  type="number" step="any" Width="90" runat="server"></asp:TextBox>
                                               </ItemTemplate>
                                           </asp:TemplateField>
-
+                                            <asp:TemplateField HeaderText="Porcentaje" ItemStyle-Width="50px">
-                                            <asp:TemplateField HeaderText="Porcentaje">
                                               <ItemTemplate>
-                                                  <asp:TextBox ID="TxtPorcentaje" Text="" CssClass="txtporcentaje"   data-cve='<%# Eval("CveContratoDetalle") %>'   type="number" step="any" Width="90" runat="server"></asp:TextBox>
+                                                  <asp:TextBox ID="TxtPorcentaje" Text="" CssClass="txtporcentaje"   data-cve='<%# Eval("CveContratoDetalle") %>'   type="number" step="any" Width="70" runat="server"></asp:TextBox>
                                               </ItemTemplate>
-                                          </asp:TemplateField>
+                                          </asp:TemplateField> 
-
-
                                           <asp:TemplateField HeaderText=" ">
                                               <ItemTemplate>
 
@@ -231,15 +205,11 @@
                                                           </div>
                                                       </div>
                                                   </div>
-
+                                            </ItemTemplate>
-                                              </ItemTemplate>
+                                          </asp:TemplateField> 
-                                          </asp:TemplateField>
+                                          <asp:TemplateField HeaderText=" ">
-
-
-
-                                          <asp:TemplateField HeaderText="">
                                               <ItemTemplate>
-                                                  <asp:LinkButton ID="LnkGuardarAvance" Text="Guardar" CssClass="btn btn-primary" runat="server" OnClick="LnkGuardarAvance_Click" Visible="false" Height="30px"  ValidationGroup="GrpGuardar"></asp:LinkButton>
+                                                  <asp:LinkButton ID="LnkGuardarAvance" Text="" CssClass="btn btn-primary btn-sm" runat="server" OnClick="LnkGuardarAvance_Click" Visible="false"  ValidationGroup="GrpGuardar" ToolTip="Guardar"><i class='fa fa-save'></i></asp:LinkButton>
                                               </ItemTemplate>
                                           </asp:TemplateField>
 
@@ -258,13 +228,7 @@
 
                       </ContentTemplate>
                   </asp:UpdatePanel>
-
+       
-
-
-
-
-
-    
     
     <div class="modal fade " id="dropmodal">
         <div class="modal-dialog"> 

Contratos/ContratoAvance.aspx.vb

@@ -194,8 +194,6 @@ Partial Class Contratos_ContratoAvance
                 e.Row.FCTextBox("TxtPorcentaje").Visible = False
 
 
-
-
                 'txtimporte
                 e.Row.FCLinkButton("LnkAnexo").Visible = False
 
@@ -241,13 +239,7 @@ Partial Class Contratos_ContratoAvance
                     LnkGuardarAvance.Visible = False
 
                 End If
-
             End If
-
-
-
-
-
         End If
     End Sub
     Protected Sub GetAnexos(sender As Object, e As System.EventArgs)

Contratos/ContratoObra.aspx

@@ -309,7 +309,7 @@
                         <ContentTemplate> 
                             <div class="row">
                                 <div class="col-md-6">
-                                    <div class="portlet smmallpadding light bordered">
+                                    <div class="portlet smallpadding light bordered">
                                         <div class="portlet-title">
                                             <div class="tools">
                                                 <a href="javascript;" data-idchekbox="C_chkexpand" class=" collapse" data-original-title="" title=""></a><span class="hidden">

Contratos/ContratoObra.aspx.vb

@@ -1115,9 +1115,7 @@ Partial Class Contratos_ContratoObra
         Else
             ObjContratos.Commit()
 
-            If ObjContratos.GetContratos(-1, -1) Then
+            GlobalDTContratos(UsuarioActual.CveEmpresa) = Nothing
-                Application("GlobalDTContratos") = ObjContratos.DtResultados
-            End If
 
             Limpiar()
             If Modificado Then
@@ -4387,7 +4385,7 @@ Partial Class Contratos_ContratoObra
             DTCargaPresupuesto = CargaPresupuestoExcel("Presupuesto")
 
             If DTCargaPresupuesto.Rows.Count > 0 Then
-                ProcesaDatosCargaPresupuesto(DTCargaPresupuesto, Nothing, Nothing, Nothing)
+                ProcesaDatosCargaPresupuesto(EnumTipoCargaPresupuesto.Ventas, DTCargaPresupuesto, Nothing, Nothing, Nothing)
             Else
                 Alert("No se encintraron partidas en el documento", TipoMensaje.MsgAdvertencia)
             End If
@@ -4399,7 +4397,7 @@ Partial Class Contratos_ContratoObra
             DTCargaPresupuestoFlotillas = CargaPresupuestoExcel("Maquinaria")
             DTCargaPresupuestoIndirectos = CargaPresupuestoExcel("Indirectos")
 
-            ProcesaDatosCargaPresupuesto(DTCargaPresupuesto, DTCargaPresupuestoManoObra, DTCargaPresupuestoFlotillas, DTCargaPresupuestoIndirectos)
+            ProcesaDatosCargaPresupuesto(EnumTipoCargaPresupuesto.Control, DTCargaPresupuesto, DTCargaPresupuestoManoObra, DTCargaPresupuestoFlotillas, DTCargaPresupuestoIndirectos)
 
         End If
 
@@ -4476,7 +4474,7 @@ Partial Class Contratos_ContratoObra
     End Function
 
 
-    Private Sub ProcesaDatosCargaPresupuesto(DTPresupuesto As DataTable, DTCargaPresupuestoManoObra As DataTable, DTCargaPresupuestoFlotillas As DataTable, DTCargaPresupuestoIndirectos As DataTable)
+    Private Sub ProcesaDatosCargaPresupuesto(TipoPresupuesto As EnumTipoCargaPresupuesto, DTPresupuesto As DataTable, DTCargaPresupuestoManoObra As DataTable, DTCargaPresupuestoFlotillas As DataTable, DTCargaPresupuestoIndirectos As DataTable)
 
 
         If Not DTPresupuesto Is Nothing Then
@@ -4548,16 +4546,23 @@ Partial Class Contratos_ContratoObra
                     End If
                 End If
 
+                'si el presupuesto es de ventas. solo valida con el codigo del producto
+                'si es presupuesto es de control, valida por ambos
 
                 If CvePS = -1 Then
 
-                    StrArray = GetPS("PS", DrowPS("Producto").ToString).Split("|"c)
+                    'si es presup ventas, busca por producto, 
-                    If StrArray.Length > 0 Then
+                    If TipoPresupuesto = EnumTipoCargaPresupuesto.Control Then
-                        If CBool(StrArray(0)) = True Then
+
-                            CvePS = StrArray(1).ToEntero
+                        StrArray = GetPS("PS", DrowPS("Producto").ToString).Split("|"c)
+                        If StrArray.Length > 0 Then
+                            If CBool(StrArray(0)) = True Then
+                                CvePS = StrArray(1).ToEntero
+                            End If
                         End If
                     End If
 
+
                     If CvePS = -1 Then
 
                         Dim ObjPS As New ClsProductosServicios

Contratos/ContratoObraAutorizacion.aspx

@@ -1,282 +1,277 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="ContratoObraAutorizacion.aspx.vb" Inherits="Contratos_ContratoObraAutorizacion" %>
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="ContratoObraAutorizacion.aspx.vb" Inherits="Contratos_ContratoObraAutorizacion" %>
-
+
-<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
-</asp:Content>
+</asp:Content>
-<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
-    <style>
+    <style>
-        table.GVEstimacion{
+        table.GVEstimacion {
-            width:100%;
+            width: 100%;
-        }
+        }
-        .txtimporte{
+
-                background: transparent;
+        .txtimporte {
-                border: none;
+            background: transparent;
-        }
+            border: none;
-        
+        }
-        .txtcant,.txtimporte,
+
-        table.GVEstimacion > tbody > tr > td,
+        .txtcant, .txtimporte,
-        table.GVEstimacion > tbody > tr > th{
+        table.GVEstimacion > tbody > tr > td,
-            text-align:right;
+        table.GVEstimacion > tbody > tr > th {
-        }
+            text-align: right;
-        table.GVEstimacion > tbody > tr > th,
+        }
-        table.GVEstimacion > tbody > tr > td{
+
-            width:100px;
+        table.GVEstimacion > tbody > tr > th,
-        }
+        table.GVEstimacion > tbody > tr > td {
-        table.GVEstimacion > tbody > tr > th:nth-child(1),
+            width: 100px;
-        table.GVEstimacion > tbody > tr > td:nth-child(1){
+        }
-            width:300px;
+
-            text-align:left;
+            table.GVEstimacion > tbody > tr > th:nth-child(1),
-        } 
+            table.GVEstimacion > tbody > tr > td:nth-child(1) {
-        .ddls {
+                width: 300px;
-            max-width:220px;
+                text-align: left;
-        } 
+            }
-        .linkfile input{
+
-            display:none
+        .ddls {
-        }
+            max-width: 220px;
-    </style>
+        }
-    
+
-<link href="/Metronic/assets/global/plugins/dropzone/css/dropzone.css" rel="stylesheet"/>
+        .linkfile input {
-</asp:Content>
+            display: none
-<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
+        }
-    Autorización de Avance
+    </style>
-</asp:Content>
+
-<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
+    <link href="/Metronic/assets/global/plugins/dropzone/css/dropzone.css" rel="stylesheet" />
-</asp:Content>
+</asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
+<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
-</asp:Content>
+    Autorización de Avance
-<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+</asp:Content>
-
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
-
+</asp:Content>
-   
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-
+</asp:Content>
-
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
-                  <asp:UpdatePanel runat="server" ID="UpEstimaciones" UpdateMode="Conditional">
+     
-                      <ContentTemplate>
+
+    <asp:UpdatePanel runat="server" ID="UpEstimaciones" UpdateMode="Conditional">
+        <ContentTemplate>
 
 
-        <div class="portlet solid  grey-cascade portlet-filter">
+            <div class="portlet solid  grey-cascade portlet-filter">
-            <div class="portlet-title portlet-filterT smalltitle">
+                <div class="portlet-title portlet-filterT smalltitle">
 
-                <div class="tools">
+                    <div class="tools">
-                    <asp:Button ID="BtnConsultarEstimaciones" runat="server" Text="Consultar" class="btn btn-default" />
+                        <asp:Button ID="BtnConsultarEstimaciones" runat="server" Text="Consultar" class="btn btn-default" />
+                    </div>
+
+                    <div class="titlefiltros caption" style="position: relative;">
+                        <asp:UpdatePanel class="row" ID="UpdatePanel2" runat="server" UpdateMode="Conditional">
+                            <ContentTemplate>
+                                <label class="col-md-1 truncate">Contrato:</label>
+                                <div class="col-md-6 col-lg-4">
+                                    <div class="ddls">
+                                        <asp:DropDownList ID="DDlContratosEstimaciones" runat="server" DataTextField="ContratoCompleto" DataValueField="CveContrato" Class=" form-control input-inline select2me" Width="100%">
+                                        </asp:DropDownList>
+                                    </div>
+                                </div>
+
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+                    </div>
+                </div>
+            </div>
+
+
+            <div class="row">
+
+                <div class="col-md-6" style="text-align: right!important">
                 </div>
 
-                <div class="titlefiltros caption" style="position: relative;">
+
-                    <asp:UpdatePanel class="row" ID="UpdatePanel2" runat="server" UpdateMode="Conditional">
+
-                        <ContentTemplate>
+                <div class="col-md-6" style="text-align: right!important">
-                            <label class="col-md-1 truncate">Contrato:</label>
+                    <div style="display: inline-block">
-                            <div class="col-md-6 col-lg-4">
+                        <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvEstimaciones.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px; height: 25px; border-color: #89C4F4;" />
-                                <div class="ddls">
+                        <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvEstimaciones.ClientID) %>" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
-                                    <asp:DropDownList ID="DDlContratosEstimaciones" runat="server" DataTextField="ContratoCompleto" DataValueField="CveContrato" Class=" form-control input-inline select2me" Width="100%">
+                    </div>
-                                    </asp:DropDownList>
+
+                </div>
+
+            </div>
+            <br />
+
+
+            <div class="row">
+                <div class="col-md-12">
+
+                    <asp:GridView ID="GvEstimaciones" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron partidas para levantar avance"
+                        DataKeyNames="CveContratoAvance,CveFamilias,CveSubFamilias,CveContratoDetalle,PS,Cantidad,Importe,Cantidad_Ultima,Importe_Ultima,PU,CantidadMax,Avance,Fecha,CveEstimacion"
+                        CssClass="table GVEstimacion table-advance table-hover mysmallbtn" GridLines="None">
+                        <Columns>
+                            <asp:TemplateField HeaderText="" ItemStyle-Width="60%">
+                                <ItemTemplate>
+                                    <asp:LinkButton ID="Producto" runat="server" CssClass="Texto" Text='<%# Eval("PS")%>' Visible="false"></asp:LinkButton>
+                                    <asp:Label ID="LinkButton1" runat="server" CssClass="Texto" Text='<%# Eval("PS")%>'></asp:Label>
+                                </ItemTemplate>
+                            </asp:TemplateField>
+                            <asp:TemplateField HeaderText="Cantidad">
+                                <ItemTemplate>
+                                    <span><%# Eval("Cantidad", "{0:N2}")%></span>
+                                </ItemTemplate>
+                            </asp:TemplateField>
+                            <asp:TemplateField HeaderText="Importe">
+                                <ItemTemplate>
+                                    <span><%# Eval("Importe", "{0:N2}")%></span>
+                                </ItemTemplate>
+                            </asp:TemplateField>
+                            <asp:TemplateField HeaderText="Ult. Cantidad">
+                                <ItemTemplate>
+                                    <span><%# Eval("Cantidad_Ultima", "{0:N2}")%></span>
+                                </ItemTemplate>
+                            </asp:TemplateField>
+                            <asp:TemplateField HeaderText="Ult. Importe">
+                                <ItemTemplate>
+                                    <span><%# Eval("Importe_Ultima", "{0:N2}")%></span>
+                                </ItemTemplate>
+                            </asp:TemplateField>
+
+                            <asp:TemplateField HeaderText="Acciones">
+                                <ItemTemplate>
+                                    <table style="width: 90px!important">
+                                        <tr>
+                                            <td>
+                                                <asp:LinkButton ID="LnkAnexo" runat="server" OnClick="GetAnexos" AlternateText="Agregar Anexo" CssClass="btn btn-circle btn-sm btn-success anexo" Text="<i class='fa fa-folder'></i>" Visible="false" />
+                                            </td>
+                                            <td>
+                                                <asp:LinkButton ID="LnkEliminarAvance" runat="server" OnClick="LnkEliminarAvance_Click" AlternateText="Agregar Anexo" Visible="false"
+                                                    CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Eliminar avance?" data-btn-ok-label="si" />
+                                            </td>
+                                        </tr>
+                                    </table> 
+                                </ItemTemplate>
+                            </asp:TemplateField>
+                              
+                        </Columns>
+                    </asp:GridView>
+
+                </div>
+            </div>
+
+
+            <div class="row">
+                <div class="col-md-12">
+                    <div class="text-center">
+
+                        <asp:Button ID="BtnAutoriza" CssClass="btn btn-primary" runat="server" Text="Autorizar" Visible="false" OnClick="BtnAutoriza_Click" />
+                        <asp:Button ID="BtnGuardarEstimacion" CssClass="btn btn-primary" runat="server" Text="Generar Estimacion" Visible="false" />
+                        <asp:Button ID="BtnDescargarGenerado" CssClass="btn btn-primary" runat="server" Text="Descarga Generador" Visible="false" />
+
+                    </div>
+                </div>
+            </div>
+
+        </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="BtnDescargarGenerado" />
+        </Triggers>
+    </asp:UpdatePanel>
+
+
+
+
+
+
+    <div class="modal fade " id="dropmodal">
+        <div class="modal-dialog">
+            <div class="modal-content ">
+                <div class="portlet light smmallpadding bordered ">
+                    <div class="portlet-title">
+                        <div class="caption font-green">
+                            <i class="icon-pin font-green"></i>
+                            <span class="caption-subject bold uppercase">Cargar Evidencia</span>
+                        </div>
+                        <div class="actions">
+                            <div class="btn-group">
+                            </div>
+                        </div>
+                        <div class="tools">
+                            <a href="javascript:;" class="collapse"></a>
+                            <a href="javascript:$('#dropmodal').modal('hide');" style="color: gray;"><i class="fa fa-remove"></i></a>
+                        </div>
+                    </div>
+                    <div class="portlet-body  ">
+                        <div id="my-dropzone" class="">
+                        </div>
+                    </div>
+
+                    <div style="text-align: center!important">
+                        <br />
+                        <button id="btnCerrarModal" runat="server" type="button" class="btn default" data-dismiss="modal">Cerrar</button>
+                        <br />
+                    </div>
+                </div>
+
+            </div>
+        </div>
+    </div>
+
+
+
+    <div id="ModalAnexos" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+
+            <asp:UpdatePanel ID="UpModalAnexos" UpdateMode="Conditional" runat="server">
+                <ContentTemplate>
+
+                    <!-- Modal content-->
+                    <div class="modal-content">
+                        <div class="modal-header ">
+                            <button type="button" class="close" data-dismiss="modal">&times;</button>
+                            <h4 class="modal-title">
+                                <asp:Label runat="server" ID="LblTituloModalAnexo"></asp:Label></h4>
+                        </div>
+
+                        <div class="modal-body">
+                            <div class="row">
+
+                                <div class="col-md-12" style="text-align: center!important; text-align: center!important">
+                                    <asp:GridView ID="GvAnexos" AutoGenerateColumns="false" runat="server" ShowHeaderWhenEmpty="true" EmptyDataText="No se encontraron archivos" Width="250px"
+                                        DataKeyNames="Archivo" CssClass="table GVEstimacion table-advance table-hover" GridLines="None">
+                                        <Columns>
+                                            <asp:TemplateField HeaderText="Anexos">
+                                                <ItemTemplate>
+
+                                                    <asp:LinkButton ID="LnkArchivo" runat="server" OnClick="LnkArchivo_Click"></asp:LinkButton>
+
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                        </Columns>
+                                    </asp:GridView>
+
                                 </div>
                             </div>
+                        </div>
+                        <div class="modal-footer">
+                            <asp:UpdatePanel runat="server">
+                                <ContentTemplate>
+                                    <button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
+                                </ContentTemplate>
+                            </asp:UpdatePanel>
+                        </div>
+                    </div>
 
-                        </ContentTemplate>
+                </ContentTemplate>
-                    </asp:UpdatePanel>
+            </asp:UpdatePanel>
-                </div>
-            </div>
         </div>
-
+    </div>
-
-                                 <div class="row">
-
-                              <div class="col-md-6" style="text-align: right!important">
-                                  
-                              </div>
-                      
-
-
-                                <div class="col-md-6" style="text-align:right!important">
-                                  <div style="display: inline-block">
-                                    <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvEstimaciones.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px; height: 25px; border-color: #89C4F4;" />
-                                    <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvEstimaciones.ClientID) %>" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
-                                </div>
-
-                                </div>
-
-                          </div>
-                          <br />
-
-
-        <div class="row">
-            <div class="col-md-12">
-
-                <asp:GridView ID="GvEstimaciones" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron partidas para levantar avance"
-                    DataKeyNames="CveContratoAvance,CveFamilias,CveSubFamilias,CveContratoDetalle,PS,Cantidad,Importe,Cantidad_Ultima,Importe_Ultima,PU,CantidadMax,Avance,Fecha,CveEstimacion"
-                    CssClass="table GVEstimacion table-advance table-hover mysmallbtn" GridLines="None">
-                    <Columns>
-                        <asp:TemplateField HeaderText="" ItemStyle-Width="60%">
-                            <ItemTemplate>
-                                <asp:LinkButton ID="Producto" runat="server" CssClass="Texto" Text='<%# Eval("PS")%>' Visible="false"></asp:LinkButton>
-                                <asp:Label ID="LinkButton1" runat="server" CssClass="Texto" Text='<%# Eval("PS")%>'></asp:Label>
-                            </ItemTemplate>
-                        </asp:TemplateField>
-                        <asp:TemplateField HeaderText="Cantidad">
-                            <ItemTemplate>
-                                <span><%# Eval("Cantidad", "{0:N2}")%></span>
-                            </ItemTemplate>
-                        </asp:TemplateField>
-                        <asp:TemplateField HeaderText="Importe">
-                            <ItemTemplate>
-                                <span><%# Eval("Importe", "{0:N2}")%></span>
-                            </ItemTemplate>
-                        </asp:TemplateField>
-                        <asp:TemplateField HeaderText="Cantidad">
-                            <ItemTemplate>
-                                <span><%# Eval("Cantidad_Ultima", "{0:N2}")%></span>
-                            </ItemTemplate>
-                        </asp:TemplateField>
-                        <asp:TemplateField HeaderText="Importe">
-                            <ItemTemplate>
-                                <span><%# Eval("Importe_Ultima", "{0:N2}")%></span>
-                            </ItemTemplate>
-                        </asp:TemplateField>
-
-                        <asp:TemplateField HeaderText="Acciones">
-                            <ItemTemplate>
-
-                                <table style="width: 120px!important">
-                                    <tr>
-                                        <td>
-                                            <asp:LinkButton ID="LnkAnexo" runat="server" OnClick="GetAnexos" AlternateText="Agregar Anexo" CssClass="btn btn-circle btn-sm btn-success anexo" Text="<i class='fa fa-folder'></i>" Visible="false" />
-                                        </td>
-                                        <td>
-                                            <asp:LinkButton ID="LnkEliminarAvance" runat="server" OnClick="LnkEliminarAvance_Click" AlternateText="Agregar Anexo" Visible="false"
-                                                CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Confimra la elimiancion del avance?" data-btn-ok-label="si" />
-                                        </td>
-                                    </tr>
-                                </table>
-
-
-                            </ItemTemplate>
-                        </asp:TemplateField>
 
 
 
 
-                    </Columns>
+    <script src="/Metronic/assets/global/plugins/dropzone/dropzone.js"></script>
-                </asp:GridView>
 
-            </div>
+    <%--<script src="../Scripts/dropzone/dropzone.min.js"></script>--%>
-        </div>
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
 
-
-        <div class="row">
-            <div class="col-md-12">
-                <div class="text-center">
-
-                    <asp:Button ID="BtnAutoriza" CssClass="btn btn-primary" runat="server" Text="Autorizar" Visible="false" OnClick="BtnAutoriza_Click" />
-                    <asp:Button ID="BtnGuardarEstimacion" CssClass="btn btn-primary" runat="server" Text="Generar Estimacion" Visible="false" />
-                    <asp:Button ID="BtnDescargarGenerado" CssClass="btn btn-primary" runat="server" Text="Descarga Generador" Visible="false" />
-
-                </div>
-            </div>
-        </div>
-
-    </ContentTemplate>
-                      <Triggers>
-                          <asp:PostBackTrigger ControlID="BtnDescargarGenerado" />
-                      </Triggers>
-                  </asp:UpdatePanel>
-
- 
-
-
-    
-    
-    <div class="modal fade " id="dropmodal">
-        <div class="modal-dialog"> 
-            <div class="modal-content ">
-                <div class="portlet light smmallpadding bordered ">
-                    <div class="portlet-title">
-                        <div class="caption font-green">
-                            <i class="icon-pin font-green"></i>
-                            <span class="caption-subject bold uppercase">Cargar Evidencia</span>
-                        </div>
-                        <div class="actions">
-                            <div class="btn-group">
-                            </div>
-                        </div>
-                        <div class="tools">
-                            <a href="javascript:;" class="collapse"></a>
-                            <a href="javascript:$('#dropmodal').modal('hide');" style="color:gray;" ><i class="fa fa-remove"></i></a>
-                        </div>
-                    </div>
-                    <div class="portlet-body  ">
-                        <div id="my-dropzone" class="">
-                        </div>
-                    </div>
-
-                     <div style="text-align: center!important">
-                        <br />
-                        <button id="btnCerrarModal" runat="server" type="button" class="btn default" data-dismiss="modal">Cerrar</button>
-                        <br />
-                    </div>
-                </div>
-               
-            </div>
-        </div>
-    </div>
-
-
- 
-    <div id="ModalAnexos" class="modal ADS fade" role="dialog">
-        <div class="modal-dialog">
-
-            <asp:UpdatePanel ID="UpModalAnexos" UpdateMode="Conditional" runat="server">
-                <ContentTemplate>
-
-                    <!-- Modal content-->
-                    <div class="modal-content">
-                        <div class="modal-header ">
-                            <button type="button" class="close" data-dismiss="modal">&times;</button>
-                            <h4 class="modal-title">
-                                <asp:Label runat="server" ID="LblTituloModalAnexo"></asp:Label></h4>
-                        </div>
-
-                        <div class="modal-body">
-                            <div class="row">
-
-                                <div class="col-md-12" style="text-align:center!important;text-align:center!important" >
-                                <asp:GridView ID="GvAnexos" AutoGenerateColumns="false" runat="server" ShowHeaderWhenEmpty="true" EmptyDataText="No se encontraron archivos" Width="250px"
-                                    DataKeyNames="Archivo" CssClass="table GVEstimacion table-advance table-hover" GridLines ="None">
-                                    <Columns>
-                                        <asp:TemplateField HeaderText="Anexos">
-                                            <ItemTemplate>
-
-                                                <asp:LinkButton ID="LnkArchivo" runat="server" OnClick="LnkArchivo_Click"></asp:LinkButton>
-
-                                            </ItemTemplate>
-                                        </asp:TemplateField>
-                                    </Columns>
-                                </asp:GridView>
-
-                                    </div>
-                            </div>
-                        </div>
-                        <div class="modal-footer">
-                            <asp:UpdatePanel runat="server">
-                                <ContentTemplate>
-                                    <button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
-                                </ContentTemplate>
-                            </asp:UpdatePanel>
-                        </div>
-                    </div>
-
-                </ContentTemplate>
-            </asp:UpdatePanel>
-        </div>
-    </div>
- 
-       
-
-
-    <script src="/Metronic/assets/global/plugins/dropzone/dropzone.js"></script> 
-
-    <%--<script src="../Scripts/dropzone/dropzone.min.js"></script>--%>
-</asp:Content>
-<asp:Content ID="Content7" ContentPlaceHolderID="JS" Runat="Server">
-    
     <script>
 
         jQuery(document).ready(function () {
@@ -287,7 +282,7 @@
             Sys.Application.add_load(function (s, e) {
                 $(".linkfile").click(function () {
                     showmodalFile($(this).find('input').attr('id'));
-                }); 
+                });
             });
         });
         function showmodalFile(obj) {
@@ -296,7 +291,7 @@
             $('#' + obj).data("urldown", '<%= url%>/Ashx/SIGWeb.ashx');
             $('#' + obj).data("urlget", '<%= url %>/Temp/');
             ADDropzone(obj);
-            $('#dropmodal').modal(); 
+            $('#dropmodal').modal();
         }
         function ValidateCant(variable) {
 
@@ -330,6 +325,6 @@
 
         }
         //);
-    </script>
+    </script>
-</asp:Content>
+</asp:Content>
-
+

Contratos/ContratoObraAutorizacion.aspx.vb

@@ -137,11 +137,6 @@ Partial Class Contratos_ContratoObraAutorizacion
         DDlContratosEstimaciones.DataBind()
     End Sub
 
-
-
-
-
-
     Protected Sub GetAnexos(sender As Object, e As System.EventArgs)
         Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
 
@@ -219,11 +214,8 @@ Partial Class Contratos_ContratoObraAutorizacion
             If DTEstimaciones.Rows.Count > 0 Then
                 CveEstimacionActual = DTEstimaciones.FiltroPrimeroValor("CveEstimacion", "CveEstimacion > 0").ToString.ToEntero
             End If
-
-
         End If
 
-
         ObjContratos.Dispose()
 
 
@@ -263,9 +255,6 @@ Partial Class Contratos_ContratoObraAutorizacion
                     e.Row.CssClass = "SubTotales3"
                 End If
 
-
-
-
             End If
 
             If e.Row.DBCampo("CveContratoDetalle").ToString.ToEntero > 0 Then
@@ -638,7 +627,6 @@ Partial Class Contratos_ContratoObraAutorizacion
         Dim ErrorProceso As Boolean = True
 
 
-
         Dim ObjContrato As New ClsContratos
 
         If ObjContrato.RemoveContratosAvance(CveContratoAvance, UsuarioActual.CveEmpresa) Then
@@ -650,7 +638,7 @@ Partial Class Contratos_ContratoObraAutorizacion
         If Not ErrorProceso Then
 
             CargaAvancesParaEstimar()
-            Alert("Avance elimiando correctamente.")
+            Alert("Avance eliminado correctamente.")
         End If
 
 

Empresas/119/Formatos/SobreRecibo.rdlc

@@ -338,6 +338,12 @@
                                     <FontSize>9pt</FontSize>
                                   </Style>
                                 </TextRun>
+                                <TextRun>
+                                  <Value>=Parameters!FolioFiscal.Value</Value>
+                                  <Style>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
                               </TextRuns>
                               <Style />
                             </Paragraph>
@@ -358,51 +364,14 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
-                        <ColSpan>4</ColSpan>
+                        <ColSpan>9</ColSpan>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell />
                     <TablixCell />
                     <TablixCell />
-                    <TablixCell>
+                    <TablixCell />
-                      <CellContents>
-                        <Textbox Name="Textbox195">
-                          <CanGrow>true</CanGrow>
-                          <KeepTogether>true</KeepTogether>
-                          <Paragraphs>
-                            <Paragraph>
-                              <TextRuns>
-                                <TextRun>
-                                  <Value />
-                                  <Style>
-                                    <FontSize>9pt</FontSize>
-                                  </Style>
-                                </TextRun>
-                              </TextRuns>
-                              <Style>
-                                <TextAlign>Center</TextAlign>
-                              </Style>
-                            </Paragraph>
-                          </Paragraphs>
-                          <rd:DefaultName>Textbox195</rd:DefaultName>
-                          <Style>
-                            <Border>
-                              <Style>None</Style>
-                            </Border>
-                            <BottomBorder>
-                              <Color>Black</Color>
-                              <Style>Solid</Style>
-                              <Width>1pt</Width>
-                            </BottomBorder>
-                            <PaddingLeft>2pt</PaddingLeft>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
-                          </Style>
-                        </Textbox>
-                        <ColSpan>5</ColSpan>
-                      </CellContents>
-                    </TablixCell>
                     <TablixCell />
                     <TablixCell />
                     <TablixCell />
@@ -720,7 +689,7 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value />
+                                  <Value>=Parameters!RFC.Value</Value>
                                   <Style>
                                     <FontSize>9pt</FontSize>
                                   </Style>
@@ -4121,7 +4090,7 @@
       <Width>7.96802in</Width>
       <Page>
         <PageFooter>
-          <Height>0.55135cm</Height>
+          <Height>0.60882cm</Height>
           <PrintOnFirstPage>true</PrintOnFirstPage>
           <PrintOnLastPage>true</PrintOnLastPage>
           <ReportItems>
@@ -4138,18 +4107,6 @@
                         <FontWeight>Bold</FontWeight>
                       </Style>
                     </TextRun>
-                    <TextRun>
-                      <Value>=Today</Value>
-                      <Style>
-                        <FontSize>8pt</FontSize>
-                      </Style>
-                    </TextRun>
-                    <TextRun>
-                      <Value xml:space="preserve"> </Value>
-                      <Style>
-                        <FontSize>8pt</FontSize>
-                      </Style>
-                    </TextRun>
                   </TextRuns>
                   <Style />
                 </Paragraph>
@@ -4158,7 +4115,117 @@
               <Top>0.08364cm</Top>
               <Left>0.10282cm</Left>
               <Height>0.46771cm</Height>
-              <Width>6.92282cm</Width>
+              <Width>2.66303cm</Width>
+              <Style>
+                <Border>
+                  <Style>None</Style>
+                </Border>
+                <PaddingLeft>2pt</PaddingLeft>
+                <PaddingRight>2pt</PaddingRight>
+                <PaddingTop>2pt</PaddingTop>
+                <PaddingBottom>2pt</PaddingBottom>
+              </Style>
+            </Textbox>
+            <Textbox Name="Textbox84">
+              <CanGrow>true</CanGrow>
+              <KeepTogether>true</KeepTogether>
+              <Paragraphs>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value>=Today</Value>
+                      <Style>
+                        <FontSize>8pt</FontSize>
+                        <Format>D</Format>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style />
+                </Paragraph>
+              </Paragraphs>
+              <rd:DefaultName>Textbox5</rd:DefaultName>
+              <Top>0.08364cm</Top>
+              <Left>2.8364cm</Left>
+              <Height>0.46771cm</Height>
+              <Width>3.93303cm</Width>
+              <ZIndex>1</ZIndex>
+              <Style>
+                <Border>
+                  <Style>None</Style>
+                </Border>
+                <PaddingLeft>2pt</PaddingLeft>
+                <PaddingRight>2pt</PaddingRight>
+                <PaddingTop>2pt</PaddingTop>
+                <PaddingBottom>2pt</PaddingBottom>
+              </Style>
+            </Textbox>
+            <Textbox Name="Textbox85">
+              <CanGrow>true</CanGrow>
+              <KeepTogether>true</KeepTogether>
+              <Paragraphs>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value>Impreso en SIG</Value>
+                      <Style>
+                        <FontSize>8pt</FontSize>
+                        <FontWeight>Bold</FontWeight>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style>
+                    <TextAlign>Center</TextAlign>
+                  </Style>
+                </Paragraph>
+              </Paragraphs>
+              <rd:DefaultName>Textbox5</rd:DefaultName>
+              <Top>0.14111cm</Top>
+              <Left>8.46543cm</Left>
+              <Height>0.46771cm</Height>
+              <Width>2.66303cm</Width>
+              <ZIndex>2</ZIndex>
+              <Style>
+                <Border>
+                  <Style>None</Style>
+                </Border>
+                <PaddingLeft>2pt</PaddingLeft>
+                <PaddingRight>2pt</PaddingRight>
+                <PaddingTop>2pt</PaddingTop>
+                <PaddingBottom>2pt</PaddingBottom>
+              </Style>
+            </Textbox>
+            <Textbox Name="Textbox86">
+              <CanGrow>true</CanGrow>
+              <KeepTogether>true</KeepTogether>
+              <Paragraphs>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value>Imprimio:</Value>
+                      <Style>
+                        <FontSize>8pt</FontSize>
+                        <FontWeight>Bold</FontWeight>
+                      </Style>
+                    </TextRun>
+                    <TextRun>
+                      <Value>=Parameters!Usuario.Value</Value>
+                      <Style>
+                        <FontSize>8pt</FontSize>
+                        <FontWeight>Normal</FontWeight>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style>
+                    <TextAlign>Left</TextAlign>
+                  </Style>
+                </Paragraph>
+              </Paragraphs>
+              <rd:DefaultName>Textbox5</rd:DefaultName>
+              <Top>0.14111cm</Top>
+              <Left>14.37918cm</Left>
+              <Height>0.46771cm</Height>
+              <Width>5.85958cm</Width>
+              <ZIndex>3</ZIndex>
               <Style>
                 <Border>
                   <Style>None</Style>
@@ -4283,6 +4350,18 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="Usuario">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FolioFiscal">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <rd:ReportUnitType>Cm</rd:ReportUnitType>
   <rd:ReportID>40c94aad-a12a-44fb-ab0d-ea36a9656792</rd:ReportID>

Empresas/146/Formatos/Cotizacion.rdlc

@@ -1245,25 +1245,7 @@
             <Width>2pt</Width>
           </Border>
         </Style>
-      </Line>
+      </Line>      
-      <Image Name="Image9">
-        <Source>Embedded</Source>
-        <Value>VISTAPREVIA22</Value>
-        <Sizing>FitProportional</Sizing>
-        <Top>0.01389in</Top>
-        <Left>7.40306in</Left>
-        <Height>6.34944in</Height>
-        <Width>0.09753in</Width>
-        <ZIndex>20</ZIndex>
-        <Visibility>
-          <Hidden>=IIf(Parameters!CveVenta.Value &gt; 0, True,False)</Hidden>
-        </Visibility>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-        </Style>
-      </Image>
     </ReportItems>
     <Height>6.36333in</Height>
     <Style />

Empresas/158/Formatos/Factura.rdlc

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2016/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
   <AutoRefresh>0</AutoRefresh>
   <DataSources>
     <DataSource Name="DsOC">
@@ -4892,434 +4892,7 @@
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
   </ReportParameters>
-  <ReportParametersLayout>
+  
-    <GridLayoutDefinition>
-      <NumberOfColumns>2</NumberOfColumns>
-      <NumberOfRows>42</NumberOfRows>
-      <CellDefinitions>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>0</RowIndex>
-          <ParameterName>ClienteCodigo</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>0</RowIndex>
-          <ParameterName>ClienteNombre</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>1</RowIndex>
-          <ParameterName>ClienteDireccion</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>1</RowIndex>
-          <ParameterName>ClienteLugar</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>2</RowIndex>
-          <ParameterName>ClienteTelefono</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>2</RowIndex>
-          <ParameterName>ClienteContacto</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>3</RowIndex>
-          <ParameterName>ClienteContactoMail</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>3</RowIndex>
-          <ParameterName>ClienteCalle</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>4</RowIndex>
-          <ParameterName>ClienteColonia</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>4</RowIndex>
-          <ParameterName>ClienteCiudad</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>5</RowIndex>
-          <ParameterName>ClienteMunicipio</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>5</RowIndex>
-          <ParameterName>ClienteEstado</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>6</RowIndex>
-          <ParameterName>ClienteCP</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>6</RowIndex>
-          <ParameterName>ClientePais</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>7</RowIndex>
-          <ParameterName>ClienteNoInt</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>7</RowIndex>
-          <ParameterName>ClienteNoExt</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>8</RowIndex>
-          <ParameterName>ClienteRFC</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>8</RowIndex>
-          <ParameterName>ImporteLetra</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>9</RowIndex>
-          <ParameterName>Observaciones</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>9</RowIndex>
-          <ParameterName>CveVendedor</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>10</RowIndex>
-          <ParameterName>Status</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>10</RowIndex>
-          <ParameterName>FechaSolicitud</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>11</RowIndex>
-          <ParameterName>Folio</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>11</RowIndex>
-          <ParameterName>Descuento</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>12</RowIndex>
-          <ParameterName>SubTotal</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>12</RowIndex>
-          <ParameterName>IVA</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>13</RowIndex>
-          <ParameterName>Total</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>13</RowIndex>
-          <ParameterName>Fecha</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>14</RowIndex>
-          <ParameterName>DomicilioSucursal</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>14</RowIndex>
-          <ParameterName>MetodoPago</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>15</RowIndex>
-          <ParameterName>Vencimiento</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>15</RowIndex>
-          <ParameterName>FolioFiscal</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>16</RowIndex>
-          <ParameterName>FechaCertificacion</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>16</RowIndex>
-          <ParameterName>SelloCFDI</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>17</RowIndex>
-          <ParameterName>CadenaSAT</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>17</RowIndex>
-          <ParameterName>SelloSAT</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>18</RowIndex>
-          <ParameterName>CiudadSucursal</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>18</RowIndex>
-          <ParameterName>Serie</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>19</RowIndex>
-          <ParameterName>QR</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>19</RowIndex>
-          <ParameterName>FormaPago</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>20</RowIndex>
-          <ParameterName>LogoPath</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>20</RowIndex>
-          <ParameterName>VendedorNombre</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>21</RowIndex>
-          <ParameterName>VendedorCelular</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>21</RowIndex>
-          <ParameterName>VendedorMail</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>22</RowIndex>
-          <ParameterName>VendedorTelefono</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>22</RowIndex>
-          <ParameterName>Moneda</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>23</RowIndex>
-          <ParameterName>TipoCambio</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>23</RowIndex>
-          <ParameterName>CondicionPago</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>24</RowIndex>
-          <ParameterName>CadenaOriginal</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>24</RowIndex>
-          <ParameterName>SerieCertificadoSAT</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>25</RowIndex>
-          <ParameterName>Tipo</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>25</RowIndex>
-          <ParameterName>NumCta</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>26</RowIndex>
-          <ParameterName>CertificadoContribuyente</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>26</RowIndex>
-          <ParameterName>Amortizacion</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>27</RowIndex>
-          <ParameterName>SubTotal2</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>27</RowIndex>
-          <ParameterName>RetIVA</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>28</RowIndex>
-          <ParameterName>RetISR</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>28</RowIndex>
-          <ParameterName>TipoDocumento</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>29</RowIndex>
-          <ParameterName>AplicaPagare</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>29</RowIndex>
-          <ParameterName>Ref</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>30</RowIndex>
-          <ParameterName>Sucursal</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>30</RowIndex>
-          <ParameterName>ClienteDiasCredito</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>31</RowIndex>
-          <ParameterName>OC</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>31</RowIndex>
-          <ParameterName>MonedaAbreviatura</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>32</RowIndex>
-          <ParameterName>UsuarioImprimio</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>32</RowIndex>
-          <ParameterName>FechaImpresion</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>33</RowIndex>
-          <ParameterName>EnvioDireccion</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>33</RowIndex>
-          <ParameterName>EnvioColonia</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>34</RowIndex>
-          <ParameterName>EnvioCiudad</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>34</RowIndex>
-          <ParameterName>EnvioEstado</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>35</RowIndex>
-          <ParameterName>EnvioCP</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>35</RowIndex>
-          <ParameterName>EnvioNoExt</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>36</RowIndex>
-          <ParameterName>EnvioNoInt</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>36</RowIndex>
-          <ParameterName>EnvioContacto</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>37</RowIndex>
-          <ParameterName>EnvioDepartamento</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>37</RowIndex>
-          <ParameterName>EstatusFactura</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>38</RowIndex>
-          <ParameterName>EstatusEntrega</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>38</RowIndex>
-          <ParameterName>PedidoContrato</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>39</RowIndex>
-          <ParameterName>DescripcionContrato</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>39</RowIndex>
-          <ParameterName>OrdenCompra</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>40</RowIndex>
-          <ParameterName>UsoCFDI</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>40</RowIndex>
-          <ParameterName>TipoRelacionTexto</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>0</ColumnIndex>
-          <RowIndex>41</RowIndex>
-          <ParameterName>FolioFiscalRelacionado</ParameterName>
-        </CellDefinition>
-        <CellDefinition>
-          <ColumnIndex>1</ColumnIndex>
-          <RowIndex>41</RowIndex>
-          <ParameterName>Contrato</ParameterName>
-        </CellDefinition>
-      </CellDefinitions>
-    </GridLayoutDefinition>
-  </ReportParametersLayout>
   <EmbeddedImages>
     <EmbeddedImage Name="Logo119">
       <MIMEType>image/png</MIMEType>

Inventarios/InventarioFisicoDetalle.aspx

@@ -1,98 +1,6 @@
 <%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="InventarioFisicoDetalle.aspx.vb" Inherits="Inventarios_InventarioFisicoDetalle" %>
 
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
-    <style>
-        #C_TxtHoraInicio_picker {
-            position: fixed !important;
-        }
-
-        .grides > tbody > tr > td:nth-child(3), .grides > tbody > tr > td:nth-child(3) {
-            width: 250px;
-        }
-
-        #C_myhidenbutton {
-            display: none;
-        }
-
-        .psagregar {
-            width: 450px;
-        }
-
-            .psagregar > div.comboxes {
-                display: inline-block;
-                width: 400px;
-            }
-
-        .table-scrollable {
-            margin-top: 0px !important;
-            margin-bottom: 0px !important;
-        }
-
-        .Widthall {
-            width: 100% !important;
-        }
-
-        .dataTables_scrollHeadInner {
-            width: 100% !important;
-            background-color: #dddddd;
-            padding-left: 0px !important;
-        }
-
-        .dataTables_scrollFoot {
-            display: none;
-            position: static;
-        }
-
-        .table-scrollable {
-            margin: 0px !important;
-        }
-
-        .dataTables_scroll {
-            margin-bottom: 0px;
-        }
-
-        .table.dataTable {
-            margin-top: 0px !important;
-        }
-
-        .dataTables_scrollBody table th {
-            padding: 0px !important;
-            padding-right: 4px !important;
-            padding-left: 4px !important;
-        }
-
-        .sinlink td a {
-            pointer-events: none;
-            cursor: default;
-            color: black;
-            font-size: small;
-        }
-
-        .white a {
-            color: white !important;
-        }
-
-        .Derecha {
-            text-align: right;
-        }
-
-        .Izquierda {
-            text-align: left;
-        }
-
-        .SinColor th {
-            background-color: white;
-        }
-
-        .divmodal{
-            width: 500px;
-        }
-        .center {
-            float: none;
-            margin-left: auto;
-            margin-right: auto;
-        }
-    </style>
 
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
@@ -342,7 +250,8 @@
             <div class="row">
                 <label class="col-md-2"><b>Ultimo Registrado: </b></label>
                 <div class="col-md-8">
-                    <asp:GridView ID="GvIFDUltimoRegistrado" ClientIDMode="Static" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" GridLines="None" DataKeyNames="CveInventarioFisicoDetalle" ShowHeaderWhenEmpty="True" CssClass="table table-striped table-hover Widthall">
+                    <asp:GridView ID="GvIFDUltimoRegistrado" ClientIDMode="Static" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" GridLines="None" DataKeyNames="CveInventarioFisicoDetalle" 
+                        ShowHeaderWhenEmpty="True" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn">
                         <Columns>
                            <asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center">
                                 <ItemTemplate>   
@@ -367,98 +276,103 @@
                     <asp:Button ID="BtnVerRegistrados" OnClick="BtnVerRegistrados_Click" runat="server" CssClass="btn btn-primary btn-sm" Text="Ver Registrados" />
                 </div>
             </div>
-            <br />
+            <div class="row">
-             <div class="row col-md-4" align="left" id="divRegistrados" runat="server">
+                <br />
-                    <asp:Label runat="server">Número de registros: <b><asp:Literal ID="LtlTotalRegistros" runat="server"></asp:Literal></b></asp:Label>
+                 <div class="row col-md-4" align="left" id="divRegistrados" runat="server">
+                        <asp:Label runat="server">Número de registros: <b><asp:Literal ID="LtlTotalRegistros" runat="server"></asp:Literal></b></asp:Label>
+                </div>
+                <div class="row col-md-8" align="right" id="DivBuscador" runat="server">
+                    <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="return Filtrar(event);" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                    <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvIFD.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                    <div style="display: inline-block;" id="SumFiltra"></div>
+                </div>
             </div>
-            <div class="row col-md-8" align="right" id="DivBuscador" runat="server">
+                <asp:GridView ID="GvIFD" ClientIDMode="Static" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" GridLines="None" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn"
-                <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="return Filtrar(event);" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                    DataKeyNames="CveInventarioFisicoDetalle, CvePS, SerieLote, Lote, FechaCaducidad, Cantidad, CveUnidadMedida, AplicaSerie, AplicaLote, AplicaCaducidad"  ShowHeaderWhenEmpty="True" ShowHeader="True" >
-                <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvIFD.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                    <Columns>
-                <div style="display: inline-block;" id="SumFiltra"></div>
+                        <asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center">
-            </div>
+                            <ItemTemplate>   
-            <asp:GridView ID="GvIFD" ClientIDMode="Static" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" GridLines="None" DataKeyNames="CveInventarioFisicoDetalle, CvePS, SerieLote, Lote, FechaCaducidad, Cantidad, CveUnidadMedida, AplicaSerie, AplicaLote, AplicaCaducidad" ShowHeaderWhenEmpty="True" CssClass="table table-striped table-hover Widthall">
+                                <asp:Literal runat="server" ID="ltlFecha" Text='<%#Eval("FechaInvFisico")%>'></asp:Literal>
-                <Columns>
+                            </ItemTemplate>
-                    <asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center">
+                            <HeaderStyle Width="160px"/>
-                        <ItemTemplate>   
+                        </asp:TemplateField>
-                            <asp:Literal runat="server" ID="ltlFecha" Text='<%#Eval("FechaInvFisico")%>'></asp:Literal>
+                        <asp:BoundField HeaderText="Código Barras" DataField="CodigoBarras" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
-                        </ItemTemplate>
+                        <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
-                        <HeaderStyle Width="160px"/>
+                        <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
-                    </asp:TemplateField>
+                        <asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" ItemStyle-HorizontalAlign="Left" Visible="false"></asp:BoundField>
-                    <asp:BoundField HeaderText="Código Barras" DataField="CodigoBarras" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
+                        <asp:BoundField HeaderText="Serie/Lote" DataField="SerieLote" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
-                    <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
+                        <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" Visible="false"></asp:BoundField>
-                    <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
+                        <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" Visible="false" DataFormatString="{0:d}"></asp:BoundField>
-                    <asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" ItemStyle-HorizontalAlign="Left" Visible="false"></asp:BoundField>
+                        <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="70px"></asp:BoundField>
-                    <asp:BoundField HeaderText="Serie/Lote" DataField="SerieLote" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
+                        <asp:BoundField HeaderText="Mal Estado" DataField="MalEstado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="70px"></asp:BoundField>
-                    <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" Visible="false"></asp:BoundField>
+                        <asp:BoundField HeaderText="No Vendible" DataField="NoVendible" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="70px"></asp:BoundField>
-                    <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" Visible="false" DataFormatString="{0:d}"></asp:BoundField>
-                    <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="70px"></asp:BoundField>
-                    <asp:BoundField HeaderText="Mal Estado" DataField="MalEstado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="70px"></asp:BoundField>
-                    <asp:BoundField HeaderText="No Vendible" DataField="NoVendible" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="70px"></asp:BoundField>
 
-                    <asp:TemplateField HeaderText="Comandos" ItemStyle-HorizontalAlign="Center">
+                        <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Comandos">
-                        <ItemTemplate>
+                            <ItemTemplate>
-                            <asp:LinkButton ID="LnkEditar" OnClick="LnkEditar_Click" runat="server" AlternateText="Editar" CssClass="btn btn-circle btn-xs green" Text="<i class='fa fa-pencil'></i>" />
+                                <asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="Edit_Click" Text="<i class='fa fa-pencil'></i>" />
-                            <asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-xs red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Estas seguro que desea eliminar el registro?" data-btn-ok-label="si" />
+                                <asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" OnClick="Delete_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
-                        </ItemTemplate>
+                            </ItemTemplate>
-                        <ItemStyle HorizontalAlign="Center"/>
+                        </asp:TemplateField>
-                    </asp:TemplateField>
+                    </Columns>
-                </Columns>
+                </asp:GridView>
-            </asp:GridView>
         </ContentTemplate>
-        <Triggers>
+
-            <asp:AsyncPostBackTrigger ControlID="ddlUsuario" EventName="SelectedIndexChanged" />
-        </Triggers>
     </asp:UpdatePanel>
 
 
-        <div id="ModalEditarPS" class="modal ADS fade centered" role="dialog">
+        <div id="ModalEditarPS" class="modal ADS fade" role="dialog">
-        <div class="modal-dialog" id="modal">
+            <div class="modal-dialog">
-            <asp:UpdatePanel ID="UpAddInventarioFisico" class="modal-content divmodal" tabindex="-1" runat="server" UpdateMode="Conditional">
+                <asp:UpdatePanel ID="UpAddInventarioFisico" tabindex="-1" runat="server" UpdateMode="Conditional">
-                <ContentTemplate>
+                    <ContentTemplate>
-                    <div class="modal-header">
+                        <div class="modal-content">
-                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                            <div class="modal-header">
-                            <span aria-hidden="true">&times;</span>
+                                <button type="button" class="close" data-dismiss="modal" aria-label="Close">
-                        </button>
+                                <span aria-hidden="true">&times;</span>
-                        <h4 class="modal-title" id="myModalLabel" runat="server">Editar PS</h4>
-                    </div>
-                    <div class="modal-body">
-                        <asp:UpdatePanel ID="UpEditarPS" UpdateMode="Conditional" runat="server">
-                            <ContentTemplate>
-                                <asp:HiddenField ID="HfCveInventarioFisicoDetalle" Value="" runat="server"/>
-                                <asp:HiddenField ID="HfCvePS" Value="" runat="server"/>
-                                <asp:HiddenField ID="HfCveUM" Value="" runat="server"/>
-                                <div class="form-group form-md-line-input input-iconright" id="DivSerieEdit" runat="server">
-                                    <asp:TextBox ID="TxtSerieLote" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="500" Width="175px"></asp:TextBox>
-                                    <label for="<%= TxtSerieLote.ClientID.ToString()%>">Serie:</label>
-                                </div>
-                                <div class="form-group form-md-line-input input-iconright" id="DivLoteEdit" runat="server">
-                                    <asp:TextBox ID="TxtLoteEdit" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="500" Width="175px"></asp:TextBox>
 
-                                    <label for="<%= TxtLoteEdit.ClientID.ToString()%>">Lote:</label>
+                                </button>
-                                </div>
+                                <h4 class="modal-title" id="myModalLabel" runat="server">Editar PS</h4>
-                                <div class="form-group form-md-line-input input-iconright" id="DivFechaEdit" runat="server">
+                            </div>
-                                    <asp:TextBox ID="TxtFechaCaducida" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="500" Width="175px"></asp:TextBox>
+                            <div class="modal-body">
-                                    <label for="<%= TxtFechaCaducida.ClientID.ToString()%>">Fecha Caducida:</label>
+                                <asp:UpdatePanel ID="UpEditarPS" UpdateMode="Conditional" runat="server">
-                                </div>
+                                    <ContentTemplate>
-                                <div class="form-group form-md-line-input input-iconright" id="DivCantidadEdit" runat="server">
+                                        <asp:HiddenField ID="HfCveInventarioFisicoDetalle" Value="" runat="server"/>
-                                    <asp:TextBox ID="TxtCantidad" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="500" Width="175px"></asp:TextBox>
+                                        <asp:HiddenField ID="HfCvePS" Value="" runat="server"/>
-                                    <label for="<%= TxtCantidad.ClientID.ToString()%>">Cantidad:</label>
+                                        <asp:HiddenField ID="HfCveUM" Value="" runat="server"/>
-                                </div>
+                                        <div class="form-group form-md-line-input input-iconright" id="DivSerieEdit" runat="server">
-                                <div class="modal-footer">
+                                            <asp:TextBox ID="TxtSerieLote" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="500" Width="175px"></asp:TextBox>
-                                    <asp:UpdatePanel ID="UpFooter" runat="server" UpdateMode="Conditional">
+                                            <label for="<%= TxtSerieLote.ClientID.ToString()%>">Serie:</label>
-                                        <ContentTemplate>
+                                        </div>
-                                            <asp:LinkButton ID="BtnGuadarEditarPS" OnClick="BtnGuadarEditarPS_Click" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpObligatorio"> <i class='material-icons'>done_all</i>  Guardar</asp:LinkButton>
+                                        <div class="form-group form-md-line-input input-iconright" id="DivLoteEdit" runat="server">
-                                            <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                                            <asp:TextBox ID="TxtLoteEdit" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="500" Width="175px"></asp:TextBox>
-                                        </ContentTemplate>
+
-                                    </asp:UpdatePanel>
+                                            <label for="<%= TxtLoteEdit.ClientID.ToString()%>">Lote:</label>
-                                </div>
+                                        </div>
-                            </ContentTemplate>
+                                        <div class="form-group form-md-line-input input-iconright" id="DivFechaEdit" runat="server">
-                        </asp:UpdatePanel>
+                                            <asp:TextBox ID="TxtFechaCaducida" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="500" Width="175px"></asp:TextBox>
-                    </div>
+                                            <label for="<%= TxtFechaCaducida.ClientID.ToString()%>">Fecha Caducida:</label>
-                </ContentTemplate>
+                                        </div>
-            </asp:UpdatePanel>
+                                        <div class="form-group form-md-line-input input-iconright" id="DivCantidadEdit" runat="server">
+                                            <asp:TextBox ID="TxtCantidad" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="500" Width="175px"></asp:TextBox>
+                                            <label for="<%= TxtCantidad.ClientID.ToString()%>">Cantidad:</label>
+                                        </div>
+                                        
+                                    </ContentTemplate>
+                                </asp:UpdatePanel>
+
+                            </div>
+                            <div class="modal-footer">
+                                <asp:UpdatePanel ID="UpFooter" runat="server" UpdateMode="Conditional">
+                                    <ContentTemplate>
+                                        <asp:LinkButton ID="BtnGuadarEditarPS" OnClick="BtnGuadarEditarPS_Click" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpObligatorio"> <i class='material-icons'>done_all</i>  Guardar</asp:LinkButton>
+                                        <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                                    </ContentTemplate>
+                                </asp:UpdatePanel>
+                            </div>
+                        </div>
+                    </ContentTemplate>
+                </asp:UpdatePanel>
+            </div>
         </div>
-    </div>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
 

Inventarios/InventarioFisicoDetalle.aspx.vb

@@ -86,8 +86,6 @@ Partial Class Inventarios_InventarioFisicoDetalle
         GvIFD.DataBind()
 
         If (GvIFD.Rows.Count > 0) Then
-            GvIFD.UseAccessibleHeader = True
-            GvIFD.HeaderRow.TableSection = TableRowSection.TableHeader
             RegistraScript("OrdenarGV();")
         End If
 
@@ -319,11 +317,11 @@ Partial Class Inventarios_InventarioFisicoDetalle
         End If
         Inventario.Dispose()
         GvIFD.DataBind()
-        If (GvIFD.Rows.Count > 0) Then
+        'If (GvIFD.Rows.Count > 0) Then
-            GvIFD.UseAccessibleHeader = True
+        '    GvIFD.UseAccessibleHeader = True
-            GvIFD.HeaderRow.TableSection = TableRowSection.TableHeader
+        '    GvIFD.HeaderRow.TableSection = TableRowSection.TableHeader
-            RegistraScript("OrdenarGV();")
+        '    RegistraScript("OrdenarGV();")
-        End If
+        'End If
         UPPInventario.Update()
     End Sub
 #End Region
@@ -518,10 +516,14 @@ Partial Class Inventarios_InventarioFisicoDetalle
 #End Region
 
 #Region "  ELIMINAR  "
-    Protected Sub gvInventarioFisicoDetalle_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvIFD.RowDeleting
+    Public Sub Delete_Click(sender As Object, e As EventArgs)
+
+        Dim ObjInventario As New ClsInventarios()
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
         If ddlUsuario.SelectedValue = UsuarioActual.CveUsuario.ToString OrElse UsuarioActual.TienePermisoProceso(283) Then
             Dim Inventarios As New ClsInventarios
-            Dim Retorno As Boolean = Inventarios.RemoveInventarioFisicoDetalles(GvIFD.DataKeys(e.RowIndex).Value.ToString.ToEntero())
+            Dim Retorno As Boolean = Inventarios.RemoveInventarioFisicoDetalles(GvRow.DataKey("CveInventarioFisicoDetalle").ToString.ToEntero)
 
             If Retorno Then
                 If Inventarios.GetInventarioFisicoDetalle(CveInventarioFisico, ddlUsuario.SelectedValue.ToString.ToEntero) Then
@@ -532,18 +534,18 @@ Partial Class Inventarios_InventarioFisicoDetalle
             Inventarios.Dispose()
             GvIFD.DataBind()
 
-            If (GvIFD.Rows.Count > 0) Then
+            'If (GvIFD.Rows.Count > 0) Then
-                GvIFD.UseAccessibleHeader = True
+            '    GvIFD.UseAccessibleHeader = True
-                GvIFD.HeaderRow.TableSection = TableRowSection.TableHeader
+            '    GvIFD.HeaderRow.TableSection = TableRowSection.TableHeader
-                RegistraScript("OrdenarGV();")
+            '    RegistraScript("OrdenarGV();")
-            End If
+            'End If
 
             UPPInventario.Update()
             UPAgregarPro.Update()
         Else
             Alert("No se puede eliminar un producto registrado por otro usuario.", TipoMensaje.MsgAdvertencia)
             RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
-        End If
+        End If
     End Sub
 #End Region
 
@@ -658,7 +660,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
     Private Sub LnkExcelUniverso_Click(sender As Object, e As EventArgs) Handles LnkExcelUniverso.Click
         Dim IncluyePS, ExcluyePS, IncluyeClasificacion, ExcluyeClasificacion, IncluyeProveedor As New StringBuilder
         Dim ObjInventario As New ClsInventarios
-        Dim DtPS As DataTable
+        Dim DtPS As DataTable = Nothing
         If ObjInventario.GetInventarioFisicoUniversoProductos(CveInventarioFisico, UsuarioActual.CveEmpresa) Then
             If ObjInventario.DtResultados.Rows.Count > 0 Then
                 DtPS = ObjInventario.DtResultados.FiltraParametros("", "", {"Codigo", "PS", "Clasificacion", "RazonSocial"})
@@ -666,6 +668,8 @@ Partial Class Inventarios_InventarioFisicoDetalle
                 Alert("Error al consultar la informacion")
             End If
         End If
+        ObjInventario.Dispose()
+
         Dim NombreArchivo As String
         SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
         Dim workbook As New ExcelFile()
@@ -731,7 +735,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
     '    UPAgregarPro.Update()
     'End Sub
 
-    Protected Sub LnkEditar_Click(sender As Object, e As EventArgs)
+    Protected Sub Edit_Click(sender As Object, e As EventArgs)
 
         Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
         LimpiarModal()
@@ -744,16 +748,18 @@ Partial Class Inventarios_InventarioFisicoDetalle
         TxtLoteEdit.Text = If(Convert.ToBoolean(GvRow.DataKey("AplicaLote").ToString), GvRow.DataKey("Lote").ToString, "")
         TxtFechaCaducida.Text = If(Convert.ToBoolean(GvRow.DataKey("AplicaCaducidad").ToString), If(GvRow.DataKey("FechaCaducidad").ToString <> "", GvRow.DataKey("FechaCaducidad").ToString.ToDate.ToShortDateString, ""), "")
 
-        TxtSerieLote.Enabled = Convert.ToBoolean(GvRow.DataKey("AplicaSerie").ToString)
+        DivSerieEdit.Visible = Convert.ToBoolean(GvRow.DataKey("AplicaSerie").ToString)
-        TxtLoteEdit.Enabled = Convert.ToBoolean(GvRow.DataKey("AplicaLote").ToString)
+        DivLoteEdit.Visible = Convert.ToBoolean(GvRow.DataKey("AplicaLote").ToString)
-        TxtFechaCaducida.Enabled = Convert.ToBoolean(GvRow.DataKey("AplicaCaducidad").ToString)
+        DivFechaEdit.Visible = Convert.ToBoolean(GvRow.DataKey("AplicaCaducidad").ToString)
         TxtCantidad.Text = GvRow.DataKey("Cantidad").ToString
-        UpEditarPS.Update()
 
+        UpAddInventarioFisico.Update()
         RegistraScript("$('#ModalEditarPS').modal('show')")
     End Sub
 
 
+
+
     Private Sub LimpiarModal()
         HfCveInventarioFisicoDetalle.Value = ""
         HfCvePS.Value = ""
@@ -783,8 +789,6 @@ Partial Class Inventarios_InventarioFisicoDetalle
             GvIFD.DataBind()
 
             If (GvIFD.Rows.Count > 0) Then
-                GvIFD.UseAccessibleHeader = True
-                GvIFD.HeaderRow.TableSection = TableRowSection.TableHeader
                 RegistraScript("OrdenarGV();")
             End If
 

Inventarios/RepAnomalias.aspx.vb

@@ -175,6 +175,8 @@ Partial Class Inventarios_RepAnomalias
 
         If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvS.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
         If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvF.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
+        If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvC.Columns(8).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
+
 
 
         GvS.DataSource = dt.FiltraParametros("Diferencia < 0")

Inventarios/TraspasoAlmacen.aspx.vb

@@ -603,22 +603,25 @@ Partial Class Inventarios_TraspasoAlmacen
         Dim Retorno = True
 
         Dim ExistenciaEspecificada As Decimal
+        Dim PendienteporSurtir As Decimal
         Dim CantidadEnGrid As Decimal = DtMovimientos.SUMD("Cantidad", $"CvePS = {CvePS} AND CveUM = {CveUnidadMedida} {If(Serie <> "-1", $" AND Serie = '{Serie}'", "")}")
         Dim Existencia As Decimal
 
         Dim Inv As New ClsInventarios
         If Inv.GetExistenciasProducto(CvePS, CveUnidadMedida, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm")) Then
             'si hay existencia en almacen costeado, lo tengo que sacar
-            Existencia = Inv.DtResultados.FiltroPrimeroValor("ExistenciaFinal", String.Format("CVeAlmacen = {0}", DdlAlmacenOrigen.SelectedValue)).ToDecimal
+            Existencia = Inv.DtResultados.FiltroPrimeroValor("ExistenciaFinal", String.Format("CveAlmacen = {0}", DdlAlmacenOrigen.SelectedValue)).ToDecimal
+            PendienteporSurtir = Inv.DtResultados.FiltroPrimeroValor("PendientePorSurtir", String.Format("CveAlmacen = {0}", DdlAlmacenOrigen.SelectedValue)).ToDecimal
         End If
         'Existencia= Inv.GetExistenciasPS(CvePS, CveUnidadMedida, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), PendientePorSurtir:=1)
 
-        If Existencia > 0 Then
+        If Existencia > Cantidad Then
             'la primera vez valida, que la existencia global, cumpla, considerando lo pendiente por surtir
             'las segunda consulta, que tenga existencia, ya con los parametros especificos
             If (FechaCaducidad > MinFecha OrElse Not Serie.Contiene("", "-1") OrElse Not Lote.Contiene("", "-1")) Then
                 If Inv.GetExistenciasProducto(CvePS, CveUnidadMedida, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, Caducidad:=FechaCaducidad) Then
-                    ExistenciaEspecificada = Inv.DtResultados.FiltroPrimeroValor("ExistenciaFinal", String.Format("CVeAlmacen = {0}", DdlAlmacenOrigen.SelectedValue)).ToDecimal
+                    'aqui se toma la COLUMNA Existencia, porque ya está validado que hay existencia suficiente para surtir, considerando lo pendiente por surtir, entonces se asume no se tomará la serie/lote
+                    ExistenciaEspecificada = Inv.DtResultados.FiltroPrimeroValor("Existencia", String.Format("CveAlmacen = {0}", DdlAlmacenOrigen.SelectedValue)).ToDecimal
                 End If
                 'ExistenciaEspecificada = Inv.GetExistenciasPS(CvePS, CveUnidadMedida, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie, Lote:=Lote, FechaCaducidad:=FechaCaducidad, PendientePorSurtir:=-1)
                 Dim StrB As New StringBuilder

Metronic/assets/admin/layout/css/custom.css

@@ -1441,6 +1441,10 @@ select option, select {
 div.chksino input, span.chksino input {
     display: none;
 }
+.chksino label {
+    line-height: 23px;
+    vertical-align: top; 
+}
 
 div.chksino, span.chksino {
     border: 1px solid #B8B8B8;
@@ -1472,7 +1476,7 @@ div.chksino, span.chksino {
 
 .chksino label::before {
     content: 'Si ';
-    padding: 3px;
+    padding: 1px;
     padding-left: 15px !important;
     padding-right: 14px !important;
     font-size: 12px !important;
@@ -1485,7 +1489,7 @@ div.chksino, span.chksino {
 
 .chksino label::after {
     content: 'No';
-    padding: 3px;
+    padding: 1px;
     padding-left: 12px;
     padding-right: 12px;
     margin-left: 45px;

Nomina/Aguinaldo.aspx.cs

@@ -217,7 +217,7 @@ public partial class Nomina_Aguinaldo : ClsPaginas
                             if (CveNomina > 0)
                             {
 
-                                if (!objNomina.AddUPNom_NominasDetalles(objNomina.CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, Importe, ImporteGravado, ImporteExento, ImporteValor, UsuarioActual.CveUsuario))
+                                if (!objNomina.AddUPNom_NominasDetalles(objNomina.CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, Importe, ImporteGravado, ImporteExento, ImporteValor, UsuarioActual.CveUsuario, false, 1, 1, 1))
                                 {
                                     continuar = false;
                                 }

Nomina/Finiquito.aspx

@@ -114,7 +114,7 @@
                         <div class="portlet-body dtosEmpleado">
                             <div class="row ">
                                 <div class="col-sm-3">
-                                    <span class="bold">Codigo:</span>
+                                    <span class="bold">Código:</span>
                                     <br />
                                     <asp:HyperLink ID="HypCodigo" CssClass="LinkEmpleado TextLink" Text="--" runat="server"></asp:HyperLink>
                                 </div>
@@ -124,7 +124,10 @@
                                     <asp:HyperLink ID="HypEmpleado" CssClass="LinkEmpleado TextLink" Text="--" runat="server"></asp:HyperLink>
                                 </div>
                                 <div class="col-sm-3">
-                                    <span class="bold">Area geografica:</span>
+                                    <span class="bold">Área geográfica
+
+
+Corregido con https://www.corrector.co/es/:</span>
                                     <br />
                                     <asp:Literal ID="LtlAreaGeografica" runat="server">--</asp:Literal>
 
@@ -209,7 +212,7 @@
                                             <ajax:ValidatorCalloutExtender ID="vcoTxtFechaBaja" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtFechaBaja" Width="350px"></ajax:ValidatorCalloutExtender>
                                         </div>
                                         <div class="col-md-3">
-                                            ¿es liquidación?<br />
+                                            ¿Es liquidación?<br />
                                             <asp:CheckBox ID="ChkesLiquidacion" AutoPostBack="true" OnCheckedChanged="ChkesLiquidacion_CheckedChanged" CssClass="chksino" Text=" " runat="server" />
                                         </div>
                                         <div class="col-md-1">
@@ -225,13 +228,13 @@
                                         <div class="col-md-4">
                                             <div class="form-group form-md-line-input input-iconright">
                                                 <asp:TextBox ID="TxtDiasTransAnio" runat="server" Enabled="false" Text="--" CausesValidation="True" CssClass="form-control"></asp:TextBox>
-                                                <asp:Label runat="server" Text="Dias trans. en el año: " AssociatedControlID="TxtDiasTransAnio"></asp:Label>
+                                                <asp:Label runat="server" Text="Días trans. en el año: " AssociatedControlID="TxtDiasTransAnio"></asp:Label>
                                             </div>
                                         </div>
                                         <div class="col-md-4">
                                             <div class="form-group form-md-line-input input-iconright">
                                                 <asp:TextBox ID="TxtSalarioMinimo" runat="server" Enabled="false" Text="--" CausesValidation="True" CssClass="form-control"></asp:TextBox>
-                                                <asp:Label runat="server" Text="Salario minimo: " AssociatedControlID="TxtSalarioMinimo"></asp:Label>
+                                                <asp:Label runat="server" Text="Salario mínimo: " AssociatedControlID="TxtSalarioMinimo"></asp:Label>
                                             </div>
                                         </div>
                                     </div>
@@ -245,9 +248,9 @@
                                                 <div style="display:inline-block;width:30px;">
                                                     <div class="form-group form-md-line-input input-iconright">
                                                         <asp:TextBox ID="Txtdiasindemnizacion" Text="90" runat="server" CssClass="form-control"></asp:TextBox>
-                                                        <asp:Label runat="server" Text="días" AssociatedControlID="Txtdiasindemnizacion"></asp:Label>
                                                     </div>
                                                 </div>
+                                                        <asp:Label runat="server" Text="días" AssociatedControlID="Txtdiasindemnizacion"></asp:Label>
 
                                             </div>
                                             <div class="col-md-4 text-center">

Nomina/Finiquito.aspx.cs

@@ -125,6 +125,7 @@ public partial class Nomina_Finiquito : ClsPaginas
     }
     private void CargaPersonal()
     {
+        LnkFormatoRenuncia.Visible = false;
         LnkCancelar.Visible = false;
         using (ClsRH ObjPersonal = new ClsRH())
         {
@@ -557,218 +558,228 @@ public partial class Nomina_Finiquito : ClsPaginas
 
     protected void LnkFormatoRenuncia_Click(object sender, EventArgs e)
     {
+        if (dtConceptos != null)
+        {
 
-        DataTable dtper = dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 AND SoloVisible =0");
+            DataTable dtper = dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 AND SoloVisible =0");
-        DataTable dtded = dtConceptos.FiltraParametros("Tipo IN ('D') AND EsPadre = 1 AND SoloVisible =0");
+            DataTable dtded = dtConceptos.FiltraParametros("Tipo IN ('D') AND EsPadre = 1 AND SoloVisible =0");
-        dtper.Columns.Add("BorradoLogico", typeof(int));
+            dtper.Columns.Add("BorradoLogico", typeof(int));
-        dtded.Columns.Add("BorradoLogico", typeof(int));
+            dtded.Columns.Add("BorradoLogico", typeof(int));
 
-        foreach (DataRow row in dtper.Rows)
+            foreach (DataRow row in dtper.Rows)
-        {
-            int BorradoLogico = 0;
-            int CveConcepto = row["CveConcepto"].ToString().ToEntero();
-            if (!(dtempleados.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", CvePersonal)) != 0))
             {
-                BorradoLogico = 1;
+                int BorradoLogico = 0;
-            }
-            row["BorradoLogico"] = BorradoLogico;
-        }
-        dtper.AcceptChanges();
-        foreach (DataRow row in dtded.Rows)
-        {
-            int BorradoLogico = 0;
-            int CveConcepto = row["CveConcepto"].ToString().ToEntero();
-            if (!(dtempleados.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", CvePersonal)) != 0))
-            {
-                BorradoLogico = 1;
-            }
-            row["BorradoLogico"] = BorradoLogico;
-        }
-        dtded.AcceptChanges();
-        dtper = dtper.FiltraParametros("BorradoLogico=0");
-        dtded = dtded.FiltraParametros("BorradoLogico=0");
-        int maxper = dtper.Rows.Count;
-        int maxded = dtded.Rows.Count;
-        int i = 0;
-        List<NConcepto> lconc = new List<NConcepto>();
-        for (i = 0; i < maxper || i < maxded; i++)
-        {
-            NConcepto nConcepto = new NConcepto();
-            DataRow row;
-            if (maxper > i)
-            {
-                row = dtper.Rows[i];
                 int CveConcepto = row["CveConcepto"].ToString().ToEntero();
-                string Concepto = row["Concepto"].ToString();
+                if (!(dtempleados.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", CvePersonal)) != 0))
-                string Codigo = row["Codigo"].ToString();
+                {
-                //bool visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0);
+                    BorradoLogico = 1;
-                double Importe = dtempleados.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", CvePersonal));
+                }
-                nConcepto.CveConceptoP = CveConcepto;
+                row["BorradoLogico"] = BorradoLogico;
-                nConcepto.ConceptoP = Concepto;
-                nConcepto.NoConceptoP = Codigo;
-                nConcepto.ImporteP = Importe;
-                nConcepto.ValorP = dtempleados.SUM(string.Format("[VAL_{0}]", CveConcepto), string.Format("CvePersonal = {0}", CvePersonal));
             }
-            if (maxded > i)
+            dtper.AcceptChanges();
+            foreach (DataRow row in dtded.Rows)
             {
-                row = dtded.Rows[i];
+                int BorradoLogico = 0;
                 int CveConcepto = row["CveConcepto"].ToString().ToEntero();
-                string Concepto = row["Concepto"].ToString();
+                if (!(dtempleados.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", CvePersonal)) != 0))
-                string Codigo = row["Codigo"].ToString();
+                {
-                //bool visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0);
+                    BorradoLogico = 1;
-                double Importe = dtempleados.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", CvePersonal));
+                }
-                nConcepto.CveConceptoD = CveConcepto;
+                row["BorradoLogico"] = BorradoLogico;
-                nConcepto.ConceptoD = Concepto;
-                nConcepto.NoConceptoD = Codigo;
-                nConcepto.ImporteD = Importe;
-                nConcepto.ValorD = dtempleados.SUM(string.Format("[VAL_{0}]", CveConcepto), string.Format("CvePersonal = {0}", CvePersonal));
             }
-            lconc.Add(nConcepto);
+            dtded.AcceptChanges();
-        }
+            dtper = dtper.FiltraParametros("BorradoLogico=0");
-
+            dtded = dtded.FiltraParametros("BorradoLogico=0");
-        lconc.Add(new NConcepto());
+            int maxper = dtper.Rows.Count;
-
+            int maxded = dtded.Rows.Count;
-        NConcepto SubTotales = new NConcepto();
+            int i = 0;
-        SubTotales.CveConceptoP = 0;
+            List<NConcepto> lconc = new List<NConcepto>();
-        SubTotales.ConceptoP = "Total Percepciones";
+            for (i = 0; i < maxper || i < maxded; i++)
-        SubTotales.EstatusP = -2;
-        SubTotales.ImporteP = dtempleados.SUM("SumaPercepciones", string.Format("CvePersonal = {0}", CvePersonal));
-        ///Alert(SubTotales.ImporteP.ToString());
-
-        SubTotales.CveConceptoD = 0;
-        SubTotales.ConceptoD = "Total Deducciones";
-        SubTotales.EstatusD = -2;
-        SubTotales.ImporteD = dtempleados.SUM("SumaDeducciones", string.Format("CvePersonal = {0}", CvePersonal));
-
-        NConcepto Totales = new NConcepto();
-        Totales.CveConceptoD = 0;
-        Totales.ConceptoD = "Total";
-        Totales.EstatusD = -3;
-        Totales.ImporteD = dtempleados.SUM("Total", string.Format("CvePersonal = {0}", CvePersonal));
-
-        lconc.Add(SubTotales);
-        lconc.Add(Totales);
-
-        DataTable dtCon = new DataTable();
-        dtCon.Columns.Add(new DataColumn("NoConceptoP", typeof(string)));
-        dtCon.Columns.Add(new DataColumn("ConceptoP", typeof(string)));
-        dtCon.Columns.Add(new DataColumn("LabelValorP", typeof(string)));
-        dtCon.Columns.Add(new DataColumn("CveConceptoP", typeof(int)));
-        dtCon.Columns.Add(new DataColumn("ImporteP", typeof(double)));
-        dtCon.Columns.Add(new DataColumn("ValorP", typeof(double)));
-        dtCon.Columns.Add(new DataColumn("EstatusP", typeof(int)));
-        dtCon.Columns.Add(new DataColumn("isEditedP", typeof(int)));
-        dtCon.Columns.Add(new DataColumn("isOnlyBisibleP", typeof(int)));
-        dtCon.Columns.Add(new DataColumn("NoConceptoD", typeof(string)));
-        dtCon.Columns.Add(new DataColumn("ConceptoD", typeof(string)));
-        dtCon.Columns.Add(new DataColumn("LabelValorD", typeof(string)));
-        dtCon.Columns.Add(new DataColumn("CveConceptoD", typeof(int)));
-        dtCon.Columns.Add(new DataColumn("ImporteD", typeof(double)));
-        dtCon.Columns.Add(new DataColumn("ValorD", typeof(double)));
-        dtCon.Columns.Add(new DataColumn("EstatusD", typeof(int)));
-        dtCon.Columns.Add(new DataColumn("isEditedD", typeof(int)));
-        dtCon.Columns.Add(new DataColumn("isOnlyBisibleD", typeof(int)));
-        foreach (NConcepto itc in lconc)
-        {
-            DataRow dr = dtCon.NewRow();
-            dr["NoConceptoP"] = itc.NoConceptoP;
-            dr["ConceptoP"] = itc.ConceptoP;
-            dr["LabelValorP"] = itc.LabelValorP;
-            dr["CveConceptoP"] = itc.CveConceptoP;
-            dr["ImporteP"] = itc.ImporteP;
-            dr["ValorP"] = itc.ValorP;
-            dr["EstatusP"] = itc.EstatusP;
-            dr["isEditedP"] = itc.isEditedP;
-            dr["isOnlyBisibleP"] = itc.isOnlyBisibleP;
-            dr["NoConceptoD"] = itc.NoConceptoD;
-            dr["ConceptoD"] = itc.ConceptoD;
-            dr["LabelValorD"] = itc.LabelValorD;
-            dr["CveConceptoD"] = itc.CveConceptoD;
-            dr["ImporteD"] = itc.ImporteD;
-            dr["ValorD"] = itc.ValorD;
-            dr["EstatusD"] = itc.EstatusD;
-            dr["isEditedD"] = itc.isEditedD;
-            dr["isOnlyBisibleD"] = itc.isOnlyBisibleD;
-            dtCon.Rows.Add(dr);
-        }
-        dtCon.AcceptChanges();
-        List<Microsoft.Reporting.WebForms.ReportDataSource> lrds = new List<Microsoft.Reporting.WebForms.ReportDataSource>();
-        Microsoft.Reporting.WebForms.ReportDataSource rds = new Microsoft.Reporting.WebForms.ReportDataSource();
-        rds.Name = "DataSet1";
-        rds.Value = dtCon;// lconc;
-        lrds.Add(rds);
-        List<Microsoft.Reporting.WebForms.ReportParameter> parametros = new List<Microsoft.Reporting.WebForms.ReportParameter>();
-
-        string CodigoEmpleado = "";
-        string NombreCompleto = "";
-        string RFC = "";
-        string CURP = "";
-        string TipoPeriodo = "";
-        string NSS = "";
-        string DiasLaborados = "";
-        string DiasFaltados = "";
-        string DiasVacaciones = "";
-        string FechaInicio = "";
-        string FechaFin = "";
-        string DiasRetardos = "";
-        string DiasIncapacidad = "";
-        string SubProyecto = "";
-        {
-            DataRow drow = dtempleados.FiltroPrimero(string.Format("CvePersonal = {0}", CvePersonal));
-            if (drow != null)
             {
-                DiasLaborados = string.Format("{0}", drow["DiasLaborados"].ToString().ToEntero());
+                NConcepto nConcepto = new NConcepto();
-                DiasFaltados = string.Format("{0}", drow["DiasFaltados"].ToString().ToEntero());
+                DataRow row;
-                DiasVacaciones = string.Format("{0}", drow["DiasVacaciones"].ToString().ToEntero());
+                if (maxper > i)
-                FechaInicio = string.Format("{0:dd/MM/yyyy}", drow["FechaInicio"]);
+                {
-                FechaFin = string.Format("{0:dd/MM/yyyy}", drow["FechaFin"]);
+                    row = dtper.Rows[i];
-                DiasRetardos = string.Format("{0}", drow["DiasRetardos"].ToString().ToEntero());
+                    int CveConcepto = row["CveConcepto"].ToString().ToEntero();
-                DiasIncapacidad = string.Format("{0}", drow["DiasIncapacidad"].ToString().ToEntero());
+                    string Concepto = row["Concepto"].ToString();
+                    string Codigo = row["Codigo"].ToString();
+                    //bool visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0);
+                    double Importe = dtempleados.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", CvePersonal));
+                    nConcepto.CveConceptoP = CveConcepto;
+                    nConcepto.ConceptoP = Concepto;
+                    nConcepto.NoConceptoP = Codigo;
+                    nConcepto.ImporteP = Importe;
+                    nConcepto.ValorP = dtempleados.SUM(string.Format("[VAL_{0}]", CveConcepto), string.Format("CvePersonal = {0}", CvePersonal));
+                }
+                if (maxded > i)
+                {
+                    row = dtded.Rows[i];
+                    int CveConcepto = row["CveConcepto"].ToString().ToEntero();
+                    string Concepto = row["Concepto"].ToString();
+                    string Codigo = row["Codigo"].ToString();
+                    //bool visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0);
+                    double Importe = dtempleados.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", CvePersonal));
+                    nConcepto.CveConceptoD = CveConcepto;
+                    nConcepto.ConceptoD = Concepto;
+                    nConcepto.NoConceptoD = Codigo;
+                    nConcepto.ImporteD = Importe;
+                    nConcepto.ValorD = dtempleados.SUM(string.Format("[VAL_{0}]", CveConcepto), string.Format("CvePersonal = {0}", CvePersonal));
+                }
+                lconc.Add(nConcepto);
             }
-        }
-        //string Codigo = "";
-        using (ClsRH objrh = new ClsRH())
-        {
-            if (objrh.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) && objrh.DtResultados.Rows.Count > 0)
-            {
-                DataRow drow = objrh.DtResultados.Rows[0];
-                SubProyecto = drow["SubProyecto"].ToString();
-                CodigoEmpleado = drow["Codigo"].ToString();
-                NombreCompleto = drow["NombreCompleto"].ToString();
-                RFC = drow["RFC"].ToString();
-                CURP = drow["CURP"].ToString();
-                TipoPeriodo = drow["TipoPeriodo"].ToString();
-                NSS = drow["NSS"].ToString();
-            }
-        }
-        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("DiasIncapacidad", DiasIncapacidad));
-        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("Codigo", CodigoEmpleado));
-        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("NombreCompleto", NombreCompleto));
-        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("RFC", RFC));
-        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("CURP", ""));
-        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("TipoPeriodo", TipoPeriodo));
-        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("NSS", NSS));
-        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("DiasLaborados", DiasLaborados));
-        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("DiasFaltados", DiasFaltados));
-        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("DiasVacaciones", DiasVacaciones));
-        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("FechaInicio", FechaInicio));
-        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("FechaFin", FechaFin));
-        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("DiasRetardos", DiasRetardos));
-        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("Empresa", UsuarioActual.Empresa.Empresa));
-        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("SubProyecto", SubProyecto));
-        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("FechaPago", ""));
-        //parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("", ""));
-        //parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("", ""));
-        //parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("", ""));
-        //parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("", ""));
-        //parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("", ""));
-        string urlfile = System.IO.Path.Combine(string.Format("{0}Formatos/SobreReciboFiniquito.rdlc", UsuarioActual.Empresa.Ruta));
-        if (!System.IO.File.Exists(urlfile))
-        {
-            urlfile = System.IO.Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Empresas/Grales/Formatos/SobreReciboFiniquito.rdlc");
-        }
 
-        ImprimirPDF(urlfile, lrds, parametros, "SobreRecibo", "PDF", null);
+            lconc.Add(new NConcepto());
+
+            NConcepto SubTotales = new NConcepto();
+            SubTotales.CveConceptoP = 0;
+            SubTotales.ConceptoP = "Total Percepciones";
+            SubTotales.EstatusP = -2;
+            SubTotales.ImporteP = dtempleados.SUM("SumaPercepciones", string.Format("CvePersonal = {0}", CvePersonal));
+            ///Alert(SubTotales.ImporteP.ToString());
+
+            SubTotales.CveConceptoD = 0;
+            SubTotales.ConceptoD = "Total Deducciones";
+            SubTotales.EstatusD = -2;
+            SubTotales.ImporteD = dtempleados.SUM("SumaDeducciones", string.Format("CvePersonal = {0}", CvePersonal));
+
+            NConcepto Totales = new NConcepto();
+            Totales.CveConceptoD = 0;
+            Totales.ConceptoD = "Total";
+            Totales.EstatusD = -3;
+            Totales.ImporteD = dtempleados.SUM("Total", string.Format("CvePersonal = {0}", CvePersonal));
+
+            lconc.Add(SubTotales);
+            lconc.Add(Totales);
+
+            DataTable dtCon = new DataTable();
+            dtCon.Columns.Add(new DataColumn("NoConceptoP", typeof(string)));
+            dtCon.Columns.Add(new DataColumn("ConceptoP", typeof(string)));
+            dtCon.Columns.Add(new DataColumn("LabelValorP", typeof(string)));
+            dtCon.Columns.Add(new DataColumn("CveConceptoP", typeof(int)));
+            dtCon.Columns.Add(new DataColumn("ImporteP", typeof(double)));
+            dtCon.Columns.Add(new DataColumn("ValorP", typeof(double)));
+            dtCon.Columns.Add(new DataColumn("EstatusP", typeof(int)));
+            dtCon.Columns.Add(new DataColumn("isEditedP", typeof(int)));
+            dtCon.Columns.Add(new DataColumn("isOnlyBisibleP", typeof(int)));
+            dtCon.Columns.Add(new DataColumn("NoConceptoD", typeof(string)));
+            dtCon.Columns.Add(new DataColumn("ConceptoD", typeof(string)));
+            dtCon.Columns.Add(new DataColumn("LabelValorD", typeof(string)));
+            dtCon.Columns.Add(new DataColumn("CveConceptoD", typeof(int)));
+            dtCon.Columns.Add(new DataColumn("ImporteD", typeof(double)));
+            dtCon.Columns.Add(new DataColumn("ValorD", typeof(double)));
+            dtCon.Columns.Add(new DataColumn("EstatusD", typeof(int)));
+            dtCon.Columns.Add(new DataColumn("isEditedD", typeof(int)));
+            dtCon.Columns.Add(new DataColumn("isOnlyBisibleD", typeof(int)));
+            foreach (NConcepto itc in lconc)
+            {
+                DataRow dr = dtCon.NewRow();
+                dr["NoConceptoP"] = itc.NoConceptoP;
+                dr["ConceptoP"] = itc.ConceptoP;
+                dr["LabelValorP"] = itc.LabelValorP;
+                dr["CveConceptoP"] = itc.CveConceptoP;
+                dr["ImporteP"] = itc.ImporteP;
+                dr["ValorP"] = itc.ValorP;
+                dr["EstatusP"] = itc.EstatusP;
+                dr["isEditedP"] = itc.isEditedP;
+                dr["isOnlyBisibleP"] = itc.isOnlyBisibleP;
+                dr["NoConceptoD"] = itc.NoConceptoD;
+                dr["ConceptoD"] = itc.ConceptoD;
+                dr["LabelValorD"] = itc.LabelValorD;
+                dr["CveConceptoD"] = itc.CveConceptoD;
+                dr["ImporteD"] = itc.ImporteD;
+                dr["ValorD"] = itc.ValorD;
+                dr["EstatusD"] = itc.EstatusD;
+                dr["isEditedD"] = itc.isEditedD;
+                dr["isOnlyBisibleD"] = itc.isOnlyBisibleD;
+                dtCon.Rows.Add(dr);
+            }
+            dtCon.AcceptChanges();
+            List<Microsoft.Reporting.WebForms.ReportDataSource> lrds = new List<Microsoft.Reporting.WebForms.ReportDataSource>();
+            Microsoft.Reporting.WebForms.ReportDataSource rds = new Microsoft.Reporting.WebForms.ReportDataSource();
+            rds.Name = "DataSet1";
+            rds.Value = dtCon;// lconc;
+            lrds.Add(rds);
+            List<Microsoft.Reporting.WebForms.ReportParameter> parametros = new List<Microsoft.Reporting.WebForms.ReportParameter>();
+
+            string CodigoEmpleado = "";
+            string NombreCompleto = "";
+            string RFC = "";
+            string CURP = "";
+            string TipoPeriodo = "";
+            string NSS = "";
+            string DiasLaborados = "";
+            string DiasFaltados = "";
+            string DiasVacaciones = "";
+            string FechaInicio = "";
+            string FechaFin = "";
+            string DiasRetardos = "";
+            string DiasIncapacidad = "";
+            string SubProyecto = "";
+            string Usuario = UsuarioActual.Nombre;
+            string FolioFiscal = "";
+            {
+                DataRow drow = dtempleados.FiltroPrimero(string.Format("CvePersonal = {0}", CvePersonal));
+                if (drow != null)
+                {
+                    SubProyecto = drow["SubProyecto"].ToString();
+                    FolioFiscal = string.Format("{0}", drow["FolioFiscal"]);
+                    DiasLaborados = string.Format("{0}", drow["DiasLaborados"].ToString().ToEntero());
+                    DiasFaltados = string.Format("{0}", drow["DiasFaltados"].ToString().ToEntero());
+                    DiasVacaciones = string.Format("{0}", drow["DiasVacaciones"].ToString().ToEntero());
+                    FechaInicio = string.Format("{0:dd/MM/yyyy}", drow["FechaInicio"]);
+                    FechaFin = string.Format("{0:dd/MM/yyyy}", drow["FechaFin"]);
+                    DiasRetardos = string.Format("{0}", drow["DiasRetardos"].ToString().ToEntero());
+                    DiasIncapacidad = string.Format("{0}", drow["DiasIncapacidad"].ToString().ToEntero());
+                }
+            }
+            //string Codigo = "";
+            using (ClsRH objrh = new ClsRH())
+            {
+                if (objrh.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) && objrh.DtResultados.Rows.Count > 0)
+                {
+                    DataRow drow = objrh.DtResultados.Rows[0];
+                    CodigoEmpleado = drow["Codigo"].ToString();
+                    NombreCompleto = drow["NombreCompleto"].ToString();
+                    RFC = drow["RFC"].ToString();
+                    CURP = drow["CURP"].ToString();
+                    TipoPeriodo = drow["TipoPeriodo"].ToString();
+                    NSS = drow["NSS"].ToString();
+                }
+            }
+            parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("DiasIncapacidad", DiasIncapacidad));
+            parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("Codigo", CodigoEmpleado));
+            parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("NombreCompleto", NombreCompleto));
+            parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("RFC", RFC));
+            parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("CURP", ""));
+            parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("TipoPeriodo", TipoPeriodo));
+            parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("NSS", NSS));
+            parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("DiasLaborados", DiasLaborados));
+            parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("DiasFaltados", DiasFaltados));
+            parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("DiasVacaciones", DiasVacaciones));
+            parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("FechaInicio", FechaInicio));
+            parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("FechaFin", FechaFin));
+            parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("DiasRetardos", DiasRetardos));
+            parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("Empresa", UsuarioActual.Empresa.Empresa));
+            parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("SubProyecto", SubProyecto));
+            parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("FechaPago", ""));
+            parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("FolioFiscal", FolioFiscal));
+            parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("Usuario", Usuario));
+            //parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("", ""));
+            //parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("", ""));
+            //parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("", ""));
+            string urlfile = System.IO.Path.Combine(string.Format("{0}Formatos/SobreReciboFiniquito.rdlc", UsuarioActual.Empresa.Ruta));
+            if (!System.IO.File.Exists(urlfile))
+            {
+                urlfile = System.IO.Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Empresas/Grales/Formatos/SobreReciboFiniquito.rdlc");
+            }
+
+            ImprimirPDF(urlfile, lrds, parametros, "SobreRecibo", "PDF", null);
+        }
+        else
+        {
+            Alert("sin información disponible.");
+        }
     }
 
     protected void LnkCambiarEmpleado_Click(object sender, EventArgs e)
@@ -1085,7 +1096,7 @@ public partial class Nomina_Finiquito : ClsPaginas
                     ObjPersonal.RollBack();
                 }
                 if (continuar)
-                { loadsobrerecibo(onom);LnkCancelar.Visible = true; LnkSimular.Visible = false; }
+                { loadsobrerecibo(onom); LnkCancelar.Visible = true; LnkSimular.Visible = false; }
             }
 
         }
@@ -1118,6 +1129,7 @@ public partial class Nomina_Finiquito : ClsPaginas
         {
             dtempleados = objnom.DTSetResultados.Tables[3];
             LnkAutorizar.Visible = (dtempleados.COUNT("CvePersonal", "NomAutorizado =0") > 0);
+            LnkFormatoRenuncia.Visible = true;
             LnkGuardarDatos.Enabled = LnkAutorizar.Visible;
             LnkTimbrar.Visible = !(LnkAutorizar.Visible) && (dtempleados.COUNT("CvePersonal", "SeTimbro=0") > 0);
             UpAcciones.Update();
@@ -1232,7 +1244,7 @@ public partial class Nomina_Finiquito : ClsPaginas
                             if (continuar)
                             {
 
-                                if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, ImporteValor, UsuarioActual.CveUsuario))
+                                if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, ImporteValor, UsuarioActual.CveUsuario, false, 1, 1, 1))
                                 {
                                     continuar = false;
                                 }
@@ -1291,6 +1303,7 @@ public partial class Nomina_Finiquito : ClsPaginas
 
     protected void LnkCancelar_Click(object sender, EventArgs e)
     {
+        LnkFormatoRenuncia.Visible = false;
         using (ClsNominas onom = new ClsNominas())
         {
             if (onom.RemoveFiniquito(CvePersonal, UsuarioActual.CveEmpresa, CvePersonalAltas))
@@ -1345,6 +1358,10 @@ public partial class Nomina_Finiquito : ClsPaginas
 
     protected void BtnAceptarMC_Click(object sender, EventArgs e)
     {
+
+        int chkImporte = 1;
+        int chkImporteGravado = 1;
+        int chkImporteValor = 1;
         bool continuar = true;
         int CveNomina = 0;
         double Total = 0;
@@ -1395,7 +1412,7 @@ public partial class Nomina_Finiquito : ClsPaginas
                     if (continuar)
                     {
 
-                        if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoFiniquito, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, ImporteValor, UsuarioActual.CveUsuario, true))
+                        if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoFiniquito, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, ImporteValor, UsuarioActual.CveUsuario, true, chkImporte, chkImporteGravado, chkImporteValor))
                         {
                             continuar = false;
                         }

Nomina/NomTimbrados.aspx.cs

@@ -130,8 +130,8 @@ public partial class Nomina_NomTimbrados : ClsPaginas
                                 case "DESCUENTO": drow["DESCUENTO"] = xtr.Value; break;
                                 case "TIPODECOMPROBANTE": drow["TIPODECOMPROBANTE"] = xtr.Value; break;
                             }
-                            switch (xtr.Name.ToUpper())
+                            //switch (xtr.Name.ToUpper())
-                            {
+                            //{
                                 //case "XMLNS:CFDI": xmlCFDI.comprobante.xmlns_cfdi = xtr.Value; break;
                                 //case "XMLNS:XSI": xmlCFDI.comprobante.xmlns_xsi = xtr.Value; break;
                                 //case "XSI:SCHEMALOCATION": xmlCFDI.comprobante.xsi_schemaLocation = xtr.Value; break;
@@ -155,7 +155,7 @@ public partial class Nomina_NomTimbrados : ClsPaginas
                                 //case "NOCERTIFICADO": xmlCFDI.comprobante.NoCertificado = xtr.Value; break;
                                 //case "SELLO": xmlCFDI.comprobante.Sello = xtr.Value; break;
                                 //case "CERTIFICADO": xmlCFDI.comprobante.Certificado = xtr.Value; break;
-                            }
+                            //}
                             cont = xtr.MoveToNextAttribute();
                         }
                         cont = xtr.MoveToFirstAttribute();
@@ -244,8 +244,8 @@ public partial class Nomina_NomTimbrados : ClsPaginas
                                             cont = xtr.MoveToFirstAttribute();
                                             while (cont)
                                             {
-                                                switch (xtr.Name.ToUpper())
+                                                //switch (xtr.Name.ToUpper())
-                                                {
+                                                //{
                                                     //case "CLAVEPRODSERV": concepto.ClaveProdServ = xtr.Value; break;
                                                     //case "NOIDENTIFICACION": concepto.NoIdentificacion = xtr.Value; break;
                                                     //case "CANTIDAD": concepto.Cantidad = xtr.Value; break;
@@ -255,7 +255,7 @@ public partial class Nomina_NomTimbrados : ClsPaginas
                                                     //case "IMPORTE": decimal Importe = 0; decimal.TryParse(xtr.Value, out Importe); concepto.Importe = Importe; ; break;
                                                     //case "DESCUENTO": decimal DDescuento = 0; decimal.TryParse(xtr.Value, out DDescuento); concepto.Descuento = DDescuento; ; break;
                                                     //case "DESCRIPCION": concepto.Descripcion = xtr.Value; break;
-                                                }
+                                                //}
                                                 cont = xtr.MoveToNextAttribute();
                                             }
                                             xtr.MoveToFirstAttribute();
@@ -377,22 +377,22 @@ public partial class Nomina_NomTimbrados : ClsPaginas
                                             while (conts)
                                             {
 
-                                                decimal Base = 0;
+                                                //decimal Base = 0;
-                                                switch (xtr.Name.ToUpper())
+                                                //switch (xtr.Name.ToUpper())
-                                                {
+                                                //{
-                                                    //case "FECHAPAGO": xmlCFDI.complemento.Pagos.FechaPago = xtr.Value; break;
+                                                //    case "FECHAPAGO": xmlCFDI.complemento.Pagos.FechaPago = xtr.Value; break;
-                                                    //case "FORMADEPAGOP": xmlCFDI.complemento.Pagos.FormaDePagoP = xtr.Value; break;
+                                                //    case "FORMADEPAGOP": xmlCFDI.complemento.Pagos.FormaDePagoP = xtr.Value; break;
-                                                    //case "FORMADEPAGOPTEXT": xmlCFDI.complemento.Pagos.FormaDePagoPText = xtr.Value; break;
+                                                //    case "FORMADEPAGOPTEXT": xmlCFDI.complemento.Pagos.FormaDePagoPText = xtr.Value; break;
-                                                    //case "MONEDAP": xmlCFDI.complemento.Pagos.MonedaP = xtr.Value; break;
+                                                //    case "MONEDAP": xmlCFDI.complemento.Pagos.MonedaP = xtr.Value; break;
-                                                    //case "MONTO": decimal.TryParse(xtr.Value, out Base); xmlCFDI.complemento.Pagos.Monto = Base; break;
+                                                //    case "MONTO": decimal.TryParse(xtr.Value, out Base); xmlCFDI.complemento.Pagos.Monto = Base; break;
-                                                    //case "TIPOCAMBIOP": decimal.TryParse(xtr.Value, out Base); xmlCFDI.complemento.Pagos.TipoCambioP = Base; break;
+                                                //    case "TIPOCAMBIOP": decimal.TryParse(xtr.Value, out Base); xmlCFDI.complemento.Pagos.TipoCambioP = Base; break;
-                                                    //case "NUMOPERACION": xmlCFDI.complemento.Pagos.NumOperacion = xtr.Value; break;
+                                                //    case "NUMOPERACION": xmlCFDI.complemento.Pagos.NumOperacion = xtr.Value; break;
-                                                    //case "NOMBANCOORDEXT": xmlCFDI.complemento.Pagos.NomBancoOrdExt = xtr.Value; break;
+                                                //    case "NOMBANCOORDEXT": xmlCFDI.complemento.Pagos.NomBancoOrdExt = xtr.Value; break;
-                                                    //case "RFCEMISORCTAORD": xmlCFDI.complemento.Pagos.RfcEmisorCtaOrd = xtr.Value; break;
+                                                //    case "RFCEMISORCTAORD": xmlCFDI.complemento.Pagos.RfcEmisorCtaOrd = xtr.Value; break;
-                                                    //case "CTAORDENANTE": xmlCFDI.complemento.Pagos.CtaOrdenante = xtr.Value; break;
+                                                //    case "CTAORDENANTE": xmlCFDI.complemento.Pagos.CtaOrdenante = xtr.Value; break;
-                                                    //case "RFCEMISORCTABEN": xmlCFDI.complemento.Pagos.RfcEmisorCtaBen = xtr.Value; break;
+                                                //    case "RFCEMISORCTABEN": xmlCFDI.complemento.Pagos.RfcEmisorCtaBen = xtr.Value; break;
-                                                    //case "CTABENEFICIARIO": xmlCFDI.complemento.Pagos.CtaBeneficiario = xtr.Value; break;
+                                                //    case "CTABENEFICIARIO": xmlCFDI.complemento.Pagos.CtaBeneficiario = xtr.Value; break;
-                                                }
+                                                //}
                                                 conts = xtr.MoveToNextAttribute();
                                             }
                                             conts = xtr.MoveToFirstAttribute();
@@ -404,20 +404,20 @@ public partial class Nomina_NomTimbrados : ClsPaginas
                                                 while (conts)
                                                 {
 
-                                                    decimal Basep = 0;
+                                                    //decimal Basep = 0;
-                                                    switch (xtr.Name.ToUpper())
+                                                    //switch (xtr.Name.ToUpper())
-                                                    {
+                                                    //{
-                                                        //case "IDDOCUMENTO": objpago.IdDocumento = xtr.Value; break;
+                                                    //    case "IDDOCUMENTO": objpago.IdDocumento = xtr.Value; break;
-                                                        //case "SERIE": objpago.Serie = xtr.Value; break;
+                                                    //    case "SERIE": objpago.Serie = xtr.Value; break;
-                                                        //case "FOLIO": objpago.Folio = xtr.Value; break;
+                                                    //    case "FOLIO": objpago.Folio = xtr.Value; break;
-                                                        //case "MONEDADR": objpago.MonedaDR = xtr.Value; break;
+                                                    //    case "MONEDADR": objpago.MonedaDR = xtr.Value; break;
-                                                        //case "METODODEPAGODR": objpago.MetodoDePagoDR = xtr.Value; break;
+                                                    //    case "METODODEPAGODR": objpago.MetodoDePagoDR = xtr.Value; break;
-                                                        //case "NUMPARCIALIDAD": objpago.NumParcialidad = xtr.Value; break;
+                                                    //    case "NUMPARCIALIDAD": objpago.NumParcialidad = xtr.Value; break;
-                                                        //case "IMPSALDOANT": decimal.TryParse(xtr.Value, out Basep); objpago.ImpSaldoAnt = Basep; break;
+                                                    //    case "IMPSALDOANT": decimal.TryParse(xtr.Value, out Basep); objpago.ImpSaldoAnt = Basep; break;
-                                                        //case "IMPPAGADO": decimal.TryParse(xtr.Value, out Basep); objpago.ImpPagado = Basep; break;
+                                                    //    case "IMPPAGADO": decimal.TryParse(xtr.Value, out Basep); objpago.ImpPagado = Basep; break;
-                                                        //case "IMPSALDOINSOLUTO": decimal.TryParse(xtr.Value, out Basep); objpago.ImpSaldoInsoluto = Basep; break;
+                                                    //    case "IMPSALDOINSOLUTO": decimal.TryParse(xtr.Value, out Basep); objpago.ImpSaldoInsoluto = Basep; break;
 
-                                                    }
+                                                    //}
                                                     conts = xtr.MoveToNextAttribute();
                                                 }
                                                 conts = xtr.MoveToFirstAttribute();

Nomina/Nomina.aspx

@@ -165,7 +165,7 @@
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
-    Nominas
+    Nóminas
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>
@@ -284,7 +284,7 @@
                                 <asp:Button ID="BtnAutorizar" UseSubmitBehavior="false" runat="server" Text="Autorizar" Visible="False" class="btn btn-primary" />
                                 <asp:Button ID="BtnGeneraPDF" UseSubmitBehavior="false" runat="server" Text="PDF" Visible="False" class="btn btn-primary" />
                                 <asp:Button ID="BtnEmitir" UseSubmitBehavior="false" runat="server" Text="Timbrar" Visible="False" class="btn btn-primary" />
-                                <asp:Button ID="BtnActualizaNomina" UseSubmitBehavior="false" runat="server" Text="Act Nomina" Visible="False" class="btn btn-primary" />
+                                <asp:Button ID="BtnActualizaNomina" UseSubmitBehavior="false" runat="server" Text="Act Nómina" Visible="False" class="btn btn-primary" />
                                 <a style="display: none;" href="/Coolings.docx">Recibos</a>
                             </div>
                         </div>
@@ -370,7 +370,7 @@
                             <div class="portlet-title">
                                 <div class="caption ">
                                     <i class="fa fa-bookmark font-yellow-gold"></i>
-                                    <span class="caption-subject font-yellow-gold bold uppercase">Nomina
+                                    <span class="caption-subject font-yellow-gold bold uppercase">Nómina
                                         <asp:Literal ID="LtlPeriodoseleccionado" runat="server"></asp:Literal></span>
                                 </div>
 
@@ -595,7 +595,7 @@
                         <asp:TextBox ID="TxtasisFecha" CssClass="hidden" runat="server"></asp:TextBox>
 
                         <div class="form-group form-md-line-input input-iconright">
-                            <asp:TextBox CssClass="form-control" ID="TxtPersonal" runat="server" Text=""></asp:TextBox>
+                            <asp:TextBox CssClass="form-control" ID="TxtPersonal" Enabled="false" runat="server" Text=""></asp:TextBox>
                             <asp:Label runat="server" AssociatedControlID="TxtPersonal" Enabled="false" Text="Empleado"></asp:Label>
                         </div>
                         <div class="row">
@@ -610,7 +610,7 @@
                             </div>
                             <div class="col-md-4">
                                 <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox CssClass="form-control" ID="TxtPorPago" runat="server" Text=""></asp:TextBox>
+                                    <asp:TextBox CssClass="form-control" ID="TxtPorPago" runat="server" Text="" type="number" min="0" max="100" step="0.01"></asp:TextBox>
                                     <asp:Label runat="server" AssociatedControlID="TxtPorPago" Text="Porcentaje Pago"></asp:Label>
                                 </div>
                             </div>
@@ -759,7 +759,7 @@
                                     </div>
                                 </div>
                                 <div class="row">
-                                    <div class="col-sm-3 bold">Curp</div>
+                                    <div class="col-sm-3 bold">CURP</div>
                                     <div class="col-sm-3">
                                         <asp:Label ID="LblCURP" runat="server"></asp:Label>
                                     </div>
@@ -1211,7 +1211,7 @@
                                                         <div class="portlet-title">
                                                             <div class="caption ">
                                                                 <i class="icon-pin font-yellow-gold"></i>
-                                                                <span class="caption-subject font-yellow-gold bold uppercase">Vacaciones registradas.</span>
+                                                                <span class="caption-subject font-yellow-gold bold uppercase">Vacaciones registradas</span>
                                                             </div>
                                                             <div class="tools">
                                                                 <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
@@ -1307,7 +1307,7 @@
                                                         <div class="portlet-title">
                                                             <div class="caption ">
                                                                 <i class="icon-pin font-yellow-gold"></i>
-                                                                <span class="caption-subject font-yellow-gold bold uppercase">Vacaciones registradas.</span>
+                                                                <span class="caption-subject font-yellow-gold bold uppercase">Agregar vacaciones</span>
                                                             </div>
                                                             <div class="tools">
                                                                 <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
@@ -1359,9 +1359,9 @@
                                                             </div>
                                                             <div class="row">
                                                                 <div class="col-md-6">
-                                                                    <div class="form-group form-md-line-input input-iconright" style=" padding-top: 0px;">
+                                                                    <div class="form-group form-md-line-input input-iconright" style="padding-top: 0px;">
-                                                                        <asp:Label runat="server" AssociatedControlID="DdlFormapagovacaciones" style=" padding-bottom: 0px;margin-bottom: 0px;">Forma de pago</asp:Label><br />
+                                                                        <asp:Label runat="server" AssociatedControlID="DdlFormapagovacaciones" Style="padding-bottom: 0px; margin-bottom: 0px;">Forma de pago</asp:Label><br />
-                                                                        <asp:DropDownList ID="DdlFormapagovacaciones" DataValueField="Cve" style=" margin-top: -4px;" DataTextField="Texto" Width="100%" CssClass="form-control select2me " runat="server">
+                                                                        <asp:DropDownList ID="DdlFormapagovacaciones" DataValueField="Cve" Style="margin-top: -4px;" DataTextField="Texto" Width="100%" CssClass="form-control select2me " runat="server">
                                                                             <asp:ListItem Text="Pagadas por anticipado" Value="1" Selected="True"></asp:ListItem>
                                                                             <asp:ListItem Text="Por pagar" Value="2"></asp:ListItem>
                                                                             <asp:ListItem Text="Trabajadas" Value="3"></asp:ListItem>
@@ -1374,7 +1374,7 @@
                                                                 </div>
                                                                 <div class="col-md-6">
                                                                     <div class="form-group form-md-line-input input-iconright">
-                                                                        <asp:TextBox ID="TxtVacDiasExtra" CssClass="form-control input-sm "  runat="server"></asp:TextBox>
+                                                                        <asp:TextBox ID="TxtVacDiasExtra" CssClass="form-control input-sm " runat="server"></asp:TextBox>
                                                                         <asp:Label runat="server" AssociatedControlID="TxtVacDiasExtra">Días extras</asp:Label>
                                                                     </div>
                                                                 </div>
@@ -1382,27 +1382,28 @@
                                                             <div class="row">
                                                                 <div class="col-md-6">
                                                                     <div class="form-group form-md-line-input input-iconright">
-                                                                        <asp:TextBox ID="TxtVacEjercicio" CssClass="form-control input-sm " Text="2021"  runat="server"></asp:TextBox>
+                                                                        <asp:TextBox ID="TxtVacEjercicio" CssClass="form-control input-sm " Text="2021" runat="server"></asp:TextBox>
                                                                         <asp:Label runat="server" AssociatedControlID="TxtVacEjercicio">Ejercicio</asp:Label>
                                                                     </div>
                                                                 </div>
                                                             </div>
                                                             <div class="row">
                                                                 <div class="col-md-6">
-                                                                    
+
                                                                     <div style="padding-top: 0px; padding-bottom: 0px;">
                                                                         ¿Prima Vacacional? 
                                                                     </div>
                                                                     <asp:CheckBox ID="ChkVacPrimaVacacional" CssClass="chksino " Text=" " runat="server" />
                                                                 </div>
                                                                 <div class="col-md-6">
-                                                                <div class="col-md-6">
+                                                                    <div class="col-md-6">
-                                                                    
+
-                                                                    <div style="padding-top: 0px; padding-bottom: 0px;">
+                                                                        <div style="padding-top: 0px; padding-bottom: 0px;">
-                                                                        ¿Cobrar IMSS? 
+                                                                            ¿Cobrar IMSS? 
+                                                                        </div>
+                                                                        <asp:CheckBox ID="ChkVacCobrarIMSS" CssClass="chksino " Text=" " runat="server" />
                                                                     </div>
-                                                                    <asp:CheckBox ID="ChkVacCobrarIMSS" CssClass="chksino " Text=" " runat="server" />
+                                                                </div>
-                                                                </div></div>
                                                             </div>
                                                             <div class="text-right">
                                                                 <asp:LinkButton ID="LnkSRVacacionesUP" OnClick="LnkSRVacacionesUP_Click" Visible="false" CssClass="btn btn-success" ValidationGroup="VG_Vacaciones" runat="server">Actualizar</asp:LinkButton>
@@ -1430,7 +1431,7 @@
                                                         <div class="portlet-title">
                                                             <div class="caption ">
                                                                 <i class="icon-pin font-yellow-gold"></i>
-                                                                <span class="caption-subject font-yellow-gold bold uppercase">Incapacidades registradas.</span>
+                                                                <span class="caption-subject font-yellow-gold bold uppercase">Incapacidades registradas</span>
                                                             </div>
                                                             <div class="tools">
                                                                 <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
@@ -1480,7 +1481,7 @@
                                                         <div class="portlet-title">
                                                             <div class="caption ">
                                                                 <i class="icon-pin font-yellow-gold"></i>
-                                                                <span class="caption-subject font-yellow-gold bold uppercase">captura de incapacidad</span>
+                                                                <span class="caption-subject font-yellow-gold bold uppercase">Agregar incapacidades</span>
                                                             </div>
                                                             <div class="tools">
                                                                 <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
@@ -1601,7 +1602,7 @@
                                         <div class="portlet-title">
                                             <div class="caption ">
                                                 <i class="icon-pin font-yellow-gold"></i>
-                                                <span class="caption-subject font-yellow-gold bold uppercase">Forma de pago</span>
+                                                <span class="caption-subject font-yellow-gold bold uppercase">Agregar Forma de pago</span>
                                             </div>
 
                                             <div class="tools">
@@ -1687,20 +1688,45 @@
                                 <asp:ListItem Value="-1" Text="Seleccione"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
-                        <div class="form-group form-md-line-input input-iconright">
+                        <div class="row">
-                            <asp:TextBox CssClass="form-control" ID="TxtmcImporte" runat="server" MaxLength="10"></asp:TextBox>
+                            <div class="col-md-9"></div>
-                            <asp:Label runat="server" AssociatedControlID="TxtmcImporte" Enabled="false" Text="Importe"></asp:Label>
+                            <div class="col-md-3">Calcular automatico</div>
-                            <i></i>
                         </div>
-                        <div class="form-group form-md-line-input input-iconright">
+                        <div class="row">
-                            <asp:TextBox CssClass="form-control" ID="TxtmcImporteGrabado" runat="server" MaxLength="10"></asp:TextBox>
+                            <div class="col-md-9">
-                            <asp:Label runat="server" AssociatedControlID="TxtmcImporteGrabado" Enabled="false" Text="Gravado"></asp:Label>
+                                <div class="form-group form-md-line-input input-iconright">
-                            <i></i>
+                                    <asp:TextBox CssClass="form-control" ID="Txtmcvalor" runat="server" MaxLength="10" type="number" step="any"></asp:TextBox>
+                                    <asp:Label runat="server" AssociatedControlID="Txtmcvalor" Enabled="false" Text="Valor"></asp:Label>
+                                    <i></i>
+                                </div>
+                            </div>
+                            <div class="col-md-3 text-center">
+                                <asp:CheckBox ID="ChkCalAutomaticoV" OnCheckedChanged="ChkCalAutomaticoV_CheckedChanged"  AutoPostBack="true"  runat="server" />
+                            </div>
                         </div>
-                        <div class="form-group form-md-line-input input-iconright">
+                        <div class="row">
-                            <asp:TextBox CssClass="form-control" ID="Txtmcvalor" runat="server" MaxLength="10"></asp:TextBox>
+                            <div class="col-md-9">
-                            <asp:Label runat="server" AssociatedControlID="Txtmcvalor" Enabled="false" Text="Valor"></asp:Label>
+                                <div class="form-group form-md-line-input input-iconright">
-                            <i></i>
+                                    <asp:TextBox CssClass="form-control" ID="TxtmcImporte" runat="server" MaxLength="10" type="number" step="any"></asp:TextBox>
+                                    <asp:Label runat="server" AssociatedControlID="TxtmcImporte" Enabled="false" Text="Importe"></asp:Label>
+                                    <i></i>
+                                </div>
+                            </div>
+                            <div class="col-md-3 text-center">
+                                <asp:CheckBox ID="ChkCalAutomatico"  OnCheckedChanged="ChkCalAutomatico_CheckedChanged"  AutoPostBack="true"   runat="server" />
+                            </div>
+                        </div>
+                        <div class="row">
+                            <div class="col-md-9">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox CssClass="form-control" ID="TxtmcImporteGrabado" runat="server" MaxLength="10"  type="number" step="any"></asp:TextBox>
+                                    <asp:Label runat="server" AssociatedControlID="TxtmcImporteGrabado" Enabled="false" Text="Gravado"></asp:Label>
+                                    <i></i>
+                                </div>
+                            </div>
+                            <div class="col-md-3 text-center">
+                                <asp:CheckBox ID="ChkCalAutomaticoG"  OnCheckedChanged="ChkCalAutomaticoG_CheckedChanged" AutoPostBack="true" runat="server" />
+                            </div>
                         </div>
                     </div>
                     <div class="modal-footer">
@@ -1923,7 +1949,7 @@
                                         </div>
                                         <div class="col-md-4">
                                             <div class="form-group form-md-line-input input-iconright">
-                                                <asp:TextBox ID="TxtValorUma" CssClass="form-control input-sm " runat="server"></asp:TextBox>
+                                                <asp:TextBox ID="TxtValorUma" CssClass="form-control input-sm " runat="server"  type="number" step=".01"></asp:TextBox>
                                                 <asp:RequiredFieldValidator ID="RfvValorUma" runat="server" ControlToValidate="TxtValorUma" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Inicio''</b> es necesario, por favor ingréselo." ValidationGroup="VGAddUma"></asp:RequiredFieldValidator>
                                                 <ajax:ValidatorCalloutExtender ID="VcoValorUma" runat="server" HighlightCssClass="vco" TargetControlID="RfvValorUma"></ajax:ValidatorCalloutExtender>
                                             </div>
@@ -2081,7 +2107,7 @@
                         <button type="button" class="close" data-dismiss="modal" aria-label="Close">
                             <span aria-hidden="true">&times;</span>
                         </button>
-                        <h4 class="modal-title" runat="server" style="text-align: left">Cargar Nomina de excel</h4>
+                        <h4 class="modal-title" runat="server" style="text-align: left">Cargar Nómina de excel</h4>
                     </div>
                     <div class="modal-body">
 
@@ -2089,7 +2115,7 @@
                             <div class="portlet-title">
                                 <div class="caption font-green">
                                     <i class="fa fa-download font-green"></i>
-                                    <span class="caption-subject bold uppercase">Paso 1: Descargar Plantilla</span>
+                                    <span class="caption-subject bold uppercase">Paso 1: Descargar plantilla</span>
                                 </div>
                                 <div class="tools">
                                     <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
@@ -2123,7 +2149,7 @@
                                                     CssClass="table table-striped table-advance table-hover Widthall mysmallbtn ScrollAD" data-sort="true" BorderWidth="0" CellSpacing="0" Width="100%" AutoGenerateColumns="False"
                                                     EmptyDataText="No se encontraron registros">
                                                     <Columns>
-                                                        <asp:BoundField DataField="Codigo" HeaderText="Codigo" ItemStyle-HorizontalAlign="Left" />
+                                                        <asp:BoundField DataField="Codigo" HeaderText="Código" ItemStyle-HorizontalAlign="Left" />
                                                         <asp:BoundField DataField="Concepto" HeaderText="Concepto" ItemStyle-HorizontalAlign="Left" />
                                                         <asp:BoundField DataField="Tipo" HeaderText="Tipo" ItemStyle-HorizontalAlign="Left" />
                                                         <asp:TemplateField ItemStyle-HorizontalAlign="center">
@@ -2146,11 +2172,11 @@
                             </div>
                         </div>
                         <%--                        -recuerda Solo editar de las tercer fila en adelante.<br />
-                        -No se debe editar el nombre de la hoja 'Nomina'.<br />
+                        -No se debe editar el nombre de la hoja 'Nómina'.<br />
                         -la columna para referenciar al emplado es la primer columna 'Codigo', la columna empleado es solo es informativa.<br />
                         -si desea agregar un empleado que no se encuentre en la lista solo debe de ingresar fila y el codigo del empleado.<br />
                         -si no desea  insertar un concepto puede borrar la columna.<br />
-                        -no se debe borrar la columna codigo.<br />--%>
+                        -no se debe borrar la columna código.<br />--%>
 
                         <div class="portlet light smmallpadding bordered">
                             <div class="portlet-title">
@@ -2196,17 +2222,17 @@
                     <div class="modal-body">
 
                         <div class="form-group form-md-line-input">
-                            <asp:DropDownList ID="DdlEjerciciosCM" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlEjerciciosCM_SelectedIndexChanged" Style="width: 100% !important;" CssClass="select2me" DataValueField="Ejercicio" DataTextField="Ejercicio"></asp:DropDownList>
+                            <asp:DropDownList ID="DdlEjerciciosCM" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlEjerciciosCM_SelectedIndexChanged" Style="width: 100% !important;" CssClass="form-control select2me input-sm" DataValueField="Ejercicio" DataTextField="Ejercicio"></asp:DropDownList>
 
                             <asp:Label runat="server" AssociatedControlID="DdlEjerciciosCM">Ejercicio:</asp:Label>
                         </div>
                         <div class="form-group form-md-line-input">
-                            <asp:DropDownList ID="DdlTipoPeriodoCM" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoPeriodoCM_SelectedIndexChanged" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" Class="form-control select2me input-sm" Style="width: 100% !important;">
+                            <asp:DropDownList ID="DdlTipoPeriodoCM" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoPeriodoCM_SelectedIndexChanged" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" CssClass="form-control select2me input-sm" Style="width: 100% !important;">
                             </asp:DropDownList>
                             <asp:Label runat="server" AssociatedControlID="DdlTipoPeriodoCM">Tipo:</asp:Label>
                         </div>
                         <div class="form-group form-md-line-input">
-                            <asp:DropDownList ID="DdlPeriodoCM" runat="server" DataTextField="NominaEstatus" DataValueField="CvePeriodo" Class="form-control select2me input-sm" Style="width: 100% !important;">
+                            <asp:DropDownList ID="DdlPeriodoCM" runat="server" DataTextField="NominaEstatus" DataValueField="CvePeriodo" CssClass="form-control select2me input-sm" Style="width: 100% !important;">
                             </asp:DropDownList>
                             <asp:Label runat="server" AssociatedControlID="DdlPeriodoCM">Periodo:</asp:Label>
                         </div>
@@ -2257,17 +2283,16 @@
                                     </asp:DropDownList>
                                     <asp:Label runat="server" AssociatedControlID="DdlTipoPeriodoCM">Tipo Periodo:</asp:Label>
                                 </div>
-                                
+
                                 <div class="row">
                                     <div class="col-sm-3 bold">Salario Diario</div>
                                     <div class="col-sm-3">
                                         <asp:Label ID="LblSalarioDiarioSimula" runat="server"></asp:Label>
                                     </div>
-                                    <div class="col-sm-3 bold"> </div>
+                                    <div class="col-sm-3 bold"></div>
                                     <div class="col-sm-3">
-                                         
                                     </div>
-                                </div> 
+                                </div>
                                 <%--<table class="table table-striped table-hover Widthall GvConceptossimulador">
 
                                             </table>--%>

Nomina/Nomina.aspx.cs

@@ -1389,6 +1389,9 @@ public partial class Nomina_Nomina2 : ClsPaginas
     protected void LnkCargarNomina_Click(object sender, EventArgs e)
     {
 
+        int chkImporteValor = 1;
+        int chkImporte = 1;
+        int chkImporteGravado = 0;
         List<Archivo> Filesgral = TxtArchivoNomina.getfiles().Archivos;
         bool continuar = Filesgral.Count > 0;
         string stringError = "";
@@ -1512,7 +1515,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                                     {
                                         if (!dontsaveconcepto)//el usuario definira si desea actualizar o no el concepto en el periodo
                                         {
-                                            if (!objNomina.AddUPNom_NominasDetalles(objNomina.CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, Importe, ImporteGravado, ImporteExento, ImporteValor, UsuarioActual.CveUsuario, true))
+                                            if (!objNomina.AddUPNom_NominasDetalles(objNomina.CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, Importe, ImporteGravado, ImporteExento, ImporteValor, UsuarioActual.CveUsuario, true, chkImporte, chkImporteGravado, chkImporteValor))
                                             {
                                                 rollback = true;
                                             }
@@ -1820,11 +1823,33 @@ public partial class Nomina_Nomina2 : ClsPaginas
         TxtmcImporte.Text = "";
         TxtmcImporteGrabado.Text = "";
         Txtmcvalor.Text = "";
+        ChkCalAutomaticoG.Checked  = false;
+        ChkCalAutomatico.Checked = false;
+        ChkCalAutomaticoV.Checked = false;
         if (CveConcepto > 0)
         {
             DataRow drow = dtempleadosConceptos.FiltroPrimero(string.Format("CveConcepto={0} AND CvePersonal ={1}", CveConcepto, CvePersonal));
             if (drow != null)
             {
+                int TipoCalculo = drow["Estatus"].ToString().ToEntero();
+                ChkCalAutomaticoG.Checked = true;
+                ChkCalAutomatico.Checked = true;
+                ChkCalAutomaticoV.Checked = true;
+                if (TipoCalculo >= 5)
+                {
+                    TipoCalculo -= 5;
+                    ChkCalAutomaticoG.Checked = false;
+                }
+                if (TipoCalculo >= 3)
+                {
+                    TipoCalculo -= 3;
+                    ChkCalAutomatico.Checked = false;
+                }
+                if (TipoCalculo >= 1)
+                {
+                    ChkCalAutomaticoV.Checked = false;
+
+                }
                 TxtmcImporte.Text = string.Format("{0:N2}", drow["Importe"]);
                 TxtmcImporteGrabado.Text = string.Format("{0:N2}", drow["ImporteGravado"]);
                 Txtmcvalor.Text = string.Format("{0:N2}", drow["Valor"]);
@@ -1838,9 +1863,30 @@ public partial class Nomina_Nomina2 : ClsPaginas
             }
         }
         UPpanelModalUpConcepto.Update();
+        ChkCalAutomaticoV_CheckedChanged(ChkCalAutomaticoV, null);
+        ChkCalAutomatico_CheckedChanged(ChkCalAutomatico, null);
+        ChkCalAutomaticoG_CheckedChanged(ChkCalAutomaticoG, null);
+    }
+    protected void ChkCalAutomaticoV_CheckedChanged(object sender, EventArgs e)
+    {
+
+        Txtmcvalor.Enabled = !ChkCalAutomaticoV.Checked;
+    }
+    protected void ChkCalAutomatico_CheckedChanged(object sender, EventArgs e)
+    {
+
+        TxtmcImporte.Enabled = !ChkCalAutomatico.Checked;
+    }
+    protected void ChkCalAutomaticoG_CheckedChanged(object sender, EventArgs e)
+    {
+        TxtmcImporteGrabado.Enabled = !ChkCalAutomaticoG.Checked;
+
     }
     protected void BtnAceptarMC_Click(object sender, EventArgs e)
     {
+        int chkImporte = ChkCalAutomatico.Checked? 0:1;
+        int chkImporteGravado = ChkCalAutomaticoG.Checked ? 0 : 1;
+        int chkImporteValor = ChkCalAutomaticoV.Checked ? 0 : 1;
         bool continuar = true;
         int CveNomina = 0;
         double Total = 0;
@@ -1852,12 +1898,15 @@ public partial class Nomina_Nomina2 : ClsPaginas
             CvePersonal = DdlmcPersonal.SelectedValue.ToEntero();
         }
         int CveConcepto = DdlmcConceptos.SelectedValue.ToEntero();
-        if (CveConcepto > 0 && CvePersonal > 0)
-        {
             decimal ImporteConcepto = TxtmcImporte.Text.Replace("$", "").Replace(",", "").ToDecimal();
-            decimal ImporteGravadoConcepto = TxtmcImporteGrabado.Text.Replace("$", "").Replace(",", "").ToDecimal();
+            decimal ImporteGravadoConcepto = ChkCalAutomaticoG.Checked ?  0.0m : TxtmcImporteGrabado.Text.Replace("$", "").Replace(",", "").ToDecimal();
             decimal ImporteExentoConcepto = ImporteConcepto - ImporteGravadoConcepto;
             decimal ImporteValor = Txtmcvalor.Text.Replace("$", "").Replace(",", "").ToDecimal();
+        if ((ImporteConcepto>= 0 && ImporteGravadoConcepto<= ImporteConcepto)|| (ImporteConcepto < 0 && ImporteGravadoConcepto >= ImporteConcepto))
+        {
+
+        if (CveConcepto > 0 && CvePersonal > 0)
+        {
             using (ClsNominas objNomina = new ClsNominas())
             {
 
@@ -1896,7 +1945,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                     if (continuar)
                     {
 
-                        if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, ImporteValor, UsuarioActual.CveUsuario, true))
+                        if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, ImporteValor, UsuarioActual.CveUsuario, true, chkImporte, chkImporteGravado, chkImporteValor))
                         {
                             continuar = false;
                         }
@@ -1927,6 +1976,11 @@ public partial class Nomina_Nomina2 : ClsPaginas
             {
                 Alert("Debe seleccionar un concepto.", TipoMensaje.MsgAdvertencia);
             }
+            }
+        }
+        else
+        {
+            Alert("el importe gravado no puede ser mayor al importe total, en caso de que el importe total sea negativo no puede ser menor.",TipoMensaje.MsgAdvertencia );
         }
 
     }
@@ -2325,10 +2379,14 @@ public partial class Nomina_Nomina2 : ClsPaginas
         string DiasRetardos = "";
         string DiasIncapacidad = "";
         string SubProyecto = "";
+        string Usuario = UsuarioActual.Nombre;
+        string FolioFiscal = "";
         {
             DataRow drow = dtempleados.FiltroPrimero(string.Format("CvePersonal = {0}", SRCvePersonal));
             if (drow != null)
             {
+                SubProyecto = drow["SubProyecto"].ToString();
+                FolioFiscal = string.Format("{0}", drow["FolioFiscal"]);
                 DiasLaborados = string.Format("{0}", drow["DiasLaborados"].ToString().ToEntero());
                 DiasFaltados = string.Format("{0}", drow["DiasFaltados"].ToString().ToEntero());
                 DiasVacaciones = string.Format("{0}", drow["DiasVacaciones"].ToString().ToEntero());
@@ -2344,7 +2402,6 @@ public partial class Nomina_Nomina2 : ClsPaginas
             if (objrh.GetPersonal(SRCvePersonal, UsuarioActual.CveEmpresa) && objrh.DtResultados.Rows.Count > 0)
             {
                 DataRow drow = objrh.DtResultados.Rows[0];
-                SubProyecto = drow["SubProyecto"].ToString();
                 CodigoEmpleado = drow["Codigo"].ToString();
                 NombreCompleto = drow["NombreCompleto"].ToString();
                 RFC = drow["RFC"].ToString();
@@ -2357,7 +2414,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("Codigo", CodigoEmpleado));
         parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("NombreCompleto", NombreCompleto));
         parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("RFC", RFC));
-        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("CURP", ""));
+        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("CURP", CURP));
         parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("TipoPeriodo", TipoPeriodo));
         parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("NSS", NSS));
         parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("DiasLaborados", DiasLaborados));
@@ -2369,8 +2426,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
         parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("Empresa", UsuarioActual.Empresa.Empresa));
         parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("SubProyecto", SubProyecto));
         parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("FechaPago", ""));
-        //parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("", ""));
+        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("FolioFiscal", FolioFiscal));
-        //parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("", ""));
+        parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("Usuario", Usuario));
         //parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("", ""));
         //parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("", ""));
         //parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("", ""));
@@ -4737,8 +4794,11 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
     private bool autorizarNomina(int FiltroCvePersonal)
     {
-
         bool continuar = true;
+
+        int chkImporte = 1;
+        int chkImporteGravado = 1;
+        int chkImporteValor = 1;
         string[] getcolumnas = new string[] { "CvePersonal", "CveMetodoPago", "SumaPercepciones", "Total", "SalarioDiario", "SalarioDiarioIMSS", "SalarioDiarioIntegrado", "DiasLaborados", "DiasFaltados", "DiasVacaciones", "DiasIncapacidad" };
 
         DataTable dtr = dtempleados.FiltraParametros(string.Format("(CvePersonal={0} OR {0}=-1) AND CvePersonal > 0 AND NomAutorizado =0", FiltroCvePersonal), "", getcolumnas);
@@ -4809,12 +4869,12 @@ public partial class Nomina_Nomina2 : ClsPaginas
                             CveConcepto = rcon["CveConcepto"].ToString().ToEntero();
                             ImporteConcepto = rcon["Importe"].ToString().ToDecimal();
                             ImporteGravadoConcepto = rcon["ImporteGravado"].ToString().ToDecimal();
-                            ImporteExentoConcepto = ImporteConcepto - ImporteGravadoConcepto;
+                            ImporteExentoConcepto =  ImporteConcepto - ImporteGravadoConcepto;
                             ImporteValor = rcon["Valor"].ToString().ToDecimal();
                             if (continuar)
                             {
 
-                                if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, ImporteValor, UsuarioActual.CveUsuario))
+                                if (!objNomina.AddUPNom_NominasDetalles(CveNomina, CvePeriodoSeleccionado, CvePersonal, CveConcepto, ImporteConcepto, ImporteGravadoConcepto, ImporteExentoConcepto, ImporteValor, UsuarioActual.CveUsuario,false, chkImporte, chkImporteGravado, chkImporteValor))
                                 {
                                     continuar = false;
                                 }
@@ -5719,7 +5779,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
             VacFolioActual = VacFolioActual + 1;
             ClsRH objRH = new ClsRH();
             // Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, motivoVacaciones)
-            bool continuar = objRH.SolicitudVacacionesAdd(SRCvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, FechaPago: fechapago, diasinabiles: diasinhabil, CveTipoPago: DdlFormapagovacaciones.SelectedValue.ToEntero(), diasExtras: TxtVacDiasExtra.Text.ToEntero());//
+            bool continuar = objRH.SolicitudVacacionesAdd(SRCvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, FechaPago: fechapago, 
+                diasinabiles: diasinhabil, CveTipoPago: DdlFormapagovacaciones.SelectedValue.ToEntero(), diasExtras: TxtVacDiasExtra.Text.ToEntero()); 
             if (objRH.DtResultados.Rows.Count > 0)
             {
                 string ShowError = objRH.DtResultados.Rows[0]["ShowError"].ToString();
@@ -5846,7 +5907,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 }
                 catch (Exception ex)
                 {
-                    // OnError("Error al cargar Formato vacaciones", ex);
+                    this.OnError("Error al cargar Formato vacaciones", ex);
                 }
             }
             if (Documento.Length > 0)
@@ -6522,7 +6583,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         Response.Buffer = true;
 
         Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet";
-        Response.AddHeader("content-disposition", string.Format("attachment;filename=incidencias del al{0}.xlsx", ""));
+        Response.AddHeader("content-disposition", string.Format("attachment;filename=incidencias del {0:dd-MM-yyyy} al {1:dd-MM-yyyy}.xlsx", fechai, fechaf));
         Response.BinaryWrite(memoryStream.ToArray());
         Response.End();
     }
@@ -6724,4 +6785,5 @@ public partial class Nomina_Nomina2 : ClsPaginas
         LnkSRVacacionesADD.Visible = true;
     }
 
+
 }

OC/OC.aspx

@@ -2707,7 +2707,7 @@
     </div>
 
         <div id="DivmodalConmtrato" class="modal ADS fade">
-        <div class="modal-dialog">
+        <div class="modal-dialog" style="width: 650px; min-width: 470px;">
             <asp:UpdatePanel ID="UpModalContrato" runat="server" class="modal-content rowpadding" tabindex="-1" UpdateMode="Conditional">
                 <ContentTemplate>
                     
@@ -2761,7 +2761,7 @@
 
                                         <asp:TemplateField HeaderText="Producto">
                                             <ItemTemplate>
-                                                <asp:Label ID="LblPS" runat="server" CssClass="Texto" Text='<%# Eval("PS")%>' Width="250px"></asp:Label>
+                                                <asp:Label ID="LblPS" runat="server" CssClass="Texto" Text='<%# Eval("PS")%>'></asp:Label>
                                             </ItemTemplate>
                                         </asp:TemplateField>
 
@@ -2816,12 +2816,12 @@
         $(document).ready(function () {
             $('#<%= TxtSAImPorcentaje.ClientID%>').keyup(function () {
                 console.log($(this).val());
-                var importe = (ToDouble($(this).val()) / 100) * ToDouble($get("LblTotal").value.replace(",", ""));
+                var importe = (ToDouble($(this).val()) / 100) * ToDouble($get("LblTotal").value.replace(/,/g, ''));
-                $('#<%= TxtSAImporte.ClientID%>').val(FormatoNumero(importe, 2).replace(",", ""));
+                $('#<%= TxtSAImporte.ClientID%>').val(FormatoNumero(importe, 2).replace(/,/g, ""));
             });
             $('#<%= TxtSAImporte.ClientID%>').keyup(function () {
-                var importe = (100 * ToDouble($(this).val())) / ToDouble($get("LblTotal").value.replace(",", ""));
+                var importe = (100 * ToDouble($(this).val())) / ToDouble($get("LblTotal").value.replace(/,/g, ""));
-                $('#<%= TxtSAImPorcentaje.ClientID%>').val(FormatoNumero(importe, 2).replace(",", ""));
+                $('#<%= TxtSAImPorcentaje.ClientID%>').val(FormatoNumero(importe, 2).replace(/,/g, ""));
             });
 
             $get('HdnWidth').value = $("#DivConceptosContenido").width();

RH/CatPersonal.aspx.vb

@@ -9,6 +9,19 @@ Imports Microsoft.Reporting.WebForms
 Partial Class RH_CatPersonal
     Inherits ClsPaginas
 
+    Private Property ISChange As Boolean
+        Get
+
+            If ViewState("ISChange") Is Nothing Then
+                Return False
+            Else
+                Return DirectCast(ViewState("ISChange"), Boolean)
+            End If
+        End Get
+        Set(value As Boolean)
+            ViewState("ISChange") = value
+        End Set
+    End Property
     Private Property DTDatos As DataTable
         Get
 
@@ -24,8 +37,12 @@ Partial Class RH_CatPersonal
     End Property
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
+            If UsuarioActual.CveEmpresa.Contiene(1, 119, 158) Then
+                HplAddVenta.Visible = False
+            End If
+            LnkAddPersonalSimplificado.Visible = Not HplAddVenta.Visible
+            TxtFechaIngreso.Text = String.Format("{0:dd/MM/yyyy}", DateTime.Now)
             ViewState("Orden") = ""
-
             CargaEscolaridad()
             CargaEstadoCivil()
             CargaDepartamento()
@@ -41,6 +58,12 @@ Partial Class RH_CatPersonal
             CargaSupervisores()
             CargaMetodosPago()
             CargaDatos()
+            CargaTipoRegimen()
+            CargaJornada()
+            CargaEstados()
+            CargaSatRiesgoPuesto()
+
+            LoadDefaultValues()
         End If
     End Sub
 
@@ -135,6 +158,38 @@ Partial Class RH_CatPersonal
 
 #Region " C O M B O S "
 
+    Private Sub LoadDefaultValues()
+        DdlDepartamentoAdd.SelectedIndex = 1
+        DdlRegimenContratacion.SelectedValueExist(1)
+        DdlMetodoPagoAdd.SelectedValueExist(1)
+        DdlTipoPeriodoAdd.SelectedValueExist(1)
+        DdlTipoContratoAdd.SelectedValueExist(2)
+        DdlJornada.SelectedValueExist(6)
+        DdlPuestoAdd.SelectedIndex = 1
+        DdlRiesgoPuesto.SelectedIndex = 1
+    End Sub
+    Private Sub CargaSatRiesgoPuesto()
+        DdlRiesgoPuesto.DataSource = GlobalDTNomSatRiesgoPuesto
+        DdlRiesgoPuesto.DataBind()
+    End Sub
+    Private Sub CargaJornada()
+        DdlJornada.DataSource = GlobalDTJornadas
+        DdlJornada.DataBind()
+    End Sub
+    Private Sub CargaEstados()
+        DdlEstados.DataSource = GlobalDTGralEstados(1)
+        DdlEstados.DataBind()
+    End Sub
+    Private Sub CargaTipoRegimen()
+        Dim dt As DataTable = GlobalDTNomSatRegimenContratacion.Copy()
+        For Each item As DataRow In dt.Rows
+            item("RegimenContratacion") = String.Format("{1}{0} {2}", item("CveSATRegimenContratacion"), If(item("CveSATRegimenContratacion").ToString().Length > 1, "", "0"), item("RegimenContratacion"))
+        Next
+        dt.AcceptChanges()
+
+        DdlRegimenContratacion.DataSource = dt.FiltraParametros("", "RegimenContratacion")
+        DdlRegimenContratacion.DataBind()
+    End Sub
     Private Sub CargaEscolaridad()
         DdlEscolaridad.DataSource = GlobalDTEscolaridad
         DdlEscolaridad.DataBind()
@@ -142,7 +197,9 @@ Partial Class RH_CatPersonal
 
     Private Sub CargaGenero()
         DdlGenero.DataSource = GlobalDTGenero
+        DdlGeneroAdd.DataSource = GlobalDTGenero
         DdlGenero.DataBind()
+        DdlGeneroAdd.DataBind()
     End Sub
 
     Private Sub CargaEstadoCivil()
@@ -153,11 +210,15 @@ Partial Class RH_CatPersonal
     Private Sub CargaTipoPeriodo()
         DdlTipoPeriodo.DataSource = GlobalDTTipoPeriodo
         DdlTipoPeriodo.DataBind()
+        DdlTipoPeriodoAdd.DataSource = GlobalDTTipoPeriodo
+        DdlTipoPeriodoAdd.DataBind()
     End Sub
 
     Private Sub CargaTiposContrato()
         DdlTipoContrato.DataSource = GlobalDTTiposContrato
         DdlTipoContrato.DataBind()
+        DdlTipoContratoAdd.DataSource = GlobalDTTiposContrato
+        DdlTipoContratoAdd.DataBind()
     End Sub
 
     Private Sub CargaTurno()
@@ -167,12 +228,16 @@ Partial Class RH_CatPersonal
 
     Private Sub CargaDepartamento()
         DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlDepartamentoAdd.DataSource = DdlDepartamento.DataSource
+        DdlDepartamentoAdd.DataBind()
         DdlDepartamento.DataBind()
     End Sub
 
     Private Sub CargaPuestos()
         DdlPuesto.DataSource = GlobalDTRHPuestos(UsuarioActual.CveEmpresa)
+        DdlPuestoAdd.DataSource = DdlPuesto.DataSource
         DdlPuesto.DataBind()
+        DdlPuestoAdd.DataBind()
     End Sub
 
     Private Sub CargaRuta()
@@ -214,6 +279,10 @@ Partial Class RH_CatPersonal
     End Sub
 
     Private Sub CargaTipoCentroCosto()
+
+        CargarCentrosDeCosto(DdlProyectoAsignadoAdd, DdlSubProyectoAsignadoAdd, LblProyectoAsignado, LblSubProyectoAsignado)
+        DivProyectosAsignado.Visible = LblProyectoAsignado.Visible
+
         CargarCentrosDeCosto(DdlProyectoAsignado, DdlSubProyectoAsignado, LblProyecto, LblSubProyecto)
         DivProyecto.Visible = LblProyecto.Visible
         ChkSubProyecto.Text = LblSubProyecto.Text
@@ -228,6 +297,8 @@ Partial Class RH_CatPersonal
     Private Sub CargaMetodosPago()
         DdlMetodoPago.DataSource = GlobalDTMetodosPago
         DdlMetodoPago.DataBind()
+        DdlMetodoPagoAdd.DataSource = GlobalDTMetodosPago
+        DdlMetodoPagoAdd.DataBind()
     End Sub
 
 #End Region
@@ -1041,4 +1112,75 @@ Partial Class RH_CatPersonal
         '    End If
         'End Using
     End Sub
+
+    Protected Sub LnkGuardar_Click(sender As Object, e As EventArgs)
+        DdlTurno.SelectedIndex = 1
+        Dim CveEtadoCivil = 1
+        Dim CveEstatusPersonal = 1
+        Dim CveEscolaridad As Integer = 0
+        Dim isSindicalizado As Boolean = (DDlSindicalizado.SelectedValue = "1")
+        Dim CvePuesto As Integer = DdlPuestoAdd.SelectedValue.ToEntero()
+        Dim CveSATRiesgoPuesto As Integer = DdlRiesgoPuesto.SelectedValue.ToEntero()
+        Dim SalarioDiario As Decimal = TxtSalarioDiario.Text.ToDecimal()
+        Dim continuar As Boolean = False
+        Dim CvePersonal As Integer = 0
+        Using ObjPersonal As New ClsRH()
+
+            If ObjPersonal.AddPersonal("-1", TxtAPaterno.Text.Trim, TxtAMaterno.Text.Trim, TxtNombres.Text.Trim, "", TxtFechaIngreso.Text.ToDate,
+                   DdlTipoPeriodoAdd.SelectedValue.ToEntero, TxtNumeroSS.Text.Trim, True, SalarioDiario,
+                   SalarioDiario, 0, 0, 0, 15, 25, DdlMetodoPagoAdd.SelectedValue.ToEntero, TxtFechaIngreso.Text.Trim.ToDate, "-1",
+                   DdlTipoContratoAdd.SelectedValue.ToEntero, "",
+                   DdlTurno.SelectedValue.ToEntero, CvePuesto,
+                   DdlDepartamentoAdd.SelectedValue.ToEntero,
+                   -1, CveEscolaridad,
+                   CveEtadoCivil, DdlGeneroAdd.SelectedValue.ToEntero(),
+                   -1, "-1", CveEstatusPersonal, TxtFechaNacimiento.Text.ToDate,
+                   "", "", "", "", "", "", "",
+                   DdlEstados.SelectedValue.ToEntero, "", "", TxtRFC.Text.Trim,
+                   TxtCURP.Text.Trim, "", "", -1, CveSATRiesgoPuesto, DdlRegimenContratacion.SelectedValue.ToEntero,
+                   -1, DdlSubProyectoAsignadoAdd.SelectedValue.ToEntero, "",
+                   DdlSupervisor.SelectedValue.ToEntero, "", "", DdlJornada.SelectedValue.ToEntero, -1, "-1",
+                   0, "Seleccione", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, CveUniforme:=-1,
+                   TelefonoExtension:="", CelularPersonal:="", TelefonoMarcadoRapido:="", ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=isSindicalizado, CvePais:=151) Then
+                Alert(String.Format("El empleado a sido agregado satisfactoriamente <a href=""/RH/Personal.aspx?CvePersonal={0}"">Ver empleado</a>", ObjPersonal.CvePersonal), TipoMensaje.ToastInformacion, "", 0)
+                continuar = True
+                ISChange = True
+            Else
+                'Alert("El empleado a sido agregado satisfactoriamente", TipoMensaje.ToastInformacion, "", 0)
+            End If
+        End Using
+        DdlTurno.SelectedValueExist(-1)
+        If continuar Then
+            LimpiarCampos()
+            If chkcontinuarAgregando.Checked Then
+            Else
+
+                RegistraScript("$('#DmodalAddPersonal').modal('hide');")
+            End If
+        End If
+    End Sub
+
+    Protected Sub LimpiarCampos()
+        TxtAPaterno.Text = ""
+        TxtAMaterno.Text = ""
+        TxtNombres.Text = ""
+        TxtFechaNacimiento.Text = ""
+        TxtNumeroSS.Text = ""
+        TxtCURP.Text = ""
+        TxtRFC.Text = ""
+    End Sub
+
+    Protected Sub LnkAddPersonalSimplificado_Click(sender As Object, e As EventArgs)
+        ISChange = False
+        UpAddPerSimplificado.Update()
+        LimpiarCampos()
+        RegistraScript("$('#DmodalAddPersonal').modal();")
+    End Sub
+
+    Protected Sub ClickOnHideModal_Click(sender As Object, e As EventArgs)
+        If ISChange Then
+            CargaDatos()
+        End If
+
+    End Sub
 End Class

RH/ChecadorAsistencia.aspx

@@ -0,0 +1,55 @@
+<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="ChecadorAsistencia.aspx.cs" Inherits="RH_ChecadorAsistencia" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
+    ASistencia Cheador
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
+    
+    <asp:UpdatePanel ID="upDatosPA_R" runat ="server" UpdateMode="Conditional" >
+        <ContentTemplate>
+            <asp:GridView ID="GVGetAsistenciaChecador" runat="server" GridLines="None" CssClass ="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False"
+                datakeynames="CveEmpresa,CodigoNombreCompleto,SubProyecto,Checador,Fecha,FechaIng">
+                <Columns> 
+                    <asp:TemplateField HeaderText=" Nombre">
+                        <ItemTemplate>
+                            <asp:Label ID="lblcodigoNombreCompleto" runat="server" Text='<%# Eval("CodigoNombreCompleto")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Centro de costos">
+                        <ItemTemplate>
+                            <asp:Label ID="lblsubProyecto" runat="server" Text='<%# Eval("SubProyecto")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Checador">
+                        <ItemTemplate>
+                            <asp:Label ID="lblchecador" runat="server" Text='<%# Eval("Checador")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Fecha">
+                        <ItemTemplate>
+                            <asp:Label ID="lblfecha" runat="server" Text='<%# Eval("Fecha","{0:dd/MM/yyyy}")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Fecha ingreso">
+                        <ItemTemplate>
+                            <asp:Label ID="lblfechaIng" runat="server" Text='<%# Eval("FechaIng","{0:dd/MM/yyyy}")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField> 
+                </Columns>
+            </asp:GridView>
+        </ContentTemplate>
+    </asp:UpdatePanel> 
+</asp:Content>
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
+</asp:Content>
+ 

RH/ChecadorAsistencia.aspx.cs

@@ -0,0 +1,34 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Web;
+using System.Web.UI;
+using System.Web.UI.WebControls;
+
+public partial class RH_ChecadorAsistencia : System.Web.UI.Page
+{
+    protected void Page_Load(object sender, EventArgs e)
+    {
+        if (!IsPostBack)
+        {
+            using(ClsClaseBase objbase = new ClsClaseBase())
+            {
+                try
+                {
+                    Usuario user = (Usuario)Context.Session["UsuarioSIG"];
+                    if(objbase.runQuerystr(string.Format("EXEC PA_RH_GetAsistenciaChecador {0}", user.CveEmpresa))){
+                        GVGetAsistenciaChecador.DataSource = objbase.DtResultados;
+                        GVGetAsistenciaChecador.DataBind();
+
+                    }
+                }
+                catch (Exception)
+                {
+                     
+                }
+            }
+
+
+        }
+    }
+}

RH/Personal.aspx

@@ -645,22 +645,22 @@
                                                 </div>
                                                 <div class="portlet-body form">
                                                     <div class="form-group form-md-line-input input-iconright">
-                                                        <asp:DropDownList Width="100%" ID="DdlEstatusPersonal" runat="server" AppendDataBoundItems="True" AutoPostBack="True" DataTextField="EstatusPersonal" DataValueField="CveEstatusPersonal" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
+                                                        <asp:DropDownList Width="100%" ID="DdlEstatusPersonal" Enabled="false" runat="server" AppendDataBoundItems="True" AutoPostBack="True" DataTextField="EstatusPersonal" DataValueField="CveEstatusPersonal" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
                                                             <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                                         </asp:DropDownList>
                                                         <label for="<%= DdlEstatusPersonal.ClientID.ToString()%>">Estatus:  </label>
                                                         <asp:RequiredFieldValidator ID="RFVEstatusPersonal" runat="server" ControlToValidate="DdlEstatusPersonal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''EstatusPersonal''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                         <i></i>
                                                     </div>
-                                                    <div class="form-group form-md-line-input input-iconright">
+<%--                                                    <div class="form-group form-md-line-input input-iconright">
                                                         <asp:DropDownList Width="100%" ID="DdlMotivoBaja" runat="server" AppendDataBoundItems="True" DataTextField="MotivoBaja" DataValueField="CveMotivoBaja" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
                                                             <asp:ListItem Selected="True" Text="Sin asignar Motivo de Baja" Value="-1"></asp:ListItem>
                                                         </asp:DropDownList>
                                                         <label for="<%= DdlMotivoBaja.ClientID.ToString()%>">Motivo de Baja:  </label>
                                                         <i></i>
-                                                    </div>
+                                                    </div>--%>
 
-                                                    <div runat="server" id="DivFechaActivo" visible="true" class="form-group form-md-line-input input-iconright">
+<%--                                                    <div runat="server" id="DivFechaActivo" visible="true" class="form-group form-md-line-input input-iconright">
 
                                                         <div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="        padding: 5px 0px;">
                                                             <asp:TextBox ID="TxtFechaActivo" runat="server" CausesValidation="True" CssClass="form-control input-sm"></asp:TextBox>
@@ -677,9 +677,9 @@
 
                                                         <i></i>
 
-                                                    </div>
+                                                    </div>--%>
 
-                                                    <div runat="server" id="DivFechaBaja" visible="true" class="form-group form-md-line-input input-iconright">
+<%--                                                    <div runat="server" id="DivFechaBaja" visible="true" class="form-group form-md-line-input input-iconright">
 
                                                         <div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="        padding: 5px 0px;">
                                                             <asp:TextBox ID="TxtFechaBaja" runat="server" CausesValidation="True" CssClass="form-control input-sm"></asp:TextBox>
@@ -696,9 +696,9 @@
                                                         <asp:RequiredFieldValidator ID="RfvTxtFechaBaja" runat="server" ControlToValidate="TxtFechaBaja" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Baja''</b> es necesario " ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                         <i></i>
 
-                                                    </div>
+                                                    </div>--%>
 
-                                                    <div runat="server" id="DivFechaReingreso" visible="true" class="form-group form-md-line-input input-iconright">
+<%--                                                    <div runat="server" id="DivFechaReingreso" visible="true" class="form-group form-md-line-input input-iconright">
 
                                                         <div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="        padding: 5px 0px;">
                                                             <asp:TextBox ID="TxtFechaReingreso" runat="server" CausesValidation="True" CssClass="form-control input-sm"></asp:TextBox>
@@ -715,7 +715,7 @@
                                                         <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtFechaReingreso" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Reingreso''</b> es necesario " ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                         <i></i>
 
-                                                    </div>
+                                                    </div>--%>
 
 
                                                     <div>
@@ -4813,7 +4813,7 @@
                             <div style="        width: 200px;
         display: inline-block;">
                                 <div class="form-group form-md-line-input">
-                                    <asp:TextBox ID="TxtFechamodSalario" Enabled="false" CssClass="form-control" runat="server"></asp:TextBox>
+                                    <asp:TextBox ID="TxtFechamodSalario" CssClass="form-control" runat="server"></asp:TextBox>
                                     <asp:Label runat="server" AssociatedControlID="TxtFechamodSalario">Fecha:</asp:Label>
                                     <ajax:MaskedEditExtender ID="MEEFechaModSalario" runat="server" TargetControlID="TxtFechamodSalario" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                     <ajax:CalendarExtender runat="server" ID="CEEFechaModSalario" TargetControlID="TxtFechamodSalario" PopupButtonID="LnkFechaModSalario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>

RH/Personal.aspx.vb

@@ -876,7 +876,7 @@ Partial Class RH_Personal
                 divBitacora.Visible = True
                 CargaGvBitacora()
             Else
-
+                LoadDefaultValues()
                 'Configuración de Modalidad Insert
 
                 ImgAddObs.Visible = False
@@ -935,6 +935,20 @@ Partial Class RH_Personal
         AgregarEventosAsincronosGvVacaciones()
     End Sub
 
+
+
+    Private Sub LoadDefaultValues()
+        DdlDepartamento.SelectedIndex = 1
+        DdlRegimenContratacion.SelectedValueExist(1)
+        DdlMetodoPago.SelectedValueExist(1)
+        DdlTipoPeriodo.SelectedValueExist(1)
+        DdlTipoContrato.SelectedValueExist(2)
+        DdlJornada.SelectedValueExist(6)
+        DdlPuesto.SelectedIndex = 1
+        DdlTurno.SelectedIndex = 1
+        DdlEstatusPersonal.SelectedValue = "1"
+        DdlRiesgoPuesto.SelectedIndex = 1
+    End Sub
     Private Sub CargaCuentasContables()
         Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
         If ObjContabilidad.GetCuentas(-1, "-1", -1) Then
@@ -1061,8 +1075,8 @@ Partial Class RH_Personal
     End Sub
 
     Private Sub CargaMotivoBaja()
-        DdlMotivoBaja.DataSource = GlobalDTMotivoBaja.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        'DdlMotivoBaja.DataSource = GlobalDTMotivoBaja.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-        DdlMotivoBaja.DataBind()
+        'DdlMotivoBaja.DataBind()
     End Sub
 
     Private Sub CargaEstatusPersonal()
@@ -1510,14 +1524,13 @@ Partial Class RH_Personal
 
                 DdlPuesto.SelectedValue = ObjPersonal.CvePuesto.ToString()
                 DdlRuta.SelectedValue = ObjPersonal.CveRuta.ToString()
-                DdlMotivoBaja.SelectedValue = ObjPersonal.CveMotivoBaja.ToString()
+                'DdlMotivoBaja.SelectedValue = ObjPersonal.CveMotivoBaja.ToString()
 
-                TxtFechaBaja.Text = If(ObjPersonal.FechaBaja.ToShortDateString = "01/01/0001", "", ObjPersonal.FechaBaja.ToShortDateString)
 
-                If ObjPersonal.DtResultados IsNot Nothing AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then
+                'If ObjPersonal.DtResultados IsNot Nothing AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then
-                    TxtFechaActivo.Text = If(drow("FechaActivo").ToString().Length > 0, drow("FechaActivo").ToString().ToDate.ToString("dd/MM/yyyy"), drow("FechaIng").ToString().ToDate.ToString("dd/MM/yyyy"))
+                '    TxtFechaActivo.Text = If(drow("FechaActivo").ToString().Length > 0, drow("FechaActivo").ToString().ToDate.ToString("dd/MM/yyyy"), drow("FechaIng").ToString().ToDate.ToString("dd/MM/yyyy"))
-                    TxtFechaReingreso.Text = If(drow("FechaReingreso").ToString().Length > 0, drow("FechaReingreso").ToString().ToDate.ToString("dd/MM/yyyy"), "")
+                '    TxtFechaReingreso.Text = If(drow("FechaReingreso").ToString().Length > 0, drow("FechaReingreso").ToString().ToDate.ToString("dd/MM/yyyy"), "")
-                End If
+                'End If
 
                 DdlEstatusPersonal.SelectedValue = ObjPersonal.CveEstatusPersonal.ToString()
 
@@ -1699,19 +1712,18 @@ Partial Class RH_Personal
         Dim Mensaje = ""
         Dim Accion = ""
 
-        Dim FechaBaja As Date = MinFecha
+        'Dim FechaBaja As Date = MinFecha
-        Dim FechaActivo As Date = MinFecha
+        'Dim FechaActivo As Date = MinFecha
-        Dim FechaReingreso As Date = MinFecha
+        'Dim FechaReingreso As Date = MinFecha
 
-        If DdlEstatusPersonal.SelectedValue.ToEntero <> CvePersonalEstatusInicial Then
+        'If DdlEstatusPersonal.SelectedValue.ToEntero <> CvePersonalEstatusInicial Then
-            If DdlEstatusPersonal.SelectedValue.ToEntero = 1 Then
+        '    If DdlEstatusPersonal.SelectedValue.ToEntero = 1 Then
-                FechaActivo = TxtFechaActivo.Text.ToDate
+        '        FechaActivo = TxtFechaActivo.Text.ToDate
-            ElseIf DdlEstatusPersonal.SelectedValue.ToEntero = 2 Then
+        '    ElseIf DdlEstatusPersonal.SelectedValue.ToEntero = 2 Then
-                FechaBaja = TxtFechaBaja.Text.ToDate
+        '    ElseIf DdlEstatusPersonal.SelectedValue.ToEntero = 5 Then
-            ElseIf DdlEstatusPersonal.SelectedValue.ToEntero = 5 Then
+        '        FechaReingreso = TxtFechaReingreso.Text.ToDate
-                FechaReingreso = TxtFechaReingreso.Text.ToDate
+        '    End If
-            End If
+        'End If
-        End If
 
         If UsuarioActual.CveEmpresa = 72 OrElse UsuarioActual.CveEmpresa = 80 Then
             TxtSalarioCotizado.Text = TxtSDI.Text
@@ -1731,7 +1743,7 @@ Partial Class RH_Personal
                DdlEscolaridad.SelectedValue.ToEntero,
                DdlEstadoCivil.SelectedValue.ToEntero,
                DdlGenero.SelectedValue.ToEntero,
-               DdlMotivoBaja.SelectedValue.ToEntero, If(DdlEstatusPersonal.SelectedValue = "2", TxtFechaBaja.Text.Trim, "-1"),
+               -1, "-1",
                DdlEstatusPersonal.SelectedValue.ToEntero, TxtFechaNacimiento.Text.ToDate,
                TxtLugarNacimiento.Text.Trim, TxtCalle.Text.Trim, TxtNumExt.Text.Trim, TxtNumInt.Text.Trim, TxtColonia.Text.Trim, TxtCP.Text.Trim, TxtCiudad.Text.Trim,
                DdlEstados.SelectedValue.ToEntero, TxtTelefono.Text.Trim, TxtCelular.Text.Trim, TxtRFC.Text.Trim,
@@ -1802,7 +1814,7 @@ Partial Class RH_Personal
                DdlEscolaridad.SelectedValue.ToEntero,
                DdlEstadoCivil.SelectedValue.ToEntero,
                DdlGenero.SelectedValue.ToEntero,
-               DdlMotivoBaja.SelectedValue.ToEntero, If(DdlEstatusPersonal.SelectedValue = "2", TxtFechaBaja.Text.Trim, "-1"),
+               -1, "-1",
                DdlEstatusPersonal.SelectedValue.ToEntero, TxtFechaNacimiento.Text.ToDate,
                TxtLugarNacimiento.Text.Trim, TxtCalle.Text.Trim, TxtNumExt.Text.Trim, TxtNumInt.Text.Trim, TxtColonia.Text.Trim, TxtCP.Text.Trim, TxtCiudad.Text.Trim,
                DdlEstados.SelectedValue.ToEntero, TxtTelefono.Text.Trim, TxtCelular.Text.Trim, TxtRFC.Text.Trim,
@@ -1812,7 +1824,7 @@ Partial Class RH_Personal
                URL, DdlSupervisor.SelectedValue.ToEntero, TxtCLABE.Text.Trim, TxtBancoNumCuenta.Text.Trim, DdlJornada.SelectedValue.ToEntero, DdlViaticos.SelectedValue.ToEntero, DdlViaticos.SelectedItem.Text,
                DdlPrestamos.SelectedValue.ToEntero, DdlPrestamos.SelectedItem.Text, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero, DdlSubproyectoZona.SelectedValue.ToEntero, CveUniforme:=DdlUniforme.SelectedValue.ToEntero,
                TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveUsuarioModifico:=UsuarioActual.CveUsuario,
-               FechaActivo:=FechaActivo, FechaReingreso:=FechaReingreso, CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=If(ChkSindicalizado.Checked, 1, 0), CvePais:=DdlPais.SelectedValue.ToEntero) Then
+               CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=If(ChkSindicalizado.Checked, 1, 0), CvePais:=DdlPais.SelectedValue.ToEntero) Then
 
                 'Funsion usa RH Familiares
                 If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
@@ -2638,16 +2650,18 @@ Partial Class RH_Personal
 
     Private Sub MostrarOcultarFechasEstatus()
 
+        'DivFechaReingreso.Visible = False
+        'DivFechaActivo.Visible = False
 
-        If DdlEstatusPersonal.SelectedValue.ToEntero.Contiene(1, 2, 5) Then
+        'If DdlEstatusPersonal.SelectedValue.ToEntero.Contiene(1, 2, 5) Then
-            DivFechaActivo.Visible = If(DdlEstatusPersonal.SelectedValue.ToEntero = 1, True, False)
+        '    DivFechaActivo.Visible = If(DdlEstatusPersonal.SelectedValue.ToEntero = 1, True, False)
-            DivFechaBaja.Visible = If(DdlEstatusPersonal.SelectedValue.ToEntero = 2, True, False)
+        '    'DivFechaBaja.Visible = If(DdlEstatusPersonal.SelectedValue.ToEntero = 2, True, False)
-            DivFechaReingreso.Visible = If(DdlEstatusPersonal.SelectedValue.ToEntero = 5, True, False)
+        '    'DivFechaReingreso.Visible = If(DdlEstatusPersonal.SelectedValue.ToEntero = 5, True, False)
-        Else
+        'Else
-            DivFechaActivo.Visible = False
+        '    DivFechaActivo.Visible = False
-            DivFechaBaja.Visible = False
+        '    'DivFechaBaja.Visible = False
-            DivFechaReingreso.Visible = False
+        '    DivFechaReingreso.Visible = False
-        End If
+        'End If
 
     End Sub
 
@@ -3382,7 +3396,7 @@ Partial Class RH_Personal
                 params.Add(New ReportParameter("Proyecto", DdlProyectoAsignado.SelectedItem.Text))
                 params.Add(New ReportParameter("SubProyecto", DdlSubProyectoAsignado.SelectedItem.Text))
                 params.Add(New ReportParameter("Estatus", If(DdlEstatusPersonal.SelectedValue = "-1", "", DdlEstatusPersonal.SelectedItem.Text)))
-                params.Add(New ReportParameter("MotivoBaja", If(DdlMotivoBaja.SelectedValue = "-1", "", DdlMotivoBaja.SelectedItem.Text)))
+                params.Add(New ReportParameter("MotivoBaja", ""))
                 params.Add(New ReportParameter("FechaInicio", ObjPersonal.FechaIng.ToShortDateString))
                 params.Add(New ReportParameter("FechaFin", If(ObjPersonal.FechaBaja.ToShortDateString = "01/01/0001", "", ObjPersonal.FechaBaja.ToShortDateString)))
                 params.Add(New ReportParameter("CuentaContable", DdlViaticos.SelectedItem.Text))
@@ -3476,7 +3490,7 @@ Partial Class RH_Personal
                 params.Add(New ReportParameter("Proyecto", DdlProyectoAsignado.SelectedItem.Text))
                 params.Add(New ReportParameter("SubProyecto", DdlSubProyectoAsignado.SelectedItem.Text))
                 params.Add(New ReportParameter("Estatus", If(DdlEstatusPersonal.SelectedValue = "-1", "", DdlEstatusPersonal.SelectedItem.Text)))
-                params.Add(New ReportParameter("MotivoBaja", If(DdlMotivoBaja.SelectedValue = "-1", "", DdlMotivoBaja.SelectedItem.Text)))
+                params.Add(New ReportParameter("MotivoBaja", ""))
                 params.Add(New ReportParameter("FechaInicio", ObjPersonal.FechaIng.ToShortDateString))
                 params.Add(New ReportParameter("FechaFin", If(ObjPersonal.FechaBaja.ToShortDateString = "01/01/0001", "", ObjPersonal.FechaBaja.ToShortDateString)))
                 params.Add(New ReportParameter("CuentaContable", DdlViaticos.SelectedItem.Text))
@@ -5312,7 +5326,7 @@ Partial Class RH_Personal
         Dim Serie As String = TxtLiberarSerie.Text.Trim
 
         Dim CveResultadoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenUniforme, 3, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme)
-        Dim ResultadoDetalleSalida As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoSalida, Cantidad, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacenUniforme, Serie:=Serie, CveMovimientoDetalleEntrada:=CveMovimientoDetalleUniforme)
+        Dim ResultadoDetalleSalida As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoSalida, Cantidad, CveUM, CvePS, PU, CveSeccionAlmacen:=-3, Serie:=Serie, CveMovimientoDetalleEntrada:=CveMovimientoDetalleUniforme)
         Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacen.SelectedValue.ToEntero
         Dim CveResultadoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, 2, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme, CveMovimientoRelacionado:=CveMovimientoUniforme)
         Dim ResultadoDetalleEntrada As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoEntrada, Cantidad, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie)

Ventas/Ventas.aspx

@@ -10,7 +10,7 @@
             padding: 0px 5px;
         }
 
-        .nolineheight TxtNombreCliente line-height: 1;
+        .nolineheight {line-height: 1;
         }
 
         .claseesconder {

Ventas/Ventas.aspx.vb

@@ -8252,7 +8252,7 @@ Partial Class Ventas
                             If (TieneAnticipo AndAlso DdlTipoAmortizacionAnticipo.SelectedValue = "2") OrElse (ListaNCDesc IsNot Nothing AndAlso ListaNCDesc.Count > 0) Then
                                 CreaObjetosVentaAmortizacion(ObjVentas, FolioFiscalRelacionado, CveVentaRelacionada, NCDescuento:=NCDescuento)
                                 If RegistrarNCAmortizacion(ObjVentas, ObjConta, ObjInventario, ObjContr, ObjContPaq, ObjFacturaDevolucion, ObjBancos, Nothing,
-                                                               Nothing, NCDescuento:=NCDescuento, ListaNCDescuento:=ListaNCDesc, IndexNC:=(DtVentasNC.Rows.Count - 1)) Then
+                                                               Nothing, NCDescuento:=NCDescuento, ListaNCDescuento:=ListaNCDesc, IndexNC:=(If(DtVentasNC IsNot Nothing, DtVentasNC.Rows.Count - 1, 0))) Then
                                     Obj2.Add(ObjFacturaDevolucion)
                                 End If
                             End If

vwd.webinfo

@@ -270,6 +270,24 @@
     
   
     
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+    
+  
+