From 2f4a631ae8cb1a9eb7be123e02c81482fe4b8c1d Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Tue, 18 Aug 2020 18:18:07 -0700
Subject: [PATCH 01/10]

---
 Sistemas/PopUpCambiaUsuario.aspx.vb | 39 +++++++++++++++++------------
 1 file changed, 23 insertions(+), 16 deletions(-)

diff --git a/Sistemas/PopUpCambiaUsuario.aspx.vb b/Sistemas/PopUpCambiaUsuario.aspx.vb
index 62de315c2..acda2dfa4 100644
--- a/Sistemas/PopUpCambiaUsuario.aspx.vb
+++ b/Sistemas/PopUpCambiaUsuario.aspx.vb
@@ -48,27 +48,34 @@ Partial Class Sistemas_PopUpCambiaUsuario
             Dim CveEmpresa As String = UsuarioActual.CveEmpresa.ToString()
 
             Dim splitedtext As String() = Request.Url.AbsoluteUri.Replace("http://", "").Replace("https://", "").Split("."c)
-            If splitedtext.Length > 0 Then
-                Select Case splitedtext(0).ToUpper()
-                    Case "VSH" : CveEmpresa = "7"
-                    Case "JAM" : CveEmpresa = "119"
-                    Case "COMPUPROVEEDORES" : CveEmpresa = "72"
-                    Case "DNDIFUSA" : CveEmpresa = "80"
-                End Select
+            If Request.Url.AbsoluteUri.Contains("sig.agrojam.com.mx") Then
+                CveEmpresa = 119
             End If
-            DdlEmpresa.DataBind()
-            DdlEmpresa.SelectedValue = CveEmpresa
 
-            'DdlRol.DataSource = GlobalDTRoles(DdlEmpresa.SelectedValue.ToEntero)
-            'DdlRol.DataBind()
-            'DdlRol.Items.Insert(0, New ListItem("Todos", "-1"))
+            If splitedtext.Length > 0 Then
+                    Select Case splitedtext(0).ToUpper()
+                        Case "VSH" : CveEmpresa = "7"
+                        Case "JAM" : CveEmpresa = "119"
+                        Case "COMPUPROVEEDORES" : CveEmpresa = "72"
+                        Case "DNDIFUSA" : CveEmpresa = "80"
+                        Case "SOGO" : CveEmpresa = "8"
+                        Case "BDH" : CveEmpresa = "140"
+                        Case "ECONOLLANTAS" : CveEmpresa = "141"
+                    End Select
+                End If
+                DdlEmpresa.DataBind()
+                DdlEmpresa.SelectedValue = CveEmpresa
 
-            TxtBusqueda.Attributes.Add("data-table", gvUsuarios.ClientID)
+                'DdlRol.DataSource = GlobalDTRoles(DdlEmpresa.SelectedValue.ToEntero)
+                'DdlRol.DataBind()
+                'DdlRol.Items.Insert(0, New ListItem("Todos", "-1"))
 
-            CargaUsuarios()
-            'LblUsuario.Text = usuarioactual.
+                TxtBusqueda.Attributes.Add("data-table", gvUsuarios.ClientID)
 
-        End If
+                CargaUsuarios()
+                'LblUsuario.Text = usuarioactual.
+
+            End If
     End Sub
 
 

From 1d649f735f5b9fe76f267e21ca4bc6da682872ac Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Wed, 19 Aug 2020 08:19:05 -0700
Subject: [PATCH 02/10]

---
 RH/Personal.aspx | 90 ++++++++++++++++++++++++------------------------
 1 file changed, 45 insertions(+), 45 deletions(-)

diff --git a/RH/Personal.aspx b/RH/Personal.aspx
index 4d16cf36d..3dec2293d 100644
--- a/RH/Personal.aspx
+++ b/RH/Personal.aspx
@@ -569,7 +569,7 @@
                                                         <i></i>
                                                     </div>
                                                     <div class="form-group form-md-line-input input-iconright" runat="server" id="DivProyectosAsignado">
-                                                        <asp:Label runat="server" ID="LblProyectoAsignado" CssClass="form-line" for="<%= DdlProyectoAsignado.ClientID.ToString()%>" style="margin-bottom:unset;color:#888888">Proyecto:  </asp:Label>
+                                                        <asp:Label runat="server" ID="LblProyectoAsignado" CssClass="form-line" for="<%= DdlProyectoAsignado.ClientID.ToString()%>" Style="margin-bottom: unset; color: #888888">Proyecto:  </asp:Label>
                                                         <asp:DropDownList ID="DdlProyectoAsignado" runat="server" AppendDataBoundItems="True" AutoPostBack="True" DataTextField="Proyecto" DataValueField="CveProyecto" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
                                                             <%-- <asp:ListItem Selected="True" Text="Sin Proyecto asignado" Value="-1"></asp:ListItem>--%>
                                                         </asp:DropDownList>
