Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
@@ -6032,7 +6032,7 @@ Public Class ClsPaginas
|
||||
params.Add(New ReportParameter("Documentacion", Vta.Cliente.Documentacion))
|
||||
params.Add(New ReportParameter("Medico", Vta.Medico))
|
||||
params.Add(New ReportParameter("Procedimiento", Vta.Procedimiento))
|
||||
params.Add(New ReportParameter("FechaCirugia", Vta.Alfa1.ToDateTime.ToString("dd/MM/yyyy hh:mm")))
|
||||
params.Add(New ReportParameter("FechaCirugia", Vta.FechaEjecucion.ToString("dd/MM/yyyy hh:mm")))
|
||||
End If
|
||||
|
||||
RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo)
|
||||
@@ -9622,9 +9622,9 @@ Public Class ClsPaginas
|
||||
|
||||
#Region "Transportes"
|
||||
PaginaDict.Add("/Transportes/ListadoContratos.aspx".ToUpper(), 598)
|
||||
PaginaDict.Add("/Transportes/ListadoViajes.aspx".ToUpper(), 598)
|
||||
PaginaDict.Add("/Transportes/Boletos.aspx".ToUpper(), 598)
|
||||
PaginaDict.Add("/Transportes/ListadoBoletos.aspx".ToUpper(), 598)
|
||||
PaginaDict.Add("/Transportes/ListadoViajes.aspx".ToUpper(), 599)
|
||||
PaginaDict.Add("/Transportes/ListadoBoletos.aspx".ToUpper(), 600)
|
||||
PaginaDict.Add("/Transportes/Boletos.aspx".ToUpper(), 601)
|
||||
#End Region
|
||||
'Antes de aquí.
|
||||
|
||||
|
||||
@@ -2145,6 +2145,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
|
||||
|
||||
If dColumn.ColumnName = "SinSubProyecto" Then
|
||||
TxtSub = "Sin SubProyecto"
|
||||
Continue For
|
||||
End If
|
||||
|
||||
|
||||
@@ -2190,6 +2191,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
|
||||
IndexData = IndexData + 1
|
||||
|
||||
If dColumn.ColumnName = "SinSubProyecto" Then
|
||||
'Continue For
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
1155
Empresas/188/Formatos/Boleto.mrt
Normal file
1155
Empresas/188/Formatos/Boleto.mrt
Normal file
File diff suppressed because it is too large
Load Diff
@@ -1291,7 +1291,7 @@
|
||||
<HeaderTemplate>Utilizado</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:TextBox ID="TxtUtilizado" runat="server" Width="50px" ></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender runat="server" FilterType="Custom" TargetControlID="TxtUtilizado" ValidChars="123456789." />
|
||||
<ajax:FilteredTextBoxExtender runat="server" FilterType="Custom" TargetControlID="TxtUtilizado" ValidChars="1234567890." />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
|
||||
@@ -3007,18 +3007,27 @@ Partial Class OS_OrdenesServicios
|
||||
Dim ObjInventario As New ClsInventarios(ObjV.IniciaTransacSQL())
|
||||
Dim ObjConta As New ClsContabilidad(ObjV.IniciaTransacSQL())
|
||||
|
||||
Dim GenrarRemisionMovimientos As Boolean = False
|
||||
If ProcesoOK Then
|
||||
Dim AplicaDevolucion As Boolean = False
|
||||
For Each GvRow As GridViewRow In GvMU.Rows
|
||||
Dim CveVentaDetalle As Integer = GvRow.DataKey("CveVentaDetalle").ToEntero
|
||||
Dim CantidadDev As Decimal = GvRow.DataKey("Cantidad").ToDecimal - GvRow.FCTextBox("TxtUtilizado").Text.ToDecimal
|
||||
|
||||
If CantidadDev > 0 Then
|
||||
AplicaDevolucion = True
|
||||
If Not ObjV.UpdateVentasDetalleCantidadDevolucion(CveVentaDetalle, CantidadDev) Then
|
||||
ProcesoOK = False
|
||||
GenrarRemisionMovimientos = False
|
||||
AplicaDevolucion = False
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
|
||||
If GvRow.FCTextBox("TxtUtilizado").Text.ToDecimal > 0 Then
|
||||
GenrarRemisionMovimientos = True
|
||||
End If
|
||||
|
||||
Next
|
||||
If AplicaDevolucion Then
|
||||
If Not ObjV.UpdateVentasDevolucionAlmacen(1, CveVenta) Then
|
||||
@@ -3032,7 +3041,7 @@ Partial Class OS_OrdenesServicios
|
||||
Dim ImporteAlmacen As Decimal
|
||||
Dim Fecha As DateTime = ClsPaginas.NowADS()
|
||||
|
||||
If ProcesoOK Then
|
||||
If GenrarRemisionMovimientos AndAlso ProcesoOK Then
|
||||
Respuesta = GeneraRemision(CveVentaPedido, ObjV.IniciaTransacSQL())
|
||||
|
||||
If Respuesta.CveVenta > 0 Then
|
||||
@@ -3046,7 +3055,7 @@ Partial Class OS_OrdenesServicios
|
||||
End If
|
||||
End If
|
||||
|
||||
If ProcesoOK Then
|
||||
If GenrarRemisionMovimientos AndAlso ProcesoOK Then
|
||||
|
||||
CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenActual, 8, CveMoneda, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, Respuesta.CveVenta, CveSubProyectoPedido, -1, CveOS:=CveOS, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="OS/MatUtil")
|
||||
Dim Folio As Integer = ObjInventario.Folio
|
||||
@@ -3146,7 +3155,13 @@ Partial Class OS_OrdenesServicios
|
||||
|
||||
If ProcesoOK Then
|
||||
ObjV.Commit()
|
||||
Alert("El material utilizado se guardó correctamente")
|
||||
|
||||
If GenrarRemisionMovimientos = False Then
|
||||
Alert("El material sera recibido en almacén.")
|
||||
Else
|
||||
Alert("El material utilizado se guardó correctamente")
|
||||
End If
|
||||
|
||||
RegistraScript("$('#DivModalMaterialUtilizado').modal('hide');")
|
||||
Else
|
||||
ObjV.RollBack()
|
||||
|
||||
@@ -19,7 +19,6 @@
|
||||
</asp:Content>
|
||||
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
|
||||
|
||||
<div class="row my-1" style="margin-right: 10px; margin-top: 10px;" align="right">
|
||||
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvBoletos.ClientID) %>"
|
||||
style="display: inline-block; margin-right: -10px; width: 150px;" />
|
||||
@@ -27,12 +26,13 @@
|
||||
style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier">
|
||||
</i></a>
|
||||
</div>
|
||||
<asp:Label ID="Prueba" runat="server" Text=""></asp:Label>
|
||||
|
||||
<div class="portlet light xspadding bordered margin-bottom-10">
|
||||
<asp:GridView ID="GvBoletos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningún boleto registrado"
|
||||
CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None"
|
||||
data-sort="true">
|
||||
<Columns>
|
||||
data-sort="true" DataKeyNames="Asiento,Nombre, Visa,Celular,Sexo,Estatus,Partida,Destino, Importe">
|
||||
<Columns>
|
||||
|
||||
<asp:TemplateField HeaderText="No. Asiento">
|
||||
<ItemTemplate>
|
||||
@@ -71,17 +71,35 @@
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="Partida">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlPartida" runat="server" Text='<%# Eval("Partida") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="Destino">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlDestino" runat="server" Text='<%# Eval("Destino") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="Importe">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlImporte" runat="server" Text='<%# Eval("Importe") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Acciones">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="BtnEditar" runat="server" AlternateText="Editar"
|
||||
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
|
||||
<asp:LinkButton ID="BtnToggle" runat="server" AlternateText="Activar/Desactivar"
|
||||
CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-cancel'></i>"
|
||||
CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" ToolTip="Editar"/>
|
||||
<asp:LinkButton ID="BtnToggle" runat="server" AlternateText="Activar"
|
||||
ToolTip="Activar" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-cancel'></i>"
|
||||
data-toggle="confirmation" data-popout="true" data-original-title='<%# If(Eval("Estatus").ToString = "True", "Cancelar Boleto", "Reactivar") %>'
|
||||
data-btn-ok-label="si" OnClick="ToggleViajesPasajeros" />
|
||||
<asp:LinkButton ID="BtnViaje" runat="server" AlternateText="Viaje"
|
||||
CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-print'></i>" />
|
||||
<asp:LinkButton ID="BtnImprimir" runat="server" AlternateText="Viaje"
|
||||
CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-print'></i>" ToolTip="Imprimir"
|
||||
OnClick="ImprimirBoleto" />
|
||||
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
@@ -1,8 +1,11 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
Imports System.Data
|
||||
Imports ADSNetLibrary.Helpers
|
||||
Imports ADSNetLibrary.SIGAPI.Helpers
|
||||
Imports Extensiones.ModExtensiones
|
||||
Imports Microsoft.Reporting.WebForms
|
||||
|
||||
|
||||
Partial Class ListadoBoletos
|
||||
Inherits ClsPaginas
|
||||
@@ -14,12 +17,23 @@ Partial Class ListadoBoletos
|
||||
ViewState("CveViaje") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property Ruta As String
|
||||
Get
|
||||
Return ViewState("Ruta").ToString()
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("Ruta") = value
|
||||
End Set
|
||||
End Property
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not IsPostBack Then
|
||||
If Request.QueryString("CveViaje") Is Nothing Then
|
||||
Response.Redirect("/Transportes/ListadoViajes.aspx")
|
||||
End If
|
||||
CveViaje = Request.QueryString("CveViaje").ToEntero
|
||||
Ruta = Request.QueryString("Ruta")
|
||||
|
||||
Prueba.Text = Ruta
|
||||
|
||||
InicializaCombos()
|
||||
CargaDatos()
|
||||
@@ -71,4 +85,30 @@ Partial Class ListadoBoletos
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub ImprimirBoleto(sender As Object, e As EventArgs)
|
||||
Dim dtResult As New DataTable()
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
|
||||
Dim params As New List(Of ReportParameter)
|
||||
|
||||
params.Add(New ReportParameter("Ruta", Ruta))
|
||||
params.Add(New ReportParameter("Origen", GvRow.DataKey("Partida")))
|
||||
params.Add(New ReportParameter("Destino", GvRow.DataKey("Destino")))
|
||||
params.Add(New ReportParameter("FechaSalida", "2024-01-03"))
|
||||
params.Add(New ReportParameter("HoraSalida", "17:00"))
|
||||
params.Add(New ReportParameter("Nombre", GvRow.DataKey("Nombre")))
|
||||
params.Add(New ReportParameter("Visa", GvRow.DataKey("Visa")))
|
||||
params.Add(New ReportParameter("Celular", GvRow.DataKey("Celular")))
|
||||
params.Add(New ReportParameter("Importe", GvRow.DataKey("Importe")))
|
||||
params.Add(New ReportParameter("TipoBoleto", "Tipo Boleto"))
|
||||
params.Add(New ReportParameter("Agencia", "Agencia"))
|
||||
params.Add(New ReportParameter("TelefonoAgencia", "Telefono Agencia"))
|
||||
|
||||
ImprimirPDFStimul("Empresas/188/Formatos/Boleto.mrt", dtResult, params, NombreArchivo:="Boleto")
|
||||
|
||||
'Empresas/Grales/Formatos/EntradaSalida.mrt
|
||||
'Empresas/188/Formatos/Boleto.mrt
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -15,6 +15,14 @@ Partial Class ListadoViajes
|
||||
ViewState("CveViaje") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property Ruta As String
|
||||
Get
|
||||
Return ViewState("Ruta").ToString()
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("Ruta") = value
|
||||
End Set
|
||||
End Property
|
||||
#End Region
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
|
||||
@@ -192,7 +200,7 @@ Partial Class ListadoViajes
|
||||
DdlPartida.SelectedValue = GvRow.DataKey("CvePartida")
|
||||
DdlChofer.SelectedValue = GvRow.DataKey("CvePersonal")
|
||||
ViewState("CveViaje") = GvRow.DataKey("CveViaje")
|
||||
Page.Response.Write("<script>console.log('El resultado de tu variable" + CveViaje + "')</script>")
|
||||
ViewState("Ruta") = GvRow.DataKey("Ruta")
|
||||
Dim fecha As DateTime
|
||||
|
||||
If DateTime.TryParse(GvRow.DataKey("Fecha").ToString, fecha) Then
|
||||
@@ -247,6 +255,8 @@ Partial Class ListadoViajes
|
||||
Protected Sub GoBoletos(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
Dim CveViaje As String = GvRow.DataKey("CveViaje")
|
||||
Response.Redirect(String.Format("~/Transportes/ListadoBoletos.aspx?CveViaje={0}", CveViaje))
|
||||
Dim Ruta As String = GvRow.DataKey("Ruta")
|
||||
Response.Redirect(String.Format("~/Transportes/ListadoBoletos.aspx?CveViaje={0}&Ruta={1}", CveViaje, Ruta))
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -225,7 +225,7 @@
|
||||
<div class="col-md-12">
|
||||
|
||||
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"
|
||||
DataKeyNames="CveMedico,Medico,CedulaProfesional,FechaNacimiento,Notas,DiasAtencion,Horario,Lugar,Estatus,CveUsuario,FechaIng,CveEmpresa,Telefono,Mail,CveMedicoEspecialidad,CveMedicoSubEspecialidad,Celular,Consultorio,Torre"
|
||||
DataKeyNames="CveMedico,Medico,CedulaProfesional,FechaNacimiento,Notas,DiasAtencion,Horario,Lugar,Estatus,CveUsuario,FechaIng,CveEmpresa,Telefono,Mail,CveMedicoEspecialidad,CveMedicoSubEspecialidad,Celular,Consultorio,Torre,Usuario"
|
||||
data-sort="true"
|
||||
EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
|
||||
<Columns>
|
||||
@@ -278,13 +278,13 @@
|
||||
</asp:TemplateField>
|
||||
|
||||
|
||||
<asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center">
|
||||
<asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center" Visible="false">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Center">
|
||||
<asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Center" Visible="false">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
@@ -548,6 +548,22 @@
|
||||
</div>
|
||||
|
||||
|
||||
<div class="row" runat="server" id="DVUsuarioFechaIng" visible ="false">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtUsuario" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true" Enabled="false"></asp:TextBox>
|
||||
<label for="<%= TxtUsuario.ClientID.ToString()%>">Usuario:</label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright" >
|
||||
<asp:TextBox ID="TxtFechaIng" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true" Enabled="false"></asp:TextBox>
|
||||
<label for="<%= TxtFechaIng.ClientID.ToString()%>">Fecha Ing.:</label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -161,6 +161,10 @@ Partial Class Ventas_CatMedicos
|
||||
DdlEspecialidad.SelectedValueExist(-1)
|
||||
DdlSubEspecialidad.SelectedValueExist(-1)
|
||||
TxtTorre.Text = ""
|
||||
DVUsuarioFechaIng.Visible = False
|
||||
TxtFechaIng.Text = ""
|
||||
TxtUsuario.Text = ""
|
||||
|
||||
|
||||
DVEstatus.Visible = False
|
||||
ChkEstatus.Checked = True
|
||||
@@ -196,6 +200,10 @@ Partial Class Ventas_CatMedicos
|
||||
DdlSubEspecialidad.SelectedValueExist(GvRow.DataKey("CveMedicoSubEspecialidad").ToEntero)
|
||||
TxtTorre.Text = GvRow.DataKey("Torre")
|
||||
|
||||
DVUsuarioFechaIng.Visible = True
|
||||
TxtFechaIng.Text = GvRow.DataKey("FechaIng").ToDateTime.ToString("dd/MM/yyyy hh:mm:ss tt")
|
||||
TxtUsuario.Text = GvRow.DataKey("Usuario")
|
||||
|
||||
DVEstatus.Visible = True
|
||||
LbAgregar.Text = "Actualizar"
|
||||
LtlTituloModal.Text = $"Actualizar Médico {TxtCedulaProfecional.Text}"
|
||||
|
||||
@@ -1976,7 +1976,10 @@
|
||||
<asp:LinkButton ID="ImgCalendarFechaEje" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
|
||||
</span>
|
||||
</div>
|
||||
<ajax:MaskedEditExtender ID="MEEFechaEje" runat="server" TargetControlID="TxtFechaEjecucion" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<div runat="server" id="DVMEEFechaEje" visible="true">
|
||||
<ajax:MaskedEditExtender ID="MEEFechaEje" runat="server" TargetControlID="TxtFechaEjecucion" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
</div>
|
||||
|
||||
<ajax:CalendarExtender runat="server" ID="CEFechaEje" TargetControlID="TxtFechaEjecucion" PopupButtonID="ImgCalendarFechaEje" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
<asp:RequiredFieldValidator ID="RFVFechaEje" runat="server" ControlToValidate="TxtFechaEjecucion" Display="None" ErrorMessage="El campo <b>''Fecha de Ejecución''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpEmitirImprimir"></asp:RequiredFieldValidator>
|
||||
<asp:CompareValidator ID="CVFechaEje" runat="server" ControlToValidate="TxtFechaEjecucion" Display="None" ErrorMessage="El campo <b>''Fecha Ejecución''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpEmitirImprimir"></asp:CompareValidator>
|
||||
|
||||
@@ -3418,6 +3418,10 @@ Partial Class Ventas
|
||||
RegistraScript("$('#TxtCantidad').focus();", "A1")
|
||||
End If
|
||||
|
||||
If EsVentaMedica Then
|
||||
TxtPrecio.Enabled = False
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
@@ -5317,7 +5321,13 @@ Partial Class Ventas
|
||||
|
||||
End If
|
||||
|
||||
TxtFechaEjecucion.Text = DbRowVenta("FechaEjecucion").ToString().ToDateTime.ToString("dd/MM/yyyy")
|
||||
If DbRowVenta("CveMedico").ToString.ToEntero > 0 AndAlso DbRowVenta("CveProcedimiento").ToString.ToEntero > 0 Then
|
||||
TxtFechaEjecucion.Text = DbRowVenta("FechaEjecucion").ToString().ToDateTime.ToString("dd/MM/yyyy hh:mm")
|
||||
DVMEEFechaEje.Visible = False
|
||||
Else
|
||||
TxtFechaEjecucion.Text = DbRowVenta("FechaEjecucion").ToString().ToDateTime.ToString("dd/MM/yyyy")
|
||||
End If
|
||||
|
||||
'DdlSucursalEjecucion.SelectedValueExist(DbRowVenta("CveSucursalEjecucion").ToString())
|
||||
'DdlSucursalCobranza.SelectedValueExist(DbRowVenta("CveSucursalCobranza").ToString())
|
||||
DdlSucursalCliente.SelectedValueExist(DbRowVenta("CveClienteSucursal").ToString())
|
||||
@@ -8189,6 +8199,10 @@ Partial Class Ventas
|
||||
GvPS.Rows(e.NewEditIndex).FCTextBox("TxtDescuento").Enabled = False
|
||||
End If
|
||||
|
||||
If EsVentaMedica Then
|
||||
GvPS.Rows(e.NewEditIndex).FCTextBox("TxtPrecio").Enabled = False
|
||||
End If
|
||||
|
||||
If CveCicloComercial > 0 Then
|
||||
For Each gvr As GridViewRow In GvContratoDetalles.Rows
|
||||
If gvr.RowType = DataControlRowType.DataRow Then
|
||||
@@ -13519,7 +13533,7 @@ Partial Class Ventas
|
||||
|
||||
If EsVentaMedica AndAlso ErrorList.Count = 0 AndAlso ChkRequiereTecnico.Checked Then
|
||||
|
||||
GeneraOS(ObjVentas.IniciaTransacSQL, ErrorList)
|
||||
GeneraOS(ObjVentas.IniciaTransacSQL, ErrorList, CveVentaOS:=factura.CveVenta, SerieFolioOS:=factura.SerieFolio)
|
||||
|
||||
If ErrorList.Count = 0 Then
|
||||
If Not ObjOS.UpdateVentaOS(factura.CveVenta, CveOSVentaMedica) Then
|
||||
@@ -16793,16 +16807,22 @@ Partial Class Ventas
|
||||
DdlUnidadMedida.DataBind()
|
||||
DdlUnidadMedida.SelectedValueExist(drPS("CveUnidadMedida").ToString())
|
||||
|
||||
If drPS("CveTipoPS").ToString() = "1" Then 'Si es servicio
|
||||
If UsuarioActual.Empresa.Funcionalidad(558).ToString() = "1" Then 'Si es Empresa llantera
|
||||
TxtPrecio.Enabled = True
|
||||
Else
|
||||
'TxtPrecio.Enabled = False
|
||||
End If
|
||||
If EsVentaMedica Then
|
||||
TxtPrecio.Enabled = False
|
||||
Else
|
||||
TxtPrecio.Enabled = True
|
||||
If drPS("CveTipoPS").ToString() = "1" Then 'Si es servicio
|
||||
If UsuarioActual.Empresa.Funcionalidad(558).ToString() = "1" Then 'Si es Empresa llantera
|
||||
TxtPrecio.Enabled = True
|
||||
Else
|
||||
'TxtPrecio.Enabled = False
|
||||
End If
|
||||
Else
|
||||
TxtPrecio.Enabled = True
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Dim PSCodigoSAT As String = drPS("SATClavePS").ToString
|
||||
|
||||
If UsuarioActual.TienePermisoProceso(68) AndAlso Not PSCodigoSAT.Contiene("84111506", "80141610") Then TxtPrecio.Enabled = False
|
||||
@@ -21706,7 +21726,14 @@ Partial Class Ventas
|
||||
TxtObsPS.Enabled = True
|
||||
DdlProyecto.Enabled = True
|
||||
DdlSubProyecto.Enabled = True
|
||||
TxtPrecio.Enabled = True
|
||||
|
||||
If EsVentaMedica Then
|
||||
TxtPrecio.Enabled = False
|
||||
Else
|
||||
TxtPrecio.Enabled = True
|
||||
End If
|
||||
|
||||
|
||||
LbAgregar.Enabled = True
|
||||
ImgDescTotal.Attributes.Add("onclick", "javascript:$('#ModalDescuento').modal(); $get('LblTitulo1').style.display = ''; $get('LblTitulo2').style.display = 'none'; $get('LblTituloTipo1').style.display = ''; $get('LblTituloTipo2').style.display = 'none'; $get('HdnTipoDescuento').value = '2'; $get('LblPrecio1').style.display = 'none'; $get('LblTotalPS1').style.display = 'none'; $get('LblSubTotal1').style.display = ''; $get('LblAmort').style.display = 'none'; $get('BtnAplicarDescP').style.display = 'none'; $get('BtnAplicarDescG').style.display = ''; $get('TrMotivoDescuento').style.display = '';")
|
||||
LblSubTotal1.Text = TxtSubTotal.Text
|
||||
@@ -36323,7 +36350,7 @@ Partial Class Ventas
|
||||
End Sub
|
||||
|
||||
|
||||
Private Function GeneraOS(ByRef TransacSQL As SqlTransaction, ByRef errorList As List(Of String)) As Boolean
|
||||
Private Function GeneraOS(ByRef TransacSQL As SqlTransaction, ByRef errorList As List(Of String), CveVentaOS As Integer, SerieFolioOS As String) As Boolean
|
||||
|
||||
Dim Errores As Boolean = False
|
||||
|
||||
@@ -36359,18 +36386,22 @@ Partial Class Ventas
|
||||
Dim CveOsDetalle = ObjOrdenServicio.AddOrdenesServiciosDetalle(ObjOrdenServicio.CveOS, CvePSDetalle, 1, -1, -1, $"Venta: {LblSerie.Text}-{TxtFolio.Text}", False, True, False, -1, "-1", "-1", "-1", "", UsuarioActual.CveUsuario, Archivo:="")
|
||||
|
||||
If CveOsDetalle > 0 Then
|
||||
'MENSAJE PRINCIPAL
|
||||
'Dim MensajeAlertOS As New StringBuilder
|
||||
MensajeAlert.AppendFormat(String.Format("<br/>La Orden de Servicio: <b>{0}</b> se generó correctamente.<br/>", ObjOrdenServicio.Folio))
|
||||
MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul><br/>", Encripta(String.Format("OP=OS&CVEOS={0}", ObjOrdenServicio.CveOS)))
|
||||
'Dim Liga = $"document.location.href=""/OS/RepOrdenesServicios.aspx"";"
|
||||
'Alert(MensajeAlertOS.ToString, TipoMensaje.MsgInformacion, Liga)
|
||||
Else
|
||||
errorList.Add("Se presento un error al guardar la el detalle de la orden de servicio.")
|
||||
Errores = True
|
||||
End If
|
||||
End If
|
||||
|
||||
If Not Errores Then
|
||||
Dim ObjEventos As New ClsOIEventos(TransacSQL)
|
||||
Dim LigaVenta As String = String.Format("Pedido en Folio: <a href=""/Ventas/Ventas.aspx?CveVenta={0}"" target=""_blank"">{1}</a>", CveVentaOS, SerieFolioOS)
|
||||
|
||||
If Not ObjEventos.AddEventoBitacora(LigaVenta, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveOS:=CveOSVentaMedica) Then
|
||||
errorList.Add("Se presento un error al guardar la bitacora de la orden de servicio.")
|
||||
Errores = True
|
||||
End If
|
||||
End If
|
||||
|
||||
Return If(Errores, False, True)
|
||||
|
||||
Reference in New Issue
Block a user