AF/CatTiposServiciosActividades.aspx.cs

@@ -33,7 +33,7 @@ public partial class AF_CatTiposServiciosActividades : ClsPaginas
     private void CargaDatos()
     {
         ClsAF ObjAF = new ClsAF();
-        if (ObjAF.GetTiposServiciosActividades(-1, -1))
+        if (ObjAF.GetTiposServiciosActividades(-1, -1,-1))
         {
             GvDatos.DataSource = ObjAF.DtResultados;
             GvDatos.DataBind();
@@ -74,7 +74,7 @@ public partial class AF_CatTiposServiciosActividades : ClsPaginas
         GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
         CveTipoServicioActividad = GvRow.DataKey("CveTipoServicioActividad").ToEntero();
         ClsAF ObjAF = new ClsAF();
-        if (ObjAF.DeleteTiposServiciosActividades(CveTipoServicioActividad))
+        if (ObjAF.DeleteTiposServiciosActividades(CveTipoServicioActividad, UsuarioActual.CveEmpresa))
         {
             CargaDatos();
             UpDatos.Update();
@@ -89,14 +89,14 @@ public partial class AF_CatTiposServiciosActividades : ClsPaginas
         ClsAF ObjAF = new ClsAF();
         if (BtnAgregarTipoServicio.Text == "Agregar")
         {
-            if (ObjAF.AddTiposServiciosActividades(DdlActividades.SelectedValue.ToEntero(),TxtDuracion.Text.ToEntero(),TxtObservaciones.Text))
+            if (ObjAF.AddTiposServiciosActividades(DdlActividades.SelectedValue.ToEntero(),-1,TxtDuracion.Text.ToDecimal(),TxtObservaciones.Text))
             {
                 Alert("Se agregó la Actividad del Tipo de Servicio correctamente");
             }
         }
         else
         {
-            if (ObjAF.UpdateTiposServiciosActividades(CveTipoServicioActividad,DdlActividades.SelectedValue.ToEntero(),TxtDuracion.Text.ToEntero(),TxtObservaciones.Text))
+            if (ObjAF.UpdateActividades(DdlActividades.SelectedValue.ToEntero(),TxtDuracion.Text.ToEntero(),TxtObservaciones.Text))
             {
                 Alert("Se actualizó la Actividad del Tipo de Servicio correctamente");
             }

AF/OrdenTrabajo.aspx

@@ -137,64 +137,91 @@
 
 
                         <div class="portlet-body form">
+                            
+                            <div class="row" runat="server"  id="DVFolioAsignado" visible="false" >
+                                <div class="col-md-6">
+                                    <div class="form-group form-md-line-input input-iconright">
+                                        <label for="<%= LblFolio.ClientID.ToString()%>">Folio:</label>
+                                        <asp:Label runat="server" ID="LblFolio" CssClass="form-control"></asp:Label>
 
+                                    </div>
+                                </div>
+                                <div class="col-md-6">
+                                    <div class="form-group form-md-line-input input-iconright">
+                                        <label for="<%= LblAsiganado.ClientID.ToString()%>">Asignado:</label>
+                                        <asp:Label runat="server" ID="LblAsiganado" CssClass="form-control"></asp:Label>
+
+                                    </div>
+                                </div>
+
+                            </div>
+
+                            <br />
                             <div class="form-group form-md-line-input input-iconright">
-                                <asp:DropDownList ID="DdlPrioridad" CssClass="form-control input-sm select2me" Width="100%" runat="server" >
+                                <asp:DropDownList ID="DdlPrioridad" CssClass="form-control input-sm select2me" Width="100%" runat="server">
                                     <asp:ListItem Value="1">Baja</asp:ListItem>
                                     <asp:ListItem Value="2">Media</asp:ListItem>
                                     <asp:ListItem Value="3">Alta</asp:ListItem>
                                 </asp:DropDownList>
                                 <label for="<%= DdlPrioridad.ClientID.ToString()%>">
                                     <asp:Label runat="server" ID="LblPrioridad" Text="Prioridad"></asp:Label>
-                                </label>                                
-                            </div>
-
-
-                            <div class="form-group form-md-line-input input-iconright">
-                                <label for="<%= txtFechaI.ClientID.ToString()%>">
-                                    <asp:Label runat="server" ID="LblFechaInicio" Text="Fecha Inicio"></asp:Label>
                                 </label>
-
-                                 <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px;">
-                                    <asp:TextBox Width="100px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
-                                    <span class="input-group-btn ">
-                                        <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                    </span>
-                                </div>
-                                <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</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="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
-                                <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
-                                <i></i>
-                            </div>
-
-                            <div runat="server" id="DVFechaFin" visible="false" class="form-group form-md-line-input input-iconright">
-                                  <label for="<%= txtFechaF.ClientID.ToString()%>">
-                                    <asp:Label runat="server" ID="LblFechaFin" Text="Fecha Fin"></asp:Label>
-                                </label>
-                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px;">
-                                    <asp:TextBox Width="100px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
-                                    <span class="input-group-btn ">
-                                        <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                    </span>
-                                </div>
-                                <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                <%--<asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>--%>
-                                <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</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="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>--%>
-                                <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
 
 
-                             <div runat="server" id="DVEstatus" visible="true" class="form-group form-md-line-input input-iconright" >
+                            <div class="row">
-                                <asp:DropDownList ID="DdlOrdenesTrabajoEstatus" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="EstatusOT" DataValueField="CveEstatusOT" >                                  
+                                <div class="col-md-6">
+                                    <div class="form-group form-md-line-input input-iconright">
+                                        <label for="<%= txtFechaI.ClientID.ToString()%>">
+                                            <asp:Label runat="server" ID="LblFechaInicio" Text="Fecha Inicio"></asp:Label>
+                                        </label>
+
+                                        <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px;">
+                                            <asp:TextBox Width="100px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                            <span class="input-group-btn ">
+                                                <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                            </span>
+                                        </div>
+                                        <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                        <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                        <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                        <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</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="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                        <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                        <i></i>
+                                    </div>
+
+                                </div>
+                                <div class="col-md-6">
+                                    <div runat="server" id="DVFechaFin" visible="false" class="form-group form-md-line-input input-iconright">
+                                        <label for="<%= txtFechaF.ClientID.ToString()%>">
+                                            <asp:Label runat="server" ID="LblFechaFin" Text="Fecha Fin"></asp:Label>
+                                        </label>
+                                        <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px;">
+                                            <asp:TextBox Width="100px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                            <span class="input-group-btn ">
+                                                <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                            </span>
+                                        </div>
+                                        <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                        <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                        <%--<asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>--%>
+                                        <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</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="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>--%>
+                                        <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    </div>
+
+                                </div>
+                            </div>
+
+                            <br />
+
+                            <div runat="server" id="DVEstatus" visible="false" class="form-group form-md-line-input input-iconright">
+                                <asp:DropDownList ID="DdlOrdenesTrabajoEstatus" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="EstatusOT" DataValueField="CveEstatusOT">
                                 </asp:DropDownList>
                                 <label for="<%= DdlOrdenesTrabajoEstatus.ClientID.ToString()%>">
                                     <asp:Label runat="server" ID="Label2" Text="Estatus"></asp:Label>
-                                </label>                                
+                                </label>
                             </div>
 
 
@@ -232,24 +259,46 @@
 
                                 <asp:GridView ID="GvMaterial" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos" ToolTip="" CssClass="table table-smallpadding Widthall"
                                     OnRowDataBound="GvMaterial_RowDataBound"
-                                    DataKeyNames="CveMaterial,Cantidad,CvePS,Importe"
+                                    DataKeyNames="CveMaterial,Cantidad,CvePS,Importe,Faltante"
                                     GridLines="None">
                                     <Columns>
 
                                         <asp:BoundField DataField="Cantidad" ItemStyle-Width="15%" HeaderText="Cantidad" />
                                         <asp:BoundField DataField="Abreviatura" ItemStyle-Width="15%" HeaderText="U.M." />
+
                                         <asp:TemplateField ItemStyle-Width="45%" HeaderText="Producto">
                                             <ItemTemplate>
                                                 <asp:Label ID="LblPS" runat="server" Text='<%# Eval("PS") %>' Width="220px"></asp:Label>
                                             </ItemTemplate>
                                         </asp:TemplateField>
 
-                                        <asp:TemplateField ItemStyle-Width="45%" HeaderText="Importe">
+                                        <asp:TemplateField ItemStyle-Width="45%" HeaderText="Importe" Visible="false">
                                             <ItemTemplate>
                                                 <asp:TextBox ID="TxtImporte" runat="server" Text='<%# Eval("Importe") %>' Width="100px"></asp:TextBox>
                                             </ItemTemplate>
                                         </asp:TemplateField>
 
+                                         <asp:TemplateField ItemStyle-Width="150px" HeaderText="Faltante" Visible="false"  ItemStyle-HorizontalAlign="Right">                                             
+                                             <HeaderTemplate>                                                                                                
+                                                   Faltante
+                                             </HeaderTemplate>
+                                            <ItemTemplate>
+                                               
+                                       
+                                                
+                                                <div class="row">
+                                                    <div class="col-md-6">
+                                                        <asp:Label ID="LtlFaltante" runat="server" Text='<%# Eval("Faltante") %>'   ></asp:Label>
+                                                    </div>
+                                                    <div class="col-md-6">
+                                                        <asp:HyperLink Visible="false" ID="HLOC" runat="server"  Target="_blank" CssClass="Texto" data-toggle="tooltip" data-placement="top" title="Crear orden de compra"  Text="<i class='fa fa-shopping-cart'></i> OC" ></asp:HyperLink>                                                 
+                                                    </div>
+                                                </div>
+                                                
+
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+                                        
                                     </Columns>
                                 </asp:GridView>
 
@@ -289,7 +338,7 @@
                                           <asp:TemplateField HeaderText="Observaciones">
                                             <ItemStyle Width="300px" />
                                             <ItemTemplate>
-                                                <asp:TextBox runat="server" ID="Observaciones" Text='<%# Eval("Observaciones") %>'  Width="300px" MaxLength="200"></asp:TextBox>                                                
+                                                <asp:TextBox runat="server" ID="TxtObservaciones" Text='<%# Eval("Observaciones") %>'  Width="300px" MaxLength="200"></asp:TextBox>                                                
                                             </ItemTemplate>
                                         </asp:TemplateField>
 
@@ -317,7 +366,7 @@
                             <ContentTemplate>
                                 <asp:GridView ID="GvCheckList" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos" ToolTip="" CssClass="table table-smallpadding Widthall"
                                     OnRowDataBound="GvCheckList_RowDataBound"
-                                    DataKeyNames="CveOrdenTrabajoCheckList,CveCheckListActividad,CheckListActividadGrupo,Observaciones,Estatus,Terminado"
+                                    DataKeyNames="CveOrdenTrabajoCheckList,CveCheckListActividad,CheckListActividadGrupo,Estatus,Terminado"
                                     GridLines="None">
                                     <Columns>
 

AF/OrdenTrabajo.aspx.vb

@@ -25,6 +25,18 @@ Partial Class AF_OrdenTrabajo
         End Set
     End Property
 
+    Property CveOrdenCompra As Integer
+        Get
+            If ViewState("CveOrdenCompra") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("CveOrdenCompra").ToString.ToEntero
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CveOrdenCompra") = value
+        End Set
+    End Property
 
 
 
@@ -33,14 +45,25 @@ Partial Class AF_OrdenTrabajo
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
 
+            CargaCombos()
 
             If Request("CveOrdenTrabajo") IsNot Nothing Then
                 CveOrdenTrabajo = Request("CveOrdenTrabajo").ToEntero
-                Tab.Visible = True
+
-                CargaDatos()
+                If CveOrdenTrabajo > 0 Then
+
+                    DVFechaFin.Visible = True
+                    DVFolioAsignado.Visible = True
+                    DVEstatus.Visible = True
+
+                    Tab.Visible = True
+                    CargaDatos()
+
+                End If
+
             End If
 
-            CargaCombos()
+
         End If
     End Sub
 
@@ -59,7 +82,7 @@ Partial Class AF_OrdenTrabajo
         DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa, -1)
         DdlAF.DataBind()
 
-
+        DdlAF.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
 
         Dim ObjAF As New ClsAF
 
@@ -94,19 +117,46 @@ Partial Class AF_OrdenTrabajo
 
 #End Region
 
-#Region "  CARGA DATOS  "
-    'Protected Sub BtnFiltrar_Click(sender As Object, e As EventArgs)
-    '    CargaDatos()
 
-    'End Sub
-
-
-#End Region
 
 #Region "  GV DATOS  "
 
     Private Sub CargaDatos()
 
+
+
+        Dim ObjAF As New ClsAF
+
+        If ObjAF.GetOrdenesTrabajo(CveOrdenTrabajo, -1, -1, -1, -1, -1, MinFecha, MaxFecha, Nothing, -1, UsuarioActual.CveEmpresa) Then
+
+            If ObjAF.DtResultados IsNot Nothing AndAlso ObjAF.DtResultados.Rows.Count > 0 Then
+
+                LblFolio.Text = ObjAF.DtResultados(0)("Folio").ToString
+                LblAsiganado.Text = ObjAF.DtResultados(0)("NombreCompleto").ToString
+
+                DdlSubProyecto.SelectedValueExist(ObjAF.DtResultados(0)("CveSubProyecto").ToString)
+                DdlAF.SelectedValueExist(ObjAF.DtResultados(0)("CveAF").ToString)
+                DdlTipoServicio.SelectedValueExist(ObjAF.DtResultados(0)("CveTipoServicio").ToString)
+                TxtServicio.Text = ObjAF.DtResultados(0)("Servicio").ToString
+                DdlPrioridad.SelectedValueExist(ObjAF.DtResultados(0)("Prioridad").ToString)
+                txtFechaI.Text = ObjAF.DtResultados(0)("FechaInicio").ToString.ToDate.ToString("dd/MM/yyyy")
+
+                CveOrdenCompra = ObjAF.DtResultados(0)("CveOrdenCompra").ToString.ToEntero
+
+                If ObjAF.DtResultados(0)("FechaFin").ToString.Length > 0 Then
+                    txtFechaF.Text = ObjAF.DtResultados(0)("FechaFin").ToString.ToDate.ToString("dd/MM/yyyy")
+                End If
+
+                'txtFechaFinReal.Text     ""
+                DdlOrdenesTrabajoEstatus.SelectedValueExist(ObjAF.DtResultados(0)("CveEstatusOT").ToString)
+            Else
+                Alert("No se encontro la orden de trabajo", TipoMensaje.MsgAdvertencia)
+            End If
+        End If
+
+        ObjAF.Dispose()
+
+
         CargaMaterial()
         CargaActividades()
         CargaCheckList()
@@ -152,6 +202,81 @@ Partial Class AF_OrdenTrabajo
 
         Else
 
+            If DdlOrdenesTrabajoEstatus.SelectedValue.ToEntero = 3 Then
+                If txtFechaF.Text.Length = 0 Then
+                    Alert("La fecha fin  es requerida.", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                End If
+            End If
+
+
+
+
+            Dim ObjAF As New ClsAF
+            ObjAF.IniciaTransacSQL()
+            Dim ErrorProceso As Boolean = False
+
+
+            Dim FechaFinal As Date = MaxFecha
+            Dim FechaFinReal As Date = MaxFecha
+
+
+            If txtFechaF.Text.ToDate > MinFecha Then
+                FechaFinal = txtFechaF.Text.ToDate
+            End If
+
+            If Not ObjAF.UpdateOrdenesTrabajo(CveOrdenTrabajo, DdlTipoServicio.SelectedValue.ToEntero, DdlAF.SelectedValue.ToEntero, TxtServicio.Text.Trim, DdlSubProyecto.SelectedValue.ToEntero, DdlPrioridad.SelectedValue.ToEntero, txtFechaI.Text.ToDate, FechaFinal, MaxFecha, DdlOrdenesTrabajoEstatus.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1) Then
+                ErrorProceso = True
+            End If
+
+            If Not ErrorProceso Then
+                For Each GvRow As GridViewRow In GvActividades.Rows
+
+                    Dim Chk As CheckBox = GvRow.FCCheckBox("Chk")
+                    Dim TxtObservaciones As TextBox = GvRow.FCTextBox("TxtObservaciones")
+                    Dim CveOrdenTrabajoActividad As Integer = GvRow.DataKey("CveOrdenTrabajoActividad").ToEntero
+
+                    If Not ObjAF.UpdateOrdenesTrabajoActividades(CveOrdenTrabajoActividad, "-1", If(Chk.Checked, 1, 0), TxtObservaciones.Text, UsuarioActual.CveEmpresa) Then
+                        ErrorProceso = True
+                        Exit For
+                    End If
+
+                Next
+            End If
+
+
+            If Not ErrorProceso Then
+                For Each GvRow As GridViewRow In GvCheckList.Rows
+
+                    Dim Chk As CheckBox = GvRow.FCCheckBox("Chk")
+                    Dim TxtObservaciones As TextBox = GvRow.FCTextBox("TxtObservaciones")
+                    Dim CveOrdenTrabajoCheckList As Integer = GvRow.DataKey("CveOrdenTrabajoCheckList").ToEntero
+                    Dim RBL As RadioButtonList = GvRow.FCRadioButtonList("RDLSINOND")
+                    Dim Estatus As Integer = 0
+
+                    If RBL.SelectedValue.ToEntero > 0 Then
+                        Estatus = RBL.SelectedValue.ToEntero
+                    End If
+
+                    If CveOrdenTrabajoCheckList > 0 Then
+
+                        If Not ObjAF.UpdateOrdenesTrabajoCheckList(CveOrdenTrabajoCheckList, "-1", If(Chk.Checked, 1, 0), TxtObservaciones.Text, Estatus, UsuarioActual.CveEmpresa) Then
+                            ErrorProceso = True
+                            Exit For
+                        End If
+
+                    End If
+                Next
+            End If
+
+
+            If Not ErrorProceso Then
+                ObjAF.Commit()
+                Alert($"Orden de trabajo actualizada correctamente.")
+            Else
+                ObjAF.RollBack()
+            End If
+
         End If
 
 
@@ -161,165 +286,6 @@ Partial Class AF_OrdenTrabajo
 
 
 
-#Region "DESCARGA EXCEL"
-
-    'Public Sub ExportToExcelG(Gv1 As GridView, NombreArchivoXLSx As String, Usuario As Usuario, Titulo As String, Optional AlturaImagen As Double = 100, Optional AnchoImagen As Double = 100, Optional filtros As String = "")
-
-
-
-    '    For Each GvRow As GridViewRow In Gv1.Rows
-
-    '        Dim IDX_LIMPIAR As Integer = 1
-
-    '        For IDX_LIMPIAR = 1 To 15
-    '            GvRow.Cells(IDX_LIMPIAR).Text = GvRow.FCTextBox($"TxtMetrica{IDX_LIMPIAR}").Text
-    '        Next
-
-    '        If GvRow.FCDropDownList("DDLPersonal").SelectedValue.ToEntero > 0 Then
-    '            GvRow.Cells(16).Text = GvRow.FCDropDownList("DDLPersonal").SelectedItem.Text
-    '        Else
-    '            GvRow.Cells(16).Text = ""
-    '        End If
-
-    '    Next
-
-
-
-    '    Dim sw1 As New StringWriter()
-    '    Dim htw1 As New HtmlTextWriter(sw1)
-    '    Gv1.RenderControl(htw1)
-
-    '    Dim options = GemBox.Spreadsheet.LoadOptions.HtmlDefault
-    '    Dim htmlStream1 = New MemoryStream(options.Encoding.GetBytes(sw1.ToString()))
-
-    '    htmlStream1.Position = 0
-    '    Dim sr1 As New StreamReader(htmlStream1)
-    '    Dim myStr1 = sr1.ReadToEnd()
-
-    '    sr1.Dispose()
-    '    htmlStream1.Dispose()
-    '    sw1.Dispose()
-
-    '    Dim HtmlCompleto As String = myStr1
-
-
-    '    HtmlCompleto = Regex.Replace(HtmlCompleto, "\<[\/]*a[^\>]*\>", "")
-
-    '    Dim asd As String = ""
-
-
-    '    Dim htmlStream5 = New MemoryStream(options.Encoding.GetBytes(HtmlCompleto))
-
-    '    GemBox.Spreadsheet.SpreadsheetInfo.SetLicense(SerialGemBoxSpreadsheet())
-
-    '    Dim excel As GemBox.Spreadsheet.ExcelFile
-
-    '    excel = GemBox.Spreadsheet.ExcelFile.Load(htmlStream5, options)
-
-    '    If Usuario IsNot Nothing Then
-    '        Dim TotalRowHeader As Integer = 8
-    '        Dim TotalRowFooter As Integer = 2
-
-    '        Dim worksheet = excel.Worksheets(0)
-    '        worksheet.Rows.InsertEmpty(0, TotalRowHeader)
-    '        Dim celdasConTexto = worksheet.GetUsedCellRange(True)
-    '        celdasConTexto.Style.Font.Name = "Calibri Light"
-
-    '        Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex)
-    '        RangoNombreEmpresa.Merged = True
-    '        RangoNombreEmpresa.Value = Usuario.Empresa.Empresa
-    '        RangoNombreEmpresa.Style.Font.Size = 18 * 20
-    '        RangoNombreEmpresa.Style.Font.Name = "Calibri Light"
-    '        RangoNombreEmpresa.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
-    '        RangoNombreEmpresa.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
-
-
-    '        Dim RangoFiltros = worksheet.Cells.GetSubrangeAbsolute(6, celdasConTexto.FirstColumnIndex, 6, celdasConTexto.LastColumnIndex)
-    '        RangoFiltros.Merged = True
-    '        RangoFiltros.Value = filtros
-    '        RangoFiltros.Style.Font.Size = 15 * 20
-    '        RangoFiltros.Style.Font.Name = "Calibri Light"
-    '        RangoFiltros.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left
-    '        RangoFiltros.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
-
-
-    '        Dim RangoTitulo = worksheet.Cells.GetSubrangeAbsolute(3, celdasConTexto.FirstColumnIndex, 3, celdasConTexto.LastColumnIndex)
-    '        RangoTitulo.Merged = True
-    '        RangoTitulo.Value = Titulo
-    '        RangoTitulo.Style.Font.Size = 20 * 20
-    '        RangoTitulo.Style.Font.Name = "Calibri Light"
-    '        RangoTitulo.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
-    '        RangoTitulo.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
-
-    '        For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex
-    '            worksheet.Rows(8).Cells(i).Style.Font.Size = 12 * 20
-    '            worksheet.Rows(8).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
-    '            worksheet.Rows(8).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
-
-    '            worksheet.Rows(8).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
-    '            worksheet.Rows(8).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)
-
-
-
-
-    '            If i > 0 Then
-    '                Try
-    '                    worksheet.Columns(i).AutoFit(1)
-    '                Catch ex As Exception
-    '                End Try
-    '            End If
-
-    '        Next
-
-    '        Dim IndexEndTable As Integer = Gv1.Rows.Count + 4 + TotalRowHeader + TotalRowFooter
-
-    '        worksheet.Rows(IndexEndTable).Cells(0).Value = "Usuario Imprimió"
-    '        worksheet.Rows(IndexEndTable + 1).Cells(0).Value = Usuario.Nombre
-
-    '        worksheet.Rows(IndexEndTable).Cells(2).Value = "Fecha Impresión"
-    '        worksheet.Rows(IndexEndTable + 1).Cells(2).Value = DateTime.Now.ToString("dd/MM/yyyy")
-
-    '        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta))
-
-    '        If Imagen.Exists Then
-    '            Dim Ruta As String = String.Format("{0}/Logo.png", Usuario.Empresa.Ruta)
-    '            Using sr As New StreamReader(Ruta)
-    '                Dim ms As New MemoryStream()
-    '                sr.BaseStream.CopyTo(ms)
-    '                worksheet.Pictures.Add(ms, ExcelPictureFormat.Png, "A1", AnchoImagen, AlturaImagen, LengthUnit.Pixel)
-    '            End Using
-    '        End If
-
-    '    End If
-
-
-
-
-    '    Dim memoryStream As New MemoryStream()
-    '    excel.Save(memoryStream, SaveOptions.XlsxDefault)
-    '    ReporteBytes = memoryStream.ToArray()
-    '    memoryStream.Dispose()
-
-    'End Sub
-
-
-    'Protected Sub LnkDescargaReporte_Click(sender As Object, e As EventArgs)
-
-
-    '    Response.ContentType = "application/force-download"
-    '    Response.AppendHeader("Content-Disposition", $"attachment;filename=RegistroRevision{Now.ToString("yyyyMMddmmss")}.xlsx")
-    '    Response.BinaryWrite(ReporteBytes)
-    '    Response.End()
-
-    'End Sub
-
-
-    'Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
-    'End Sub
-
-#End Region
-
-
 
 #Region "FOLIOS"
 
@@ -377,16 +343,27 @@ Partial Class AF_OrdenTrabajo
     Private Sub CargaMaterial()
 
         Dim ObjAF As New ClsAF
+        Dim MaterialFaltante As Decimal = 0
 
         If ObjAF.GetOrdenesTrabajoMateriales(CveOrdenTrabajo, UsuarioActual.CveEmpresa) Then
             GvMaterial.DataSource = ObjAF.DtResultados
+            MaterialFaltante = ObjAF.DtResultados.SUMD("Faltante")
         Else
             GvMaterial.DataSource = Nothing
         End If
 
         ObjAF.Dispose()
 
+
+
+
+        If MaterialFaltante > 0 AndAlso CveOrdenCompra <= 0 Then
+
+            GvMaterial.Columns(4).Visible = True
+        End If
+
         GvMaterial.DataBind()
+
         UpGvMaterial.Update()
 
     End Sub
@@ -432,9 +409,35 @@ Partial Class AF_OrdenTrabajo
 
     Protected Sub GvMaterial_RowDataBound(sender As Object, e As GridViewRowEventArgs)
 
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            If GvMaterial.Columns(4).Visible Then
+
+                If e.Row.DataKey("Faltante").ToDecimal > 0 Then
+                    Dim HLOC As HyperLink = e.Row.FCHyperLink("HLOC")
+                    HLOC.Visible = True
+                    HLOC.NavigateUrl = $"../OC/OC.aspx?CveOrdenTrabajo={CveOrdenTrabajo}"
+                End If
+
+
+            End If
+
+        End If
+
     End Sub
     Protected Sub GvActividades_RowDataBound(sender As Object, e As GridViewRowEventArgs)
 
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            Dim Chk As CheckBox = e.Row.FCCheckBox("Chk")
+
+            If Boolean.Parse(e.Row.DataKey("Terminado")) Then
+                Chk.Checked = True
+            Else
+                Chk.Checked = False
+            End If
+        End If
+
+
     End Sub
     Protected Sub GvCheckList_RowDataBound(sender As Object, e As GridViewRowEventArgs)
 
@@ -447,13 +450,15 @@ Partial Class AF_OrdenTrabajo
             If e.Row.DataKey("CveOrdenTrabajoCheckList").ToEntero = 0 Then
 
                 e.Row.FCLiteral("LtlNROW").Text = e.Row.DataKey("CheckListActividadGrupo").ToString
-
                 e.Row.Attributes.Add("style", "background-color:#DDD")
 
                 Chk.Visible = False
                 RDLSINOND.Visible = False
                 TxtObservaciones.Visible = False
             Else
+                Dim Estatus As String = e.Row.DataKey("Estatus")
+
+                RDLSINOND.SelectedValuesIfExist(Estatus)
 
                 If Boolean.Parse(e.Row.DataKey("Terminado")) Then
                     Chk.Checked = True
@@ -464,9 +469,6 @@ Partial Class AF_OrdenTrabajo
             End If
 
 
-
-
-
         End If
 
     End Sub

AF/OrdenTrabajoAsignacion.aspx

@@ -0,0 +1,237 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="OrdenTrabajoAsignacion.aspx.vb" Inherits="AF_OrdenTrabajoAsignacion" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    <style>
+        .Widthall {
+            width: 100% !important;
+        }
+
+        .dataTables_scrollHeadInner {
+            width: 100% !important;
+            background-color: #dddddd;
+            padding-left: 0px !important;
+        }
+
+        .dataTables_scrollFoot {
+            display: none;
+            position: static;
+        }
+
+        .table-scrollable {
+            margin: 0px !important;
+        }
+
+        .dataTables_scroll {
+            margin-bottom: 0px;
+        }
+
+        .table.dataTable {
+            margin-top: 0px !important;
+        }
+
+        .dataTables_scrollBody table th {
+            padding: 0px !important;
+            padding-right: 4px !important;
+            padding-left: 4px !important;
+        }
+    </style>
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server"> 
+
+
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+    Ordenes de trabajo Asignación    
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+
+
+    <asp:UpdatePanel ID="UpFiltro" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div class="portlet solid grey-cascade portlet-filter" style="">
+        <div class="portlet-title portlet-filterT smalltitle" style="min-height: 49px; position: relative;">
+            <div class="tools">
+                <asp:UpdatePanel runat="server" style="display: inline-block;">
+                    <ContentTemplate>
+                        <asp:Button ID="BtnFiltrar" runat="server" Text="Consultar" class="btn btn-primary" OnClick="BtnFiltrar_Click" />
+                    </ContentTemplate>
+                </asp:UpdatePanel>
+                <a href="javascript:;" class="expand" data-original-title="" title=""></a>
+            </div>
+            <div class="titlefiltros caption magindate">
+
+                <div class="row" style="width: 100%">
+
+
+                    <div class="col-md-1">
+                        <asp:Label runat="server" ID="LblSubProyecto"></asp:Label>:
+                    </div>
+                    <div class="col-md-1">
+                        <asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto"></asp:DropDownList>
+                    </div>
+
+                    <div class="col-md-1 truncate">Activo Fijo:</div>
+                    <div class="col-md-1">
+                        <asp:DropDownList ID="DdlAF" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="CodDesc" DataValueField="CveActivoFijo"></asp:DropDownList>
+                    </div>
+
+                    <div class="col-md-1 ">Tipo Servicio:</div>
+                    <div class="col-md-1">
+                        <asp:DropDownList ID="DdlTipoServicio" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="Nombre" DataValueField="CveTipoServicio"></asp:DropDownList>
+                    </div>
+
+
+                    <div class="col-md-1">Fecha Inicio:</div>
+                    <div class="col-md-1" style="vertical-align:top!important">
+                        <div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="padding: 5px 0px;">
+                            <asp:TextBox ID="TxtFechaI" runat="server" CausesValidation="true" CssClass="form-control input-sm" Width="80"></asp:TextBox>
+                            <span class="input-group-btn ">
+                                <asp:LinkButton ID="ImgFecha" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                            </span>
+                        </div>
+                        <ajax:MaskedEditExtender ID="MEEFecha" runat="server" TargetControlID="TxtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                        <ajax:CalendarExtender runat="server" ID="CEFechaI" TargetControlID="TxtFechaI" PopupButtonID="ImgFecha" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                        <%--<asp:RequiredFieldValidator ID="RFVFechaNacimiento" runat="server" ControlToValidate="TxtFecha" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FechaNacimiento''</b> es necesario, por favor ingréselo." ValidationGroup="GrpCosulta"></asp:RequiredFieldValidator>
+                                        <asp:CompareValidator ID="CVFechaNacimiento" runat="server" ControlToValidate="TxtFecha" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FechaNacimiento''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpCosulta"></asp:CompareValidator>--%>
+                    </div>
+
+
+                    <div class="col-md-1">Fecha Fin:</div>
+                    <div class="col-md-1">
+
+
+                        <div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="padding: 5px 0px;">
+                            <asp:TextBox ID="TxtFechaF" runat="server" CausesValidation="true" CssClass="form-control input-sm" Width="80"></asp:TextBox>
+                            <span class="input-group-btn ">
+                                <asp:LinkButton ID="ImgFechaFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                            </span>
+                        </div>
+                        <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="TxtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                        <ajax:CalendarExtender runat="server" ID="CEFechaFinal" TargetControlID="TxtFechaF" PopupButtonID="ImgFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+
+                    </div>
+                   
+
+                </div>
+
+
+            </div>
+        </div>
+        <div class="portlet-body" style="display: block;">
+            <div class="row">
+                 <div class="col-md-1 ">Prioridad:</div>
+                    <div class="col-md-1">
+                        <asp:DropDownList ID="DdlPrioridad" CssClass="form-control input-sm select2me" Width="100%" runat="server">
+                            <asp:ListItem Value="-1">Todas</asp:ListItem>
+                            <asp:ListItem Value="1">Baja</asp:ListItem>
+                            <asp:ListItem Value="2">Media</asp:ListItem>
+                            <asp:ListItem Value="3">Alta</asp:ListItem>
+                        </asp:DropDownList>
+                    </div>
+            </div>
+        </div>
+    </div>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos" ToolTip="Listado de metricas"  CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true"
+                DataKeyNames="CvePersonal,CveOrdenTrabajo"
+
+                GridLines="None">
+                <Columns>
+
+                    <asp:HyperLinkField HeaderText="Folio" DataNavigateUrlFields="CveOrdenTrabajo" DataNavigateUrlFormatString="~/AF/OrdenTrabajo.aspx?CveOrdenTrabajo={0}"  DataTextField="Folio" ItemStyle-Width="60px"  Target="_blank" ItemStyle-HorizontalAlign="Right" />                  
+
+                    <asp:TemplateField HeaderText="Servicio">
+                        <ItemStyle Width="140px" />
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlServicio" runat="server" Text='<%# Eval("Servicio")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField> 
+
+                    <asp:TemplateField HeaderText="Tipo Servicio">
+                        <ItemStyle Width="140px" />
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlTipoServicio" runat="server" Text='<%# Eval("TipoServicio")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>                    
+
+                    <asp:TemplateField HeaderText="SubProyecto">
+                        <ItemStyle Width="140px" />
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlSubProyecto" runat="server" Text='<%# Eval("SubProyecto")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+                     <asp:TemplateField HeaderText="A.F.">
+                        <ItemStyle Width="140px" />
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlCodigoAF" runat="server" Text='<%# Eval("CodigoAF")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>                    
+                    
+                    <asp:TemplateField HeaderText="Fecha Inicio" ItemStyle-HorizontalAlign="Center">
+                        <ItemStyle Width="110px" />
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlFechaInicio" runat="server" Text='<%# Eval("FechaInicio", "{0:d}")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+                     <asp:TemplateField HeaderText="Fecha Fin" ItemStyle-HorizontalAlign="Center">
+                        <ItemStyle Width="110px" />
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlFechaFin" runat="server" Text='<%# Eval("FechaFin", "{0:d}")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+                     <asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Left">
+                        <ItemStyle Width="100px" />
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("EstatusOT")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+                     <asp:TemplateField HeaderText="Personal" ItemStyle-HorizontalAlign="Center">
+                        <ItemStyle Width="300px" />
+                        <ItemTemplate>
+                            <asp:DropDownList ID="DdlPersonal" runat="server"  DataTextField="Nombre" DataValueField="CvePersonal" CssClass="form-control input-sm select2me" Width="100%" ></asp:DropDownList>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+                </Columns>
+            </asp:GridView>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+        <br />
+    <div class="row">
+        <div class="col-md-12" style="text-align:center">
+
+
+             <asp:UpdatePanel ID="UpGuardar" runat="server" UpdateMode="Conditional">
+                    <ContentTemplate>
+                        <asp:Button ID="BtnGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" CssClass="btn btn-primary" OnClick="BtnGuardar_Click"  Enabled="false" />                        
+                    </ContentTemplate>
+                </asp:UpdatePanel>
+
+        </div>
+    </div>
+
+
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+
+ 
+
+    
+</asp:Content>

AF/OrdenTrabajoAsignacion.aspx.vb

@@ -0,0 +1,227 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class AF_OrdenTrabajoAsignacion
+    Inherits ClsPaginas
+
+#Region " PROPIEDADES"
+
+    Property DT_Cabeceras As DataTable
+        Get
+
+            If ViewState("DT_Cabeceras") Is Nothing Then
+
+                Return New DataTable
+            Else
+                Return DirectCast(ViewState("DT_Cabeceras"), DataTable)
+            End If
+
+        End Get
+        Set(value As DataTable)
+            ViewState("DT_Cabeceras") = value
+        End Set
+    End Property
+
+
+    Property DT_Datos As DataTable
+        Get
+
+            If ViewState("DT_Datos") Is Nothing Then
+                Return New DataTable
+            Else
+                Return DirectCast(ViewState("DT_Datos"), DataTable)
+            End If
+
+        End Get
+        Set(value As DataTable)
+            ViewState("DT_Datos") = value
+        End Set
+    End Property
+
+#End Region
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+
+            CargaCombos()
+            CargaDatos()
+
+            Dim FechaActual As Date = Now
+
+
+            'TxtFechaF.Text = $"{FechaActual.Day.ToString("00")}/{FechaActual.Month.ToString("00")}/{FechaActual.Year}"
+            TxtFechaF.Text = ""
+            FechaActual = FechaActual.AddDays(-30)
+            TxtFechaI.Text = $"{FechaActual.Day.ToString("00")}/{FechaActual.Month.ToString("00")}/{FechaActual.Year}"
+
+        End If
+    End Sub
+
+
+#Region " CARGA PARAMETROS "
+
+#End Region
+
+#Region "  CARGA COMBOS  "
+    Protected Sub CargaCombos()
+
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
+
+        DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa, -1)
+        DdlAF.DataBind()
+
+        DdlAF.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        Dim ObjAF As New ClsAF
+
+        If ObjAF.GetTiposServicios(-1, -1, -1, UsuarioActual.CveEmpresa) Then
+            DdlTipoServicio.DataSource = ObjAF.DtResultados
+        Else
+            DdlTipoServicio.DataSource = Nothing
+        End If
+
+        ObjAF.Dispose()
+        DdlTipoServicio.DataBind()
+        DdlTipoServicio.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        UpFiltro.Update()
+
+
+    End Sub
+
+
+#End Region
+
+#Region "  CARGA DATOS  "
+    Protected Sub BtnFiltrar_Click(sender As Object, e As EventArgs)
+        CargaDatos()
+
+    End Sub
+
+
+#End Region
+
+#Region "  GV DATOS  "
+
+    Private Sub CargaDatos()
+
+        Dim FechaInicio, FechaFin As Date
+
+        FechaInicio = TxtFechaI.Text.ToDate
+
+
+        FechaFin = MaxFecha
+        If TxtFechaF.Text.Length = 10 Then
+            FechaFin = TxtFechaF.Text.ToDate
+        End If
+
+
+        Dim ObjAF As New ClsAF
+
+        If ObjAF.GetOrdenesTrabajo(-1, DdlTipoServicio.SelectedValue.ToEntero, -1, DdlAF.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlPrioridad.SelectedValue.ToEntero, FechaInicio, FechaFin, MaxFecha, -1, UsuarioActual.CveEmpresa) Then
+
+            GvDatos.DataSource = ObjAF.DtResultados
+
+            If ObjAF.DtResultados.Rows.Count > 0 Then
+                BtnGuardar.Enabled = True
+            Else
+                BtnGuardar.Enabled = False
+            End If
+
+        Else
+            GvDatos.DataSource = Nothing
+            BtnGuardar.Enabled = False
+        End If
+
+        ObjAF.Dispose()
+
+        GvDatos.DataBind()
+        UpDatos.Update()
+
+    End Sub
+
+
+
+
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            Dim CvePersonal As Integer = e.Row.DataKey("CvePersonal").ToEntero
+            Dim DdlPersonal As DropDownList = e.Row.FCDropDownList("DdlPersonal")
+
+            DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, -1).FiltraParametros("CveEstatusPersonal = 1")
+            DdlPersonal.DataBind()
+            DdlPersonal.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
+
+            DdlPersonal.SelectedValueExist(CvePersonal)
+
+
+        End If
+
+    End Sub
+
+#End Region
+
+
+
+
+    Protected Sub LnkEliminarMetricaValor_Click(sender As Object, e As EventArgs)
+
+    End Sub
+
+
+
+    Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
+
+
+        Dim ObjAf As New ClsAF
+        Dim ErrorProceso As Boolean = False
+        Dim CountAsiganados As Integer = 0
+
+
+        ObjAf.IniciaTransacSQL()
+
+        For Each GvRow As GridViewRow In GvDatos.Rows
+            If GvRow.RowType = DataControlRowType.DataRow Then
+
+                Dim CvePersonal As Integer = GvRow.DataKey("CvePersonal").ToEntero
+                Dim DdlPersonal As DropDownList = GvRow.FCDropDownList("DdlPersonal")
+                Dim CveOrdenTrabajo As Integer = GvRow.DataKey("CveOrdenTrabajo").ToEntero
+
+                If DdlPersonal.SelectedValue.ToEntero > 0 AndAlso (DdlPersonal.SelectedValue.ToEntero <> CvePersonal) Then
+
+                    If Not ObjAf.UpdateOrdenesTrabajo(CveOrdenTrabajo, -1, -1, "-1", -1, -1, MinFecha, MaxFecha, MaxFecha, -1, UsuarioActual.CveEmpresa, DdlPersonal.SelectedValue.ToEntero) Then
+                        ErrorProceso = True
+                    Else
+                        CountAsiganados = CountAsiganados + 1
+                    End If
+
+                End If
+
+            End If
+        Next
+
+        If Not ErrorProceso Then
+
+            ObjAf.Commit()
+
+            If CountAsiganados > 0 Then
+                Alert($"{CountAsiganados} ordenes de trabajo asignadas.")
+            Else
+                Alert($"No se asigno ninguna orden de trabajo.", TipoMensaje.MsgAdvertencia)
+            End If
+
+        Else
+            ObjAf.RollBack()
+        End If
+
+        ObjAf.Dispose()
+
+
+    End Sub
+End Class

AF/RepOrdenTrabajo.aspx

@@ -0,0 +1,248 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepOrdenTrabajo.aspx.vb" Inherits="AF_RepOrdenTrabajo" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    <style>
+        .Widthall {
+            width: 100% !important;
+        }
+
+        .dataTables_scrollHeadInner {
+            width: 100% !important;
+            background-color: #dddddd;
+            padding-left: 0px !important;
+        }
+
+        .dataTables_scrollFoot {
+            display: none;
+            position: static;
+        }
+
+        .table-scrollable {
+            margin: 0px !important;
+        }
+
+        .dataTables_scroll {
+            margin-bottom: 0px;
+        }
+
+        .table.dataTable {
+            margin-top: 0px !important;
+        }
+
+        .dataTables_scrollBody table th {
+            padding: 0px !important;
+            padding-right: 4px !important;
+            padding-left: 4px !important;
+        }
+    </style>
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server"> 
+
+
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+    Reporte ordenes de trabajo
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+
+
+    <asp:UpdatePanel ID="UpFiltro" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div class="portlet solid  grey-cascade portlet-filter" style="">
+        <div class="portlet-title portlet-filterT smalltitle" style="min-height: 49px; position: relative;">
+            <div class="tools">
+                <asp:UpdatePanel runat="server" style="display: inline-block;">
+                    <ContentTemplate>
+                        <asp:Button ID="BtnFiltrar" runat="server" Text="Consultar" class="btn btn-primary" OnClick="BtnFiltrar_Click" />
+                    </ContentTemplate>
+                </asp:UpdatePanel>
+                <a href="javascript:;" class="expand" data-original-title="" title=""></a>
+            </div>
+            <div class="titlefiltros  caption">
+
+                <div class="row" >
+
+                     <div class="col-md-1">
+                        Folio:
+                    </div>
+                    <div class="col-md-1">
+                        <asp:TextBox runat="server" ID="TxtFolio" CssClass="form-control input-sm " />
+                    </div>
+
+                    <div class="col-md-1">
+                        <asp:Label runat="server" ID="LblSubProyecto"></asp:Label>:
+                    </div>
+                    <div class="col-md-1">
+                        <asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto"></asp:DropDownList>
+                    </div>
+
+                    <div class="col-md-1 truncate">Activo Fijo:</div>
+                    <div class="col-md-1">
+                        <asp:DropDownList ID="DdlAF" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="CodDesc" DataValueField="CveActivoFijo"></asp:DropDownList>
+                    </div>
+
+                    <div class="col-md-1 ">Tipo Servicio:</div>
+                    <div class="col-md-1">
+                        <asp:DropDownList ID="DdlTipoServicio" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="Nombre" DataValueField="CveTipoServicio"></asp:DropDownList>
+                    </div>
+                 
+                   
+
+                </div>
+
+
+            </div>
+        </div>
+        <div class="portlet-body" style="display: block;">
+            <div class="row">
+
+
+                  <div class="col-md-1 ">Personal:</div>
+                    <div class="col-md-1">
+                        <asp:DropDownList ID="DdlPersonal" runat="server"  DataTextField="Nombre" DataValueField="CvePersonal" CssClass="form-control input-sm select2me" Width="100%" ></asp:DropDownList>
+                    </div>
+
+
+
+                 <div class="col-md-1">Fecha Inicio:</div>
+                    <div class="col-md-1" style="vertical-align:top!important">
+                        <div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="padding: 5px 0px;">
+                            <asp:TextBox ID="TxtFechaI" runat="server" CausesValidation="true" CssClass="form-control input-sm" Width="100px"></asp:TextBox>
+                            <span class="input-group-btn ">
+                                <asp:LinkButton ID="ImgFecha" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                            </span>
+                        </div>
+                        <ajax:MaskedEditExtender ID="MEEFecha" runat="server" TargetControlID="TxtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                        <ajax:CalendarExtender runat="server" ID="CEFechaI" TargetControlID="TxtFechaI" PopupButtonID="ImgFecha" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                        <%--<asp:RequiredFieldValidator ID="RFVFechaNacimiento" runat="server" ControlToValidate="TxtFecha" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FechaNacimiento''</b> es necesario, por favor ingréselo." ValidationGroup="GrpCosulta"></asp:RequiredFieldValidator>
+                                        <asp:CompareValidator ID="CVFechaNacimiento" runat="server" ControlToValidate="TxtFecha" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''FechaNacimiento''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpCosulta"></asp:CompareValidator>--%>
+                    </div>
+
+
+                    <div class="col-md-1">Fecha Fin:</div>
+                    <div class="col-md-1">
+
+
+                        <div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="padding: 5px 0px;">
+                            <asp:TextBox ID="TxtFechaF" runat="server" CausesValidation="true" CssClass="form-control input-sm" Width="100px"></asp:TextBox>
+                            <span class="input-group-btn ">
+                                <asp:LinkButton ID="ImgFechaFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                            </span>
+                        </div>
+                        <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="TxtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                        <ajax:CalendarExtender runat="server" ID="CEFechaFinal" TargetControlID="TxtFechaF" PopupButtonID="ImgFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+
+                    </div>
+
+                   <div class="col-md-1 ">Estatus:</div>
+                    <div class="col-md-1">
+                          <asp:DropDownList ID="DdlOrdenesTrabajoEstatus" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="EstatusOT" DataValueField="CveEstatusOT">
+                                </asp:DropDownList>
+                    </div>
+
+
+                 <div class="col-md-1 ">Prioridad:</div>
+                    <div class="col-md-1">
+                        <asp:DropDownList ID="DdlPrioridad" CssClass="form-control input-sm select2me" Width="100%" runat="server">
+                            <asp:ListItem Value="-1">Todas</asp:ListItem>
+                            <asp:ListItem Value="1">Baja</asp:ListItem>
+                            <asp:ListItem Value="2">Media</asp:ListItem>
+                            <asp:ListItem Value="3">Alta</asp:ListItem>
+                        </asp:DropDownList>
+                    </div>
+            </div>
+        </div>
+    </div>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron datos" ToolTip="Listado de metricas"  CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true"
+                DataKeyNames="CvePersonal,CveOrdenTrabajo"
+
+                GridLines="None">
+                <Columns>
+
+                    <asp:HyperLinkField HeaderText="Folio" DataNavigateUrlFields="CveOrdenTrabajo" DataNavigateUrlFormatString="~/AF/OrdenTrabajo.aspx?CveOrdenTrabajo={0}"  DataTextField="Folio" ItemStyle-Width="60px"  Target="_blank" ItemStyle-HorizontalAlign="Right" />                  
+
+                    <asp:TemplateField HeaderText="Servicio">
+                        <ItemStyle Width="140px" />
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlServicio" runat="server" Text='<%# Eval("Servicio")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField> 
+
+                    <asp:TemplateField HeaderText="Tipo Servicio">
+                        <ItemStyle Width="140px" />
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlTipoServicio" runat="server" Text='<%# Eval("TipoServicio")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>                    
+
+                    <asp:TemplateField HeaderText="SubProyecto">
+                        <ItemStyle Width="140px" />
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlSubProyecto" runat="server" Text='<%# Eval("SubProyecto")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+                     <asp:TemplateField HeaderText="A.F.">
+                        <ItemStyle Width="140px" />
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlCodigoAF" runat="server" Text='<%# Eval("CodigoAF")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>                    
+                    
+                    <asp:TemplateField HeaderText="Fecha Inicio" ItemStyle-HorizontalAlign="Center">
+                        <ItemStyle Width="110px" />
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlFechaInicio" runat="server" Text='<%# Eval("FechaInicio", "{0:d}")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+                     <asp:TemplateField HeaderText="Fecha Fin" ItemStyle-HorizontalAlign="Center">
+                        <ItemStyle Width="110px" />
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlFechaFin" runat="server" Text='<%# Eval("FechaFin", "{0:d}")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+                     <asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Left">
+                        <ItemStyle Width="100px" />
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("EstatusOT")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+
+                     <asp:TemplateField HeaderText="Asignado" ItemStyle-HorizontalAlign="Left">
+                        <ItemStyle Width="100px" />
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlNombreCompleto" runat="server" Text='<%# Eval("NombreCompleto")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+ 
+
+                </Columns>
+            </asp:GridView>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+   
+
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+
+ 
+
+    
+</asp:Content>

AF/RepOrdenTrabajo.aspx.vb

@@ -0,0 +1,187 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class AF_RepOrdenTrabajo
+    Inherits ClsPaginas
+
+#Region " PROPIEDADES"
+
+    Property DT_Cabeceras As DataTable
+        Get
+
+            If ViewState("DT_Cabeceras") Is Nothing Then
+
+                Return New DataTable
+            Else
+                Return DirectCast(ViewState("DT_Cabeceras"), DataTable)
+            End If
+
+        End Get
+        Set(value As DataTable)
+            ViewState("DT_Cabeceras") = value
+        End Set
+    End Property
+
+
+    Property DT_Datos As DataTable
+        Get
+
+            If ViewState("DT_Datos") Is Nothing Then
+                Return New DataTable
+            Else
+                Return DirectCast(ViewState("DT_Datos"), DataTable)
+            End If
+
+        End Get
+        Set(value As DataTable)
+            ViewState("DT_Datos") = value
+        End Set
+    End Property
+
+#End Region
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+
+            CargaCombos()
+            CargaDatos()
+
+            Dim FechaActual As Date = Now
+
+
+            'TxtFechaF.Text = $"{FechaActual.Day.ToString("00")}/{FechaActual.Month.ToString("00")}/{FechaActual.Year}"
+            TxtFechaF.Text = ""
+            FechaActual = FechaActual.AddDays(-30)
+            TxtFechaI.Text = $"{FechaActual.Day.ToString("00")}/{FechaActual.Month.ToString("00")}/{FechaActual.Year}"
+
+        End If
+    End Sub
+
+
+#Region " CARGA PARAMETROS "
+
+#End Region
+
+#Region "  CARGA COMBOS  "
+    Protected Sub CargaCombos()
+
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
+
+        DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa, -1)
+        DdlAF.DataBind()
+
+        DdlAF.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        Dim ObjAF As New ClsAF
+
+        If ObjAF.GetTiposServicios(-1, -1, -1, UsuarioActual.CveEmpresa) Then
+            DdlTipoServicio.DataSource = ObjAF.DtResultados
+        Else
+            DdlTipoServicio.DataSource = Nothing
+        End If
+
+        If ObjAF.GetOrdenesTrabajoEstatus(UsuarioActual.CveEmpresa) Then
+            DdlOrdenesTrabajoEstatus.DataSource = ObjAF.DtResultados
+        Else
+            DdlOrdenesTrabajoEstatus.DataSource = Nothing
+        End If
+
+        ObjAF.Dispose()
+
+        DdlTipoServicio.DataBind()
+        DdlTipoServicio.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlOrdenesTrabajoEstatus.DataBind()
+        DdlOrdenesTrabajoEstatus.Items.Insert(0, New ListItem("Todos", "-1"))
+
+
+
+
+        DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, -1).FiltraParametros("CveEstatusPersonal = 1")
+        DdlPersonal.DataBind()
+        DdlPersonal.Items.Insert(0, New ListItem("Todos", "-1"))
+
+
+        UpFiltro.Update()
+
+
+    End Sub
+
+
+#End Region
+
+#Region "  CARGA DATOS  "
+    Protected Sub BtnFiltrar_Click(sender As Object, e As EventArgs)
+        CargaDatos()
+
+    End Sub
+
+
+#End Region
+
+#Region "  GV DATOS  "
+
+    Private Sub CargaDatos()
+
+
+        Dim FechaInicio, FechaFin As Date
+        Dim Folio As Integer = If(TxtFolio.Text.ToEntero > 0, TxtFolio.Text.ToEntero, -1)
+        FechaInicio = TxtFechaI.Text.ToDate
+
+
+        If DdlOrdenesTrabajoEstatus.SelectedValue.ToEntero = 3 AndAlso TxtFechaF.Text.Trim.Length = 0 Then
+            FechaFin = MaxFecha.AddDays(1)
+        Else
+            FechaFin = MaxFecha
+        End If
+
+
+        If TxtFechaF.Text.Length = 10 Then
+            FechaFin = TxtFechaF.Text.ToDate
+        End If
+
+
+        Dim ObjAF As New ClsAF
+
+        If ObjAF.GetOrdenesTrabajo(-1, DdlTipoServicio.SelectedValue.ToEntero, Folio, DdlAF.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlPrioridad.SelectedValue.ToEntero, FechaInicio, FechaFin, MaxFecha, DdlOrdenesTrabajoEstatus.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            GvDatos.DataSource = ObjAF.DtResultados
+        Else
+            GvDatos.DataSource = Nothing
+        End If
+
+        ObjAF.Dispose()
+
+        GvDatos.DataBind()
+        UpDatos.Update()
+
+    End Sub
+
+
+
+
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+        End If
+
+    End Sub
+
+#End Region
+
+
+
+
+    Protected Sub LnkEliminarMetricaValor_Click(sender As Object, e As EventArgs)
+
+    End Sub
+
+
+
+
+
+End Class

App_Code/ClsAF.vb

@@ -4239,6 +4239,40 @@ Public Class ClsAF
     End Function
 
 
+    'Public Function GetOrdenesTrabajoAsignacion(CveSubProyecto As Integer, CveAF As Integer, CveTipoServicio As Integer, FechaInicio As Date, FechaFin As Date, Prioridad As Integer, CveEmpresa As Integer) As Boolean
+
+    '    Dim Retorno As Boolean = False
+
+    '    DataAdapter("PA_AF_OrdenesTrabajoAsignacionGet")
+
+    '    With SqlAdapter.SelectCommand.Parameters
+    '        .Add("@CveOrdenTrabajo", SqlDbType.Int).Value = CveOrdenTrabajo
+    '        .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
+
+    '        .Add("@CveAF", SqlDbType.Int).Value = CveAF
+    '        .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+    '        .Add("@Prioridad", SqlDbType.Int).Value = Prioridad
+    '        .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
+    ''        .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
+
+    '        .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+
+
+    '    End With
+
+    '    Try
+    '        SqlAdapter.Fill(Data)
+    '        Retorno = True
+    '    Catch ex As Exception
+    '        OnError("Ocurrió un error al consultar las ordenes de trabajo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+    '    End Try
+
+    '    Return Retorno
+
+    'End Function
+
+
     Public Function AddOrdenesTrabajo(CveTipoServicio As Integer, CveAF As Integer, Servicio As String, CveSubProyecto As Integer, Prioridad As Integer, FechaInicio As Date, FechaFin As Date, FechaFinReal As Date, CveEstatusOT As Integer, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
@@ -4279,6 +4313,67 @@ Public Class ClsAF
 
 
 
+    Public Function UpdateOrdenesTrabajo(CveOrdenTrabajo As Integer, CveTipoServicio As Integer, CveAF As Integer, Servicio As String, CveSubProyecto As Integer, Prioridad As Integer, FechaInicio As Date, FechaFin As Date, FechaFinReal As Date, CveEstatusOT As Integer, CveEmpresa As Integer, CvePersonal As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_OrdenesTrabajoUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+
+            .Add("@CveOrdenTrabajo", SqlDbType.Int).Value = CveOrdenTrabajo
+            .Add("@CveTipoServicio", SqlDbType.Int).Value = CveTipoServicio
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@Servicio", SqlDbType.VarChar).Value = Servicio
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@Prioridad", SqlDbType.Int).Value = Prioridad
+            .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
+            .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
+            .Add("@FechaFinReal", SqlDbType.Date).Value = FechaFinReal
+            .Add("@CveEstatusOT", SqlDbType.Int).Value = CveEstatusOT
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar la orden de trabajo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+
+    End Function
+
+
+    Public Function UpdateOrdenesTrabajoOC(CveOrdenTrabajo As Integer, CveOrdenCompra As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_OrdenesTrabajoOCUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+
+            .Add("@CveOrdenTrabajo", SqlDbType.Int).Value = CveOrdenTrabajo
+            .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar la orden de trabajo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+
+    End Function
 
     Public Function GetOrdenesTrabajoMateriales(CveOrdenTrabajo As Integer, CveEmpresa As Integer) As Boolean
 
@@ -4330,6 +4425,35 @@ Public Class ClsAF
 
     End Function
 
+
+    Public Function UpdateOrdenesTrabajoActividades(CveOrdenTrabajoActividad As Integer, Valor As String, Terminado As Integer, Observaciones As String, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_OrdenesTrabajoActividadesUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveOrdenTrabajoActividad", SqlDbType.Int).Value = CveOrdenTrabajoActividad
+            .Add("@Valor", SqlDbType.VarChar).Value = Valor
+            .Add("@Terminado", SqlDbType.Int).Value = Terminado
+            .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar las actividades", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+
+    End Function
+
     Public Function GetOrdenesTrabajoCheckList(CveOrdenTrabajo As Integer, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
@@ -4355,6 +4479,35 @@ Public Class ClsAF
 
     End Function
 
+    Public Function UpdateOrdenesTrabajoCheckList(CveOrdenTrabajoCheckList As Integer, Valor As String, Terminado As Integer, Observaciones As String, Estatus As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_OrdenesTrabajoCheckListUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveOrdenTrabajoCheckList", SqlDbType.Int).Value = CveOrdenTrabajoCheckList
+            .Add("@Valor", SqlDbType.VarChar).Value = Valor
+            .Add("@Terminado", SqlDbType.Int).Value = Terminado
+            .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el check list", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+
+    End Function
+
 #End Region
 
 #End Region

App_Code/ClsBancos.vb

@@ -3130,7 +3130,7 @@ Public Class ClsBancos
             Retorno = True
 
         Catch Ex1 As SqlException
-            If Ex1.Message.Contains("Número: 2627;") Then
+            If Ex1.Message.Contains("Número: 2627;") Or Ex1.Message.Contains("Número: 2601;") Then
                 Alert("Ya existe un registro con el mismo Folio", TipoMensaje.MsgAdvertencia)
             Else
                 Me.OnError("Ocurrió un error al guardar los cambios", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
@@ -4723,7 +4723,7 @@ Public Class ClsBancos
                 strBody.AppendFormat("                        </tr>")
 
 
-                For Each dr As DataRow In DtResultados.FiltraParametros("CveConceptoContable IN (17,312) AND CveCompra > 0").Rows
+                For Each dr As DataRow In DtResultados.FiltraParametros("CveConceptoContable IN (17,312,308) AND CveCompra > 0").Rows
                     strBody.AppendFormat("                        <tr class='Texto'>")
                     strBody.AppendFormat("                            <td>{0}</td>", dr("Fecha").ToString.ToDate.ToShortDateString())
                     strBody.AppendFormat("                            <td>{0}</td>", dr("SerieFolio").ToString)

App_Code/ClsContPAQi.vb

@@ -6231,7 +6231,7 @@ Public Class ClsContPAQi
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@FechaI", SqlDbType.Date).Value = FechaI
-            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@FechaF", SqlDbType.DateTime).Value = String.Format("{0} 23:59:59", FechaF.ToShortDateString).ToDateTime
             .Add("@IdCuentaPadre", SqlDbType.Int).Value = IdCuenta
             .Add("@OpcionCuentas", SqlDbType.Int).Value = OpcionCuentas
             .Add("@Tipo", SqlDbType.Int).Value = TipoMovtos
@@ -10585,7 +10585,7 @@ Public Class ClsContPAQi
             StrSQL.Append("	(									 ")
             StrSQL.Append("	       @IdCtaSup    INT,									 ")
             StrSQL.Append("	       @FechaI      DATE,									 ")
-            StrSQL.Append("	       @FechaF      DATE,									 ")
+            StrSQL.Append("	       @FechaF      DATETIME,									 ")
             StrSQL.Append("		   @Tipo		INT,						 ")
             StrSQL.Append("		   @SegmentoNegocio INT = -1 ")
             StrSQL.Append("	)									 ")
@@ -10776,7 +10776,7 @@ Public Class ClsContPAQi
         StrSQL.Append("			(							 ")
         StrSQL.Append("			       @IdCtaSup    INT,							 ")
         StrSQL.Append("			       @FechaI      DATE,							 ")
-        StrSQL.Append("			       @FechaF      DATE,							 ")
+        StrSQL.Append("			       @FechaF      DATETIME,							 ")
         StrSQL.Append("				   @Tipo		INT,				 ")
         StrSQL.Append("				   @SegmentoNegocio INT = -1						 ")
         StrSQL.Append("			)							 ")
@@ -10883,7 +10883,7 @@ Public Class ClsContPAQi
         StrSQL.Append("			(								 ")
         StrSQL.Append("			       @IdCtaSup    INT,								 ")
         StrSQL.Append("			       @FechaI      DATE,								 ")
-        StrSQL.Append("			       @FechaF      DATE,								 ")
+        StrSQL.Append("			       @FechaF      DATETIME,								 ")
         StrSQL.Append("				   @Tipo		INT,					 ")
         StrSQL.Append("				   @SegmentoNegocio INT = -1							 ")
         StrSQL.Append("			)								 ")
@@ -11140,7 +11140,7 @@ Public Class ClsContPAQi
         StrSQL.Append("			(										 ")
         StrSQL.Append("			       @IdCtaSup    INT,										 ")
         StrSQL.Append("			       @FechaI             DATE,										 ")
-        StrSQL.Append("			       @FechaF             DATE,										 ")
+        StrSQL.Append("			       @FechaF             DATETIME,										 ")
         StrSQL.Append("				   @CveMoneda   INT = 1									 ")
         StrSQL.Append("			)										 ")
         StrSQL.Append("			RETURNS FLOAT										 ")

App_Code/ClsContabilidad.vb

@@ -1562,6 +1562,30 @@ Public Class ClsContabilidad
 
 #End Region
 
+
+    Public Function GetCuentasConceptos(CveTipoSaldo As Integer, CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveCuentaBancos As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Conta_CuentasConceptosGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveTipoSaldo", SqlDbType.Int).Value = CveTipoSaldo
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+            .Add("@CveCuentaBancos", SqlDbType.Int).Value = CveCuentaBancos
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener lod datos de Concepto Contables.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
+
 #Region " C O N T A B I L I D A D - T I P O - P O L I Z A "
     Public Function GetConta_TiposPoliza(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
@@ -4174,7 +4198,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
-    Public Function GetAnexoCatalagoCC(CveCuenta As Integer, Ejercicio As Integer, CveSubproyecto As Integer, CveEmpresa As Integer, Divisor As Integer, Periodo As Integer) As Boolean
+    Public Function GetAnexoCatalagoCC(CveCuenta As Integer, Ejercicio As Integer, CveSubproyecto As Integer, CveEmpresa As Integer, Divisor As Integer, Periodo As Integer, CveUsuario As Integer ) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_AnexoCatalogoCCGet")
@@ -4579,22 +4603,22 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
-    Public Function GetCuentasyConceptos(CveCliente As Integer) As Boolean
+    'Public Function GetCuentasyConceptos(CveCliente As Integer) As Boolean
-        Dim Retorno As Boolean = False
+    '    Dim Retorno As Boolean = False
-        DataAdapter("PA_Conta_GetCuentasyConceptos")
+    '    DataAdapter("PA_Conta_GetCuentasyConceptos")
-        With SqlAdapter.SelectCommand.Parameters
+    '    With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+    '        .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-        End With
+    '    End With
 
-        Try
+    '    Try
-            SqlAdapter.Fill(Data)
+    '        SqlAdapter.Fill(Data)
-            Retorno = True
+    '        Retorno = True
-        Catch ex As Exception
+    '    Catch ex As Exception
-            OnError("Ocurrió un error al consultar las cuentas y conceptos", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+    '        OnError("Ocurrió un error al consultar las cuentas y conceptos", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
+    '    End Try
 
-        Return Retorno
+    '    Return Retorno
-    End Function
+    'End Function
 
     Public Function UpdateCuentaCompaq(CveCuenta As Integer, IdCompaq As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
@@ -5518,6 +5542,27 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
+
+    Public Function GetRepIVAComparativo(FechaInicio As Date, FechaFin As Date, CveUsuarioConsulta As Integer, Conciliado As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Conta_ImpuestosComparativo")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
+            .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
+            .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
+            .Add("@Conciliado", SqlDbType.Int).Value = Conciliado
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el reporte de IVA Comparativo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
     Public Function GetRepIVAAcumulado(FechaInicio As Date, FechaFin As Date, Conciliado As Integer, TipoImpuesto As Integer, CveUsuarioConsulta As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Conta_IVAAcumulado")

App_Code/ClsInventarios.vb

@@ -1551,6 +1551,33 @@ Public Class ClsInventarios
 
     End Function
 
+    Public Function GetExistenciasProductoSerie(CvePS As Integer, CveAlmacen As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Inv_ExistenciaPSSeriesGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch Ex1 As SqlException
+
+            Me.OnError("Ocurrió un error al obtener el kardex de almacen.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el kardex de almacen.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+
+    End Function
+
 #End Region
 
 #Region "  INVENTARIOS - REPORTES  "

App_Code/ClsPaginas.vb

@@ -192,20 +192,34 @@ Public Class ClsPaginas
             Application("GlobalDTNomConceptos") = value
         End Set
     End Property
-    Property GlobalDTTiposGastos(CveEmpresa As Integer) As DataTable
+    Property GlobalDTTiposGastos(CveEmpresa As Integer, Optional Estatus As Integer = 1) As DataTable
         Get
+            Dim AppNombre As String = String.Format("GlobalDTTiposGastos-{0}", CveEmpresa)
+            'sino existe, recarga los datos
+            If Application(AppNombre) Is Nothing Then
+                Dim ObjCompra As New ClsCompras()
+                If ObjCompra.GetTipoGasto(-1, -1) Then Application(AppNombre) = ObjCompra.DtResultados Else Application(AppNombre) = Nothing
+                ObjCompra.Dispose()
+            End If
+
             If CveEmpresa <> -1 Then
-                Dim Dv As New DataView(DirectCast(Application("GlobalDTTiposGastos"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
+
+                Dim StrSQL As New StringBuilder
+                StrSQL.AppendFormat("CveEmpresa = {0}", CveEmpresa)
+                If Estatus >= 0 Then StrSQL.AppendFormat(" AND CveEstatus = {0} ", Estatus)
+
+                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), StrSQL.ToString, "", DataViewRowState.CurrentRows)
                 GlobalDTTiposGastos = Dv.ToTable
                 Dv.Dispose()
             Else
-                GlobalDTTiposGastos = DirectCast(Application("GlobalDTTiposGastos"), DataTable)
+                GlobalDTTiposGastos = DirectCast(Application(AppNombre), DataTable)
             End If
-
         End Get
         Set(value As DataTable)
-            Application("GlobalDTTiposGastos") = value
+            Dim AppNombre As String = String.Format("GlobalDTTiposGastos-{0}", CveEmpresa)
+            Application(AppNombre) = value
         End Set
+
     End Property
     Property GlobalDTMFActividad(CveEmpresa As Integer, Optional Estatus As Integer = -1, Optional CveActividad As Integer = -1) As DataTable
         Get
@@ -3964,6 +3978,11 @@ Public Class ClsPaginas
             PaginaDict.Add("/AF/TipoOrdenTrabajo.aspx".ToUpper(), -1)
             PaginaDict.Add("/AF/OrdenTrabajo.aspx".ToUpper(), -1)
             PaginaDict.Add("/AF/RepOrdenTrabajo.aspx".ToUpper(), -1)
+            PaginaDict.Add("/AF/OrdenTrabajoAsignacion.aspx".ToUpper(), -1)
+
+
+
+
 
 #End Region
             'AIMMGM

App_Code/ClsProductosServicios.vb

@@ -1683,13 +1683,13 @@ Public Class ClsProductosServicios
         End Try
 
         Return Retorno
-    End Function
+    End Function
 #End Region
-
+
-
+
 #Region "Precios Lista"
     Public Function GetPSPreciosLista(CveEmpresa As Integer, CvePrecioLista As Integer, Optional CveClasificacion As Integer = -1, Optional CvePS As Integer = -1,
-                                      Optional CveProveedor As Integer = -1, Optional Estado As Integer = -1, Optional Marcas As String = "-1") As Boolean
+                                      Optional CveProveedor As Integer = -1, Optional Estado As Integer = -1, Optional Marcas As String = "-1", Optional CveModelo As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_PSPrecioListaGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -1700,6 +1700,7 @@ Public Class ClsProductosServicios
             .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
             .Add("@Estado", SqlDbType.Int).Value = Estado
             .Add("@Marcas", SqlDbType.VarChar).Value = Marcas
+            .Add("@CveModelo", SqlDbType.Int).Value = CveModelo
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/DtDatos.xsd

@@ -12,7 +12,7 @@
   <xs:element name="DtDatos" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:Generator_DataSetName="DtDatos" msprop:Generator_UserDSName="DtDatos">
     <xs:complexType>
       <xs:choice minOccurs="0" maxOccurs="unbounded">
-        <xs:element name="DataTable1" msprop:Generator_TableClassName="DataTable1DataTable" msprop:Generator_TableVarName="tableDataTable1" msprop:Generator_TablePropName="DataTable1" msprop:Generator_RowDeletingName="DataTable1RowDeleting" msprop:Generator_RowChangingName="DataTable1RowChanging" msprop:Generator_RowEvHandlerName="DataTable1RowChangeEventHandler" msprop:Generator_RowDeletedName="DataTable1RowDeleted" msprop:Generator_UserTableName="DataTable1" msprop:Generator_RowChangedName="DataTable1RowChanged" msprop:Generator_RowEvArgName="DataTable1RowChangeEvent" msprop:Generator_RowClassName="DataTable1Row">
+        <xs:element name="DataTable1" msprop:Generator_TableClassName="DataTable1DataTable" msprop:Generator_TableVarName="tableDataTable1" msprop:Generator_RowChangedName="DataTable1RowChanged" msprop:Generator_TablePropName="DataTable1" msprop:Generator_RowDeletingName="DataTable1RowDeleting" msprop:Generator_RowChangingName="DataTable1RowChanging" msprop:Generator_RowEvHandlerName="DataTable1RowChangeEventHandler" msprop:Generator_RowDeletedName="DataTable1RowDeleted" msprop:Generator_RowClassName="DataTable1Row" msprop:Generator_UserTableName="DataTable1" msprop:Generator_RowEvArgName="DataTable1RowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="SerieFolio" msprop:Generator_ColumnVarNameInTable="columnSerieFolio" msprop:Generator_ColumnPropNameInRow="SerieFolio" msprop:Generator_ColumnPropNameInTable="SerieFolioColumn" msprop:Generator_UserColumnName="SerieFolio" type="xs:string" minOccurs="0" />
@@ -28,7 +28,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="VentaUtilidadDetalle" msprop:Generator_TableClassName="VentaUtilidadDetalleDataTable" msprop:Generator_TableVarName="tableVentaUtilidadDetalle" msprop:Generator_RowChangedName="VentaUtilidadDetalleRowChanged" msprop:Generator_TablePropName="VentaUtilidadDetalle" msprop:Generator_RowDeletingName="VentaUtilidadDetalleRowDeleting" msprop:Generator_RowChangingName="VentaUtilidadDetalleRowChanging" msprop:Generator_RowEvHandlerName="VentaUtilidadDetalleRowChangeEventHandler" msprop:Generator_RowDeletedName="VentaUtilidadDetalleRowDeleted" msprop:Generator_RowClassName="VentaUtilidadDetalleRow" msprop:Generator_UserTableName="VentaUtilidadDetalle" msprop:Generator_RowEvArgName="VentaUtilidadDetalleRowChangeEvent">
+        <xs:element name="VentaUtilidadDetalle" msprop:Generator_TableClassName="VentaUtilidadDetalleDataTable" msprop:Generator_TableVarName="tableVentaUtilidadDetalle" msprop:Generator_TablePropName="VentaUtilidadDetalle" msprop:Generator_RowDeletingName="VentaUtilidadDetalleRowDeleting" msprop:Generator_RowChangingName="VentaUtilidadDetalleRowChanging" msprop:Generator_RowEvHandlerName="VentaUtilidadDetalleRowChangeEventHandler" msprop:Generator_RowDeletedName="VentaUtilidadDetalleRowDeleted" msprop:Generator_UserTableName="VentaUtilidadDetalle" msprop:Generator_RowChangedName="VentaUtilidadDetalleRowChanged" msprop:Generator_RowEvArgName="VentaUtilidadDetalleRowChangeEvent" msprop:Generator_RowClassName="VentaUtilidadDetalleRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="CantVta" msprop:Generator_ColumnVarNameInTable="columnCantVta" msprop:Generator_ColumnPropNameInRow="CantVta" msprop:Generator_ColumnPropNameInTable="CantVtaColumn" msprop:Generator_UserColumnName="CantVta" type="xs:decimal" minOccurs="0" />
@@ -46,7 +46,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="RepClientesCxC" msprop:Generator_TableClassName="RepClientesCxCDataTable" msprop:Generator_TableVarName="tableRepClientesCxC" msprop:Generator_RowChangedName="RepClientesCxCRowChanged" msprop:Generator_TablePropName="RepClientesCxC" msprop:Generator_RowDeletingName="RepClientesCxCRowDeleting" msprop:Generator_RowChangingName="RepClientesCxCRowChanging" msprop:Generator_RowEvHandlerName="RepClientesCxCRowChangeEventHandler" msprop:Generator_RowDeletedName="RepClientesCxCRowDeleted" msprop:Generator_RowClassName="RepClientesCxCRow" msprop:Generator_UserTableName="RepClientesCxC" msprop:Generator_RowEvArgName="RepClientesCxCRowChangeEvent">
+        <xs:element name="RepClientesCxC" msprop:Generator_TableClassName="RepClientesCxCDataTable" msprop:Generator_TableVarName="tableRepClientesCxC" msprop:Generator_TablePropName="RepClientesCxC" msprop:Generator_RowDeletingName="RepClientesCxCRowDeleting" msprop:Generator_RowChangingName="RepClientesCxCRowChanging" msprop:Generator_RowEvHandlerName="RepClientesCxCRowChangeEventHandler" msprop:Generator_RowDeletedName="RepClientesCxCRowDeleted" msprop:Generator_UserTableName="RepClientesCxC" msprop:Generator_RowChangedName="RepClientesCxCRowChanged" msprop:Generator_RowEvArgName="RepClientesCxCRowChangeEvent" msprop:Generator_RowClassName="RepClientesCxCRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="SerieFolio" msprop:Generator_ColumnVarNameInTable="columnSerieFolio" msprop:Generator_ColumnPropNameInRow="SerieFolio" msprop:Generator_ColumnPropNameInTable="SerieFolioColumn" msprop:Generator_UserColumnName="SerieFolio" type="xs:string" minOccurs="0" />
@@ -64,7 +64,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="LibroMayor" msprop:Generator_TableClassName="LibroMayorDataTable" msprop:Generator_TableVarName="tableLibroMayor" msprop:Generator_TablePropName="LibroMayor" msprop:Generator_RowDeletingName="LibroMayorRowDeleting" msprop:Generator_RowChangingName="LibroMayorRowChanging" msprop:Generator_RowEvHandlerName="LibroMayorRowChangeEventHandler" msprop:Generator_RowDeletedName="LibroMayorRowDeleted" msprop:Generator_UserTableName="LibroMayor" msprop:Generator_RowChangedName="LibroMayorRowChanged" msprop:Generator_RowEvArgName="LibroMayorRowChangeEvent" msprop:Generator_RowClassName="LibroMayorRow">
+        <xs:element name="LibroMayor" msprop:Generator_TableClassName="LibroMayorDataTable" msprop:Generator_TableVarName="tableLibroMayor" msprop:Generator_RowChangedName="LibroMayorRowChanged" msprop:Generator_TablePropName="LibroMayor" msprop:Generator_RowDeletingName="LibroMayorRowDeleting" msprop:Generator_RowChangingName="LibroMayorRowChanging" msprop:Generator_RowEvHandlerName="LibroMayorRowChangeEventHandler" msprop:Generator_RowDeletedName="LibroMayorRowDeleted" msprop:Generator_RowClassName="LibroMayorRow" msprop:Generator_UserTableName="LibroMayor" msprop:Generator_RowEvArgName="LibroMayorRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="Fecha" msprop:Generator_ColumnVarNameInTable="columnFecha" msprop:Generator_ColumnPropNameInRow="Fecha" msprop:Generator_ColumnPropNameInTable="FechaColumn" msprop:Generator_UserColumnName="Fecha" type="xs:dateTime" minOccurs="0" />
@@ -87,7 +87,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="LibroDiario" msprop:Generator_TableClassName="LibroDiarioDataTable" msprop:Generator_TableVarName="tableLibroDiario" msprop:Generator_TablePropName="LibroDiario" msprop:Generator_RowDeletingName="LibroDiarioRowDeleting" msprop:Generator_RowChangingName="LibroDiarioRowChanging" msprop:Generator_RowEvHandlerName="LibroDiarioRowChangeEventHandler" msprop:Generator_RowDeletedName="LibroDiarioRowDeleted" msprop:Generator_UserTableName="LibroDiario" msprop:Generator_RowChangedName="LibroDiarioRowChanged" msprop:Generator_RowEvArgName="LibroDiarioRowChangeEvent" msprop:Generator_RowClassName="LibroDiarioRow">
+        <xs:element name="LibroDiario" msprop:Generator_TableClassName="LibroDiarioDataTable" msprop:Generator_TableVarName="tableLibroDiario" msprop:Generator_RowChangedName="LibroDiarioRowChanged" msprop:Generator_TablePropName="LibroDiario" msprop:Generator_RowDeletingName="LibroDiarioRowDeleting" msprop:Generator_RowChangingName="LibroDiarioRowChanging" msprop:Generator_RowEvHandlerName="LibroDiarioRowChangeEventHandler" msprop:Generator_RowDeletedName="LibroDiarioRowDeleted" msprop:Generator_RowClassName="LibroDiarioRow" msprop:Generator_UserTableName="LibroDiario" msprop:Generator_RowEvArgName="LibroDiarioRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="Fecha" msprop:Generator_ColumnVarNameInTable="columnFecha" msprop:Generator_ColumnPropNameInRow="Fecha" msprop:Generator_ColumnPropNameInTable="FechaColumn" msprop:Generator_UserColumnName="Fecha" type="xs:dateTime" minOccurs="0" />
@@ -111,7 +111,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="RepBalanzaComprobacion" msprop:Generator_TableClassName="RepBalanzaComprobacionDataTable" msprop:Generator_TableVarName="tableRepBalanzaComprobacion" msprop:Generator_RowChangedName="RepBalanzaComprobacionRowChanged" msprop:Generator_TablePropName="RepBalanzaComprobacion" msprop:Generator_RowDeletingName="RepBalanzaComprobacionRowDeleting" msprop:Generator_RowChangingName="RepBalanzaComprobacionRowChanging" msprop:Generator_RowEvHandlerName="RepBalanzaComprobacionRowChangeEventHandler" msprop:Generator_RowDeletedName="RepBalanzaComprobacionRowDeleted" msprop:Generator_RowClassName="RepBalanzaComprobacionRow" msprop:Generator_UserTableName="RepBalanzaComprobacion" msprop:Generator_RowEvArgName="RepBalanzaComprobacionRowChangeEvent">
+        <xs:element name="RepBalanzaComprobacion" msprop:Generator_TableClassName="RepBalanzaComprobacionDataTable" msprop:Generator_TableVarName="tableRepBalanzaComprobacion" msprop:Generator_TablePropName="RepBalanzaComprobacion" msprop:Generator_RowDeletingName="RepBalanzaComprobacionRowDeleting" msprop:Generator_RowChangingName="RepBalanzaComprobacionRowChanging" msprop:Generator_RowEvHandlerName="RepBalanzaComprobacionRowChangeEventHandler" msprop:Generator_RowDeletedName="RepBalanzaComprobacionRowDeleted" msprop:Generator_UserTableName="RepBalanzaComprobacion" msprop:Generator_RowChangedName="RepBalanzaComprobacionRowChanged" msprop:Generator_RowEvArgName="RepBalanzaComprobacionRowChangeEvent" msprop:Generator_RowClassName="RepBalanzaComprobacionRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="Id" msprop:Generator_ColumnVarNameInTable="columnId" msprop:Generator_ColumnPropNameInRow="Id" msprop:Generator_ColumnPropNameInTable="IdColumn" msprop:Generator_UserColumnName="Id" type="xs:string" minOccurs="0" />
@@ -137,7 +137,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="CatPS" msprop:Generator_TableClassName="CatPSDataTable" msprop:Generator_TableVarName="tableCatPS" msprop:Generator_TablePropName="CatPS" msprop:Generator_RowDeletingName="CatPSRowDeleting" msprop:Generator_RowChangingName="CatPSRowChanging" msprop:Generator_RowEvHandlerName="CatPSRowChangeEventHandler" msprop:Generator_RowDeletedName="CatPSRowDeleted" msprop:Generator_UserTableName="CatPS" msprop:Generator_RowChangedName="CatPSRowChanged" msprop:Generator_RowEvArgName="CatPSRowChangeEvent" msprop:Generator_RowClassName="CatPSRow">
+        <xs:element name="CatPS" msprop:Generator_TableClassName="CatPSDataTable" msprop:Generator_TableVarName="tableCatPS" msprop:Generator_RowChangedName="CatPSRowChanged" msprop:Generator_TablePropName="CatPS" msprop:Generator_RowDeletingName="CatPSRowDeleting" msprop:Generator_RowChangingName="CatPSRowChanging" msprop:Generator_RowEvHandlerName="CatPSRowChangeEventHandler" msprop:Generator_RowDeletedName="CatPSRowDeleted" msprop:Generator_RowClassName="CatPSRow" msprop:Generator_UserTableName="CatPS" msprop:Generator_RowEvArgName="CatPSRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="Clasificacion" msprop:Generator_ColumnVarNameInTable="columnClasificacion" msprop:Generator_ColumnPropNameInRow="Clasificacion" msprop:Generator_ColumnPropNameInTable="ClasificacionColumn" msprop:Generator_UserColumnName="Clasificacion" type="xs:string" minOccurs="0" />
@@ -153,7 +153,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="RepProveedorCxP" msprop:Generator_TableClassName="RepProveedorCxPDataTable" msprop:Generator_TableVarName="tableRepProveedorCxP" msprop:Generator_RowChangedName="RepProveedorCxPRowChanged" msprop:Generator_TablePropName="RepProveedorCxP" msprop:Generator_RowDeletingName="RepProveedorCxPRowDeleting" msprop:Generator_RowChangingName="RepProveedorCxPRowChanging" msprop:Generator_RowEvHandlerName="RepProveedorCxPRowChangeEventHandler" msprop:Generator_RowDeletedName="RepProveedorCxPRowDeleted" msprop:Generator_RowClassName="RepProveedorCxPRow" msprop:Generator_UserTableName="RepProveedorCxP" msprop:Generator_RowEvArgName="RepProveedorCxPRowChangeEvent">
+        <xs:element name="RepProveedorCxP" msprop:Generator_TableClassName="RepProveedorCxPDataTable" msprop:Generator_TableVarName="tableRepProveedorCxP" msprop:Generator_TablePropName="RepProveedorCxP" msprop:Generator_RowDeletingName="RepProveedorCxPRowDeleting" msprop:Generator_RowChangingName="RepProveedorCxPRowChanging" msprop:Generator_RowEvHandlerName="RepProveedorCxPRowChangeEventHandler" msprop:Generator_RowDeletedName="RepProveedorCxPRowDeleted" msprop:Generator_UserTableName="RepProveedorCxP" msprop:Generator_RowChangedName="RepProveedorCxPRowChanged" msprop:Generator_RowEvArgName="RepProveedorCxPRowChangeEvent" msprop:Generator_RowClassName="RepProveedorCxPRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="SerieFolio" msprop:Generator_ColumnVarNameInTable="columnSerieFolio" msprop:Generator_ColumnPropNameInRow="SerieFolio" msprop:Generator_ColumnPropNameInTable="SerieFolioColumn" msprop:Generator_UserColumnName="SerieFolio" type="xs:string" minOccurs="0" />
@@ -170,7 +170,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="ResumenNC" msprop:Generator_TableClassName="ResumenNCDataTable" msprop:Generator_TableVarName="tableResumenNC" msprop:Generator_RowChangedName="ResumenNCRowChanged" msprop:Generator_TablePropName="ResumenNC" msprop:Generator_RowDeletingName="ResumenNCRowDeleting" msprop:Generator_RowChangingName="ResumenNCRowChanging" msprop:Generator_RowEvHandlerName="ResumenNCRowChangeEventHandler" msprop:Generator_RowDeletedName="ResumenNCRowDeleted" msprop:Generator_RowClassName="ResumenNCRow" msprop:Generator_UserTableName="ResumenNC" msprop:Generator_RowEvArgName="ResumenNCRowChangeEvent">
+        <xs:element name="ResumenNC" msprop:Generator_TableClassName="ResumenNCDataTable" msprop:Generator_TableVarName="tableResumenNC" msprop:Generator_TablePropName="ResumenNC" msprop:Generator_RowDeletingName="ResumenNCRowDeleting" msprop:Generator_RowChangingName="ResumenNCRowChanging" msprop:Generator_RowEvHandlerName="ResumenNCRowChangeEventHandler" msprop:Generator_RowDeletedName="ResumenNCRowDeleted" msprop:Generator_UserTableName="ResumenNC" msprop:Generator_RowChangedName="ResumenNCRowChanged" msprop:Generator_RowEvArgName="ResumenNCRowChangeEvent" msprop:Generator_RowClassName="ResumenNCRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="SerieFolio" msprop:Generator_ColumnVarNameInTable="columnSerieFolio" msprop:Generator_ColumnPropNameInRow="SerieFolio" msprop:Generator_ColumnPropNameInTable="SerieFolioColumn" msprop:Generator_UserColumnName="SerieFolio" type="xs:string" minOccurs="0" />
@@ -179,7 +179,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="ProgramarRecursos" msprop:Generator_TableClassName="ProgramarRecursosDataTable" msprop:Generator_TableVarName="tableProgramarRecursos" msprop:Generator_RowChangedName="ProgramarRecursosRowChanged" msprop:Generator_TablePropName="ProgramarRecursos" msprop:Generator_RowDeletingName="ProgramarRecursosRowDeleting" msprop:Generator_RowChangingName="ProgramarRecursosRowChanging" msprop:Generator_RowEvHandlerName="ProgramarRecursosRowChangeEventHandler" msprop:Generator_RowDeletedName="ProgramarRecursosRowDeleted" msprop:Generator_RowClassName="ProgramarRecursosRow" msprop:Generator_UserTableName="ProgramarRecursos" msprop:Generator_RowEvArgName="ProgramarRecursosRowChangeEvent">
+        <xs:element name="ProgramarRecursos" msprop:Generator_TableClassName="ProgramarRecursosDataTable" msprop:Generator_TableVarName="tableProgramarRecursos" msprop:Generator_TablePropName="ProgramarRecursos" msprop:Generator_RowDeletingName="ProgramarRecursosRowDeleting" msprop:Generator_RowChangingName="ProgramarRecursosRowChanging" msprop:Generator_RowEvHandlerName="ProgramarRecursosRowChangeEventHandler" msprop:Generator_RowDeletedName="ProgramarRecursosRowDeleted" msprop:Generator_UserTableName="ProgramarRecursos" msprop:Generator_RowChangedName="ProgramarRecursosRowChanged" msprop:Generator_RowEvArgName="ProgramarRecursosRowChangeEvent" msprop:Generator_RowClassName="ProgramarRecursosRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="CveCompra" msprop:Generator_ColumnVarNameInTable="columnCveCompra" msprop:Generator_ColumnPropNameInRow="CveCompra" msprop:Generator_ColumnPropNameInTable="CveCompraColumn" msprop:Generator_UserColumnName="CveCompra" type="xs:short" minOccurs="0" />
@@ -215,7 +215,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="RepIVA" msprop:Generator_TableClassName="RepIVADataTable" msprop:Generator_TableVarName="tableRepIVA" msprop:Generator_RowChangedName="RepIVARowChanged" msprop:Generator_TablePropName="RepIVA" msprop:Generator_RowDeletingName="RepIVARowDeleting" msprop:Generator_RowChangingName="RepIVARowChanging" msprop:Generator_RowEvHandlerName="RepIVARowChangeEventHandler" msprop:Generator_RowDeletedName="RepIVARowDeleted" msprop:Generator_RowClassName="RepIVARow" msprop:Generator_UserTableName="RepIVA" msprop:Generator_RowEvArgName="RepIVARowChangeEvent">
+        <xs:element name="RepIVA" msprop:Generator_TableClassName="RepIVADataTable" msprop:Generator_TableVarName="tableRepIVA" msprop:Generator_TablePropName="RepIVA" msprop:Generator_RowDeletingName="RepIVARowDeleting" msprop:Generator_RowChangingName="RepIVARowChanging" msprop:Generator_RowEvHandlerName="RepIVARowChangeEventHandler" msprop:Generator_RowDeletedName="RepIVARowDeleted" msprop:Generator_UserTableName="RepIVA" msprop:Generator_RowChangedName="RepIVARowChanged" msprop:Generator_RowEvArgName="RepIVARowChangeEvent" msprop:Generator_RowClassName="RepIVARow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="TipoDocto" msprop:Generator_ColumnVarNameInTable="columnTipoDocto" msprop:Generator_ColumnPropNameInRow="TipoDocto" msprop:Generator_ColumnPropNameInTable="TipoDoctoColumn" msprop:Generator_UserColumnName="TipoDocto" type="xs:string" minOccurs="0" />
@@ -240,7 +240,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="DtVentaDetalle" msprop:Generator_TableClassName="DtVentaDetalleDataTable" msprop:Generator_TableVarName="tableDtVentaDetalle" msprop:Generator_TablePropName="DtVentaDetalle" msprop:Generator_RowDeletingName="DtVentaDetalleRowDeleting" msprop:Generator_RowChangingName="DtVentaDetalleRowChanging" msprop:Generator_RowEvHandlerName="DtVentaDetalleRowChangeEventHandler" msprop:Generator_RowDeletedName="DtVentaDetalleRowDeleted" msprop:Generator_UserTableName="DtVentaDetalle" msprop:Generator_RowChangedName="DtVentaDetalleRowChanged" msprop:Generator_RowEvArgName="DtVentaDetalleRowChangeEvent" msprop:Generator_RowClassName="DtVentaDetalleRow">
+        <xs:element name="DtVentaDetalle" msprop:Generator_TableClassName="DtVentaDetalleDataTable" msprop:Generator_TableVarName="tableDtVentaDetalle" msprop:Generator_RowChangedName="DtVentaDetalleRowChanged" msprop:Generator_TablePropName="DtVentaDetalle" msprop:Generator_RowDeletingName="DtVentaDetalleRowDeleting" msprop:Generator_RowChangingName="DtVentaDetalleRowChanging" msprop:Generator_RowEvHandlerName="DtVentaDetalleRowChangeEventHandler" msprop:Generator_RowDeletedName="DtVentaDetalleRowDeleted" msprop:Generator_RowClassName="DtVentaDetalleRow" msprop:Generator_UserTableName="DtVentaDetalle" msprop:Generator_RowEvArgName="DtVentaDetalleRowChangeEvent">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="Cantidad" msprop:Generator_ColumnVarNameInTable="columnCantidad" msprop:Generator_ColumnPropNameInRow="Cantidad" msprop:Generator_ColumnPropNameInTable="CantidadColumn" msprop:Generator_UserColumnName="Cantidad" type="xs:string" minOccurs="0" />
@@ -256,7 +256,7 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
-        <xs:element name="RepIVAAcreditable" msprop:Generator_TableClassName="RepIVAAcreditableDataTable" msprop:Generator_TableVarName="tableRepIVAAcreditable" msprop:Generator_RowChangedName="RepIVAAcreditableRowChanged" msprop:Generator_TablePropName="RepIVAAcreditable" msprop:Generator_RowDeletingName="RepIVAAcreditableRowDeleting" msprop:Generator_RowChangingName="RepIVAAcreditableRowChanging" msprop:Generator_RowEvHandlerName="RepIVAAcreditableRowChangeEventHandler" msprop:Generator_RowDeletedName="RepIVAAcreditableRowDeleted" msprop:Generator_RowClassName="RepIVAAcreditableRow" msprop:Generator_UserTableName="RepIVAAcreditable" msprop:Generator_RowEvArgName="RepIVAAcreditableRowChangeEvent">
+        <xs:element name="RepIVAAcreditable" msprop:Generator_TableClassName="RepIVAAcreditableDataTable" msprop:Generator_TableVarName="tableRepIVAAcreditable" msprop:Generator_TablePropName="RepIVAAcreditable" msprop:Generator_RowDeletingName="RepIVAAcreditableRowDeleting" msprop:Generator_RowChangingName="RepIVAAcreditableRowChanging" msprop:Generator_RowEvHandlerName="RepIVAAcreditableRowChangeEventHandler" msprop:Generator_RowDeletedName="RepIVAAcreditableRowDeleted" msprop:Generator_UserTableName="RepIVAAcreditable" msprop:Generator_RowChangedName="RepIVAAcreditableRowChanged" msprop:Generator_RowEvArgName="RepIVAAcreditableRowChangeEvent" msprop:Generator_RowClassName="RepIVAAcreditableRow">
           <xs:complexType>
             <xs:sequence>
               <xs:element name="TipoDocto" msprop:Generator_ColumnVarNameInTable="columnTipoDocto" msprop:Generator_ColumnPropNameInRow="TipoDocto" msprop:Generator_ColumnPropNameInTable="TipoDoctoColumn" msprop:Generator_UserColumnName="TipoDocto" type="xs:string" minOccurs="0" />
@@ -294,6 +294,25 @@
             </xs:sequence>
           </xs:complexType>
         </xs:element>
+        <xs:element name="IEPSPorcentaje" msprop:Generator_TableClassName="IEPSPorcentajeDataTable" msprop:Generator_TableVarName="tableIEPSPorcentaje" msprop:Generator_TablePropName="IEPSPorcentaje" msprop:Generator_RowDeletingName="IEPSPorcentajeRowDeleting" msprop:Generator_RowChangingName="IEPSPorcentajeRowChanging" msprop:Generator_RowEvHandlerName="IEPSPorcentajeRowChangeEventHandler" msprop:Generator_RowDeletedName="IEPSPorcentajeRowDeleted" msprop:Generator_UserTableName="IEPSPorcentaje" msprop:Generator_RowChangedName="IEPSPorcentajeRowChanged" msprop:Generator_RowEvArgName="IEPSPorcentajeRowChangeEvent" msprop:Generator_RowClassName="IEPSPorcentajeRow">
+          <xs:complexType>
+            <xs:sequence>
+              <xs:element name="PorcentajeIEPS" msprop:Generator_ColumnVarNameInTable="columnPorcentajeIEPS" msprop:Generator_ColumnPropNameInRow="PorcentajeIEPS" msprop:Generator_ColumnPropNameInTable="PorcentajeIEPSColumn" msprop:Generator_UserColumnName="PorcentajeIEPS" type="xs:string" minOccurs="0" />
+              <xs:element name="Categoria" msprop:Generator_ColumnVarNameInTable="columnCategoria" msprop:Generator_ColumnPropNameInRow="Categoria" msprop:Generator_ColumnPropNameInTable="CategoriaColumn" msprop:Generator_UserColumnName="Categoria" type="xs:string" minOccurs="0" />
+              <xs:element name="IEPS" msprop:Generator_ColumnVarNameInTable="columnIEPS" msprop:Generator_ColumnPropNameInRow="IEPS" msprop:Generator_ColumnPropNameInTable="IEPSColumn" msprop:Generator_UserColumnName="IEPS" type="xs:string" minOccurs="0" />
+              <xs:element name="Base" msprop:Generator_ColumnVarNameInTable="columnBase" msprop:Generator_ColumnPropNameInRow="Base" msprop:Generator_ColumnPropNameInTable="BaseColumn" msprop:Generator_UserColumnName="Base" type="xs:string" minOccurs="0" />
+            </xs:sequence>
+          </xs:complexType>
+        </xs:element>
+        <xs:element name="IVAPorcentaje" msprop:Generator_TableClassName="IVAPorcentajeDataTable" msprop:Generator_TableVarName="tableIVAPorcentaje" msprop:Generator_TablePropName="IVAPorcentaje" msprop:Generator_RowDeletingName="IVAPorcentajeRowDeleting" msprop:Generator_RowChangingName="IVAPorcentajeRowChanging" msprop:Generator_RowEvHandlerName="IVAPorcentajeRowChangeEventHandler" msprop:Generator_RowDeletedName="IVAPorcentajeRowDeleted" msprop:Generator_UserTableName="IVAPorcentaje" msprop:Generator_RowChangedName="IVAPorcentajeRowChanged" msprop:Generator_RowEvArgName="IVAPorcentajeRowChangeEvent" msprop:Generator_RowClassName="IVAPorcentajeRow">
+          <xs:complexType>
+            <xs:sequence>
+              <xs:element name="PorcentajeIVA" msprop:Generator_ColumnVarNameInTable="columnPorcentajeIVA" msprop:Generator_ColumnPropNameInRow="PorcentajeIVA" msprop:Generator_ColumnPropNameInTable="PorcentajeIVAColumn" msprop:Generator_UserColumnName="PorcentajeIVA" type="xs:string" minOccurs="0" />
+              <xs:element name="IVA" msprop:Generator_ColumnVarNameInTable="columnIVA" msprop:Generator_ColumnPropNameInRow="IVA" msprop:Generator_ColumnPropNameInTable="IVAColumn" msprop:Generator_UserColumnName="IVA" type="xs:string" minOccurs="0" />
+              <xs:element name="Base" msprop:Generator_ColumnVarNameInTable="columnBase" msprop:Generator_ColumnPropNameInRow="Base" msprop:Generator_ColumnPropNameInTable="BaseColumn" msprop:Generator_UserColumnName="Base" type="xs:string" minOccurs="0" />
+            </xs:sequence>
+          </xs:complexType>
+        </xs:element>
       </xs:choice>
     </xs:complexType>
   </xs:element>

App_Code/DtDatos.xss

@@ -4,21 +4,23 @@
      Changes to this file may cause incorrect behavior and will be lost if
      the code is regenerated.
 </autogenerated>-->
-<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="7" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
+<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="86" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
   <Shapes>
-    <Shape ID="DesignTable:DataTable1" ZOrder="13" X="511" Y="201" Height="143" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="139" />
+    <Shape ID="DesignTable:DataTable1" ZOrder="15" X="511" Y="201" Height="143" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="139" />
-    <Shape ID="DesignTable:VentaUtilidadDetalle" ZOrder="12" X="679" Y="199" Height="257" Width="187" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
+    <Shape ID="DesignTable:VentaUtilidadDetalle" ZOrder="14" X="679" Y="199" Height="257" Width="187" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
-    <Shape ID="DesignTable:RepClientesCxC" ZOrder="11" X="889" Y="195" Height="257" Width="156" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
+    <Shape ID="DesignTable:RepClientesCxC" ZOrder="13" X="889" Y="195" Height="257" Width="156" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
-    <Shape ID="DesignTable:LibroMayor" ZOrder="10" X="1063" Y="198" Height="353" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="44" SplitterPosition="349" />
+    <Shape ID="DesignTable:LibroMayor" ZOrder="12" X="1063" Y="198" Height="353" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="44" SplitterPosition="349" />
-    <Shape ID="DesignTable:LibroDiario" ZOrder="9" X="1227" Y="199" Height="352" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="348" />
+    <Shape ID="DesignTable:LibroDiario" ZOrder="11" X="1227" Y="199" Height="352" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="348" />
-    <Shape ID="DesignTable:RepBalanzaComprobacion" ZOrder="8" X="4" Y="17" Height="144" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" />
+    <Shape ID="DesignTable:RepBalanzaComprobacion" ZOrder="10" X="4" Y="17" Height="144" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" />
-    <Shape ID="DesignTable:CatPS" ZOrder="7" X="280" Y="289" Height="219" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="24" SplitterPosition="215" />
+    <Shape ID="DesignTable:CatPS" ZOrder="9" X="280" Y="289" Height="219" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="24" SplitterPosition="215" />
-    <Shape ID="DesignTable:RepProveedorCxP" ZOrder="6" X="63" Y="251" Height="238" Width="170" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="234" />
+    <Shape ID="DesignTable:RepProveedorCxP" ZOrder="8" X="63" Y="251" Height="238" Width="170" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="234" />
-    <Shape ID="DesignTable:ResumenNC" ZOrder="5" X="697" Y="496" Height="86" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="82" />
+    <Shape ID="DesignTable:ResumenNC" ZOrder="7" X="697" Y="496" Height="86" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="82" />
-    <Shape ID="DesignTable:ProgramarRecursos" ZOrder="4" X="484" Y="563" Height="257" Width="206" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
+    <Shape ID="DesignTable:ProgramarRecursos" ZOrder="6" X="484" Y="563" Height="257" Width="206" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="253" />
-    <Shape ID="DesignTable:RepIVA" ZOrder="3" X="315" Y="564" Height="295" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="291" />
+    <Shape ID="DesignTable:RepIVA" ZOrder="5" X="315" Y="564" Height="295" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="291" />
-    <Shape ID="DesignTable:DtVentaDetalle" ZOrder="2" X="280" Y="34" Height="219" Width="154" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="215" />
+    <Shape ID="DesignTable:DtVentaDetalle" ZOrder="4" X="280" Y="34" Height="219" Width="154" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="215" />
-    <Shape ID="DesignTable:RepIVAAcreditable" ZOrder="1" X="94" Y="508" Height="256" Width="175" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="252" />
+    <Shape ID="DesignTable:RepIVAAcreditable" ZOrder="3" X="94" Y="508" Height="256" Width="175" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="252" />
+    <Shape ID="DesignTable:IEPSPorcentaje" ZOrder="2" X="700" Y="594" Height="105" Width="152" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="101" />
+    <Shape ID="DesignTable:IVAPorcentaje" ZOrder="1" X="702" Y="709" Height="86" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="82" />
   </Shapes>
   <Connectors />
 </DiagramLayout>

App_Code/Modelos.vb

@@ -4645,7 +4645,7 @@ Namespace Modelos
                                                         Dim TotalCostoAcumulado As Decimal = 0
                                                         Dim cont As Integer = 1
 
-                                                        Dim CvePrePolizaDev As Integer = ObjConta.AddPrePolizas("Inventario/RecepcionEntrega", 4, TotalCosto, TotalCosto, 1, Fecha, ClienteNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                                                        Dim CvePrePolizaDev As Integer = ObjConta.AddPrePolizas("Modelos/RecepcionEntrega", 4, TotalCosto, TotalCosto, 1, Fecha, ClienteNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                                                         'SE AGREGA MOVIMIENTO SEPARADO POR LA CUENTA DE VENTAS (ER)
                                                         For Each RowInv As DataRow In tmpCostos.Rows
                                                             ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundSQL()
@@ -5350,7 +5350,7 @@ Namespace Modelos
             End If
 
 
-            CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardaEstatus", CvePlantillaPoliza, Me.Total, Me.Total, Me.CveMoneda, Now, Me.Cliente.NombreComercial, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+            CvePrePoliza = ObjConta.AddPrePolizas("Modelos/GuardaEstatus", CvePlantillaPoliza, Me.Total, Me.Total, Me.CveMoneda, Now, Me.Cliente.NombreComercial, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
             FacturaDevolucion.CveVenta = CveVenta
             FacturaDevolucion.CvePrePoliza = CvePrePoliza
 

Ashx/SIGWeb.ashx

@@ -620,7 +620,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
 
 
             'verifica existencias
-            If Pagina.Contiene("ventas/ventas", "oc/oc", "inv/traspaso") AndAlso CveEmpresa.Contiene(72, 80, 119, 140, 141, 152) Then
+            If Pagina.Contiene("ventas/ventas", "oc/oc", "inv/traspaso") AndAlso CveEmpresa.Contiene(72, 80, 119, 140, 141, 152, 153) Then
                 UsaGlobal = False
 
                 Dim objInv As New ClsInventarios

Bancos/IE.aspx.vb

@@ -761,7 +761,7 @@ Partial Class Bancos_IE
             End If
 
             InicializaSolicitudAnticipoOC()
-            If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSSINFACT") AndAlso UsuarioActual.CveEmpresa = 119 Then
+            If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSSINFACT") AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
                 RBL.Items.Add(New ListItem("Acreedores Diversos", "AC"))
             End If
 
@@ -974,17 +974,25 @@ Partial Class Bancos_IE
                     LnkEliminar.OnClientClick = "return confirm('¿Está seguro de eliminar el documento y su póliza?');"
 
                     EstaContabilizado = True
+
+                    TxtFechaDocumento.Enabled = False
+                    ImgCalendario.Visible = False
+
+
                 Else
                     BtnContabilizar.Visible = True
                     BtnDescontabilizar.Visible = False
                     HplIrPoliza.Visible = False
-
                     EstaContabilizado = False
+
+                    'TxtFechaDocumento.Enabled = True
+                    'ImgCalendario.Visible = True
+
                 End If
                 UPPDesContabilizar.Update()
 
                 'ImgImprimir.Visible = True
-                LblRegistroFecha.Text = ObjIE.FechaIng.ToShortDateString
+                LblRegistroFecha.Text = ObjIE.FechaIng.ToString
                 LblRegistroUsuario.Text = ObjIE.Usuario
 
                 CveEstatusIE = ObjIE.CveEstatusIE
@@ -2669,8 +2677,8 @@ Partial Class Bancos_IE
 
             Dim FolioFijo As Integer = 0
             Dim tCveMoneda As Integer = DdlMoneda.SelectedValue.ToEntero
-            Dim tImporteMonedaExtranjera As Decimal = 0
+            Dim tImporteMonedaExtranjera As Decimal = TxtImporte.Text.ToDecimal
-            If tCveMoneda <> 1 Then tImporteMonedaExtranjera = TxtImporte.Text.ToDecimal * GlobalTipoCambio(TxtFechaDocumento.Text.Trim.ToDate).ToString.ToDecimal
+            If tCveMoneda <> 1 Then tImporteMonedaExtranjera = (TxtImporte.Text.ToDecimal * GlobalTipoCambio(TxtFechaDocumento.Text.Trim.ToDate).ToString.ToDecimal).RoundSQL
             Dim PagueseA = ""
 
             If HdnCveCliente.Value.ToEntero > 0 Then
@@ -2778,7 +2786,7 @@ Partial Class Bancos_IE
 
                                 Else
                                     If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta) Then
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE:=If(CveIEOtro < 0, CveIE, CveIEOtro), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE:=If(CveIEOtro < 0, CveIE, CveIEOtro), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=tImporteMonedaExtranjera, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario) Then
                                             MsgError = "no se pudo insertar el detalle de la póliza 2"
                                         End If
                                     Else
@@ -3575,7 +3583,10 @@ Partial Class Bancos_IE
 
                                                 importeMovimiento = TxtImporte.Text.ToDecimal
                                                 importeMX = importeMovimiento
-
+                                                If tCveMoneda > 1 Then
+                                                    importeMovimiento = TxtImporte.Text.ToDecimal * TxtTipoCambio.Text.ToDecimal
+                                                    importeMX = importeMovimiento
+                                                End If
 
 
                                             Case 46
@@ -3617,7 +3628,7 @@ Partial Class Bancos_IE
                                 'MOVIMIENTOS EGRESOS
                                 If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
                                     Dim IVA As Decimal = 0 ' TxtImporte.Text.ToDouble * HdnProvPorIVA.Value.ToDouble
-                                    If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, TxtImporte.Text.ToDecimal - IVA - CIF, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DdlIEAcreedor.SelectedValue.ToEntero) Then
+                                    If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, TxtImporte.Text.ToDecimal - IVA - CIF, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=tImporteMonedaExtranjera, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DdlIEAcreedor.SelectedValue.ToEntero) Then
                                         If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, Ref, 19, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
                                             MsgError = "Detalle"
                                         End If

Bancos/PopIECompras.aspx.vb

@@ -1415,6 +1415,12 @@ Partial Class Bancos_PopIECompras
                 CveConcepto2 = 41
                 CveProveedor2 = DdlAcreedor.SelectedValue.ToEntero
                 CveIE = -1
+                'verifica que se halla selccionado algun acreedor
+                If DdlAcreedor.SelectedValue.ToEntero <= 0 Then
+                    Inserta = False
+                    Alert("Debe especificar el Acreedor.", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                End If
             Case "6" 'Ventas
                 ImportePagado = TxtImporte.Text.Trim.ToDecimal
                 CveProveedor2 = CveProveedor
@@ -3312,18 +3318,18 @@ Partial Class Bancos_PopIECompras
                                             ImporteMovimiento = 0
                                     End Select
 
-                                    If ImporteMovimiento <> 0 Then
+                                    If ImporteMovimiento <> 0 AndAlso MsgError = "" Then
                                         'Conta ContPAQ
                                         If IdCtaContable = 0 Then
                                             CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
                                             idCuentaContabilizacion = 0
                                         End If
 
-                                        'Conta SIG
+                                        ''Conta SIG
-                                        If CveCuenta = 0 Then
+                                        'If CveCuenta = 0 Then
-                                            CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
+                                        '    CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
-                                            CveCuentaContabilizacion = 0
+                                        '    CveCuentaContabilizacion = 0
-                                        End If
+                                        'End If
 
                                         If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, If(ConceptoContable = 30, TxtFolio.Text.Trim, TxtObservaciones.Text), ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, -1, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=TimpocambioGeneral, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeImpuesto) Then
                                             MsgError = "No se pudo insertar la póliza"
@@ -3333,7 +3339,7 @@ Partial Class Bancos_PopIECompras
                                 Next
 
 
-                                If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
+                                If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
                                     If ObjMov.ValorPolizaDescuadre > 0 Then
                                         MsgError = ObjMov.MensajePolizaDescuadre
                                         GuardaLogAD($"Bancos/PopIECompras | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")

Compras/CatTipoGasto.aspx.cs

@@ -33,7 +33,7 @@ public partial class Compras_CatTipoGasto : ClsPaginas
     private void CargaDatos()
     {
         ClsCompras ObjCompras = new ClsCompras();
-        if (ObjCompras.GetTipoGasto(-1,UsuarioActual.CveEmpresa))
+        if (ObjCompras.GetTipoGasto(-1, UsuarioActual.CveEmpresa))
         {
             GvDatos.DataSource = ObjCompras.DtResultados;
             GvDatos.DataBind();
@@ -41,6 +41,16 @@ public partial class Compras_CatTipoGasto : ClsPaginas
         ObjCompras.Dispose();
     }
 
+    private void RecargarGlobal()
+    {
+        ClsCompras ObjCompras = new ClsCompras();
+        if (ObjCompras.GetTipoGasto(-1, -1))
+        {
+            set_GlobalDTTiposGastos(UsuarioActual.CveEmpresa, ObjCompras.DtResultados);
+        }
+        ObjCompras.Dispose();
+    }
+
     protected void BtnAgregarTipoGastoD_Click(object sender, EventArgs e)
     {
         BtnAgregarTipoGasto.Text = "Agregar";
@@ -74,6 +84,7 @@ public partial class Compras_CatTipoGasto : ClsPaginas
             Alert("Se eliminó el Tipo de Gasto correctamente");
         }
         ObjCompras.Dispose();
+        RecargarGlobal();
     }
 
     protected void BtnAgregarTipoGasto_Click(object sender, EventArgs e)
@@ -82,22 +93,21 @@ public partial class Compras_CatTipoGasto : ClsPaginas
         if (BtnAgregarTipoGasto.Text == "Agregar")
         {
             if (ObjCompras.AddTipoGasto(TxtTipoGasto.Text,ChkEstatus.Checked,DateTime.Now.ToString(),UsuarioActual.CveUsuario,UsuarioActual.CveEmpresa))
-            {
+            {   
-                CargaDatos();
-                UpDatos.Update();
-                RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"));
                 Alert("Se agregó el Tipo de Gasto correctamente");
             }
-        }else
+        }
+        else
         {
-            if (ObjCompras.UpdateTipoGasto(CveTipoGasto,TxtTipoGasto.Text,ChkEstatus.Checked,-1,-1))
+            if (ObjCompras.UpdateTipoGasto(CveTipoGasto, TxtTipoGasto.Text, ChkEstatus.Checked, -1, -1))
             {
-                CargaDatos();
-                UpDatos.Update();
-                RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"));
                 Alert("Se actualizó el Tipo de Gasto correctamente");
             }
         }
         ObjCompras.Dispose();
+        CargaDatos();
+        RecargarGlobal();
+        UpDatos.Update();
+        RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"));
     }
 }

Compras/Compras.aspx

@@ -3903,7 +3903,7 @@
                                     <asp:ListItem Value="3">Créditos</asp:ListItem>
                                     <asp:ListItem Value="5">Acreedores</asp:ListItem>
                                     <asp:ListItem Value="6">Caja Chica</asp:ListItem>
-                                    <asp:ListItem Value="2">Viaticos</asp:ListItem>
+                                    <asp:ListItem Value="2">Viáticos</asp:ListItem>
                                     <asp:ListItem Value="4">Deudores</asp:ListItem>
                                 </asp:RadioButtonList>
                             </asp:Panel>
@@ -3911,7 +3911,7 @@
 
                         <br />
                         <div style="text-align:center">
-                            <asp:CheckBox runat="server" ID="ChkCreditoMultiple" AutoPostBack="true" Text="Multiple Crédito" />
+                            <asp:CheckBox runat="server" ID="ChkCreditoMultiple" AutoPostBack="true" Text=" Múltiple Crédito" />
                         </div>
 
                         <br />
@@ -3971,7 +3971,7 @@
                         </div>
 
                         <div runat="server" id="DivContado">
-                            <asp:Panel ID="PnlContadoBancos" CssClass="chequesie text-small" runat="server" Width="470px" Visible="true">
+                            <asp:Panel ID="PnlContadoBancos" CssClass="text-small" runat="server" Width="85%" Style="position:relative;margin:auto" Visible="true">
                                 <div class="chequesie1">
                                     <div class="row">
                                         <div class="col-md-2" style="width: 25%; text-align: left">
@@ -4000,7 +4000,7 @@
                                         </div>
                                     </div>
                                 </div>
-                                <div class="chequesie2">
+                                <div class="chequesie2" style="height:100%">
                                     <div class="row">
                                         <label class="col-md-2" style="width: 25%; padding-left: 20px; text-align: left">
                                             <asp:Label ID="LblFolio" runat="server" Text="Número:"></asp:Label></label>
@@ -4029,11 +4029,12 @@
                                             <asp:TextBox ID="TxtDocumentoObservaciones" CssClass="form-control input-sm" runat="server" MaxLength="12" Width="97%" Rows="3" TextMode="MultiLine"></asp:TextBox>
                                         </div>
                                     </div>
+                                    <br />
                                 </div>
 
                             </asp:Panel>
 
-                            <asp:Panel ID="PnlContadoCajaChica" CssClass="chequesie text-small" runat="server" Width="400px" Visible="False">
+                            <asp:Panel ID="PnlContadoCajaChica" CssClass="text-small" runat="server" Width="85%" Style="position:relative;margin:auto" Visible="False">
                                 <div class="chequesie1">
                                     <div class="row">
                                         <label class="col-md-2">Movimiento:</label>
@@ -4052,7 +4053,7 @@
                                         </div>
                                     </div>
                                 </div>
-                                <div class="chequesie2">
+                                <div class="chequesie2" style="height:100%">
                                     <div class="row">
                                         <label class="col-md-2">
                                             <asp:Label ID="Label5" runat="server" Text="Número:"></asp:Label></label>
@@ -4070,16 +4071,18 @@
                                             <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender10" runat="server" HighlightCssClass="vco" TargetControlID="RVDocumentoImporteCaja" Width="350px"></ajax:ValidatorCalloutExtender>
                                         </div>
                                     </div>
+                                    <br />
                                     <div class="row">
                                         <label class="col-md-2">Observaciones:</label>
                                         <div class="col-md-8">
-                                            <asp:TextBox ID="TxtDocumentoObservacionesCaja" CssClass="form-control input-sm" runat="server" MaxLength="12" Width="250px" Rows="3" TextMode="MultiLine"></asp:TextBox>
+                                            <asp:TextBox ID="TxtDocumentoObservacionesCaja" CssClass="form-control input-sm" runat="server" MaxLength="12" Width="326px" Rows="3" TextMode="MultiLine"></asp:TextBox>
                                         </div>
                                     </div>
+                                    <br />
                                 </div>
                             </asp:Panel>
 
-                            <asp:Panel ID="PnlContadoFyE" CssClass="chequesie text-small" runat="server" Width="400px" Visible="False">
+                            <asp:Panel ID="PnlContadoFyE" CssClass="text-small" runat="server" Width="85%" Style="position:relative;margin:auto" Visible="False">
                                 <div class="chequesie1">
                                     <div class="row">
                                         <label class="col-md-2">Funcionario Empleado:</label>
@@ -4105,7 +4108,7 @@
                                         </div>
                                     </div>
                                 </div>
-                                <div class="chequesie2">
+                                <div class="chequesie2" style="height:100%">
                                     <div class="row">
                                         <div class="row">
                                             <label class="col-md-2"></label>
@@ -4119,15 +4122,17 @@
                                                 <ajax:ValidatorCalloutExtender ID="VCEDocumentoImporteFE" runat="server" HighlightCssClass="vco" TargetControlID="RVDocumentoImporteFE" Width="350px"></ajax:ValidatorCalloutExtender>
                                             </div>
                                         </div>
+                                        <br />
                                         <label class="col-md-2">Observaciones:</label>
                                         <div class="col-md-8">
-                                            <asp:TextBox ID="TextBox3" runat="server" CssClass="form-control input-sm" MaxLength="12" Width="250px" Rows="3" TextMode="MultiLine"></asp:TextBox>
+                                            <asp:TextBox ID="TextBox3" runat="server" CssClass="form-control input-sm" MaxLength="12" Width="331px" Rows="3" TextMode="MultiLine"></asp:TextBox>
                                         </div>
                                     </div>
+                                    <br />
                                 </div>
                             </asp:Panel>
 
-                            <asp:Panel ID="PnlContadoDeudores" Width="400px" runat="server" Visible="False">
+                            <asp:Panel ID="PnlContadoDeudores" Width="84%" Style="position:relative;margin:auto" runat="server" Visible="False">
 
                                 <asp:RadioButtonList ID="RBLTipoDeudor" runat="server" RepeatDirection="Horizontal" AutoPostBack="true">
                                     <asp:ListItem Value="1" Selected="True">D.D</asp:ListItem>
@@ -4235,7 +4240,7 @@
                             </asp:Panel>
 
 
-                            <asp:Panel ID="PnlContadoCreditos" CssClass="chequesie text-small" runat="server" Width="400px" Visible="true">
+                            <asp:Panel ID="PnlContadoCreditos" CssClass="text-small" runat="server" Width="85%" Style="position:relative;margin:auto" Visible="true">
                                 <div class="chequesie1">
                                     <div class="row">
                                         <label class="col-md-2">Tipo</label>
@@ -4267,10 +4272,11 @@
                                             <ajax:ValidatorCalloutExtender ID="VCECreditoDetalle" runat="server" HighlightCssClass="vco" TargetControlID="RFVCreditoDetalle" Width="300px"></ajax:ValidatorCalloutExtender>
                                         </div>
                                     </div>
+                                    <br />
                                 </div>
                             </asp:Panel>
 
-                            <asp:Panel ID="PnlContadoAcreedores" CssClass="chequesie text-small" runat="server" Width="400px" Visible="False">
+                            <asp:Panel ID="PnlContadoAcreedores" CssClass="text-small" runat="server" Width="85%" Style="position:relative;margin:auto" Visible="False">
                                 <div class="chequesie1">
                                     <div class="row">
                                         <label class="col-md-2">Acreedor:</label>
@@ -4295,7 +4301,7 @@
                                         </div>
                                     </div>
                                 </div>
-                                <div class="chequesie2">
+                                <div class="chequesie2" style="height:100%">
                                     <div class="row">
                                         <label class="col-md-2"></label>
                                         <div class="col-md-4"></div>
@@ -4308,6 +4314,7 @@
                                             <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="RVContadoAcreedor" Width="350px"></ajax:ValidatorCalloutExtender>
                                         </div>
                                     </div>
+                                    <br />
                                 </div>
                             </asp:Panel>
                         </div>

Compras/Compras.aspx.vb

@@ -1332,6 +1332,10 @@ Partial Class Compras_Compras
 
                     End If
 
+                    If DdlTipoComprobante.SelectedValue = "DEV" Then
+                        InicializaAplicaNCFact()
+                    End If
+
 
 
                     If UsuarioActual.Empresa.UsaAC Then
@@ -12838,6 +12842,7 @@ Partial Class Compras_Compras
 
     End Sub
     Protected Sub RBLContado_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLContado.SelectedIndexChanged
+        LblCheq.Text = RBLContado.SelectedItem.Text
         CargaContado()
     End Sub
     Private Sub RBLTipoDeudor_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLTipoDeudor.SelectedIndexChanged
@@ -16929,8 +16934,9 @@ Partial Class Compras_Compras
         CargaRetISRConcepto()
 
 
-
+        If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
-
+            InicializaAplicaNCFact()
+        End If
 
     End Sub
     Private Sub OriginalesVisible(Accion As Boolean)
@@ -18001,8 +18007,13 @@ Partial Class Compras_Compras
     Private Sub ReclasificaSubProyecto()
 
         If Not GvPS.Rows.Count > 0 Then
-            Alert("No hay partidas para reclasificar el SubProyecto", TipoMensaje.MsgAdvertencia)
+
-            Exit Sub
+            If CveCompra <> Nothing And CveCompra > 0 Then
+                Alert("No hay partidas para reclasificar el SubProyecto", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+
         End If
 
         If Not DdlAsignaSubProyecto.SelectedValue.ToEntero > 0 Then

Compras/Proveedores.aspx

@@ -824,6 +824,17 @@
                                 <asp:Button ID="BtnCargarCuentas" runat="server" ClientIDMode="Static" Text="CargaCuentas" Style="display: none;" />
                                 <asp:HiddenField ID="HdnCuenta" runat="server" ClientIDMode="Static" Value="0" />
 
+                                                <div id="divCuentas" runat="server" visible="false">
+                                                         
+                                                            <asp:GridView ID="GvCta" runat="server" DataKeyNames="ConceptoContable,NombreCuenta" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style="text-align: center;  width: 100%;" GridLines="None">
+                                                                <Columns>
+                                                                    <asp:BoundField HeaderText="Concepto Contable" DataField="ConceptoContable" />
+                                                                    <asp:BoundField HeaderText="Nombre Cuenta" DataField="NombreCuenta" />
+                                                                </Columns>
+                                                            </asp:GridView>
+                                                         
+                                                </div>
+                                <div id="divCuentasContp" runat="server" visible="false">
                                 <table>
                                     <tr>
                                         <td>
@@ -1149,7 +1160,7 @@
                                         </td>
                                     </tr>
                                 </table>
-
+                                </div>
                             </ContentTemplate>
                         </asp:UpdatePanel>
 

Compras/Proveedores.aspx.vb

@@ -852,6 +852,15 @@ Partial Class Compras_Proveedores
                 DdlDIOTPais.SelectedValueExist(ObjProveedor.DIOTCvePais)
                 TxtDIOTNacionalidad.Text = ObjProveedor.DIOTNacionalidad
 
+                If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
+                    CargaCuentasConceptos()
+                    divCuentas.Visible = True
+                    divCuentasContp.Visible = False
+                Else
+                    divCuentas.Visible = False
+                    divCuentasContp.Visible = True
+                End If
+
                 'Contable
                 If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaContabilidadSIG Then
                     DdlCtaContAcreedores.AutoPostBack = True
@@ -1010,6 +1019,16 @@ Partial Class Compras_Proveedores
         DdlUsuarioEvaluador.DataBind()
     End Sub
 
+    Private Sub CargaCuentasConceptos()
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.GetCuentasConceptos(1, UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) Then
+            GvCta.DataSource = ObjConta.DtResultados
+        End If
+        ObjConta.Dispose()
+        GvCta.DataBind()
+
+    End Sub
+
     Private Sub CargaContactos(ByRef ObjProveedor As ClsCompProveedores)
         'TRAE CONTACTOS GENERALES Y POR SUCURSAL
         If ObjProveedor.GetProveedoresContactos(-1, CveProveedor, -1) Then

Compras/RepComprasDetalle.aspx

@@ -401,6 +401,15 @@
                             <asp:Literal ID="LtlFechaInv" runat="server" Text='<%# Eval("FechaInv", "{0:d}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <asp:TemplateField ItemStyle-Width="60">
+                        <HeaderTemplate>
+                            Observaciones
+                       
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlObs" runat="server" Text='<%# Eval("Observaciones") %>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
                 </Columns>
             </asp:GridView>
         </ContentTemplate>
@@ -464,24 +473,29 @@
                                         <asp:CheckBox ID="ChkIVA" runat="server" Text="IVA" /></td>
                                     <td>
                                         <asp:CheckBox ID="ChkIEPS" runat="server" Text="IEPS" /></td>
+                                    <td>
+                                        <asp:CheckBox ID="ChkObs" runat="server" Text="Observaciones"/></td>
                                 </tr>
                                 <tr>
                                     <td>
                                         <asp:CheckBox ID="ChkDesc" runat="server" Text="Descuentos" /></td>
                                     <td>
                                         <asp:CheckBox ID="ChkTotal" runat="server" Text="Total" /></td>
+                                    <td></td>
                                 </tr>
                                 <tr>
                                     <td>
                                         <asp:CheckBox ID="ChkAbre" runat="server" Text="Moneda" /></td>
                                     <td>
                                         <asp:CheckBox ID="ChkRazon" runat="server" Text="Proveedor" /></td>
+                                    <td></td>
                                 </tr>
                                 <tr>
                                     <td>
                                         <asp:CheckBox ID="ChkFolio" runat="server" Text="Folio Inv" /></td>
                                     <td>
                                         <asp:CheckBox ID="ChkFecha" runat="server" Text="Fecha Movimiento" /></td>
+                                    <td></td>
                                 </tr>
                             </table>
                         </div>

Compras/RepComprasDetalle.aspx.vb

@@ -168,6 +168,7 @@ Partial Class Compras_RepComprasDetalle
         ChkRazon.Checked = True
         ChkFolio.Checked = True
         ChkFecha.Checked = True
+        ChkObs.Checked = True
 
     End Sub
 
@@ -597,54 +598,15 @@ Partial Class Compras_RepComprasDetalle
 #End Region
 
     Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
-        If ChkIVA.Checked Then
+        GvDatos.Columns(4).Visible = ChkIVA.Checked
-            GvDatos.Columns(4).Visible = True
+        GvDatos.Columns(5).Visible = ChkIEPS.Checked
-        Else
+        GvDatos.Columns(6).Visible = ChkDesc.Checked
-            GvDatos.Columns(4).Visible = False
+        GvDatos.Columns(7).Visible = ChkTotal.Checked
-        End If
+        GvDatos.Columns(8).Visible = ChkAbre.Checked
-
+        GvDatos.Columns(9).Visible = ChkRazon.Checked
-        If ChkIEPS.Checked Then
+        GvDatos.Columns(10).Visible = ChkFolio.Checked
-            GvDatos.Columns(5).Visible = True
+        GvDatos.Columns(11).Visible = ChkFecha.Checked
-        Else
+        GvDatos.Columns(12).Visible = ChkObs.Checked
-            GvDatos.Columns(5).Visible = False
-        End If
-
-        If ChkDesc.Checked Then
-            GvDatos.Columns(6).Visible = True
-        Else
-            GvDatos.Columns(6).Visible = False
-        End If
-
-        If ChkTotal.Checked Then
-            GvDatos.Columns(7).Visible = True
-        Else
-            GvDatos.Columns(7).Visible = False
-        End If
-
-        If ChkAbre.Checked Then
-            GvDatos.Columns(8).Visible = True
-        Else
-            GvDatos.Columns(8).Visible = False
-        End If
-
-        If ChkRazon.Checked Then
-            GvDatos.Columns(9).Visible = True
-        Else
-            GvDatos.Columns(9).Visible = False
-        End If
-
-        If ChkFolio.Checked Then
-            GvDatos.Columns(10).Visible = True
-        Else
-            GvDatos.Columns(10).Visible = False
-        End If
-
-        If ChkFecha.Checked Then
-            GvDatos.Columns(11).Visible = True
-        Else
-            GvDatos.Columns(11).Visible = False
-        End If
-
         UPDatos.Update()
     End Sub
 

Compras/eFacturas.aspx

@@ -66,6 +66,9 @@
             <li>
                 <asp:LinkButton ID="LnkBitacotaFacturas" runat="server" OnClick="LnkBitacotaFacturas_Click"><i class="fa fa-book"    ></i> Bitácora Facturas</asp:LinkButton>
             </li>
+              <li>
+                <asp:LinkButton ID="LnkVinculacionMasivaComplementos" runat="server" OnClick="LnkVinculacionMasivaComplementos_Click" Visible ="true" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea realizar la vinculación masiva de complementos?" data-btn-ok-label="si"><i class="fa fa-tasks" ></i> Vinculación Masiva Complementos</asp:LinkButton>
+            </li>
         </ContentTemplate>
         <Triggers>
             <asp:PostBackTrigger  ControlID="LnkPdf"/>
@@ -374,7 +377,7 @@
                                             <div>
                                                 <asp:LinkButton ID="LnkOP" runat="server" AlternateText="Omitir" ToolTip="Omitir Factura" CommandArgument='<%# Eval("CveFactura") %>' Visible='<%# Eval("CveCompra").ToString = "" AndAlso Eval("CveFactura").ToString <> "" AndAlso Eval("FueValidado").ToString <> "3"  %>'
                                                     CssClass="btn btn-circle btn-sm grey-cascade" CausesValidation="False" CommandName="Omitir" OnClientClick="javascript:return confirm('¿Está seguro que desea omitir la factura?');">
-                                    <i class='fa fa-eye-slash fa-2x'></i>
+                                                    <i class='fa fa-eye-slash fa-2x'></i>
                                                 </asp:LinkButton>
                                             </div>
                                         </ItemTemplate>

Compras/eFacturas.aspx.vb

@@ -2770,23 +2770,7 @@ Partial Class Compras_eFacturas
                 Next
             Next
 
-            'ImportePago
-            'For Each node As XmlNode In nodePago
 
-            '    Dim Nrow As DataRow = DTDocumentosRelacionados.NewRow
-
-            '    Nrow("Serie") = ValorXML(node, "Serie")
-            '    Nrow("Folio") = ValorXML(node, "Folio").ToEntero
-            '    Nrow("SerieFolio") = ValorXML(node, "Serie") & "-" & ValorXML(node, "Folio").ToEntero
-            '    Nrow("IdDocumento") = ValorXML(node, "IdDocumento")
-            '    Nrow("MonedaDR") = ValorXML(node, "MonedaDR")
-            '    Nrow("MetodoDePagoDR") = ValorXML(node, "MetodoDePagoDR")
-            '    Nrow("ImpPagado") = ValorXML(node, "ImpPagado").ToDecimal
-            '    Nrow("Fecha") = FechaPago
-
-            '    DTDocumentosRelacionados.Rows.Add(Nrow)
-            '    StrUUID.AppendFormat("'{0}',", ValorXML(node, "IdDocumento").Replace("'", ""))
-            'Next
 
             Dim ObjCompraFolios As New ClsCompras
             If ObjCompraFolios.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, nodePagos2.InnerXml.Replace("pago10:", ""), UsuarioActual.CveEmpresa, OP:=2) Then
@@ -3031,12 +3015,10 @@ Partial Class Compras_eFacturas
 
             If HdnCveIE.Value.ToEntero > 0 Then
 
-
                 For Each dRow As DataRow In DT_ComprasSinIE.Rows
                     objEventos.AddEventoBitacora($"Complemento { dRow("SerieFolioPago").ToString }  vinculado manualmente  a compra {dRow("SerieFolioCompra").ToString}", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=dRow("CveCompra").ToString.ToEntero)
                 Next
 
-
             End If
 
 
@@ -3452,4 +3434,361 @@ Partial Class Compras_eFacturas
             Alert("no se pudo procesar el archivo xml")
         End If
     End Sub
+
+
+    Private Sub VinculacionMasivaComplementos()
+
+        Dim CountVinculados As Integer = 0
+        Dim ValidadoSAT As Boolean = False
+        Dim VinculacionValida As Boolean = False
+
+        For Each gvRow As GridViewRow In GvPagos.Rows
+
+            Dim DTDocumentosRelacionados As New DataTable
+            Dim DTVinculacion As New DataTable
+
+            Dim ObjValidacion As New ClsValidaCFDi(gvRow.DataKey("UUID"), gvRow.DataKey("RFCDe"), gvRow.DataKey("RFCPara"), 0)
+
+            If ObjValidacion.EsValida > 0 Then
+
+                If ObjValidacion.EsValida = 2 Then
+                    ValidadoSAT = False
+                Else
+                    Dim ObjDatos As New ClsCompras
+                    ValidadoSAT = ObjDatos.UpdateEstatus(ObjValidacion.EsValida, gvRow.DataKey("CveFactura").ToEntero)
+                    ObjDatos.Dispose()
+                End If
+
+            Else
+                ValidadoSAT = False
+            End If
+            ObjValidacion.Dispose()
+
+            If Not ValidadoSAT Then
+                Continue For
+            End If
+
+            Dim sbSinIE As New StringBuilder
+
+            HdnCveIE.Value = ""
+            MSGComplemento = ""
+            ViculacionConPUE = False
+            ListaComprasPUE.Clear()
+            ComplementoConPUE = ""
+
+            DT_ComprasSinIE = New DataTable
+
+            Dim ListaComprasPUEInterna As New List(Of Integer)
+
+            Dim CveComplementoPagoCompra As Integer = gvRow.DataKey("CveComplementoPagoCompra").ToString.ToEntero
+
+            If CveComplementoPagoCompra > 0 Then
+                Continue For
+            End If
+
+            Dim SerieFolioIE As String = ""
+            Dim UUIDPago As String = ""
+            'Dim ImportePago As Decimal = 0
+            Dim StrUUID As New StringBuilder
+            Dim Monto As Decimal = 0
+            Dim nodePagos As XmlNode = Nothing
+            Dim nodePagos2 As XmlNode = Nothing
+            Dim nodeComp As XmlNode = Nothing
+            Dim nodeaGral As XmlNode = Nothing
+            Dim nodeTFD As XmlNode = Nothing
+            Dim ImporteIES As Double = 0
+            Dim DiferenciaImportes As Double = 0
+            Dim TextoDiferenciaImporte As String = ""
+            Dim FechaPago As Date
+            Dim PagosCantidad As Integer = 0
+
+
+
+            Dim XMLDoc As New XmlDocument
+            Dim Archivo As String = String.Format("{0}Empresas\{1}\Compras\{2}\{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, gvRow.DataKey("RFCDe"), gvRow.DataKey("XML"))
+            If IO.File.Exists(Archivo) Then
+
+
+                Dim SXML As String = File.ReadAllText(Archivo).Replace(vbLf, " ").Replace(vbCrLf, " ")
+
+                SXML = SXML.Trim((Convert.ToChar(0)))
+
+                XMLDoc.LoadXml(SXML)
+
+                Dim Xml As New StringBuilder
+                Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable)
+
+                namespaces.AddNamespace(XMLDoc.DocumentElement.Prefix, "http://www.sat.gob.mx/cfd/3")
+                namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
+                namespaces.AddNamespace("pago10", "http://www.sat.gob.mx/Pagos")
+                nodeComp = XMLDoc.SelectSingleNode(String.Format("//{0}:Complemento", XMLDoc.DocumentElement.Prefix), namespaces)
+
+                nodeaGral = XMLDoc.SelectSingleNode(String.Format("//{0}:Comprobante", XMLDoc.DocumentElement.Prefix), namespaces)
+
+                nodeTFD = nodeComp.SelectSingleNode(String.Format("//{0}:TimbreFiscalDigital", "tfd"), namespaces)
+                nodePagos = nodeComp.SelectSingleNode(String.Format("//{0}:Pagos/{0}:Pago", "pago10"), namespaces)
+                nodePagos2 = nodeComp.SelectSingleNode(String.Format("//{0}:Pagos", "pago10"), namespaces)
+                'Monto = ValorXML(nodePagos, "Monto").ToDecimal
+
+                Dim nodePago As XmlNodeList = nodePagos.SelectNodes(String.Format("//{0}:DoctoRelacionado", "pago10"), namespaces)
+
+                SeriePago = ValorXML(nodeaGral, "Serie")
+                FolioPago = ValorXML(nodeaGral, "Folio")
+
+                UUIDPago = ValorXML(nodeTFD, "UUID")
+                LblUUID.Text = UUIDPago
+
+
+                DTDocumentosRelacionados.Columns.Add("Serie")
+                DTDocumentosRelacionados.Columns.Add("SerieFolio")
+
+                DTDocumentosRelacionados.Columns.Add("IdDocumento")
+                DTDocumentosRelacionados.Columns.Add("Folio", GetType(Integer))
+                DTDocumentosRelacionados.Columns.Add("MonedaDR")
+                DTDocumentosRelacionados.Columns.Add("MetodoDePagoDR")
+                DTDocumentosRelacionados.Columns.Add("ImpPagado", GetType(Decimal))
+
+                DTDocumentosRelacionados.Columns.Add("CveFactura", GetType(Integer))
+                DTDocumentosRelacionados.Columns.Add("CveCompra", GetType(Integer))
+                DTDocumentosRelacionados.Columns.Add("CveIE", GetType(Integer))
+                DTDocumentosRelacionados.Columns.Add("Fecha", GetType(Date))
+
+                DTDocumentosRelacionados.Columns.Add("FolioPago")
+                DTDocumentosRelacionados.Columns.Add("ImportePago", GetType(Decimal))
+                DTDocumentosRelacionados.Columns.Add("FechaPago", GetType(Date))
+                DTDocumentosRelacionados.Columns.Add("CveMetodoPago", GetType(Integer))
+                DTDocumentosRelacionados.Columns.Add("SerieFolioCompra")
+
+
+
+                Dim nodePagosN As XmlNodeList
+                nodePagosN = nodeComp.SelectNodes(String.Format("//{0}:Pagos", "pago10"), namespaces)
+
+
+
+                For Each NodosPagos As XmlNode In nodePagosN
+                    For Each innernode As XmlNode In NodosPagos
+
+                        FechaPago = ValorXML(innernode, "FechaPago").ToDate
+                        PagosCantidad = PagosCantidad + 1
+
+                        For Each node As XmlNode In innernode
+
+                            Dim Nrow As DataRow = DTDocumentosRelacionados.NewRow
+
+                            Nrow("Serie") = ValorXML(node, "Serie")
+                            Nrow("Folio") = ValorXML(node, "Folio").ToEntero
+                            Nrow("SerieFolio") = ValorXML(node, "Serie") & "-" & ValorXML(node, "Folio").ToEntero
+                            Nrow("IdDocumento") = ValorXML(node, "IdDocumento")
+                            Nrow("MonedaDR") = ValorXML(node, "MonedaDR")
+                            Nrow("MetodoDePagoDR") = ValorXML(node, "MetodoDePagoDR")
+
+                            Monto = Monto + ValorXML(node, "ImpPagado").ToDecimal
+
+                            Nrow("ImpPagado") = ValorXML(node, "ImpPagado").ToDecimal
+                            Nrow("Fecha") = FechaPago
+
+                            DTDocumentosRelacionados.Rows.Add(Nrow)
+                            StrUUID.AppendFormat("'{0}',", ValorXML(node, "IdDocumento").Replace("'", ""))
+                        Next
+
+                    Next
+                Next
+
+
+
+                Dim ObjCompraFolios As New ClsCompras
+                If ObjCompraFolios.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, nodePagos2.InnerXml.Replace("pago10:", ""), UsuarioActual.CveEmpresa, OP:=2) Then
+                    '
+                    '.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, nodePagos2.InnerXml.Replace("pago10:", ""), UsuarioActual.CveEmpresa) Then
+                    If ObjCompraFolios.DtResultados.Rows.Count > 0 Then
+                        For Each drow As DataRow In ObjCompraFolios.DtResultados.Rows
+
+                            For Each dRow2 As DataRow In DTDocumentosRelacionados.Rows
+
+                                If dRow2("IdDocumento").ToString.ToUpper = drow("IdDocumento").ToString.ToUpper Then
+
+                                    dRow2("CveCompra") = drow("CveCompra").ToString.ToEntero
+                                    dRow2("CveFactura") = drow("CveFactura").ToString.ToEntero
+                                    dRow2("CveMetodoPago") = drow("CveMetodoPago").ToString.ToEntero
+                                    dRow2("SerieFolioCompra") = drow("SerieFolioCompra").ToString
+
+
+                                    If drow("CveIE").ToString.ToEntero > 0 Then
+
+                                        dRow2("CveIE") = drow("CveIE").ToString.ToEntero
+                                        dRow2("ImportePago") = drow("Importe").ToString.ToDecimal
+
+
+                                    End If
+
+                                    dRow2("FolioPago") = drow("FolioIE")
+                                    dRow2("FechaPago") = drow("FechaDocumento")
+
+
+
+
+                                End If
+                            Next
+                        Next
+                    End If
+                End If
+
+                ObjCompraFolios.Dispose()
+
+                'GVPDocumentosRelacionadosPagos.DataSource = DTDocumentosRelacionados
+                'GVPDocumentosRelacionadosPagos.DataBind()
+
+
+                For Each dRow2 As DataRow In DTDocumentosRelacionados.Rows
+                    If dRow2("CveMetodoPago").ToString.ToEntero > 0 Then
+                        If dRow2("CveMetodoPago").ToString.ToEntero = 1 Then
+                            MSGComplemento = MSGComplemento & $" Compra {dRow2("SerieFolioCompra").ToString  } bloqueado Tipo ""PUE"". "
+
+                            ListaComprasPUEInterna.Add(dRow2("CveCompra").ToString.ToEntero)
+
+                            ComplementoConPUE = $"{SeriePago}-{FolioPago}"
+
+                        End If
+                    End If
+                Next
+
+
+                DT_ComprasSinIE.Columns.Add("CveCompra", GetType(Integer))
+                DT_ComprasSinIE.Columns.Add("CveFactura", GetType(Integer))
+                DT_ComprasSinIE.Columns.Add("SerieFolioPago")
+                DT_ComprasSinIE.Columns.Add("SerieFolioCompra")
+
+                For Each dRow As DataRow In DTDocumentosRelacionados.Rows
+                    Dim nRow As DataRow = DT_ComprasSinIE.NewRow
+                    nRow("CveCompra") = dRow("CveCompra").ToString.ToEntero
+                    ' nRow("CveFactura") = dRow("CveFactura").ToString.ToEntero
+                    nRow("SerieFolioPago") = $"{SeriePago}-{FolioPago}"
+                    nRow("SerieFolioCompra") = dRow("SerieFolioCompra").ToString
+
+                    DT_ComprasSinIE.Rows.Add(nRow)
+
+
+                Next
+
+
+
+            Else
+                VinculacionValida = False
+            End If
+
+            CveFacturaPago = gvRow.DataKey("CveFactura").ToEntero
+            CveProveedor = gvRow.DataKey("CveProveedor").ToEntero
+            Dim ObjCompras As New ClsCompras
+
+
+            Dim TieneRegistros As Boolean = False
+
+            If ObjCompras.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, nodePagos2.InnerXml.Replace("pago10:", ""), UsuarioActual.CveEmpresa) Then
+                ' GvVincularPago.DataSource = ObjCompras.DtResultados
+                DTVinculacion = ObjCompras.DtResultados
+                If ObjCompras.DtResultados.Rows.Count > 0 Then
+                    SerieFolioIE = ObjCompras.DtResultados.Rows(0)("SerieFolio").ToString
+                    'DivVincularPagoManualmente.Visible = False
+                    VinculacionValida = True
+                    TieneRegistros = True
+                Else
+                    'DivVincularPagoManualmente.Visible = True
+                    VinculacionValida = False
+                End If
+                'ImportePago = ObjCompras.DtResultados.SUMD("Monto")
+            Else
+                'DivVincularPagoManualmente.Visible = False
+                VinculacionValida = False
+            End If
+
+
+            For Each dRow As DataRow In DTDocumentosRelacionados.Rows
+
+                Dim FechaDocumento As Date = dRow("FechaPago").ToString.ToDate
+                Dim FechaDoRecibo As Date = dRow("Fecha").ToString.ToDate
+                Dim CveIEDocumento As Integer = dRow("CveIE").ToString.ToEntero
+
+                If CveIEDocumento > 0 And FechaDocumento > New Date(1, 1, 1) Then
+
+                    Dim FT1 As Date = FechaDocumento
+
+                    If FechaDocumento <> New Date(1, 1, 1) Then
+                        FT1 = FechaDocumento.AddDays(-6)
+                    End If
+
+                    Dim FT2 As Date = FechaDocumento.AddDays(7)
+
+                    If Not (FechaDoRecibo >= FT1 And FechaDoRecibo < FT2) Then
+
+                        VinculacionValida = False
+                        'MSGComplemento = MSGComplemento & " Existen mas de 3 días de diferencia entre la fecha del documento y la fecha de complemento. "
+                        Exit For
+
+                    End If
+
+                End If
+
+            Next
+
+            ObjCompras.Dispose()
+
+
+
+            If VinculacionValida Then
+
+                Dim TieneError = False
+                Dim ObjCompra As New ClsCompras
+                ObjCompra.IniciaTransacSQL()
+
+
+                For Each DTRow As DataRow In DTVinculacion.Rows
+
+                    If Not ObjCompra.AddComplementoPago(DTRow("CveIE").ToString.ToEntero, DTRow("CveCompra").ToString.ToEntero, DTRow("Monto").ToString.ToDecimal, DTRow("CvePrePolizaDetalle").ToString.ToEntero, CveFacturaPago) > 0 Then
+                        TieneError = True
+                    End If
+
+
+                Next
+
+                If Not TieneError AndAlso Not ObjCompra.AddVincularPago(CveFacturaPago) Then
+                    TieneError = True
+                Else
+                    CountVinculados = CountVinculados + 1
+                End If
+
+
+                If Not TieneError Then
+                    ObjCompra.Commit()
+                Else
+                    ObjCompra.RollBack()
+                End If
+
+                ObjCompra.Dispose()
+
+
+
+            End If
+
+
+        Next
+
+
+        If CountVinculados > 0 Then
+
+            Alert($"Se vincularon {CountVinculados} complementos")
+            CargaDatos()
+
+        End If
+
+
+
+    End Sub
+
+
+    Protected Sub LnkVinculacionMasivaComplementos_Click(sender As Object, e As EventArgs)
+        VinculacionMasivaComplementos()
+    End Sub
+
+
 End Class

Contabilidad/RepAnexoCatalogo.aspx.vb

@@ -26,7 +26,7 @@ Partial Class AC_RepAnexoCatalogo
             ViewState("FechaInicio") = value
         End Set
     End Property
-    Private Property FechaFin As Date
+    Private Property FechaFin As DateTime
         Get
             FechaFin = ViewState("FechaFin").ToString.ToDate
         End Get

Contabilidad/RepIVA.aspx

@@ -40,6 +40,13 @@
     <li>
         <asp:LinkButton ID="LnkExcel2"  OnClick="LnkExcel2_Click" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Generales del proveedor</asp:LinkButton>
     </li>
+    <asp:UpdatePanel runat="server" ID="UPPCompara" UpdateMode="Conditional" >
+        <ContentTemplate>
+            <li>
+               <asp:LinkButton ID="LnkModalCompara"  OnClick="LnkModalCompara_Click" runat="server"><i class="fa fa-list-o" style="font-weight:bold;"></i> Comparativo</asp:LinkButton>
+            </li>
+            </ContentTemplate>         
+    </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
 </asp:Content>
@@ -145,7 +152,7 @@
              <asp:GridView ID="GvIEPSA" runat="server"  EmptyDataText="" CssClass="table table-hover table-striped ScrollAD mysmallbtn" data-sort="true" Width="400px" GridLines="None" AutoGenerateColumns="false">
                 <Columns>
                     <asp:BoundField HeaderText="Porcentaje" DataField="PorcentajeIEPS"  />
-                    <asp:BoundField HeaderText="Categoria" DataField="Categoria"  />
+                    <asp:BoundField HeaderText="Categoría" DataField="Categoria"  />
                     <asp:BoundField HeaderText="IEPS" DataField="IEPS" DataFormatString="{0:N2}"  ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="Base" DataField="Base" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                     
@@ -271,6 +278,41 @@
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>
+
+     <div id="ModalCompara" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel ID="UpCompara" class="modal-dialog 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">Comparativo</h4>
+                    </div>
+                    <div class="modal-body">
+                         
+
+                        <asp:GridView ID="GvCompara" runat="server" GridLines="None" AutoGenerateColumns="False"  EmptyDataText="" CssClass="table table-striped table-hover table-advance Widthall">
+                            <Columns>
+                                <asp:BoundField DataField="Msg" HeaderText="Mensaje" /> 
+                                <asp:BoundField DataField="FueConciliado" HeaderText="Conciliado" />  
+                                <asp:BoundField DataField="Fecha" HeaderText="Fecha" DataFormatString="{0:d}" />  
+                                <asp:BoundField DataField="ImporteMN" HeaderText="Importe" DataFormatString="{0:N2}" />  
+                                <asp:HyperLinkField  DataTextField="CvePrePoliza"   DataNavigateUrlFormatString="/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}"  DataNavigateUrlFields="CvePrePoliza" HeaderText="Prepoliza" />  
+                                <asp:HyperLinkField  DataTextField="CveIE" DataNavigateUrlFormatString="/Bancos/IE.aspx?CveIE={0}" DataNavigateUrlFields="CveIE" HeaderText="IE" />  
+                                <asp:BoundField DataField="FechaAplicado" HeaderText="Fecha Aplicado" DataFormatString="{0:d}" />
+                            </Columns>
+                        </asp:GridView>
+
+                    </div>
+                    <div class="modal-footer">
+                         .
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
+
+
+
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
 </asp:Content>

Contabilidad/RepIVA.aspx.cs

@@ -25,6 +25,16 @@ public partial class Contabilidad_RepIVA : ClsPaginas
         get { return DtIVAAcreditable = (DataTable)ViewState["DtIVAAcreditable"]; }
         set { ViewState["DtIVAAcreditable"] = value; }
     }
+    private DataTable DtIEPSA
+    {
+        get { return DtIVAAcreditable = (DataTable)ViewState["DtIEPSA"]; }
+        set { ViewState["DtIEPSA"] = value; }
+    }
+    private DataTable DtIVAA
+    {
+        get { return DtIVAAcreditable = (DataTable)ViewState["DtIVAA"]; }
+        set { ViewState["DtIVAA"] = value; }
+    }
     private double TCEspecifico
     {
         get { return TCEspecifico = (double)ViewState["TCEspecifico"]; }
@@ -72,11 +82,13 @@ public partial class Contabilidad_RepIVA : ClsPaginas
             if (ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
             {
                 GvIEPSA.DataSource = ObjCont.DtResultados;
+                DtIEPSA = ObjCont.DtResultados;
             }
 
             if (ObjCont.GetRepIVAAcumulado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), Conciliado, 2, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
             {
                 GvIVAA.DataSource = ObjCont.DtResultados;
+                DtIVAA = ObjCont.DtResultados;
             }
 
         }
@@ -205,7 +217,8 @@ public partial class Contabilidad_RepIVA : ClsPaginas
             para.Add(new CrystalParametro("Excel", Formato));
             string Ruta = (ModExtensiones.DirectorioBaseEmpresas + $@"Empresas\Grales\Formatos\{Formato}");
             Ruta.GuardaLogAD();
-            ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, Dt, para, "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
+            ImprimirbytesPDF(ImprimirSubRepPDFCrystal(Ruta,Dt,para, DtIEPSA,DtIVAA,"RepIEPSPorcentaje.rpt","RepIVAPorcentaje.rpt", "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
+            //ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, Dt, para, "Reporte de IVA", Opcion), "Reporte de IVA", Opcion);
         }
         else
         {
@@ -319,6 +332,27 @@ public partial class Contabilidad_RepIVA : ClsPaginas
         Response.End();
     }
 
+
+
+    protected void LnkModalCompara_Click(object sender, EventArgs e)
+    {
+
+        ClsContabilidad Objconta = new ClsContabilidad();
+       
+        int Conciliado = DdlTipoMovto.SelectedValue.ToEntero();
+
+        if (Objconta.GetRepIVAComparativo(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(),  UsuarioActual.CveUsuario, Conciliado, UsuarioActual.CveEmpresa ))
+        {
+            GvCompara.DataSource = Objconta.DtResultados;             
+        }
+
+        Objconta.Dispose();
+        GvCompara.DataBind();
+        RegistraScript("$('#ModalCompara').modal('show')");
+        UpCompara.Update();
+    }
+
+
     protected string LV(string Valor)
     {
         return (Valor.ToDecimal() > 0) ? Valor.ToDecimal().ToString().FormatoNumero(0).Replace(",", string.Empty) : "";

Contabilidad/Reportes/RepMovimientosAuxiliaresCatalogo.rdlc

@@ -6,28 +6,28 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>1.86091cm</Width>
+              <Width>2.28424cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>1.28292cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.49458cm</Width>
+              <Width>1.5475cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>7.13431cm</Width>
+              <Width>5.78365cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>1.99729cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.10313cm</Width>
+              <Width>2.10377cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.1825cm</Width>
+              <Width>2.10378cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.31479cm</Width>
+              <Width>3.26728cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
@@ -149,11 +149,84 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
-                    <ColSpan>3</ColSpan>
                   </CellContents>
                 </TablixCell>
-                <TablixCell />
+                <TablixCell>
-                <TablixCell />
+                  <CellContents>
+                    <Textbox Name="Textbox16">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox16</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <TopBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </TopBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox18">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox18</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <TopBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </TopBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox22">
@@ -605,10 +678,40 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
-                    <ColSpan>2</ColSpan>
                   </CellContents>
                 </TablixCell>
-                <TablixCell />
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox15">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>7pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox15</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox21">
@@ -1221,9 +1324,8 @@
         <Source>External</Source>
         <Value>=Parameters!pImg.Value</Value>
         <Sizing>FitProportional</Sizing>
-        <Left>0.09633cm</Left>
+        <Height>2.07257cm</Height>
-        <Height>1.5cm</Height>
+        <Width>3.56716cm</Width>
-        <Width>1.5cm</Width>
         <ZIndex>1</ZIndex>
         <Style>
           <Border>
@@ -1251,9 +1353,8 @@
         </Paragraphs>
         <rd:DefaultName>Textbox1</rd:DefaultName>
         <Top>0.25646cm</Top>
-        <Left>2.87447cm</Left>
         <Height>0.81167cm</Height>
-        <Width>12.68053cm</Width>
+        <Width>20.37043cm</Width>
         <ZIndex>2</ZIndex>
         <Style>
           <Border>
@@ -1285,9 +1386,8 @@
         </Paragraphs>
         <rd:DefaultName>Textbox5</rd:DefaultName>
         <Top>1.12429cm</Top>
-        <Left>2.87447cm</Left>
         <Height>0.94828cm</Height>
-        <Width>12.68053cm</Width>
+        <Width>20.37043cm</Width>
         <ZIndex>3</ZIndex>
         <ToolTip>="Moviemtos, Auxiliares del Catalogo" &amp; System.Environment.NewLine &amp; "al " &amp;Parameters!pFechaFin.Value</ToolTip>
         <Style>
@@ -1321,9 +1421,9 @@
         </Paragraphs>
         <rd:DefaultName>Textbox8</rd:DefaultName>
         <Top>0.25646cm</Top>
-        <Left>16.87794cm</Left>
+        <Left>14.99937cm</Left>
         <Height>0.81167cm</Height>
-        <Width>3.49249cm</Width>
+        <Width>5.37106cm</Width>
         <ZIndex>4</ZIndex>
         <Style>
           <Border>
@@ -1336,7 +1436,7 @@
         </Style>
       </Textbox>
     </ReportItems>
-    <Height>2.0944in</Height>
+    <Height>2.2819in</Height>
     <Style />
   </Body>
   <Width>8.01986in</Width>
@@ -1346,6 +1446,41 @@
       <PrintOnFirstPage>true</PrintOnFirstPage>
       <PrintOnLastPage>true</PrintOnLastPage>
       <ReportItems>
+        <Textbox Name="Textbox8">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>="Libro Mayor" &amp; System.Environment.NewLine &amp; "al " &amp;Parameters!pFechaFin.Value</Value>
+                  <Style>
+                    <FontSize>11pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Center</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox5</rd:DefaultName>
+          <Height>0.89958cm</Height>
+          <Width>20.37043cm</Width>
+          <Visibility>
+            <Hidden>= (Globals.PageNumber=1)</Hidden>
+          </Visibility>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
         <Textbox Name="Textbox12">
           <CanGrow>true</CanGrow>
           <KeepTogether>true</KeepTogether>
@@ -1367,43 +1502,9 @@
           </Paragraphs>
           <rd:DefaultName>Textbox8</rd:DefaultName>
           <Top>0.02088cm</Top>
-          <Left>16.87794cm</Left>
+          <Left>14.99937cm</Left>
-          <Height>0.57912cm</Height>
+          <Height>0.8787cm</Height>
-          <Width>3.49249cm</Width>
+          <Width>5.37106cm</Width>
-          <Visibility>
-            <Hidden>= (Globals.PageNumber=1)</Hidden>
-          </Visibility>
-          <Style>
-            <Border>
-              <Style>None</Style>
-            </Border>
-            <PaddingLeft>2pt</PaddingLeft>
-            <PaddingRight>2pt</PaddingRight>
-          </Style>
-        </Textbox>
-        <Textbox Name="Textbox8">
-          <CanGrow>true</CanGrow>
-          <KeepTogether>true</KeepTogether>
-          <Paragraphs>
-            <Paragraph>
-              <TextRuns>
-                <TextRun>
-                  <Value>="Libro Mayor" &amp; System.Environment.NewLine &amp; "al " &amp;Parameters!pFechaFin.Value</Value>
-                  <Style>
-                    <FontSize>11pt</FontSize>
-                    <FontWeight>Bold</FontWeight>
-                  </Style>
-                </TextRun>
-              </TextRuns>
-              <Style>
-                <TextAlign>Center</TextAlign>
-              </Style>
-            </Paragraph>
-          </Paragraphs>
-          <rd:DefaultName>Textbox5</rd:DefaultName>
-          <Left>2.87447cm</Left>
-          <Height>0.89958cm</Height>
-          <Width>12.68053cm</Width>
           <ZIndex>1</ZIndex>
           <Visibility>
             <Hidden>= (Globals.PageNumber=1)</Hidden>
@@ -1414,8 +1515,6 @@
             </Border>
             <PaddingLeft>2pt</PaddingLeft>
             <PaddingRight>2pt</PaddingRight>
-            <PaddingTop>2pt</PaddingTop>
-            <PaddingBottom>2pt</PaddingBottom>
           </Style>
         </Textbox>
       </ReportItems>
@@ -1451,9 +1550,9 @@
           </Paragraphs>
           <rd:DefaultName>Textbox3</rd:DefaultName>
           <Top>0.0703cm</Top>
-          <Left>14.85419cm</Left>
+          <Left>14.99937cm</Left>
           <Height>0.6cm</Height>
-          <Width>5.51625cm</Width>
+          <Width>5.37107cm</Width>
           <Style>
             <Border>
               <Style>None</Style>

Contabilidad2/RepAnexoCatalogoCC.aspx

@@ -1,4 +1,4 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAnexoCatalogoCC.aspx.vb" Inherits="Contabilidad2_RepAnexoCatalogoCC" %>
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAnexoCatalogoCC.aspx.vb" Inherits="Contabilidad2_RepAnexoCatalogoCC"  EnableEventValidation="false"  %>
 
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>

Contabilidad2/RepAnexoCatalogoCC.aspx.vb

@@ -115,7 +115,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
     Private Sub CargaDatos()
         Dim Conta As New ClsContabilidad
 
-        If Conta.GetAnexoCatalagoCC(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDivisor.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero) Then
+        If Conta.GetAnexoCatalagoCC(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDivisor.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then
 
             Dim DtHeaders As DataTable = Conta.DSResultados.Tables(0)
             GvCC.DataSource = Conta.DSResultados.Tables(1)

Contabilidad2/RepAnexoCatalogoMensual.aspx.vb

@@ -117,10 +117,9 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
         Else
             GvMensual2.DataSource = Nothing
         End If
+
         GvMensual2.DataBind()
 
-
-
         If DdlTri.SelectedValue.ToEntero = 0 Then
 
             GvMensual2.Columns(9).Visible = False

Contabilidad2/Reportes/RepMovimientosAuxiliaresCatalogo.rdlc

@@ -27,13 +27,13 @@
               <Width>2.3148cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.10313cm</Width>
+              <Width>1.78563cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.1825cm</Width>
+              <Width>2.20896cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.31479cm</Width>
+              <Width>2.60583cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
@@ -155,13 +155,160 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
-                    <ColSpan>5</ColSpan>
                   </CellContents>
                 </TablixCell>
-                <TablixCell />
+                <TablixCell>
-                <TablixCell />
+                  <CellContents>
-                <TablixCell />
+                    <Textbox Name="Textbox8">
-                <TablixCell />
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox8</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <TopBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </TopBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox15">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox15</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <TopBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </TopBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox16">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox16</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <TopBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </TopBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox18">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox18</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <TopBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </TopBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox22">
@@ -689,12 +836,104 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
-                    <ColSpan>4</ColSpan>
                   </CellContents>
                 </TablixCell>
-                <TablixCell />
+                <TablixCell>
-                <TablixCell />
+                  <CellContents>
-                <TablixCell />
+                    <Textbox Name="Textbox26">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>7pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox26</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox27">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>7pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox27</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox28">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>7pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox28</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox21">
@@ -1487,10 +1726,10 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox8</rd:DefaultName>
-          <Top>1.143cm</Top>
+          <Top>1.21179cm</Top>
-          <Left>18.05564cm</Left>
+          <Left>20.30461cm</Left>
           <Height>0.92251cm</Height>
-          <Width>2.3148cm</Width>
+          <Width>2.60583cm</Width>
           <ZIndex>1</ZIndex>
           <Style>
             <Border>
@@ -1536,7 +1775,7 @@
           <rd:DefaultName>Textbox6</rd:DefaultName>
           <Left>1.23773in</Left>
           <Height>0.40764in</Height>
-          <Width>6.78213in</Width>
+          <Width>7.78213in</Width>
           <ZIndex>2</ZIndex>
           <Style>
             <Border>
@@ -1579,7 +1818,7 @@
           <rd:DefaultName>Cuenta</rd:DefaultName>
           <Top>0.84375in</Top>
           <Height>0.25in</Height>
-          <Width>5.42127in</Width>
+          <Width>5.50993in</Width>
           <ZIndex>3</ZIndex>
           <Style>
             <Border>
@@ -1623,10 +1862,10 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox3</rd:DefaultName>
-          <Top>0.07022cm</Top>
+          <Top>0.03528cm</Top>
-          <Left>15.87314cm</Left>
+          <Left>16.31002cm</Left>
           <Height>0.6cm</Height>
-          <Width>4.4973cm</Width>
+          <Width>3.99459cm</Width>
           <Style>
             <Border>
               <Style>None</Style>

GPS/Shipments.aspx

@@ -731,6 +731,6 @@
             }
 
     </script>
-    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"</script>
+    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=places", Extensiones.ModExtensiones.GOOGLE_MAPS_API_KEY) %>"</script>
 </asp:Content>
 

General/SaldosIniciales.aspx.vb

@@ -1169,10 +1169,11 @@ Partial Class General_SaldosIniciales
                         '    Exit For
                         'End If
                     Else
+                        Dim CveSATEstado As Integer = GlobalDTEstado("MEX").FiltroPrimeroValor("CveSATEstado", String.Format("NombreEstado ='{0}'", Estado)).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, "", 1, False, "", "", "", False, "", "", "", "", "", False, "", "", "", False, 0, -1, EsDistribuidor:=EsDistribuidor, CveClienteClasificacion:=CveClasificación, CargoUsado:=CargoUsado,
-                                   BonificacionUsado:=BonificacionUsado, CobranzaContacto:=CobranzaContacto, CobranzaCorreo:=CobranzaCorreo, DiasEspecifico:=DiasPagoEspecifico, DiasRevision:=DìaVisita, CobranzaTelefono:=CobranzaTelefono, CveFormaPago33:=CveFormaPago33, CveUsoCFDI:=CveUsoCFDI) Then
+                                   BonificacionUsado:=BonificacionUsado, CobranzaContacto:=CobranzaContacto, CobranzaCorreo:=CobranzaCorreo, DiasEspecifico:=DiasPagoEspecifico, DiasRevision:=DìaVisita, CobranzaTelefono:=CobranzaTelefono, CveFormaPago33:=CveFormaPago33, CveUsoCFDI:=CveUsoCFDI, CveSATEstado:=CveSATEstado) Then
 
                             ErrorClientes = True
                             RFC.GuardaLog
@@ -1251,7 +1252,7 @@ Partial Class General_SaldosIniciales
                     If Not CveProveedor > 0 Then Alert(String.Format("No se encontró el Proveedor con el RFC: {0}", {RFC}), TipoMensaje.MsgError) : ErrorCompras = True : Exit For
                     If Not CveProveedorSucursal > 0 Then CveProveedorSucursal = -1
 
-                    TipoDocto = IIf(TipoDocto = "Ingresos", "Fac", "NC").ToString
+                    TipoDocto = IIf(TipoDocto.ToUpper = "INGRESOS", "Fac", "NC").ToString
 
 
                     'Temporalmente SE BORRARA

Global.asax

@@ -138,10 +138,10 @@
 
         GuardaLogAsax(String.Format("Globalasax 7:{0}", DateTime.Now))
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        'C A R G A - T I P O  G A S T O S
+        ''C A R G A - T I P O  G A S T O S
-        Using ObjCompra As New ClsCompras()
+        'Using ObjCompra As New ClsCompras()
-            If ObjCompra.GetTipoGasto(-1, -1) Then Application("GlobalDTTiposGastos") = ObjCompra.DtResultados Else Application("GlobalDTTiposGastos") = Nothing
+        '    If ObjCompra.GetTipoGasto(-1, -1) Then Application("GlobalDTTiposGastos") = ObjCompra.DtResultados Else Application("GlobalDTTiposGastos") = Nothing
-        End Using
+        'End Using
 
         GuardaLogAsax(String.Format("Globalasax 8:{0}", DateTime.Now))
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Inventarios/Kardex.aspx

@@ -116,15 +116,22 @@
     Kardex
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-    <li>
+    <asp:UpdatePanel runat="server" ID="UpAcciones" UpdateMode="Conditional" >
-        <asp:LinkButton ID="ImgImprimir" runat="server"><i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
+        <ContentTemplate>
-    </li>
+            <li>
-    <li>
+                <asp:LinkButton ID="ImgImprimir" runat="server"><i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
-        <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
+            </li>
-    </li>
+            <li>
-    <li>
+                <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
-        <a target="_blank" class="ayuda" href="../Documentacion/DocumentacionInventarios.aspx#Kardex">&nbsp;</a>
+            </li>
-    </li>
+            <li>
+                <asp:LinkButton ID="LnkSeries" Visible="false" runat="server"><i class="fa fa-list"></i> Series Disponibles</asp:LinkButton>
+            </li>
+            <li>
+                <a target="_blank" class="ayuda" href="../Documentacion/DocumentacionInventarios.aspx#Kardex">&nbsp;</a>
+            </li>
+        </ContentTemplate>
+    </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
 
@@ -493,6 +500,41 @@
             </ContentTemplate>
         </asp:UpdatePanel>
     </div>
+    <div id="DivModalSerie" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpdatePanel1" UpdateMode="Conditional" RenderMode="Inline" style="width:50%">
+            <ContentTemplate>
+                <div class="modal-content">
+                    <div class="modal-header ">
+                        <h4 class="modal-title">
+                            <asp:Literal ID="LtlSerieTitle" Text="Series Disponibles" runat="server"> </asp:Literal></h4>
+                    </div>
+                    <div class="modal-body">
+                        <div class="row" style="width:100%">
+                            <div style="width:98%;margin-left:1.5%;margin-right:1.5%">
+                                <asp:UpdatePanel ID="UpGridSeries" runat="server" UpdateMode="Conditional" RenderMode="Inline">
+                                <ContentTemplate>
+                                    <asp:GridView ID="GvSeries" Width="98%" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="False" AllowPaging="False"
+                                        ShowFooter="True" ShowHeaderWhenEmpty="True" CssClass="table table-striped table-advance table-hover ScrollAD" GridLines="None" 
+                                        DataKeyNames="CveEmpresa,CveAlmacen,Almacen,PS,CvePS,Serie,Lote,FechaCaducidad,CveSeccionAlmacen,Existencia,Valor">
+                                        <Columns>
+                                            <asp:BoundField HeaderText="Almacén" DataField="Almacen"/>
+                                            <asp:BoundField HeaderText="Serie" DataField="Serie"/>
+                                            <asp:BoundField HeaderText="Existencia" DataField="Existencia" DataFormatString="{0:#,###}"/>
+                                        </Columns>
+
+                                    </asp:GridView>
+                                </ContentTemplate>
+                            </asp:UpdatePanel>
+                            </div>
+                        </div>
+                    </div>
+                    <div class="modal-footer">
+                        <button type="button" class="btn btn-primary" data-dismiss="modal">Cerrar</button>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
 </asp:Content>

Inventarios/Kardex.aspx.vb

@@ -203,6 +203,8 @@ Partial Class Inventarios_Kardex
                 If AplicaLote Then GvM.Columns(9).Visible = True
                 If AplicaCaducidad Then GvM.Columns(10).Visible = True
 
+                Dim AuxAplicaSerie As Boolean = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveProducto).FiltroPrimeroValor("AplicaSerie") = "True"
+                LnkSeries.Visible = AuxAplicaSerie
                 'CARGA INDICADORES
                 If UsuarioActual.TienePermisoProceso(201) Then
                     DivIndicadores.Visible = True
@@ -238,6 +240,7 @@ Partial Class Inventarios_Kardex
                 End If
                 GvM.DataSource = DtTemp
                 GvM.DataBind()
+                UpAcciones.Update()
             End If
         Else
             Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia)
@@ -299,6 +302,15 @@ Partial Class Inventarios_Kardex
 
         End If
     End Sub
+
+    Private Sub CargarExistenciasProductosSeries()
+        Dim ObjInventarios As New ClsInventarios
+        If ObjInventarios.GetExistenciasProductoSerie(ddlProducto2.SelectedValue.ToEntero(), ddlAlmacen.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+            GvSeries.DataSource = ObjInventarios.DtResultados
+        End If
+        ObjInventarios.Dispose()
+        GvSeries.DataBind()
+    End Sub
 #End Region
 
 #Region "   IMPRIMIR   "
@@ -409,5 +421,14 @@ Partial Class Inventarios_Kardex
 
 #End Region
 
+#Region "Acciones"
+    Protected Sub LnkSeries_OnClick(sender As Object, e As EventArgs) Handles LnkSeries.Click
+        CargarExistenciasProductosSeries()
+        UpGridSeries.Update()
+        RegistraScript(String.Format("$('#{0}').modal('show');", "DivModalSerie"))
+    End Sub
+#End Region
+
+
 
 End Class

Inventarios/KardexAlmacenHorizontal.aspx.vb

@@ -14,7 +14,7 @@ Partial Class Inventarios_KardexAlmacen
             CargaCombos()
             ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
             pnlOrden.Visible = False
-            If UsuarioActual.CveEmpresa = 141 Then
+            If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
                 pnlOrden.Visible = True
                 DdlOrden.SelectedValue = 2
             End If

Inventarios/RecepcionAlmacen.aspx

@@ -418,7 +418,7 @@
                     </asp:UpdatePanel>
 
                     <asp:GridView ID="GvInv" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" ShowFooter="True" ShowHeader="true" ShowHeaderWhenEmpty="True"
-                        DataKeyNames="EntregaDirecta,Consec,CodigoBarras,CvePS,CveUM,PU,CantidadC,CantidadF,UM,PS,CveCompraDetalle,CveOrdenCompraDetalle,PUExtranjero,AplicaSerieLote,CveClasificacion,Codigo,CveVentaDetalle,CostoIndirecto,CveTamaño,Lote,AplicaSeccion,AplicaLote,AplicaCaducidad,AplicaSerie" HeaderStyle-CssClass="Titulos" RowStyle-Height="25px" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-heighterror="450" data-freezerows="1" GridLines="None">
+                        DataKeyNames="EntregaDirecta,Consec,CodigoBarras,CvePS,CveUM,PU,CantidadC,CantidadF,UM,PS,CveCompraDetalle,CveOrdenCompraDetalle,PUExtranjero,AplicaSerieLote,CveClasificacion,Codigo,CveVentaDetalle,CostoIndirecto,CveTamaño,Lote,AplicaSeccion,AplicaLote,AplicaCaducidad,AplicaSerie,CveAlmacenDevolucionProveedor" HeaderStyle-CssClass="Titulos" RowStyle-Height="25px" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-heighterror="450" data-freezerows="1" GridLines="None">
                         <HeaderStyle Height="58px" />
                         <Columns>
                             <asp:TemplateField>

Inventarios/RecepcionAlmacen.aspx.vb

@@ -91,6 +91,14 @@ Partial Class Inventarios_RecepcionAlmacen
             Return ViewState("IdPoliza").ToString.ToEntero
         End Get
     End Property
+    Private Property DtAlmacenesDevolucion As DataTable
+        Get
+            Return CType(ViewState("DtAlmacenesDevolucion"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtAlmacenesDevolucion") = value
+        End Set
+    End Property
     Private Property DtDatosDetalle As DataTable
         Get
             Return CType(ViewState("DtDatosDetalle"), DataTable)
@@ -245,6 +253,14 @@ Partial Class Inventarios_RecepcionAlmacen
             ViewState("CveAlmacenApartado") = value
         End Set
     End Property
+    Private Property CveAlmacenDevolucionProveedor As Integer
+        Get
+            Return CType(ViewState("CveAlmacenDevolucionProveedor"), Integer)
+        End Get
+        Set(value As Integer)
+            ViewState("CveAlmacenDevolucionProveedor") = value
+        End Set
+    End Property
     Private Property TipoMovimiento As Integer
         Get
             Return CType(ViewState("TipoMovimiento"), Integer)
@@ -361,6 +377,14 @@ Partial Class Inventarios_RecepcionAlmacen
             ViewState("CveVendedor") = value
         End Set
     End Property
+    Private Property RealizarTraspasoAlmacenDevolucion() As Boolean
+        Get
+            Return If(IsNothing(ViewState("RealizarTraspasoAlmacenDevolucion")), False, CBool(ViewState("RealizarTraspasoAlmacenDevolucion")))
+        End Get
+        Set
+            ViewState("RealizarTraspasoAlmacenDevolucion") = Value
+        End Set
+    End Property
 
 #End Region
 
@@ -404,8 +428,9 @@ Partial Class Inventarios_RecepcionAlmacen
         CveFleteCompra = -1
         BuscaEntregaDirecta = -1
         CveAlmacenApartado = -1
+        CveAlmacenDevolucionProveedor = -1
         TipoMovimiento = 1
-
+        RealizarTraspasoAlmacenDevolucion = False
         CantidadTotal = 0
         IndexSeccionAlmacen = 0
 
@@ -778,6 +803,8 @@ Partial Class Inventarios_RecepcionAlmacen
         DivTipoCambio.Visible = False
         Apartado = False
         CveAlmacenApartado = -1
+        CveAlmacenDevolucionProveedor = -1
+        RealizarTraspasoAlmacenDevolucion = False
         BtnGuardar.Enabled = True
         CargaAlmacenes(-1)
 
@@ -829,6 +856,9 @@ Partial Class Inventarios_RecepcionAlmacen
     Private Sub CargaCompra(pCveCompra As Integer, pCveProveedor As Integer)
         'CargaAlmacenes(-1)
 
+        RealizarTraspasoAlmacenDevolucion = False
+        CveAlmacenDevolucionProveedor = -1
+
         Dim ObjCompras As New ClsCompras
         Dim ObjInventario As New ClsInventarios
 
@@ -896,6 +926,13 @@ Partial Class Inventarios_RecepcionAlmacen
                         DtRecepcion = ObjInventario.DtResultados.Copy()
                     End If
 
+                    If TipoMovimiento = 2 AndAlso GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=21).Rows.Count > 0 Then
+                        RealizarTraspasoAlmacenDevolucion = True
+                        CveAlmacenDevolucionProveedor = DtRecepcion.Rows(0)("CveAlmacenDevolucionProveedor").ToString.ToEntero
+                        'CreaDTAlmacenDevolucion()
+                        'CargaAlmacenes(-1, "21", CveTipoCompra)
+                    End If
+
                     DtDatosDetalle = Nothing
                     CreaDtDetalle()
                     DtDatosLoteDetalle = Nothing
@@ -1494,6 +1531,14 @@ Partial Class Inventarios_RecepcionAlmacen
         End If
     End Sub
 
+    Private Sub CreaDTAlmacenDevolucion()
+        If DtAlmacenesDevolucion Is Nothing Then
+            DtAlmacenesDevolucion = New DataTable
+            DtAlmacenesDevolucion.Columns.Add("CveCompraDetalle", GetType(Integer))
+            DtAlmacenesDevolucion.Columns.Add("CveAlmacenOriginal", GetType(Integer))
+        End If
+    End Sub
+
     Private Sub CargaSerie(Tipo As Integer, Optional CerrarCompletado As Boolean = False)
         'RegistraScript("document.getElementById(""TxtSerie"").focus();")
         RegistraScript("$('#DivSerie').modal();", "ModalLote")
@@ -1637,7 +1682,7 @@ Partial Class Inventarios_RecepcionAlmacen
                 End If
 
                 If TipoMovimiento = 2 Then
-                    If DtExistencias.SUM("Existencia", $"Serie = {Serie}") = 0 Then
+                    If DtExistencias.SUM("Existencia", $"Serie = '{Serie}'") = 0 Then
                         MensajeSinExistencias.Append($"Serie: <b>{Serie}</b>. <br/>")
                         Continue For
                     End If
@@ -2206,6 +2251,10 @@ Partial Class Inventarios_RecepcionAlmacen
         Dim CveMovimientoVirtual As Integer = -1
         Dim FolioVirtual As Integer = -1
 
+        'TRASPASO DEVOLUCION
+        Dim CveMovimientoSalidaTraspaso As Integer = -1
+        Dim FolioSalidaTraspaso As String = ""
+
         'CONTABILIDAD
         Dim CvePrePoliza = -1
         Dim MensajeContabilidad = ""
@@ -2218,19 +2267,26 @@ Partial Class Inventarios_RecepcionAlmacen
 
             If HdnTipoDocto.Value <> "Fac" Then RecibidaCompleta = False
 
+            Dim CveConceptoAlmacen As Integer = If(TipoMovimiento > 1, 13, 2)
+
             Dim CveAlmacen As Integer = DdlAlmacen.SelectedValue.ToEntero
 
             Dim CveModalidad As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacen).FiltroPrimeroValor("CveModalidad").ToEntero()
 
             Dim EsContabilizable As Boolean = (CveModalidad = 1)
 
-            'ENTRADA ALMACÉN
+            If RealizarTraspasoAlmacenDevolucion AndAlso TipoMovimiento = 2 Then
-            CveMovimiento = ObjInventario.AddMovimiento(CveAlmacen, If(TipoMovimiento > 1, 13, 2), 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+                CveConceptoAlmacen = 26
-                                                        CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio),
+
-                                                        MovimientoFijo:=If(TipoMovimiento = 2, True, False), Remision:=TxtRemision.Text, Modulo:="RA/G1")
+                'For Each gvr As GridViewRow In GvInv.Rows
-            If CveMovimiento > 0 Then
+                '    If gvr.FCCheckBox("cbInv").Checked AndAlso gvr.FCTextBox("TbCantidadF").Text.ToDecimal > 0 Then
-                CveMovimientoOriginal = CveMovimiento
+                '        Dim Row As DataRow = DtAlmacenesDevolucion.NewRow()
-                InvFolio = ObjInventario.Folio.ToString
+                '        Row("CveCompraDetalle") = gvr.DataKey("CveCompraDetalle").ToEntero()
+                '        Row("CveAlmacenOriginal") = gvr.DataKey("CveAlmacenOriginal").ToEntero()
+                '        DtAlmacenesDevolucion.Rows.Add(Row)
+                '    End If
+                'Next
+
                 Dim DtDetalle As New DataTable
                 Dim DtDetalleLote As New DataTable
                 Dim PU As Decimal = 0.0D
@@ -2238,6 +2294,119 @@ Partial Class Inventarios_RecepcionAlmacen
                 Dim CostoIndirecto As Decimal = 0.0D
                 Dim SumaTotal As Decimal = 0.0D
                 Dim Cont As Integer = 0
+
+                Dim CveMovtoSalidaActual = -1
+                Dim CveMovtoEntradaActual = -1
+                Dim CveVendedorActual = -1
+                Dim CveClienteActual = -1
+
+                Dim CveAlmacenDestino = CveAlmacen
+                Dim CveSeccionDestino As Integer = -1
+
+                'For Each RowAlmacen As DataRow In DtAlmacenesDevolucion.FiltraParametros("", DistinctColumns:={"CveAlmacenOrignal"}).Rows
+
+                'SALIDA DE ALMACEN POR TRASPASO
+                CveMovimientoSalidaTraspaso = ObjInventario.AddMovimiento(CveAlmacen, CveConceptoAlmacen, 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+                                                            CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio),
+                                                            MovimientoFijo:=If(TipoMovimiento = 2, True, False), CveAlmacenDestino:=CveAlmacenDestino, Remision:=TxtRemision.Text, Modulo:="RA/G11")
+
+                If CveMovimientoSalidaTraspaso > 0 Then
+                    FolioSalidaTraspaso = ObjInventario.Folio.ToString()
+
+                    For Each gvr As GridViewRow In GvInv.Rows '.Cast(Of GridViewRow).Where(Function(row) row.DataKey("CveAlmacenOrignal") = RowAlmacen("CveAlmacenOrignal").ToString())
+                        If gvr.FCCheckBox("cbInv").Checked AndAlso gvr.FCTextBox("TbCantidadF").Text.ToDecimal > 0 Then
+
+                            PU = DtInv.Rows(gvr.RowIndex)("PU").ToString.ToDecimal
+                            CostoIndirecto = DtInv.Rows(gvr.RowIndex)("CostoIndirecto").ToString.ToDecimal
+                            PUExtranjero = DtInv.Rows(gvr.RowIndex)("PUExtranjero").ToString.ToDecimal
+
+                            'SI FUE POR SERIE LOTE
+                            DtDetalle = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", gvr.DataKey("Consec").ToEntero))
+                            DtDetalleLote = DtDatosLoteDetalle.FiltraParametros(String.Format("ConsecId = {0}", gvr.DataKey("Consec").ToEntero))
+                            If DtDetalle.Rows.Count > 0 Then
+                                Dim ContDt As Integer = 0
+                                For Each Dr As DataRow In DtDetalle.Rows
+                                    SumaTotal += PU + CostoIndirecto
+                                    If RecibidaCompleta AndAlso Cont + 1 = GvInv.Rows.Count AndAlso ContDt + 1 = DtDetalle.Rows.Count AndAlso Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) <> SumaTotal Then
+                                        If Not UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                                            PU = Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2).ToDecimal - (SumaTotal - (PU))
+                                        End If
+                                    End If
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaTraspaso, 1, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, PU, -1, PUTC:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, PUExtranjero), Serie:=Dr("Serie").ToString, CveCompraDetalle:=gvr.DataKey("CveCompraDetalle").ToEntero, CveOrdenCompraDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToEntero, CveVentaDetalle:=gvr.DataKey("CveVentaDetalle").ToEntero, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario, FechaCaducidad:=If(CBool(gvr.DataKey("AplicaCaducidad")), gvr.FCTextBox("TxtCaducidad").Text.ToDate, MinFecha), Lote:=If(CBool(gvr.DataKey("AplicaLote")), gvr.FCTextBox("TxtLote").Text, ""), CveSeccionAlmacen:=If(CBool(gvr.DataKey("AplicaSeccion")), gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, -1)) Then
+                                        ErrorMovInv = True
+                                        Exit For
+                                    End If
+                                    ContDt += 1
+                                Next
+                            ElseIf DtDetalleLote.Rows.Count > 0 Then
+                                Dim ContDt As Integer = 0
+                                For Each Dr As DataRow In DtDetalleLote.Rows
+                                    SumaTotal += Dr("Cantidad").ToString.ToDecimal * (PU + CostoIndirecto)
+                                    If RecibidaCompleta AndAlso Cont + 1 = GvInv.Rows.Count AndAlso ContDt + 1 = DtDetalleLote.Rows.Count AndAlso Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) <> SumaTotal Then
+                                        If Not UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                                            PU = (Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2).ToDecimal - (SumaTotal - (Dr("Cantidad").ToString.ToDecimal * (PU)))) / Dr("Cantidad").ToString.ToDecimal
+                                        End If
+                                    End If
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaTraspaso, Dr("Cantidad").ToString.ToDouble, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, PU, -1, PUTC:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, PUExtranjero), Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveCompraDetalle:=gvr.DataKey("CveCompraDetalle").ToEntero, CveOrdenCompraDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToEntero, CveVentaDetalle:=gvr.DataKey("CveVentaDetalle").ToEntero, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveSeccionAlmacen:=If(CBool(gvr.DataKey("AplicaSeccion")), gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, -1)) Then
+                                        ErrorMovInv = True
+                                        Exit For
+                                    End If
+
+                                    ContDt += 1
+                                Next
+                            Else
+                                SumaTotal += gvr.FCTextBox("TbCantidadF").Text.ToDecimal * (PU + CostoIndirecto) ' considerar el costo indirecto para el ajuste
+                                If RecibidaCompleta AndAlso Cont + 1 = GvInv.Rows.Count AndAlso Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2) <> Math.Round(SumaTotal, 2) Then
+                                    Dim tTotal As Decimal = gvr.FCTextBox("TbCantidadF").Text.ToDecimal * (PU)
+                                    If Not UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                                        PU = (Math.Round((TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)), 2).ToDecimal - (SumaTotal - tTotal)) / gvr.FCTextBox("TbCantidadF").Text.ToDecimal
+                                    End If
+                                End If
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaTraspaso, gvr.FCTextBox("TbCantidadF").Text.ToDouble, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, PU, -1, PUTC:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, PUExtranjero), CveCompraDetalle:=gvr.DataKey("CveCompraDetalle").ToEntero, CveOrdenCompraDetalle:=gvr.DataKey("CveOrdenCompraDetalle").ToEntero, CveVentaDetalle:=gvr.DataKey("CveVentaDetalle").ToEntero, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario, FechaCaducidad:=If(CBool(gvr.DataKey("AplicaCaducidad")), gvr.FCTextBox("TxtCaducidad").Text.ToDate, MinFecha), Lote:=If(CBool(gvr.DataKey("AplicaLote")), gvr.FCTextBox("TxtLote").Text, ""), CveSeccionAlmacen:=If(CBool(gvr.DataKey("AplicaSeccion")), gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue.ToEntero, -1)) Then
+                                    ErrorMovInv = True
+                                    Exit For
+                                End If
+
+                            End If
+                            'If ObjInventario.CveMovimientoDetalle > 0 AndAlso DtSeccionAlmacen.Rows.Count > 0 Then
+                            '    For Each Dr As DataRow In DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {gvr.RowIndex}").Rows
+                            '        If Not ObjInventario.AddMovimientosDetalleSeccionesAlmacen(ObjInventario.CveMovimientoDetalle, Dr("CveSeccionAlmacen").ToString.ToEntero, Dr("CantidadSeccionAlmacen").ToString.ToDecimal) Then
+                            '            ErrorMovInv = True
+                            '            Exit For
+                            '        End If
+                            '    Next
+                            'End If
+                            Cont += 1
+                        End If
+                    Next
+                Else
+                    ErrorMovInv = True
+                End If
+
+                'Next
+
+                'MODIFICA EL CONCEPTO PARA REALIZAR LA ENTRADA
+                CveConceptoAlmacen = 27
+                CveAlmacen = CveAlmacenDevolucionProveedor
+            End If
+
+            'ENTRADA ALMACÉN
+            CveMovimiento = ObjInventario.AddMovimiento(CveAlmacen, CveConceptoAlmacen, 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+                                                        CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=If(DdlMonedaTC.SelectedValue.ToEntero = 1, -1, TipoCambio),
+                                                        MovimientoFijo:=If(TipoMovimiento = 2, True, False), CveMovimientoRelacionado:=CveMovimientoSalidaTraspaso, Remision:=TxtRemision.Text, Modulo:="RA/G1")
+
+            If CveMovimiento > 0 Then
+                CveMovimientoOriginal = CveMovimiento
+                InvFolio = ObjInventario.Folio.ToString
+
+                Dim DtDetalle As New DataTable
+                Dim DtDetalleLote As New DataTable
+                Dim PU As Decimal = 0.0D
+                Dim PUExtranjero As Decimal = 0.0D
+                Dim CostoIndirecto As Decimal = 0.0D
+                Dim SumaTotal As Decimal = 0.0D
+                Dim Cont As Integer = 0
+
                 For Each gvr As GridViewRow In GvInv.Rows
                     If gvr.FCCheckBox("cbInv").Checked AndAlso gvr.FCTextBox("TbCantidadF").Text.ToDecimal > 0 Then
 
