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

AC/CatOGClasificaciones.aspx.vb

@@ -50,6 +50,7 @@ Partial Class AC_CatOGClasificaciones
         If ObjClasificaciones.GetClasificaciones() Then
             ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("Codigo <> '' AND CveEmpresa = " & UsuarioActual.CveEmpresa, "Codigo")
             GlobalDTClasificaciones = ObjClasificaciones.DtResultados
+            GlobalDTACClasificadorObjetoGasto = ObjClasificaciones.DtResultados.FiltraParametros("Codigo <> '' ")
         Else
             Me.GvDatos.DataSource = Nothing
         End If
@@ -65,6 +66,7 @@ Partial Class AC_CatOGClasificaciones
 
     Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
         Dim ObjClasificaciones As New ClsClasificaciones
+
         If LbAgregar.Text = "Agregar" Then
             If ObjClasificaciones.AddClasificaciones(TxtOGClasificacion.Text.Trim, TxtCodigo.Text.Trim, -1, "", -1, "", -1, "", 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                 TxtOGClasificacion.Text = ""
@@ -90,6 +92,10 @@ Partial Class AC_CatOGClasificaciones
         End If
         RegistraScript(String.Format("$('#{0}').modal('hide');", "DivModal"))
         ObjClasificaciones.Dispose()
+
+
+        CargaDatos()
+
     End Sub
 
 #Region "G V  D A T O S"
@@ -278,4 +284,7 @@ Partial Class AC_CatOGClasificaciones
 
 #End Region
 
+
+
+
 End Class

App_Code/CalendarEvent.vb

@@ -27,4 +27,6 @@ Public Class CalendarEvent
     Public Property Prospecto As String
     Public Property CveTipoEvento As Integer
     Public Property Importe As Double
+    Public Property EmpresaCRM As String
+
 End Class

App_Code/ClsContabilidad.vb

@@ -4543,7 +4543,7 @@ Public Class ClsContabilidad
     Public Function UpdateCuenta(CveCuenta As Integer, Nombre As String, Tipo As String, CtaMayor As Integer, CveMoneda As Integer, Optional DigAgrupador As Integer = -1,
                                  Optional CveAgrupadorSAT As Integer = -1, Optional NomIdioma As String = "", Optional CveConceptoAdmin As Integer = -1, Optional CveProveedor As Integer = -1,
                                  Optional CveCliente As Integer = -1, Optional CveClasificacion As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1,
-                                 Optional CveBancoCuenta As Integer = -1, Optional CveAlmacen As Integer = -1) As Boolean
+                                 Optional CveBancoCuenta As Integer = -1, Optional CveAlmacen As Integer = -1, Optional Afectable As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_UpdateCuentas")
@@ -4564,6 +4564,7 @@ Public Class ClsContabilidad
             .Add("@PorcentajeImpuesto", SqlDbType.Money).Value = PorcentajeImpuesto
             .Add("@CveBancoCuenta", SqlDbType.Int).Value = CveBancoCuenta
             .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+            .Add("@Afectable", SqlDbType.Int).Value = Afectable
 
         End With
         Try
@@ -6398,5 +6399,26 @@ Public Class ClsContabilidad
 
 #End Region
 
+    Public Function UpdateTraspasoPrepoliza(CveEmpresa As Integer, CveCuenta As Integer, CveCuentaNueva As Integer) As Boolean
+        Dim Retorno = False
+
+        DataAdapter("PA_Conta_Traspaso_Prepolizas")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
+            .Add("@CveCuentaNueva", SqlDbType.Int).Value = CveCuentaNueva
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al obtener traspasar las Prepolizas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
 
 End Class

App_Code/ClsInventarios.vb

@@ -3571,6 +3571,26 @@ Public Class ClsInventarios
 
         Return Retorno
     End Function
+
+    Public Function ReconstruirCostos(CvePS As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Inv_ReconstruirCostos")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener al reconstruir los costos del producto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
 #End Region
 
 #Region "  INVENTARIOS - OC  "

App_Code/ClsNominas.vb

@@ -979,7 +979,7 @@ Public Class ClsNominas
 
     Public Function UpdateConcepto(Codigo As String, Concepto As String, Tipo As String, Formula As String, Sistema As Boolean, Estado As Boolean, CveConceptoPadre As Integer, CveConcepto As Integer,
                                    EsRetencion As Boolean, CveClasificacion As Integer, IdCtaContable As Integer, CveTipoGasto As Integer, TipoCalculo As Boolean, CveConceptoContable As Integer,
-                                   AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer) As Boolean
+                                   AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Nom_ConceptosUpdate")
@@ -1004,6 +1004,7 @@ Public Class ClsNominas
             .Add("Especie", SqlDbType.Bit).Value = Especie
             .Add("Imprimir", SqlDbType.Bit).Value = Imprimir
             .Add("CveSATConcepto", SqlDbType.Int).Value = CveSATConcepto
+            .Add("CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
 
         Try

App_Code/ClsPaginas.vb

@@ -4680,6 +4680,8 @@ Public Class ClsPaginas
             PaginaDict.Add("/Inventarios/RepTraspasoAlmacen.aspx".ToUpper(), 688)
             PaginaDict.Add("/Inventarios/EntregasPorRealizar.aspx".ToUpper(), 728)
             PaginaDict.Add("/Inventarios/CatAlmacenClasificacionSecciones.aspx".ToUpper(), 764)
+            PaginaDict.Add("/Inventarios/ReconstruirCostos.aspx".ToUpper(), 764)
+
 
 #End Region
 #Region "MF"
@@ -4788,9 +4790,13 @@ Public Class ClsPaginas
             PaginaDict.Add("/OI/RepDesarrollo.aspx".ToUpper(), 475)
             PaginaDict.Add("/OI/DesarrolloWizard.aspx".ToUpper(), 474)
             PaginaDict.Add("/OI/SubidasADS.aspx".ToUpper(), 476)
-            PaginaDict.Add("/OI/CatDocumentoCategoria.aspx".ToUpper(), 760)
+
-            PaginaDict.Add("/OI/CatDocumentoSubCategoria.aspx".ToUpper(), 761)
+            'PaginaDict.Add("/OI/CatDocumentoCategoria.aspx".ToUpper(), 760)
-            PaginaDict.Add("/OI/Documentos.aspx".ToUpper(), 762)
+            'PaginaDict.Add("/OI/CatDocumentoSubCategoria.aspx".ToUpper(), 761)
+            'PaginaDict.Add("/OI/Documentos.aspx".ToUpper(), 762)
+            PaginaDict.Add("/OI/CatDocumentoCategoria.aspx".ToUpper(), -1)
+            PaginaDict.Add("/OI/CatDocumentoSubCategoria.aspx".ToUpper(), -1)
+            PaginaDict.Add("/OI/Documentos.aspx".ToUpper(), -1)
             PaginaDict.Add("/OI/DocumentoDetalle.aspx".ToUpper(), -1)
 #End Region
 #Region "Planeacion"

App_Code/ClsProductosServicios.vb

@@ -208,7 +208,7 @@ Public Class ClsProductosServicios
     Public Function GetPS(CvePS As Integer, CveClasificacion As Integer, CveEmpresa As Integer, Optional Codigo As String = "-1", Optional Codigo2 As String = "-1",
                           Optional CodigoBarras As String = "-1", Optional PS As String = "-1", Optional EsPaquete As Integer = -1, Optional CveSubProyecto As Integer = -1,
                           Optional pAplicaParaVenta As Integer = -1, Optional pEstado As Integer = -1, Optional CveClasificacionCosto As Integer = -1, Optional CveTipoPS As Integer = -1,
-                          Optional CveCompuesto As Integer = -1, Optional SATClavePS As String = "-1", Optional TopSelect As Integer = 10000) As Boolean
+                          Optional CveCompuesto As Integer = -1, Optional SATClavePS As String = "-1", Optional TopSelect As Integer = 10000, Optional CveMarca As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_ProductosServiciosGet")
@@ -229,6 +229,7 @@ Public Class ClsProductosServicios
             .Add("@CveTipoPS", SqlDbType.Int).Value = CveTipoPS
             .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto
             .Add("@SATClavePS", SqlDbType.VarChar).Value = SATClavePS
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
             .Add("@TopSelect", SqlDbType.Int).Value = TopSelect
         End With
 
@@ -252,7 +253,7 @@ Public Class ClsProductosServicios
                 Oferta = Data.Rows(0)("Oferta").ToString.ToDouble
                 IVA = Data.Rows(0)("IVA").ToString.ToDouble
                 RetIVA = Data.Rows(0)("RetIVA").ToString.ToDouble
-                CveMarca = Data.Rows(0)("CveMarca").ToString.ToEntero
+                Me.CveMarca = Data.Rows(0)("CveMarca").ToString.ToEntero
                 AplicaParaConcepto = CBool(Data.Rows(0)("AplicaParaConcepto").ToString)
                 AplicaParaVenta = Data.Rows(0)("AplicaParaVenta").ToString = "True"
                 Estado = Data.Rows(0)("Estado").ToString = "Activo"

Ashx/CargaEventos.ashx

@@ -50,6 +50,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
     Private Function GetEventos(CveUsuario As Integer, CveEmpresa As Integer, pFI As Date, pFF As Date) As Boolean
         Dim ObjEventos As New ClsOIEventos
         Dim ErrorEventos = False
+        Dim CveEmpresaCRM As Integer = 0
         If ObjEventos.GetEventos(-1, -1, -1, "-1", "-1", -1, CveUsuario, CveUsuario, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, CveUsuario, CveUsuario, CveUsuario, CveEmpresa, pFI, pFF) Then
 
             If ObjEventos.DtResultados.Rows.Count > 0 Then
@@ -76,6 +77,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                         cevent.CveProspecto = dr("CveProspecto").ToString.ToEntero
                         cevent.Prospecto = dr("Prospecto").ToString
                         cevent.CveTipoEvento = dr("Prospecto").ToString.ToEntero
+                        cevent.EmpresaCRM = dr("EmpresaCRM").ToString
 
                         '11/05/2018 - Evento Gasto Recurrente
                         cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero

Bancos/Creditos.aspx.vb

@@ -983,7 +983,7 @@ Partial Class Bancos_Creditos
                     For Each gvr As GridViewRow In GvTA.Rows
                         If Not ObjCredito.UpdateCreditosDetalle(gvr.DataKey("CveCreditoDetalle").ToString.ToEntero, gvr.FCTextBox("TxtFecha").Text.ToString.ToDate, gvr.FCTextBox("TxtCapital").Text.ToString.ToDouble, gvr.FCTextBox("TxtIntereses").Text.ToString.ToDouble,
                                                              gvr.FCTextBox("TxtSeguro").Text.ToString.ToDouble, gvr.FCTextBox("TxtIVACapital").Text.ToString.ToDouble,
-                                                              gvr.FCTextBox("TxtIVAIntereses").Text.ToString.ToDouble, gvr.FCTextBox("TxtIVASeguro").Text.ToString.ToDouble, 1) Then
+                                                              gvr.FCTextBox("TxtIVAIntereses").Text.ToString.ToDouble, gvr.FCTextBox("TxtIVASeguro").Text.ToString.ToDouble, -1) Then
                             ErrorCredito = True
                             Exit For
                         End If

Bancos/DepositosCaja.aspx

@@ -85,14 +85,7 @@
                    </div>
                  </div>
                 <div class="portlet-body" style="display: none">
-                    <div class="row">
+   
-                         <label class="col-md-1 truncate" style="width: 100px;">SubProyecto:</label>
-                            <div class="col-md-2">
-                                <asp:DropDownList ID="DdlSubProyectos" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">                                   
-                                </asp:DropDownList>
-                            </div>
-
-                    </div>
                 </div>
             </div>
         </ContentTemplate>
@@ -104,15 +97,16 @@
         <ContentTemplate>
 
             <div class="row">
-                <div class="col-md-2 truncate"></div>
+                <div class="col-md-6" runat="server" style="text-align: right;">
-                <label class="col-md-2 truncate" style="width: 130px;">Cuenta Deposito:</label>
+                    <label style="font-size:1.2em">Cuenta Deposito:</label>
-                <div class="col-md-3">
+                    <asp:DropDownList ID="DdlCuentaDeposito" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" style="width: 300px;"></asp:DropDownList>
-                    <asp:DropDownList ID="DdlCuentaDeposito" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta"></asp:DropDownList>
+                 </div>
-                </div>
+                 <div class="col-md-3" runat="server" style="text-align: left;">
-
+                    <div class="col-md-1" >
-                <label class="col-md-1 truncate" style="width: 70px;">Fecha:</label>
+                        <label  style="width:70px; font-size:1.2em;">Fecha:</label>
-                <div class="col-md-2">
+                    </div>
-                    <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="padding-top: 0; width: 140px !important;">
+                     <div class="col-md-1" >
+                          <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="padding-top: 0; width: 140px !important;">
                         <asp:TextBox ID="TxtFecha" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
                         <span class="input-group-btn ">
                             <asp:LinkButton ID="ImgCalendarioFecha" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
@@ -124,23 +118,47 @@
                         <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
                         <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="CompareValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
                     </div>
+                    </div>
+                   
+                    
+                </div>
+   
+
+                <div class="col-md-3" style="text-align: right; font-size:1.2em;" runat="server" id="divLabelTotal" visible="false">
+                    <asp:label runat="server">Seleccionado: $</asp:label>
+                    <asp:label runat="server" ID="lblValorTotal">00.00</asp:label>
+                    <asp:label runat="server" ID="lblValorTotalSeleccionado" Visible="false"></asp:label>
+
                 </div>
             </div>
+            <div class="row">
 
-            <br />
+                 <div class="col-md-3" runat="server" Id="DivComision" Visible="false">
-            <br />
+                    <label style="width: 70px; font-size:1.2em">Comisión:</label>
-            <div runat="server" id="divLabelTotal" style="width:100%;text-align:right;font-size:1.5em" visible="false">
+                    <asp:TextBox runat="server" ID="TxtComision" Class="table-group-action-input form-control input-inline input-small input-sm select2me" style="width: 70px;"></asp:TextBox>
-                <asp:label runat="server">Importe seleccionado: $</asp:label><asp:label runat="server" ID="lblValorTotal">00.00</asp:label>
+                </div>
+
+                    <label class="col-md-1 truncate" style="width: 120px; font-size:1.2em; display: none" id="LblSubproyecto" >SubProyecto:</label>
+                    <div class="col-md-2"  style="display: none" id="divSubProyecton">
+                    <asp:DropDownList ID="DdlSubProyectos" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">                                   
+                    </asp:DropDownList>
+                    </div>
+
+                <label class="col-md-1 truncate" style="width: 120px; font-size:1.2em; display: none" id="LblClasificacion">Clasificación:</label>
+                <div class="col-md-2" style="display: none" id="divClasificacion">
+                    <asp:DropDownList  ID="DdlClasificacion" AutoPostBack="false" CssClass=" form-control input-sm select2me" runat="server"  Width="50%" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
+                    </asp:DropDownList>
+                </div>
             </div>
             <br />
-            <div style="height:575px;overflow-x:scroll">
+            <div style="height:550px;overflow-x:scroll">
-                <asp:GridView ID="GvFacturas" runat="server" AutoGenerateColumns="False" DataKeyNames="CveVenta, CvePrePoliza, CveIE, TipoCambio, CveMoneda, CveCliente, IdCtaContableBancos, IdCtaContClientes, Importe" CssClass="table table-striped table-advance table-hover" Style="text-align: center; float: right; width: 100%; font-size: medium;" GridLines="None">
+                <asp:GridView ID="GvFacturas" runat="server" AutoGenerateColumns="False" DataKeyNames="CveVenta, CvePrePoliza, CveIE, TipoCambio, CveMoneda, CveCliente, IdCtaContableBancos, IdCtaContClientes, Importe, SerieFolio" CssClass="table table-striped table-advance table-hover" Style="text-align: center; float: right; width: 100%; font-size: medium;" GridLines="None">
                 <Columns>
                     <asp:TemplateField>
                         <HeaderTemplate>
                         </HeaderTemplate>
                         <ItemTemplate>
-                            <asp:CheckBox ID="ChkFactura" OnCheckedChanged="ChkFactura_Click" runat="server" Checked="false" Enabled="True" AutoPostBack="True"/>
+                            <asp:CheckBox ID="ChkFactura" runat="server"/>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Factura">
@@ -200,5 +218,63 @@
 </asp:Content>
 
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+    <script type="text/javascript" language="javascript">
+
+        var ValorTotalSeleccionado = 0
+        var comision = 0;
+
+        function FnSuma(chk, cantidad) {
+            debugger;
+            var saldo = ToDouble($('#C_lblValorTotal').text());
+            debugger;
+            if (chk.checked == false) {
+                cantidad = cantidad * -1;
+                debugger;
+            }
+            saldo = saldo + cantidad;
+            debugger;
+            $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
+            $('#C_lblValorTotalSeleccionado').text(FormatoNumero(saldo, 2));
+            ValorTotalSeleccionado = saldo
+            
+            debugger;
+        }
+
+        function txtSuma(txt) {
+            var saldo = ToDouble($('#C_lblValorTotal').text());
+            var comision2 = ToDouble($('#C_TxtComision').val());
+            if (comision2 < ValorTotalSeleccionado) {
+                comision2 = comision2 - comision
+                saldo = saldo - comision2;
+                $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
+                comision = ToDouble($('#C_TxtComision').val())
+            } else {
+                $('#C_TxtComision').val(comision)
+                alert("No es posible poner una comision superior a lo seleccionado")
+            }
+
+            if (comision > 0) {
+                $('#LblSubproyecto').css("display", "block");
+                $('#divSubProyecton').css("display", "block");
+                $('#LblClasificacion').css("display", "block");
+                $('#divClasificacion').css("display", "block");
+
+                debugger;
+
+            } else {
+                $('#LblSubproyecto').css("display", "none");
+                $('#divSubProyecton').css("display", "none");
+                $('#LblClasificacion').css("display", "none");
+                $('#divClasificacion').css("display", "none");
+                debugger;
+            }
+
+                
+        }
+
+
+    </script>
+
+
 </asp:Content>
 

Bancos/DepositosCaja.aspx.vb

@@ -21,6 +21,8 @@ Partial Class Bancos_DepositosCaja
             TxtFecha.Text = Now.ToShortDateString
             txtFechaI.Text = Now.AddDays(-1).ToShortDateString
             txtFechaF.Text = Now.ToShortDateString
+            TxtComision.Attributes.Add("onKeyUp", "txtSuma(event);")
+
             CargaCuentas()
         End If
     End Sub
@@ -35,6 +37,10 @@ Partial Class Bancos_DepositosCaja
         DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
         DdlSubProyectos.DataBind()
         DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+        DdlClasificacion.DataBind()
+        DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
     Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
@@ -56,11 +62,14 @@ Partial Class Bancos_DepositosCaja
         GvFacturas.DataBind()
         lblValorTotal.Text = "00.00"
         divLabelTotal.Visible = True
+        DivComision.Visible = True
     End Sub
 
     Private Sub BtnDepositar_Click(sender As Object, e As EventArgs) Handles BtnDepositar.Click
 
         Dim TotalImporte As Decimal = 0
+        Dim TotalImportePrePoliza As Decimal
+
         For Each Gvr As GridViewRow In GvFacturas.Rows
             If Gvr.FCCheckBox("ChkFactura").Checked Then TotalImporte += Gvr.DataKey("Importe").ToDecimal
         Next
@@ -70,6 +79,14 @@ Partial Class Bancos_DepositosCaja
             Exit Sub
         End If
 
+        TotalImportePrePoliza = TotalImporte
+        If TxtComision.Text.ToEntero > 0 Then
+            TotalImporte = TotalImporte - TxtComision.Text.ToEntero
+            If DdlSubProyectos.SelectedValue.ToEntero = -1 Or DdlClasificacion.SelectedValue.ToEntero = -1 Then
+                Alert("Debes Seleccionar un Subproyecto y una Clasificación", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+        End If
 
         Dim OcurrioError As Boolean = False
         Dim ObjContabilidad As New ClsContabilidad()
@@ -88,7 +105,10 @@ Partial Class Bancos_DepositosCaja
         Dim CveCuentaBancariaDestino As Integer = 0
         Dim drOrigen As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
         Dim drDestino As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCuentaDeposito.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
-
+        Dim CveSubProyecto As Integer = 0
+        Dim CveClasificacion As Integer = 0
+        Dim documentos As String = "Los Depósitos se realizaron exitósamente<br/><br/>"
+        Dim imprimirFolios As String = ""
         If drOrigen IsNot Nothing Then
             CveMoneda = drOrigen("CveMoneda").ToString.ToEntero
             IdCuentaBancariaOrigen = drOrigen("IdCtaContable").ToString.ToEntero
@@ -101,7 +121,9 @@ Partial Class Bancos_DepositosCaja
             CveCuentaBancariaDestino = drDestino("IdCtaContableSIG").ToString.ToEntero
         End If
 
-        NuevaCvePrePoliza = ObjContabilidad.AddPrePolizas("Vta", 13, TotalImporte, TotalImporte, CveMoneda, Fecha, "Depósito Bancario", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        NuevaCvePrePoliza = ObjContabilidad.AddPrePolizas("Vta", 13, TotalImportePrePoliza, TotalImportePrePoliza, CveMoneda, Fecha, "Depósito Bancario", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+
 
         'Salida de Caja Chica
         FolioIE = ObjBancos.GetNextFolio(DdlCajaChica.SelectedValue.ToEntero, 2)
@@ -110,42 +132,59 @@ Partial Class Bancos_DepositosCaja
         End If
         CveIEOrigen = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, 2, Fecha, FolioIE.ToString, "Depósito Bancario", TotalImporte, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
-
+        If TxtComision.Text.ToEntero > 0 Then
-        'Entrada a Bancos
+            CveSubProyecto = DdlSubProyectos.SelectedValue.ToEntero
-        FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, 8)
+            CveClasificacion = DdlClasificacion.SelectedValue.ToEntero
-        If Not FolioIE > 0 Then
+            If ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveIE:=CveIEOrigen, ImporteMX:=TotalImporte * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then
-            OcurrioError = True
+                If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, TxtComision.Text.ToEntero, "Comisión", 78, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, ImporteMX:=TxtComision.Text.ToEntero * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then
+                    OcurrioError = True
+                End If
+            Else OcurrioError = True
+            End If
+        Else
+            If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveIE:=CveIEOrigen, ImporteMX:=TotalImporte * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then
+                OcurrioError = True
+            End If
         End If
-        CveIEDestino = ObjBancos.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToEntero, 8, Fecha, FolioIE.ToString, "Depósito Bancario", TotalImporte, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-
 
         For Each Gvr As GridViewRow In GvFacturas.Rows
 
             If Gvr.FCCheckBox("ChkFactura").Checked Then
                 'Datos de las Nuevas PrePolizas
+                'Entrada a Bancos
 
                 Dim Importe As Double = Gvr.DataKey("Importe").ToDouble
+                Dim SerieFolio As String = Gvr.DataKey("SerieFolio").ToString
 
                 'Datos de las Prepolizas A Cancelar
                 Dim CveIE As Integer = Gvr.DataKey("CveIE").ToEntero
                 Dim CveVenta As Integer = Gvr.DataKey("CveVenta").ToEntero
                 Dim CvePrePoliza As Integer = Gvr.DataKey("CvePrePoliza").ToEntero
 
+                FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, 8)
+                If Not FolioIE > 0 Then
+                    OcurrioError = True
+                End If
+                CveIEDestino = ObjBancos.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToEntero, 8, Fecha, FolioIE.ToString, "Depósito Bancario", Importe, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+
+                If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Importe.ToDecimal, SerieFolio, 30, "Depósito Bancario", Fecha, IdCuentaBancariaDestino, -1, CveIE:=CveIEDestino, ImporteMX:=Importe.ToDecimal * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then
+                    OcurrioError = True
+                End If
+
                 'Asignamos la cuenta Deposito
                 If Not ObjBancos.UpdateBancos_IECuentaDeposito(CveIEDestino, CveIE) Then
                     OcurrioError = True
                 End If
-
+                Dim StrEncript As String = Encripta($"OP=DC&CveIE={CveIEDestino}&CuentaCaja={DdlCajaChica.SelectedItem.Text}&CuentaDepo={DdlCuentaDeposito.SelectedItem.Text}")
+                documentos += String.Format("<a href='/Bancos/IE.aspx?CveIE={0}' target='_blank' class='Texto'>Documento {1}</a>  &nbsp &nbsp  ", CveIEDestino.ToString, SerieFolio)
+                documentos += String.Format("<a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir {1}</a> <br/><br/> ", StrEncript, SerieFolio)
             End If
 
+
         Next
 
-        If ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveIE:=CveIEOrigen, ImporteMX:=TotalImporte * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then
+
-            If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaDestino, -1, CveIE:=CveIEDestino, ImporteMX:=TotalImporte * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then
-                OcurrioError = True
-            End If
-        Else OcurrioError = True
-        End If
 
         If OcurrioError Then
             ObjContabilidad.RollBack()
@@ -153,12 +192,8 @@ Partial Class Bancos_DepositosCaja
         Else
             ObjContabilidad.Commit()
             CargaDatos()
-            Dim SbMensaje As New StringBuilder()
+
-            Dim StrEncript As String = Encripta($"OP=DC&CveIE={CveIEDestino}&CuentaCaja={DdlCajaChica.SelectedItem.Text}&CuentaDepo={DdlCuentaDeposito.SelectedItem.Text}")
+            Alert(documentos.ToString)
-            SbMensaje.Append("Los Depósitos se realizaron exitósamente<br/><br/>")
-            SbMensaje.AppendFormat("<a href='/Bancos/IE.aspx?CveIE={0}' target='_blank' class='Texto'>Documento</a> &nbsp &nbsp ", CveIEDestino)
-            SbMensaje.AppendFormat("<a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir</a> ", StrEncript)
-            Alert(SbMensaje.ToString)
 
         End If
 
@@ -178,7 +213,14 @@ Partial Class Bancos_DepositosCaja
     End Sub
 
     Public Sub ChkFactura_Click(sender As Object, e As EventArgs)
-        ObtenerTotalImporta()
+        'ObtenerTotalImporta()
     End Sub
 
+    Protected Sub GvFacturas_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvFacturas.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            e.Row.FCCheckBox("ChkFactura").Attributes.Add("onclick", String.Format("FnSuma(this,{0});", e.Row.DBCampo("Importe")))
+        End If
+    End Sub
+
+
 End Class

Bancos/IE.aspx

@@ -170,6 +170,8 @@
                                     <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>
                                     <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <asp:RangeValidator ID="RVTxtFechaDocumento" runat="server" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a la fecha actual" ControlToValidate="TxtFechaDocumento" MinimumValue="01/01/1900" Type="Date" ValidationGroup="GrpGuardar"></asp:RangeValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento3" runat="server" HighlightCssClass="vco" TargetControlID="RVTxtFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
 
                                 </div>
                             </div>

Bancos/IE.aspx.vb

@@ -6674,4 +6674,8 @@ Partial Class Bancos_IE
         UpEliminarCotizacion.Update()
 
     End Sub
+    Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
+        RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
+        Calendario.EndDate = DateTime.Now
+    End Sub
 End Class

Bancos/PopIECompras.aspx

@@ -528,6 +528,8 @@
                                                     <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>
                                                     <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                    <asp:RangeValidator ID="RVTxtFechaDocumento" runat="server" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a la fecha actual" ControlToValidate="TxtFechaDocumento" MinimumValue="01/01/1900" Type="Date" ValidationGroup="GrpGuardar"></asp:RangeValidator>
+                                                    <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento3" runat="server" HighlightCssClass="vco" TargetControlID="RVTxtFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
 
                                                 </div>
                                             </div>

Bancos/PopIECompras.aspx.vb

@@ -1660,8 +1660,9 @@ Partial Class Bancos_PopIECompras
                                                         If CveMonedaCompra <> 1 AndAlso (IdCtaContComplementaria > 0 Or UsuarioActual.CveEmpresa = 119) Then
                                                             IdCtaContable = IdCtaContComplementaria
                                                             CveCuenta = CveCuentaComplementaria
-                                                            If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then
+                                                            If ImporteMovimiento <> 0 Then
-                                                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, TxtObservaciones.Text, CveConceptoContableComplementaria, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor2, CvePersonal:=CvePersonal, ImporteMX:=ImporteMovimiento * tipoCambioCompra - ImporteMovimiento, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioCompra, CveCuenta:=CveCuenta) Then
+                                                                Dim ImporteMN As Decimal = (ImporteMovimiento * tipoCambioCompra - ImporteMovimiento).RoundSQL
+                                                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, TxtObservaciones.Text, CveConceptoContableComplementaria, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor2, CvePersonal:=CvePersonal, ImporteMX:=ImporteMN, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioCompra, CveCuenta:=CveCuenta) Then
                                                                     MsgError = "No se pudo insertar la póliza"
                                                                 End If
                                                             End If
@@ -3644,4 +3645,11 @@ Partial Class Bancos_PopIECompras
         UpGuardar.Update()
     End Sub
 
+    Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
+        RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
+        Calendario.EndDate = DateTime.Now
+
+    End Sub
+
+
 End Class

Bancos/PopIEVentas.aspx

@@ -450,6 +450,8 @@
                                                     <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>
                                                     <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                    <asp:RangeValidator ID="RVTxtFechaDocumento" runat="server" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a la fecha actual" ControlToValidate="TxtFechaDocumento" MinimumValue="01/01/1900" Type="Date" ValidationGroup="GrpGuardar"></asp:RangeValidator>
+                                                    <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento3" runat="server" HighlightCssClass="vco" TargetControlID="RVTxtFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
 
                                                 </div>
                                             </div>

Bancos/PopIEVentas.aspx.vb

@@ -687,7 +687,7 @@ Partial Class Bancos_PopIEVentas
                 'JJMQ:20190606 Se cancela código de validacion ante el SAT por lentitud en el servicio.
                 'Sustituir la línea anterior por todo lo siguiente hasta donde termina el end if para que valide de nueva cuenta
                 'Dim Validada As Boolean = False
-                If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" Then
+                If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" AndAlso dr("FolioFiscal").ToString() <> "" Then
 
 
                     Dim Valida As New ClsValidaCFDi(dr("FolioFiscal").ToString(), UsuarioActual.Empresa.RFC, dr("ClienteRFC").ToString, dr("Total").ToString.ToDecimal)
@@ -3660,9 +3660,14 @@ Partial Class Bancos_PopIEVentas
         ObjBancos.Dispose()
         ' Next
         Return Retorno.ToString
-    End Function
+    End Function
-
+
 #End Region
-
+    Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
-
+        RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
+        Calendario.EndDate = DateTime.Now
+
+    End Sub
+
+
 End Class

Bancos/ProveedoresAbonar.aspx

@@ -120,6 +120,9 @@
                                 <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
                                 <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
                                 <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="MEVCalendario" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <asp:RangeValidator ID="RVTxtFechaDocumento" runat="server" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a la fecha actual" ControlToValidate="TxtFechaDocumento" MinimumValue="01/01/1900" Type="Date" ValidationGroup="GrpGuardar"></asp:RangeValidator>
+                                <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento3" runat="server" HighlightCssClass="vco" TargetControlID="RVTxtFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
+
                             </div>
                         </div>
                         <div class="row">

Bancos/ProveedoresAbonar.aspx.vb

@@ -3388,6 +3388,12 @@ Partial Class Bancos_ProveedoresAbonar
 
 #End Region
 
+    Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
+        RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
+        Calendario.EndDate = DateTime.Now
+
+    End Sub
+
 
 End Class
 

CRM/RepAcercamientosProcesosDetalle.aspx

@@ -3,6 +3,7 @@
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+
     <style>
         .Filtros {
             padding: 10px;
@@ -45,7 +46,12 @@
                 transition: color 0.15s ease, background-color 0.15s ease, border-color 0.15s ease, box-shadow 0.15s ease;
                 transition: color 0.15s ease, background-color 0.15s ease, border-color 0.15s ease, box-shadow 0.15s ease, -webkit-box-shadow 0.15s ease;
             }
-    </style>
+            .chkChoice input 
+            { 
+                margin-right: 5px; 
+            }
+
+    </style>cc
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
     Reporte Detalle de los Acercamientos Procesos
@@ -55,7 +61,15 @@
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
     <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <li></li>
+            <li>
+                <asp:LinkButton ID="LnkEditargv"  runat="server" OnClick="LnkEditargv_Click"><i class="fa fa-edit" ></i><span style="padding-left:5px;">Personalizar Columnas</span></asp:LinkButton>
+            </li>
+<%--            <li>
+                <asp:LinkButton ID="LnkImprimir" OnClick="LnkImprimir_Click" runat="server"><i class="fa fa-file-pdf-o"></i><span style="padding-left:5px;">PDF</span></asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="LnkImprimirExcel" OnClick="LnkImprimirExcel_Click" runat="server"><i class="fa fa-file-excel-o"></i><span style="padding-left:5px;">Excel</span></asp:LinkButton>
+            </li>--%>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>
@@ -248,7 +262,7 @@
                 </div>
             </div>
 
-            <asp:GridView ID="GVRepAcercamientosDetalle" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVRepAcercamientosDetalle" AutoGenerateColumns="False" DataKeyNames="CveAcercamiento">
+            <asp:GridView ID="GVRepAcercamientosDetalle" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVRepAcercamientosDetalle" AutoGenerateColumns="False" DataKeyNames="CveAcercamiento" OnRowDataBound="GVRepAcercamientosDetalle_RowDataBound">
                 <Columns>
                     <asp:TemplateField HeaderText="Prospecto">
                         <ItemTemplate>
@@ -296,10 +310,53 @@
                             <asp:Label ID="lblcelular" runat="server" Text='<%# Eval("Celular")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    
+                    <asp:BoundField DataField="FechaApertura" ItemStyle-Width="5%" HeaderText="Fecha Apertura" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
+                    <asp:BoundField DataField="FechaCierre" ItemStyle-Width="5%" HeaderText="Fecha de Cierre" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
+                    <asp:BoundField DataField="PS" ItemStyle-Width="5%" HeaderText="Producto Servicio" ItemStyle-HorizontalAlign="Center" />
+                    <asp:TemplateField HeaderText="Prioridad">
+                        <ItemTemplate>
+                            <asp:Label ID="lblPrioridad" runat="server" Text='<%# Eval("Prioridad")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:BoundField DataField="Importe" ItemStyle-Width="5%" HeaderText="Importe" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:c}" />
+                    <asp:BoundField DataField="Comision" ItemStyle-Width="5%" HeaderText="Comisión" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:c}" />
+
                 </Columns>
             </asp:GridView>
         </ContentTemplate>
     </asp:UpdatePanel>