@@ -577,7 +577,7 @@
                                                         <i></i>
                                                     </div>
                                                     <div class="form-group form-md-line-input input-iconright">
-                                                        <asp:Label runat="server" ID="LblSubProyectoAsignado" CssClass="form-line" for="<%= DdlSubProyectoAsignado.ClientID.ToString()%>" style="margin-bottom:unset;color:#888888">SubProyecto:  </asp:Label>
+                                                        <asp:Label runat="server" ID="LblSubProyectoAsignado" CssClass="form-line" for="<%= DdlSubProyectoAsignado.ClientID.ToString()%>" Style="margin-bottom: unset; color: #888888">SubProyecto:  </asp:Label>
                                                         <asp:DropDownList ID="DdlSubProyectoAsignado" runat="server" AppendDataBoundItems="True" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
                                                             <asp:ListItem Selected="True" Text="Sin SubProyecto asignado" Value="-1"></asp:ListItem>
                                                         </asp:DropDownList>
@@ -1285,7 +1285,7 @@
                                                     </div>
 
                                                     <div class="form-group form-md-line-input input-iconright">
-                                                            <asp:TextBox ID="TxtMailrecibonomina" runat="server" CausesValidation="true" CssClass="form-control input-sm"></asp:TextBox>
+                                                        <asp:TextBox ID="TxtMailrecibonomina" runat="server" CausesValidation="true" CssClass="form-control input-sm"></asp:TextBox>
                                                         <asp:Label runat="server" AssociatedControlID="TxtMailrecibonomina" Text="Mail recibo nómina:"></asp:Label>
                                                     </div>
                                                     <div class="form-group form-md-line-input input-iconright">
@@ -1317,42 +1317,42 @@
                                                     </div>
                                                     <asp:Panel runat="server" ID="PnlSalarios" Visible="false">
 
-                                                    <div class="form-group form-md-line-input input-iconright">
-                                                        <asp:TextBox CssClass="form-control" ID="TxtSalarioDiario"  Enabled ="false" runat="server" MaxLength="10"></asp:TextBox>
-                                                        <asp:Label runat="server" AssociatedControlID="TxtSalarioDiario" Enabled ="false" Text="Salario Diario (SDD):"></asp:Label>
-                                                        <%--<asp:CompareValidator ID="CVSalarioDiario" runat="server" ControlToValidate="TxtSalarioDiario" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
-                                                        <i></i>
-                                                    </div>
+                                                        <div class="form-group form-md-line-input input-iconright">
+                                                            <asp:TextBox CssClass="form-control" ID="TxtSalarioDiario" Enabled="false" runat="server" MaxLength="10"></asp:TextBox>
+                                                            <asp:Label runat="server" AssociatedControlID="TxtSalarioDiario" Enabled="false" Text="Salario Diario (SDD):"></asp:Label>
+                                                            <%--<asp:CompareValidator ID="CVSalarioDiario" runat="server" ControlToValidate="TxtSalarioDiario" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
+                                                            <i></i>
+                                                        </div>
 
-                                                    <div class="form-group form-md-line-input input-iconright">
-                                                        <asp:TextBox CssClass="form-control" ID="TxtSDI" Enabled ="false" runat="server" MaxLength="10"></asp:TextBox>
-                                                        <asp:Label runat="server" AssociatedControlID="TxtSDI" Text="Salario Diario Integrado (SDI):"></asp:Label>
-                                                        <%--<asp:CompareValidator ID="CVSDI" runat="server" ControlToValidate="TxtSDI" CssClass="help-block errorimput" ErrorMessage="El campo <b>''SDI''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Double" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
-                                                        <i></i>
-                                                    </div>
+                                                        <div class="form-group form-md-line-input input-iconright">
+                                                            <asp:TextBox CssClass="form-control" ID="TxtSDI" Enabled="false" runat="server" MaxLength="10"></asp:TextBox>
+                                                            <asp:Label runat="server" AssociatedControlID="TxtSDI" Text="Salario Diario Integrado (SDI):"></asp:Label>
+                                                            <%--<asp:CompareValidator ID="CVSDI" runat="server" ControlToValidate="TxtSDI" CssClass="help-block errorimput" ErrorMessage="El campo <b>''SDI''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Double" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
+                                                            <i></i>
+                                                        </div>
 