@@ -2858,6 +3027,7 @@ Partial Class Inventarios_RecepcionAlmacen
                     MensajeError = "Error al obtener movimientos"
                 End If
             End If
+
             'PREPOLIZA - NC
             If TipoMovimiento = 3 AndAlso Not ErrorMovInv Then
                 If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
@@ -2983,6 +3153,75 @@ Partial Class Inventarios_RecepcionAlmacen
                 End If
             End If
 
+            If Not ErrorMovInv AndAlso TipoMovimiento = 2 AndAlso CveMovimientoSalidaTraspaso > 0 Then
+
+                'VARIABLES
+                Dim Fecha As Date = Now
+                Dim CveProveedor As Integer = -1
+                Dim ProveedorNombre As String = ""
+                Dim SerieFolio As String = ""
+
+                'Dim DrAlmO, DrAlmD As DataRow
+                'Dim CveSucursalOrigen, CveSucursalDestino As Integer
+                'Dim TipoAlmacenOrigen, TipoAlmacenDestino As Integer
+                'Dim CveSubProyectoOrigen, CveSubProyectoDestino As Integer
+                Dim IdCtaContableOrigen, IdCtaContableDestino As Integer
+
+                If ObjCompras.GetCompras(CveCompraSurtir, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
+                    'Fecha = ObjCompras.DtResultados(0)("Fecha").ToString.ToDate
+                    Fecha = TxtFecha.Text.ToDate
+                    CveProveedor = ObjCompras.DtResultados(0)("CveProveedor").ToString.ToEntero
+                    ProveedorNombre = ObjCompras.DtResultados(0)("RazonSocial").ToString
+                    SerieFolio = $"Compra: {ObjCompras.DtResultados(0)("SerieFolio").ToString}"
+                Else
+                    ErrorMovInv = True
+                End If
+
+                'DrAlmO = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero).FiltroPrimero("")
+                'DrAlmD = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacenDevolucionProveedor).FiltroPrimero("")
+
+                'If Not ErrorMovInv AndAlso DrAlmO IsNot Nothing AndAlso DrAlmD IsNot Nothing Then
+                '    CveSucursalOrigen = DrAlmO("CveSubProyecto").ToString.ToEntero
+                '    TipoAlmacenOrigen = DrAlmO("CveTipoAlmacen").ToString.ToEntero
+                '    CveSubProyectoOrigen = DrAlmO("CveSubProyecto").ToString.ToEntero
+                '    IdCtaContableOrigen = DrAlmO("IdCtaContable").ToString.ToEntero
+
+                '    CveSucursalDestino = DrAlmD("CveSubProyecto").ToString.ToEntero
+                '    TipoAlmacenDestino = DrAlmD("CveTipoAlmacen").ToString.ToEntero
+                '    CveSubProyectoDestino = DrAlmD("CveSubProyecto").ToString.ToEntero
+                '    IdCtaContableDestino = DrAlmO("IdCtaContable").ToString.ToEntero
+                'Else
+                '    ErrorMovInv = True
+                'End If
+
+                Dim resultado As DataTable = Nothing
+
+                If ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaTraspaso, UsuarioActual.CveEmpresa) Then
+                    resultado = ObjInventario.DtResultados.Copy()
+                Else
+                    ErrorMovInv = True
+                End If
+
+                'Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {CveAlmacenDevolucionProveedor}").ToEntero()
+
+                'AGREGAMOS PREPOLIZAS TRASPASO DIRECTO:
+                Dim CvePrePolizaTraspaso As Integer = ObjConta.AddPrePolizas("RecepcionAlmacen/TraspasoAlmacen", 53, 0, 0, 1, Now, ProveedorNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                If CvePrePolizaTraspaso > 0 AndAlso ObjInventario.GetMovimientosDetalle(CveMovimientoSalidaTraspaso, UsuarioActual.CveEmpresa) Then
+                    Dim importe As Decimal = resultado.SUMD("Total").RoundSQL
+
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTraspaso, True, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContableOrigen, -1, CveMovimientoAlmacen:=CveMovimientoSalidaTraspaso, Contabilizable:=False, ImporteMX:=importe) Then
+                        ErrorMovInv = True
+                    End If
+
+                    If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTraspaso, False, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContableDestino, -1, CveMovimientoAlmacen:=CveMovimiento, Contabilizable:=False, ImporteMX:=importe) Then
+                        ErrorMovInv = True
+                    End If
+                Else
+                    ErrorMovInv = True
+                End If
+
+            End If
+
             'AGREGA SALDOS A OC SURTIDAS
             If Not ErrorMovInv And CveOCSurtir > 0 Then
                 If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
