From 90c9dfea626d2de3e8f45ce057e361b3cc938388 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Fri, 22 Dec 2023 11:25:06 -0700 Subject: [PATCH 1/4] OS Modal DVModalSolicitarDevolucion txt serie, lote, fecha caducidad a Lbl, ocultar columnas serie lote fecha de caducidad si no tienen datos, datos GvSolicitarDevolucion solo mostrar movimiento de Ped --- OS/OrdenesServicios.aspx | 10 +++---- OS/OrdenesServicios.aspx.vb | 54 ++++++++++++++++++++----------------- 2 files changed, 34 insertions(+), 30 deletions(-) diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx index 1bb42a407..dde2b56c3 100644 --- a/OS/OrdenesServicios.aspx +++ b/OS/OrdenesServicios.aspx @@ -1304,22 +1304,22 @@ Lote - + Serie - + Fecha Cad. - -
+ + <%--
@@ -1330,7 +1330,7 @@ -
+
--%> diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index b1fe50d71..08b091a33 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -838,11 +838,14 @@ Partial Class OS_OrdenesServicios Dim ObjMateriales As New ClsOS If ObjMateriales.GetDetalleMateriales(CveOsDetalle, CveOS, -1) Then + For Each RowE As DataRow In ObjMateriales.DtResultados.Rows Dim Row As DataRow = Nothing Row = TmpDTMaterialesDetalle.NewRow() + + Row("CveConsecutivo") = Consecutivo Row("CveConsecutivoDetalle") = CveConsecutivoDetalle Row("CveOSDetalle") = CveOsDetalle @@ -3041,12 +3044,6 @@ Partial Class OS_OrdenesServicios End Sub - - - - - - Protected Sub LnkAccionesDevolucion_Click(sender As Object, e As EventArgs) LnkModalSolicitarDevolucion.Visible = True @@ -3054,15 +3051,22 @@ Partial Class OS_OrdenesServicios GvSolicitarDevolucion.DataSource = Nothing DTSolicitudDev = New DataTable + GvSolicitarDevolucion.Columns(3).Visible = False 'Lote + GvSolicitarDevolucion.Columns(4).Visible = False 'Serie + GvSolicitarDevolucion.Columns(5).Visible = False 'Fecha Caducidad + Dim ObjOS As New ClsOS - - If ObjOS.GetOrdenesServicioDevolucionMaterial(CveOS, CveVenta, UsuarioActual.CveEmpresa) Then DTSolicitudDev = ObjOS.DtResultados GvSolicitarDevolucion.DataSource = DTSolicitudDev End If + GvSolicitarDevolucion.Columns(3).Visible = DTSolicitudDev.MAX("Lote").ToString.Trim().Length > 0 + GvSolicitarDevolucion.Columns(4).Visible = DTSolicitudDev.MAX("Serie").ToString.Trim().Length > 0 + GvSolicitarDevolucion.Columns(5).Visible = DTSolicitudDev.MAX("FechaCaducidad").ToString.Trim().Length > 0 + + ObjOS.Dispose() GvSolicitarDevolucion.DataBind() @@ -3086,24 +3090,24 @@ Partial Class OS_OrdenesServicios e.Row.FCTextBox("TxtDev").Attributes.Add("onblur", String.Format("ValidarCantidad(this, {0})", e.Row.DataKey("Cantidad"))) 'AplicaSerie, AplicaLote, AplicaCaducidad - If Boolean.Parse(e.Row.DataKey("AplicaSerie")) Then - e.Row.FCTextBox("TxtSerie").Visible = True - End If + 'If Boolean.Parse(e.Row.DataKey("AplicaSerie")) Then + ' e.Row.FCTextBox("TxtSerie").Visible = True + 'End If - If Boolean.Parse(e.Row.DataKey("AplicaLote")) Then - e.Row.FCTextBox("TxtLote").Visible = True - End If + 'If Boolean.Parse(e.Row.DataKey("AplicaLote")) Then + ' e.Row.FCTextBox("TxtLote").Visible = True + 'End If - If Boolean.Parse(e.Row.DataKey("AplicaCaducidad")) Then + 'If Boolean.Parse(e.Row.DataKey("AplicaCaducidad")) Then - e.Row.FCHtmlGenericControl("DVFechaCaducidad").Visible = True - 'e.Row.FCTextBox("TxtFechaCaducidad").Visible = True - 'e.Row.FCMaskedEditExtender("METxtFechaCaducidad").Visible = True - 'e.Row.FCCalendarExtender("CCTxtFechaCaducidad").Visible = True - 'e.Row.FCCompareValidator("CVTxtFechaCaducidad").Visible = True - 'e.Row.FCValidatorCalloutExtender("VCTxtFechaCaducidad").Visible = True + ' e.Row.FCHtmlGenericControl("DVFechaCaducidad").Visible = True + ' 'e.Row.FCTextBox("TxtFechaCaducidad").Visible = True + ' 'e.Row.FCMaskedEditExtender("METxtFechaCaducidad").Visible = True + ' 'e.Row.FCCalendarExtender("CCTxtFechaCaducidad").Visible = True + ' 'e.Row.FCCompareValidator("CVTxtFechaCaducidad").Visible = True + ' 'e.Row.FCValidatorCalloutExtender("VCTxtFechaCaducidad").Visible = True - End If + 'End If @@ -3220,9 +3224,9 @@ Partial Class OS_OrdenesServicios Dim CveVentaDetalle As Integer = GvRow.DataKey("CveVentaDetalle").ToEntero Dim CveMovimientoDetalle As Integer = GvRow.DataKey("CveMovimientoDetalle").ToEntero - Dim Lote As String = GvRow.FCTextBox("TxtLote").Text.Trim - Dim Serie As String = GvRow.FCTextBox("TxtSerie").Text.Trim - Dim FechaCaducidad As DateTime = GvRow.FCTextBox("TxtFechaCaducidad").Text.ToDate + Dim Lote As String = GvRow.DataKey("Lote") + Dim Serie As String = GvRow.DataKey("Serie") + Dim FechaCaducidad As DateTime = GvRow.DataKey("FechaCaducidad").ToDate From 0ad891fe07aec68761b50487a567a1aaceb714cb Mon Sep 17 00:00:00 2001 From: AbrahamCastilloV Date: Fri, 22 Dec 2023 13:09:43 -0700 Subject: [PATCH 2/4] =?UTF-8?q?--Se=20seleccionaron=20boletos=20ya=20vendi?= =?UTF-8?q?dos,=20se=20les=20cambio=20la=20clase=20a=20.nodisponible,=20se?= =?UTF-8?q?=20deshabilitaron=20los=20click=20y=20se=20puso=20el=20nombre?= =?UTF-8?q?=20del=20cliente=20en=20hover.=20=20Se=20agreg=C3=B3=20un=20nue?= =?UTF-8?q?vo=20bot=C3=B3n=20de=20acci=C3=B3n=20a=20la=20lista=20de=20viaj?= =?UTF-8?q?es=20para=20poder=20ver=20los=20boletos=20por=20viaje.=20Se=20c?= =?UTF-8?q?re=C3=B3=20el=20nuevo=20url=20para=20la=20lista=20de=20boletos?= =?UTF-8?q?=20vendidos=20por=20viaje=20en=20ClsPaginas,=20y=20en=20la=20nu?= =?UTF-8?q?eva=20url=20se=20creo=20la=20lista=20de=20boletos=20con=20las?= =?UTF-8?q?=20acciones=20para=20editar,=20cambiar=20estatus=20de=20boleto?= =?UTF-8?q?=20e=20imprimirlo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsPaginas.vb | 1 + Transportes/Boletos.aspx | 57 +--------------- Transportes/Boletos.aspx.vb | 12 ++-- Transportes/ListadoBoletos.aspx | 101 +++++++++++++++++++++++++++++ Transportes/ListadoBoletos.aspx.vb | 43 ++++++++++++ Transportes/ListadoViajes.aspx | 8 ++- Transportes/ListadoViajes.aspx.vb | 6 +- 7 files changed, 163 insertions(+), 65 deletions(-) create mode 100644 Transportes/ListadoBoletos.aspx create mode 100644 Transportes/ListadoBoletos.aspx.vb diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index e4fa603fe..60bf8c37c 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -9471,6 +9471,7 @@ Public Class ClsPaginas 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) #End Region 'Antes de aquí. diff --git a/Transportes/Boletos.aspx b/Transportes/Boletos.aspx index 85959c08e..dd12a91c2 100644 --- a/Transportes/Boletos.aspx +++ b/Transportes/Boletos.aspx @@ -37,7 +37,7 @@ display: inline-block; width: 45px; height: 45px; - background-color: #E7505A; + background-color: #F3565D; border-radius: 10px !important; margin: 5px; cursor: pointer; @@ -217,60 +217,7 @@ -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+ diff --git a/Transportes/Boletos.aspx.vb b/Transportes/Boletos.aspx.vb index 43a671f0d..3b878b195 100644 --- a/Transportes/Boletos.aspx.vb +++ b/Transportes/Boletos.aspx.vb @@ -1,5 +1,5 @@ -Imports Extensiones -Imports System.Data +Imports System.Data +Imports Extensiones Partial Class Boletos Inherits ClsPaginas @@ -66,22 +66,20 @@ Partial Class Boletos 'Boletos Vendidos Dim dt As DataTable If ObjViaje.GetViajesPasajeros(CveViaje) Then - GvBoletos.DataSource = ObjViaje.DtResultados dt = ObjViaje.DtResultados Dim cph As ContentPlaceHolder = CType(Me.Master.FindControl("C"), ContentPlaceHolder) For Each dr As DataRow In dt.Rows Dim lnk As LinkButton = CType(cph.FindControl($"A{dr("Asiento")}"), LinkButton) If lnk IsNot Nothing Then - lnk.Enabled = False ' se vendieron - lnk.BackColor = Drawing.Color.Red - 'falta ponerlelos colores rojos, colorear con + lnk.Enabled = False + lnk.CssClass = "nodisponible" + lnk.ToolTip = dr("Nombre").ToString End If Next End If End If ObjViaje.Dispose() - GvBoletos.DataBind() End Sub diff --git a/Transportes/ListadoBoletos.aspx b/Transportes/ListadoBoletos.aspx new file mode 100644 index 000000000..d71269d60 --- /dev/null +++ b/Transportes/ListadoBoletos.aspx @@ -0,0 +1,101 @@ +<%@ Page Language="VB" AutoEventWireup="false" MasterPageFile="~/Site.master" CodeFile="ListadoBoletos.aspx.vb" + Inherits="ListadoBoletos" EnableEventValidation="true" %> + + + Listado de Boletos + + + + + + + + + +
  • + Contratos +
    • +
  • + Viajes +
    • +     +     +     + + + +
    + " + style="display: inline-block; margin-right: -20px; width: 150px;" /> + " + style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> + +
    + +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    + + + +     + + diff --git a/Transportes/ListadoBoletos.aspx.vb b/Transportes/ListadoBoletos.aspx.vb new file mode 100644 index 000000000..0addc5160 --- /dev/null +++ b/Transportes/ListadoBoletos.aspx.vb @@ -0,0 +1,43 @@ +Option Explicit On +Option Strict On +Imports ADSNetLibrary.SIGAPI.Helpers +Imports Extensiones.ModExtensiones + +Partial Class ListadoBoletos + Inherits ClsPaginas + Private Property CveViaje As Integer + Get + Return ViewState("CveViaje").ToString().ToEntero + End Get + Set(value As Integer) + ViewState("CveViaje") = 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 + + InicializaCombos() + CargaDatos() + End If + End Sub + + Private Sub InicializaCombos() + + End Sub + + Private Sub CargaDatos() + Dim ObjTransportes As New ClsTransportes + + If ObjTransportes.GetViajesPasajeros(CveViaje) Then + + GvBoletos.DataSource = ObjTransportes.DtResultados + ObjTransportes.Dispose() + GvBoletos.DataBind() + End If + End Sub + +End Class \ No newline at end of file diff --git a/Transportes/ListadoViajes.aspx b/Transportes/ListadoViajes.aspx index 9377bb548..67bcd60c0 100644 --- a/Transportes/ListadoViajes.aspx +++ b/Transportes/ListadoViajes.aspx @@ -103,9 +103,13 @@ CssClass="btn btn-circle btn-sm red" OnClick="RemoveViaje" Text="" data-toggle="confirmation" data-popout="true" data-original-title='<%# If(Eval("CveMasivo").ToString <> "", "Eliminación masiva", "Confirmar") %>' data-btn-ok-label="si" /> + + CssClass="btn btn-circle btn-sm blue" Text="" + OnClick="GoViaje" /> + diff --git a/Transportes/ListadoViajes.aspx.vb b/Transportes/ListadoViajes.aspx.vb index 4207e0c93..83208732e 100644 --- a/Transportes/ListadoViajes.aspx.vb +++ b/Transportes/ListadoViajes.aspx.vb @@ -232,5 +232,9 @@ Partial Class ListadoViajes Dim CveViaje As String = GvRow.DataKey("CveViaje") Response.Redirect(String.Format("~/Transportes/Boletos.aspx?CveViaje={0}", CveViaje)) End Sub - + 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)) + End Sub End Class From 34900fa1d4a307a66596c5f35139c59f670aaf8b Mon Sep 17 00:00:00 2001 From: AbrahamCastilloV Date: Fri, 22 Dec 2023 13:25:26 -0700 Subject: [PATCH 3/4] =?UTF-8?q?--Se=20agreg=C3=B3=20n=C3=BAmero=20de=20asi?= =?UTF-8?q?ento=20a=20la=20lista=20de=20boletos?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Transportes/ListadoBoletos.aspx | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/Transportes/ListadoBoletos.aspx b/Transportes/ListadoBoletos.aspx index d71269d60..56f94003e 100644 --- a/Transportes/ListadoBoletos.aspx +++ b/Transportes/ListadoBoletos.aspx @@ -45,6 +45,12 @@ data-sort="true"> + + + + + + From cecf91c547e26c130a155c7f5fd5d02eeaeff78a Mon Sep 17 00:00:00 2001 From: rakcsle Date: Fri, 22 Dec 2023 17:05:34 -0700 Subject: [PATCH 4/4] Generacion remision sin CveMedico,CveProcedimiento , FechaDeOS --- OS/OrdenesServicios.aspx | 6 +- OS/OrdenesServicios.aspx.vb | 194 ++++++++++++++++++++++++++++-------- 2 files changed, 158 insertions(+), 42 deletions(-) diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx index dde2b56c3..a2feb17ca 100644 --- a/OS/OrdenesServicios.aspx +++ b/OS/OrdenesServicios.aspx @@ -1275,10 +1275,12 @@
    -
    +
    + + diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 08b091a33..e788c7d4d 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -5,6 +5,8 @@ Imports Extensiones Imports System.IO Imports System.Data Imports Telerik.Web.UI +Imports System.Data.SqlClient +Imports Stimulsoft.Report.StiOptions.Export Partial Class OS_OrdenesServicios Inherits ClsPaginas @@ -3121,6 +3123,8 @@ Partial Class OS_OrdenesServicios Dim CveSubProyectoPedido As Integer = DTSolicitudDev.FiltroPrimeroValor("CveSubProyecto").ToEntero Dim CveVentaPedido As Integer = DTSolicitudDev.FiltroPrimeroValor("CveVenta").ToEntero + + Dim CveAlmacenDestino As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 10).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto = {CveSubProyectoPedido}").ToEntero If Not CveAlmacenDestino > 0 Then @@ -3130,55 +3134,61 @@ Partial Class OS_OrdenesServicios - Dim SbErroresDev As New StringBuilder + 'Dim SbErroresDev As New StringBuilder + 'Dim CantidadSeleccion As Integer = 0 - For Each GvRow As GridViewRow In GvSolicitarDevolucion.Rows + 'For Each GvRow As GridViewRow In GvSolicitarDevolucion.Rows - If GvRow.DataKey("Cantidad").ToDecimal > 0 Then + ' If GvRow.DataKey("Cantidad").ToDecimal > 0 Then - Dim sbTemperror As New StringBuilder - Dim ErrorCountDev As Integer = 0 + ' Dim sbTemperror As New StringBuilder + ' Dim ErrorCountDev As Integer = 0 - sbTemperror.Append($"Producto: {GvRow.DataKey("CodigoPS") } requiere: ") + ' sbTemperror.Append($"Producto: {GvRow.DataKey("CodigoPS") } requiere: ") - If Boolean.Parse(GvRow.DataKey("AplicaSerie")) Then - If GvRow.FCTextBox("TxtSerie").Text.Trim = String.Empty Then - sbTemperror.Append($" Serie, ") - ErrorCountDev = ErrorCountDev + 1 - End If - End If + ' If Boolean.Parse(GvRow.DataKey("AplicaSerie")) Then + ' If GvRow.FCTextBox("TxtSerie").Text.Trim = String.Empty Then + ' sbTemperror.Append($" Serie, ") + ' ErrorCountDev = ErrorCountDev + 1 + ' End If + ' End If - If Boolean.Parse(GvRow.DataKey("AplicaLote")) Then - If GvRow.FCTextBox("TxtLote").Text = String.Empty Then - sbTemperror.Append($" Lote, ") - ErrorCountDev = ErrorCountDev + 1 - End If - End If + ' If Boolean.Parse(GvRow.DataKey("AplicaLote")) Then + ' If GvRow.FCTextBox("TxtLote").Text = String.Empty Then + ' sbTemperror.Append($" Lote, ") + ' ErrorCountDev = ErrorCountDev + 1 + ' End If + ' End If - If Boolean.Parse(GvRow.DataKey("AplicaCaducidad")) Then - If Not IsDate(GvRow.FCTextBox("TxtFechaCaducidad").Text) Then - sbTemperror.Append($" Fecha de caducidad") - ErrorCountDev = ErrorCountDev + 1 - End If - End If + ' If Boolean.Parse(GvRow.DataKey("AplicaCaducidad")) Then + ' If Not IsDate(GvRow.FCTextBox("TxtFechaCaducidad").Text) Then + ' sbTemperror.Append($" Fecha de caducidad") + ' ErrorCountDev = ErrorCountDev + 1 + ' End If + ' End If - If ErrorCountDev > 0 Then - sbTemperror.Append($"
    ") - SbErroresDev.AppendLine(sbTemperror.ToString) - End If + ' If ErrorCountDev > 0 Then + ' sbTemperror.Append($"
    ") + ' SbErroresDev.AppendLine(sbTemperror.ToString) + ' End If + ' CantidadSeleccion = CantidadSeleccion + 1 - End If + ' End If - Next + 'Next + ''If CantidadSeleccion = 0 Then + '' Alert($"No se selecciono nigun producto", TipoMensaje.MsgAdvertencia) + '' Exit Sub + ''End If - If SbErroresDev.ToString.Length > 0 Then - Alert($"Se encontraron los siguientes errores:
    {SbErroresDev.ToString}", TipoMensaje.MsgAdvertencia) - Exit Sub - End If + 'If SbErroresDev.ToString.Length > 0 Then + ' Alert($"Se encontraron los siguientes errores:
    {SbErroresDev.ToString}", TipoMensaje.MsgAdvertencia) + ' Exit Sub + 'End If Dim PropcesoOK As Boolean = True Dim ObjV As New ClsVentas @@ -3204,11 +3214,25 @@ Partial Class OS_OrdenesServicios Next End If + + Dim Respuesta = New RespuestaFacturacion() + + If PropcesoOK Then + + Respuesta = GeneraRemision(CveVentaPedido, ObjV.IniciaTransacSQL()) + If Not Respuesta.CveVenta > 0 Then + PropcesoOK = False + End If + + End If + + + If PropcesoOK Then Dim ObjInventario As New ClsInventarios(ObjV.IniciaTransacSQL()) - Dim CveMovimiento As Integer = ObjInventario.AddMovimiento(CveAlmacenActual, 8, CveMoneda, ClsPaginas.NowADS(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaPedido, CveSubProyectoPedido, -1, CveOS:=CveOS, CveAlmacenDestino:=CveAlmacenDestino) + Dim CveMovimiento As Integer = ObjInventario.AddMovimiento(CveAlmacenActual, 8, CveMoneda, ClsPaginas.NowADS(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, Respuesta.CveVenta, CveSubProyectoPedido, -1, CveOS:=CveOS, CveAlmacenDestino:=CveAlmacenDestino) Dim Folio As Integer = ObjInventario.Folio If CveMovimiento > 0 Then @@ -3242,7 +3266,7 @@ Partial Class OS_OrdenesServicios If PropcesoOK Then - Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenDestino, 9, CveMoneda, ClsPaginas.NowADS(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaPedido, CveSubProyectoPedido, -1, CveOS:=CveOS, CveMovimientoRelacionado:=CveMovimiento) + Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenDestino, 9, CveMoneda, ClsPaginas.NowADS(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, Respuesta.CveVenta, CveSubProyectoPedido, -1, CveOS:=CveOS, CveMovimientoRelacionado:=CveMovimiento) If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then @@ -3272,7 +3296,7 @@ Partial Class OS_OrdenesServicios Dim ObjEventos As New ClsOIEventos(ObjInventario.IniciaTransacSQL) Dim LigaVenta As String = String.Format("Venta {2} en Folio: {1}", CveMovimiento, Folio, "Material utilizado") - If Not ObjEventos.AddEventoBitacora(LigaVenta, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVentaPedido, CveOS:=CveOS) Then + If Not ObjEventos.AddEventoBitacora(LigaVenta, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=Respuesta.CveVenta, CveOS:=CveOS) Then PropcesoOK = False End If @@ -3285,7 +3309,7 @@ Partial Class OS_OrdenesServicios End If - Else + Else PropcesoOK = False End If @@ -3293,9 +3317,11 @@ Partial Class OS_OrdenesServicios If PropcesoOK Then - 'ObjV.RollBack() + ObjV.Commit() - Alert("La solicitud de Devolución de Almacén se guardó correctamente") + + Alert($"Proceso finalizado correctamente Remision generada {Respuesta.SerieFolio} ") + RegistraScript("$('#DVModalSolicitarDevolucion').modal('hide');") Else ObjV.RollBack() @@ -3307,4 +3333,92 @@ Partial Class OS_OrdenesServicios End Sub + Private Function GeneraRemision(CveVentaPedido As Integer, ByRef TransaccionSQL As SqlTransaction) As RespuestaFacturacion + + Dim Respuesta = New RespuestaFacturacion() + + Dim CveRemiocionGenerada As Integer = -1 + + Dim ObjVentas As New ClsVentas(TransaccionSQL) + Dim ProcesoOK As Boolean = True + + Dim CveSubProyectoPedido As Integer = -1 + Dim CveMoneda As Integer = -1 + + If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa, VerificaAlmacen:=False) Then + Dim DbRowVenta As DataRow = ObjVentas.DtResultados.Copy().Rows(0) + CveMoneda = DbRowVenta("CveMoneda").ToString.ToEntero + CveSubProyectoPedido = DbRowVenta("CveSubProyecto").ToString().ToEntero() + End If + + Dim ObjFactura = Modelos.Factura.CrearVentaNueva(UsuarioActual, CveSubProyectoPedido, CveCliente, CveMoneda, "Ped") + + If ObjFactura IsNot Nothing Then + + If ProcesoOK Then + + For Each GvRow As GridViewRow In GvSolicitarDevolucion.Rows + + Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero + Dim Cantidad As Decimal = GvRow.DataKey("Cantidad").ToDecimal + Dim CantidadDev As Decimal = GvRow.FCTextBox("TxtDev").Text.ToDecimal + Dim CantidadRegistro = Cantidad - CantidadDev + Dim PU As Decimal = GvRow.DataKey("PU").ToDecimal + Dim Descuento As Decimal = GvRow.DataKey("Descuento").ToDecimal + Dim Obs As String = GvRow.DataKey("Observaciones") + + If Not ObjFactura.AgregarPS(CvePS, CantidadRegistro, PU, Descuento, Obs, CveSubProyecto:=CveSubProyectoPedido) Then + Alert("Error al agregar producto", TipoMensaje.MsgAdvertencia) + ProcesoOK = False + Exit For + End If + + Next + + If ProcesoOK Then + ObjFactura.CalculaTotales() + + + Dim Resp As New Modelos.Factura.MMensajeFactura + Resp = ObjFactura.EmitirFactura(False, Transac:=TransaccionSQL) + + If Resp.CveVenta > 0 Then + Respuesta.CveVenta = Resp.CveVenta + Respuesta.SerieFolio = Resp.SerieFolio + Else + ProcesoOK = False + End If + + End If + + + End If + + Else + ProcesoOK = False + End If + + Return Respuesta + + End Function + + + + + + + + Friend Class RespuestaFacturacion + Public Property CveVenta As Integer = -1 + Public Property SerieFolio As String = "-1" + Public Sub New() + + End Sub + End Class + + + + + + End Class \ No newline at end of file