diff --git a/App_Code/ClsOS.vb b/App_Code/ClsOS.vb
index b158a0930..ec92c6dcc 100644
--- a/App_Code/ClsOS.vb
+++ b/App_Code/ClsOS.vb
@@ -70,6 +70,7 @@ Public Class ClsOS
Public Property CveMedico As Integer = -1
Public Property CveProcedimiento As Integer = -1
Public Property CveTipoVenta As Integer = -1
+ Public Property CveVenta As Integer = -1
Public Property Paciente As String
Public Property IdentificadorCliente As String
@@ -591,6 +592,7 @@ Public Class ClsOS
Me.CveTipoVenta = Data.Rows(0)("CveTipoVenta").ToString.ToEntero
Me.Paciente = Data.Rows(0)("Paciente").ToString
Me.IdentificadorCliente = Data.Rows(0)("IdentificadorCliente").ToString
+ Me.CveVenta = Data.Rows(0)("CveVenta").ToString.ToEntero
End If
Retorno = True
@@ -1323,6 +1325,29 @@ Public Class ClsOS
Return Retorno
End Function
+
+ Public Function GetOrdenesServicioDevolucionMaterial(CveOS As Integer, CveVenta As Integer, CveEmpresa As Integer) As Boolean
+ Dim Retorno As Boolean = False
+
+ DataAdapter("PA_OS_OrdenesServicioDevolucionMaterialGet")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveOS", SqlDbType.Int).Value = CveOS
+ .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener los productos de devolución.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+
+ Return Retorno
+ End Function
+
Public Function GetCotizacionOS(CveCotizacion As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_OS_GetCotizacionOS")
diff --git a/Empresas/141/Formatos/CHQ-7452.rdlc b/Empresas/141/Formatos/CHQ-7452.rdlc
index a069ae2db..8dd5107aa 100644
--- a/Empresas/141/Formatos/CHQ-7452.rdlc
+++ b/Empresas/141/Formatos/CHQ-7452.rdlc
@@ -84,7 +84,7 @@
=Parameters!Beneficiario.Value
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index a0c94bd2c..499a952eb 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -3010,6 +3010,15 @@ Partial Class Inventarios_EntregaAlmacen
OnError("Ocurrió un error al guardar", ex)
End Try
+
+
+ If EsDevolucionVenta = 1 AndAlso CveOSSurtir > 0 AndAlso TipoMovimiento = 2 Then
+ If Not CierreOS(CveOSSurtir) Then
+ ErrorMovInv = True
+ Alert("Error al finalizar orden de servicio", TipoMensaje.MsgError)
+ End If
+ End If
+
If Not ErrorMovInv Then
ObjInventario.Commit()
@@ -4217,5 +4226,25 @@ Partial Class Inventarios_EntregaAlmacen
End If
- End Sub
+ End Sub
+
+ Private Function CierreOS(CveOSCerrar As Integer) As Boolean
+
+ Dim Respuesta As Boolean = True
+
+ Dim CveOSEstatusFinalizada As Integer = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 4").ToEntero
+
+ If CveOSEstatusFinalizada > 0 Then
+ Dim ObjOS As New ClsOS()
+ Respuesta = ObjOS.UpdateOrdenesServiciosEstatus(CveOSEstatusFinalizada, UsuarioActual.CveUsuario, CveOSCerrar)
+ ObjOS.Dispose()
+ Else
+ Alert("No se pudo obtener el estado para finalizar la orden de servicio.")
+ Respuesta = False
+ End If
+
+ Return Respuesta
+
+ End Function
+
End Class
diff --git a/Nomina/Aguinaldo.aspx b/Nomina/Aguinaldo.aspx
index 11e87c6bb..56ae58f15 100644
--- a/Nomina/Aguinaldo.aspx
+++ b/Nomina/Aguinaldo.aspx
@@ -8,7 +8,10 @@
.dSala {
width: 90px;
}
-
+ .dSalaz input {
+ width: 50px;
+ text-align: right;
+ }
.dlab {
width: 50px;
}
@@ -58,8 +61,13 @@
-
+
+ <%--MODAL FINALIZAR ORDEN INICIO --%>
+
+
@@ -1405,5 +1469,15 @@
});
$('#GvMateriales').parent().parent().children().first().css("position", "static");
}
+
+
+
+ function ValidarCantidad(t, c) {
+ if (t.value > c) {
+ t.value = c;
+ }
+ }
+
+
diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index 8abda6546..5dcc1b11f 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -7,6 +7,10 @@ Imports System.Data
Imports Microsoft.Reporting.WebForms
Imports ADSNetLibrary.SIGAPI.Models.Sistema
Imports Telerik.Charting.Styles
+Imports Telerik.Web.UI
+Imports DocumentFormat.OpenXml.Drawing.Diagrams
+Imports Profact.TimbraCFDI.Complementos.InstitucionesEducativas
+
'Imports msExcel = Microsoft.Office.Interop.Excel
'Imports VBIDE
@@ -84,6 +88,22 @@ Partial Class OS_OrdenesServicios
ViewState("CveOS") = value
End Set
End Property
+
+
+ Private Property CveVenta As Integer
+ Get
+ If ViewState("CveVenta") Is Nothing Then
+ ViewState("CveVenta") = -1
+ End If
+
+ Return ViewState("CveVenta").ToString.ToEntero
+ End Get
+ Set(value As Integer)
+ ViewState("CveVenta") = value
+ End Set
+ End Property
+
+
Private Property CveOsDetalle As Integer
Get
Return ViewState("CveOsDetalle").ToString.ToEntero
@@ -286,6 +306,7 @@ Partial Class OS_OrdenesServicios
TipoEstatus = 1
CveConsecutivo = 0
CveOsDetalle = -1
+ CveVenta = -1
CveUsuarioAtendioCount = 0
ImgImprimir.Visible = False
@@ -613,6 +634,7 @@ Partial Class OS_OrdenesServicios
SeFacturara = GlobalDTTipoOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SeFacturara", String.Format("CveOrdenServicioTipo = {0}", ObjOS.CveOSTipo))
CveTecnico = ObjOS.CveUsuarioAtendio
CargarEstatusDelUsuario(TipoEstatus)
+ CveVenta = ObjOS.CveVenta
'Dim validacionTieneEstatus As Integer = EstatusOSDelUsuario.FiltraParametros(String.Format("CveEstatusOrdenServicio = {0}", ObjOS.CveEstatusOrdenServicio)).Rows.Count
@@ -677,6 +699,11 @@ Partial Class OS_OrdenesServicios
CargaEventoBitacora()
CargaHistorial()
+
+
+ If CveVenta > 0 And TipoEstatus.Contiene(1, 2, 3) Then
+ LnkAccionesDevolucion.Visible = True
+ End If
Else
Alert("La Orden de Servicio Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
BtnGuardar.Enabled = False
@@ -3003,4 +3030,91 @@ Partial Class OS_OrdenesServicios
End Sub
+
+
+
+
+
+
+
+ Protected Sub LnkAccionesDevolucion_Click(sender As Object, e As EventArgs)
+
+ LnkModalSolicitarDevolucion.Visible = True
+
+ GvSolicitarDevolucion.DataSource = Nothing
+
+ Dim ObjOS As New ClsOS
+ Dim DTTemp As New DataTable
+
+
+ If ObjOS.GetOrdenesServicioDevolucionMaterial(CveOS, CveVenta, UsuarioActual.CveEmpresa) Then
+ DTTemp = ObjOS.DtResultados
+ GvSolicitarDevolucion.DataSource = DTTemp
+ End If
+
+ ObjOS.Dispose()
+ GvSolicitarDevolucion.DataBind()
+
+ Dim EsDevolucionVenta As Boolean = (DTTemp.FiltroPrimeroValor("EsDevolucionVenta", "").ToEntero > 0)
+
+ RegistraScript("$('#DVModalSolicitarDevolucion').modal();")
+
+ If EsDevolucionVenta Then
+ Alert("Ya existe una solicitud de devolución", TipoMensaje.MsgAdvertencia)
+ LnkModalSolicitarDevolucion.Visible = False
+ End If
+
+ UpModalSolicitarDevolucion.Update()
+
+ End Sub
+
+ Protected Sub GvSolicitarDevolucion_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+
+ If e.Row.RowType = DataControlRowType.DataRow Then
+ e.Row.FCTextBox("TxtDev").Attributes.Add("onblur", String.Format("ValidarCantidad(this, {0})", e.Row.DataKey("Cantidad")))
+ End If
+ End Sub
+
+ Protected Sub LnkModalSolicitarDevolucion_Click(sender As Object, e As EventArgs)
+
+ Dim PropcesoOK As Boolean = True
+ Dim ObjV As New ClsVentas
+ ObjV.IniciaTransacSQL()
+
+ If Not ObjV.UpdateVentasDevolucionAlmacen(1, CveVenta) Then
+ PropcesoOK = False
+ End If
+
+ If PropcesoOK Then
+ For Each GvRow As GridViewRow In GvSolicitarDevolucion.Rows
+
+ Dim CveVentaDetalle As Integer = GvRow.DataKey("CveVentaDetalle").ToEntero
+ Dim CantidadDev As Decimal = GvRow.FCTextBox("TxtDev").Text.ToDecimal
+
+ If CantidadDev > 0 Then
+ If Not ObjV.UpdateVentasDetalleCantidadDevolucion(CveVentaDetalle, CantidadDev) Then
+ PropcesoOK = False
+ Exit For
+ End If
+ End If
+
+ Next
+ End If
+
+
+ If PropcesoOK Then
+ 'ObjV.RollBack()
+ ObjV.Commit()
+ Alert("La solicitud de Devolución de Almacén se guardó correctamente")
+ RegistraScript("$('#DVModalSolicitarDevolucion').modal('hide');")
+ Else
+ ObjV.RollBack()
+ End If
+
+
+
+ ObjV.Dispose()
+
+ End Sub
+
End Class
\ No newline at end of file
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 25e522fb5..747a7d7e9 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -13145,6 +13145,11 @@ Partial Class Ventas
End If
End If
+
+ If UsuarioActual.CveEmpresa.Contiene(186) AndAlso EsVentaMedica AndAlso RBLTipoVenta.SelectedValue.ToEntero <> 2 Then
+ CveAlmacenTraspasoDestino = 1031 'FIXME OIC 2023-12-12 Por definir almacen
+ End If
+
Dim TotalImpuestoLocal As Double = 0
If GvImpuestosLocales2.Rows.Count > 0 Then
For Each gvr As GridViewRow In GvImpuestosLocales2.Rows