@@ -3013,8 +3252,19 @@ Partial Class Inventarios_RecepcionAlmacen
 
             Dim Msg As New StringBuilder
             Dim link As String = String.Format("<a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", CveMovimiento, InvFolio)
-            Msg.AppendFormat("Movimiento Registrado: Folio: <b>{0}</b>", link)
+            'SI LO SOLO GENERO EL MOVIMIENTO DE ENTRADA O SALIDA
-            Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento)))
+            If CveMovimiento > 0 AndAlso CveMovimientoSalidaTraspaso <= 0 Then
+                Msg.AppendFormat("Movimiento Registrado: Folio: <b>{0}</b>", link)
+                Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento)))
+                'SI GENERO UN TRASPASO AL ALMACEN DE DEVOLUCION
+            ElseIf CveMovimiento > 0 AndAlso CveMovimientoSalidaTraspaso > 0 Then
+                Msg.AppendFormat("Movimiento de Salida: Folio: <b>{0}</b>", String.Format("<a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", CveMovimientoSalidaTraspaso, FolioSalidaTraspaso))
+                Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoSalidaTraspaso)))
+
+                Msg.AppendFormat("<br/>Movimiento de Entrada: Folio: <b>{0}</b>", link)
+                Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento)))
+            End If
+
 
             'If CveMovtoSalidaDirecta > 0 Then
             '    Msg.AppendFormat("<br/><br/> Movimientos de control:<br/>")