+
+        <div id="ModalEditar" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel ID="UpEditargv" class="modal-dialog modal-sm rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content">
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal">&times;</button>
+                        <h4 class="modal-title">Editar Columnas</h4>
+                    </div>
+                    <div class="modal-body">
+                        <asp:CheckBoxList ID="CBLEditargv" RepeatDirection="Horizontal" RepeatColumns="3" runat="server" CssClass="chkChoice">
+                                    <asp:ListItem Text=" Fecha Apertura" Value="1"></asp:ListItem>
+                                    <asp:ListItem Text=" Fecha de Cierre" Value="2"></asp:ListItem>
+                                    <asp:ListItem Text=" Producto Servicio" Value="3"></asp:ListItem>
+                                    <asp:ListItem Text=" Prioridad" Value="4"></asp:ListItem>
+                                    <asp:ListItem Text=" Importe" Value="5"></asp:ListItem> 
+                                    <asp:ListItem Text=" Comisión" Value="6"></asp:ListItem>
+          
+                            </asp:CheckBoxList>
+                    </div>
+                    <div class="modal-footer">
+                        <asp:Button id="GuardarEditargv" OnClick="GuardarEditargv_Click" type="button" class="btn btn-primary" runat="server" Text="Guardar"></asp:Button>
+
+                        <button id="CancelarTiposAlmacen" type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
+
+
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
 </asp:Content>

CRM/RepAcercamientosProcesosDetalle.aspx.cs

@@ -196,6 +196,12 @@ public partial class CRM_RepAcercamientosProcesosDetalle : ClsPaginas
         GVRepAcercamientosDetalle.DataSource = ObjRepA.DtResultados;
         ObjRepA.Dispose();
         GVRepAcercamientosDetalle.DataBind();
+        this.GVRepAcercamientosDetalle.Columns[9].Visible = false;
+        this.GVRepAcercamientosDetalle.Columns[10].Visible = false;
+        this.GVRepAcercamientosDetalle.Columns[11].Visible = false;
+        this.GVRepAcercamientosDetalle.Columns[12].Visible = false;
+        this.GVRepAcercamientosDetalle.Columns[13].Visible = false;
+        this.GVRepAcercamientosDetalle.Columns[14].Visible = false;
         upDatosRepA.Update();
     }
 
@@ -225,4 +231,45 @@ public partial class CRM_RepAcercamientosProcesosDetalle : ClsPaginas
         RcveProbabilidadAcercamiento = DdlProbabilidad.SelectedValue.ToEntero();
         cargarDatos();
     }
+
+    protected void GVRepAcercamientosDetalle_RowDataBound(object sender, GridViewRowEventArgs e)
+    {
+        if (e.Row.RowType == DataControlRowType.DataRow)
+        {
+            if  (e.Row.FCLabel("lblPrioridad").Text.ToEntero() == 1)
+            {
+                e.Row.FCLabel("lblPrioridad").Text = "Baja";
+            } 
+            else if (e.Row.FCLabel("lblPrioridad").Text.ToEntero() == 2) 
+            {
+                e.Row.FCLabel("lblPrioridad").Text = "Media";
+            }
+            else if (e.Row.FCLabel("lblPrioridad").Text.ToEntero() == 3) 
+            {
+                e.Row.FCLabel("lblPrioridad").Text = "Alta";
+            }
+        }
+    }
+    protected void LnkEditargv_Click(object sender, EventArgs e)
+    {
+
+        RegistraScript("$('#ModalEditar').modal('show')");
+    }
+
+    protected void GuardarEditargv_Click(object sender, EventArgs e)
+    {
+        foreach (ListItem item in CBLEditargv.Items)
+        {
+            if (item.Value.ToEntero() == 1) { if (item.Selected) { this.GVRepAcercamientosDetalle.Columns[9].Visible = true; } else { this.GVRepAcercamientosDetalle.Columns[9].Visible = false; } }
+            if (item.Value.ToEntero() == 2) { if (item.Selected) { this.GVRepAcercamientosDetalle.Columns[10].Visible = true; } else { this.GVRepAcercamientosDetalle.Columns[10].Visible = false; } }
+            if (item.Value.ToEntero() == 3) { if (item.Selected) { this.GVRepAcercamientosDetalle.Columns[11].Visible = true; } else { this.GVRepAcercamientosDetalle.Columns[11].Visible = false; } }
+            if (item.Value.ToEntero() == 4) { if (item.Selected) { this.GVRepAcercamientosDetalle.Columns[12].Visible = true; } else { this.GVRepAcercamientosDetalle.Columns[12].Visible = false; } }
+            if (item.Value.ToEntero() == 5) { if (item.Selected) { this.GVRepAcercamientosDetalle.Columns[13].Visible = true; } else { this.GVRepAcercamientosDetalle.Columns[13].Visible = false; } }
+            if (item.Value.ToEntero() == 6) { if (item.Selected) { this.GVRepAcercamientosDetalle.Columns[14].Visible = true; } else { this.GVRepAcercamientosDetalle.Columns[14].Visible = false; } }
+        }
+        upDatosRepA.Update();
+        RegistraScript("$('#ModalEditar').modal('hide')");
+
+    }
+
 }

Compras/Compras.aspx.vb

@@ -1355,7 +1355,7 @@ Partial Class Compras_Compras
                     GvInv.Visible = True
                     CargaProveedor(-1, RFC)
 
-                    If Not DdlTipoComprobante.SelectedValue = "NC" Then
+                    If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
                         If UsuarioActual.Empresa.Funcionalidad(128) = "1" And Not UsuarioActual.TienePermisoProceso(213) Then
                             If TmpDT.MAX("CvePS").ToEntero > 0 Then
                                 BtnGuardar.Enabled = False
@@ -1449,6 +1449,8 @@ Partial Class Compras_Compras
                 DivEsNoDeducible.Visible = True
                 DivActualizarVincular.Visible = True
 
+
+
             Else
 
                 ViewState("CveProveedor") = -1
@@ -1824,7 +1826,7 @@ Partial Class Compras_Compras
                             DdlTipoCompra.Items.Clear()
                             DdlTipoCompra.Items.Add(New ListItem("Seleccione", "-1"))
                             DdlTipoCompra.Items.Add(New ListItem("NC Con Productos", "6"))
-							DdlTipoCompra.Items.Add(New ListItem("Apoyo Logístico", "9"))
+                            DdlTipoCompra.Items.Add(New ListItem("Apoyo Logístico", "9"))
                             DdlTipoCompra.Items.Add(New ListItem("NC Por Devolución", "11"))
 
 
@@ -2708,9 +2710,9 @@ Partial Class Compras_Compras
 
                     TmpDT.Columns.Add("CveContrato", GetType(Integer))
                     TmpDT.Columns.Add("DifPSSat", GetType(Integer))
-                   
+
-				   
+
-				   
+
                     If Not TmpDT.Columns.Contains("CveContratoDetalle") Then
                         TmpDT.Columns.Add("CveContratoDetalle", GetType(Integer))
                     End If
@@ -4060,13 +4062,15 @@ Partial Class Compras_Compras
         '    DtNoEncontrados.Dispose()
         'End If
 
-        'Verifica funcionalidad 702 "Require orden de compra para factura de compra"
+        'Verifica funcionalidad 128 "Require orden de compra para factura de compra"
 
-        If UsuarioActual.Empresa.Funcionalidad(128) <> "" Then
+        If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
-            If Not EstaAsociadoACajaChica And Not EstaAsociadoAPersonal Then
+            If UsuarioActual.Empresa.Funcionalidad(128) = "1" And Not UsuarioActual.TienePermisoProceso(213) Then
-                If Not CompraEstaVinculadaOC Then
+                If Not EstaAsociadoACajaChica And Not EstaAsociadoAPersonal Then
-                    Alert("Debe de vincular una orden de compra para registrar la factura")
+                    If Not CompraEstaVinculadaOC Then
-                    Exit Sub
+                        Alert("Debe de vincular una orden de compra para registrar la factura")
+                        Exit Sub
+                    End If
                 End If
             End If
         End If
@@ -5107,7 +5111,7 @@ Partial Class Compras_Compras
                                                                             Row("Obs").ToString, Row("CveOrdenCompraDetalle").ToString.ToEntero, TipoRecepcion, Row("CveContrato").ToString.ToEntero, Row("CvePresupuestoEgreso").ToString.ToEntero,
                                                                             AplicaCostoIndirecto:=Row("AplicaCostoIndirecto").ToString.ToEntero, EstatusAlmacen:=Row("EntregaDirecta").ToString.ToEntero, CvePersonal:=CvePersonal,
                                                                             CveTipoGasto:=Row("CveTipoGasto").ToString.ToEntero, AF_Medida:=Row("AFMedida").ToString.ToEntero, AF_TipoMantenimiento:=Row("AFTipoMantenimiento").ToString.ToEntero, Referencia:=Referencia, OtrosGastos:=Row("OtrosGastos").ToString.ToDecimal,
-                                                                            RetIVA:=Row("RetIVA").ToString.ToDouble, RetISR:=Row("RetISR").ToString.ToDouble, IEPSPS:=Row("IEPSPS").ToString.ToDouble, IEPSPSIVA:=Row("IEPSPSIVA").ToString.ToDouble,
+                                                                            RetIVA:=Row("RetIVA").ToString.ToDouble, RetISR:=Row("RetISR").ToString.ToDouble, IEPSPS:=Row("IEPSPS").ToString.ToDouble.RoundSQL, IEPSPSIVA:=Row("IEPSPSIVA").ToString.ToDouble,
                                                                             IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDouble, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDouble,
                                                                             IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDouble, NoDeducible:=If((Row("NoDeducible").ToString().ToUpper().Contiene("TRUE", "1")) AndAlso EsNoDeducible, True, False),
                                                                             CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero, CveCultivoCuadroDetalle:=Row("CveCultivoCuadroDetalle").ToString.ToEntero) Then
@@ -6769,13 +6773,12 @@ Partial Class Compras_Compras
                                                                                 Dim CveSubProyecto69 As Integer = TmpDT.MAX("CveSubProyecto").ToEntero
 
                                                                                 If CveSubProyecto69 <= 0 Then
-                                                                                    Alert("Debe de asignar un sub proyecto o centro de constos", TipoMensaje.MsgAdvertencia)
+                                                                                    Alert("Debe de asignar un sub proyecto o centro de costos", TipoMensaje.MsgAdvertencia)
                                                                                     ErrorPrepoliza = True
                                                                                     Exit For
                                                                                 End If
 
                                                                                 IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasificacionCostoOC}").ToString.ToEntero
-                                                                                CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {CveClasificacionCostoOC}").ToString.ToEntero
                                                                                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SumatoriaOCINV, Referencia, 69, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveClasificacion:=CveClasificacionCostoOC, ImporteMX:=SumatoriaOCINV, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto69) Then
                                                                                     ErrorPrepoliza = True
                                                                                     Exit For
@@ -7298,6 +7301,10 @@ Partial Class Compras_Compras
                                                                                 importeMovimiento = importeMovimiento.Abs.RoundSQL()
                                                                                 importeMN = importeMovimiento
                                                                                 If importeMovimiento <> 0 Then
+
+
+
+
                                                                                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto) Then
                                                                                         ErrorPrepoliza = True
                                                                                         Exit For
@@ -7481,7 +7488,9 @@ Partial Class Compras_Compras
                                                                                 importeMovimiento = importeMovimiento.Abs.RoundSQL()
                                                                                 importeMN = importeMovimiento
                                                                                 If importeMovimiento <> 0 Then
-                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+
+                                                                                    Dim CveSubProyecto6465 As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero
+                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyecto6465, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
                                                                                         ErrorPrepoliza = True
                                                                                         Exit For
                                                                                     End If
@@ -7575,7 +7584,9 @@ Partial Class Compras_Compras
                                                                                     importeMovimiento = importeMovimiento.Abs.RoundSQL()
                                                                                     importeMN = importeMovimiento
                                                                                     If importeMovimiento <> 0 Then
-                                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                                        Dim CveSubProyecto6465 As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero
+                                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyecto6465, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+
                                                                                             ErrorPrepoliza = True
                                                                                             Exit For
                                                                                         End If
@@ -7671,7 +7682,8 @@ Partial Class Compras_Compras
 
                                                                                 importeFluctuacion = importeFluctuacion.Abs.RoundSQL()
                                                                                 If importeFluctuacion <> 0 Then
-                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeFluctuacion, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeFluctuacion, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                                    Dim CveSubProyecto6465 As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero
+                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeFluctuacion, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyecto6465, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeFluctuacion, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
                                                                                         ErrorPrepoliza = True
                                                                                         Exit For
                                                                                     End If
@@ -9033,9 +9045,14 @@ Partial Class Compras_Compras
                                                                     CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria
                                                                 End If
 
+
+
+
+
                                                                 importeFluctuacion = importeFluctuacion.Abs.RoundSQL()
                                                                 If importeFluctuacion <> 0 Then
-                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, importeFluctuacion, "", ConceptoContable, ConceptoPartida, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeFluctuacion, CvePrePolizaOriginal:=CvePrePolizaNueva, ImporteME:=0, CveCuenta:=CveCuenta) Then
+                                                                    Dim CveSubProyecto6465 As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero
+                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, importeFluctuacion, "", ConceptoContable, ConceptoPartida, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyecto6465, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeFluctuacion, CvePrePolizaOriginal:=CvePrePolizaNueva, ImporteME:=0, CveCuenta:=CveCuenta) Then
                                                                         ErrorMovtosCxP = 1
                                                                     End If
                                                                 End If
@@ -9457,8 +9474,13 @@ Partial Class Compras_Compras
                                                                 importeMN = ImporteMovimiento
                                                             End If
 
+
+
+
                                                             If ImporteMovimiento <> 0 Then
-                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContable, Concepto, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta) Then
+
+                                                                Dim CveSubProyecto64 As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero
+                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContable, Concepto, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyecto64, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta) Then
                                                                     ErrorMovtosCxP = 1
                                                                     Exit For
                                                                 End If
@@ -9481,7 +9503,8 @@ Partial Class Compras_Compras
                                                             End If
 
                                                             If ImporteMovimiento <> 0 Then
-                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContable, Concepto, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta) Then
+                                                                Dim CveSubProyecto65 As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero
+                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContable, Concepto, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyecto65, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta) Then
                                                                     ErrorMovtosCxP = 1
                                                                     Exit For
                                                                 End If
@@ -17839,7 +17862,7 @@ Partial Class Compras_Compras
 
         If UsuarioActual.Empresa.Tipo_CentroCosto <> 1 And UsuarioActual.Empresa.Tipo_CentroCosto <> 2 Then
             DdlProyecto.SelectedValueExist(GvRow.DataKey("CveProyecto"))
-		 Else
+        Else
             DdlProyecto.SelectedValueExist("-1")
         End If
 
@@ -18043,14 +18066,12 @@ Partial Class Compras_Compras
 
                     UpIVA.Update()
 
-                    If DdlClasificacion.SelectedIndex = 0 Then
+                    If PS("CveClasificacion").ToString IsNot Nothing Then
-                        If PS("CveClasificacion").ToString IsNot Nothing Then
+                        DdlClasificacion.SelectedValueExist(PS("CveClasificacion").ToString)
-                            DdlClasificacion.SelectedValueExist(PS("CveClasificacion").ToString)
+                    Else
-                        Else
+                        Alert("El Productos/Servicio no tiene asignada una Clasificación.")
-                            Alert("El Productos/Servicio no tiene asignada una Clasificación.")
-                        End If
-
                     End If
+
                     UPPUM.Update()
                     UpPSS.Update()
                 End If
@@ -19148,6 +19169,7 @@ Partial Class Compras_Compras
         CargaAnticipos(CveProveedor, If(ChkNCInv.Checked, "NC", "-1"))
         UpAnticipos.Update()
     End Sub
+
     Private Sub CargaNCINV(Optional ShowAllPendientes As Boolean = False)
 
         Dim SaldoAnticipo = 0.0
@@ -20198,7 +20220,7 @@ Partial Class Compras_Compras
                         Dim drInv As DataRow = DtInvOC.FiltroPrimero("")
                         If drInv IsNot Nothing Then 'sino existe  no hay problema, porque puede ser le producto un servicio
                             DrInvOCDiferencias("TipoCambioAjuste") = drInv("TipoCambioAjuste").ToString.ToDecimal
-                            DrInvOCDiferencias("Diferencia") = ((gvr.FCTextBox("TxtPU").Text.ToDecimal * drInv("TipoCambioAjuste").ToString.ToDecimal) - drInv("PU").ToString.ToDecimal) * gvr.FCTextBox("TxtCantidad").Text.ToDecimal 'diferencia * drInv("TipoCambioAjuste").ToString.ToDecimal '
+                            DrInvOCDiferencias("Diferencia") = ((gvr.FCTextBox("TxtPU").Text.ToDecimal * drInv("TipoCambioAjuste").ToString.ToDecimal) - drInv("PUOriginal").ToString.ToDecimal) * gvr.FCTextBox("TxtCantidad").Text.ToDecimal 'diferencia * drInv("TipoCambioAjuste").ToString.ToDecimal '
                             DrInvOCDiferencias("CveAlmacen") = drInv("CveAlmacen").ToString.ToEntero
                             DrInvOCDiferencias("CveMovimiento") = drInv("CveMovimiento").ToString.ToEntero
                             DrInvOCDiferencias("ConceptoSalida") = drInv("ConceptoSalida").ToString.ToEntero
@@ -20306,20 +20328,13 @@ Partial Class Compras_Compras
                     TCInvOC = DrDiferencias("TipoCambioAjuste").ToString.ToDecimal
 
                     IdCtaContableAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {DrDiferencias("CveAlmacen").ToString.ToEntero}").ToEntero
