-- mejora en manejo de SMS

This commit is contained in:
2024-04-23 08:49:12 -07:00
parent 6a7c222728
commit 4f05e8d90c
3 changed files with 19 additions and 23 deletions

View File

@@ -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>

View File

@@ -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

View File

@@ -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