@@ -3047,7 +3297,6 @@ Partial Class Inventarios_RecepcionAlmacen
                 link = String.Format("<a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", CveMovimientoVirtual, FolioVirtual)
                 Msg.AppendFormat("<br/>Movimiento de Entrada al Almacen Virtual: Folio: <b>{0}</b>", link)
                 Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtual)))
-
             End If
 
             'CONTABILIDAD

Inventarios/RepTraspasoAlmacen.aspx

@@ -202,7 +202,7 @@
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun Traspaso de Almacén"
-                ToolTip="Remisiones sin Facturar" data-rows="2"
+                ToolTip="" data-rows="2"
                 CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
                 data-sort="true" GridLines="None">
                 <Columns>

Inventarios/TraspasoAlmacen.aspx.vb

@@ -1451,6 +1451,7 @@ Partial Class Inventarios_TraspasoAlmacen
         Else
             RegistraScript("$('#DivTransitorio').hide(500);$('#DivGastoIndirecto').hide(500);$('#DivDocChofer').hide(500);")
         End If
+        CargaAlmacenDestino()
 
         SiguienteFolio(If(ChkTransitorio.Checked, 9, 8))
     End Sub
@@ -2846,29 +2847,42 @@ Partial Class Inventarios_TraspasoAlmacen
             DdlSeccionAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
             UpDatos.Update()
 