-                    CveCuentaAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DrDiferencias("CveAlmacen").ToString.ToEntero}").ToEntero
 
                     Dim CveClasificacionCostoOC = TmpDT.FiltroPrimeroValor("CveClasificacion", "ISNULL(TipoAF, 0) <> 2 And ISNULL(CveAlmacen, 0) = 0 And ISNULL(AplicaCostoIndirecto, 0) <> 1 And ISNULL(CveTipoPS, 0) = 2").ToEntero
                     Dim IdCtaContable69 As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasificacionCostoOC}").ToString.ToEntero
-                    '' CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {CveClasificacionCostoOC}").ToString.ToEntero
-
 
                     Dim CveSubProyecto As Integer = TmpDT.MAX("CveSubProyecto").ToEntero
 
-
+                    If DiferenciaInvOC.RoundSQL() <> 0 Then
-
-                    If DiferenciaInvOC.RoundAD() <> 0 Then
-
-
 
                         If CveSubProyecto <= 0 Then
                             Alert("Debe de asignar un sub proyecto o centro de constos.", TipoMensaje.MsgAdvertencia)

Compras/ReembolsosComprobaciones.aspx

@@ -204,6 +204,8 @@
                                         <asp:CompareValidator ID="CVFechaDocumento" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''Fecha''</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>
                                         <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
+                                        <asp:RangeValidator ID="RVTxtFechaDocumento" runat="server" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a la fecha actual" ControlToValidate="TxtFechaDocumento" MinimumValue="01/01/1900" Type="Date" ValidationGroup="GrpGuardar"></asp:RangeValidator>
+                                        <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento3" runat="server" HighlightCssClass="vco" TargetControlID="RVTxtFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
 
                                     </div>
                                 </div>

Compras/ReembolsosComprobaciones.aspx.vb

@@ -382,6 +382,67 @@ Partial Class Compras_ReembolsosComprobaciones
 #Region " BTN GUARDAR "
     Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
 
+
+
+
+
+        Dim ValFechaDocumento As Boolean = False
+        Dim FoliosFechasValFechaDocumento As New StringBuilder
+
+        FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha de mes superior al mes del pago: <br/>")
+
+        For Each gvRowVal As GridViewRow In GvCxP.Rows
+
+            If gvRowVal.FCCheckBox("Chk").Checked Then
+
+
+                Dim FechaFactura As Date = gvRowVal.DataKey("FechaCompra").ToDate
+
+
+                Dim FechaDocumento As Date
+
+
+                If DDlCheques.SelectedValue.ToEntero = -1 Then
+                    FechaDocumento = TxtFechaDocumento.Text.ToDate
+                Else
+                    FechaDocumento = TxtFechaPrePoliza.Text.ToDate
+                End If
+
+
+
+                Dim AnioFactura As Integer = FechaFactura.Year
+                Dim MesFactura As Integer = FechaFactura.Month
+
+
+                Dim AnioDocumento As Integer = FechaDocumento.Year
+                Dim MesDocumento As Integer = FechaDocumento.Month
+
+
+                If AnioFactura > AnioDocumento Then
+
+                    FoliosFechasValFechaDocumento.AppendLine($"Folio: {  gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("FechaCompra").ToDate.ToString("dd/MM/yyyy") } <br/>")
+                    ValFechaDocumento = True
+                ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then
+                    FoliosFechasValFechaDocumento.AppendLine($"Folio: {  gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("FechaCompra").ToDate.ToString("dd/MM/yyyy") } <br/>")
+                    ValFechaDocumento = True
+                End If
+
+            End If
+
+        Next
+
+        'rmf. codigo temporal
+        If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+            ValFechaDocumento = False
+        End If
+
+        If ValFechaDocumento Then
+            Alert(FoliosFechasValFechaDocumento.ToString, TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+
+
         If HdnCheque.Value.ToEntero > 0 And ChkChequeExcedente.Checked And TxtImporte.Text.ToDecimal = 0 Then
             Alert("El importe del cheque excedente debe ser mayor a cero", TipoMensaje.MsgAdvertencia)
             Exit Sub
@@ -2005,5 +2066,9 @@ Partial Class Compras_ReembolsosComprobaciones
 
 #End Region
 
+    Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
+        RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
+        Calendario.EndDate = DateTime.Now
 
+    End Sub
 End Class

Compras/eFacturas.aspx

@@ -216,10 +216,20 @@
                                 </asp:TemplateField>
                                 <asp:TemplateField HeaderText="Importe" ItemStyle-Width="125px">
                                     <ItemTemplate>
-                                        <asp:Literal ID="LtlTotal" runat="server" Text='<%# String.Format("{0} {1}", Eval("Total", "{0:N2}"), Eval("Abreviatura")) %>'></asp:Literal>
+                                      <%--  <table>
+                                            <tr>
+                                                <td><asp:Literal ID="LtlTotal" runat="server" Text='<%# String.Format("{0}", Eval("Total", "{0:N2}")) %>'></asp:Literal></td>
+                                                <td><asp:Literal ID="LtlAbre" runat="server" Text='<%# String.Format("{0}", Eval("Abreviatura")) %>'></asp:Literal></td>
+                                            </tr>
+                                        </table>--%>
+                                        <%--<asp:Literal ID="LtlTotal" runat="server" Text='<%# String.Format("{0} {1}", Eval("Total", "{0:N2}"), Eval("Abreviatura")) %>'></asp:Literal>--%>
+
+                                        <asp:Literal ID="LtlTotal" runat="server" Text='<%# String.Format("{0}", Eval("Total", "{0:N2}")) %>'></asp:Literal>
+
                                     </ItemTemplate>
                                     <ItemStyle HorizontalAlign="Right" />
                                 </asp:TemplateField>
+                                <asp:BoundField DataField="Abreviatura" Visible="true" HeaderText="" ItemStyle-Width="30px"  />
                                 <asp:BoundField DataField="CantidadOC" Visible="false" HeaderText="# OC" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.##}" />
                                 <asp:TemplateField HeaderText="XML">
                                     <ItemTemplate>

Compras/eFacturas.aspx.vb

@@ -719,9 +719,15 @@ Partial Class Compras_eFacturas
             If UsuarioActual.Sesion("eFact-FF").ToString <> "" Then txtFechaF.Text = UsuarioActual.Sesion("eFact-FF").ToString.Trim
             If UsuarioActual.CveUsuario = 100 Then lbDescargar.Visible = True
 
-            If UsuarioActual.TienePermisoProceso(81) Then GvD.Columns(11).Visible = True : GvD.Columns(12).Visible = True
+            'If UsuarioActual.TienePermisoProceso(81) Then GvD.Columns(11).Visible = True : GvD.Columns(12).Visible = True
-            If UsuarioActual.TienePermisoProceso(206) Then GvD.Columns(10).Visible = False
+            'If UsuarioActual.TienePermisoProceso(206) Then GvD.Columns(10).Visible = False
-            If UsuarioActual.Empresa.Funcionalidad(156) = "1" Then GvD.Columns(5).Visible = True
+            'If UsuarioActual.Empresa.Funcionalidad(156) = "1" Then GvD.Columns(5).Visible = True
+
+            If UsuarioActual.TienePermisoProceso(81) Then GvD.Columns(12).Visible = True : GvD.Columns(13).Visible = True
+            If UsuarioActual.TienePermisoProceso(206) Then GvD.Columns(11).Visible = False
+            If UsuarioActual.Empresa.Funcionalidad(156) = "1" Then GvD.Columns(6).Visible = True
+
+
             CargaGvBitacora()
             CargaDatos()
         End If
@@ -913,6 +919,11 @@ Partial Class Compras_eFacturas
 
 #Region "G V  D A T O S"
     Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvD.RowDataBound
+
+        If e.Row.RowType = DataControlRowType.Header Then
+            e.Row.Cells(4).Attributes.Add("data-tipodato", "numeric")
+        End If
+
         If e.Row.RowType = DataControlRowType.DataRow Then
             e.Row.FindControl("lnkRegenerarPDF").Visible = True ' (UsuarioActual.CveRol = 1)
             'e.Row.FindControl("lnkDownPdf").Visible = (UsuarioActual.CveRol = 1)
@@ -937,6 +948,13 @@ Partial Class Compras_eFacturas
 
             e.Row.Cells(2).Attributes.Add("data-order", e.Row.DBCampo("FechaFactura").ToDate.Ticks.ToString)
 
+
+            'e.Row.Cells(4).Attributes.Add("data-order", Convert.ToInt64(e.Row.DBCampo("Total").ToDecimal).ToString.PadLeft(10, "0"c))
+
+
+
+
+
             If File.Exists(String.Format("{0}{1}\{2}", Destino, e.Row.DBCampo("RFCDe"), e.Row.DBCampo("XML"))) Then
                 e.Row.FCLiteral("LtlXML").Text = String.Format("<a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?RFC={0}&File={1}"">Ver</a>", HttpUtility.UrlEncode(e.Row.DBCampo("RFCDe")), HttpUtility.UrlEncode(e.Row.DBCampo("XML")))
                 If e.Row.DBCampo("TipoComprobante") = "P" Then

Contabilidad2/CatCuentas.aspx

@@ -185,13 +185,6 @@
                             <ADS:Dropdownlost ID="DdlProveedores" runat="server" data-metodo="getproveedores" UsaWebService="true" Width="100%" CssStyle="width: 100%;" DataTextField="RazonSocial" DataValueField="CveProveedor" ></ADS:Dropdownlost>
                         </div>
                     </asp:Panel>
-                    <asp:Panel runat="server" ID="pnlOpcion2" Visible="false" CssClass="form-line">
-                        <div class="catcuentas left">
-                            <asp:Label runat="server" Text="Porcentaje IVA():"></asp:Label></div>
-                        <div class="catcuentas right">
-                            <asp:TextBox ID="TxtPorcentaje" runat="server"></asp:TextBox>(0% - 100% )
-                        </div>
-                    </asp:Panel>
                     <asp:Panel runat="server" ID="pnlOpcion3" Visible="false" CssClass="form-line">
                         <div class="catcuentas left">
                             <asp:Label runat="server" Text="Clasificación"></asp:Label></div>
@@ -222,11 +215,18 @@
                             <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientesWS" UsaWebService="true" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="min-width: 100px;"></ADS:Dropdownlost>
                         </div>
                     </asp:Panel>
+                    <asp:Panel runat="server" ID="pnlOpcion2" Visible="false" CssClass="form-line">
+                        <div class="catcuentas left">
+                            <asp:Label runat="server" Text="Porcentaje Impuesto:"></asp:Label></div>
+                        <div class="catcuentas right">
+                            <asp:TextBox ID="TxtPorcentaje" runat="server"></asp:TextBox>(0% - 100% )
+                        </div>
+                    </asp:Panel>
 
 
                     <br />
                     <asp:Button ID="Guardar" CssClass="btn btn-primary" Visible="false" runat="server" Text="Guardar" />
-                    <asp:Button ID="nuevacuenta" CssClass="btn btn-success" Visible="false" runat="server" Text="Guardar" />
+                    <asp:Button ID="nuevacuenta" CssClass="btn btn-success" Visible="false" runat="server" Text="Guardar"  />
                     <asp:Button ID="BtnEliminar" CssClass="btn btn-danger" Visible="false" runat="server" Text="Eliminar" OnClientClick="return confirm('Esta seguro de eliminar la cuenta?')" />
                 </fieldset>
             </div>
@@ -270,5 +270,21 @@
                 buscararbolito('C_ArbolCuentas_Abuscar', 'C_ArbolCuentas_miarbol')
             });
         });
+
+        function Afectable(btn) {
+            debugger;
+            $('#C_nuevacuenta').attr('data-toggle', 'confirmation');
+            $('#C_nuevacuenta').attr('data-popout', 'true');
+            $('#C_nuevacuenta').attr('data-original-title', '<b>Verifique los datos para continuar</b>. <br/><br/> <center>¿Seguro de registrar esta cuenta nueva?</center>');
+            $('#C_nuevacuenta').attr('data-btn-ok-label', 'si');
+        }
+
+        function NoAfectable() {
+            debugger;
+            $('#C_nuevacuenta').attr('data-toggle', '');
+            $('#C_nuevacuenta').attr('data-popout', '');
+            $('#C_nuevacuenta').attr('data-original-title', '');
+            $('#C_nuevacuenta').attr('data-btn-ok-label', '');
+        }
     </script>
 </asp:Content>

Contabilidad2/CatCuentas.aspx.vb

@@ -31,6 +31,24 @@ Partial Class Contabilidad2_CatCuentas
             ViewState("idsel") = value
         End Set
     End Property
+
+    Private Property CvePadre As Integer
+        Get
+            Return ViewState("CvePadre").ToString.ToEntero()
+        End Get
+        Set(value As Integer)
+            ViewState("CvePadre") = value
+        End Set
+    End Property
+
+    Private Property Afectable As Boolean
+        Get
+            Return ViewState("Afectable").ToString
+        End Get
+        Set(value As Boolean)
+            ViewState("Afectable") = value
+        End Set
+    End Property
 #Region "Contabilidadnew"
     Private Property CveProveedor As Integer
         Get
@@ -168,6 +186,7 @@ Partial Class Contabilidad2_CatCuentas
     Protected Sub agregar_Click(sender As Object, e As EventArgs) Handles ArbolCuentas.addclick
         LimpiarCampos()
         Dim dt As New DataTable
+
         'IDSelected = HdnID.Value.ToEntero()   "ul" + itempadre.Cve;
         Dim obj As ADServerControl.DragableItem = DirectCast(sender, ADServerControl.DragableItem)
         IDSelected = obj.Cve
@@ -182,6 +201,16 @@ Partial Class Contabilidad2_CatCuentas
             DTcuenta.SelectedValue = dr("Tipo").ToString()
             DcuentaMayor.SelectedValue = dr("CtaMayor").ToString
             LblSubCuenta.Text = dr("Nombre").ToString
+            Afectable = dr("Afectable").ToString
+            CvePadre = dr("CvePadre").ToString.ToEntero
+        End If
+
+        If Afectable Then
+            RegistraScript(String.Format("Afectable({0});", nuevacuenta.ClientID))
+            Alert("Se va crear una subcuenta en una cuenta afectable", TipoMensaje.MsgAdvertencia)
+        Else
+            RegistraScript("NoAfectable();")
+
         End If
         TxtCuenta.Enabled = True
 
@@ -298,7 +327,6 @@ Partial Class Contabilidad2_CatCuentas
         Dim CveAlmacen As Integer = DdlAlmacen.SelectedValue.ToEntero()
 
         If DdlAgrupadorSAT.SelectedValue.ToEntero > 0 Then
-
             If ObjConta.UpdateCuenta(IDSelected.ToEntero, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero,
                                  TxtDigAgrup.Text.ToString.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString, CveConceptoAdmin:=CveConceptoAdmin,
                                  CveProveedor:=CveProveedor, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto,
@@ -372,19 +400,81 @@ Partial Class Contabilidad2_CatCuentas
 
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
         Dim ObjConta As New ClsContabilidad
-<<<<<<< HEAD
-        Dim ObjConta2 As ClsContPAQi
-=======
->>>>>>> ee1135d888f76469fa6e3e68f0b6393f8450045a
-
         Dim CuentaEfectivo As Integer = 0
         Dim Afectable As Integer = 1 'If(DcuentaMayor.SelectedValue <> 2, 0, 1) ' cuando sea tipo 2, va a ser afectable
         Tcuenta.Text.Replace("-", "")
         Dim idnew As Integer = 0
 
+        Dim CveConceptoContable As Integer = DdlConcepto.SelectedValue.ToEntero()
+        Dim row As DataRow = Nothing
+        Dim CveTipoSaldo As Integer = 0
+        Dim PorcentajeIVA As Decimal = -1
+        Dim drt As DataRow
+        Dim CveConceptoAdmin As Integer
+        Dim CveProveedor As Integer
+        Dim CveCliente As Integer
+        Dim CveClasificacion As Integer
+        Dim PorcentajeImpuesto As Decimal
+        Dim CveBancoCuenta As Integer
+        'Dim CveAlmacen As Integer = -1
+        'Dim CvePersonal As Integer = -1
+        Dim NombreCuenta As String
+        Dim TipoCuenta As String
+        Dim CuentaMayor As Integer
+        Dim CveMoneda As Integer
+        Dim DigAgrup As Integer
+        Dim CveAgrupadorSat As Integer
+        Dim NomIdioma As String
         If DdlAgrupadorSAT.SelectedValue.ToEntero > 0 Then
-            idnew = ObjConta.AddCuenta(IDSelected, TxtCuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero,
+
-                                        DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString)
+            If CveConceptoContable > 0 Then
+                row = DtConceptosconta.FiltroPrimero(String.Format("CveConceptoContable={0}", CveConceptoContable))
+                CveTipoSaldo = row("CveTipoSaldo").ToString.ToEntero()
+            End If
+            If Not IsNothing(row) Then
+                If CveTipoSaldo = 3 Then
+                    PorcentajeIVA = TxtPorcentaje.ToEntero / 100
+                End If
+            End If
+
+            If Afectable Then
+                If ObjConta.GetCuentas(IDSelected, "-1", -1, UsuarioActual.CveEmpresa) Then
+                    drt = ObjConta.DtResultados.FiltroPrimero(String.Format("CveCuenta={0}", IDSelected))
+                    CveConceptoAdmin = IIf(drt("CveConceptoAdmin").ToString.ToEntero = 0, -1, drt("CveConceptoAdmin").ToString.ToEntero)
+                    CveProveedor = IIf(drt("CveProveedor").ToString.ToEntero = 0, -1, drt("CveProveedor").ToString.ToEntero)
+                    CveCliente = IIf(drt("CveCliente").ToString.ToEntero = 0, -1, drt("CveCliente").ToString.ToEntero)
+                    CveClasificacion = IIf(drt("CveClasificacion").ToString.ToEntero = 0, -1, drt("CveClasificacion").ToString.ToEntero)
+                    PorcentajeImpuesto = IIf(drt("PorcentajeImpuesto").ToString.ToEntero = 0, -1, drt("PorcentajeImpuesto").ToString.ToEntero)
+                    CveBancoCuenta = IIf(drt("CveBancoCuenta").ToString.ToEntero = 0, -1, drt("CveBancoCuenta").ToString.ToEntero)
+                    'CveAlmacen = IIf(drt("CveAlmacen").ToString.ToEntero = 0, -1, drt("CveAlmacen").ToString.ToEntero)
+                    'CvePersonal = IIf(drt("CvePersonal").ToString.ToEntero = 0, -1, drt("CvePersonal").ToString.ToEntero)
+                    NombreCuenta = IIf(drt("Nombre").ToString = "", "", drt("Nombre").ToString.ToEntero)
+                    TipoCuenta = IIf(drt("Tipo").ToString = "", "", drt("Tipo").ToString.ToEntero)
+                    CuentaMayor = IIf(drt("CtaMayor").ToString.ToEntero = 0, 0, drt("CtaMayor").ToString.ToEntero)
+                    CveMoneda = IIf(drt("CveMoneda").ToString.ToEntero = -1, -1, drt("CveMoneda").ToString.ToEntero)
+                    DigAgrup = IIf(drt("DigAgrup").ToString.ToEntero = -1, -1, drt("DigAgrup").ToString.ToEntero)
+                    CveAgrupadorSat = IIf(drt("CveAgrupadorSAT").ToString.ToEntero = 0, -1, drt("CveAgrupadorSAT").ToString.ToEntero)
+                    NomIdioma = IIf(drt("NomIdioma").ToString = "", "", drt("NomIdioma").ToString.ToEntero)
+
+                    idnew = ObjConta.AddCuenta(CvePadre, TxtCuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero,
+                                        DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString, CveConceptoAdmin:=CveConceptoAdmin, CveProveedor:=CveProveedor, CveCliente:=CveCliente,
+                                        CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto, CveBancoCuenta:=CveBancoCuenta)
+                    If idnew > 0 Then
+                        If Not ObjConta.UpdateTraspasoPrepoliza(UsuarioActual.CveEmpresa, IDSelected, idnew) Then
+                            If ObjConta.UpdateCuenta(IDSelected.ToEntero, NombreCuenta, TipoCuenta, CuentaMayor, CveMoneda,
+                                     DigAgrup, CveAgrupadorSat, NomIdioma) Then
+                                ObjConta.RollBack()
+                                ObjConta.Dispose()
+                                Exit Sub
+                            End If
+                        End If
+                    End If
+                End If
+            Else
+                idnew = ObjConta.AddCuenta(IDSelected, TxtCuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero,
+                                        DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString, PorcentajeImpuesto:=PorcentajeIVA)
+            End If
+
         Else
             Alert("Es necesario agregar el campo 'Agrupador SAT'", TipoMensaje.MsgError)
         End If
@@ -402,14 +492,12 @@ Partial Class Contabilidad2_CatCuentas
                     End If
 
 
-                    Dim codigoPadre As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}") 'Tsubcuenta.Text
+                    codigoPadre = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}") 'Tsubcuenta.Text
                     If UsuarioActual.Empresa.TipoContabilidad = 2 Then
                         ObjConta2 = New ClsContPAQi(UsuarioActual.Empresa)
 
                         If ObjConta2.GetCuentas(-1, "-1", -1) Then
-                            Dim IdPadre As Integer = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigoPadre}'").ToEntero
+                            IdPadre = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigoPadre}'").ToEntero
-                            Dim IdAgrupador As Integer
-
                             If ObjConta2.GetAgrupadoresSAT() Then
                                 IdAgrupador = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"CodigoNombre='{DdlAgrupadorSAT.SelectedItem.Text}'").ToEntero
                             End If
@@ -454,17 +542,21 @@ Partial Class Contabilidad2_CatCuentas
                     End If
                     ArbolCuentas.additem(objul, idnew, IDSelected, String.Format("{0} - {1}", TxtCuenta.Text, Tnombre.Text))
 
-                    LimpiarCampos()
+
-                    updatos.Update()
                     CargaDatos()
 
-                    Alert("La cuenta se guardo correctamente")
                 End If
-
-                ObjConta.Dispose()
-
                 If ObjConta2 IsNot Nothing Then ObjConta2.Dispose()
 
+            End If
+            LimpiarCampos()
+            updatos.Update()
+            Alert("La cuenta se guardo correctamente")
+
+        End If
+        ObjConta.Dispose()
+
+
 
     End Sub
     Private Sub LimpiarCampos()
@@ -564,9 +656,10 @@ Partial Class Contabilidad2_CatCuentas
                 Case 2
                     pnlOpcion2.Visible = True
                 Case 3
+                    pnlOpcion2.Visible = True
                     pnlOpcion3.Visible = True
                     If DdlClasificacion.Items.Count < 2 Then
-                        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=1)
+                        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
                         DdlClasificacion.DataBind()
                     End If
                 Case 4

Contabilidad2/CatCuentasAsignaciones.aspx.vb

@@ -31,7 +31,6 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
     End Sub
 
     Private Sub CargaDatosModal()
-
         DdlConceptoNomina.DataSource = GlobalDTNomConceptos(UsuarioActual.CveEmpresa)
         DdlConceptoNomina.DataBind()
         Dim ObjConta As New ClsContabilidad
@@ -76,7 +75,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         CveConceptoAsignacion = GvRow.DataKey("CveCuentaAsignacion").ToEntero
         DdlCconceptosContables.SelectedValue = GvRow.DataKey("CveConceptoContable").ToEntero
         DdlCuenta.SelectedValue = GvRow.DataKey("CveCuenta").ToEntero
-        DdlConceptoNomina.SelectedValue = GvRow.DataKey("CveConceptoNomina").ToEntero
+        DdlConceptoNomina.SelectedValueexist(GvRow.DataKey("CveConceptoNomina").ToEntero)
         DdlProveedor.SelectedValue = GvRow.DataKey("CveProveedor").ToEntero
         DdlClasificacion.SelectedValue = GvRow.DataKey("CveClasificacion").ToEntero
         DdlAlmacen.SelectedValue = GvRow.DataKey("CveAlmacen").ToEntero

Contabilidad2/RepAnexoCatalogo.aspx

@@ -96,24 +96,22 @@
                             Tipo Movto:
                         </li>
                         <li>
-                             
                             <asp:DropDownList CssClass="form-control input-sm" ID="DdlCuenta" runat="server" DataTextField="Cuenta" DataValueField="CveCuenta" TabIndex="4">
                                 <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
                                 <asp:ListItem Text="Con movimientos" Value="1"></asp:ListItem>
                                 <asp:ListItem Text="Saldo actual no igual a cero" Value="2"></asp:ListItem>
                                 <asp:ListItem Text="Con movimientos y saldo no igual a cero" Value="3"></asp:ListItem>
                                 <asp:ListItem Text="Con movimientos o saldo no igual a cero" Value="4"></asp:ListItem>
-                            </asp:DropDownList>
+                            </asp:DropDownList>                       
-                          
                         </li>
                          <li>
-                            <label class="col-md-2" style="width: 80px;">SubProyecto: </label>
+                            SubProyecto:
-                            <div class="col-md-2">
+                        </li>
-                                <asp:DropDownList ID="DdlSubproyecto" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me">
+                         <li>
-                                    <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                            <asp:DropDownList ID="DdlSubproyecto" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me">
-                                </asp:DropDownList>
+                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </div>
+                            </asp:DropDownList>
-                            </li>
+                         </li>
                             <li runat="server" id="tdTipoReporte" visible="true">Tipo:
                             </li>
                            
@@ -124,8 +122,7 @@
                                     <asp:ListItem Text="Complementario" Value="2"></asp:ListItem>
                                 </asp:DropDownList>
                             </li>
-                            <li>Tipo de Cuentas:
+                            
-                            </li>
                             <li>
                                 <asp:DropDownList Visible="false" CssClass="form-control input-sm" Width="150px" ID="DdlTipoCuentas" ClientIDMode="Static" runat="server" DataTextField="Nombre" DataValueField="CveCuenta" TabIndex="4" AutoPostBack="true">
                                 </asp:DropDownList>

Contratos/ContratoObra.aspx

@@ -85,7 +85,7 @@
                     </li>
 
                     <li>