-                                                    <div class="form-group form-md-line-input input-iconright" style="display: none;">
-                                                        <asp:TextBox CssClass="form-control" ID="TxtSalarioDiarioPago" Enabled ="false" runat="server" MaxLength="10"></asp:TextBox>
-                                                        <asp:Label runat="server" AssociatedControlID="TxtSalarioDiarioPago" Text="Salario Diario de Pago:"></asp:Label>
-                                                        <%--<asp:CompareValidator ID="CVSalario" runat="server" ControlToValidate="TxtSalarioDiarioPago" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario de Pago''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
-                                                        <i></i>
-                                                    </div>
+                                                        <div class="form-group form-md-line-input input-iconright" style="display: none;">
+                                                            <asp:TextBox CssClass="form-control" ID="TxtSalarioDiarioPago" Enabled="false" runat="server" MaxLength="10"></asp:TextBox>
+                                                            <asp:Label runat="server" AssociatedControlID="TxtSalarioDiarioPago" Text="Salario Diario de Pago:"></asp:Label>
+                                                            <%--<asp:CompareValidator ID="CVSalario" runat="server" ControlToValidate="TxtSalarioDiarioPago" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario de Pago''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
+                                                            <i></i>
+                                                        </div>
 
-                                                    <asp:Panel runat="server" ID="pnlSalarioIMSS" CssClass="form-group form-md-line-input input-iconright">
-                                                        <asp:TextBox CssClass="form-control" ID="TxtSalarioCotizado" Enabled ="false" runat="server" MaxLength="10"></asp:TextBox>
-                                                        <asp:Label runat="server" AssociatedControlID="TxtSalarioCotizado" Text="Salario Diario IMSS:"></asp:Label>
-                                                        <%--<asp:CompareValidator ID="CVSDT" runat="server" ControlToValidate="TxtSalarioCotizado" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario Cotizado''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
+                                                        <asp:Panel runat="server" ID="pnlSalarioIMSS" CssClass="form-group form-md-line-input input-iconright">
+                                                            <asp:TextBox CssClass="form-control" ID="TxtSalarioCotizado" Enabled="false" runat="server" MaxLength="10"></asp:TextBox>
+                                                            <asp:Label runat="server" AssociatedControlID="TxtSalarioCotizado" Text="Salario Diario IMSS:"></asp:Label>
+                                                            <%--<asp:CompareValidator ID="CVSDT" runat="server" ControlToValidate="TxtSalarioCotizado" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Salario Diario Cotizado''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
 
-                                                        <i></i>
+                                                            <i></i>
+                                                        </asp:Panel>
+
+                                                        <div class="form-group form-md-line-input input-iconright">
+                                                            <asp:TextBox CssClass="form-control" ID="TxtBono" runat="server" MaxLength="10" Text="0"></asp:TextBox>
+                                                            <asp:Label runat="server" AssociatedControlID="TxtBono" Text="Bono:"></asp:Label>
+                                                            <asp:CompareValidator ID="CVBono" runat="server" ControlToValidate="TxtBono" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Bono''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                                            <i></i>
+                                                        </div>
                                                     </asp:Panel>
-                                                    </asp:Panel>
-
-                                                    <div class="form-group form-md-line-input input-iconright">
-                                                        <asp:TextBox CssClass="form-control" ID="TxtBono" runat="server" MaxLength="10" Text="0"></asp:TextBox>
-                                                        <asp:Label runat="server" AssociatedControlID="TxtBono" Text="Bono:"></asp:Label>
-                                                        <asp:CompareValidator ID="CVBono" runat="server" ControlToValidate="TxtBono" CssClass="help-block errorimput" ErrorMessage="El campo <b>''Bono''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
-                                                        <i></i>
-                                                    </div>
 
                                                     <div class="form-group form-md-line-input input-iconright">
                                                         <asp:TextBox CssClass="form-control" ID="TxtNumDiasAguinaldo" runat="server" MaxLength="10"></asp:TextBox>
@@ -3876,9 +3876,9 @@
                             <div runat="server" id="divSeccionAlmacen" class="frow" visible="false">
                                 <asp:Label Text="Sección: " runat="server" Style="width: 20%" />
                                 <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="Seccion" AppendDataBoundItems="true" DataValueField="CveSeccion" Class="form-control input-sm select2me" Style="width: 50% !important" runat="server" CausesValidation="true">
