From 4f05e8d90c42d71600efd991f768b99ab75feaba Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 23 Apr 2024 08:49:12 -0700
Subject: [PATCH] -- mejora en manejo de SMS

---
 OS/OrdenesServicios.aspx    | 16 ++++++----------
 OS/OrdenesServicios.aspx.vb | 16 ++++++++++------
 Ventas/Ventas.aspx.vb       | 10 +++-------
 3 files changed, 19 insertions(+), 23 deletions(-)

diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx
index 807df5df5..4b9309df9 100644
--- a/OS/OrdenesServicios.aspx
+++ b/OS/OrdenesServicios.aspx
@@ -90,10 +90,10 @@
                                                 <asp:Label ID="LblCliente" runat="server"></asp:Label>
                                             </div>
 
-                                            <div class="col-md-2" runat="server" id="DvFechaRecivido1">
+                                            <div class="col-md-2" runat="server" id="DvFechaRecibido1">
                                                 <b>Fecha Recibido:</b>
                                             </div>
-                                            <div class="col-md-4" runat="server" id="DvFechaRecivido2">
+                                            <div class="col-md-4" runat="server" id="DvFechaRecibido2">
                                                 <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 117px !important; padding: 0px;">
                                                     <asp:TextBox ID="TxtFechaRecibido" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
                                                     <span class="input-group-btn ">
@@ -161,11 +161,11 @@
                                                 <asp:TextBox ID="TxtDescripcion" runat="server" MaxLength="500" Rows="3" TextMode="MultiLine" CssClass="form-control" />
                                             </div>
 
-                                            <div class="col-md-2">
+                                            <div class="col-md-2" id="divTipoOrden" runat="server">
                                                 <b>Tipo de Orden:</b>
                                             </div>
 
-                                            <div class="col-md-3" style="margin-top: 5px;text-align:left">
+                                            <div class="col-md-3" style="margin-top: 5px;text-align:left" id="divTipoOrden2" runat="server">
                                                 <asp:DropDownList ID="DdlTipoOrdenOS" CssClass="form-control input-sm select2me" runat="server" DataTextField="OrdenServicioTipo" DataValueField="CveOrdenServicioTipo" Width="100%" Height="30px">
                                                 </asp:DropDownList>
                                                 <asp:RequiredFieldValidator ID="RFVTipoOS" runat="server" CssClass="help-block errorimput" Display="Dynamic" ControlToValidate="DdlTipoOrdenOS" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Orden''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -1344,17 +1344,13 @@
                             <div class="col-md-6">
                                 <asp:TextBox ID="AnexoManerialUtilizado" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox>
                             </div>
-
-
-                         </div>
-    
-                     
+                         </div> 
                     
                         <br />
                         <div class="row">
                             <div class="col-md-12">
 
-                                <asp:GridView ID="GvMU" runat="server" AutoGenerateColumns="False" EmptyDataText="No se han capturado Historial" 
+                                <asp:GridView ID="GvMU" runat="server" AutoGenerateColumns="False" EmptyDataText="No se ha capturado material utilizado" 
                                     DataKeyNames="CveVentaDetalle,Cantidad,CveAlmacenActual,CvePS,CveUM,PU,CveMovimientoDetalle,Lote,Serie,FechaCaducidad,AplicaSerie,AplicaLote,AplicaCaducidad,CodigoPS,Descuento,Observaciones"                                    
                                     CssClass="table table-striped table-advance table-hover Widthall" GridLines="None" OnRowDataBound="GvMU_RowDataBound">
                                     <Columns>
diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index 84517bdd1..baf469c70 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -443,7 +443,6 @@ Partial Class OS_OrdenesServicios
                     DdlPsModalFinalizar.ddl.DataBind()
                     DdlPsModalFinalizar.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
                 End If
-
             End If
 
             If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
@@ -452,8 +451,10 @@ Partial Class OS_OrdenesServicios
                 DVTipoVenta1.Visible = True
                 DVTipoVenta2.Visible = True
 