-                        <asp:LinkButton ID="LnkModalAddPSControl" Visible="false" runat="server" OnClick="LnkModalAddPSControl_Click"> <i class="fa fa-plus" style="font-weight:bold;"></i>Agregar PS Interno</asp:LinkButton>
+                        <asp:LinkButton ID="LnkModalAddPSControl" Visible="false" runat="server" OnClick="LnkModalAddPSControl_Click"> <i class="fa fa-plus" style="font-weight:bold;"></i>Agregar PS Presupuesto de Control</asp:LinkButton>
                     </li>
 
 
@@ -94,7 +94,7 @@
                     </li>
 
                     <li>
-                        <asp:LinkButton ID="LnkModalAddPresupuestoControl" Visible="false" runat="server" OnClick="LnkModalAddPresupuestoControl_Click"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i>Agregar Presupuesto Interno</asp:LinkButton>
+                        <asp:LinkButton ID="LnkModalAddPresupuestoControl" Visible="false" runat="server" OnClick="LnkModalAddPresupuestoControl_Click"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i>Agregar Presupuesto de Control</asp:LinkButton>
                     </li>
 
                     
@@ -139,7 +139,7 @@
 
                         <div class="row" runat="server" id="DVGraficas" visible="false">
 
-                            <div class="col-xs-3">
+                            <div class="col-xs-4">
                                 <div class="dashboard-stat2 " style="border: 2px solid #DDD; margin-bottom: 0px; height: 141.8px!important">
 
                                     <div class="display">
@@ -171,7 +171,7 @@
                             </div>
 
 
-                            <div class="col-xs-3">
+                            <div class="col-xs-4">
                                 <div class="dashboard-stat2 " style="border: 2px solid #DDD; margin-bottom: 0px;">
                                     <div class="display">
 
@@ -225,7 +225,7 @@
                                 </div>
                             </div>
 
-                            <div class="col-xs-3">
+                            <div class="col-xs-4">
                                 <div class="dashboard-stat2 " style="border: 2px solid #DDD; margin-bottom: 0px;">
                                     <div class="display">
 
@@ -233,7 +233,7 @@
 
                                             <table style="width: 100%!important">
                                                 <td>
-                                                    <small>Interno</small>
+                                                    <small>Presupuesto de Control</small>
                                                     <h3 class="font-red-haze">
                                                         <span style="font-size: large">
                                                             <asp:Literal Text="0" ID="LtlAvanceInternoImporte" runat="server" />
@@ -478,6 +478,9 @@
 
 
                                    <div class="col-md-6">
+
+
+
                                     <div class="portlet smmallpadding light bordered">
                                         <div class="portlet-title">
                                             <div class="tools">
@@ -561,6 +564,108 @@
                                                 </div>
                                             </div>
 
+
+
+                                            <div class="row"  runat="server">
+                                                <label class="col-md-3  ">% Gastos Indirectos:</label>
+                                                <div class="col-md-3">
+                                                    <asp:TextBox ID="TxtPorcentajeGastosIndirectos" runat="server" MaxLength="5" Width="200px" ClientIDMode="Static" onkeyup="muestraCentrocosto(this)" ></asp:TextBox>
+                                                    <ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender4" runat="server" TargetControlID="TxtPorcentajeGastosIndirectos"  FilterType="Custom, Numbers" ValidChars=",." BehaviorID="_content_SoloNumeros" />
+                                                </div>
+
+                                                <div class="col-md-6" style="display:none!important" id="porCentrocosto" >
+
+
+
+
+
+
+                                                    <div class="portlet smmallpadding light bordered">
+                                                        <div class="portlet-title">
+                                                            <div class="tools">
+                                                                <a href="javascript;" data-idchekbox="C_chkexpand2" class=" collapse" data-original-title="" title=""></a><span class="hidden">
+                                                                    <input id="C_chkexpandCC" type="checkbox" name="ctl00$C$chkexpand" checked="checked"></span>
+                                                            </div>
+                                                            <div class="caption uppercase" style="position: relative;"><i class="fa fa-info-circle"></i>Centros de Costo</div>
+                                                        </div>
+
+
+                                                        <div class="portlet-body rowpadding">
+
+
+
+
+                                                             <asp:UpdatePanel runat="server"  ID="UpGVCentrosConsto"   UpdateMode="Conditional" >
+                                                        <ContentTemplate>
+
+
+                                                             <table>
+                                                                 <td>Centro de costos</td>
+                                                                 <td>
+                                                                     <asp:DropDownList  runat="server" ID="DdlCentroCostos" DataTextField="SubProyecto" DataValueField="CveSubProyecto"  CssClass="form-control select2me">
+                                                                     </asp:DropDownList>
+                                                                     <asp:RequiredFieldValidator ID="RFVDdlCentroCostos"  runat="server" ControlToValidate="DdlCentroCostos" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo  Centro de costo es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpCentroCostos" CausesValidation="true"></asp:RequiredFieldValidator>
+                                                                     <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlCentroCostos" Width="300px"></ajax:ValidatorCalloutExtender>
+
+                                                                 </td>
+
+                                                                 <td>Porcentaje</td>
+                                                                 <td>
+                                                                     <asp:TextBox Width="50px" runat="server" id ="TxtCentroCostosPorcentaje" MaxLength="3" style="text-align:right" CausesValidation="true"></asp:TextBox>
+                                                                     <ajax:FilteredTextBoxExtender TargetControlID="TxtCentroCostosPorcentaje" runat="server"  FilterType="Numbers,Custom" ValidChars="123456789" /> 
+
+                                                                     <asp:RequiredFieldValidator ID="rfvTxtCentroCostosPorcentaje" runat="server" ControlToValidate="TxtCentroCostosPorcentaje" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo  porcentaje de costo es necesario, por favor seleccione uno."  ValidationGroup="GrpCentroCostos"></asp:RequiredFieldValidator>
+                                                                     <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="rfvTxtCentroCostosPorcentaje" Width="300px"></ajax:ValidatorCalloutExtender>
+
+
+                                                                 </td>
+                                                                 <td><asp:LinkButton runat="server"  ID="LnkAgregarCentroCostosPorcentaj" OnClick="LnkAgregarCentroCostosPorcentaj_Click" ValidationGroup="GrpCentroCostos" CausesValidation="true">Agregar</asp:LinkButton></td>
+                                                                 
+                                                             </table>
+                                                             <asp:GridView ID="GVCentrosConsto" ClientIDMode="Static" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron datos "                                                                 
+                                                                CssClass="table table-striped table-hover Widthall" BorderColor="#D3D3D3" GridLines="None">
+                                                                <Columns>
+                                                                    
+                                                                    <asp:BoundField HeaderText="Centro de Costo" DataField="SubProyecto" />
+                                                                    <asp:BoundField HeaderText="Porcentaje" DataField="Porcentaje" ItemStyle-HorizontalAlign="Right" />                                                                 
+
+                                                                    
+                                                                    
+
+                                                                  </Columns>                                            
+                                                            </asp:GridView>
+
+                                                        </ContentTemplate>
+                                                    </asp:UpdatePanel>
+
+
+
+                                                        </div>
+
+
+                                                    </div>
+
+
+
+
+                                                   
+
+
+
+                                                 
+
+
+                                                </div>
+
+
+
+                                            </div>
+
+
+
+
+
+
                                             <div class="row" id="DvTotal" runat="server">
                                                 <label class="col-md-3  ">Total con IVA:</label>
                                                 <div class="col-md-9">
@@ -866,7 +971,7 @@
                                         </ContentTemplate>
                                     </ajax:TabPanel>
 
-                                    <ajax:TabPanel ID="TabPVInsumos" runat="server" HeaderText="Interno">
+                                    <ajax:TabPanel ID="TabPVInsumos" runat="server" HeaderText="Presupuesto de Control">
                                         <ContentTemplate>
 
                                            <%-- <asp:UpdatePanel ID="UpTitulosInsumos" runat="server" UpdateMode="Conditional">
@@ -1063,8 +1168,8 @@
                                         </ContentTemplate>
                                     </ajax:TabPanel>
 
-                                    <ajax:TabPanel ID="TabPI" runat="server" HeaderText="Interno" Visible="false">
+                                    <ajax:TabPanel ID="TabPI" runat="server" HeaderText="Presupuesto de Control" Visible="false">
-                                        <HeaderTemplate>Interno </HeaderTemplate>
+                                        <HeaderTemplate>Presupuesto de Control </HeaderTemplate>
                                         <ContentTemplate>
                                             <asp:UpdatePanel ID="UPPDatos" runat="server" UpdateMode="Conditional">
                                                 <ContentTemplate>
@@ -1329,7 +1434,7 @@
                                     </ContentTemplate>
                                  </ajax:TabPanel>
 
-                                <ajax:TabPanel ID="TabInterno" Visible="true" runat="server" HeaderText="Interno">
+                                <ajax:TabPanel ID="TabInterno" Visible="true" runat="server" HeaderText="Presupuesto de Control">
                                     <ContentTemplate>
 
 
@@ -1535,7 +1640,7 @@
                                                 <div class="portlet-body rowpadding">
 
 
-                                                    <asp:GridView ID="GvGastosVeiculos" ClientIDMode="Static" ShowHeader="true" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron gastos de veiculos"
+                                                    <asp:GridView ID="GvGastosVeiculos" ClientIDMode="Static" ShowHeader="true" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron gastos de vehículos"
                                                         DataKeyNames="CveContratoGasto,ORDEN"
                                                         CssClass="table table-striped table-hover Widthall" GridLines="None">
                                                         <Columns>
@@ -1797,6 +1902,135 @@
                         </ContentTemplate>
                     </ajax:TabPanel>
 
+
+
+
+
+
+                     <ajax:TabPanel ID="TabPanel2" runat="server" HeaderText="Utilidad o Perdida">
+                        <ContentTemplate>
+
+                            <div class="row">
+
+                                <div class="col-md-12" style="vertical-align: middle;">
+
+                                    <table  class="table table-striped table-hover Widthall" >
+                                        <tr>
+                                            <th colspan="2" style="border-left:solid;border-top:solid"></th>
+                                            <th colspan="3" style="text-align:center;border-top:solid;border-left:solid">Contratado</th>
+                                            <th colspan="2" style="text-align:center;border-top:solid">Avance</th>
+                                            <th colspan="2" style="text-align:center;border-top:solid">Faltante</th>
+                                            <th colspan="3" style="text-align:center;border-top:solid;border-left:solid">Presupuesto de Control</th>
+                                            <th colspan="3" style="text-align:center;border-top:solid;border-left:solid;border-right:solid">Saldos</th>
+                                        </tr>
+                                        <tr>
+                                            <th  style="border-left:solid;border-bottom:solid">Concepto</th>
+                                            <th style="border-bottom:solid">U.M.</th>
+                                            
+                                            <th style="border-bottom:solid;border-left:solid">Cantidad</th>
+                                            <th style="border-bottom:solid">PU</th>
+                                            <th style="border-bottom:solid">Importe</th>
+                                            <th style="border-bottom:solid">Cantidad</th>
+                                            <th style="border-bottom:solid">Importe</th>
+                                            <th style="border-bottom:solid">Cantidad</th>
+                                            <th style="border-bottom:solid">Importe</th>
+                                            
+                                            <th style="border-bottom:solid;border-left:solid">Presupuesto</th>
+                                            <th style="border-bottom:solid">Avance</th>
+                                            <th style="border-bottom:solid">Faltante</th>
+
+                                            <th style="border-bottom:solid;border-left:solid">Contrato Vs Pto Control</th>
+                                            <th style="border-bottom:solid">Pto Vs Real</th>
+                                            <th style="border-bottom:solid;border-right:solid">Factor Faltante</th>
+
+                                        </tr>
+                                        <tr>
+                                            <td  style="border-left:solid;">Pavimentación tramo 1</td>
+                                            <td>pieza</td>
+                                            <td style="text-align:right;border-left:solid" >$500.00</td>
+                                            <td style="text-align:right" >$500.00</td>
+                                            <td  style="text-align:right" >$250,000.00</td>
+                                            <td  style="text-align:right" >$3.00</td>
+                                            <td style="text-align:right" >$1,500.00</td>
+                                            <td style="text-align:right" >$497.00</td>
+                                            <td style="text-align:right" >$248,500.00</td>
+                                            <td style="text-align:right;border-left:solid" >$198,580.00</td>
+                                            <td style="text-align:right" >$30,000.00</td>
+                                            <td style="text-align:right" >$168,580.00</td>
+                                            
+                                            <td style="text-align:right;border-left:solid" >$51,420.00</td>
+                                            <td style="text-align:right" >$51,420.00</td>
+                                            <td style="text-align:right;border-right:solid" >0.68</td>
+                                        </tr>
+                                        <tr>
+                                            <td  style="border-left:solid;">Riego de liga tramo 1</td>
+                                            <td>pieza</td>
+                                            <td style="text-align:right;border-left:solid" >$500.00</td>
+                                            <td style="text-align:right" >$100.00</td>
+                                            <td style="text-align:right" >$50,000.00</td>
+                                            <td style="text-align:right" >$3.00</td>
+                                            <td style="text-align:right" >$300.00</td>
+                                            <td style="text-align:right" >$497.00</td>
+                                            <td style="text-align:right" >$49,700.00</td>
+                                            <td style="text-align:right;border-left:solid" >$10,000.00</td>
+                                            <td style="text-align:right" >$10,000.00</td>
+                                            <td style="text-align:right" >$0.00</td>
+
+                                            <td style="text-align:right;border-left:solid" >$40,000.00</td>
+                                            <td style="text-align:right" >$40,000.00</td>
+                                            <td style="text-align:right;border-right:solid" >0</td>
+                                        </tr>
+                                        <tr>
+                                            <td  style="border-left:solid;">Servicio de Agua</td>
+                                            <td>pieza</td>
+                                            <td style="text-align:right;border-left:solid" >$5.00</td>
+                                            <td style="text-align:right" >$100.00</td>
+                                            <td style="text-align:right" >$500.00</td>
+                                            <td style="text-align:right" >$0.00</td>
+                                            <td style="text-align:right" >$0.00</td>
+                                            <td style="text-align:right" >$5.00</td>
+                                            <td style="text-align:right" >$500.00</td>
+                                            <td style="text-align:right;border-left:solid" >$100.00</td>
+                                            <td style="text-align:right" >$100.00</td>
+                                            <td style="text-align:right" >$0.00</td>
+
+                                            <td style="text-align:right;border-left:solid" >$400.00</td>
+                                            <td style="text-align:right" >$400.00</td>
+                                            <td style="text-align:right;border-right:solid" >0</td>
+                                        </tr>
+                                        <tr>
+                                            <td  style="border-left:solid;border-bottom:solid;border-left:solid">INDIRECTOS</td>
+                                            <td style="text-align:right;border-bottom:solid"></t>
+                                            <td style="text-align:right;border-bottom:solid;border-left:solid;background-color:gray" colspan="7" ></td>                                            
+                                            <td style="text-align:right;border-bottom:solid;border-left:solid" >$90,150.00</td>
+                                            <td style="text-align:right;border-bottom:solid" >$200,000.00</td>
+                                            <td style="text-align:right" >-$109,850.00</td>
+
+                                            <td style="text-align:right;border-left:solid" >-$90,150.00</td>
+                                            <td style="text-align:right" >-$200,000.00</td>
+                                            <td style="text-align:right;border-right:solid" >0</td>
+                                        </tr>
+                                          <tr>
+                                              <td colspan="11"></td>
+                                              <td style="border-bottom:solid; border-left:solid;border-bottom:solid;border-top:solid">Netos</td>
+                                              <td style="text-align:right;border-top:solid;border-bottom:solid">$1,670.00</td>
+                                              <td style="text-align:right;border-top:solid;border-bottom:solid">-$108,180.00</td>
+                                              <td style="border-top:solid;border-bottom:solid;border-right:solid"></td>
+                                          </tr>
+                                    </table>
+                                    
+
+
+                                </div>
+                                 
+                            </div>
+                            
+
+                        </ContentTemplate>
+                    </ajax:TabPanel>
+
+
+
                     <ajax:TabPanel ID="TabAF" runat="server" HeaderText="Activos Fijos">
                         <ContentTemplate>
                             <asp:UpdatePanel UpdateMode="Conditional" ID="UpAlmacen" runat="server">
@@ -3160,5 +3394,23 @@
         }
 
 
+        function muestraCentrocosto(txt) {
+
+            if ($('#TxtPorcentajeGastosIndirectos').val().length > 0) {
+
+                $("#porCentrocosto").show();
+
+            } else {
+                $("#porCentrocosto").hide();
+            }
+
+            
+
+
+
+        }
+
+
     </script>
 </asp:Content>
+

Contratos/ContratoObra.aspx.vb

@@ -480,6 +480,9 @@ Partial Class Contratos_ContratoObra
             'CargaDatosEncabezado()
 
 
+            CargaDLLCargaGVCentrosConsto()
+            tabalCentrosdecotso()
+
         End If
 
 
@@ -4970,7 +4973,7 @@ Partial Class Contratos_ContratoObra
 
         If ObjContratos.GetContratosObragGastosVeiculos(CveContrato, UsuarioActual.CveEmpresa) Then
             GvGastosVeiculos.DataSource = ObjContratos.DtResultados
-            GastosVeiculos = ObjContratos.DtResultados.SUM("Importe")
+            GastosVeiculos = ObjContratos.DtResultados.SUM("Importe", " CveContratoGasto > 0 ")
 
         Else
             GvGastosVeiculos.DataSource = Nothing
@@ -5279,6 +5282,84 @@ Partial Class Contratos_ContratoObra
     End Sub
 
 
+
+    Property DTCentrosCostoGB As DataTable
+
+        Get
+            If ViewState("DTCentrosCosto") Is Nothing Then
+                Return New DataTable
+            Else
+                Return DirectCast(ViewState("DTCentrosCosto"), DataTable)
+            End If
+        End Get
+        Set(value As DataTable)
+            ViewState("DTCentrosCosto") = value
+        End Set
+
+    End Property
+
+
+    Private Sub tabalCentrosdecotso()
+
+        Dim DTCentrosCosto As New DataTable
+        DTCentrosCosto.Columns.Add("CveSubProyecto", GetType(Integer))
+        DTCentrosCosto.Columns.Add("SubProyecto", GetType(String))
+        DTCentrosCosto.Columns.Add("Porcentaje", GetType(Decimal))
+        DTCentrosCostoGB = DTCentrosCosto
+
+    End Sub
+
+
+    Private Sub AddtabalCentrosdecotso(CveSubProyecto As Integer, SubProyecto As String, porcentaje As Decimal)
+
+        Dim drow As DataRow = DTCentrosCostoGB.NewRow
+
+        drow("CveSubProyecto") = CveSubProyecto
+        drow("SubProyecto") = SubProyecto
+        drow("Porcentaje") = porcentaje
+
+        DTCentrosCostoGB.Rows.Add(drow)
+
+
+
+        TxtCentroCostosPorcentaje.Text = ""
+
+        CargaGVCentrosConsto()
+
+    End Sub
+    Private Sub RemovetabalCentrosdecotso(Indice As Integer)
+
+
+
+        CargaGVCentrosConsto()
+    End Sub
+
+
+
+
+    Private Sub CargaGVCentrosConsto()
+
+        GVCentrosConsto.DataSource = DTCentrosCostoGB
+        GVCentrosConsto.DataBind()
+        UpGVCentrosConsto.Update()
+
+    End Sub
+
+
+    Private Sub CargaDLLCargaGVCentrosConsto()
+
+        DdlCentroCostos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"})
+        DdlCentroCostos.DataBind()
+        DdlCentroCostos.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+    End Sub
+
+
+    Protected Sub LnkAgregarCentroCostosPorcentaj_Click(sender As Object, e As EventArgs)
+
+        AddtabalCentrosdecotso(DdlCentroCostos.SelectedValue.ToEntero, DdlCentroCostos.SelectedItem.Text, TxtCentroCostosPorcentaje.Text.ToDecimal)
+
+    End Sub
 End Class
 
 

Empresas/153/Formatos/Cotizacion.rdlc

@@ -1718,7 +1718,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox5</rd:DefaultName>
-            <Top>7.65106cm</Top>
+            <Top>8.44481cm</Top>
             <Left>0.19009cm</Left>
             <Height>0.05496cm</Height>
             <Width>20.88652cm</Width>
@@ -1791,7 +1791,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox4</rd:DefaultName>
-            <Top>7.84713cm</Top>
+            <Top>8.64088cm</Top>
             <Left>0.24983cm</Left>
             <Height>2.44366cm</Height>
             <Width>14.88133cm</Width>
@@ -1821,7 +1821,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox5</rd:DefaultName>
-            <Top>10.47425cm</Top>
+            <Top>11.268cm</Top>
             <Left>0.19009cm</Left>
             <Height>0.05496cm</Height>
             <Width>20.88652cm</Width>
@@ -1988,7 +1988,7 @@
               </TablixMembers>
             </TablixRowHierarchy>
             <DataSetName>DataSet1</DataSetName>
-            <Top>7.84713cm</Top>
+            <Top>8.64088cm</Top>
             <Left>15.30755cm</Left>
             <Height>0.48004cm</Height>
             <Width>5.71104cm</Width>
@@ -1999,14 +1999,44 @@
               </Border>
             </Style>
           </Tablix>
+          <Textbox Name="Textbox14">
+            <CanGrow>true</CanGrow>
+            <KeepTogether>true</KeepTogether>
+            <Paragraphs>
+              <Paragraph>
+                <TextRuns>
+                  <TextRun>
+                    <Value>REVISAR BIEN EL PRODUCTO, UNA VEZ ENTREGADO EL MATERIAL NO SE ACEPTAN DEVOLUCIONES.</Value>
+                    <Style />
+                  </TextRun>
+                </TextRuns>
+                <Style />
+              </Paragraph>
+            </Paragraphs>
+            <rd:DefaultName>Textbox3</rd:DefaultName>
+            <Top>7.68286cm</Top>
+            <Left>0.28014cm</Left>
+            <Height>0.6cm</Height>
+            <Width>20.74095cm</Width>
+            <ZIndex>18</ZIndex>
+            <Style>
+              <Border>
+                <Style>None</Style>
+              </Border>
+              <PaddingLeft>2pt</PaddingLeft>
+              <PaddingRight>2pt</PaddingRight>
+              <PaddingTop>2pt</PaddingTop>
+              <PaddingBottom>2pt</PaddingBottom>
+            </Style>
+          </Textbox>
         </ReportItems>
-        <Height>10.69327cm</Height>
+        <Height>11.48171cm</Height>
         <Style />
       </Body>
       <Width>21.16666cm</Width>
       <Page>
         <PageFooter>
-          <Height>0.77793cm</Height>
+          <Height>1.41293cm</Height>
           <PrintOnFirstPage>true</PrintOnFirstPage>
           <PrintOnLastPage>true</PrintOnLastPage>
           <ReportItems>

General/SaldosIniciales.aspx.vb

@@ -1045,22 +1045,22 @@ Partial Class General_SaldosIniciales
 
 
                     Dim Vendedor As String = Row("Vendedor").ToString
-                    Dim Clasificacion As String = Row("Clasificación").ToString
+                    Dim Clasificacion As String = Row("ClasificacionCliente").ToString
                     Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"RFC = '{RFC}'").ToString.ToEntero
 
                     Dim CveVendedor As Integer = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveVendedor", $"Vendedor = '{Vendedor}'").ToString.ToEntero
                     Dim CveClasificación As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString.ToEntero
-                    Dim EsDistribuidor As Boolean = If(Row("Es distribuidor").ToString.ToUpper = "SI", True, False)
+                    Dim EsDistribuidor As Boolean = If(dt.Columns.Contains("Es distribuidor"), If(Row("Es distribuidor").ToString.ToUpper = "SI", True, False), False)
-                    Dim CargoUsado As Boolean = If(Row("Cargo Usados").ToString.ToUpper = "SI", True, False)
+                    Dim CargoUsado As Boolean = If(dt.Columns.Contains("Cargo Usados"), If(Row("Cargo Usados").ToString.ToUpper = "SI", True, False), False)
-                    Dim BonificacionUsado As Boolean = If(Row("EmitirBon Usado").ToString.ToUpper = "SI", True, False)
+                    Dim BonificacionUsado As Boolean = If(dt.Columns.Contains("EmitirBon Usado"), If(Row("EmitirBon Usado").ToString.ToUpper = "SI", True, False), False)
 
                     Dim LimiteCredito As Decimal = Row("Limite Credito").ToString.ToDecimal
                     Dim CobranzaCorreo As String = Row("CorreoPagos").ToString
                     Dim PlazoCobranza As Integer = Row("Plazo Cobranza").ToString.ToEntero
 
-                    Dim DìaVisita As String = Row("Dia Pago").ToString
+                    Dim DìaVisita As String = If(dt.Columns.Contains("Dia Pago"), Row("Dia Pago").ToString, "")
-                    Dim DiasPagoEspecifico As String = Row("Dìa Visita").ToString
+                    Dim DiasPagoEspecifico As String = If(dt.Columns.Contains("Dìa Visita"), Row("Dìa Visita").ToString, "")
-                    Dim CobranzaContacto As String = Row("Encargado Pago").ToString
+                    Dim CobranzaContacto As String = If(dt.Columns.Contains("Encargado Pagoa"), Row("Encargado Pago").ToString, "")
                     Dim CobranzaTelefono As String = Row("Celular Contacto").ToString.Replace("-", "").Replace(" ", "").Replace("(", "").Replace(")", "")
                     Dim CveUsoCFDI As Integer = If(Row("UsoCFDI").ToString = "", -1, GlobalDTSATUsosCFDI().FiltroPrimeroValor("CveUsoCFDI", String.Format("UsoCFDI = '{0}'", Row("UsoCFDI").ToString)).ToEntero)
                     '  CobranzaContacto = Regex.Replace(CobranzaContacto, "[^0-9]", "")
@@ -1076,7 +1076,7 @@ Partial Class General_SaldosIniciales
                         CobranzaTelefono = ""
                     End If
 
-                    Dim FormaPago As String = Row("Forma Pago").ToString
+                    Dim FormaPago As String = If(dt.Columns.Contains("Forma Pago"), Row("Forma Pago").ToString, "")
                     Dim CveFormaPago33 As Integer = 99
 
                     Select Case FormaPago
@@ -1169,7 +1169,7 @@ Partial Class General_SaldosIniciales
                         '    Exit For
                         'End If
                     Else