-            Dim DrAlmO As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero).FiltroPrimero("")
+            CargaAlmacenDestino()
-            If DrAlmO("CveTipoAlmacen").ToString.ToEntero = 26 Then 'costeados
 
-                DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen  IN (26) AND Estatus = 'Activo'")
+        End If
-                DdlAlmacenDestino.DataBind()
+    End Sub
-                DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+    Private Sub CargaAlmacenDestino()
+
+        Dim DrAlmO As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero).FiltroPrimero("")
+        If DrAlmO("CveTipoAlmacen").ToString.ToEntero = 26 Then 'costeados
+
+            DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen  IN (26) AND Estatus = 'Activo'")
+            DdlAlmacenDestino.DataBind()
+            DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        Else
+
+            Dim Str As String
+            If ChkTransitorio.Checked Then
+                Str = "" ' String.Format(" AND CveSubProyecto <> {0}  ", DrAlmO("CveSubProyecto")) 'RMF. pueden haber almacen que esten dentro de lamisma sucursal, pero que requeiren transitorio
             Else
-
+                Str = String.Format(" AND CveSubProyecto = {0}  ", DrAlmO("CveSubProyecto"))
-                DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11,24) AND Estatus = 'Activo'")
-                DdlAlmacenDestino.DataBind()
-                DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
             End If