-                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>                            
-                        </div>
+                                    <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
                         </ContentTemplate>
                     </asp:UpdatePanel>
                 </div>
@@ -4681,7 +4681,7 @@
 
 
 
-        <div id="DVDescargaDocumentoParametrosModal" class="modal ADS fade" role="dialog">
+    <div id="DVDescargaDocumentoParametrosModal" class="modal ADS fade" role="dialog">
         <asp:UpdatePanel ID="UpdatePanel4" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
             <ContentTemplate>
                 <div class="modal-content rowpadding">
@@ -4692,7 +4692,7 @@
                         <h4 class="modal-title" runat="server" style="text-align: left">Parametros</h4>
                     </div>
                     <div class="modal-body">
-                        
+
                         <asp:UpdatePanel ID="UpGvParametros" runat="server" UpdateMode="Conditional">
                             <ContentTemplate>
 
@@ -4712,15 +4712,15 @@
                                             </ItemTemplate>
                                         </asp:TemplateField>
 
-                                         <asp:TemplateField ControlStyle-CssClass="template" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="275" HeaderText="Valor">
+                                        <asp:TemplateField ControlStyle-CssClass="template" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="275" HeaderText="Valor">
                                             <ItemTemplate>
-                                                
-                                                <asp:TextBox ID="TxtParametro" runat="server" Text=""  Width="150px" ValidationGroup="GrpDescargaFormato" ></asp:TextBox>                                               
-                                                <asp:RequiredFieldValidator ID="RFVTxtParametro" runat="server" ControlToValidate="TxtParametro"  Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Parametro''</b> es necesario, por favor ingréselo." ValidationGroup="GrpDescargaFormato"></asp:RequiredFieldValidator>
+
+                                                <asp:TextBox ID="TxtParametro" runat="server" Text="" Width="150px" ValidationGroup="GrpDescargaFormato"></asp:TextBox>
+                                                <asp:RequiredFieldValidator ID="RFVTxtParametro" runat="server" ControlToValidate="TxtParametro" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Parametro''</b> es necesario, por favor ingréselo." ValidationGroup="GrpDescargaFormato"></asp:RequiredFieldValidator>
                                                 <ajax:ValidatorCalloutExtender ID="CERFVTxtParametro" runat="server" HighlightCssClass="vco" TargetControlID="RFVTxtParametro" Width="300px"></ajax:ValidatorCalloutExtender>
-                                             
+
                                             </ItemTemplate>
-                                        </asp:TemplateField>  
+                                        </asp:TemplateField>
 
                                     </Columns>
                                 </asp:GridView>

From 45442a5d6a7b0bf27a19a87a5a355f225f2090ca Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Wed, 19 Aug 2020 13:42:53 -0700
Subject: [PATCH 03/10] - cuenta de concepto 308, acreedor

---
 Bancos/ProveedoresAbonar.aspx.vb | 28 ++++++++++++++++++++++++++--
 1 file changed, 26 insertions(+), 2 deletions(-)

diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index d6b4ed630..b5a36f751 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -138,6 +138,17 @@ Partial Class Bancos_ProveedoresAbonar
             Return ViewState("IdCtaProveedorExtranjera").ToString.ToEntero
         End Get
     End Property
+    Private ReadOnly Property CtaAcreedor As Integer
+        Get
+            Return ViewState("CtaAcreedor").ToString.ToEntero
+        End Get
+    End Property
+
+    Private ReadOnly Property IdCtaAcreedorExtranjera As Integer
+        Get
+            Return ViewState("IdCtaAcreedorExtranjera").ToString.ToEntero
+        End Get
+    End Property
 
     Private ReadOnly Property CveCuentaProveedor As Integer
         Get
@@ -215,6 +226,11 @@ Partial Class Bancos_ProveedoresAbonar
             Return ViewState("IdCtaContComplementaria").ToString.ToEntero
         End Get
     End Property
+    Private ReadOnly Property IdCtaContAcreedorComplementaria As Integer
+        Get
+            Return ViewState("IdCtaContAcreedorComplementaria").ToString.ToEntero
+        End Get
+    End Property
 
     Private ReadOnly Property IdCtaContRetIVA As Integer
         Get
@@ -521,7 +537,10 @@ Partial Class Bancos_ProveedoresAbonar
 
                 ViewState("CtaProveedor") = ObjProveedor.IdCtaContProveedores
                 ViewState("IdCtaProveedorExtranjera") = ObjProveedor.IdCtaContProveedoresExtranjera