-                        Dim CveSATEstado As Integer = GlobalDTEstado("MEX").FiltroPrimeroValor("CveSATEstado", String.Format("NombreEstado ='{0}'", Estado)).ToEntero
+                        Dim CveSATEstado As Integer = GlobalDTEstado("MEX").FiltroPrimeroValor("CveSATEstado", String.Format(" NombreEstado  ='{0}'", Estado.ToUpper)).ToEntero
 
                         If Not ObjClientes.AddCliente(RazonSocial, RazonSocial, Calle, NumExt.ToString, "", Colonia, Poblacion, Poblacion, Estado, Pais, RFC, CodigoPostal, Telefono, Contacto, "", "", "", "", "", -1, False, 0, 0, False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CveVendedor, PlazoCobranza, -1,
                                    "-1", "-1", -1, "-1", -1, "0", -1, "0", 0, "", 0, "", 0, "", 0, "", "", Codigo, LimiteCredito, False, "", "", "", False, "", "", "", "", "", False, "", "", "", False, 0, -1, EsDistribuidor:=EsDistribuidor, CveClienteClasificacion:=CveClasificación, CargoUsado:=CargoUsado,

Inicio.aspx

@@ -308,7 +308,11 @@
                                                     </div>
 
                                                     <div class="modal-body">
-
+                                                        <div class="row">
+                                                            <div class="col-md-12" style="text-align: center;">
+                                                                <asp:Label ID="LblEmpresaCRM" runat="server" Text=""  style="font-size: 16px; display: none; text-align: center;"></asp:Label>
+                                                            </div>
+                                                        </div>
                                                         <div class="row">
                                                             <div class="form-group col-md-6 form-md-line-input input-iconright selectmodal">
                                                                 <asp:DropDownList ID="DdlAgedaTipo" ClientIDMode="Static" Width="100%" DataTextField="AgendaTipo" DataValueField="CveAgendaTipo" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true">
@@ -1453,7 +1457,6 @@
             $("#TxtFrecuencia").val('');
 
             $("#TxtAsuntoAgenda").val(event.title);
-
             //SE MUESTRA EL TEXTO HTML EN EL DIV DE LA DESCRIPCION SIN PERMITIR EDITAR,
             //SE ASIGNA -1 EN EL TEXBOX PARA QUE NO REALICE CAMBIOS EN BD
             $("#DivDescripcionUpdate").html(event.description);
@@ -1517,9 +1520,16 @@
             //LLAMA EL INDEXCHANGED DEL RADIOBUTTONLIST DE LOS TIPOS DE RECURRENCIA
             $("#BtnActualizaAdd").click();
 
-        }
+            //Muestra nombre de la empresa si esta tarea sea asigno desde EmpresaCRM
+            if (event.EmpresaCRM != "") {
+                $("#<%=LblEmpresaCRM.ClientID%>").css("display", "")
+                $("#<%=LblEmpresaCRM.ClientID%>").text(event.EmpresaCRM);
+            } else {
+                $("#<%=LblEmpresaCRM.ClientID%>").css("display", "none")
+            }
 
-        function RadionButtonSelectedValueSet(name, SelectdValue) {
+        }
+       function RadionButtonSelectedValueSet(name, SelectdValue) {
             $('input[name="' + name + '"][value="' + SelectdValue + '"]').prop('checked', true);
         }
 

Inicio.aspx.vb

@@ -769,6 +769,7 @@ Partial Class Inicio
         CheckDiasSemana.ClearSelection()
         RBLRecurrencia_SelectedIndexChanged(RBLRecurrencia, EventArgs.Empty)
         TxtFrecuencia.Text = "1"
+        LblEmpresaCRM.Text = ""
     End Sub
 
     Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs)

Inventarios/AjustesSeccionAlmacen.aspx

@@ -88,7 +88,7 @@
                     <asp:TemplateField ItemStyle-Width="7%">
                         <ItemTemplate>
                             <%--<asp:Literal ID="LtlExistencia" runat="server" Text='<%# Eval("Existencia").ToString().Split("."c)(0) %>'></asp:Literal>--%>
-                            <asp:TextBox ID="TxtCantidad" runat="server" Text='<%# Eval("Existencia").ToString().Split("."c)(0) %>' Width="45px" style='text-align:right;' />
+                            <asp:TextBox ID="TxtCantidad" runat="server" Text='<%# Eval("Existencia", "{0:####.###}") %>' Width="45px" style='text-align:right;' />
                             <asp:RangeValidator ID="RVR" Display="Dynamic" ControlToValidate="TxtCantidad" runat="server" MinimumValue="0" Type="Double" ErrorMessage="No cumple con la cantidad especificada"></asp:RangeValidator>
                         </ItemTemplate>
                     </asp:TemplateField>

Inventarios/AjustesSeccionAlmacen.aspx.vb

@@ -212,11 +212,11 @@ Partial Class Inventarios_AjustesSeccionAlmacen
                     Next
 
                     'inserto la prepoliza
-                    If CveMovimientoEntrada > 0 AndAlso CveMovimientoSalida > 0 Then
+                    If Not ErrorMovInv AndAlso CveMovimientoEntrada > 0 AndAlso CveMovimientoSalida > 0 Then
                         Dim Concepto As String = "Ajuste Sección"
                         Dim IdCtaContableOrigen As Integer = 0
                         Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/AjusteAlmacen", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                        Dim importe As Decimal = resultado.SUMD("Total").RoundAD
+                        Dim importe As Decimal = resultado.SUMD("Total").RoundSQL
                         Dim contabilizable As Boolean = False
                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, Concepto, 68, Concepto, Fecha, IdCtaContableOrigen, -1, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=contabilizable, ImporteMX:=importe) Then
                             ErrorMovInv = True
@@ -616,7 +616,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
         'Mostrar Sección
         GvD.Columns(11).Visible = ChkMostrarSeccion.Checked
         GvD.Columns(12).Visible = ChkMostrarSeccion.Checked
-
+        CargaDatos()
         UppD.Update()
     End Sub
 

Inventarios/EntradasSalidas.aspx.vb

@@ -1362,7 +1362,7 @@ Partial Class Inventarios_EntradasSalidas
             registro.Item("CveUM") = CveUM
             registro.Item("UnidadMedida") = UM
             registro.Item("CvePS") = CvePS
-            registro.Item("CodigoPS") = PS
+            registro.Item("CodigoPS") = String.Format("{0} - {1}", Codigo, PS)
             registro.Item("PS") = PS
             registro.Item("PU") = PU
             'registro.Item("PUExtranjero") = PU
@@ -4581,6 +4581,7 @@ Partial Class Inventarios_EntradasSalidas
                     NumRow = 0
                     Dim RowNoEncontrados As String = ""
                     Dim NumAgregados As Integer = 0
+                    Dim PSTemp As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa)
 
                     For Each Row As DataRow In dt.Rows
                         Dim Cantidad As Decimal = Row("Cantidad").ToString.ToDecimal
@@ -4596,6 +4597,7 @@ Partial Class Inventarios_EntradasSalidas
 
                         Dim CvePS As Integer = 0
                         Dim CveUM As Integer = 0
+                        Dim DataTemp As DataTable
 
                         NumRow = NumRow + 1
 
@@ -4607,36 +4609,48 @@ Partial Class Inventarios_EntradasSalidas
 
 
                         If Codigo <> "" Then
-                            Dim StrArray() As String = GetPS("Codigo", Codigo).Split("|"c)
+                            DataTemp = PSTemp.FiltraParametros(String.Format("Codigo = '{0}'", Codigo))
-                            If StrArray.Length > 0 Then
+                            CvePS = DataTemp.FiltroPrimeroValor("CvePS", "").ToEntero
-                                If CBool(StrArray(0)) = True Then
+                            DataTemp.Dispose()
-                                    CvePS = StrArray(1).ToEntero
+                            If CvePS = 0 Then
-                                Else
+                                RowNoEncontrados &= Codigo & "<\BR>"
-                                    RowNoEncontrados &= StrArray(1) & "<\BR>"
-                                End If
-                            End If
-                            'ElseIf CodigoBarras <> "" Then
-                            '    Dim StrArray() As String = GetPS("CodigoBarras", CodigoBarras).Split("|"c)
-                            '    If StrArray.Length > 0 Then
-                            '        If CBool(StrArray(0)) = True Then
-                            '            CvePS = StrArray(1).ToEntero
-                            '        Else
-                            '            RowNoEncontrados &= StrArray(1) & "<\BR>"
-                            '        End If
-                            '    End If
-                        ElseIf ProductoServicio <> "" Then
-                            Dim StrArray() As String = GetPS("PS", ProductoServicio).Split("|"c)
-                            If StrArray.Length > 0 Then
-                                If CBool(StrArray(0)) = True Then
-                                    CvePS = StrArray(1).ToEntero
-                                Else
-                                    RowNoEncontrados &= StrArray(1) & "<\BR>"
-                                End If
                             End If
                         Else
                             RowNoEncontrados &= "<\BR>&nbsp;&nbsp;&nbsp;&nbsp;- En la fila " & NumRow & " no se especificó código, código de barras ó descripción."
                         End If
 
+
+                        'If Codigo <> "" Then
+                        '    Dim StrArray() As String = GetPS("Codigo", Codigo).Split("|"c)
+                        '    If StrArray.Length > 0 Then
+                        '        If CBool(StrArray(0)) = True Then
+                        '            CvePS = StrArray(1).ToEntero
+                        '        Else
+                        '            RowNoEncontrados &= StrArray(1) & "<\BR>"
+                        '        End If
+                        '    End If
+                        '    'ElseIf CodigoBarras <> "" Then
+                        '    '    Dim StrArray() As String = GetPS("CodigoBarras", CodigoBarras).Split("|"c)
+                        '    '    If StrArray.Length > 0 Then
+                        '    '        If CBool(StrArray(0)) = True Then
+                        '    '            CvePS = StrArray(1).ToEntero
+                        '    '        Else
+                        '    '            RowNoEncontrados &= StrArray(1) & "<\BR>"
+                        '    '        End If
+                        '    '    End If
+                        'ElseIf ProductoServicio <> "" Then
+                        '    Dim StrArray() As String = GetPS("PS", ProductoServicio).Split("|"c)
+                        '    If StrArray.Length > 0 Then
+                        '        If CBool(StrArray(0)) = True Then
+                        '            CvePS = StrArray(1).ToEntero
+                        '        Else
+                        '            RowNoEncontrados &= StrArray(1) & "<\BR>"
+                        '        End If
+                        '    End If
+                        'Else
+                        '    RowNoEncontrados &= "<\BR>&nbsp;&nbsp;&nbsp;&nbsp;- En la fila " & NumRow & " no se especificó código, código de barras ó descripción."
+                        'End If
+
                         If CvePS > 0 Then
                             Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).Rows(0)
 
@@ -4644,7 +4658,6 @@ Partial Class Inventarios_EntradasSalidas
                                 CveUM = DrPS("CveUnidadMedida").ToString().ToEntero()
                                 UM = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("UnidadMedida", $"CveUnidadMedida={CveUM}")
                             End If
-
                             AddNew(CvePS, ProductoServicio, CveUM, UM, Cantidad, PrecioUnitario, Serie.Replace(" ", String.Empty), "", "-1", "-1", "",
                                    Lote, Caducidad.ToDate, CveSeccionAlmacen, SeccionAlmacen, CargarGV:=False)
 

Inventarios/EntregaAlmacen.aspx

@@ -516,7 +516,7 @@
                             </asp:TemplateField>
                             <asp:TemplateField HeaderText="Lote" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="7.5%" Visible="false">
                                 <ItemTemplate>
-                                    <asp:TextBox ID="TxtLote" CssClass="form-control input-sm" runat="server" Visible="false" Text='<%# Eval("Lote") %>' Enabled="false"></asp:TextBox>
+                                    <asp:TextBox ID="TxtLote" CssClass="form-control input-sm" runat="server" Visible="false" Text='<%# Eval("Lote") %>' Width="100px" Enabled="false"></asp:TextBox>
                                 </ItemTemplate>
                             </asp:TemplateField>
                             <asp:TemplateField HeaderText="Fecha Caducidad" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" Visible="false">

Inventarios/EntregaAlmacen.aspx.vb

@@ -967,6 +967,7 @@ Partial Class Inventarios_EntregaAlmacen
                     e.Row.FCTextBox("TxtCaducidad").Visible = True
                     e.Row.FCLinkButton("LnkCaducidad").Visible = True
                     e.Row.FCTextBox("TxtCaducidad").readonly = True
+                    ' e.Row.FCTextBox("TxtCaducidad").enabled = True
                 Else
                     e.Row.FCTextBox("TxtCaducidad").Visible = False
                     e.Row.FCLinkButton("LnkCaducidad").Visible = False
@@ -975,6 +976,7 @@ Partial Class Inventarios_EntregaAlmacen
                 If CBool(e.Row.DBCampo("AplicaLote")) Then
                     e.Row.FCTextBox("TxtLote").Visible = True
                     e.Row.FCTextBox("TxtLote").readonly = True
+                    'e.Row.FCTextBox("TxtLote").enabled = True
                 Else
                     e.Row.FCTextBox("TxtLote").Visible = False
                 End If
@@ -1743,8 +1745,8 @@ Partial Class Inventarios_EntregaAlmacen
         If ObjInventario.EntregaAlmacenGet(CveVentaSurtir) Then
             DtDatosVenta = ObjInventario.DtResultados
         End If
-        Dim CantidadGV = GvDatos.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal)
+        Dim CantidadGV As Decimal = GvDatos.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal)
-        If CantidadGV <> DtDatosVenta.SUM("CantidadF").ToDecimal Then
+        If CantidadGV <> DtDatosVenta.SUMD("CantidadF") Then
             ObjInventario.RollBack()
             ObjInventario.Dispose()
             ObjConta.Dispose()
@@ -2461,18 +2463,21 @@ Partial Class Inventarios_EntregaAlmacen
                     For Each Dr As DataRow In DtDatos.Rows
                         CantidadPendiente = Dr("CantidadGV").ToString().ToDecimal - Dr("CantidadTraspaso").ToString().ToDecimal - CantidadEntradaSinCosto
                         If CantidadPendiente > 0 Then
-                            Dim PU As Decimal = 0
+                            Dim PU As Decimal = 0
-
+                            Dim CveSeccionAlmacen As Integer = If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1)
-                            'SI FUE POR SERIE
+
+                            'SI FUE POR SERIE
                             DtDetalle = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0} AND FueTraspaso IS NULL", Dr("Consec")))
                             DtDetalleLote = DtDatosDetalleLote.FiltraParametros(String.Format("ConsecId = {0} AND FueTraspaso IS NULL", Dr("Consec")))
                             If DtDetalle.Rows.Count > 0 Then
                                 For Each Dr1 As DataRow In DtDetalle.Rows
-                                    If TipoMovimiento = 2 AndAlso DtExistencias IsNot Nothing Then
+                                    If TipoMovimiento = 2 AndAlso DtExistencias IsNot Nothing Then
-                                        PU = DtExistencias.FiltroPrimeroValor("PU", $"CveTipoAlmacenDevolucion <> 26 AND CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString().ToEntero()} AND Serie = '{Dr1("Serie").ToString()}'").ToString().ToDecimal
+                                        CveSeccionAlmacen = DtExistencias.FiltroPrimeroValor("CveSeccionAlmacen", $"ISNULL(CveTipoAlmacenDevolucion,0) <> 26 AND CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString().ToEntero()} AND Serie = '{Dr1("Serie").ToString()}'").ToString().ToEntero
+
+                                        PU = DtExistencias.FiltroPrimeroValor("PU", $"CveTipoAlmacenDevolucion <> 26 AND CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString().ToEntero()} AND Serie = '{Dr1("Serie").ToString()}'").ToString().ToDecimal
                                     End If
 
-                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, 1, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), PU, Serie:=Dr1("Serie").ToString(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=-3) Then
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, 1, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), PU, Serie:=Dr1("Serie").ToString(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=CveSeccionAlmacen) Then
                                         ErrorMovInv = True
                                         TextoError.AppendFormat("Ocurrió un error al procesar los conceptos con serie. Por favor vuelva a intentar.")
                                         Exit For
@@ -2481,10 +2486,11 @@ Partial Class Inventarios_EntregaAlmacen
                             ElseIf DtDetalleLote.Rows.Count > 0 Then
                                 For Each Dr1 As DataRow In DtDetalleLote.Rows
                                     If TipoMovimiento = 2 AndAlso DtExistencias IsNot Nothing Then
+                                        CveSeccionAlmacen = DtExistencias.FiltroPrimeroValor("CveSeccionAlmacen", $"CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString().ToEntero()} AND Serie = '{Dr1("Serie").ToString()}'").ToString().ToEntero
                                         PU = DtExistencias.FiltroPrimeroValor("PU", $"CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString().ToEntero()} AND Serie = '{Dr1("Serie").ToString()}'").ToString().ToDecimal
                                     End If
 
-                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr1("Cantidad").ToString().ToDouble, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), PU, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1)) Then
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr1("Cantidad").ToString().ToDouble, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), PU, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=CveSeccionAlmacen) Then
                                         ErrorMovInv = True
                                         TextoError.AppendFormat("Ocurrió un error al procesar los conceptos con serie. Por favor vuelva a intentar.")
                                         Exit For
@@ -2495,7 +2501,7 @@ Partial Class Inventarios_EntregaAlmacen
                                     PU = DtExistencias.FiltroPrimeroValor("PU", $"CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString().ToEntero()}").ToString().ToDecimal
                                 End If
 
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, CantidadPendiente, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), PU, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1)) Then
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, CantidadPendiente, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), PU, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString().ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1"), CveSeccionAlmacen:=-3) Then
                                     ErrorMovInv = True
                                     TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de salida. Por favor vuelva a intentar.")
                                     Exit For

Inventarios/InventarioFisicoDetalle.aspx.vb

@@ -551,7 +551,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
         Dim DtDatos As New DataTable
         Dim ObjInventario As New ClsInventarios()
         If ObjInventario.GetInventarioFisicoDetalle(CveInventarioFisico, ddlUsuario.SelectedValue, Agrupar:=Agrupar) Then
-            DtDatos = ObjInventario.DtResultados.Copy
+            DtDatos = ObjInventario.DtResultados.FiltraParametros("CveInventarioFisico > 0 ").Copy
         End If
         ObjInventario.Dispose()
 

Inventarios/RecepcionAlmacen.aspx.vb

@@ -541,7 +541,7 @@ Partial Class Inventarios_RecepcionAlmacen
         If UsuarioActual.CveSubProyecto = 8804 Then 'AGS
             StrAlmacenes = $"CveTipoAlmacen IN ({If(CveTiposAlmacen.Length > 0, CveTiposAlmacen, "1,2,12,15")}) {If(CveSubProyecto > 0, $"And CveSubProyecto = {CveSubProyecto}", "")}"
         Else
-            StrAlmacenes = $"CveTipoAlmacen IN ({If(CveTiposAlmacen.Length > 0, CveTiposAlmacen, "1,2,15,6,14")}) {If(CveSubProyecto > 0, $"And CveSubProyecto = {CveSubProyecto}", "")}"
+            StrAlmacenes = $"CveTipoAlmacen IN ({If(CveTiposAlmacen.Length > 0, CveTiposAlmacen, "1,2,15,14")}) {If(CveSubProyecto > 0, $"And CveSubProyecto = {CveSubProyecto}", "")}"
         End If
 
         If CveTipoCompra = 10 Then
@@ -558,9 +558,18 @@ Partial Class Inventarios_RecepcionAlmacen
         UpGenerales.Update()
     End Sub
 
-    Protected Sub DdlAlmacen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAlmacen.SelectedIndexChanged
+    Protected Sub DdlAlmacen_SelectedIndexChanged(sender As Object, e As EventArgs)
         If DdlAlmacen.SelectedValue <> "-1" Then
 
+            Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacen.selectedvalue.toentero).FiltroPrimeroValor("CveSubProyecto").ToEntero
+            'RMF condición temporal
+            If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
+                ValidaLoteCaducidad = True
+            Else
+                ValidaLoteCaducidad = False
+            End If
+
+
             CargaGVInv()
             'For Each Gvr As GridViewRow In GvInv.Rows
             '    If Gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue = "-1" Then
@@ -1020,9 +1029,6 @@ Partial Class Inventarios_RecepcionAlmacen
                     End If
 
                     CveSubProyecto = DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero
-                    If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyecto = 10276 Then
-                        ValidaLoteCaducidad = True
-                    End If
 
                     CveAlmacenDevolucionProveedor = DtRecepcion.Rows(0)("CveAlmacenDevolucionProveedor").ToString.ToEntero
 
@@ -1047,7 +1053,7 @@ Partial Class Inventarios_RecepcionAlmacen
                         DivTraspasoDevolucion.Visible = True
                         LtlTextoDevolucion.Text = "La mercancía sera trasladada desde el almacen seleccionado al almacén de devolución"
                     ElseIf TipoMovimiento = 2 AndAlso GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=21).Rows.Count = 0 Then
-                        LtlTextoDevolucion.Text = "La mercancía sera devuelta ha el almacen seleccionado."
+                        LtlTextoDevolucion.Text = "La mercancía sera devuelta a el almacen seleccionado."
                         DivTraspasoDevolucion.Visible = True
                     End If
 
@@ -1119,7 +1125,7 @@ Partial Class Inventarios_RecepcionAlmacen
                                         BtnGuardar.Enabled = False
                                         LtAdvertencia.Text = "No se puede recibir la mercancía por ser de apartados y no contar con un almacen de apartado."
                                     Else
-                                        LtAdvertencia.Text = "La mercancía sera traspasada ha apartados"
+                                        LtAdvertencia.Text = "La mercancía sera traspasada a apartados"
                                         If CargaSoloUsados Then
                                             CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra)
                                         Else
@@ -4111,6 +4117,8 @@ Partial Class Inventarios_RecepcionAlmacen
                 TipoCambio = 0
                 TipoMovimiento = 1
 