+            DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("  CveTipoAlmacen NOT IN (3,4,9,10,11,24) AND Estatus = 'Activo' {0}   ", Str))
+            DdlAlmacenDestino.DataBind()
+            DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
         End If
     End Sub
 
     Protected Sub DdlAlmacenDestino_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAlmacenDestino.SelectedIndexChanged
 
-        If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenDestino.SelectedValue.ToEntero}").ToString.ToEntero = 21 Then
+        'If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenDestino.SelectedValue.ToEntero}").ToString.ToEntero = 21 Then
-            ChkTransitorio.Checked = False
+        '    ChkTransitorio.Checked = False
-            ChkTransitorio.Enabled = False
+        '    ChkTransitorio.Enabled = False
-        Else
+        'Else
-            ChkTransitorio.Enabled = True
+        '    ChkTransitorio.Enabled = True
-        End If
+        'End If
         If DdlAlmacenDestino.SelectedValue.ToEntero > 0 Then
             DdlSeccionAlmacenDestino.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenDestino.SelectedValue.ToEntero)
             DdlSeccionAlmacenDestino.DataBind()

OC/OC.aspx.vb

@@ -167,7 +167,14 @@ Partial Class OC
     End Property
     Private Property NumCotizaciones As Integer
         Get
-            NumCotizaciones = ViewState("NumCotizaciones").ToString.ToEntero
+
+            If ViewState("NumCotizaciones") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("NumCotizaciones").ToString.ToEntero
+            End If
+
+
         End Get
         Set(value As Integer)
             ViewState("NumCotizaciones") = value