-                DvFechaRecivido1.Visible = False
-                DvFechaRecivido2.Visible = False
+                DvFechaRecibido1.Visible = False
+                DvFechaRecibido2.Visible = False
+                divTipoOrden.Visible = False
+                divTipoOrden2.Visible = False
 
                 DVFechaCita1.Visible = True
                 DVFechaCita2.Visible = True
@@ -468,11 +469,8 @@ Partial Class OS_OrdenesServicios
                     DdlUsuarioAtendio.Enabled = True
                     DVUsuarioAtendio3.Visible = True
                 End If
-
             End If
-
         End If
-
     End Sub
 
     Private Sub CargaTiposVenta()
@@ -3206,6 +3204,12 @@ Partial Class OS_OrdenesServicios
                             Dim CveVentaDetalle As Integer = DtVentaDetalle.FiltroPrimeroValor("CveVentaDetalle", $"CveVentaDetallePadre = {GvRow.DataKey("CveVentaDetalle")}").ToEntero
                             Dim CveMovimientoDetalle As Integer = GvRow.DataKey("CveMovimientoDetalle").ToEntero
 
+                            If CveVentaDetalle <= 0 Then
+                                Alert("Error al agregar detalle de movimiento.", TipoMensaje.MsgAdvertencia)
+                                ProcesoOK = False
+                                Exit For
+                            End If
+
                             Dim Serie As String = GvRow.DataKey("Serie")
                             Dim Lote As String = GvRow.DataKey("Lote")
                             Dim FechaCaducidad As DateTime = GvRow.DataKey("FechaCaducidad").ToDate
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index dbc9f6197..62670ddd6 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -5869,9 +5869,6 @@ Partial Class Ventas
                             BtnPermisoEditarRemision.Visible = True
                         End If
 
-                        If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ped") Then BtnPermisoEditarRemision.Visible = True
-                        If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs") Then BtnEditar.Visible = True
-
 
                         'si es de FNC contado. bloquear edición si está pagada o en proceso de cobro
                         If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso (DbRowVenta("CveCobranzaEstatus").ToString = "1" OrElse DbRowVenta("Saldo").ToString.ToDecimal = 0) Then
@@ -6020,6 +6017,9 @@ Partial Class Ventas
                         End If
                     End If
 
+                    If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ped") Then BtnPermisoEditarRemision.Visible = True
+                    If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs") Then BtnEditar.Visible = True
+
                     If UsuarioActual.Empresa.Funcionalidad(280) = "1" Then
                         RblPaqueteria.SelectedValue = If(DbRowVenta("FormaPaqueteria").ToString = "", "1", DbRowVenta("FormaPaqueteria").ToString)
                         RblPaqueteria.Enabled = False
@@ -11219,7 +11219,6 @@ Partial Class Ventas
         ObjFacturaDevolucion.CveSucursalCobranza = DdlSucursalCobranza.SelectedValue.ToEntero()
 
         If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
-            ObjFacturaDevolucion.Alfa1 = TxtFechaOS.Text.Trim
             ObjFacturaDevolucion.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime
         Else
             ObjFacturaDevolucion.Alfa1 = TxtAlfa1.Text.Trim
@@ -12040,7 +12039,6 @@ Partial Class Ventas
         ObjFactura.MonedaAbreviatura = ""
 
         If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
-            ObjFactura.Alfa1 = TxtFechaOS.Text.Trim
             ObjFactura.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime
             ObjFactura.FechaParaSurtir = TxtFechaOS.Text.Trim.ToDateTime
         Else
@@ -12718,7 +12716,6 @@ Partial Class Ventas
         ObjFacturaDevolucion.MonedaAbreviatura = ""
 
         If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
-            ObjFacturaDevolucion.Alfa1 = TxtFechaOS.Text.Trim
             ObjFacturaDevolucion.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime
         Else
             ObjFacturaDevolucion.Alfa1 = TxtAlfa1.Text.Trim
@@ -13699,7 +13696,6 @@ Partial Class Ventas
                     ErrorList.Add("Ocurrió un error al seleccionar el almacen de resguardo del cliente.")
                 End If
             End If
-
         End If
 
         Dim TotalImpuestoLocal As Double = 0