+
+
                 If ObjInventario.RecepcionAlmacenOCGet(CveOC, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
                     DtDatosDetalle = Nothing
                     CreaDtDetalle()
@@ -4150,7 +4158,6 @@ Partial Class Inventarios_RecepcionAlmacen
                         UpDocumentos.Update()
                     End If
 
-
                     CargaGVInv()
 
                 Else

Inventarios/ReconstruirCostos.aspx

@@ -0,0 +1,104 @@
+<%@ Page Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="ReconstruirCostos.aspx.vb" Inherits="Inventario_ReconstruirCostos" %>
+
+<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="HB" runat="Server">
+</asp:Content>
+
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+    <asp:Literal ID="LtlTitulo" runat="server" Text="Reconstruir Costos"></asp:Literal>&nbsp;<asp:Literal ID="LtlReconstruir" runat="server"></asp:Literal>
+</asp:Content>
+
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+   <%-- <li>
+        <asp:LinkButton ID="LnkImprimir" runat="server"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>
+    </li>--%>
+</asp:Content>
+
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+
+    <asp:UpdatePanel ID="UPPFiltros" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div class="portlet solid  grey-cascade portlet-filter" id="idnecesaria">
+                <div class="portlet-title portlet-filterT smalltitle">
+                    <div class="tools">
+                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
+                    </div>
+                    <div class="titlefiltros  caption ">
+                        <div class="row">
+                           <%--Filtros--%>
+                            <label class="col-md-1 truncate" style="width: 100px;">Clasificacion:</label>
+                            <div class="col-md-2">
+                                 <asp:DropDownList ID="DdlClasificacion" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%">
+                                    <asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+
+                            <label class="col-md-1 truncate" style="width: 100px;">Marca:</label>
+                            <div class="col-md-2">
+                                 <asp:DropDownList ID="DdlMarca" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Marca" DataValueField="CveMarca" Width="100%">
+                                    <asp:ListItem Selected="True" Text="Seleccione la Marca (Todas)" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+                        </div>
+                   </div>
+                 </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+    <div class="row">
+        <div class="col-md-12" align="right">
+            <asp:Label ID="LbFiltrar" Text="Filtrar" runat="server" />
+            <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvProdcutos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvProdcutos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+        </div>
+    </div>
+
+    <asp:UpdatePanel ID="UpGvProductos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div style="height:650px; overflow-y: scroll;" >
+                <asp:GridView ID="GvProdcutos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePS, PS" CssClass="table table-striped table-advance table-hover" Style="text-align: center; float: right; width: 100%; font-size: medium;" GridLines="None">
+                    <Columns>
+                        <asp:TemplateField ItemStyle-HorizontalAlign="Center">
+                            <HeaderTemplate>
+                            </HeaderTemplate>
+                            <ItemTemplate>
+                                <asp:CheckBox ID="ChkProducto" runat="server"/>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+
+                        <asp:BoundField DataField="PS" NullDisplayText="N/A" ItemStyle-Width="30%" HeaderText="Producto" ItemStyle-HorizontalAlign="Left" />
+                        <asp:BoundField NullDisplayText="N/A" ItemStyle-Width="60%" ItemStyle-HorizontalAlign="Center" />
+                    </Columns>
+                    <RowStyle Font-Size="Smaller" />
+                    <HeaderStyle CssClass="Titulos" />
+                </asp:GridView>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+    
+    <asp:UpdatePanel ID="UpReconstruir" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div style="width: 100%; text-align: center;">
+                <div>
+                    <br />
+
+                    <asp:Button ID="BtnReconstruir" runat="server" Text="Guardar" CssClass="btn btn-primary" />
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+</asp:Content>
+
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+
+</asp:Content>
+

Inventarios/ReconstruirCostos.aspx.vb

@@ -0,0 +1,88 @@
+Option Explicit On
+Option Strict On
+
+Imports Extensiones
+Imports System.Data
+Partial Class Inventario_ReconstruirCostos
+    Inherits ClsPaginas
+
+    Private Property FacturasCheckadas As Integer
+        Get
+            Return ViewState("FacturasCheckadas").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("FacturasCheckadas") = value
+        End Set
+    End Property
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            CargaClasificaciones()
+            CargaMarcas()
+        End If
+    End Sub
+    Private Sub CargaClasificaciones()
+
+        If UsuarioActual.Empresa.UsaAC Then
+            DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
+        Else
+            DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
+        End If
+        DdlClasificacion.DataBind()
+    End Sub
+
+    Private Sub CargaMarcas()
+
+        Dim ObjPS As New ClsProductosServicios
+
+        If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
+            DdlMarca.DataSource = ObjPS.DtResultados
+            DdlMarca.DataBind()
+
+        End If
+        ObjPS.Dispose()
+    End Sub
+    Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
+        CargaDatos()
+    End Sub
+
+    Private Sub CargaDatos()
+
+
+        Dim ObjPS As New ClsProductosServicios
+        ObjPS.GetPS(-1, DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, CveMarca:=DdlMarca.SelectedValue.ToEntero)
+        If ObjPS.DtResultados.Rows.Count > 0 Then
+            GvProdcutos.DataSource = ObjPS.DtResultados
+            GvProdcutos.DataBind()
+            UpGvProductos.Update()
+        End If
+        ObjPS.Dispose()
+    End Sub
+    Private Sub BtnReconstruir_Click(sender As Object, e As EventArgs) Handles BtnReconstruir.Click
+        Dim objInv As New ClsInventarios
+        Dim TieneError As Boolean = False
+        Dim Producto As String = ""
+
+        For Each Gvr As GridViewRow In GvProdcutos.Rows
+            If Gvr.FCCheckBox("ChkProducto").Checked Then
+                Dim CvePS As Integer = Gvr.DataKey("CvePS").ToEntero
+                If Not objInv.ReconstruirCostos(CvePS, UsuarioActual.CveEmpresa) Then
+                    TieneError = True
+                    Producto += String.Format("{0} <br/>", Gvr.DataKey("PS").ToString)
+
+                End If
+            End If
+        Next
+
+        If TieneError Then
+            Alert(String.Format("Error al reconstruir los costos en los siguientes productos: {0}", Producto), TipoMensaje.MsgError)
+        Else
+            Alert("Se realizo el cambio correctamente", TipoMensaje.MsgConfirmacion)
+
+        End If
+
+        objInv.Dispose()
+    End Sub
+
+
+End Class

Inventarios/ResguardoMaterial.aspx

@@ -491,8 +491,25 @@
                                 <asp:BoundField HeaderText="Producto" DataField="CodigoPS" ItemStyle-Width="40%" />
                                 <asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="10%" />
                                 <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="20%"  Visible="false"/>
-                                <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-Width="20%"  Visible="false"/>
+                                <asp:TemplateField HeaderText="Lote" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="7.5%" Visible="false">
-                                <asp:BoundField HeaderText="Caducidad" DataField="FechaCaducidad" ItemStyle-Width="20%"  Visible="false"/>
+                                <ItemTemplate>
+                                        <asp:TextBox ID="TxtLote" Width="80px" class="form-control input-sm" runat="server" Visible="false"></asp:TextBox>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Fecha Caducidad" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" Visible="false">
+                                    <ItemTemplate>
+                                        <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
+                                            <asp:TextBox ID="TxtCaducidad" CssClass="form-control input-sm ADSMaskDate" Style="width: 80px" runat="server" Visible="false"></asp:TextBox>
+                                            <span class="input-group-btn ">
+                                                <asp:LinkButton runat="server" ID="LnkCaducidad" class="btn default" Visible="false"> <i class="fa fa-calendar"></i>  </asp:LinkButton>
+                                            </span>
+                                            <ajax:MaskedEditExtender ID="MEECaducidad" runat="server" TargetControlID="TxtCaducidad" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                            <ajax:CalendarExtender runat="server" ID="CECaducidad" TargetControlID="TxtCaducidad" PopupButtonID="LnkCaducidad" PopupPosition="BottomLeft" Enabled="True" Format="dd/MM/yyyy"></ajax:CalendarExtender>
+                                            <asp:RequiredFieldValidator ID="RFVCaducidad" runat="server" ControlToValidate="TxtCaducidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Caducidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                            <ajax:ValidatorCalloutExtender ID="VCECaducidad" runat="server" HighlightCssClass="vco" TargetControlID="RFVCaducidad"></ajax:ValidatorCalloutExtender>
+                                        </div>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
                                 <asp:TemplateField HeaderText="Sección" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">                                    
                                     <ItemTemplate>
                                          <asp:DropDownlist ID="DdlSeccionAlmacen" runat="server" DataTextField="SeccionAlmacen" DataValueField="CveSeccionAlmacen" CssClass="form-control input-sm select2me" />

Inventarios/ResguardoMaterial.aspx.vb

@@ -83,6 +83,15 @@ Partial Class Inventarios_ResguardoMaterial
         End Set
     End Property
 
+    Private Property ValidaLoteCaducidad As Boolean
+        Get
+            Return CType(ViewState("ValidaLoteCaducidad"), Boolean)
+        End Get
+        Set(value As Boolean)
+            ViewState("ValidaLoteCaducidad") = value
+        End Set
+    End Property
+
 
     Private Property CantidadTotal As Decimal
         Get
@@ -502,41 +511,6 @@ Partial Class Inventarios_ResguardoMaterial
         End If
 
 
-        'ThSerie.Visible = False
-        'TrSerie.Visible = False
-        'TxtnSerie.Visible = False
-        'GvM.Columns(5).Visible = False
-        'GvM.Columns(4).Visible = False
-
-        'Dim Contador As Integer = 0
-        'Dim UltimoRenglon As Integer = DtMovimientos.Rows.Count - 1
-        'Dim MostrarSerie As Boolean = False
-        'Dim MostrarSeccion As Boolean = False
-        'While Contador <= UltimoRenglon And (Not MostrarSerie And Not MostrarSeccion)
-        '    Dim Dr As DataRow = DtMovimientos.Rows(Contador)
-        '    MostrarSerie = If(Not MostrarSerie, Dr("Serie").ToString <> "", True)
-        '    MostrarSeccion = If(Not MostrarSerie, Dr("SeccionAlmacen").ToString <> "", True)
-        '    Contador += 1
-        'End While
-
-        'ThSerie.Visible = MostrarSerie
-        'TrSerie.Visible = MostrarSerie
-        'GvM.Columns(5).Visible = MostrarSerie
-
-        'GvM.Columns(4).Visible = MostrarSeccion
-
-        'For Each Dr As DataRow In DtMovimientos.Rows
-        '    If Dr("Serie").ToString <> "" Then
-        '        ThSerie.Visible = True
-        '        TrSerie.Visible = True
-        '        GvM.Columns(5).Visible = True
-        '        Exit For
-        '    End If
-        '    If Dr("SeccionAlmacen").ToString <> "" Then
-        '        GvM.Columns(4).Visible = True
-        '    End If
-        'Next
-
         GvM.DataSource = DtMovimientos
         GvM.DataBind()
     End Sub
@@ -608,6 +582,23 @@ Partial Class Inventarios_ResguardoMaterial
                 dtt.Dispose()
             End If
 
+            If (ValidaLoteCaducidad) OrElse (UsuarioActual.CveEmpresa <> 119) Then
+                If CBool(e.Row.DBCampo("AplicaCaducidad")) Then
+                    e.Row.FCTextBox("TxtCaducidad").Visible = True
+                    e.Row.FCLinkButton("LnkCaducidad").Visible = True
+                Else
+                    e.Row.FCTextBox("TxtCaducidad").Visible = False
+                    e.Row.FCLinkButton("LnkCaducidad").Visible = False
+                End If
+
+                If CBool(e.Row.DBCampo("AplicaLote")) Then
+                    e.Row.FCTextBox("TxtLote").Visible = True
+                Else
+                    e.Row.FCTextBox("TxtLote").Visible = False
+                End If
+
+            End If
+
         End If
     End Sub
 
@@ -689,8 +680,8 @@ Partial Class Inventarios_ResguardoMaterial
     Private Sub CargaGvMLiberacion()
 
         GvMLiberacion.Columns(5).Visible = DtMovimientosLiberacion.MAX("Serie").ToString <> ""
-        GvMLiberacion.Columns(6).Visible = DtMovimientosLiberacion.MAX("Lote").ToString <> ""
+        GvMLiberacion.Columns(6).Visible = DtMovimientosLiberacion.MAX("AplicaLote").ToString = "True"
-        GvMLiberacion.Columns(7).Visible = DtMovimientosLiberacion.MAX("FechaCaducidad").ToString.ToDate > MinFecha
+        GvMLiberacion.Columns(7).Visible = DtMovimientosLiberacion.MAX("AplicaCaducidad").ToString = "True" ' .ToDate > MinFecha
         GvMLiberacion.Columns(8).Visible = DtMovimientosLiberacion.MAX("CveSeccionAlmacen").ToString.ToEntero > 0 Or DtMovimientosLiberacion.MAX("AplicaSeccion") = "True"
 
 
@@ -896,6 +887,8 @@ Partial Class Inventarios_ResguardoMaterial
                 CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenLiberación, 3, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservacionesLiberacion.Text, CvePersonal:=CvePersonalLiberacion, CveAlmacenDestino:=DdlAlmacenDestinoLiberacion.SelectedValue.ToEntero, CveProveedor:=CveProveedorLiberacion, CveCliente:=CveClienteLiberacion, MovimientoFijo:=True, Modulo:="ResgMat3")
                 FolioSalida = ObjInventario.Folio
                 Dim DiccionarioSecciones As New HybridDictionary
+                Dim DiccionarioLote As New HybridDictionary
+                Dim DiccionarioCaducidad As New HybridDictionary
 
                 If CveMovimientoSalida <= 0 Then
                     TieneError = True
@@ -906,12 +899,19 @@ Partial Class Inventarios_ResguardoMaterial
                 Dim Cont As Integer = 0
                 For Each Gvr As GridViewRow In GvMLiberacion.Rows
                     If Gvr.FCTextBox("TxtCantidad").Text.ToDouble > 0 Then
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Gvr.FCTextBox("TxtCantidad").Text.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, CveSeccionAlmacen:=Gvr.DataKey("CveSeccionAlmacen").ToEntero, Serie:=Gvr.DataKey("Serie").ToString, Observaciones:=Gvr.DataKey("Observaciones").ToString) Then
+                        Dim Lote As String = "-1"
+                        Dim FechaCaducidad As Date = MinFecha
+                        If Gvr.datakey("Lote") <> "" Then Lote = Gvr.datakey("Lote")
+                        If Gvr.datakey("FechaCaducidad").todate > MinFecha Then FechaCaducidad = Gvr.datakey("FechaCaducidad").todate
+
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Gvr.FCTextBox("TxtCantidad").Text.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, CveSeccionAlmacen:=Gvr.DataKey("CveSeccionAlmacen").ToEntero, Serie:=Gvr.DataKey("Serie").ToString, Lote:=Lote, FechaCaducidad:=FechaCaducidad, Observaciones:=Gvr.DataKey("Observaciones").ToString, CveMovimientoDetalleEntrada:=Gvr.DataKey("CveMovimientoDetalle").toentero) Then
                             MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar."
                             TieneError = True
                             Exit For
                         Else
                             DiccionarioSecciones.Add(ObjInventario.CveMovimientoDetalle, Gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue)
+                            DiccionarioLote.Add(ObjInventario.CveMovimientoDetalle, Gvr.FCTextBox("TxtLote").Text)
+                            DiccionarioCaducidad.Add(ObjInventario.CveMovimientoDetalle, Gvr.FCTextBox("TxtCaducidad").Text.todate)
                         End If
                     End If
                     Cont += 1
@@ -932,7 +932,11 @@ Partial Class Inventarios_ResguardoMaterial
                             Importe = ObjInventario.DtResultados.SUMD("Total").RoundAD
                             For Each Dr As DataRow In ObjInventario.DtResultados.Rows
                                 Dim CveSeccionAlmacen As Integer = DiccionarioSecciones(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString.ToEntero
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString) Then
+                                Dim Lote As String = "-1"
+                                Dim FechaCaducidad As Date = MinFecha
+                                If DiccionarioLote(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString <> "" Then Lote = DiccionarioLote(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString
+                                If DiccionarioCaducidad(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString.todate > MinFecha Then FechaCaducidad = DiccionarioCaducidad(Dr("CveMovimientoDetalle").ToString.ToEntero).ToString.todate
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Dr("Serie").ToString, Lote:=Lote, FechaCaducidad:=FechaCaducidad, Observaciones:=Dr("Observaciones").ToString) Then
                                     TieneError = True
                                     MensajeError = "Ocurrió un error al guardar los movimientos de entrada"
                                     Exit For
@@ -1099,6 +1103,14 @@ Partial Class Inventarios_ResguardoMaterial
     End Sub
 
     Private Sub DdlAlmacenDestinoLiberacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAlmacenDestinoLiberacion.SelectedIndexChanged
+        Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenDestinoLiberacion.selectedvalue.toentero).FiltroPrimeroValor("CveSubProyecto").ToEntero
+        'RMF condición temporal
+        If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
+            ValidaLoteCaducidad = True
+        Else
+            ValidaLoteCaducidad = False
+        End If
+
         CargaResguardos()
     End Sub
 End Class

Inventarios/TraspasoAlmacen.aspx.vb

@@ -1992,7 +1992,7 @@ Partial Class Inventarios_TraspasoAlmacen
                         End If
                         'MOV, Alm, Transito
                         If gvr.DataKey("CveMovimientoDetalleTransitorio").ToString.ToEntero > 0 Then
-                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaTransitorio, gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal, gvr.DataKey("CveUM").ToString.ToEntero, gvr.DataKey("CvePS").ToString.ToEntero, PrecioEntrada, CveAF:=gvr.DataKey("CveAF").ToString.ToEntero, CveSeccionAlmacen:=gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, Serie:=gvr.DataKey("Serie").ToString, Lote:=gvr.DataKey("Lote").ToString, FechaCaducidad:=gvr.DataKey("FechaCaducidad").ToDate, CveMovimientoDetalleEntrada:=gvr.DataKey("CveMovimientoDetalleTransitorio").ToString.ToEntero) Then
+                            If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaTransitorio, gvr.FCTextBox("TxtCantidad").Text.ToString.ToDecimal, gvr.DataKey("CveUM").ToString.ToEntero, gvr.DataKey("CvePS").ToString.ToEntero, PrecioEntrada, CveAF:=gvr.DataKey("CveAF").ToString.ToEntero, CveSeccionAlmacen:=gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, Serie:=gvr.DataKey("Serie").ToString, Lote:=tLote, FechaCaducidad:=tFechaCaducidad, CveMovimientoDetalleEntrada:=gvr.DataKey("CveMovimientoDetalleTransitorio").ToString.ToEntero) Then
                                 ErrorMovInv = True
                                 TextoError = "Ocurrió un error al guardar los movimientos de salida"
                                 Exit For

Nomina/Nomina2.aspx

@@ -145,7 +145,13 @@
                 <asp:LinkButton ID="LnkRegistrarProvision" Visible="false" OnClick="LnkRegistrarProvision_Click" runat="server"><i class="fa fa-thumbs-up" aria-hidden="true"></i>Registrar provisión</asp:LinkButton>
             </li>
             <li>
-                <asp:HyperLink ID="LnkProvisionNomina" Visible="false" runat="server"><i class="fa fa-eye"></i>Ver provisón</asp:HyperLink>
+                <asp:LinkButton ID="LnkLayoutContable" Visible="false" OnClick="LnkLayoutContable_Click" runat="server"><i class="fa fa-university" aria-hidden="true"></i>Layout banco</asp:LinkButton>
+            </li>
+            <li>
+                <asp:HyperLink ID="LnkProvisionNomina" Visible="false" runat="server"><i class="fa fa-eye"></i>Ver provisión</asp:HyperLink>
+            </li>
+            <li>
+                <asp:HyperLink ID="LnkProvisionNominaAsimilados" Visible="false" runat="server"><i class="fa fa-eye"></i>Ver provisión Asimilados</asp:HyperLink>
             </li>
             <li>
                 <asp:LinkButton ID="LnkTimbrarTodos" Visible="false" OnClick="LnkTimbrarTodos_Click" runat="server"><i class="fa fa-bell"></i> Timbrar todos</asp:LinkButton>
@@ -187,6 +193,8 @@
         <Triggers>
             <asp:PostBackTrigger ControlID="LnkListaRaya" />
             <asp:PostBackTrigger ControlID="LnkFormatoTabular" />
+            <asp:PostBackTrigger ControlID="LnkLayoutContable" />
+            
         </Triggers>
     </asp:UpdatePanel>
 

Nomina/Nomina2.aspx.cs

@@ -11,6 +11,8 @@ using static Extensiones.ModExtensiones;
 using System.Drawing;
 using iTextSharp.text.pdf;
 using System.IO;
+using System.Data.SqlClient;
+using System.Configuration;
 
 public partial class Nomina_Nomina2 : ClsPaginas
 {
@@ -365,21 +367,26 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
             using (ClsNominas objnom = new ClsNominas())
             {
+                int Estatus=0;
                 if (objnom.GetPeriodos(-1, UsuarioActual.CveEmpresa, -1, -1, FiltCvePeriodo))
                 {
                     DataRow drow = objnom.DtResultados.Rows[0];
-                    int Estatus = drow["Estatus"].ToString().ToEntero();
+                    Estatus = drow["Estatus"].ToString().ToEntero();
                     int CvePrePolizaProvision = drow["CvePrePolizaProvision"].ToString().ToEntero();
-                    LnkConceptoEmpleado.Visible = true;
+                    int CvePrePolizaProvisionAsimilados = drow["CvePrePolizaAsimilables"].ToString().ToEntero();
+                    LnkConceptoEmpleado.Visible = (Estatus == 1);
                     LnkAutorizar.Visible = (Estatus == 1);
-                    LnkRegistrarProvision.Visible = (Estatus > 2) && CvePrePolizaProvision<0;
+                    LnkRegistrarProvision.Visible = (Estatus >= 2) && CvePrePolizaProvision <= 0;
                     LnkConceptoEmpleado.Visible = (Estatus < 2);
                     LnkCargaAsistenciaMasiva.Visible = (Estatus < 2);
                     LnkModalPlantillaNomina.Visible = (Estatus < 2);
-                    LnkTimbrarTodos.Visible = (Estatus > 1);
+                    LnkTimbrarTodos.Visible = (Estatus > 2);
 
+                    LnkLayoutContable.Visible = (Estatus > 2);
                     LnkProvisionNomina.Visible = CvePrePolizaProvision > 0;
-                    LnkProvisionNomina.NavigateUrl = $"../Contabilidad/RegPrePoliza.aspx?CvePrePoliza={CvePrePolizaProvision}&Tipo=NOMPROV";
+                    LnkProvisionNomina.NavigateUrl = $"../Contabilidad/RegPrePoliza.aspx?CvePrePoliza={CvePrePolizaProvision}";
+                    LnkProvisionNominaAsimilados.Visible = CvePrePolizaProvision > 0;
+                    LnkProvisionNominaAsimilados.NavigateUrl = $"../Contabilidad/RegPrePoliza.aspx?CvePrePoliza={CvePrePolizaProvisionAsimilados}";
                     UpAccciones.Update();
                 }
                 LnkListaRaya.Visible = true;
@@ -396,7 +403,11 @@ public partial class Nomina_Nomina2 : ClsPaginas
                     continuar = true;
                 }
 
-                LnkTimbrarTodos.Visible = dtempleados.Rows.Count >0 && dtempleados.COUNT("CvePersonal", "SeTimbro=0 AND CvePersonal >0")>0;
+                if (dtempleados != null && Estatus > 2)
+                {
+                    LnkTimbrarTodos.Visible = dtempleados.Rows.Count > 0 && dtempleados.COUNT("CvePersonal", "SeTimbro=0 AND CvePersonal >0") > 0;
+                }
+              
             }
 
         }
@@ -2711,7 +2722,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                             }
                             paragraphh = new GemBox.Document.Paragraph(document, string.Format("Fecha Ingr:{0:dd/MM/yyyy}, S.D.:{1:N2}, S.D.I.:{2:N2}, S.B.C.:{3:N2}    ", drow2["FechaIngreso"], drow2["SalarioDiario"], drow2["SalarioDiarioIntegrado"], drow2["SalarioDiarioIMSS"])); cell.Blocks.Add(paragraphh);
                             paragraphh.ParagraphFormat.Style = styilo;
-                            paragraphh = new GemBox.Document.Paragraph(document, string.Format("Días pagados:{0}, Retardos: {1}, Ausencias:{2} ", drow2["DiasLaborados"], drow2["DiasRetardos"], drow2["DiasFaltados"])); cell.Blocks.Add(paragraphh);
+                            paragraphh = new GemBox.Document.Paragraph(document, string.Format("Días pagados:{0}, Retardos: {1}, Ausencias:{2}, Centro de costos: {3}", drow2["DiasLaborados"], drow2["DiasRetardos"], drow2["DiasFaltados"], drow2["SubProyecto"])); cell.Blocks.Add(paragraphh);
                             paragraphh.ParagraphFormat.Style = styilo;
 
                             row = new GemBox.Document.Tables.TableRow(document);
@@ -3681,7 +3692,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
                                 cellx = new GemBox.Document.Tables.TableCell(document); rowx.Cells.Add(cellx);
                                 cellx.CellFormat.PreferredWidth = new GemBox.Document.Tables.TableWidth(11, GemBox.Document.Tables.TableWidthUnit.Percentage);
-                                paragraphh = new GemBox.Document.Paragraph(document, string.Format("${0:N2}", dtempleados.SUM("Total"))); cellx.Blocks.Add(paragraphh); paragraphh.ParagraphFormat.Alignment = GemBox.Document.HorizontalAlignment.Right;
+                                paragraphh = new GemBox.Document.Paragraph(document, string.Format("${0:N2}", dtempleados.SUM("Total","CvePersonal > 0"))); cellx.Blocks.Add(paragraphh); paragraphh.ParagraphFormat.Alignment = GemBox.Document.HorizontalAlignment.Right;
+
                                 paragraphh.ParagraphFormat.Style = styilostrong;
 
                             }
@@ -5257,6 +5269,16 @@ public partial class Nomina_Nomina2 : ClsPaginas
     protected void LnkRegistrarProvision_Click(object sender, EventArgs e)
     {
 
+        using (ClsNominas ObjNomina = new ClsNominas())
+        {
+            if (ObjNomina.Autorizaperiodoconta(CvePeriodoSeleccionado,  UsuarioActual.CveEmpresa))
+            {
+                Alert("Provisión Generada", TipoMensaje.MsgAdvertencia);
+
+            }
+        }
+        
+
     }
 
 
@@ -5266,11 +5288,421 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
         using (ClsNominas objnom = new ClsNominas())
         {
-            if (objnom.PrimaRiesgoUP(UsuarioActual.CveEmpresa,TxtFechaPRT.Text.ToDateTime(),TxtPrimaRiesgo.Text.ToDecimal()))
+            if (objnom.PrimaRiesgoUP(UsuarioActual.CveEmpresa, TxtFechaPRT.Text.ToDateTime(), TxtPrimaRiesgo.Text.ToDecimal()))
             {
             }
 
         }
         loadtablas();
     }
