From 7eb061a56c2b0f79ef8d981c68bb7bc69e9362cf Mon Sep 17 00:00:00 2001 From: rakcsle Date: Fri, 17 Nov 2023 15:50:09 -0700 Subject: [PATCH] Ventas medicas fuera de linea --- App_Code/ClsInventarios.vb | 1 + App_Code/ClsOS.vb | 7 +- App_Code/ClsVentas.vb | 9 +- Ashx/CargaEventos.ashx | 38 ++- CRM/Acercamiento.aspx | 2 +- CRM/EmpresaCRM.aspx | 2 +- Inventarios/EntregaAlmacen.aspx | 2 +- Inventarios/EntregaAlmacen.aspx.vb | 109 +++++--- OS/Asignaciones.aspx.vb | 2 +- OS/CatEstatusOrdenServicio.aspx | 26 +- OS/CatEstatusOrdenServicio.aspx.vb | 18 +- OS/OrdenesServicios.aspx | 2 +- OS/RepServicioDomicilio.aspx.vb | 4 + Scripts/jquery.simple-color-picker.css | 31 +++ Scripts/jquery.simple-color-picker.js | 104 +++++++ Ventas/Ventas.aspx | 140 +++++++++- Ventas/Ventas.aspx.vb | 359 ++++++++++++++++++++++++- Ventas/VentasMedicas.aspx | 101 ++++++- Ventas/VentasMedicas.aspx.vb | 184 +++++++++++-- 19 files changed, 1031 insertions(+), 110 deletions(-) create mode 100644 Scripts/jquery.simple-color-picker.css create mode 100644 Scripts/jquery.simple-color-picker.js diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 1699f61e8..b46e6a56d 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1045,6 +1045,7 @@ Public Class ClsInventarios .Add("@Licencia", SqlDbType.VarChar).Value = Licencia .Add("@Modulo", SqlDbType.VarChar).Value = Modulo .Add("@CveOP", SqlDbType.Int).Value = CveOP + .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia End With diff --git a/App_Code/ClsOS.vb b/App_Code/ClsOS.vb index 64b381f1d..171d0f8bf 100644 --- a/App_Code/ClsOS.vb +++ b/App_Code/ClsOS.vb @@ -378,7 +378,7 @@ Public Class ClsOS Return Retorno End Function - Public Function AddEstatusOrdenServicio(EstatusOrdenServicio As String, TipoEstatus As Integer, Estado As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Public Function AddEstatusOrdenServicio(EstatusOrdenServicio As String, TipoEstatus As Integer, Estado As Integer, CveUsuario As Integer, CveEmpresa As Integer, BackgroundColor As String) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OS_EstatusOrdenServicioAdd") @@ -389,7 +389,7 @@ Public Class ClsOS .Add("@Estado", SqlDbType.Bit).Value = Estado .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - + .Add("@BackgroundColor", SqlDbType.VarChar).Value = BackgroundColor End With Try @@ -407,7 +407,7 @@ Public Class ClsOS Return Retorno End Function - Public Function UpdateEstatusOrdenServicio(EstatusOrdenServicio As String, TipoEstatus As Integer, Estado As Integer, CveEstatusOrdenServicio As Integer) As Boolean + Public Function UpdateEstatusOrdenServicio(EstatusOrdenServicio As String, TipoEstatus As Integer, Estado As Integer, CveEstatusOrdenServicio As Integer, BackgroundColor As String) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OS_EstatusOrdenServicioUpdate") @@ -417,6 +417,7 @@ Public Class ClsOS .Add("@TipoEstatus", SqlDbType.Int).Value = TipoEstatus .Add("@Estado", SqlDbType.Bit).Value = Estado .Add("@CveEstatusOrdenServicio", SqlDbType.Int).Value = CveEstatusOrdenServicio + .Add("@BackgroundColor", SqlDbType.VarChar).Value = BackgroundColor End With Try diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index e1eab6eec..490f25784 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -419,7 +419,7 @@ Public Class ClsVentas Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False, Optional Kilometraje As Double = 0, Optional EsAmortizacion As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoNotificacion As String = "", Optional FormaPaqueteria As Integer = 1, Optional FacturarSucursal As Boolean = False, Optional VentaDesglosaIEPS As Boolean = False, Optional ServicioDomicilio As Boolean = False, Optional RFCReceptor As String = "", Optional Adjunto As String = "-1", Optional DevolucionImportePagado As Decimal = 0, Optional EsGarantia As Boolean = False, Optional CveLineaAdicional As Integer = -1, Optional DescripcionVenta As String = "", - Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, Optional CveTipoVenta As Integer = -1 + Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, Optional CveTipoVenta As Integer = -1, Optional RequiereOS As Boolean = False ) As Boolean Dim Retorno As Boolean = False @@ -524,6 +524,8 @@ Public Class ClsVentas .Add("@CveMedico", SqlDbType.Int).Value = CveMedico .Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento .Add("@CveTipoVenta", SqlDbType.Int).Value = CveTipoVenta + .Add("@RequiereOS", SqlDbType.Int).Value = RequiereOS + .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue End With @@ -552,7 +554,9 @@ Public Class ClsVentas Optional TipoDocto As String = "Cot", Optional Vigencia As Date = MinFecha, Optional CondicionesPago As Integer = -1, Optional AtencionA As String = "-1", Optional PedidoContrato As String = "-1", Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Double = -1, - Optional RetISR As Double = -1, Optional Kilometraje As Double = 0, Optional CveUsoCFDi As Integer = -1, Optional ServicioDomicilio As Boolean = False, Optional CveVendedor As Integer = -1) As Boolean + Optional RetISR As Double = -1, Optional Kilometraje As Double = 0, Optional CveUsoCFDi As Integer = -1, Optional ServicioDomicilio As Boolean = False, Optional CveVendedor As Integer = -1, + Optional RequiereOS As Boolean = False) As Boolean + Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasUpdate") @@ -586,6 +590,7 @@ Public Class ClsVentas .Add("@CveUsoCFDi", SqlDbType.SmallInt).Value = CveUsoCFDi .Add("@ServicioDomicilio", SqlDbType.Bit).Value = ServicioDomicilio .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@RequiereOS", SqlDbType.Int).Value = RequiereOS End With Try diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx index 3e8039f23..91874be2f 100644 --- a/Ashx/CargaEventos.ashx +++ b/Ashx/CargaEventos.ashx @@ -100,6 +100,10 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState DT_SubProyectos.Columns.Add("CveSubProyecto", GetType(Integer)) DT_SubProyectos.Columns.Add("backgroundColor") + Dim DT_EstatusOS = New DataTable + DT_EstatusOS.Columns.Add("", GetType(Integer)) + + 'son 26 Dim Colores() As String = {"#006699", "#0099cc", "#0066cc", "#0033cc", "#0000ff", "#3333ff", "#3333ff", "#6600ff", "#9933ff", "#cc00ff", "#cc00cc", "#cc0099", "#cc3399", "#cc6699", "#cc0066", "#009933", "#00cc00", "#00cc66", "#009999", "#669900", "#99cc00", "#cccc00", "#cc9900", "#ff9900", "#006666", "#669999"} @@ -140,6 +144,8 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState End If + + Dim EsCoordinador As Boolean = False Dim usuarioActual_ As Usuario = UsuarioActual(context) @@ -239,17 +245,24 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState If usuarioActual_.Empresa.Funcionalidad(578) = "1" Then - If dr("TipoEstatusOS").ToString.ToEntero.Contiene(1, 2, 3) Then - cevent.backgroundColor = "#006699" - ElseIf dr("TipoEstatusOS").ToString.ToEntero.Contiene(4) Then - cevent.backgroundColor = "#025716" - ElseIf dr("TipoEstatusOS").ToString.ToEntero.Contiene(5) Then - cevent.backgroundColor = "#730505" + Dim colorString As String = dr("BackgroundColorOS").ToString.Trim + + If colorString.Length > 0 AndAlso IsValidHtmlColor(colorString) Then + cevent.backgroundColor = $"#{colorString}" Else - cevent.backgroundColor = "#006699" + If dr("TipoEstatusOS").ToString.ToEntero.Contiene(1, 2, 3) Then + cevent.backgroundColor = "#006699" + ElseIf dr("TipoEstatusOS").ToString.ToEntero.Contiene(4) Then + cevent.backgroundColor = "#025716" + ElseIf dr("TipoEstatusOS").ToString.ToEntero.Contiene(5) Then + cevent.backgroundColor = "#730505" + Else + cevent.backgroundColor = "#006699" + End If End If + End If 'VERIFICAMOS SI TIENE O NO RECURRENCIA @@ -424,5 +437,16 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState End Get End Property + Private Function IsValidHtmlColor(colorString As String) As Boolean + Try + Dim color As System.Drawing.Color = System.Drawing.ColorTranslator.FromHtml(colorString) + ' Si no se produce una excepción, el color es válido + Return True + Catch ex As Exception + ' Se produce una excepción, el color no es válido + Return False + End Try + End Function + End Class diff --git a/CRM/Acercamiento.aspx b/CRM/Acercamiento.aspx index 47b1508a6..b726cbc25 100644 --- a/CRM/Acercamiento.aspx +++ b/CRM/Acercamiento.aspx @@ -454,7 +454,7 @@ <%----%> - + diff --git a/CRM/EmpresaCRM.aspx b/CRM/EmpresaCRM.aspx index 29216de65..a4e65951e 100644 --- a/CRM/EmpresaCRM.aspx +++ b/CRM/EmpresaCRM.aspx @@ -861,7 +861,7 @@ <%----%> - + diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx index 277f7e9b2..80305b09f 100644 --- a/Inventarios/EntregaAlmacen.aspx +++ b/Inventarios/EntregaAlmacen.aspx @@ -367,7 +367,7 @@
- + diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 03580d33e..9fc025498 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -106,7 +106,18 @@ Partial Class Inventarios_EntregaAlmacen Set(value As Integer) ViewState("CveVentaSurtir") = value End Set - End Property + End Property + + Private Property CveOSSurtir As Integer + Get + Return CType(ViewState("CveOSSurtir"), Integer) + End Get + Set(value As Integer) + ViewState("CveOSSurtir") = value + End Set + End Property + + Private Property TipoEstatus As Integer Get Return CType(ViewState("TipoEstatus"), Integer) @@ -547,6 +558,10 @@ Partial Class Inventarios_EntregaAlmacen Protected Sub BtnSurtir_Click(sender As Object, e As EventArgs) Dim Boton As LinkButton = CType(sender, LinkButton) + + Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) + Dim CveOS As Integer = GvRow.DataKey("CveOS").ToEntero + CveVentaAD = -1 If Boton.CommandArgument.ToEntero() > 0 Then @@ -560,7 +575,7 @@ Partial Class Inventarios_EntregaAlmacen Select Case CType(Boton.NamingContainer, GridViewRow).DataKey("TipoEntrega").ToEntero() Case 1 ' VENTA - CargaVentaPorSurtir(CType(sender, LinkButton).CommandArgument.ToEntero()) + CargaVentaPorSurtir(CType(sender, LinkButton).CommandArgument.ToEntero(), CveOS:=CveOS) Case 2 ' TRASPASO DivTransitorio1.Visible = True CargaTraspasoPorSurtir(CType(Boton.NamingContainer, GridViewRow).DataKey("CveTraspasoSolicitud").ToEntero()) @@ -573,15 +588,17 @@ Partial Class Inventarios_EntregaAlmacen CveVentaAD = -2 CargaVentaPorSurtir(DdlFolio.SelectedValue.ToEntero()) End Sub - Private Sub CargaVentaPorSurtir(CveVenta As Integer, Optional CveAlmacen As Integer = -1) + Private Sub CargaVentaPorSurtir(CveVenta As Integer, Optional CveAlmacen As Integer = -1, Optional CveOS As Integer = -1) LbSurtida.Visible = False CveContrato = -1 CveSubProyecto = -1 CveOP = -1 DtDatos = Nothing TipoEntrega = 1 - BtnGuardar.Visible = True - + BtnGuardar.Visible = True + + + Dim StrAlmacenes As String = "CveTipoAlmacen IN (1,2,26)" If UsuarioActual.CveSubProyecto = 8804 Then @@ -642,6 +659,7 @@ Partial Class Inventarios_EntregaAlmacen trObsAlmacen.Visible = drE("ObservacionesAlmacen").ToString() <> "" LbObservacionesAlmacen.Text = drE("ObservacionesAlmacen").ToString() CveVentaSurtir = CveVenta + CveOSSurtir = CveOS CveAlmacenTraspasoDestino = drE(If(EsDevolucionVenta = 1 And TipoDocto <> "Rem", "CveAlmacenTraspasoOrigen", "CveAlmacenTraspasoDestino")).ToString().ToEntero() CveAlmacenTraspasoOrigen = drE(If(EsDevolucionVenta = 1 And TipoDocto <> "Rem", "CveAlmacenTraspasoDestino", "CveAlmacenTraspasoOrigen")).ToString().ToEntero() CveContrato = drE("CveContrato").ToString().ToEntero() @@ -857,6 +875,7 @@ Partial Class Inventarios_EntregaAlmacen EsInterno = CBool(DtDatos.Rows(0)("EsInterno").ToString()) CveOP = DtDatos.Rows(0)("CveOP").ToString().ToEntero() CveVentaSurtir = -1 + CveOSSurtir = -1 If DtDatos.SUM("CantidadS") <= 0 Then GvDatos.CssClass = "table table-striped table-hover Widthall ScrollAD gvInventario gvEscondeColumna" Else @@ -945,7 +964,7 @@ Partial Class Inventarios_EntregaAlmacen 'SugerirFecha() If DdlAlmacen.SelectedValue.ToEntero > 0 And CveVentaSurtir > 0 Then - CargaVentaPorSurtir(CveVentaSurtir, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero) + CargaVentaPorSurtir(CveVentaSurtir, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero, CveOS:=CveOSSurtir) If CargaBitacora Then CargaBitacoraSerie() @@ -2002,7 +2021,7 @@ Partial Class Inventarios_EntregaAlmacen If Not CveMovimientoSalida > 0 Then - CveMovimientoSalida = ObjInventario.AddMovimiento(Dr2("CveAlmacen").ToString().ToEntero(), CveConceptoSalidaSinCosto, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, + CveMovimientoSalida = ObjInventario.AddMovimiento(Dr2("CveAlmacen").ToString().ToEntero(), CveConceptoSalidaSinCosto, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, Modulo:="RE/GSC1") FolioSalida = ObjInventario.Folio @@ -2052,7 +2071,7 @@ Partial Class Inventarios_EntregaAlmacen CveMovimientoSalida = DtTraspasos.FiltroPrimeroValor("CveMovimientoSalida", $"CveAlmacen = {Dr1("CveAlmacen")}").ToEntero() If Not CveMovimientoSalida > 0 Then - CveMovimientoSalida = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString().ToEntero(), CveConceptoSalidaSinCosto, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, + CveMovimientoSalida = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString().ToEntero(), CveConceptoSalidaSinCosto, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, Modulo:="RE/GSC3") FolioSalida = ObjInventario.Folio @@ -2112,7 +2131,7 @@ Partial Class Inventarios_EntregaAlmacen Dim CveAlmacenExA As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=10).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero() - CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(CveAlmacenExA, 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, + CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(CveAlmacenExA, 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir, Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(), CveMovimientoRelacionado:=CveMovimientoSalida, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RE/G4") FolioEntrada = ObjInventario.Folio @@ -2194,7 +2213,7 @@ Partial Class Inventarios_EntregaAlmacen CveMovimientoSalida = DtTraspasos.FiltroPrimeroValor("CveMovimientoSalida", $"CveAlmacen = {Dr2("CveAlmacen")}").ToEntero() If Not CveMovimientoSalida > 0 Then - CveMovimientoSalida = ObjInventario.AddMovimiento(Dr2("CveAlmacen").ToString().ToEntero(), 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, + CveMovimientoSalida = ObjInventario.AddMovimiento(Dr2("CveAlmacen").ToString().ToEntero(), 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(), Modulo:="RE/G1") FolioSalida = ObjInventario.Folio @@ -2248,7 +2267,7 @@ Partial Class Inventarios_EntregaAlmacen CveMovimientoSalida = DtTraspasos.FiltroPrimeroValor("CveMovimientoSalida", $"CveAlmacen = {Dr2("CveAlmacen")}").ToEntero() If Not CveMovimientoSalida > 0 Then - CveMovimientoSalida = ObjInventario.AddMovimiento(Dr2("CveAlmacen").ToString().ToEntero(), 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, + CveMovimientoSalida = ObjInventario.AddMovimiento(Dr2("CveAlmacen").ToString().ToEntero(), 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(), Modulo:="RE/G2") FolioSalida = ObjInventario.Folio @@ -2301,7 +2320,7 @@ Partial Class Inventarios_EntregaAlmacen If Not CveMovimientoSalida > 0 Then - CveMovimientoSalida = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString().ToEntero(), 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, + CveMovimientoSalida = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString().ToEntero(), 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(), Modulo:="RE/G3") FolioSalida = ObjInventario.Folio @@ -2359,7 +2378,7 @@ Partial Class Inventarios_EntregaAlmacen For Each Dr1 As DataRow In DtTraspasos.Select("CveTipoAlmacen = 9") CveMovimientoSalida = Dr1("CveMovimientoSalida").ToString().ToEntero() - CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero(), 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, + CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero(), 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir, Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(), CveMovimientoRelacionado:=CveMovimientoSalida, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RE/G4") FolioEntrada = ObjInventario.Folio @@ -2403,7 +2422,7 @@ Partial Class Inventarios_EntregaAlmacen End If If DtGarantias IsNot Nothing AndAlso DtGarantias.Rows.Count > 0 AndAlso CveAlmacenGarantia > 0 Then - CveMovimientoGarantia = ObjInventario.AddMovimiento(CveAlmacenGarantia, 14, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, Modulo:="EA/G5") + CveMovimientoGarantia = ObjInventario.AddMovimiento(CveAlmacenGarantia, 14, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, Modulo:="EA/G5") FolioGarantia = ObjInventario.Folio For Each RowGarantia As DataRow In DtGarantias.Rows @@ -2455,7 +2474,7 @@ Partial Class Inventarios_EntregaAlmacen 'Dim AlmacenSinCosto As String = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=26).FiltroPrimeroValor("Almacen", $"CveAlmacen={CveAlmacenSinCosto}").ToString() - Dim CveMovimientoDevolucionSinCosto As Integer = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero(), 41, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, + Dim CveMovimientoDevolucionSinCosto As Integer = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero(), 41, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir, Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(), CveMovimientoRelacionado:=CveMovimientoSalida, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RE/G4") Dim FolioDevSinCosto As Integer = ObjInventario.Folio @@ -2539,7 +2558,7 @@ Partial Class Inventarios_EntregaAlmacen ConceptoMovimiento = 41 End If - CveMovimiento = ObjInventario.AddMovimiento(Almacen1, ConceptoMovimiento, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, + CveMovimiento = ObjInventario.AddMovimiento(Almacen1, ConceptoMovimiento, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveAlmacenDestino:=tCveAlmacenTraspasoDestino, Modulo:="RE/G7") Folio = ObjInventario.Folio @@ -2640,7 +2659,7 @@ Partial Class Inventarios_EntregaAlmacen 'ENTRADA POR TRASPASO CUANDO ES REMISION If Not ErrorMovInv Then If tCveAlmacenTraspasoDestino > 0 AndAlso Not (TipoMovimiento = 2 And TipoDocto = "Dev" And EsDevolucionVenta = 1) Then ' TRASPASO CUANDO ES REMISION - CveMovimientoEntrada = ObjInventario.AddMovimiento(tCveAlmacenTraspasoDestino, 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, + CveMovimientoEntrada = ObjInventario.AddMovimiento(tCveAlmacenTraspasoDestino, 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveMovimientoRelacionado:=CveMovimiento, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(), Modulo:="RE/G8") FolioEntrada = ObjInventario.Folio Dim ImporteAlmacen As Decimal = 0 @@ -2695,7 +2714,7 @@ Partial Class Inventarios_EntregaAlmacen For Each Dr As DataRow In DtTempApartados.Rows If CveMovimientoSalidaApartado = -1 Or CveAlmacenApartado <> Dr("CveAlmacen").ToString().ToEntero() Then - CveMovimientoSalidaApartado = ObjInventario.AddMovimiento(CveAlmacenOrigen, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, + CveMovimientoSalidaApartado = ObjInventario.AddMovimiento(CveAlmacenOrigen, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente, CveAlmacenDestino:=Dr("CveAlmacen").ToString().ToEntero(), Modulo:="RE/G9") FolioSalida = ObjInventario.Folio @@ -2742,7 +2761,7 @@ Partial Class Inventarios_EntregaAlmacen CveMovimientoSalida = Dr1("CveMovimientoSalida").ToString().ToEntero() CveMovimientoEntradaApartado = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString().ToEntero(), 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, - -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(), + -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir, Observaciones:=TxtObservaciones.Text.Trim, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(), CveMovimientoRelacionado:=CveMovimientoSalida, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor, CveCliente:=CveCliente, Modulo:="RE/G10") FolioEntrada = ObjInventario.Folio @@ -2880,7 +2899,7 @@ Partial Class Inventarios_EntregaAlmacen End If If DtPSVirtual IsNot Nothing AndAlso DtPSVirtual.Rows.Count > 0 AndAlso CveAlmacenVirtual > 0 AndAlso CveConceptoMovimientoVirtual > 0 Then - CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, + CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, CveOS:=CveOSSurtir, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveMovimientoRelacionado:=CveMovimientoRelacionadoVirtual, Modulo:="RE/G6") FolioVirtual = ObjInventario.Folio @@ -2941,9 +2960,12 @@ Partial Class Inventarios_EntregaAlmacen 'AGREGA BITACORA A VENTA If Not ErrorMovInv Then Dim MensajeBitacora As String = If(TipoMovimiento = 1, "Surtida", "Devuelta") - If Not ObjEventos.AddEventoBitacora(String.Format("Venta {2} en Folio: {1}", CveMovimiento, Folio, MensajeBitacora), "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVentaSurtir) Then + Dim LigaVenta As String = String.Format("Venta {2} en Folio: {1}", CveMovimiento, Folio, MensajeBitacora) + + If Not ObjEventos.AddEventoBitacora(LigaVenta, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVentaSurtir, CveOS:=CveOSSurtir) Then ErrorMovInv = True End If + End If 'Paqueterias guias @@ -3609,7 +3631,9 @@ Partial Class Inventarios_EntregaAlmacen CargaFolios() 'VARIABLES GENERALES - CveVentaSurtir = -1 + CveVentaSurtir = -1 + CveOSSurtir = -1 + DtDatosDetalle = Nothing DtDatosDetalleLote = Nothing DtDatos = Nothing @@ -4122,27 +4146,28 @@ Partial Class Inventarios_EntregaAlmacen DtDatos = TempDT - End Sub - + End Sub + #End Region - - - 'Protected void LnkEditarDir_Click(Object sender, EventArgs e) - '{ - - - ' int CveCliente = GvRow.DataKey("CveCliente").ToEntero(); - ' int CveDireccion = GvRow.DataKey("CveDireccionEnvio").ToEntero(); - - ' HdnCveVenta.Value = GvRow.DataKey("CveVenta"); - ' CargaModalCombosDirecciones(CveCliente, CveDireccion); - - ' UpModalEditarentrega.Update(); - ' RegistraScript("$('#DivEditarEntrega').modal('show');"); - '} - - - + + + 'Protected void LnkEditarDir_Click(Object sender, EventArgs e) + '{ + + + ' int CveCliente = GvRow.DataKey("CveCliente").ToEntero(); + ' int CveDireccion = GvRow.DataKey("CveDireccionEnvio").ToEntero(); + + ' HdnCveVenta.Value = GvRow.DataKey("CveVenta"); + ' CargaModalCombosDirecciones(CveCliente, CveDireccion); + + + ' UpModalEditarentrega.Update(); + ' RegistraScript("$('#DivEditarEntrega').modal('show');"); + '} + + + Protected Sub LnkEditarDir_Click(sender As Object, e As EventArgs) HdnCveVenta.Value = CveVentaSurtir.ToString diff --git a/OS/Asignaciones.aspx.vb b/OS/Asignaciones.aspx.vb index 66c3de3e1..f7ad121bc 100644 --- a/OS/Asignaciones.aspx.vb +++ b/OS/Asignaciones.aspx.vb @@ -394,7 +394,7 @@ Partial Class OS_Asignaciones lrds.Add(rds) lrds.Add(rds2) - ObjOS.Dispose() + Dim ReporteByte As Byte() = StreamPDF(RutaReporte.FullName, lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio)) diff --git a/OS/CatEstatusOrdenServicio.aspx b/OS/CatEstatusOrdenServicio.aspx index c6f3a8e0f..44fed26a7 100644 --- a/OS/CatEstatusOrdenServicio.aspx +++ b/OS/CatEstatusOrdenServicio.aspx @@ -102,7 +102,7 @@ - + @@ -203,6 +203,15 @@
+ + +
+ + +
+ + +
@@ -224,11 +233,26 @@ + + + + + + + + + + + bootstrap-colorpicker.min.css + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 439509f2b..8b51e36ba 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -978,6 +978,15 @@ Partial Class Ventas Return ViewState("CveOS").ToString().ToEntero() End Get End Property + + Private Property CveOSVentaMedica As Integer + Get + Return ViewState("CveOSVentaMedica").ToString().ToEntero() + End Get + Set(value As Integer) + ViewState("CveOSVentaMedica") = value + End Set + End Property Private ReadOnly Property SaldoVenta As Decimal Get Return If(IsNothing(ViewState("SaldoVenta")), 0, ViewState("SaldoVenta").ToString().ToDecimal) @@ -2434,6 +2443,8 @@ Partial Class Ventas CveAlmacenDevolucion = 0 Me.CveEstadoCancelacion = 0 + TxtFechaOS.Text = NowADS().ToDateTime.ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T") + txtFechaICot.Text = NowADS().AddMonths(-3).ToShortDateString TxtFechaIRem.Text = NowADS().AddMonths(-3).ToShortDateString TxtFechaIPed.Text = NowADS().AddMonths(-3).ToShortDateString @@ -2582,9 +2593,15 @@ Partial Class Ventas CargaFormaEntrega() CargaCuentasTerminal() CargaDdlNCPS() - CargarCamiones() + + CargaMedicos() + CargaProcedimientos() + CargaDdlClientes() + + + 'SI USUARIO USA AMORTIZACIÓN CONTABLE, se carga las tablas para usarlas mas adelante If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then @@ -3011,7 +3028,6 @@ Partial Class Ventas CveEstatus = 2 End If End If - End If End If @@ -3424,6 +3440,12 @@ Partial Class Ventas End If End If + + If CveVenta <= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 AndAlso Request("VM") IsNot Nothing AndAlso IsNumeric(Request("VM")) AndAlso Request("VM").ToEntero() = 1 Then + EsVentaMedica = True + CargaTiposVenta() + End If + End If End Sub @@ -7682,6 +7704,60 @@ Partial Class Ventas 'DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) DdlClasificacion.DataBind() End Sub + + + + + Private Sub CargaTiposVenta() + + '  + 'Dim Dttemp = GlobalDTTipoVenta().FiltraParametros("Estatus = 'True' ").FiltraParametros("", {"", ""}) + + RBLTipoVenta.DataSource = GlobalDTTipoVenta().FiltraParametros("Estatus = 'True' ") + RBLTipoVenta.DataBind() + + TrVentasMedicas1.Visible = True + TrVentasMedicas2.Visible = True + + + For Each item As ListItem In RBLTipoVenta.Items + item.Text = $"  {item.Text}" + Next + + RegistraScript("$('#DvModalTipoVenta').modal({ backdrop: 'static', keyboard: false });") + End Sub + + Private Sub CargaProcedimientos() + DdlMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") + DdlMedico.DataBind() + + DdlMedicoModal.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") + DdlMedicoModal.DataBind() + End Sub + + Private Sub CargaMedicos() + DdlProcedimiento.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") + DdlProcedimiento.DataBind() + + DdlProcedimientoModal.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") + DdlProcedimientoModal.DataBind() + + End Sub + + Private Sub CargaDdlClientes() + If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then + DdlClientesWS.setEsWebService(True) + Else + DdlClientesWS.setEsWebService(False) + If Not UsuarioActual.Empresa.Funcionalidad(105) = "1" Then + DdlClientesWS.ddl.Items.Clear() + DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) + DdlClientesWS.DataBind() + DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1")) + End If + End If + End Sub + Private Sub CargaPS(CveClasificacion As Integer, Objeto As ADServerControl.Dropdownlost, Optional AplicaParaVenta As Boolean = True) Objeto.setEsWebService(UsuarioActual.Empresa.Funcionalidad(141).ToString() = "1") @@ -10099,6 +10175,8 @@ Partial Class Ventas DebeTimbrar = False End If + + If DebeTimbrar AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Egs", "Ant", "Dev") Then If UsuarioActual.Empresa.TipoFacturacion = "CFDi" AndAlso (UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1) Then @@ -13051,7 +13129,8 @@ Partial Class Ventas DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False), Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text, FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal, VentaDesglosaIEPS:=factura.VentaDesglosaIEPS, RFCReceptor:=RFCReceptor, Adjunto:=Adjunto, DevolucionImportePagado:=factura.DevolucionImportePagado, EsGarantia:=factura.EsGarantia, ServicioDomicilio:=TrServicioDomicilio.Visible, - CveLineaAdicional:=DdlLineaAdicional.SelectedValue.ToEntero(), DescripcionVenta:=DescripcionVenta) Then + CveLineaAdicional:=DdlLineaAdicional.SelectedValue.ToEntero(), DescripcionVenta:=DescripcionVenta, + CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, CveTipoVenta:=RBLTipoVenta.SelectedValue.ToEntero, RequiereOS:=ChkRequiereTecnico.Checked) Then ErrorList.Add("Ocurrió un error al Generar la Venta.
Revise su factura y cualquier detalle comuníquese a Soporte Técnico") Else If factura.TipoDocto.Contiene("Dev", "Egs") OrElse DtVentasNC IsNot Nothing OrElse CveEstatusRefacturacion > 0 OrElse CveAnticipoPadre > 0 Then @@ -13390,6 +13469,18 @@ Partial Class Ventas End If End If + If EsVentaMedica AndAlso ErrorList.Count = 0 AndAlso ChkRequiereTecnico.Checked Then + GeneraOS(ObjVentas.IniciaTransacSQL, ErrorList) + + If ErrorList.Count = 0 Then + If Not ObjOS.UpdateVentaOS(factura.CveVenta, CveOSVentaMedica) Then + ErrorList.Add("Ocurrió un error al guardar la venta en Ordenes de Servicio") + End If + End If + + End If + + 'Si viene de OS, Se guarda CveVenta en OS If CveOS > 0 Then If Not ObjOS.UpdateVentaOS(factura.CveVenta, CveOS) Then @@ -30658,6 +30749,8 @@ Partial Class Ventas CambiaTipoComprobante() Dim MensajeRemisiones As New StringBuilder + Dim MensajeRemisionesMedicas As New StringBuilder + Dim EsRemisionMedica As Boolean = False Dim ObsOC As New StringBuilder Dim ObsPedido As New StringBuilder Dim ObsInv As New StringBuilder @@ -30667,6 +30760,17 @@ Partial Class Ventas Dim MetodoPagoDif As Boolean = False For Each Dr As DataRow In dtSeleccionadas.Rows + + If Dr("Medico").ToString.Length > 0 Then + MensajeRemisionesMedicas.Append($"Dr. {Dr("MEdico").ToString}{vbCrLf}") + EsRemisionMedica = True + End If + If Dr("Medico").ToString.Length > 0 Then + MensajeRemisionesMedicas.Append($"Procedimiento {Dr("Procedimiento")}{vbCrLf}") + EsRemisionMedica = True + End If + MensajeRemisionesMedicas.Append($"Rem. {Dr("Folio")} {If(Dr("ObsFact").ToString().Length > 0, $"({Dr("ObsFact")})", "")}{vbCrLf}") + MensajeRemisiones.AppendFormat("{0} {1}, ", Dr("Folio"), If(Dr("ObsFact").ToString().Length > 0, $"({Dr("ObsFact")})", "")) ObsOC.AppendFormat("{0}, ", Dr("ObsOC")) ObsPedido.AppendFormat("{0}, ", Dr("ObsPedido")) @@ -30677,7 +30781,14 @@ Partial Class Ventas End If CveMetodoPago = Dr("CveMetodoPago33").ToString().ToEntero() Next - TxtObsFact.Text = If(MensajeRemisiones.ToString().Length > 0, MensajeRemisiones.ToString().Substring(0, MensajeRemisiones.ToString().Length - 2), "") + + If EsRemisionMedica Then + TxtObsFact.Text = If(MensajeRemisionesMedicas.ToString().Length > 0, MensajeRemisionesMedicas.ToString().Substring(0, MensajeRemisionesMedicas.ToString().Length - 2), "") + Else + TxtObsFact.Text = If(MensajeRemisiones.ToString().Length > 0, MensajeRemisiones.ToString().Substring(0, MensajeRemisiones.ToString().Length - 2), "") + End If + + TxtOrdenCompra.Text = If(ObsOC.ToString().Length > 0, ObsOC.ToString().Substring(0, ObsOC.ToString().Length - 2), "") TxtPedidoContrato.Text = If(ObsPedido.ToString().Length > 0, ObsPedido.ToString().Substring(0, ObsPedido.ToString().Length - 2), "") TxtObsAlmacen.Text = If(ObsInv.ToString().Length > 0, ObsInv.ToString().Substring(0, ObsInv.ToString().Length - 2), "") @@ -34444,6 +34555,22 @@ Partial Class Ventas End Set End Property + Property EsVentaMedica As Boolean + Get + If ViewState("EsVentaMedica") Is Nothing Then + ViewState("EsVentaMedica") = False + End If + + Return Boolean.Parse(ViewState("EsVentaMedica").ToString) + + End Get + Set(value As Boolean) + ViewState("EsVentaMedica") = value + End Set + End Property + + + 'Property SucursalOrigenCP As Modelos.SucursalModel ' Get ' If ViewState("SucursalOrigenCP") Is Nothing Then @@ -35407,5 +35534,229 @@ Partial Class Ventas DdlFormaCliente.DataBind() End Sub + + +#Region "VENTAS MEDICAS" + + Protected Sub ChkRequiereTecnico_CheckedChanged(sender As Object, e As EventArgs) + TdFechaOS2.Visible = ChkRequiereTecnicoModal.Checked + UpCliente.Update() + End Sub + + Protected Sub RBLTipoVenta_SelectedIndexChanged(sender As Object, e As EventArgs) + + If RBLTipoVenta.SelectedValue.ToEntero > 0 Then + + DvModalTipoVentaPasoTipo.Visible = False + DvModalTipoVentaPasoCliente.Visible = True + DvModalTipoVentaPasoRequiereOS.Visible = True + DvModalTipoVentaPasoMedicoProcedimiento.Visible = True + TxtFechaModal.Text = NowADS.ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T") + LnkDvModalTipoVentaAceptar.Visible = True + + 'si es A - Vista o ,Fuera De Linea requiere tecnico + If RBLTipoVenta.SelectedValue.ToEntero.Contiene(1, 3) Then + ChkRequiereTecnicoModal.Checked = True + ChkRequiereTecnicoModal.Enabled = False + DvModalRequiereOSFecha.Visible = True + End If + + + End If + UpDvModalTipoVenta.Update() + End Sub + + 'Protected Sub DdlClientesWS_selectedindexchange(sender As Object, e As EventArgs) + + ' If DdlClientesWS.SelectedValue.ToEntero > 0 Then + + ' DvModalTipoVentaPasoCliente.Visible = False + ' DvModalTipoVentaPasoRequiereOS.Visible = True + + + + ' 'si es A - Vista o ,Fuera De Linea requiere tecnico + ' If RBLTipoVenta.SelectedValue.ToEntero.Contiene(1, 3) Then + ' ChkRequiereTecnicoModal.Checked = True + ' ChkRequiereTecnicoModal.Enabled = False + ' DvModalRequiereOSFecha.Visible = True + ' End If + + ' End If + + ' UpDvModalTipoVenta.Update() + + 'End Sub + + 'Protected Sub DdlMedicoModal_SelectedIndexChanged(sender As Object, e As EventArgs) + ' ModalValidaMedicoProcedimiento() + 'End Sub + + 'Protected Sub DdlProcedimientoModal_SelectedIndexChanged(sender As Object, e As EventArgs) + ' ModalValidaMedicoProcedimiento() + 'End Sub + + Protected Sub ModalValidaMedicoProcedimiento() + + If DdlMedicoModal.SelectedValue.ToEntero > 0 AndAlso DdlProcedimientoModal.SelectedValue.ToEntero > 0 Then + LnkDvModalTipoVentaAceptar.Visible = True + Else + LnkDvModalTipoVentaAceptar.Visible = False + End If + + UpDvModalTipoVenta.Update() + + End Sub + + Protected Sub LnkDvModalTipoVentaCancelar_Click(sender As Object, e As EventArgs) + + LnkDvModalTipoVentaAceptar.Visible = False + + DvModalTipoVentaPasoTipo.Visible = True + DvModalTipoVentaPasoCliente.Visible = False + DvModalTipoVentaPasoRequiereOS.Visible = False + DvModalTipoVentaPasoMedicoProcedimiento.Visible = False + + ChkRequiereTecnicoModal.Enabled = True + + DdlClientesWS.txtText.Value = "" + DdlClientesWS.txtValue.Value = "" + DdlClientesWS.ddl.SelectedValueExist(-1) + + DvModalRequiereOSFecha.Visible = False + ChkRequiereTecnicoModal.Checked = False + + RBLTipoVenta.SelectedValue = Nothing + + DdlMedicoModal.SelectedValueExist(-1) + DdlProcedimientoModal.SelectedValueExist(-1) + + UpDvModalTipoVenta.Update() + + End Sub + + + Protected Sub LnkDvModalTipoVentaAceptar_Click(sender As Object, e As EventArgs) + + If DdlClientesWS.SelectedValue.ToEntero > 0 Then + ViewState("CveCliente") = DdlClientesWS.SelectedValue.ToEntero + Else + Alert("Debe de seleccionar un cliente.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + If ChkRequiereTecnicoModal.Checked Then + If Not IsDate(TxtFechaModal.Text.Replace(",", "")) Then + Alert("El campo fecha no es valido.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + End If + + ChkRequiereTecnico.Checked = ChkRequiereTecnicoModal.Checked + TxtFechaOS.Text = TxtFechaModal.Text + + If ChkRequiereTecnicoModal.Checked Then + TdFechaOS1.Visible = True + TdFechaOS2.Visible = True + Else + TdFechaOS1.Visible = False + TdFechaOS2.Visible = False + End If + + DdlMedico.SelectedValueExist(DdlMedicoModal.SelectedValue) + DdlProcedimiento.SelectedValueExist(DdlProcedimientoModal.SelectedValue) + + 'si es A - Vista o ,Fuera De Linea requiere tecnico + If RBLTipoVenta.SelectedValue.ToEntero.Contiene(1, 3) Then + TdFechaOS1.Visible = True + TdFechaOS2.Visible = True + ChkRequiereTecnico.Checked = True + ChkRequiereTecnico.Enabled = False + DdlTipoComprobante.SelectedValueExist("Rem") + Else + + DdlTipoComprobante.SelectedValueExist("Ing") + End If + DdlTipoComprobante.Enabled = False + + TdRequiereTecnico1.Visible = True + TdRequiereTecnico2.Visible = True + + + CargaCliente(CveCliente) + + DdlTipoComprobante_SelectedIndexChanged(sender, Nothing) + + RegistraScript("$('#DvModalTipoVenta').modal('hide');") + + UpCliente.Update() + + End Sub + + Protected Sub ChkRequiereTecnicoModal_CheckedChanged(sender As Object, e As EventArgs) + + DvModalRequiereOSFecha.Visible = ChkRequiereTecnicoModal.Checked + UpDvModalTipoVenta.Update() + + End Sub + + + Private Function GeneraOS(ByRef TransacSQL As SqlTransaction, ByRef errorList As List(Of String)) As Boolean + + + Dim Errores As Boolean = False + + Dim ObjOrdenServicio As New ClsOS(TransacSQL) + + Dim CveOSTipo As Integer = -1 + + If ObjOrdenServicio.GetTipoOrdenesServicios(UsuarioActual.CveEmpresa) Then + CveOSTipo = ObjOrdenServicio.DtResultados.FiltroPrimeroValor("CveOrdenServicioTipo", " Estatus = 'Activo' ").ToEntero + End If + + Dim EstatusOrdenServicio As Integer = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 1").ToEntero + + If ObjOrdenServicio.AddOrdenesServicios(CveCliente, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.Nombre, TxtFecha.Text.Replace(",", "").ToDateTime, $"Venta: {LblSerie.Text}-{TxtFolio.Text}", UsuarioActual.CveUsuario, EstatusOrdenServicio, + UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, CveOSTipo, CveClienteSucursal:=DdlSubProyectoDatos.SelectedValue.ToEntero, + Direccion:="", Telefono:="", CveModeloAuto:=-1, Año:="", CveMedico:=DdlMedico.SelectedValue.ToEntero, + CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, CveTipoVenta:=RBLTipoVenta.SelectedValue.ToEntero, FechaCita:=TxtFecha.Text.Replace(",", "").ToDateTime) Then + CveOSVentaMedica = ObjOrdenServicio.CveOS + Else + errorList.Add("Se presento un error al guardar la orden de servicio.") + Errores = True + End If + + Dim CvePSDetalle As Integer = UsuarioActual.Empresa.Funcionalidad(708).ToEntero + + If Not CvePSDetalle > 0 Then + errorList.Add("No se tiene asignado un producto para la orden de servicio (FNC 708).") + Errores = True + End If + + If Not Errores Then + + 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 + MensajeAlertOS.AppendFormat(String.Format("
La Orden de Servicio: {0} se generó correctamente.

", ObjOrdenServicio.Folio)) + MensajeAlert.AppendFormat("
", 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 + + Return If(Errores, False, True) + + End Function + +#End Region + End Class diff --git a/Ventas/VentasMedicas.aspx b/Ventas/VentasMedicas.aspx index 82c40dfee..7bf65e2a3 100644 --- a/Ventas/VentasMedicas.aspx +++ b/Ventas/VentasMedicas.aspx @@ -321,7 +321,9 @@ - + + + Medico: @@ -335,7 +337,7 @@ - + Requiere Técnico: @@ -349,6 +351,7 @@ +
@@ -1522,9 +1525,12 @@
+
+ Producto Servicio: - + <%----%> +
@@ -1591,29 +1597,98 @@ +