@@ -524,6 +531,22 @@ Partial Class OC
         End Set
     End Property
 
+
+
+
+    Private Property CveOrdenTrabajo As Integer
+        Get
+            If ViewState("CveOrdenTrabajo") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("CveOrdenTrabajo").ToString.ToEntero
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CveOrdenTrabajo") = value
+        End Set
+    End Property
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -672,6 +695,14 @@ Partial Class OC
                 'ASIGNA ESTATUS OC
                 CboE_SelectedIndexChanged(New Object, New EventArgs)
 
+
+                If Request("CveOrdenTrabajo") IsNot Nothing AndAlso Request("CveOrdenTrabajo").ToString.ToEntero > 0 Then
+                    CveOrdenTrabajo = Request("CveOrdenTrabajo").ToEntero
+                    CargaOT()
+                End If
+
+
+
             End If
 
 
@@ -1234,6 +1265,10 @@ Partial Class OC
 
             If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
                 CveConfianzaProveedor = objOC.DtResultados.Rows(0)("CveConfianzaProveedor").ToString.ToEntero
+                'SI NO TIENE ASIGNADO UN NIVEL DE CONFIANZA SE ASIGNARA EL VALOR DE 'PROVEEDOR NO DEDICADO'
+                If CveConfianzaProveedor <= 0 Then
+                    CveConfianzaProveedor = 2
+                End If
             End If
 
             'Anticipos
@@ -2544,6 +2579,20 @@ Partial Class OC
                 Else
                     TieneError = True
                 End If
+
+
+
+                If CveOrdenTrabajo > 0 Then
+
+                    Dim ObjAF As New ClsAF(OC.IniciaTransacSQL)
+                    If Not ObjAF.UpdateOrdenesTrabajoOC(CveOrdenTrabajo, CveOrdenCompra, UsuarioActual.CveEmpresa) Then
+                        TieneError = True
+                    End If
+
+                End If
+
+
+
             End If
 
 
@@ -5335,9 +5384,17 @@ Partial Class OC
             If Objeto.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, DdlProveedores.SelectedValue.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
                 If Objeto.DtResultados.Rows.Count > 0 Then
 
-                    Me.CveConfianzaProveedor = Objeto.DtResultados.FiltroPrimeroValor("CveConfianzaProveedor").ToEntero()
+                    If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
+                        Me.CveConfianzaProveedor = Objeto.DtResultados.FiltroPrimeroValor("CveConfianzaProveedor").ToEntero()
+                        'SI NO TIENE ASIGNADO UN NIVEL DE CONFIANZA SE ASIGNARA EL VALOR DE 'PROVEEDOR NO DEDICADO'
+                        If CveConfianzaProveedor <= 0 Then
+                            CveConfianzaProveedor = 2
+                        End If
+                    End If
+
                     ChkCotizacion.Checked = CveConfianzaProveedor > 0
                     ChkCotizacion.Enabled = CveConfianzaProveedor <= 0
+
                 End If
             End If
 
@@ -8064,4 +8121,112 @@ Partial Class OC
     '    End If
     '    ObjVentas.Dispose()
     'End Sub
+
+
+    Private Sub CargaOT()
+
+        If CveOrdenTrabajo > 0 Then
+
+            Dim ObjAF As New ClsAF
+
+            Dim CveSubProyecto As Integer = 0
+            Dim SubProyecto As String = ""
+
+            Dim CveProyecto As Integer = 0
+            Dim Proyecto As String = ""
+
+            If ObjAF.GetOrdenesTrabajo(CveOrdenTrabajo, -1, -1, -1, -1, -1, MinFecha, MaxFecha, Nothing, -1, UsuarioActual.CveEmpresa) Then
+
+                If ObjAF.DtResultados IsNot Nothing AndAlso ObjAF.DtResultados.Rows.Count > 0 Then
+
+                    lblFolio.Text = $"Folio OT:  {ObjAF.DtResultados(0)("Folio").ToString}"
+
+                    CveSubProyecto = ObjAF.DtResultados(0)("CveSubProyecto").ToString.ToEntero
+                    SubProyecto = GlobalDTSubProyectos(-1, CveSubProyecto)(0)("SubProyecto").ToString
+
+                    CveProyecto = GlobalDTSubProyectos(-1, CveSubProyecto)(0)("CveProyecto").ToString.ToEntero
+                    Proyecto = GlobalDTSubProyectos(-1, CveSubProyecto)(0)("Proyecto").ToString
+
+                    'DdlAF.SelectedValueExist(ObjAF.DtResultados(0)("CveAF").ToString)
+                    'DdlTipoServicio.SelectedValueExist(ObjAF.DtResultados(0)("CveTipoServicio").ToString)
+                    'TxtServicio.Text = ObjAF.DtResultados(0)("Servicio").ToString
+                    DdlPrioridad.SelectedValueExist(ObjAF.DtResultados(0)("Prioridad").ToString)
+                    'txtFechaI.Text = ObjAF.DtResultados(0)("FechaInicio").ToString.ToDate.ToString("dd/MM/yyyy")
+
+                    If ObjAF.DtResultados(0)("FechaFin").ToString.Length > 0 Then
+                        'txtFechaF.Text = ObjAF.DtResultados(0)("FechaFin").ToString.ToDate.ToString("dd/MM/yyyy")
+                    End If
+
+                    'txtFechaFinReal.Text     ""
+                    'DdlOrdenesTrabajoEstatus.SelectedValueExist(ObjAF.DtResultados(0)("CveEstatusOT").ToString)
+                Else
+                    Alert("No se encontro la orden de trabajo", TipoMensaje.MsgAdvertencia)
+                End If
+            End If
+
+            If ObjAF.GetOrdenesTrabajoMateriales(CveOrdenTrabajo, UsuarioActual.CveEmpresa) Then
+
+
+                For Each DRow As DataRow In ObjAF.DtResultados.Rows
+
+                    Dim Cantidad As Decimal = DRow("Faltante").ToString.ToDecimal
+
+                    If Cantidad > 0 Then
+
+
+                        Dim CvePS As Integer = DRow("CvePS").ToString.ToEntero
+                        Dim PrecioUnitario As Double = 0
+
+                        Dim dr As DataRow = DtDetalle.NewRow
+                        Dim DrPS = GlobalDTPS(CveEmpresaActual, CvePS:=CvePS).FiltroPrimero("")
+                        If DrPS Is Nothing Then
+                            Alert("Ocurrió un error al cargar la información de los productos del archivo. Por favor vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+                            Continue For
+                        End If
+                        Dim RetIVA As Double = DrPS("RetIVA").ToString.ToDouble
+                        Dim RetISR As Double = DrPS("RetISR").ToString.ToDouble
+                        Dim PS As String = DrPS("PS").ToString
+                        Dim TotalPS As Double = If(PrecioUnitario > 0, PrecioUnitario * Cantidad, 0)
+                        Dim CveUnidadMedida As Integer = DrPS("CveUnidadMedida").ToString.ToEntero
+                        Dim UM As String = DrPS("UnidadMedida").ToString
+                        Dim IvaPS As Double = DrPS("IVA").ToString.ToDouble
+                        'If IvaPS = -1 Then
+                        '    Dim Drr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero())(0)
+                        '    IvaPS = Drr("IVA").ToString().ToDouble()
+                        'End If
+                        Dim IEPSPS As Double = DrPS("IEPSPorcentaje").ToString.ToDouble
+                        Dim IEPSPSIVA As Double = If(DrPS("IEPSGrabaIVA").ToString = "True", DrPS("IEPSPorcentaje").ToString.ToDouble, 0)
+                        Dim CveClasificacion As Integer = DrPS("CveClasificacion").ToString.ToEntero
+                        Dim Clasificacion As String = DrPS("Clasificacion").ToString
+                        Dim CveActivoFijo = HdnCveActivoFijo.Value.ToEntero
+                        Dim IdCuentaPorEjercer As Integer = If(HdnCveCuentaPorEjercer.Value = String.Empty, -1, HdnCveCuentaPorEjercer.Value.ToEntero)
+                        Dim IdCuentaComprometido As Integer = If(HdnCveCuentaComprometido.Value = String.Empty, -1, HdnCveCuentaComprometido.Value.ToEntero)
+                        Dim CveOrdenCompraDetalle As Integer = DtDetalle.MAX("CveOrdenCompraDetalle").ToEntero + 100
+
+                        AddPS(Cantidad, CvePS, PS, "", PrecioUnitario, 0, TotalPS, CveUnidadMedida, IvaPS, IEPSPS, IEPSPSIVA, CveClasificacion, UM, Clasificacion, CveProyecto, Proyecto, CveSubProyecto, SubProyecto, LblCodigo.Text,
+                    CveActivoFijo, 0, CveOrdenCompraDetalle, CveOrdenCompra, IdCuentaPorEjercer, IdCuentaComprometido, DdlACGeneral1.SelectedValue.ToEntero, DdlACGeneral2.SelectedValue.ToEntero, DdlACGeneral3.SelectedValue.ToEntero, DdlACGeneral4.SelectedValue.ToEntero,
+                     DdlACGeneral5.SelectedValue.ToEntero, RetIVA, RetISR)
+
+                    End If
+
+
+                Next
+
+            End If
+
+
+
+
+            ObjAF.Dispose()
+
+            GvD.DataSource = DtDetalle
+            GvD.DataBind()
+
+        End If
+
+
+    End Sub
+
+
+
 End Class

PortalCliente/PortalCliente.aspx.vb

@@ -701,7 +701,7 @@ Partial Class Ventas_PortalCliente
         End If
 
         If EstatusPagoProsepago = 0 Then
-            Alert("Ocurrió un error al procesar el pago, no se a realizadó ningun cargo. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+            Alert("La transacción no se pudo realizar, no se aplicó ningun cargo. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
 
@@ -1131,7 +1131,7 @@ Partial Class Ventas_PortalCliente
 
                         If Not TieneError Then
                             ObjConta.Commit()
-                            Alert($"Se realizó el pago exitoso de las siguientes facturas:<br><br> {MensajeAlert.ToString}", TipoMensaje.MsgInformacion)
+                            Alert($"La transacción se realizó correctamente y el pago se aplicó en las siguientes facturas:<br><br> {MensajeAlert.ToString}", TipoMensaje.MsgInformacion)
                         Else
                             ObjConta.RollBack()
                             Alert(MensajeError.ToString, TipoMensaje.MsgError)

RH/RepCursos.aspx

@@ -153,14 +153,23 @@
     </asp:UpdatePanel>
 
     <br />
-
+    <div class="row">
-    <div class="row col-md-12" align="right">
+        <div class="row col-md-6" align="right">
         <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", Gv.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
         <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", Gv.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+    </div>
     </div>
-    <asp:UpdatePanel ID="UPGv" runat="server" RenderMode="Inline" UpdateMode="Conditional">
+    
+
+          
+       <div class="row col-md-6" >
+
+            <asp:UpdatePanel ID="UPGv" runat="server" RenderMode="Inline" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="Gv" Width="100%" runat="server" GridLines="None" BorderWidth="0" data-heighterror="330" data-freezecols="0" data-freezerows="1"              
+
+            <asp:GridView ID="Gv" Width="100%" runat="server" GridLines="None" BorderWidth="0" data-heighterror="330" data-freezecols="0" data-freezerows="1"     
+                OnRowDataBound="Gv_RowDataBound"
+                DataKeyNames="GPO"         
                 CssClass="ScrollAD  table table-striped table-advance table-hover Widthall" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
                 AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
                 <Columns>                     
@@ -176,7 +185,13 @@
             <asp:AsyncPostBackTrigger ControlID="btConsultar" EventName="Click" />
         </Triggers>
 
-    </asp:UpdatePanel>
+    </asp:UpdatePanel>
+
+        </div>
+ 
+    
+
+   
   
 
 </asp:Content>

RH/RepCursos.aspx.vb

@@ -22,11 +22,11 @@ Partial Class RH_RepCursos
 
         DdlDepartamentos.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
         DdlDepartamentos.DataBind()
-        DdlDepartamentos.Items.Insert(0, New ListItem("Seleccione un departamento", "-1"))
+        DdlDepartamentos.Items.Insert(0, New ListItem("Todos", "-1"))
 
         DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
         DdlSupervisor.DataBind()
-        DdlSupervisor.Items.Insert(0, New ListItem("Seleccione un Supervisor", "-1"))
+        DdlSupervisor.Items.Insert(0, New ListItem("Todos", "-1"))
 
         Dim objRH As New ClsRH
 
@@ -38,7 +38,7 @@ Partial Class RH_RepCursos
 
         objRH.Dispose()
         DdlCursos.DataBind()
-        DdlCursos.Items.Insert(0, New ListItem("Seleccione un Curso", "-1"))
+        DdlCursos.Items.Insert(0, New ListItem("Todos", "-1"))
 
     End Sub
 
@@ -79,11 +79,31 @@ Partial Class RH_RepCursos
         objRH.Dispose()
         Gv.DataBind()
 
-    End Sub
+    End Sub
+
     Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
         CargaDatos()
     End Sub
+
     Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
-        Gv.ExportToExcel("Reporte_Capacitacion")
+        Gv.ExportToExcelGembox("ReporteCapacitacion", UsuarioActual, "", "", "Report eCapacitación", "", 1)
+    End Sub
+
+    Protected Sub Gv_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            If e.Row.DataKey("GPO").ToString.Trim.Length = 0 Then
+                e.Row.Cells(0).Text = "Totales"
+                e.Row.Attributes.Add("style", "background-color:#DDDDDD;")
+            End If
+
+
+        End If
+
     End Sub
+
+    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
+    End Sub
+
 End Class

Ventas/ActualizarPrecios.aspx

@@ -54,6 +54,7 @@
                     </div>
                 </div>
                 <div class="portlet-body" >
+                    <br />
                     <div class="row v-center">
                         <label class="col-md-1 v-center" id="LblProveedorCompra" runat="server" visible="false">Proveedor:</label>
                         <div class="col-md-1 v-center" id="DivProveedorCompra" runat="server" visible="false">
@@ -67,6 +68,11 @@
                                 <asp:ListItem Value="0">Incativos</asp:ListItem>
                             </asp:DropDownList>
                         </div>
+                        <label id="lblModelo" runat="server" class="col-md-1 v-center truncate" visible="false">Modelo:</label>
+                        <div class="col-md-1 v-center"> 
+                            <asp:DropDownList ID="DdlModelo" Visible="false" runat="server" Width="100%" CssClass="select2me" DataTextField="Modelo" DataValueField="CveModelo">
+                            </asp:DropDownList>
+                        </div>
                     </div>
                 </div>
             </div>

Ventas/ActualizarPrecios.aspx.vb

@@ -66,6 +66,7 @@ Partial Class Ventas_ActualizarPrecios
         CargaPreciosLista()
         CargaProveedores()
         CargarMarcas()
+        CargarModelos()
     End Sub
     Public Sub CargaDDlClasif()
         DDlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
@@ -73,32 +74,32 @@ Partial Class Ventas_ActualizarPrecios
         DDlClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
-    Public Sub CargaPreciosLista()
+    Public Sub CargaPreciosLista()
-
+
-        DdlPrecioLista.Items.Clear()
+        DdlPrecioLista.Items.Clear()
-
+
-        If UsuarioActual.Empresa.Funcionalidad(404).ToEntero > 0 Then 'si manneja precios de lista
+        If UsuarioActual.Empresa.Funcionalidad(404).ToEntero > 0 Then 'si manneja precios de lista
-            Dim ObjVta As New ClsVentas
+            Dim ObjVta As New ClsVentas
-            Dim primerItem As String = ""
+            Dim primerItem As String = ""
-            If ObjVta.GetPrecioListas(UsuarioActual.CveEmpresa) Then
+            If ObjVta.GetPrecioListas(UsuarioActual.CveEmpresa) Then
-                DdlPrecioLista.DataSource = ObjVta.DtResultados.Copy()
+                DdlPrecioLista.DataSource = ObjVta.DtResultados.Copy()
-                DdlPrecioListaCarga.DataSource = ObjVta.DtResultados.Copy()
+                DdlPrecioListaCarga.DataSource = ObjVta.DtResultados.Copy()
-                primerItem = ObjVta.DtResultados.FiltroPrimeroValor("CvePrecioLista")
+                primerItem = ObjVta.DtResultados.FiltroPrimeroValor("CvePrecioLista")
-            End If
+            End If
-            ObjVta.Dispose()
+            ObjVta.Dispose()
-
+
-
+
-            DdlPrecioLista.DataBind()
+            DdlPrecioLista.DataBind()
-            DdlPrecioListaCarga.DataBind()
+            DdlPrecioListaCarga.DataBind()
-
+
-            If (DdlPrecioLista.Items.Count = 1) Then
+            If (DdlPrecioLista.Items.Count = 1) Then
-                DdlPrecioLista.Items.FindByValue(primerItem).Selected = True
+                DdlPrecioLista.Items.FindByValue(primerItem).Selected = True
-            End If
+            End If
-        Else
+        Else
             DdlPrecioLista.Items.Insert(0, New ListItem("Sin Precio Lista", "-2"))
-            DdlPrecioListaCarga.Items.Insert(0, New ListItem("Sin Precio Lista", "-2"))
+            DdlPrecioListaCarga.Items.Insert(0, New ListItem("Sin Precio Lista", "-2"))
-        End If
+        End If
-
+
     End Sub
 
     Public Sub CargaPS()
@@ -141,6 +142,20 @@ Partial Class Ventas_ActualizarPrecios
 
         DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
+    Private Sub CargarModelos()
+        If UsuarioActual.Empresa.Funcionalidad(558).ToString = "1" Then
+            lblModelo.visible = True
+            DdlModelo.Visible = True
+            Dim ObjGeneral As New ClsGenerales
+            If ObjGeneral.GetModelos(UsuarioActual.CveEmpresa) Then
+                DdlModelo.DataSource = ObjGeneral.DtResultados
+            End If
+            ObjGeneral.Dispose()
+            DdlModelo.DataBind()
+        End If
+        DdlModelo.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+    End Sub
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
         Dim objPS As New ClsProductosServicios
         Dim CveProveedor As Integer = -1
@@ -156,7 +171,7 @@ Partial Class Ventas_ActualizarPrecios
         End If
 
         If objPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, DdlPrecioLista.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero, CvePS,
-                                   CveProveedor:=CveProveedor, Estado:=DdlEstado.SelectedValue.ToEntero, Marcas:=Marcas) Then
+                                   CveProveedor:=CveProveedor, Estado:=DdlEstado.SelectedValue.ToEntero, Marcas:=Marcas, CveModelo:=DdlModelo.SelectedValue.ToEntero) Then
             GVPrecios.DataSource = objPS.DtResultados
         End If
         objPS.Dispose()