+    private void CrearLayout(DataTable DTNomina)
+    {
+        StringBuilder sb = new StringBuilder();
+        StringBuilder SbErrores = new StringBuilder();
+        bool ErroresValidaciones = false;
+
+
+        SbErrores.AppendLine("Se detectaron los siguientes errores en la generación del layout");
+
+        foreach (DataRow dRow in DTNomina.Rows)
+        {
+            string RFC = dRow["RFC"].ToString();
+            string Nombre = dRow["Nombre"].ToString();
+            string BancoNumCuenta = dRow["BancoNumCuenta"].ToString();
+            decimal Importe = dRow["Importe"].ToString().ToDecimal();
+
+
+
+            if (RFC.Trim().Length == 0)
+                SbErrores.AppendLine($"El RFC es requerido del empleado {Nombre}<br/>");
+
+            System.Text.RegularExpressions.Match Coincidencia = System.Text.RegularExpressions.Regex.Match(RFC, @"/^([A-Z,Ñ,&]{3,4}([0-9]{2})(0[1-9]|1[0-2])(0[1-9]|1[0-9]|2[0-9]|3[0-1])[A-Z|\d]{3})$/");
+            if (!Coincidencia.Success)
+            {
+                SbErrores.AppendLine($"El RFC {RFC} del empleado {Nombre} no es valido <br/>");
+                ErroresValidaciones = true;
+            }
+
+            if (BancoNumCuenta.Trim().Length != 10)
+            {
+                SbErrores.AppendLine($"Empleado {Nombre} numero de cuenta incorrecto, la cuenta debe de tener 10 caracteres<br/>"); // Bancomer 10 caracteres
+                ErroresValidaciones = true;
+            }
+
+
+            if (Importe <= 0)
+            {
+                SbErrores.AppendLine($"Empleado {Nombre}  el importe debe de ser mayor a 0 importe {Importe}"); // importe mayot a 0
+                ErroresValidaciones = true;
+            }
+        }
+
+        ErroresValidaciones = false;
+
+        if (!ErroresValidaciones)
+        {
+            int Count = 1;
+            foreach (DataRow dRow in DTNomina.Rows)
+            {
+                StringBuilder SbLinea = new StringBuilder();
+
+                string RFC = dRow["RFC"].ToString();
+                string Nombre = dRow["Nombre"].ToString();
+                string BancoNumCuenta = dRow["BancoNumCuenta"].ToString();
+                decimal Importe = dRow["Importe"].ToString().ToDecimal().RoundSQL(2);
+
+                SbLinea.Append(Count.ToString("000000000"));
+                SbLinea.Append(RFC.Trim().PadRight(16));
+                SbLinea.Append("03");
+                SbLinea.Append(BancoNumCuenta.Trim().PadRight(20));
+                SbLinea.Append(Importe.ToString("0000000000000.00").Replace(".", ""));
+
+
+                if (Nombre.Trim().Length > 40)
+                    Nombre = Nombre.Substring(0, 40);
+
+                SbLinea.Append(Nombre.Trim().PadRight(40));
+
+                SbLinea.Append("012");
+                SbLinea.Append("000");
+
+                sb.AppendLine(SbLinea.ToString());
+
+
+                Count = Count + 1;
+            }
+
+
+            Response.Clear();
+            Response.ClearHeaders();
+            Response.AppendHeader("Content-Length", sb.ToString());
+            Response.ContentType = "text/plain";
+            //Response.AppendHeader("Content-Disposition", $"attachment;filename=\"Nomina{DateTime.Now.ToString("yyyyMMddhhmmss").ToString()}.txt\"");
+            Response.AppendHeader("Content-Disposition", $"attachment;filename=\"Nomina {DdlPeriodo.SelectedItem.Text }.txt\"");
+            Response.Write(sb.ToString());
+            Response.End();
+        }
+        else
+            Alert(SbErrores.ToString(), TipoMensaje.MsgAdvertencia);
+    }
+    protected void LnkLayoutContable_Click(object sender, EventArgs e)
+    {
+
+        using (ClsClaseBasez objbase = new ClsClaseBasez())
+        {
+            if (objbase.runQuerystr($"PA_NomDispersiondenomina @CvePeriodo ={CvePeriodoSeleccionado}, @CveEmpresa ={UsuarioActual.CveEmpresa}"))
+            {
+                CrearLayout(objbase.DtResultados);
+            }
+        }
+    }
+}
+
+class ClsClaseBasez : IDisposable
+{
+    protected SqlConnection SqlConexion;
+    protected SqlDataAdapter SqlAdapter;
+    protected DataTable datos;
+    protected DataSet DTSet;
+    public DataTable DtResultados
+    {
+        get
+        {
+            return datos;
+        }
+    }
+    public DataSet DTSetResultados
+    {
+        get
+        {
+            return DTSet;
+        }
+    }
+    protected bool disposedValue = false;
+    protected bool EsTransaccion = false;
+    public string MyCurrentError;
+    // REGISTRAR CONEXIÓN
+    private int CveConexion = 0;
+
+    public ClsClaseBasez(ClsClaseBasez adsObj = null)
+    {
+        if (adsObj != null && adsObj.SqlAdapter != null && adsObj.SqlAdapter.SelectCommand != null && adsObj.SqlAdapter.SelectCommand.Transaction != null)
+        {
+            SqlConexion = adsObj.SqlConexion;
+            SqlAdapter = adsObj.SqlAdapter;
+            EsTransaccion = true;
+        }
+        else
+        {
+            SqlConexion = new SqlConnection();
+            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString;
+            try
+            {
+                SqlConexion.Open();
+                SqlAdapter = new SqlDataAdapter("", SqlConexion);
+                ConexionAdd();
+            }
+            catch (Exception ex)
+            {
+                this.OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex);
+            }
+        }
+    }
+
+    public void SqlDataAdapter(string StrSQL, CommandType TipoComando = CommandType.StoredProcedure)
+    {
+        if (SqlConexion.State == ConnectionState.Open)
+        {
+            SqlAdapter.SelectCommand.Parameters.Clear();
+            SqlAdapter.SelectCommand.CommandText = StrSQL;
+            SqlAdapter.SelectCommand.CommandType = TipoComando;
+            datos = new DataTable();
+            DTSet = new DataSet();
+        }
+    }
+    protected void DataAdapter(string StrSQL, CommandType TipoComando = CommandType.Text)
+    {
+
+        // if (SqlAdapter.SelectCommand == null)
+        // {
+        // if ((sqlCommand != null))
+        // {
+        // SqlAdapter.SelectCommand = sqlCommand;
+        // }
+        // else
+        // {
+        // SqlAdapter.SelectCommand = new SqlCommand();
+        // }
+        // SqlAdapter.SelectCommand.Connection = SqlConexion;
+        // }
+
+        if (SqlConexion.State == ConnectionState.Open)
+        {
+            SqlAdapter.SelectCommand.Parameters.Clear();
+            SqlAdapter.SelectCommand.CommandText = StrSQL;
+            SqlAdapter.SelectCommand.CommandType = TipoComando;
+            datos = new DataTable();
+            DTSet = new DataSet();
+        }
+    }
+
+    private void ConexionAdd()
+    {
+        if (ConfigurationManager.AppSettings["RegistraConexion"] != null && ConfigurationManager.AppSettings["RegistraConexion"].ToString() == "1")
+        {
+            try
+            {
+                SqlDataAdapter("PA_Sis_RegistrarConexion");
+                {
+                    var withBlock = SqlAdapter.SelectCommand.Parameters;
+                    withBlock.Add("@Clase", SqlDbType.VarChar).Value = this.GetType().Name;
+                    withBlock.Add("@Modulo", SqlDbType.VarChar).Value = string.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString(), HttpContext.Current.Request.QueryString.ToString());
+                    withBlock.Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output;
+                }
+                SqlAdapter.Fill(datos);
+                CveConexion = SqlAdapter.SelectCommand.Parameters["@IDConexion"].Value.ToString().ToEntero();
+            }
+            catch (Exception ex)
+            {
+                this.OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo());
+            }
+        }
+    }
+
+    private void ConexionClose()
+    {
+        if (CveConexion > 0 && ConfigurationManager.AppSettings["RegistraConexion"] != null && ConfigurationManager.AppSettings["RegistraConexion"].ToString() == "1")
+        {
+            SqlDataAdapter(string.Format("UPDATE Sis_Conexiones  SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text);
+
+            try
+            {
+                SqlAdapter.Fill(datos);
+            }
+            catch (Exception ex)
+            {
+                this.OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo());
+            }
+            CveConexion = 0;
+        }
+    }
+    protected void addParameters(string name, SqlDbType tipo, object valor)
+    {
+        if (SqlConexion.State == ConnectionState.Open)
+            SqlAdapter.SelectCommand.Parameters.Add(name, tipo).Value = valor;
+    }
+
+    public bool runQuerystr(string Query, List<parametroQuery> Listaparametros = null, string msgError = "", bool mostrarError = true)
+    {
+        bool retorno = false;
+        try
+        {
+            if (SqlConexion.State == ConnectionState.Open)
+            {
+                SqlAdapter.SelectCommand.Parameters.Clear();
+                SqlAdapter.SelectCommand.CommandText = Query;
+                SqlAdapter.SelectCommand.CommandType = CommandType.Text;
+                datos = new DataTable();
+                if (Listaparametros != null)
+                {
+                    foreach (parametroQuery pr in Listaparametros)
+                    {
+                        SqlAdapter.SelectCommand.Parameters.Add(pr.ParameterName, pr.SqlDataType).Direction = pr.ParameterDirection;
+                    }
+                }
+
+                SqlAdapter.Fill(datos);
+                retorno = true;
+            }
+            else
+            {
+                string InfoAdicional = "Se intenta realizar una conexion con una conexion cerrada";
+                InfoAdicional = $"{InfoAdicional}{Environment.NewLine}{msgError}{Environment.NewLine}";
+                ModExtensiones.GuardaLog(InfoAdicional);
+            }
+        }
+        catch (SqlException sqEx)
+        {
+            retorno = false;
+            setOnError(msgError, sqEx);
+        }
+        catch (Exception ex)
+        {
+            retorno = false;
+            setOnError(msgError, ex);
+        }
+        return retorno;
+    }
+    public int ExecQuery(string Query, List<parametroQuery> Listaparametros = null, string msgError = "", bool mostrarError = true)
+    {
+        int retorno = -1;
+        try
+        {
+            if (SqlConexion.State == ConnectionState.Open)
+            {
+                SqlAdapter.SelectCommand.Parameters.Clear();
+                SqlAdapter.SelectCommand.CommandText = Query;
+                SqlAdapter.SelectCommand.CommandType = CommandType.Text;
+                if (Listaparametros != null)
+                {
+                    foreach (parametroQuery pr in Listaparametros)
+                    {
+                        SqlAdapter.SelectCommand.Parameters.Add(pr.ParameterName, pr.SqlDataType).Direction = pr.ParameterDirection;
+                    }
+                }
+
+                retorno = SqlAdapter.SelectCommand.ExecuteNonQuery();
+            }
+            else
+            {
+                string InfoAdicional = "Se intenta realizar una conexion con una conexion cerrada";
+                InfoAdicional = $"{InfoAdicional}{Environment.NewLine}{msgError}{Environment.NewLine}";
+                this.GuardaLog(InfoAdicional);
+            }
+        }
+        catch (SqlException sqEx)
+        {
+            retorno = -1;
+            setOnError(msgError, sqEx);
+        }
+        catch (Exception ex)
+        {
+            retorno = -1;
+            setOnError(msgError, ex);
+        }
+        return retorno;
+    }
+
+
+    protected bool RunQuery(string msgOnError)
+    {
+        bool retorno = false;
+
+        try
+        {
+            SqlAdapter.Fill(datos);
+            retorno = true;
+        }
+        catch (Exception ex)
+        {
+            retorno = false;
+
+            setOnError(msgOnError, ex);
+        }
+        return retorno;
+    }
+    protected bool RunQueryDS(string msgOnError)
+    {
+        bool retorno = false;
+
+        try
+        {
+            SqlAdapter.Fill(DTSet);
+            retorno = true;
+        }
+        catch (Exception ex)
+        {
+            retorno = false;
+
+            setOnError(msgOnError, ex);
+        }
+        return retorno;
+    }
+    public void setOnError(string Mensaje, Exception Exeption)
+    {
+        string InfoAdicional = "";
+        if (SqlAdapter != null && SqlAdapter.SelectCommand != null && SqlAdapter.SelectCommand.Parameters != null)
+            InfoAdicional = SqlAdapter.SelectCommand.Parameters.ParametrosInfo();
+        MyCurrentError = string.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", Mensaje, Exeption.ToString(), "\r\n", InfoAdicional);
+        this.OnError(Mensaje, Exeption, InfoAdicional);
+    }
+    public void IniciaTransacSQL()
+    {
+        SqlAdapter.SelectCommand.Transaction = SqlConexion.BeginTransaction();
+        EsTransaccion = true;
+    }
+
+    public void Commit()
+    {
+        SqlAdapter.SelectCommand.Transaction.Commit();
+        SqlConexion.Close();
+    }
+
+    public void RollBack()
+    {
+        SqlAdapter.SelectCommand.Transaction.Rollback();
+        SqlConexion.Close();
+    }
+    public void Dispose()
+    {
+        ConexionClose();
+        if ((SqlConexion != null))
+        {
+            if (SqlConexion.State == ConnectionState.Open)
+            {
+                try
+                {
+                    if ((SqlAdapter != null))
+                        SqlAdapter.Dispose();
+
+                    SqlConexion.Close();
+                }
+                catch (Exception ex)
+                {
+                    this.OnError("Ocurrió un error al intentar cerrar la base de datos.", ex);
+                }
+            }
+            SqlConexion.Dispose();
+        }
+
+        if (datos != null)
+            datos.Dispose();
+        if (SqlAdapter != null)
+            SqlAdapter.Dispose();
+
+        if (DTSet != null)
+            DTSet.Dispose();
+
+        GC.SuppressFinalize(this);
+    }
 }

OI/CatDocumentoCategoria.aspx.cs

@@ -45,6 +45,7 @@ public partial class OI_CatDocumentoCategoria : ClsPaginas
     protected void BtnAgregarCategoria_Click(object sender, EventArgs e)
     {
         BtnAgregarCategoriaDoc.Text = "Agregar";
+        LtlTituloModalTiposD.Text = "Agregar Categoría de Documentos";
         TxtCategoria.Text = "";
         ChkEstatus.Checked = true;
         UpModalTiposD.Update();
@@ -54,6 +55,7 @@ public partial class OI_CatDocumentoCategoria : ClsPaginas
     protected void LnkEditar_Click(object sender, EventArgs e)
     {
         BtnAgregarCategoriaDoc.Text = "Actualizar";
+        LtlTituloModalTiposD.Text = "Actualizar Categoría de Documentos";
         GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
         CveCategoria = GvRow.DataKey("CveCategoria").ToEntero();
         TxtCategoria.Text = GvRow.DataKey("Categoria");

OI/CatDocumentoSubCategoria.aspx

@@ -50,7 +50,7 @@
 
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:TextBox ID="TxtSubCategoria" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
-                            <asp:RequiredFieldValidator ID="RfvTxtSubCategoria" runat="server" ControlToValidate="TxtSubCategoria" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Categoría''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
+                            <asp:RequiredFieldValidator ID="RfvTxtSubCategoria" runat="server" ControlToValidate="TxtSubCategoria" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubCategoría''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
                             <label for="TxtSubCategoria">Subcategoría:</label>
                             <i></i>
                         </div>
@@ -58,6 +58,8 @@
                         <div>
                             <label for="TxtSubCategoria">Categoría:</label><br />
                             <asp:DropDownList ID="DdlCategorias" CssClass="form-control select2me" runat="server" DataTextField="Categoria" Width="100%" DataValueField="CveCategoria"></asp:DropDownList>
+                            <asp:RequiredFieldValidator ID="RFVDdlCategorias" runat="server" ControlToValidate="DdlCategorias" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Categoría''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
+                            <i></i>
                         </div>
                     </div>
                     <br />

OI/CatDocumentoSubCategoria.aspx.cs

@@ -49,6 +49,7 @@ public partial class OI_CatDocumentoSubCategoria : ClsPaginas
         {
             DdlCategorias.DataSource = ObjOI.DtResultados.FiltraParametros("Estado = 1");
             DdlCategorias.DataBind();
+            DdlCategorias.Items.Insert(0, new ListItem("Seleccione una","-1"));
         }
         ObjOI.Dispose();
     }
@@ -56,6 +57,7 @@ public partial class OI_CatDocumentoSubCategoria : ClsPaginas
     protected void BtnAgregarSubCategoria_Click(object sender, EventArgs e)
     {
         BtnAgregarSubCategoriaDoc.Text = "Agregar";
+        LtlTituloModalTiposD.Text = "Agregar Subcategoría de Documentos";
         TxtSubCategoria.Text = "";
         UpModalTiposD.Update();
         RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"));
@@ -64,9 +66,14 @@ public partial class OI_CatDocumentoSubCategoria : ClsPaginas
     protected void LnkEditar_Click(object sender, EventArgs e)
     {
         BtnAgregarSubCategoriaDoc.Text = "Actualizar";
+        LtlTituloModalTiposD.Text = "Actualizar Subcategoría de Documentos";
+
         GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
         CveSubCategoria = GvRow.DataKey("CveSubCategoria").ToEntero();
         TxtSubCategoria.Text = GvRow.DataKey("SubCategoria");
+
+        DdlCategorias.SelectedValueExist(GvRow.DataKey("CveCategoria"));  
+
         UpModalTiposD.Update();
         RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"));
     }

RH/Personal.aspx

@@ -1036,7 +1036,7 @@
                                                         DataKeyNames="CveCuentaDeposito" AutoGenerateColumns="False" ShowHeaderWhenEmpty="true">
                                                         <%--<asp:GridView ID="GvBancosCuentas" runat="server" DataKeyNames="CveCuentaDeposito" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Cuentas Bancarias" CssClass="table table-striped table-advance table-hover" Style="table-layout: fixed" BorderWidth="0" GridLines="None">--%>
                                                         <Columns>
-                                                            <asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" HeaderText="Banco">
+                                                            <asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" HeaderText="Banco" ItemStyle-HorizontalAlign="Center">
                                                                 <ItemTemplate>
                                                                     &nbsp;<asp:Label ID="LtNombreBanco" runat="server" data-toggle="tooltip" title='<%# Eval("BancoNombre")%>' Text='<%# Eval("BancoNombre")%>'></asp:Label>
                                                                 </ItemTemplate>
@@ -1046,7 +1046,7 @@
                                                                     <ajax:ValidatorCalloutExtender ID="VCENombreBanco" runat="server" HighlightCssClass="vco" TargetControlID="RFVNombreBanco" Width="300px"></ajax:ValidatorCalloutExtender>
                                                                 </EditItemTemplate>
                                                             </asp:TemplateField>
-                                                            <asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" Visible="false">
+                                                            <asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" Visible="false" HeaderText="Sucursal" ItemStyle-HorizontalAlign="Center">
                                                                 <ItemTemplate>
                                                                     &nbsp;<asp:Label ID="LtNumeroSucursal" runat="server" data-toggle="tooltip" title='<%# Eval("Sucursal")%>' Text='<%# Eval("Sucursal")%>'></asp:Label>
                                                                 </ItemTemplate>
@@ -1054,7 +1054,7 @@
                                                                     <asp:TextBox CssClass="form-control" ID="TxtNumeroSucursal" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("Sucursal")%>' ValidationGroup="GrpEditarCuentaBanco" Width="90%"></asp:TextBox>
                                                                 </EditItemTemplate>
                                                             </asp:TemplateField>
-                                                            <asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" HeaderText="Cuenta">
+                                                            <asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" HeaderText="Cuenta" ItemStyle-HorizontalAlign="Center">
                                                                 <ItemTemplate>
                                                                     &nbsp;<asp:Label ID="LtNumeroCuenta" runat="server" data-toggle="tooltip" title='<%# Eval("Cuenta")%>' Text='<%# Eval("Cuenta")%>'></asp:Label>
                                                                 </ItemTemplate>
@@ -1064,7 +1064,7 @@
                                                                 </EditItemTemplate>
                                                             </asp:TemplateField>
 
-                                                            <asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" HeaderText="Clabe">
+                                                            <asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" HeaderText="CLABE" ItemStyle-HorizontalAlign="Center">
                                                                 <ItemTemplate>
                                                                     &nbsp;<asp:Label ID="LtCLABE" runat="server" data-toggle="tooltip" title='<%# Eval("CLABE")%>' Text='<%# Eval("CLABE")%>'></asp:Label>
                                                                 </ItemTemplate>
@@ -1074,7 +1074,7 @@
                                                                 </EditItemTemplate>
                                                             </asp:TemplateField>
 
-                                                            <asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" Visible="false">
+                                                            <asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" Visible="false" HeaderText="SWIFT" ItemStyle-HorizontalAlign="Center">
                                                                 <ItemTemplate>
                                                                     &nbsp;<asp:Label ID="LtSWIFT" runat="server" data-toggle="tooltip" title='<%# Eval("SWIFT")%>' Text='<%# Eval("SWIFT")%>'></asp:Label>
                                                                 </ItemTemplate>
@@ -1082,7 +1082,7 @@
                                                                     <asp:TextBox CssClass="form-control" ID="TxtSWIFT" runat="server" CausesValidation="true" MaxLength="100" Text='<%# Eval("SWIFT")%>' ValidationGroup="GrpEditarCuentaBanco" Width="90%"></asp:TextBox>
                                                                 </EditItemTemplate>
                                                             </asp:TemplateField>
-                                                            <asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" Visible="false">
+                                                            <asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" Visible="false" HeaderText="Plaza" ItemStyle-HorizontalAlign="Center">
                                                                 <ItemTemplate>
                                                                     &nbsp;<asp:Label ID="LtPlaza" runat="server" data-toggle="tooltip" title='<%# Eval("Plaza")%>' Text='<%# Eval("Plaza")%>'></asp:Label>
                                                                 </ItemTemplate>
@@ -1090,7 +1090,7 @@
                                                                     <asp:TextBox CssClass="form-control" ID="TxtPlaza" runat="server" CausesValidation="true" MaxLength="100" Text='<%# Eval("Plaza")%>' ValidationGroup="GrpEditarCuentaBanco" Width="90%"></asp:TextBox>
                                                                 </EditItemTemplate>
                                                             </asp:TemplateField>
-                                                            <asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" Visible="false">
+                                                            <asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" Visible="false" HeaderText="CIE" ItemStyle-HorizontalAlign="Center">
                                                                 <ItemTemplate>
                                                                     &nbsp;<asp:Label ID="LtConvenioCIE" runat="server" data-toggle="tooltip" title='<%# Eval("CIE")%>' Text='<%# Eval("CIE")%>'></asp:Label>
                                                                 </ItemTemplate>
@@ -1099,7 +1099,7 @@
                                                                     <%--<ajax:FilteredTextBoxExtender ID="SoloNumeros3" runat="server" TargetControlID="TxtConvenioCIE" FilterType="Numbers" />--%>
                                                                 </EditItemTemplate>
                                                             </asp:TemplateField>
-                                                            <asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" Visible="false">
+                                                            <asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" Visible="false" HeaderText="Referencia" ItemStyle-HorizontalAlign="Center">
                                                                 <ItemTemplate>
                                                                     &nbsp;<asp:Label ID="LtReferencia" runat="server" data-toggle="tooltip" title='<%# Eval("Referencia")%>' Text='<%# Eval("Referencia")%>'></asp:Label>
                                                                 </ItemTemplate>
@@ -1108,7 +1108,7 @@
                                                                 </EditItemTemplate>
                                                             </asp:TemplateField>
 
-                                                            <asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" Visible="false">
+                                                            <asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" Visible="false" HeaderText="Ref. Proveedor" ItemStyle-HorizontalAlign="Center">
                                                                 <ItemTemplate>
                                                                     &nbsp;<asp:Label ID="LtRefCrediProveedor" runat="server" data-toggle="tooltip" title='<%# Eval("RefCrediProveedor")%>' Text='<%# Eval("RefCrediProveedor")%>'></asp:Label>
                                                                 </ItemTemplate>
@@ -1117,7 +1117,7 @@
                                                                 </EditItemTemplate>
                                                             </asp:TemplateField>
 
-                                                            <asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede">
+                                                            <asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" HeaderText="Moneda" ItemStyle-HorizontalAlign="Center">
                                                                 <ItemTemplate>
                                                                     &nbsp;<asp:Label ID="LtMoneda" runat="server" data-toggle="tooltip" title='<%# Eval("Moneda")%>' Text='<%# Eval("Moneda")%>'></asp:Label>
                                                                 </ItemTemplate>
@@ -1129,7 +1129,7 @@
                                                             </asp:TemplateField>
 
 
-                                                            <asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" Visible="false">
+                                                            <asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" Visible="false" HeaderText="Alias" ItemStyle-HorizontalAlign="Center">
                                                                 <ItemTemplate>
                                                                     &nbsp;<asp:Label ID="LblBBVAAlias" runat="server" data-toggle="tooltip" title='<%# Eval("BBVAAlias")%>' Text='<%# Eval("BBVAAlias")%>'></asp:Label>
                                                                 </ItemTemplate>
@@ -1139,13 +1139,13 @@
                                                                 </EditItemTemplate>
                                                             </asp:TemplateField>
 
-                                                            <asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center">
+                                                            <asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center" HeaderText="Estatus Pago E.">
                                                                 <ItemTemplate>
                                                                     <!--IIf(CBool(Eval("EstatusPagoElectronico")), "Sí", "No") = If(EstatusPagoElectronico) Then "Sí" Else "No"-->
                                                                     <asp:Label ID="LblEstatusPE" runat="server" Text='<%# IIf(CBool(Eval("EstatusPagoElectronico")), "Sí", "No")%>'>'></asp:Label>
                                                                 </ItemTemplate>
                                                             </asp:TemplateField>
-                                                            <asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center">
+                                                            <asp:TemplateField ItemStyle-Width="7%" ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center" HeaderText="Estatus">
                                                                 <ItemTemplate>
                                                                     <!--IIf(CBool(Eval("EstatusPagoElectronico")), "Sí", "No") = If(EstatusPagoElectronico) Then "Sí" Else "No"-->
                                                                     <asp:Label ID="LlbEstatusTexto" Text='<%# Eval("EstatusTexto")%>' runat="server" />
@@ -1154,7 +1154,7 @@
                                                                     <asp:CheckBox ID="ChkEstatus" runat="server" Checked='<%# IIf(Eval("EstatusTexto").ToString = "Activo", True, False)%>' Visible="false"></asp:CheckBox>
                                                                 </EditItemTemplate>
                                                             </asp:TemplateField>
-                                                            <asp:TemplateField HeaderText="Editar" ItemStyle-Width="7%" ItemStyle-CssClass="Excede" Visible="false">
+                                                            <asp:TemplateField HeaderText="Editar" ItemStyle-Width="7%" ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center">
                                                                 <EditItemTemplate>
                                                                     <asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update"
                                                                         CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpEditarCuentaBanco" />
@@ -1165,7 +1165,7 @@
                                                                     <asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
                                                                 </ItemTemplate>
                                                             </asp:TemplateField>
-                                                            <asp:TemplateField HeaderText="Elim." ItemStyle-Width="7%" ItemStyle-CssClass="Excede">
+                                                            <asp:TemplateField HeaderText="Elim." ItemStyle-Width="7%" ItemStyle-CssClass="Excede" ItemStyle-HorizontalAlign="Center">
                                                                 <ItemTemplate>
                                                                     <asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" 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" OnClientClick="javascript:return confirm('Está seguro de eliminar el registro?');" />
                                                                 </ItemTemplate>
@@ -2240,30 +2240,30 @@
                                                                         <asp:ListItem Text="Seleccione" Value="5">Por Paternidad, con Goce de Sueldo </asp:ListItem>
                                                                         <asp:ListItem Text="Seleccione" Value="6">Viaje de Trabajo</asp:ListItem>
                                                                         <asp:ListItem Text="Seleccione" Value="7">Incapacidad pagada por la empresa</asp:ListItem>
-                                                                        <asp:ListItem Text="Seleccione" Value="8">Por horas, asunto personal sin Goce de Sueldo</asp:ListItem> 
+                                                                        <asp:ListItem Text="Seleccione" Value="8">Por horas, asunto personal sin Goce de Sueldo</asp:ListItem>
                                                                     </asp:DropDownList>
                                                                     <label for="<%= DdlPermisoTipo.ClientID.ToString()%>">Tipo de permiso solicitado: </label>
                                                                     <asp:RequiredFieldValidator ID="RfvDdlPermisoTipo" runat="server" ControlToValidate="DdlPermisoTipo" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de permiso''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpPermisos"></asp:RequiredFieldValidator>
-                                                                    <i></i> 
+                                                                    <i></i>
-                                                                </div> 
+                                                                </div>
                                                                 <div class="form-group form-md-line-input input-iconright">
-                                                                    <label for="<%= RblPermisoDocNecesario.ClientID.ToString()%>">Documento Necesario: </label> 
+                                                                    <label for="<%= RblPermisoDocNecesario.ClientID.ToString()%>">Documento Necesario: </label>
                                                                     <asp:RadioButtonList runat="server" ID="RblPermisoDocNecesario" RepeatDirection="Horizontal">
                                                                         <asp:ListItem Selected="True" Text="Si" Value="1" />
                                                                         <asp:ListItem Text="No" Value="2" />
-                                                                    </asp:RadioButtonList> 
+                                                                    </asp:RadioButtonList>
                                                                     <i></i>
-                                                                </div> 
+                                                                </div>
                                                                 <br />
                                                                 <div class="row">
-                                                                    <div class="col-md-3"> 
+                                                                    <div class="col-md-3">
                                                                         <div class="form-group form-md-line-input input-iconright">
                                                                             <asp:TextBox CssClass="form-control" ID="TxtPermisosDias" runat="server" MaxLength="2"></asp:TextBox>
                                                                             <label for="<%= TxtPermisosDias.ClientID.ToString()%>">Días de permiso:</label>
                                                                             <%-- <asp:RequiredFieldValidator ID="rfvTxtPermisosDias" runat="server" ControlToValidate="TxtPermisosDias" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Días de permiso''</b> es necesario, por favor ingréselo." ValidationGroup="GrpPermisos"></asp:RequiredFieldValidator>--%>
                                                                             <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtPermisosDias" FilterType="Numbers,Custom" InvalidChars=".,+" />
                                                                             <i></i>
-                                                                        </div> 
+                                                                        </div>
                                                                     </div>
                                                                     <div class="col-md-3">
                                                                         <div class="form-group form-md-line-input input-iconright">
@@ -2271,17 +2271,17 @@
                                                                             <label for="<%= TxtPermisosHoras.ClientID.ToString()%>">Horas de permiso:</label>
                                                                             <%-- <asp:RequiredFieldValidator ID="RfvTxtPermisosHoras" runat="server" ControlToValidate="TxtPermisosHoras" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Horas de permiso''</b> es necesario, por favor ingréselo." ValidationGroup="GrpPermisos"></asp:RequiredFieldValidator>--%>
                                                                             <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtPermisosHoras" FilterType="Numbers,Custom" InvalidChars=".,+" />
-                                                                            <i></i> 
+                                                                            <i></i>
-                                                                        </div> 
+                                                                        </div>
                                                                     </div>
                                                                     <div class="col-md-3"></div>
-                                                                    <div class="col-md-3"></div> 
+                                                                    <div class="col-md-3"></div>
-                                                                </div> 
+                                                                </div>
-                                                                <br /> 
+                                                                <br />
                                                             </div>
-                                                            <br /> 
+                                                            <br />
                                                             <div id="ModalAddVacaciones" class="modal ADS fade" role="dialog">
-                                                                <div class="modal-dialog"> 
+                                                                <div class="modal-dialog">
                                                                     <div class="modal-content" style="width: 700px;">
                                                                         <div class="modal-header ">
                                                                             <button type="button" class="close" data-dismiss="modal">&times;</button>
@@ -2323,8 +2323,44 @@
                                                                                             </div>
                                                                                         </div>
                                                                                         <div class="col-md-3">
+                                                                                            <div class="form-group form-md-line-input input-iconright calendarlinealinput" style="width: 100px!important">
+                                                                                                <div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="width: 160px;">
+                                                                                                    <asp:TextBox ID="TxtFechaPago" runat="server" CausesValidation="true" CssClass="form-control input-sm"></asp:TextBox>
+                                                                                                    <span class="input-group-btn ">
+                                                                                                        <asp:LinkButton ID="LnkTxtFechaPago" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                                                                                    </span>
+                                                                                                    <ajax:MaskedEditExtender ID="MEETxtFechaPago" runat="server" TargetControlID="TxtFechaPago" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                                                                                    <ajax:CalendarExtender runat="server" ID="CEETxtFechaPago" TargetControlID="TxtFechaPago" PopupButtonID="LnkTxtFechaPago" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                                                                                    <label>Fecha pago</label>
+                                                                                                </div>
+                                                                                            </div>
+                                                                                        </div>
+                                                                                        <div class="col-md-3">
+                                                                                            <div class="form-group form-md-line-input input-iconright calendarlinealinput" style="width: 100px!important">
+                                                                                                <asp:TextBox ID="Txtdiasinabiles" runat="server" TextMode="Number" CausesValidation="true" CssClass="form-control input-sm"></asp:TextBox>
+                                                                                                <label>días inhábiles</label>
+                                                                                            </div>
+                                                                                        </div>
+
+                                                                                            <div class="form-group form-md-line-input input-iconright calendarlinealinput" style="width: 100px!important">
+
+                                                                                                <div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="width: 160px;">
+                                                                                                    <asp:TextBox ID="TxtFechaPago" runat="server" CausesValidation="true" CssClass="form-control input-sm"></asp:TextBox>
+                                                                                                    <span class="input-group-btn ">
+                                                                                                        <asp:LinkButton ID="LnkTxtFechaPago" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                                                                                    </span>
+                                                                                                    <ajax:MaskedEditExtender ID="MEETxtFechaPago" runat="server" TargetControlID="TxtFechaPago" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                                                                                    <ajax:CalendarExtender runat="server" ID="CEETxtFechaPago" TargetControlID="TxtFechaPago" PopupButtonID="LnkTxtFechaPago" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                                                                                    <label>Fecha pago</label>
+                                                                                                </div>
+                                                                                            </div>
+                                                                                        </div>
+                                                                                        <div class="col-md-3">
+                                                                                            <div class="form-group form-md-line-input input-iconright calendarlinealinput" style="width: 100px!important">
+                                                                                                <asp:TextBox ID="Txtdiasinabiles" runat="server" TextMode="Number" CausesValidation="true" CssClass="form-control input-sm"></asp:TextBox>
+                                                                                                <label>días inhábiles</label>
+                                                                                            </div>
                                                                                         </div>
-                                                                                        <div class="col-md-3"></div>
                                                                                     </div>
                                                                                     <%--Motivo
                                                                                     <asp:TextBox ID="TxtMotivoVacaciones" runat="server" TextMode="MultiLine" Rows="4" CssClass="form-control Widthallimp"></asp:TextBox>--%>
@@ -2343,7 +2379,7 @@
                                                                         </div>
                                                                     </div>
                                                                 </div>
-                                                            </div> 
+                                                            </div>
                                                             <div id="DvPermisosMotivos2" runat="server" visible="false">
                                                                 <div class="form-group form-md-line-input input-iconright">
                                                                     <asp:TextBox CssClass="form-control" ID="TxtPermisoMotivo" runat="server" MaxLength="200"></asp:TextBox>

RH/Personal.aspx.vb

@@ -4455,15 +4455,17 @@ Partial Class RH_Personal
     End Sub
 
     Protected Sub BtnSolicitarVacaciones_Click(sender As Object, e As EventArgs) Handles BtnSolicitarVacaciones.Click
-        Dim fInicio As Date = TxtFechaInicioVac.Text.ToDate
+        Dim fInicio As Date = TxtFechaInicioVac.Text.ToDate()
-        Dim fFin As Date = TxtFechaFinVac.Text.ToDate
+        Dim fFin As Date = TxtFechaFinVac.Text.ToDate()
+        Dim fechapago As String = TxtFechaPago.Text.ToDate().ToString("yyyy/MM/dd")
+        Dim diasinhabil As Integer = Txtdiasinabiles.Text.ToEntero()
         'Dim motivoVacaciones As String = TxtMotivoVacaciones.Text
         If fInicio <= fFin Then
 
             VacFolioActual = VacFolioActual + 1
             Dim objRH As New ClsRH
             'Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, motivoVacaciones)
-            Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual)
+            Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, FechaPago:=fechapago, diasinabiles:=diasinhabil)
             If objRH.DtResultados.Rows.Count > 0 Then
                 Dim ShowError As String = objRH.DtResultados.Rows(0)("ShowError").ToString()
                 If ShowError.Length > 0 Then

