From 05034bda0e0e38ea82f8ccdbbbc2352463ddb92d Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Thu, 27 Aug 2020 17:33:56 -0700
Subject: [PATCH 1/4] =?UTF-8?q?Validaci=C3=B3n=20al=20cambiar=20la=20confi?=
 =?UTF-8?q?guraci=C3=B3n=20para=20no=20afectar=20a=20los=20productos=20con?=
 =?UTF-8?q?=20los=20qu=20eya=20se=20tienen=20existencias?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/ProductosServicios.aspx    |  2 +-
 Ventas/ProductosServicios.aspx.vb | 56 +++++++++++++++++++++++++------
 2 files changed, 47 insertions(+), 11 deletions(-)

diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx
index 089baf909..e3ff10271 100644
--- a/Ventas/ProductosServicios.aspx
+++ b/Ventas/ProductosServicios.aspx
@@ -184,7 +184,7 @@
                                             <i></i>
                                         </div>
                                         <div class="form-group form-md-line-input input-iconright">
-                                            <asp:DropDownList ID="DdlUnidadMedida" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="false" CausesValidation="true" DataTextField="UnidadMedida" DataValueField="CveUnidadMedida" Width="206px">
+                                            <asp:DropDownList ID="DdlUnidadMedida" OnSelectedIndexChanged="DdlUnidadMedida_SelectedIndexChanged" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" CausesValidation="true" DataTextField="UnidadMedida" DataValueField="CveUnidadMedida" Width="206px">
                                                 <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                             </asp:DropDownList>
                                             <label for="<%= DdlUnidadMedida.ClientID.ToString()%>">Unidad de Medida:</label>
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index 8bbe6813d..963dfcda5 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -106,6 +106,15 @@ Partial Class ProductosyServicios
         End Set
     End Property
 
+    Private Property CveUnidadMedida As Integer
+        Get
+            Return ViewState("CveUnidadMedida").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveUnidadMedida") = value
+        End Set
+    End Property
+
 
 #End Region
 
@@ -769,6 +778,7 @@ Partial Class ProductosyServicios
                 End If
                 DdlTipoPSDes.SelectedValueExist(ObjProductosServicios.CveClasificacionDetalle.ToString)
                 DdlUnidadMedida.SelectedValue = ObjProductosServicios.CveUnidadMedida.ToString
+                CveUnidadMedida = ObjProductosServicios.CveUnidadMedida.ToString.ToEntero
                 DdlMarca.SelectedValue = ObjProductosServicios.CveMarca.ToString
                 DdlMarcaPSDes.SelectedValue = ObjProductosServicios.CveMarca.ToString
                 TxtCodigo.Text = ObjProductosServicios.Codigo
@@ -2653,23 +2663,32 @@ Partial Class ProductosyServicios
     End Sub
 
     Protected Sub ChkSerie_CheckedChanged(sender As Object, e As EventArgs)
-        If ChkSerie.Checked Then
-            ddlMetodos.SelectedValueExist("5")
+        If ElProductoTieneExistencia() Then
+            ChkSerie.Checked = Not ChkSerie.Checked
+            Alert("el producto no se puede cambiar la opcion, porque tiene existencia.", TipoMensaje.MsgAdvertencia)
         Else
-            ddlMetodos.SelectedValueExist("-1")
+            If ChkSerie.Checked Then
+                ddlMetodos.SelectedValueExist("5")
+            Else
+                ddlMetodos.SelectedValueExist("-1")
+            End If
+            UpConta.Update()
         End If
-        UpConta.Update()
     End Sub
 
     Protected Sub ChkSeccion_CheckedChanged(sender As Object, e As EventArgs)
-
-        If ChkSeccion.Checked Then
-            DivSeccionAlmacen.Visible = True
+        If ElProductoTieneExistencia() Then
+            ChkSeccion.Checked = Not ChkSerie.Checked
+            Alert("el producto no se puede cambiar la opcion, porque tiene existencia.", TipoMensaje.MsgAdvertencia)
         Else
-            DivSeccionAlmacen.Visible = False
-        End If
+            If ChkSeccion.Checked Then
+                DivSeccionAlmacen.Visible = True
+            Else
+                DivSeccionAlmacen.Visible = False
+            End If
 
-        UpSeccionAlmacen.Update()
+            UpSeccionAlmacen.Update()
+        End If
     End Sub
 
     Protected Sub DdlAlmacen_SelectedIndexChanged(sender As Object, e As EventArgs)
@@ -2680,4 +2699,21 @@ Partial Class ProductosyServicios
 
         UpModalSeccionAlmacen.Update()
     End Sub