+                ViewState("CtaAcreedor") = ObjProveedor.IdCtaContAcreedor
+                ViewState("IdCtaAcreedorExtranjera") = ObjProveedor.IdCtaContAcreedorExtranjera
                 ViewState("IdCtaContComplementaria") = ObjProveedor.IdCtaContProveedoresComplementaria
+                ViewState("IdCtaAcreedorComplementaria") = ObjProveedor.IdCtaContAcreedorComplementaria
 
                 ViewState("CveCuentaProveedor") = ObjProveedor.CveCuentaProveedores
                 ViewState("CveCuentaProveedorExtranjera") = ObjProveedor.CveCuentaProveedoresExtranjera
@@ -1013,8 +1032,13 @@ Partial Class Bancos_ProveedoresAbonar
                                                     ConceptoMovimiento = $"{HplProveedor.Text} F:{gvr.DataKey("SerieFolio")}"
                                                     'cuando son dolares, y tienen complementaria, se hace el registro
                                                     If gvr.DataKey("CveMoneda").ToEntero = 1 Then
-                                                        IdCtaContable = CtaProveedor
-                                                        CveCuenta = CveCuentaProveedor
+                                                        If gvr.DataKey("CveTipoConcepto").ToEntero = 2 Then
+                                                            IdCtaContable = CtaAcreedor
+                                                        Else
+                                                            IdCtaContable = CtaProveedor
+                                                            CveCuenta = CveCuentaProveedor
+                                                        End If
+
                                                     Else
                                                         Dim CveConceptoComplementaria As Integer = 206
                                                         If gvr.DataKey("CveTipoConcepto").ToEntero = 2 Then CveConceptoComplementaria = 310

From d4aded79baf53b5a3e7ff05a5383d9d58c0c0650 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Wed, 19 Aug 2020 13:43:35 -0700
Subject: [PATCH 04/10] -- incluir en ddlalmacenorigen, tipo de almacen: AF

---
 Contratos/Contrato.aspx    | 2 +-
 Contratos/Contrato.aspx.vb | 8 ++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/Contratos/Contrato.aspx b/Contratos/Contrato.aspx
index 8483f7265..0bb5d7b3a 100644
--- a/Contratos/Contrato.aspx
+++ b/Contratos/Contrato.aspx
@@ -2248,7 +2248,7 @@
                                                 <asp:HyperLinkField HeaderText="Sucursal" DataTextField="SubProyecto" Target="_blank" ItemStyle-Width="15%" ItemStyle-CssClass="Texto Izquierda" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
                                                 <asp:HyperLinkField HeaderText="Cliente" DataTextField="Cliente" Target="_blank" ItemStyle-Width="35%" ItemStyle-CssClass="Texto Izquierda" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
                                                 <asp:HyperLinkField HeaderText="Cantidad" DataTextField="Cantidad" Target="_blank" ItemStyle-Width="5%" ItemStyle-CssClass="Texto Derecha" DataTextFormatString="{0:###,##0.00##}" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
-                                                <asp:HyperLinkField HeaderText="Total" DataTextField="Total" Target="_blank" ItemStyle-Width="20%" ItemStyle-CssClass="Texto Derecha" DataTextFormatString="{0:###,###,##0.00##}" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
+                                                <asp:HyperLinkField HeaderText="Total" DataTextField="SubTotalDetalle" Target="_blank" ItemStyle-Width="20%" ItemStyle-CssClass="Texto Derecha" DataTextFormatString="{0:###,###,##0.00##}" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
                                             </Columns>
                                         </asp:GridView>
                                     </div>
diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb
index dce2ecdcf..4a59ab77a 100644
--- a/Contratos/Contrato.aspx.vb
+++ b/Contratos/Contrato.aspx.vb
@@ -586,7 +586,7 @@ Partial Class Contratos_Default
         'TabContratosGastos.Visible = False
 
         'DONDE OCUPA ALMACEN
-        Dim CveTipoAlmacenOrigen = "12"
+        Dim CveTipoAlmacenOrigen = "12,15"
         Dim CveTipoAlmacenDestino = "11,12"
         If TipoContrato.Contiene({7, 9, 13, 16, 18, 21, 27}) Then
             RowAlmacen.Visible = True