Scripts/custom.js

@@ -1086,7 +1086,7 @@ function ADDropzone(txtid) {
                 document.getElementById(txtid + '-paste').onpaste = function (event) {
                     var __This = myDropzone;
                     var objfiles = JSON.parse(TxtField.val());
-                    if (objfiles.length < maxFile) {
+                    if ((maxFile != null) || (maxFile < 1)  || objfiles.length < maxFile) {
                         // use event.originalEvent.clipboard for newer chrome versions
                         var items = (event.clipboardData || event.originalEvent.clipboardData).items;
                         //console.log(JSON.stringify(items)); // will give you the mime types

Ventas/ClientesAbonar.aspx

@@ -138,8 +138,7 @@
                                     <ajax:CalendarExtender ID="Calendario" runat="server" TargetControlID="TxtFechaDocumento" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                                     <asp:RequiredFieldValidator ID="RFVFechaDocumento" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''Fecha''</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>''Fecha''</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>
-                                    <asp:RangeValidator ID="RVTxtFechaDocumento" runat="server" Display="None" ErrorMessage="La fecha del documento no puede ser superior a la fecha actual" ControlToValidate="TxtFechaDocumento" MinimumValue="01/01/1900" MaximumValue="01/12/2999" Type="Date" ValidationGroup="GrpGuardar"></asp:RangeValidator>
+                                    <asp:RangeValidator ID="RVTxtFechaDocumento" runat="server" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b> <br/> La fecha del documento no puede ser superior a la fecha actual" ControlToValidate="TxtFechaDocumento" MinimumValue="01/01/1900" Type="Date" ValidationGroup="GrpGuardar"></asp:RangeValidator>
-
                                     <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
                                     <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
                                     <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento3" runat="server" HighlightCssClass="vco" TargetControlID="RVTxtFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
@@ -366,7 +365,7 @@
                       <asp:TemplateField >
                         <HeaderTemplate>Complemento Pago</HeaderTemplate>
                         <ItemTemplate>
-                            <asp:LinkButton runat="server" ID="LnkComplemento" CssClass="text-success" Text="<i class='fa fa-check' aria-hidden='true'></i>"  OnClientClick="return false;"  ></asp:LinkButton>
+                            <asp:Literal runat="server" ID="LtlComplemento"  Text="<i class='fa fa-check text-success ' aria-hidden='true'></i>"   ></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
 

Ventas/ClientesAbonar.aspx.vb

@@ -639,11 +639,10 @@ Partial Class Ventas_ClientesAbonar
 
             If e.Row.DBCampo("CveVenta").ToEntero > 0 Then
                 If e.Row.DataKey("ClaveMetodoPagoSAT") = "PUE" Then
-                    e.Row.FCLinkButton("LnkComplemento").Text = "<i class='fa fa-times' aria-hidden='true'></i>"
+                    e.Row.FCLiteral("LtlComplemento").Text = "<i class='fa fa-times text-danger ' aria-hidden='true'></i>"
-                    e.Row.FCLinkButton("LnkComplemento").CssClass = "text-danger"
                 End If
             Else
-                e.Row.FCLinkButton("LnkComplemento").Visible = False
+                e.Row.FCLiteral("LtlComplemento").Visible = False
             End If
 
 
@@ -934,7 +933,7 @@ Partial Class Ventas_ClientesAbonar
                                                 CveCuenta = If(EsAnticipoEspecial, -1, CveCuentaComplementaria)
                                                 If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then
                                                     importeMX = ImporteMovimiento
-                                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, If(gvr.DataKey("TipoDocto") = "Ant" AndAlso UsuarioActual.CveEmpresa = 119, 226, 207), ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=Math.Round(ImporteMovimiento * tipoCambioVentaValuacion - ImporteMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=ImporteMovimiento, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioVentaValuacion) Then
+                                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, If(gvr.DataKey("TipoDocto") = "Ant" AndAlso UsuarioActual.CveEmpresa = 119, 226, 207), ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=(ImporteMovimiento * tipoCambioVentaValuacion - ImporteMovimiento).RoundSQL, ImporteME:=ImporteMovimiento, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioVentaValuacion) Then
                                                         MsgError = "No se pudo insertar la póliza"
                                                     End If
                                                 End If
@@ -1380,7 +1379,7 @@ Partial Class Ventas_ClientesAbonar
                                                     Diferencia -= (((gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * tipoCambioVenta) - ((gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * TCImpuestos)) 'Añadimos la diferencia de ganancia en el RetIVA
                                                     Diferencia -= (((gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * tipoCambioVenta) - ((gvr.DataKey("RetISR").ToDecimal * PorcentajePago) * TCImpuestos)) 'Añadimos la diferencia de ganancia en el RetISR
                                                     Diferencia -= (((gvr.DataKey("IEPS").ToDecimal * PorcentajePago) * tipoCambioVenta) - ((gvr.DataKey("IEPS").ToDecimal * PorcentajePago) * TCImpuestos)) 'Añadimos la diferencia de ganancia en el IEPS
-                                                    Diferencia = Math.Round(Diferencia, 2)
+                                                    Diferencia = Diferencia.RoundSQL
                                                 End If
 
                                                 ImporteMovimiento = Math.Abs(Diferencia)
@@ -2720,7 +2719,7 @@ Partial Class Ventas_ClientesAbonar
                             MsgError = "Ocurrio un error al saldar el movimiento"
                         End If
                         'complementaria
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, 0, gr.DataKey("SerieFolio").ToString, 207, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=IdCtaContComplementaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, Saldo, (Saldo * TCVenta) - Saldo), ImporteME:=Saldo, CveCuenta:=CveCuenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, ClienteMovto, 0, gr.DataKey("SerieFolio").ToString, 207, ConceptoPartida, TxtFechaIncobrable.Text.ToDate, IdCtaContable:=IdCtaContComplementaria, CveIE:=-1, IdSegmentoNegocio:=-1, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveVenta:=gr.DataKey("CveVenta").ToEntero, ImporteMX:=If(CveMonedaFiltro = 1, Saldo, (Saldo * TCVenta) - Saldo).RoundSQL, ImporteME:=Saldo, CveCuenta:=CveCuenta, TipoCambio:=TCVenta, TipoCambioPago:=TCPago) Then
                             MsgError = "Ocurrio un error al saldar el movimiento"
                         End If
 
@@ -3176,4 +3175,10 @@ Partial Class Ventas_ClientesAbonar
         CargaDatos(CveMoneda)
 
     End Sub
+
+    Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
+        RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
+        Calendario.EndDate = DateTime.Now
+
+    End Sub
 End Class

Ventas/PV.aspx

@@ -2953,7 +2953,7 @@
                                                             </div>
                                                             <div class="col-md-4">
                                                                 <div class="form-group form-md-line-input input-iconright">
-                                                                    <asp:TextBox ID="TxtConsecutivoAjuste" CssClass="form-control" runat="server" MaxLength="25"></asp:TextBox>
+                                                                    <asp:TextBox ID="TxtConsecutivoAjuste" CssClass="form-control" runat="server" MaxLength="25" Enabled="false"></asp:TextBox>
                                                                     <%--<asp:RequiredFieldValidator ID="RFVConsecutivoAjuste" runat="server" ControlToValidate="TxtConsecutivoAjuste" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Consec.''</b> es necesario, por favor ingréselo." ValidationGroup="VGMAjuste"></asp:RequiredFieldValidator>--%>
                                                                     <%--<ajax:ValidatorCalloutExtender ID="VCEConsecutivoAjuste" runat="server" HighlightCssClass="vco" TargetControlID="RFVConsecutivoAjuste"></ajax:ValidatorCalloutExtender>--%>
                                                                     <label for="<%= TxtConsecutivoAjuste.ClientID.ToString()%>">Consec.:</label>

Ventas/RepAnticipo-NC-IXC.aspx

@@ -46,8 +46,10 @@
                             </div>
                             <label class="col-md-1 " id="LblCliente" runat="server">Cliente:</label>
                             <div class="col-md-2" id="DivDdlCliente" runat="server">
-                                <asp:DropDownList ID="DdlCliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%">
+                                <ADS:Dropdownlost ID="DdlCliente" runat="server" AutoPostBack="False" DataTextField="NombreComercial" IncluyeTodos="false" DataValueField="CveCliente" CssClassDdl="select2me" CssStyle="width: 250px; "></ADS:Dropdownlost>
-                                </asp:DropDownList>
+
+                        <%--        <asp:DropDownList ID="DdlCliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%">
+                                </asp:DropDownList>--%>
                             </div>
                             <div class="col-md-1" style="">Fecha Ini Doc:</div>
                             <div class="col-md-1">

Ventas/RepAnticipo-NC-IXC.aspx.cs

@@ -65,11 +65,16 @@ public partial class Ventas_RepAnticipo_NC_IXC : ClsPaginas
         DdlSucursal.Items.Insert(0, new ListItem("Todos", "-1"));
     }
 
+    //protected void CargaClientes()
+    //{
+    //    DdlCliente.DataSource = get_GlobalDTCliente(UsuarioActual.CveEmpresa,-1);
+    //    DdlCliente.DataBind();
+    //    DdlCliente.Items.Insert(0, new ListItem("Todos", "-1"));
+    //}
     protected void CargaClientes()
     {
-        DdlCliente.DataSource = get_GlobalDTCliente(UsuarioActual.CveEmpresa,-1);
+        DdlCliente.setEsWebService(true);
-        DdlCliente.DataBind();
+        DdlCliente.Attributes.Add("data-metodo", "getcliente");
-        DdlCliente.Items.Insert(0, new ListItem("Todos", "-1"));
     }
     protected void CargaVendedores()
     {
@@ -87,7 +92,12 @@ public partial class Ventas_RepAnticipo_NC_IXC : ClsPaginas
         DateTime FechaFCorte;
         if (TxtFechaFCorte.Text != "") { FechaFCorte = TxtFechaFCorte.Text.ToDate(); } else { FechaFCorte = DateTime.MaxValue; }
         ClsVentas ObjVenta = new ClsVentas();
-        if (ObjVenta.GetRepAnticiposNCIXC(DdlCliente.SelectedValue.ToEntero(), DdlSucursal.SelectedValue.ToEntero(), txtFechaI.Text.ToDate(),
+        int CveCliente = -1;
+        if (DdlCliente.SelectedValue.ToEntero() != 0)
+        {
+            CveCliente = DdlCliente.SelectedValue.ToEntero();
+        }
+        if (ObjVenta.GetRepAnticiposNCIXC(CveCliente, DdlSucursal.SelectedValue.ToEntero(), txtFechaI.Text.ToDate(),
             txtFechaF.Text.ToDate(),UsuarioActual.CveEmpresa, FechaICorte, FechaFCorte, TipoCambio, TCEspecifico, DdlVendedor.SelectedValue.ToEntero(),DdlConSaldo.SelectedValue.ToEntero()))
         {
             GvDatos.DataSource = ObjVenta.DtResultados;
@@ -127,7 +137,7 @@ public partial class Ventas_RepAnticipo_NC_IXC : ClsPaginas
         String Sucursal;
         if (DdlSucursal.SelectedValue != "-1") { Sucursal = $"&emsp;<b>Sucursal:</b> {DdlSucursal.SelectedItem.Text}"; } else { Sucursal = ""; }
         String Cliente;
-        if (DdlCliente.SelectedValue != "-1") { Cliente = $"&emsp;<b>Cliente:</b> {DdlCliente.SelectedItem.Text}"; } else { Cliente = ""; }
+        if (DdlCliente.SelectedValue != "-1") { Cliente = $"&emsp;<b>Cliente:</b> {DdlCliente.SelectedText}"; } else { Cliente = ""; }
         if (DtDatos.Rows.Count > 0)
         {
             System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));

Ventas/RepAnticipo-NC-IXCDetalle.aspx

@@ -50,8 +50,10 @@
                             </div>
                             <label class="col-md-1 " id="LblCliente" runat="server">Cliente:</label>
                             <div class="col-md-2" id="DivDdlCliente" runat="server">
-                                <asp:DropDownList ID="DdlCliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%">
+<%--                                <asp:DropDownList ID="DdlCliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%">
-                                </asp:DropDownList>
+                                </asp:DropDownList>--%>
+                                <ADS:Dropdownlost ID="DdlCliente" runat="server" AutoPostBack="False" DataTextField="NombreComercial" IncluyeTodos="false" DataValueField="CveCliente" CssClassDdl="select2me" CssStyle="width: 250px; "></ADS:Dropdownlost>
+
                             </div>
                             <div class="col-md-1" style="">Fecha Ini Doc:</div>
                             <div class="col-md-1">

Ventas/RepAnticipo-NC-IXCDetalle.aspx.cs

@@ -58,7 +58,12 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas
         TxtFechaFCorte.Text = DateTime.Today.ToString();
         CargaSucursales();
         CargaClientes();
-        DdlCliente.SelectedValueExist(Request["CveCliente"] == null ? "-1" : Request["CveCliente"].ToString());
+        int CveCliente = (Request["CveCliente"] == null ? -1 : Request["CveCliente"].ToString().ToEntero());
+
+        DdlCliente.SelectedValue = CveCliente.ToString();
+        DataTable dt = get_GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:CveCliente);
+        DdlCliente.SelectedText = dt.FiltroPrimeroValor("NombreComercial", "");
+
         DdlSucursal.SelectedValueExist(Request["CveSubProyecto"] == null ? "-1" : Request["CveSubProyecto"].ToString());
         DdlTipo.SelectedValueExist(Request["Tipo"] == null ? "-1" : Request["Tipo"].ToString());
         CveMoneda = Request["CveMoneda"] == null ? -1 : Request["CveMoneda"].ToString().ToEntero();
@@ -90,16 +95,21 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas
         DdlSucursal.DataBind();
         DdlSucursal.Items.Insert(0, new ListItem("Todos", "-1"));
         DdlSucursal.SelectedValue = "-1";
+    }
+
+    //protected void CargaClientes()
+    //{
+    //    DdlCliente.DataSource = get_GlobalDTCliente(UsuarioActual.CveEmpresa, -1);
+    //    DdlCliente.DataBind();
+    //    DdlCliente.Items.Insert(0, new ListItem("Todos", "-1"));
+    //    DdlCliente.SelectedValue = "-1";
+    //}
+
+    protected void CargaClientes()
+    {
+        DdlCliente.setEsWebService(true);
+        DdlCliente.Attributes.Add("data-metodo", "getcliente");
     }
-
-    protected void CargaClientes()
-    {
-        DdlCliente.DataSource = get_GlobalDTCliente(UsuarioActual.CveEmpresa, -1);
-        DdlCliente.DataBind();
-        DdlCliente.Items.Insert(0, new ListItem("Todos", "-1"));
-        DdlCliente.SelectedValue = "-1";
-    }
-
     protected void CargaVendedores()
     {
         DdlVendedor.DataSource = get_GlobalDTVendedores(UsuarioActual.CveEmpresa);
@@ -116,8 +126,13 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas
         if (TxtFechaICorte.Text != "") { FechaICorte = TxtFechaICorte.Text.ToDate(); } else { FechaICorte = DateTime.MinValue; }
         DateTime FechaFCorte;
         if (TxtFechaFCorte.Text != "") { FechaFCorte = TxtFechaFCorte.Text.ToDate(); } else { FechaFCorte = DateTime.MaxValue; }
-        ClsVentas ObjVenta = new ClsVentas();
+        ClsVentas ObjVenta = new ClsVentas();
-        if (ObjVenta.GetRepAnticiposNCIXCDetalle(DdlCliente.SelectedValue.ToEntero(), DdlSucursal.SelectedValue.ToEntero(), txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(),
+        int CveCliente = -1;
+        if (DdlCliente.SelectedValue.ToEntero() != 0)
+        {
+            CveCliente = DdlCliente.SelectedValue.ToEntero();
+        }
+        if (ObjVenta.GetRepAnticiposNCIXCDetalle(CveCliente, DdlSucursal.SelectedValue.ToEntero(), txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(),
             UsuarioActual.CveEmpresa, DdlConSaldo.SelectedValue.ToEntero(), DdlTipo.SelectedValue.ToEntero(), CveMoneda, FechaICorte, FechaFCorte, TipoCambio, TCEspecifico))
         {
             GvDatos.DataSource = ObjVenta.DtResultados;
@@ -128,7 +143,7 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas
         UpDatos.Update();
         if (TxtFechaFCorte.Text != DateTime.Now.ToShortDateString() && txtFechaI.Text != "") { LnkHabilitarSaldar.Visible = false; LnkSaldar.Visible = false; } else { LnkHabilitarSaldar.Visible = true; }
         if (LnkSaldar.Visible) { HabilitarCheckbox(); }
-        Tipo = DdlTipo.SelectedValue.ToEntero();
+        Tipo = DdlTipo.SelectedValue.ToEntero();
     }
 
     protected void BtnConsultar_Click(object sender, EventArgs e)
@@ -159,7 +174,7 @@ public partial class Ventas_RepAnticipo_NC_IXCDetalle : ClsPaginas
         String Sucursal;
         if (DdlSucursal.SelectedValue != "-1") { Sucursal = $"&emsp;<b>Sucursal:</b> {DdlSucursal.SelectedItem.Text}"; } else { Sucursal = ""; }
         String Cliente;
-        if (DdlCliente.SelectedValue != "-1") { Cliente = $"&emsp;<b>Cliente:</b> {DdlCliente.SelectedItem.Text}"; } else { Cliente = ""; }
+        if (DdlCliente.SelectedValue.ToEntero() != -1) { Cliente = $"&emsp;<b>Cliente:</b> {DdlCliente.SelectedText}"; } else { Cliente = ""; }
         String ConSaldo;
         if (DdlConSaldo.SelectedValue != "-1") { ConSaldo = $"&emsp;<b>Con Saldo:</b> {DdlConSaldo.SelectedItem.Text}"; } else { ConSaldo = ""; }
         String Tipo2;

Ventas/RepRecuperacion.aspx

@@ -179,7 +179,7 @@
                             </asp:DropDownList>
                         </div>
 
-                            <div class="col-md-1 truncate">Fecha Aplicado Inicio: </div>
+                            <div class="col-md-1 truncate">F. Conciliado inicio:</div>
                             <div class="col-md-1">
                                 <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important;">
                                     <asp:TextBox Width="80px" ID="TxtFechaAplicadoI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
@@ -194,7 +194,7 @@
                                 <ajax:ValidatorCalloutExtender ID="vcoFfvFAplicadoI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaAplicadoI" Width="350px"></ajax:ValidatorCalloutExtender>
                                 <ajax:ValidatorCalloutExtender ID="vcoCvFAplicadoI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaAplicadoI" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
-                            <div class="col-md-1 truncate">Fecha Aplicado Fin: </div>
+                            <div class="col-md-1 truncate">F. Conciliado Fin:</div>
                             <div class="col-md-1">
                                 <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important;">
                                     <asp:TextBox Width="80px" ID="TxtFechaAplicadoF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>

vwd.webinfo

@@ -212,6 +212,10 @@
     
   
     
+  
+    
+  
+