@@ -208,7 +223,7 @@ Partial Class Ventas_ActualizarPrecios
 
         ObjPS.Dispose()
         BtnConsultar_Click(Nothing, Nothing)
-        RegistraScript("$('#divAgregar').modal('hide')")
+        RegistraScript("$('#divAgregar').modal('hide')")
         TxtImporte.Text = ""
         TxtPrecio.Text = ""
         TxtPorcentaje.Text = ""
@@ -395,26 +410,26 @@ Partial Class Ventas_ActualizarPrecios
                     Dim Correcto As Boolean = False
                     Dim CvePS As Integer = DtPS.FiltroPrimeroValor("CvePS", String.Format("Codigo='{0}' AND CveEmpresa={1}", row(0).ToString(), UsuarioActual.CveEmpresa))
                     Dim CvePrecioLista As Integer = DdlPrecioListaCarga.SelectedValue.ToEntero()
-                    Dim PrecioNuevo As Decimal = row("Precio").ToString().ToDecimal()
+                    Dim PrecioNuevo As Decimal = row("Precio").ToString().ToDecimal()
                     Dim Porcentaje As Decimal = -1
 
-                    If CvePS > 0 AndAlso CvePrecioLista > 0 Then
+                    If CvePS > 0 AndAlso CvePrecioLista > 0 Then
-
+
-
+
                         Correcto = ObjPS.UpdatePSPreciosLista(PrecioNuevo, CvePrecioLista, Porcentaje, CvePS, UsuarioActual.CveUsuario, DateTime.Now, True)
                         If Correcto Then
                             RowsCargados += 1
                         End If
-                    Else
+                    Else
-                        If CvePS > 0 AndAlso CvePrecioLista = -2 Then
+                        If CvePS > 0 AndAlso CvePrecioLista = -2 Then
-                            Correcto = ObjPS.UpdatePSPrecios(PrecioNuevo, CvePrecioLista, Porcentaje, CvePS, UsuarioActual.CveUsuario, DateTime.Now, True)
+                            Correcto = ObjPS.UpdatePSPrecios(PrecioNuevo, CvePrecioLista, Porcentaje, CvePS, UsuarioActual.CveUsuario, DateTime.Now, True)
-                            If Correcto Then
+                            If Correcto Then
-                                RowsCargados += 1
+                                RowsCargados += 1
-                            End If
+                            End If
-                        Else
+                        Else
-                            Correcto = False
+                            Correcto = False
-                        End If
+                        End If
-
+
                     End If
                     If Not Correcto Then
                         ProductosNoCargados.AppendFormat("{0},", row("Producto / Servicio").ToString())
@@ -493,12 +508,12 @@ Partial Class Ventas_ActualizarPrecios
         End While
 
         Return dataTable
-    End Function
+    End Function
 #End Region
-
+
-    Protected Sub gvSucursal_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+    Protected Sub gvSucursal_RowDataBound(sender As Object, e As GridViewRowEventArgs)
-        If e.Row.RowType = DataControlRowType.DataRow Then
+        If e.Row.RowType = DataControlRowType.DataRow Then
-            e.Row.FCTextBox("TxtPrecioMinimo").Attributes.Add("onKeyUp", String.Format("FncSeleccionaChk({0});", e.Row.FCCheckBox("chkSucursal").ClientID))
+            e.Row.FCTextBox("TxtPrecioMinimo").Attributes.Add("onKeyUp", String.Format("FncSeleccionaChk({0});", e.Row.FCCheckBox("chkSucursal").ClientID))
-        End If
+        End If
-    End Sub
+    End Sub
 End Class

Ventas/AuxiliarCliente.aspx

@@ -169,17 +169,8 @@
                                             <asp:HyperLink ID="HplReferencia" Target="_blank" CssClass="Texto" runat="server" Text='<%# Eval("Referencia")%>' ></asp:HyperLink>
                                         </ItemTemplate>
                                     </asp:TemplateField> 
-                                   
+                                    <asp:BoundField HeaderText="Cargo" DataField="Cargo" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right"/>
-                                    <asp:TemplateField HeaderText="Cargo" ItemStyle-HorizontalAlign="Right">
+                                    <asp:BoundField HeaderText="Abono" DataField="Abono" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right"/>
-                                        <ItemTemplate>
-                                            <asp:Label runat="server" ID="LblCargo" Text='<%# Eval("Cargo", "{0:N2}") %>'></asp:Label>
-                                        </ItemTemplate>
-                                    </asp:TemplateField> 
-                                    <asp:TemplateField HeaderText="Abono" ItemStyle-HorizontalAlign="Right">
-                                        <ItemTemplate>
-                                            <asp:Label runat="server" ID="LblAbono" Text='<%# Eval("Abono", "{0:N2}") %>'></asp:Label>
-                                        </ItemTemplate>
-                                    </asp:TemplateField> 
                                     <asp:TemplateField HeaderText="Moneda">
                                         <ItemTemplate>
                                             <asp:Label runat="server" ID="LblMoneda" Text='<%# Eval("Abreviatura") %>'></asp:Label>

Ventas/AuxiliarCliente.aspx.vb

@@ -100,93 +100,7 @@ Partial Class Ventas_AuxiliarCliente
     Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
     End Sub
     Public Sub ExportToExcelGTest(Gv As GridView, NombreArchivoXLSx As String, Optional Titulo As String = "Reporte", Optional Usuario As Usuario = Nothing)
-        Dim sw As New StringWriter()
+        ExportToExcelGembox(Gv, NombreArchivoXLSx, Usuario, txtFechaI.Text, txtFechaF.Text, Titulo, "", 1)
-        Dim htw As New HtmlTextWriter(sw)
-        Gv.RenderControl(htw)
-        GemBox.Spreadsheet.SpreadsheetInfo.SetLicense("ESWN-4QFD-26JF-1SZ8")
-
-        Dim excel As GemBox.Spreadsheet.ExcelFile
-        Dim options = GemBox.Spreadsheet.LoadOptions.HtmlDefault
-        Using htmlStream = New MemoryStream(options.Encoding.GetBytes(sw.ToString()))
-            excel = GemBox.Spreadsheet.ExcelFile.Load(htmlStream, options)
-            If Usuario IsNot Nothing Then
-                Dim worksheet = excel.Worksheets(0)
-                Dim num As Integer = worksheet.Rows.Count
-                If num > 128 Then num = 128
-
-                Dim columnCount = worksheet.CalculateMaxUsedColumns()
-                'If columnCount > 1 Then
-                '    For i As Integer = 1 To columnCount - 1
-                '        worksheet.Columns(i).AutoFit(1, worksheet.Rows(1), worksheet.Rows(num - 1))
-                '    Next
-                'End If
-
-                worksheet.Rows.InsertEmpty(0, 7)
-
-                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta))
-                Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, Usuario.CveEmpresa)
-
-                If Imagen.Exists Then
-                    worksheet.Pictures.Add(logouri.ToString(), "A1", "B4")
-                End If
-
-                Dim celdasConTexto = worksheet.GetUsedCellRange(True)
-                celdasConTexto.Style.Font.Name = "Calibri Light"
-
-                Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex)
-                RangoNombreEmpresa.Merged = True
-                RangoNombreEmpresa.Value = Usuario.Empresa.Empresa
-                RangoNombreEmpresa.Style.Font.Size = 18 * 20
-                RangoNombreEmpresa.Style.Font.Name = "Calibri Light"
-                RangoNombreEmpresa.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
-                RangoNombreEmpresa.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
-
-                Dim RangoTitulo = worksheet.Cells.GetSubrangeAbsolute(3, celdasConTexto.FirstColumnIndex, 3, celdasConTexto.LastColumnIndex)
-                RangoTitulo.Merged = True
-                RangoTitulo.Value = Titulo
-                RangoTitulo.Style.Font.Size = 20 * 20
-                RangoTitulo.Style.Font.Name = "Calibri Light"
-                RangoTitulo.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
-                RangoTitulo.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
-
-                Dim FiltroCliente = worksheet.Cells.GetSubrangeAbsolute(5, celdasConTexto.FirstColumnIndex, 5, celdasConTexto.LastColumnIndex)
-                FiltroCliente.Merged = True
-                FiltroCliente.Value = String.Format("Cliente: {0}   Fecha Inicio: {1}   Fecha Fin: {2}  Opción: {3}", DdlClientes.SelectedText, txtFechaI.Text, txtFechaF.Text, DdlOpcion.SelectedItem.Text)
-                FiltroCliente.Style.Font.Size = 12 * 20
-                FiltroCliente.Style.Font.Name = "Calibri Light"
-                FiltroCliente.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left
-                FiltroCliente.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
-
-                For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex
-                    worksheet.Rows(7).Cells(i).Style.Font.Size = 12 * 20
-                    worksheet.Rows(7).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
-                    worksheet.Rows(7).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
-                    worksheet.Rows(7).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
-                    worksheet.Rows(7).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)
-                    'If i > 0 Then
-                    '    Try
-                    '        worksheet.Columns(i).AutoFit(1)
-                    '    Catch ex As Exception
-                    '    End Try
-                    'End If
-                Next
-
-
-                Dim IndexEndTable As Integer = Gv.Rows.Count + 9
-
-                worksheet.Rows(IndexEndTable).Cells(0).Value = "Usuario Imprimió:"
-                worksheet.Rows(IndexEndTable + 1).Cells(0).Value = Usuario.Nombre
-
-                worksheet.Rows(IndexEndTable).Cells(4).Value = "Fecha Impresión: "
-                worksheet.Rows(IndexEndTable + 1).Cells(4).Value = DateTime.Now.ToString()
-
-                worksheet.Rows(IndexEndTable).Cells(8).Value = "Impreso en SIG"
-            End If
-
-        End Using
-        htw.Dispose()
-
-        excel.Save(HttpContext.Current.Response, NombreArchivoXLSx)
 
     End Sub
     Protected Sub GvAuxCliente_RowDataBound(sender As Object, e As GridViewRowEventArgs)

Ventas/Clientes.aspx

@@ -1007,129 +1007,10 @@
                                             </div>
                                             <div class="portlet-body form-horizontal form-row-sepe">
                                                 <div class="form-body">
-                                                    <div class="form-group">
+                                                    <div id="divCuentas" runat="server" visible="false">
-                                                        <label class="control-label col-md-4">Clientes: </label>
+                                                         <asp:UpdatePanel runat="server" ID="UpCuentaConceptos" UpdateMode="Conditional">
-                                                        <div class="col-md-8">
-                                                            <asp:DropDownList ID="DdlCtaContableClientes" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
-                                                                <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
-                                                            </asp:DropDownList>
-
-                                                            <asp:Button ID="BtnActivaRegistroClientes" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
-                                                        </div>
-                                                    </div>
-
-                                                    <div class="form-group">
-                                                        <label class="control-label col-md-4">Extranjera Clientes: </label>
-                                                        <div class="col-md-8">
-                                                            <asp:DropDownList ID="DdlMonedaExtranjeraClientes" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
-                                                                <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
-                                                            </asp:DropDownList>
-
-                                                            <asp:Button ID="Button2" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
-                                                        </div>
-                                                    </div>
-
-
-                                                    <div class="form-group">
-                                                        <label class="control-label col-md-4">Complementaria Clientes: </label>
-                                                        <div class="col-md-8">
-                                                            <asp:DropDownList ID="DdlCtaContableCompClientes" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
-                                                                <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
-                                                            </asp:DropDownList>
-
-                                                            <asp:Button ID="BtnActivaRegCompClientes" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
-                                                        </div>
-                                                    </div>
-
-
-
-                                                    <div class="form-group">
-                                                        <label class="control-label col-md-4">Anticipos: </label>
-                                                        <div class="col-md-8">
-                                                            <asp:DropDownList ID="DdlCtaContableAnticipos" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
-                                                                <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
-                                                            </asp:DropDownList>
-
-                                                            <asp:Button ID="BtnActivaRegistroAnticipos" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Anticipos" Visible="False" />
-                                                        </div>
-                                                    </div>
-
-
-                                                    <div class="form-group">
-                                                        <label class="control-label col-md-4">Extranjera Anticipos: </label>
-                                                        <div class="col-md-8">
-                                                            <asp:DropDownList ID="DdlMonedaExtranjeraAnticipos" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
-                                                                <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
-                                                            </asp:DropDownList>
-
-                                                            <asp:Button ID="Button4" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
-                                                        </div>
-                                                    </div>
-
-
-                                                    <div class="form-group">
-                                                        <label class="control-label col-md-4">Complementaria Anticipos: </label>
-                                                        <div class="col-md-8">
-                                                            <asp:DropDownList ID="DdlCtaContableCompAnticipos" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
-                                                                <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
-                                                            </asp:DropDownList>
-
-                                                            <asp:Button ID="BtnActivaRegCompAnticipos" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Anticipos" Visible="False" />
-                                                        </div>
-                                                    </div>
-
-
-
-
-                                                    <div class="form-group">
-                                                        <label class="control-label col-md-4">Ret. IVA: </label>
-                                                        <div class="col-md-8">
-                                                            <asp:DropDownList ID="DdlCtaContableRetIVA" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
-                                                                <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
-                                                            </asp:DropDownList>
-
-                                                            <asp:Button ID="BtnActivaRegistroIVA" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="RetIVA" Visible="False" />
-                                                        </div>
-                                                    </div>
-                                                    <div class="form-group">
-                                                        <label class="control-label col-md-4">Ret. ISR: </label>
-                                                        <div class="col-md-8">
-                                                            <asp:DropDownList ID="DdlCtaContableRetISR" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
-                                                                <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
-                                                            </asp:DropDownList>
-
-                                                            <asp:Button ID="BtnActivaRegistroISR" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="RetISR" Visible="False" />
-                                                        </div>
-                                                    </div>
-                                                    <div class="form-group">
-                                                        <label class="control-label col-md-4">Fondo de Garantía: </label>
-                                                        <div class="col-md-8">
-                                                            <asp:DropDownList ID="DdlCtaContableFondoGarantia" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
-                                                                <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
-                                                            </asp:DropDownList>
-
-                                                            <asp:Button ID="Button1" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="RetIVA" Visible="False" />
-                                                        </div>
-                                                    </div>
-                                                </div>
-                                            </div>
-                                        </div>
-                                        <div class="portlet light xspadding bordered">
-                                            <div class="portlet-title">
-                                                <div class="caption font-green">
-                                                    <i class="icon-pin font-green"></i>
-                                                    <span class="caption-subject bold uppercase">Cuentas y conceptos</span>
-                                                </div>
-                                                <div class="actions">
-                                                    <div class="btn-group">
-                                                    </div>
-                                                </div>
-                                            </div>
-                                            <div class="portlet-body form-horizontal form-row-sepe">
-                                                <div class="form-body">
-                                                    <asp:UpdatePanel runat="server" ID="UpCuentaConceptos" UpdateMode="Conditional">
                                                         <ContentTemplate>
-                                                            <asp:GridView ID="GvCuentasContable" runat="server" DataKeyNames="ConceptoContable,NombreCuenta" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas en el Cliente" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style="text-align: center; min-width: 783px; width: 100%;" GridLines="None">
+                                                            <asp:GridView ID="GvCta" runat="server" DataKeyNames="ConceptoContable,NombreCuenta" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style="text-align: center;  width: 100%;" GridLines="None">
                                                                 <Columns>
                                                                     <asp:BoundField HeaderText="Concepto Contable" DataField="ConceptoContable" />
                                                                     <asp:BoundField HeaderText="Nombre Cuenta" DataField="NombreCuenta" />
@@ -1137,9 +1018,119 @@
                                                             </asp:GridView>
                                                         </ContentTemplate>
                                                     </asp:UpdatePanel>
+
+                                                    </div>
+                                                    <div id="divCuentasContp" runat="server" visible="false">
+                                                        <div class="form-group">
+                                                            <label class="control-label col-md-4">Clientes: </label>
+                                                            <div class="col-md-8">
+                                                                <asp:DropDownList ID="DdlCtaContableClientes" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
+                                                                    <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
+                                                                </asp:DropDownList>
+
+                                                                <asp:Button ID="BtnActivaRegistroClientes" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
+                                                            </div>
+                                                        </div>
+
+                                                        <div class="form-group">
+                                                            <label class="control-label col-md-4">Extranjera Clientes: </label>
+                                                            <div class="col-md-8">
+                                                                <asp:DropDownList ID="DdlMonedaExtranjeraClientes" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
+                                                                    <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
+                                                                </asp:DropDownList>
+
+                                                                <asp:Button ID="Button2" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
+                                                            </div>
+                                                        </div>
+
+
+                                                        <div class="form-group">
+                                                            <label class="control-label col-md-4">Complementaria Clientes: </label>
+                                                            <div class="col-md-8">
+                                                                <asp:DropDownList ID="DdlCtaContableCompClientes" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
+                                                                    <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
+                                                                </asp:DropDownList>
+
+                                                                <asp:Button ID="BtnActivaRegCompClientes" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
+                                                            </div>
+                                                        </div>
+
+
+
+                                                        <div class="form-group">
+                                                            <label class="control-label col-md-4">Anticipos: </label>
+                                                            <div class="col-md-8">
+                                                                <asp:DropDownList ID="DdlCtaContableAnticipos" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
+                                                                    <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
+                                                                </asp:DropDownList>
+
+                                                                <asp:Button ID="BtnActivaRegistroAnticipos" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Anticipos" Visible="False" />
+                                                            </div>
+                                                        </div>
+
+
+                                                        <div class="form-group">
+                                                            <label class="control-label col-md-4">Extranjera Anticipos: </label>
+                                                            <div class="col-md-8">
+                                                                <asp:DropDownList ID="DdlMonedaExtranjeraAnticipos" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
+                                                                    <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
+                                                                </asp:DropDownList>
+
+                                                                <asp:Button ID="Button4" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Clientes" Visible="False" />
+                                                            </div>
+                                                        </div>
+
+
+                                                        <div class="form-group">
+                                                            <label class="control-label col-md-4">Complementaria Anticipos: </label>
+                                                            <div class="col-md-8">
+                                                                <asp:DropDownList ID="DdlCtaContableCompAnticipos" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
+                                                                    <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
+                                                                </asp:DropDownList>
+
+                                                                <asp:Button ID="BtnActivaRegCompAnticipos" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="Anticipos" Visible="False" />
+                                                            </div>
+                                                        </div>
+
+
+
+
+                                                        <div class="form-group">
+                                                            <label class="control-label col-md-4">Ret. IVA: </label>
+                                                            <div class="col-md-8">
+                                                                <asp:DropDownList ID="DdlCtaContableRetIVA" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
+                                                                    <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
+                                                                </asp:DropDownList>
+
+                                                                <asp:Button ID="BtnActivaRegistroIVA" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="RetIVA" Visible="False" />
+                                                            </div>
+                                                        </div>
+                                                        <div class="form-group">
+                                                            <label class="control-label col-md-4">Ret. ISR: </label>
+                                                            <div class="col-md-8">
+                                                                <asp:DropDownList ID="DdlCtaContableRetISR" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
+                                                                    <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
+                                                                </asp:DropDownList>
+
+                                                                <asp:Button ID="BtnActivaRegistroISR" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="RetISR" Visible="False" />
+                                                            </div>
+                                                        </div>
+                                                        <div class="form-group">
+                                                            <label class="control-label col-md-4">Fondo de Garantía: </label>
+                                                            <div class="col-md-8">
+                                                                <asp:DropDownList ID="DdlCtaContableFondoGarantia" CssClass="form-control input-medium " runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
+                                                                    <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
+                                                                </asp:DropDownList>
+
+                                                                <asp:Button ID="Button1" runat="server" CssClass="btn btn-primary btn-sm" Text="+" CommandArgument="RetIVA" Visible="False" />
+                                                            </div>
+                                                        </div>
+                                                    </div>
+                                                
                                                 </div>
                                             </div>
                                         </div>
+                                         
                                     </div>
                                 </div>
 

Ventas/Clientes.aspx.vb

@@ -791,7 +791,7 @@ Partial Class Clientes
                 If Request("ATI") IsNot Nothing AndAlso IsNumeric(Request("ATI")) Then
                     Tab.ActiveTabIndex = Request("ATI").ToEntero
                 End If
-                CargaCuentasyConceptos()
+                'CargaCuentasyConceptos()
             Else
                 'Configuración de Modalidad Insert
 
@@ -1079,13 +1079,13 @@ Partial Class Clientes
         DdlMonedaExtranjeraAnticipos.Attributes.Add("onclick", "CargaCuentas(9);")
 
     End Sub
-    Private Sub CargaCuentasyConceptos()
+    Private Sub CargaCuentasConceptos()
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetCuentasyConceptos(CveCliente) Then
+        If ObjConta.GetCuentasConceptos(6, UsuarioActual.CveEmpresa, CveCliente:=CveCliente) Then
-            GvCuentasContable.DataSource = ObjConta.DtResultados
+            GvCta.DataSource = ObjConta.DtResultados
         End If
         ObjConta.Dispose()
-        GvCuentasContable.DataBind()
+        GvCta.DataBind()
         UpCuentaConceptos.Update()
     End Sub
     Protected Sub BtnCargarCuentas_Click(sender As Object, e As EventArgs) Handles BtnCargarCuentas.Click
@@ -1681,8 +1681,17 @@ Partial Class Clientes
                 End If
 
                 CargaEventoBitacora()
-
+                If UsuarioActual.Empresa.Funcionalidad(300) = "1" Then
-                'Ocultamos la mayoria de informacion si es no-frecuente
+                    CargaCuentasConceptos()
+                    divCuentas.Visible = True
+                    divCuentasContp.Visible = False
+                Else
+                    divCuentas.Visible = False
+                    divCuentasContp.Visible = True
+                End If
+
+
+                'Ocultamos la mayoria de informacion si es no-frecuente
                 If ObjClientes.TipoCliente = 2 Then
                     TabFiscalContable.Visible = False
                     TabCxC.Visible = False

Ventas/ProductosServicios.aspx.vb

@@ -2607,10 +2607,10 @@ Partial Class ProductosyServicios
     End Sub
 
     Protected Sub BtnAddSeccionAlmacen_Click(sender As Object, e As EventArgs)
-        If DtSeccionAlmacen.FiltraParametros($"CveAlmacen = {DdlAlmacen.SelectedValue}").Rows.Count > 0 Then
+        'If DtSeccionAlmacen.FiltraParametros($"CveAlmacen = {DdlAlmacen.SelectedValue}").Rows.Count > 0 Then
-            Alert("No se puede especificar el mismo almacen en dos secciones", TipoMensaje.MsgAdvertencia)
+        '    Alert("No se puede especificar el mismo almacen en dos secciones", TipoMensaje.MsgAdvertencia)
-            Exit Sub
+        '    Exit Sub
-        End If
+        'End If
 
         Dim Row As DataRow = Nothing
         Row = DtSeccionAlmacen.NewRow

Ventas/Ventas.aspx

@@ -3718,7 +3718,7 @@
                         <div style="max-height: 300px; overflow-y: auto;">
                             <asp:GridView ID="GVAnticipos" runat="server" AutoGenerateColumns="False" ClientIDMode="Static" EmptyDataText="No se encontraron Anticipos del Cliente"
                                 ToolTip="Listado de Anticipos" CssClass="GVAnticipos table table-striped table-hover Widthall" data-height="300" Style="text-align: center;" GridLines="None"
-                                DataKeyNames="ISTotal,Saldo,CveIE,Folio,Tipo,CveVenta,CveConceptoContable,CveConceptoContableAmor, TotalAnticipo, SubTotalAnticipo, IVAAnticipo,IEPS, ImpuestosLocalesAnticipo, SubTotalAmortizacion, SubTotal, Original, IVA, RetIVA, RetISR, IdCtaContableNC,FolioFiscal, CveClasificacionNC, IdCtaContableNCSIG, TipoCambio,TipoCambioPago,TipoCambioHoy, CveMoneda,Fecha,SaldoSubTotal,SaldoConImpuestos,RegresarImpuesto">
+                                DataKeyNames="ISTotal,Saldo,CveIE,Folio,Tipo,CveVenta,CveConceptoContable,CveConceptoContableAmor, TotalAnticipo, SubTotalAnticipo, IVAAnticipo,IEPS, ImpuestosLocalesAnticipo, SubTotalAmortizacion, SubTotal, Original, IVA, RetIVA, RetISR, IdCtaContableNC,FolioFiscal, CveClasificacionNC, IdCtaContableNCSIG, TipoCambio,TipoCambioPago,TipoCambioHoy, CveMoneda,Fecha,SaldoSubTotal,SaldoConImpuestos,RegresarImpuesto,CveCliente">
                                 <Columns>
                                     <asp:TemplateField>
                                         <ItemTemplate>

Ventas/Ventas.aspx.vb

@@ -14534,7 +14534,10 @@ Partial Class Ventas
     End Sub
     Private Sub RecargaSucursalPartidas()
         Dim CveSubProyecto As Integer = DdlSubProyectoDatos.SelectedValue.ToEntero()
-        Dim SubProyecto As String = DdlSubProyectoDatos.SelectedItem.Text
+        Dim SubProyecto As String = ""
+        If CveSubProyecto > 0 Then
+            SubProyecto = DdlSubProyectoDatos.SelectedItem.Text
+        End If
 
         If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then
             For Each Row As DataRow In TmpDT.Rows
@@ -15233,8 +15236,6 @@ Partial Class Ventas
         Row("CvePS") = CvePS
         Row("Obs") = Obs
 
-
-
         Dim DrPS As DataRow = Nothing
 
         DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") ' Estado = -1