@@ -1503,7 +1503,7 @@ Partial Class Contratos_Default
     End Sub
     Protected Sub CargaSubProyectoContrato(CveProyecto As Integer)
         DdlSubProyectoContrato.Items.Clear()
-        DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"})
+        DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"})
         DdlSubProyectoContrato.DataBind()
         DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione un Proyecto", "-1"))
     End Sub
@@ -3018,9 +3018,9 @@ Partial Class Contratos_Default
     Public Sub CargaDatosEncabezado()
 
         TablaUtilidad.Visible = True
-        LblUtilidad.Text = $"$ {(SumaUtilidad - SumaGasto).ToString.FormatoNumero()}"
+        LblUtilidad.Text = $"$ {(SumaAvance - SumaGasto).ToString.FormatoNumero()}"
 
-        If (SumaUtilidad - SumaGasto) < 0 Then LblUtilidad.ForeColor = Drawing.Color.Red
+        If (SumaAvance - SumaGasto) < 0 Then LblUtilidad.ForeColor = Drawing.Color.Red
         LblFacturado.Text = SumaAvance.FormatoNumero
         LblPorFacturar.Text = (LblImporte.Text.ToDouble - SumaAvance).FormatoNumero
 

From 7f9f945bd629f87b47e96a03e25dd1b77994a60d Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Wed, 19 Aug 2020 13:44:07 -0700
Subject: [PATCH 05/10] a

---
 Sistemas/CatSesiones.aspx.vb | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb
index ceeb01198..88f01e6ec 100644
--- a/Sistemas/CatSesiones.aspx.vb
+++ b/Sistemas/CatSesiones.aspx.vb
@@ -113,11 +113,11 @@ Partial Class Sistemas_CatSesiones
 
     Private Sub CargaContratos()
         Dim ObjContratos As New ClsContratos
-        If ObjContratos.GetContratos(-1, -1) Then Application("GlobalDTContratos") = ObjContratos.DtResultados Else Application("GlobalDTContratos") = Nothing
-        If ObjContratos.GetSecciones() Then Application("GlobalDTContratosSecciones") = ObjContratos.DtResultados Else Application("GlobalDTContratosSecciones") = Nothing
-        'If ObjContratos.GetContratosTipos() Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing
+        If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa) Then Application("GlobalDTContratos") = ObjContratos.DtResultados Else Application("GlobalDTContratos") = Nothing
+        If ObjContratos.GetSecciones() Then Application("GlobalDTContratosSecciones") = ObjContratos.DtResultados Else Application("GlobalDTContratosSecciones") = Nothing
+        ' If ObjContratos.GetContratosTipos(UsuarioActual.CveEmpresa) Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing
         ObjContratos.Dispose()
-
+        GlobalDTContratosTipos(UsuarioActual.CveEmpresa) = Nothing
     End Sub
     Private Sub CargaTiposRelacion()
         Dim ObjVentas As New ClsVentas

From 8ea45f5c5ac07d3e20d164236812497516abd110 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Wed, 19 Aug 2020 13:44:21 -0700
Subject: [PATCH 06/10] - parametro -3, en seccionalmacen

---
 Inventarios/EntregaAlmacen.aspx.vb | 24 ++++++------------------
 1 file changed, 6 insertions(+), 18 deletions(-)

diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index c8cc4acb8..6993058d7 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -1964,13 +1964,8 @@ Partial Class Inventarios_EntregaAlmacen
                         If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                             Dim CveSeccionAlmacen As Integer = -1
                             For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                                If CBool(Dr("AplicaSeccion")) Then
-                                    CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacenExA, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
-                                Else
-                                    CveSeccionAlmacen = -1
-                                End If
 
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=CveSeccionAlmacen) Then
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=-3) Then
                                     ErrorMovInv = True
                                     TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
                                     Exit For
@@ -2151,13 +2146,6 @@ Partial Class Inventarios_EntregaAlmacen
                                             DtTraspasos.Rows.Add(DrMovto)
                                         End If
 
-                                        Dim CveSeccionAlmacen As Integer = -1
-                                        If CBool(Dr("AplicaSeccion")) Then
-                                            CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, Dr1("CveAlmacen").ToString.ToEntero, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
-                                        Else
-                                            CveSeccionAlmacen = -1
-                                        End If
-
                                         CantidadPendiente = If(Dr1("ExistenciaFinal").ToString.ToDecimal > CantidadSaldo, CantidadSaldo, Dr1("ExistenciaFinal").ToString.ToDecimal)
 
                                         If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadPendiente.ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0,