+
+    Protected Sub DdlUnidadMedida_SelectedIndexChanged(sender As Object, e As EventArgs)
+        If ElProductoTieneExistencia() Then
+            DdlUnidadMedida.SelectedValue = CveUnidadMedida.ToString
+            Alert("el producto no se puede cambiar la opcion, porque tiene existencia.")
+        End If
+    End Sub
+
+    Private Function ElProductoTieneExistencia() As Boolean
+        Dim Existencia As Decimal = 0
+        If CvePS > 0 Then
+            Dim ObjInventarios As New ClsInventarios
+            Existencia = ObjInventarios.GetExistenciasPS(CvePS, CveUnidadMedida, UsuarioActual.CveEmpresa, -1)
+            ObjInventarios.Dispose()
+        End If
+        Return Existencia > 0
+    End Function
 End Class

From b26361d2c2885157edec01c3257887f3faa04388 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Thu, 27 Aug 2020 18:13:23 -0700
Subject: [PATCH 2/4] acomodo de layout

---
 OI/ConvocatoriaDetalle.aspx | 64 +++++++++++++++++++++----------------
 1 file changed, 36 insertions(+), 28 deletions(-)

diff --git a/OI/ConvocatoriaDetalle.aspx b/OI/ConvocatoriaDetalle.aspx
index 78cfaaee9..503d5a1b1 100644
--- a/OI/ConvocatoriaDetalle.aspx
+++ b/OI/ConvocatoriaDetalle.aspx
@@ -13,7 +13,7 @@
 
         tr[hide="1"] {
             display: none;
-            background-color: rgb(4,71,103)
+            background-color: rgb(4,71,103);
         }
 
         .portlet {
@@ -138,10 +138,10 @@
                 <asp:LinkButton ID="LnkUpUsuarios" OnClick="LnkUpUsuarios_Click" Visible="true" runat="server"><i class="fa fa-pencil"></i> Actualizar Participantes</asp:LinkButton>
             </li>
             <li>
-                <asp:LinkButton ID="LnkOpenModalAsistencia" OnClick="LnkOpenModalAsistencia_Click" Visible="false"  runat="server"><i class="fa fa-users"></i>Asistencia</asp:LinkButton>
+                <asp:LinkButton ID="LnkOpenModalAsistencia" OnClick="LnkOpenModalAsistencia_Click" Visible="false" runat="server"><i class="fa fa-users"></i>Asistencia</asp:LinkButton>
             </li>
             <li>
-                <asp:LinkButton ID="LnkEnviarCorreo" OnClick="LnkEnviarCorreo_Click" Visible="false"  runat="server"><i class="fa fa-paper-plane-o"></i>Enviar correo</asp:LinkButton>
+                <asp:LinkButton ID="LnkEnviarCorreo" OnClick="LnkEnviarCorreo_Click" Visible="false" runat="server"><i class="fa fa-paper-plane-o"></i>Enviar correo</asp:LinkButton>
             </li>
 
         </ContentTemplate>
@@ -150,7 +150,7 @@
 <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
-    <asp:UpdatePanel ID="UpContenido" runat="server"  UpdateMode="Conditional">
+    <asp:UpdatePanel ID="UpContenido" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <div class="row">
                 <div class="col-md-7">
@@ -180,6 +180,24 @@
                                 <asp:RequiredFieldValidator ID="RfvTxtLugar" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtLugar" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Lugar''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTarea"></asp:RequiredFieldValidator>
                                 <asp:Label runat="server" Text="Lugar:" AssociatedControlID="TxtLugar"></asp:Label>
                             </div>
+                            <div class="row" style="width:100%">
+                                <div class="col-sm-6" style="width:50%">
+                                    <div class="input-group form-group form-md-line-input  date date-picker " data-date-format="dd/mm/yyyy hh:mm" style="display: inline-block;">
+                                        <asp:TextBox ID="txtFechaI" runat="server" autocomplete="false" CssClass="form-control ADDateTimePicker" CausesValidation="true" MaxLength="18" Width="132px "></asp:TextBox>
+                                        <asp:RequiredFieldValidator ID="RFVtxtFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Inicio''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpTarea"></asp:RequiredFieldValidator>
+                                        <asp:Label AssociatedControlID="txtFechaI" runat="server" Text="Fecha"></asp:Label>
+                                        <%--<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999 99:99" MaskType="DateTime" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>--%>
+                                        <ajax:ValidatorCalloutExtender ID="VcoFechaI" runat="server" HighlightCssClass="vco" TargetControlID="RFVtxtFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    </div>
+                                </div>
+                                <div class="col-sm-6" style="width:50%">
+                                    <div class="form-group form-md-line-input input-iconright">
+                                        <asp:TextBox ID="TxtDuracion" runat="server" CssClass="form-control " CausesValidation="true"></asp:TextBox>
+                                        <asp:RequiredFieldValidator ID="RFVTxtDuracion" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtDuracion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Asunto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTarea"></asp:RequiredFieldValidator>
+                                        <asp:Label runat="server" Text="Duración:" AssociatedControlID="TxtDuracion"></asp:Label>
+                                    </div>
+                                </div>
+                            </div>
                             <asp:Panel ID="pnlmiembrosvista" Visible="false" runat="server">
                                 <div class="pnlCorreo" style="margin-bottom: 5px;">
                                     <div class="headerCorreo ">
@@ -198,28 +216,15 @@
                                     </div>
                                 </div>
                             </asp:Panel>
-                            
-                            <div class="form-group form-md-line-input input-iconright">
-                                <asp:TextBox ID="TxtDuracion" runat="server" CssClass="form-control " CausesValidation="true"></asp:TextBox>
-                                <asp:RequiredFieldValidator ID="RFVTxtDuracion" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtDuracion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Asunto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTarea"></asp:RequiredFieldValidator>
-                                <asp:Label runat="server" Text="Duración:" AssociatedControlID="TxtDuracion"></asp:Label>
-                            </div>
+
                             <div class="form-group form-md-line-input">
                                 <asp:TextBox ID="TxtCorreoExterno" runat="server" CssClass="form-control TxtCorreoExterno" CausesValidation="true" TextMode="MultiLine" Rows="2"></asp:TextBox>
                                 <%--<asp:RequiredFieldValidator ID="RfvCorreoExterno" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtCorreoExterno" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Correo Externo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTarea"></asp:RequiredFieldValidator>--%>
                                 <asp:Label runat="server" Text="Correos Externos" AssociatedControlID="TxtCorreoExterno"></asp:Label>
                             </div>
                             <div class="row">
-                                <div class="col-sm-6">
-                                    <div class="input-group form-group form-md-line-input  date date-picker " data-date-format="dd/mm/yyyy hh:mm" style="display: inline-block;">
-                                        <asp:TextBox ID="txtFechaI" runat="server" autocomplete="false" CssClass="form-control ADDateTimePicker" CausesValidation="true" MaxLength="18" Width="132px "></asp:TextBox>
-                                        <asp:RequiredFieldValidator ID="RFVtxtFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Inicio''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpTarea"></asp:RequiredFieldValidator>
-                                        <asp:Label AssociatedControlID="txtFechaI" runat="server" Text="Fecha Inicio"></asp:Label>
-                                        <%--<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999 99:99" MaskType="DateTime" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>--%>
-                                        <ajax:ValidatorCalloutExtender ID="VcoFechaI" runat="server" HighlightCssClass="vco" TargetControlID="RFVtxtFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
-                                    </div>
-                                </div>
-                                <div class="col-sm-6" style ="display:none;">
+
+                                <div class="col-sm-6" style="display: none;">
                                     <div class="input-group form-group form-md-line-input  date date-picker " data-date-format="dd/mm/yyyy hh:mm" style="display: inline-block;">
                                         <asp:TextBox ID="txtFechaF" runat="server" autocomplete="false" CssClass="form-control ADDateTimePicker" CausesValidation="true" MaxLength="18" Width="132px " placeholder=""></asp:TextBox>
                                         <%--<asp:RequiredFieldValidator ID="RFVtxtFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Fin''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpTarea"></asp:RequiredFieldValidator>--%>
@@ -294,7 +299,8 @@
                                         <ItemStyle HorizontalAlign="Center" Width="50px" />
                                         <HeaderTemplate>
                                             C. C. Para
-                                        <br />
+                                       
+                                            <br />
                                             <%--<a id="chkAll" onclick="chkAll_OncLick(1);" class="linkCorreo" data-toggle="tooltip" title="Seleccionar todos(Visibles)"><i class="fa fa-check-square-o"></i></a>
                                             <a id="UnchkAll" onclick="chkAll_OncLick(0);" class="linkCorreo" data-toggle="tooltip" title="Quitar seleccion todos(Visibles)"><i class="fa fa-square-o"></i></a>--%>
                                         </HeaderTemplate>
@@ -413,6 +419,7 @@
                                     <ItemStyle HorizontalAlign="Center" Width="50px" />
                                     <HeaderTemplate>
                                         C. C. Para
+                                       
                                         <br />
                                         <%--<a id="chkAll" onclick="chkAll_OncLick(1);" class="linkCorreo" data-toggle="tooltip" title="Seleccionar todos(Visibles)"><i class="fa fa-check-square-o"></i></a>
                                         <a id="UnchkAll" onclick="chkAll_OncLick(0);" class="linkCorreo" data-toggle="tooltip" title="Quitar seleccion todos(Visibles)"><i class="fa fa fa-square-o"></i></a>--%>
@@ -445,7 +452,7 @@
             </asp:UpdatePanel>
         </div>
     </div>
-    
+
     <div id='<%= iddivTomarAsistencia %>' class="modal ADS fade" role="dialog">
         <div class="modal-dialog">
             <asp:UpdatePanel ID="UpTomarASistencia" class="modal-content " tabindex="-1" runat="server" UpdateMode="Conditional">
@@ -468,9 +475,10 @@
                                     <ItemStyle HorizontalAlign="Center" Width="50px" />
                                     <HeaderTemplate>
                                         Asistió
+                                   
                                     </HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:CheckBox ID="ChkAsistio" CssClass="ChkOk" Checked='<%# Eval("Asistencia").ToString()=="1" %>'  runat="server" />
+                                        <asp:CheckBox ID="ChkAsistio" CssClass="ChkOk" Checked='<%# Eval("Asistencia").ToString()=="1" %>' runat="server" />
                                     </ItemTemplate>
                                 </asp:TemplateField>
                                 <asp:TemplateField>
@@ -487,11 +495,11 @@
                                 </asp:TemplateField>
                             </Columns>
                         </asp:GridView>
-                        
-                            <div class="form-group form-md-line-input">
-                                <asp:TextBox ID="TxtAsistentesExternos" runat="server" CssClass="form-control" CausesValidation="true" TextMode="MultiLine" Rows="2"></asp:TextBox>
-                                <asp:Label runat="server" Text="Externos" AssociatedControlID="TxtAsistentesExternos"></asp:Label>
-                            </div>
+
+                        <div class="form-group form-md-line-input">
+                            <asp:TextBox ID="TxtAsistentesExternos" runat="server" CssClass="form-control" CausesValidation="true" TextMode="MultiLine" Rows="2"></asp:TextBox>
+                            <asp:Label runat="server" Text="Externos" AssociatedControlID="TxtAsistentesExternos"></asp:Label>
+                        </div>
                     </div>
                     <div class="modal-footer">
                         <asp:LinkButton ID="LnkUpAsistencia" OnClick="LnkUpAsistencia_Click" CssClass="btn btn-primary" runat="server">Guardar</asp:LinkButton>

From b280333b08b99d6f689b1b95720db20e1b295b9c Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Fri, 28 Aug 2020 11:37:58 -0700
Subject: [PATCH 3/4] - solo traspaso origen  costeado a uno costeado

---
 Inventarios/TraspasoAlmacen.aspx.vb | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index d44ee8d3a..15a4aaa3e 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -2845,6 +2845,19 @@ Partial Class Inventarios_TraspasoAlmacen
             DdlSeccionAlmacen.DataBind()
             DdlSeccionAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
             UpDatos.Update()
+
+            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
+
+                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
         End If
     End Sub
 

From ce27b2a26422d26de2f39d0b19e8b90aa525b38e Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Fri, 28 Aug 2020 11:39:10 -0700
Subject: [PATCH 4/4] -- cambio de color comparativo de codigo sat -- candado
 de no poder eliminar compra. si tiene pagos conciliados

---
 Compras/Compras.aspx.vb | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index fb5b5faab..323eb9250 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -2835,8 +2835,8 @@ Partial Class Compras_Compras
                 GvAnticiposSel.DataBind()
 
 
-                ''  VALIDA ELIMINAR COMPRA
-                If UsuarioActual.TienePermisoProceso(77) OrElse UsuarioActual.TienePermisoProceso(135) Then ' Eliminar compra
+                ''  VALIDA ELIMINAR COMPRA, QUE NO TENGA PAGOS CONCILIADOS
+                If (UsuarioActual.TienePermisoProceso(77) OrElse UsuarioActual.TienePermisoProceso(135)) AndAlso dr("NumPagosConciliados").ToString.ToEntero = 0 Then ' Eliminar compra
 
                     'SIN VINCULACIÓN
                     If UsuarioActual.TienePermisoProceso(135) Then
@@ -10824,10 +10824,11 @@ Partial Class Compras_Compras
 
 
             If e.Row.DataKey("DifPSSat").ToEntero = 1 Then
-                '#e35b5a
-                e.Row.BackColor = Drawing.Color.FromArgb(1, 227, 91, 90)
+
+                e.Row.BackColor = Drawing.ColorTranslator.FromHtml("#EFD569")  'Drawing.Color.FromArgb(1, 227, 91, 90)'#e35b5a
                 e.Row.Attributes.Add("data-toggle", "tooltip")
-                e.Row.Attributes.Add("title", "El código del producto del SAT no es igual al código del producto registrado.")
+                e.Row.Attributes.Add("data-html", "true")
+                e.Row.Attributes.Add("title", String.Format("El código del producto del SAT no es igual al código del producto registrado. <br/>Código XML:{0} <br/> Código Sistema:{1} ", e.Row.DBCampo("ClaveProdServ"), e.Row.DBCampo("SATClavePS")))
             End If
 
         End If