@@ -2165,7 +2153,7 @@ Partial Class Inventarios_EntregaAlmacen
                                                                                     CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero,
                                                                                     FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha),
                                                                                     Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"),
-                                                                                    CveSeccionAlmacen:=CveSeccionAlmacen) Then
+                                                                                    CveSeccionAlmacen:=-3) Then
                                             ErrorMovInv = True
                                             TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
                                             Exit For
@@ -2209,7 +2197,7 @@ Partial Class Inventarios_EntregaAlmacen
 
                             If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                                 For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccionAlmacen").ToString.ToEntero, -1)) Then
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaApartado, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=-3) Then
                                         ErrorMovInv = True
                                         TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
                                         Exit For
@@ -2398,7 +2386,7 @@ Partial Class Inventarios_EntregaAlmacen
                                         PU = DtExistencias.FiltroPrimeroValor("PU", $"CveTipoAlmacenDevolucion <> 26 AND CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString.ToEntero} AND Serie = '{Dr1("Serie").ToString}'").ToString.ToDecimal
                                     End If
 
-                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, 1, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, PU, Serie:=Dr1("Serie").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=-3) Then
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, 1, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, PU, Serie:=Dr1("Serie").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then
                                         ErrorMovInv = True
                                         TextoError.AppendFormat("Ocurrió un error al procesar los conceptos con serie. Por favor vuelva a intentar.")
                                         Exit For
@@ -2410,7 +2398,7 @@ Partial Class Inventarios_EntregaAlmacen
                                         PU = DtExistencias.FiltroPrimeroValor("PU", $"CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString.ToEntero} AND Serie = '{Dr1("Serie").ToString}'").ToString.ToDecimal
                                     End If
 
-                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr1("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, PU, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=-3) Then
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr1("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, PU, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then
                                         ErrorMovInv = True
                                         TextoError.AppendFormat("Ocurrió un error al procesar los conceptos con serie. Por favor vuelva a intentar.")
                                         Exit For
@@ -2421,7 +2409,7 @@ Partial Class Inventarios_EntregaAlmacen
                                     PU = DtExistencias.FiltroPrimeroValor("PU", $"CvePS = {Dr("CvePS")} AND CveUM = {Dr("CveUM").ToString.ToEntero}").ToString.ToDecimal
                                 End If
 
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, CantidadPendiente, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, PU, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=-3) Then
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, CantidadPendiente, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, PU, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha), Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"), CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then
                                     ErrorMovInv = True
                                     TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de salida. Por favor vuelva a intentar.")
                                     Exit For

From 1745d8ea4576ca4d78fc00c9359e3c672a0b8e19 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Wed, 19 Aug 2020 13:46:06 -0700
Subject: [PATCH 07/10] - al cargar cliente, que no me cambie la sucursal, que
 tenga especificada el usuario actual

---
 Ventas/Ventas.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index c17d1f432..11b76af6b 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -5094,7 +5094,7 @@ Partial Class Ventas
                             DdlSubProyectoDatos.SelectedValueExist(UsuarioActual.CveSubProyecto)
                             DdlSubProyectoDatos.Enabled = False
                         Else
-                            DdlSubProyectoDatos.SelectedValueExist(ObjCliente.CveSubProyecto)
+                            DdlSubProyectoDatos.SelectedValueExist(UsuarioActual.CveSubProyecto) '    DdlSubProyectoDatos.SelectedValueExist(ObjCliente.CveSubProyecto)
                         End If
                         'RECARGA LOS VALORES DE LA SUCURSAL
                         CambiaSucursal()

From 4e7b498e1ade87d2a931a36b7ffbe87911ff6628 Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Wed, 19 Aug 2020 16:27:06 -0700
Subject: [PATCH 08/10]

---
 Inventarios/RepMaximoMinimo.aspx.vb | 3 ++-
 vwd.webinfo                         | 2 ++
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/Inventarios/RepMaximoMinimo.aspx.vb b/Inventarios/RepMaximoMinimo.aspx.vb
index 4b08f2b3a..a7041d10b 100644
--- a/Inventarios/RepMaximoMinimo.aspx.vb
+++ b/Inventarios/RepMaximoMinimo.aspx.vb
@@ -241,7 +241,8 @@ Partial Class Inventarios_RepMaximoMinimo
         DdlAlmacenModal.Enabled = False
         DdlPSModal.Enabled = False
 
-        DdlAlmacenModal.SelectedValue = CveAlmacen.ToString()
+        DdlAlmacenModal.SelectedValue = -1
+        DdlAlmacenModal.SelectedValueExist(CveAlmacen.ToString())
         DdlPSModal.SelectedText = strPS
         DdlPSModal.SelectedValue = CvePS.ToString
         TxtMaximo.Text = Maximo
diff --git a/vwd.webinfo b/vwd.webinfo
index 2fd2ac3b0..e3bf3aa43 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -90,6 +90,8 @@
     
   
     
+  
+    
   
     
   

From f256761e08cb916aeb7a1637f2e53013266fee1f Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Wed, 19 Aug 2020 16:41:00 -0700
Subject: [PATCH 09/10]

---
 Inventarios/RepMaximoMinimo.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Inventarios/RepMaximoMinimo.aspx.vb b/Inventarios/RepMaximoMinimo.aspx.vb
index a7041d10b..a9b3d4bed 100644
--- a/Inventarios/RepMaximoMinimo.aspx.vb
+++ b/Inventarios/RepMaximoMinimo.aspx.vb
@@ -241,7 +241,7 @@ Partial Class Inventarios_RepMaximoMinimo
         DdlAlmacenModal.Enabled = False
         DdlPSModal.Enabled = False
 
-        DdlAlmacenModal.SelectedValue = -1
+        DdlAlmacenModal.SelectedValue = "-1"
         DdlAlmacenModal.SelectedValueExist(CveAlmacen.ToString())
         DdlPSModal.SelectedText = strPS
         DdlPSModal.SelectedValue = CvePS.ToString

From 7c9c2238c84ab6488d2178564f24ba6ad2c561d4 Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Wed, 19 Aug 2020 17:22:18 -0700
Subject: [PATCH 10/10] maximos y minimos

---
 Inventarios/RepMaximoMinimo.aspx    | 2 +-
 Inventarios/RepMaximoMinimo.aspx.vb | 5 +++++
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/Inventarios/RepMaximoMinimo.aspx b/Inventarios/RepMaximoMinimo.aspx
index 3be94d878..364c9d148 100644
--- a/Inventarios/RepMaximoMinimo.aspx
+++ b/Inventarios/RepMaximoMinimo.aspx
@@ -127,7 +127,7 @@
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <div>
-                <asp:GridView ID="GvDatos" DataKeyNames="CvePS,PS,CodigoPS,Maximo,Minimo,CveAlmacen"  CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" runat="server" AutoGenerateColumns="False" GridLines="None">
+                <asp:GridView ID="GvDatos" DataKeyNames="CvePS,PS,CodigoPS,Maximo,Minimo,CveAlmacen,Almacen"  CssClass="table table-striped table-hover Widthall ScrollAD" data-sort="true" runat="server" AutoGenerateColumns="False" GridLines="None">
                     <Columns>
                         <asp:TemplateField ItemStyle-Width="10%" HeaderText="Código">
                             <ItemTemplate>
diff --git a/Inventarios/RepMaximoMinimo.aspx.vb b/Inventarios/RepMaximoMinimo.aspx.vb
index a9b3d4bed..d113b1b1c 100644
--- a/Inventarios/RepMaximoMinimo.aspx.vb
+++ b/Inventarios/RepMaximoMinimo.aspx.vb
@@ -235,6 +235,7 @@ Partial Class Inventarios_RepMaximoMinimo
         Dim CveAlmacen As Integer = GvRow.DataKey("CveAlmacen").ToString.ToEntero
         Dim CvePS As Integer = GvRow.DataKey("CvePS").ToString.ToEntero
         Dim strPS As String = GvRow.DataKey("PS").ToString()
+        Dim strAlmacen As String = GvRow.DataKey("Almacen").ToString()
         Dim Maximo As String = GvRow.DataKey("Maximo").ToString
         Dim Minimo As String = GvRow.DataKey("Minimo").ToString
 
@@ -243,6 +244,10 @@ Partial Class Inventarios_RepMaximoMinimo
 
         DdlAlmacenModal.SelectedValue = "-1"
         DdlAlmacenModal.SelectedValueExist(CveAlmacen.ToString())
+        If (DdlAlmacenModal.SelectedValue = "-1") Then
+            DdlAlmacenModal.Items.Add(New ListItem(strAlmacen, CveAlmacen.ToString()))
+        End If
+        DdlAlmacenModal.SelectedValueExist(CveAlmacen.ToString())
         DdlPSModal.SelectedText = strPS
         DdlPSModal.SelectedValue = CvePS.ToString
         TxtMaximo.Text = Maximo