From 5a740dacb95da8ebbb563354dc05cf362829f9d7 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 3 Jan 2024 07:31:29 -0700 Subject: [PATCH 01/32] =?UTF-8?q?-=20mejoras=20en=20visualizaci=C3=B3n=20y?= =?UTF-8?q?=20filtro=20de=20Lineas=20Adicionales?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Clientes.aspx | 34 ++++++++++++++++++++++------------ Ventas/Clientes.aspx.vb | 5 +++-- 2 files changed, 25 insertions(+), 14 deletions(-) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 81d3bc6b1..4d8c5d0db 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -4620,8 +4620,8 @@
- - + +
@@ -4647,7 +4647,7 @@ @@ -6928,16 +6928,26 @@ + +
+
+
- - - -
- - - - -
+ + + +
+
+
+
+ + + + + +
+
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index b0f9f5881..6b94e4c9a 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -10276,7 +10276,7 @@ Partial Class Clientes If Not ObjVentas.UpdateLineasAdicionales(CveLineaAdicional, TxtLineaAdicionalModal.Text, CveCliente, DdlProveedorLineaAdicionalModal.SelectedValue.ToEntero, DdlTipoLineaAdicionalModal.SelectedValue.ToEntero, TxtImporteLineaAdicionalModal.Text.ToDecimal, DdlMonedaLineAdicionalModal.SelectedValue.ToEntero, TxtFechaVencimientoLineaAdicionalModal.Text.ToDate, UsuarioActual.CveUsuario, DdlCategoriaLineaAdicionalModal.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, - DiasVencimiento:=TxtDiasVencimientoLineaAdicionalModal.Text.ToEntero) Then + DiasVencimiento:=TxtDiasVencimientoLineaAdicionalModal.Text.ToEntero, CveLineaAdicionalEstatus:=DdlLAEstatus.SelectedValue.ToEntero) Then ErrorAgregar = True Else Alert("Linea Adicional Actualizada Correctamente") @@ -10322,6 +10322,7 @@ Partial Class Clientes TxtImporteLineaAdicionalModal.Text = GvRow.DataKey("Importe").ToDecimal.ToString("###,###,###.00") DdlMonedaLineAdicionalModal.SelectedValueExist(GvRow.DataKey("CveMoneda").ToEntero) TxtDiasVencimientoLineaAdicionalModal.Text = GvRow.DataKey("DiasVencimiento").ToEntero.ToString + DdlLAEstatus.SelectedValueExist(GvRow.DataKey("CveEstatus")) DdlTipoLineaAdicionalModal_SelectedIndexChanged(Nothing, Nothing) RegistraScript("$('#DVLineasAdicionales').modal('show')") @@ -10353,7 +10354,7 @@ Partial Class Clientes Protected Sub DdlTipoLineaAdicionalModal_SelectedIndexChanged(sender As Object, e As EventArgs) DvLineaAdicionalDiasVenciemientoModal.Visible = If(DdlTipoLineaAdicionalModal.SelectedValue.ToEntero = 2, True, False) - DvFechaVencimiento.Visible = If(DdlTipoLineaAdicionalModal.SelectedValue.ToEntero = 2, False, True) + 'DvFechaVencimiento.Visible = If(DdlTipoLineaAdicionalModal.SelectedValue.ToEntero = 2, False, True) UpLineaAdicionalmodal.Update() End Sub From 51ec49d42ea83e141d53c9fa64d7ff8483523587 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 3 Jan 2024 09:42:23 -0700 Subject: [PATCH 02/32] - filtrado de lineas adicionales, solo con estatus = 1 --- Ventas/Ventas.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 33a153e0f..0bf4874e9 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -18155,7 +18155,7 @@ Partial Class Ventas If ObjVentas.GetLineasAdicionalesSaldo(-1, CveCliente, -1, -1, UsuarioActual.CveEmpresa, TipoCambioConsulta:=TCConsulta, ConSaldo:=-1, FechaVencimientoConsulta:=MinFecha) Then If ObjVentas.DtResultados.Rows.Count > 0 Then TrLineaAdicional.Visible = True - DdlLineaAdicional.DataSource = ObjVentas.DtResultados.FiltraParametros($"(Saldo > 0 AND FechaVencimiento >= '{NowADS().ToString("yyyy/MM/dd")}') OR CveLineaAdicional = {Me.CveLineaAdicionalVenta}") + DdlLineaAdicional.DataSource = ObjVentas.DtResultados.FiltraParametros($"(Saldo > 0 AND CveEstatus = 1 AND FechaVencimiento >= '{NowADS().ToString("yyyy/MM/dd")}') OR CveLineaAdicional = {Me.CveLineaAdicionalVenta}") End If End If Else From a5c4d81ef6010f1c6719f97841a7e70bab7b994b Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 3 Jan 2024 11:16:24 -0700 Subject: [PATCH 03/32] =?UTF-8?q?Clientes=20Sucursales=20nombre=20almac?= =?UTF-8?q?=C3=A9n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Clientes.aspx.vb | 47 +++++++++++++++++++++++++++++++++++++---- Ventas/Ventas.aspx.vb | 2 +- 2 files changed, 44 insertions(+), 5 deletions(-) diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 6b94e4c9a..48cf8ebd8 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -9812,7 +9812,7 @@ Partial Class Clientes If CveFuncionalidad404.Contiene(30) And DdlTipoCliente.SelectedValue.ToEntero = 1 Then DivCrearPrecioLista.Visible = True Else - DivCrearPrecioLista.Visible = True + DivCrearPrecioLista.Visible = False End If @@ -10525,10 +10525,49 @@ Partial Class Clientes Dim CveAlmacenAgregado As Integer = -1 Dim ObjInv As New ClsInventarios(transaccionSQL) + Dim nombreAlamacenLibre As Boolean = True + Dim ProcesoValidaAlamcenOF = True - If ObjInv.AddAlmacen(NombreAlmacen, 1, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, DdlSubProyecto.SelectedValue.ToEntero) Then - CveAlmacenAgregado = ObjInv.CveAlmacenAgregado - GlobalDTAlmacen(UsuarioActual.CveEmpresa) = Nothing + If ObjInv.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then + nombreAlamacenLibre = If(ObjInv.DtResultados.FiltraParametros($" Almacen = '{NombreAlmacen}'").Rows.Count > 0, False, True) + + If Not nombreAlamacenLibre Then + + NombreAlmacen = $"{TxtNombreCorto.Text} {NombreAlmacen}".Trim + If ObjInv.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then + + nombreAlamacenLibre = If(ObjInv.DtResultados.FiltraParametros($" Almacen = '{NombreAlmacen}'").Rows.Count > 0, False, True) + If Not nombreAlamacenLibre Then + + NombreAlmacen = $"{TxtNombre.Text} {NombreAlmacen}".Trim + If ObjInv.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then + + nombreAlamacenLibre = If(ObjInv.DtResultados.FiltraParametros($" Almacen = '{NombreAlmacen}'").Rows.Count > 0, False, True) + + Else + ProcesoValidaAlamcenOF = False + End If + End If + Else + ProcesoValidaAlamcenOF = False + End If + End If + + Else + ProcesoValidaAlamcenOF = False + End If + + If ProcesoValidaAlamcenOF Then + If nombreAlamacenLibre Then + If ObjInv.AddAlmacen(NombreAlmacen, 1, 1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, DdlSubProyecto.SelectedValue.ToEntero) Then + CveAlmacenAgregado = ObjInv.CveAlmacenAgregado + GlobalDTAlmacen(UsuarioActual.CveEmpresa) = Nothing + End If + Else + Alert($"El almacén {NombreAlmacen} ya existe.", TipoMensaje.MsgAdvertencia) + End If + Else + Alert($"No se pudo validar el almacén {NombreAlmacen}.", TipoMensaje.MsgAdvertencia) End If Return CveAlmacenAgregado diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 33a153e0f..b63bf2674 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -3392,7 +3392,7 @@ Partial Class Ventas If CveCliente > 0 Then DdlClientesWS.txtValue.Value = CveCliente.ToString - DdlClientesWS.txtText.Value = LblCliente.Text + DdlClientesWS.txtText.Value = NombreCliente DdlClientesWS.SelectedValue = CveCliente.ToString End If End If From ecaa05fb999a8add12d61574ce36f8a16dcf230c Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 3 Jan 2024 12:54:57 -0700 Subject: [PATCH 04/32] -- vista smallbtn --- OS/CatEstatusOrdenServicio.aspx | 5 ++--- OS/CatEstatusOrdenServicio.aspx.vb | 4 ++-- 2 files changed, 4 insertions(+), 5 deletions(-) diff --git a/OS/CatEstatusOrdenServicio.aspx b/OS/CatEstatusOrdenServicio.aspx index 44fed26a7..598410c75 100644 --- a/OS/CatEstatusOrdenServicio.aspx +++ b/OS/CatEstatusOrdenServicio.aspx @@ -93,8 +93,7 @@
-
- - - - +
+
+ + + + +
+ +
+ + + + +
- -
- - - - -
- -
- - - -
- - +
+
+ + + +
+
+ + + +
+
@@ -5256,7 +5262,7 @@
-
+
-
- - - +
-
+
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 48cf8ebd8..9a6b8334a 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1205,7 +1205,7 @@ Partial Class Clientes CargaVendedores() - CargaCorporativo() + 'CargaCorporativo() CargaMetodosPago33() CargaFormaPago33() @@ -3072,7 +3072,7 @@ Partial Class Clientes Else ProcesoOK = False End If - ObjCliente.Dispose() + Else If ObjCliente.AddSucursal(CveCliente, TxtNombreSucursal.Text.Trim, UsuarioActual.CveUsuario, TxtCiudadSucursal.Text.Trim, TxtColoniaSucursal.Text.Trim, TxtCPSucursal.Text.Trim, TxtDireccionSucursal.Text.Trim, TxtEstadoSucursal.Text.Trim, TxtLocalidadSucursal.Text.Trim, TxtPaisSucursal.Text.Trim, TxtNumExtSucursal.Text.Trim, TxtNumIntSucursal.Text.Trim, TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", ""), TxtCorreoSucursal.Text.Trim, TxtCorreoSucursalCotizacion.Text.Trim, TxtContactoSucursal.Text.Trim, From 164e04756f9e97b20068a8481a148fcc51af2c5b Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 3 Jan 2024 17:28:39 -0700 Subject: [PATCH 07/32] -- personalizar impuestos pendientes --- Compras/RepCxP.aspx | 24 +++++++++++++++++++++++- Compras/RepCxP.aspx.vb | 2 ++ Compras/RepCxPDetalle.aspx | 27 +++++++++++++++++++++++++++ Compras/RepCxPDetalle.aspx.vb | 5 +++-- 4 files changed, 55 insertions(+), 3 deletions(-) diff --git a/Compras/RepCxP.aspx b/Compras/RepCxP.aspx index c0932f597..21ceaabd5 100644 --- a/Compras/RepCxP.aspx +++ b/Compras/RepCxP.aspx @@ -504,6 +504,24 @@ + + + Ret IVA Pend + + + + + + + + + Ret ISR Pend + + + + + + @@ -532,7 +550,11 @@
- + +
+ +
+
diff --git a/Compras/RepCxP.aspx.vb b/Compras/RepCxP.aspx.vb index fa5039673..c5782cf3e 100644 --- a/Compras/RepCxP.aspx.vb +++ b/Compras/RepCxP.aspx.vb @@ -1894,6 +1894,8 @@ Partial Class Compras_RepCxP ActivaColumna(23, ChkSubTotalP.Checked) ActivaColumna(24, ChkIVAP.Checked) ActivaColumna(25, ChkIEPSP.Checked) + ActivaColumna(26, ChkRetIVAPendiente.Checked) + ActivaColumna(27, ChkRetISRPendiente.Checked) If SePersonalizo = 1 Then ImgExcelPersonalizado.Visible = True diff --git a/Compras/RepCxPDetalle.aspx b/Compras/RepCxPDetalle.aspx index ebf865e8f..eb8f03b10 100644 --- a/Compras/RepCxPDetalle.aspx +++ b/Compras/RepCxPDetalle.aspx @@ -461,6 +461,24 @@ + + + Ret IVA Pend + + + + + + + + + Ret ISR Pend + + + + + + @@ -527,6 +545,15 @@ + + + + + + + + + diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb index 50e024e6b..bb867e3dd 100644 --- a/Compras/RepCxPDetalle.aspx.vb +++ b/Compras/RepCxPDetalle.aspx.vb @@ -325,7 +325,7 @@ Partial Class RepCxPDetalle CveTipoProveedor = IfNull(Request("CveTipoProveedor"), -1).ToString.ToEntero DdlTipoProveedor.SelectedValueExist(CveTipoProveedor) - Dim Comprobaciones = IfNull(Request("Comprobaciones"), -1).ToString.ToEntero + Dim Comprobaciones As Integer = IfNull(Request("Comprobaciones"), -1).ToString.ToEntero DdlComprobacion.SelectedValueExist(Comprobaciones) @@ -565,6 +565,8 @@ Partial Class RepCxPDetalle ActivaColumna(17, ChkSubTotalPend.Checked) ActivaColumna(18, ChkIVAPend.Checked) ActivaColumna(19, ChkIEPSPend.Checked) + ActivaColumna(20, ChkRetIVAPendiente.Checked) + ActivaColumna(21, ChkRetISRPendiente.Checked) If SePersonalizo = 1 Then ImgExcelPersonalizado.Visible = True @@ -590,7 +592,6 @@ Partial Class RepCxPDetalle #End Region #Region "IMPRESIONES" - Protected Sub ImgExcel_Click(sender As Object, e As System.EventArgs) Handles ImgExcel.Click GenerarPDF("EXCEL") End Sub From f8310f2f103288c9ef2769ef4a277298b355e7ca Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 3 Jan 2024 17:29:04 -0700 Subject: [PATCH 08/32] - globaldt --- OS/CatEstatusOrdenServicio.aspx.vb | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/OS/CatEstatusOrdenServicio.aspx.vb b/OS/CatEstatusOrdenServicio.aspx.vb index ab48bc89e..10142da2e 100644 --- a/OS/CatEstatusOrdenServicio.aspx.vb +++ b/OS/CatEstatusOrdenServicio.aspx.vb @@ -80,9 +80,8 @@ Partial Class OS_CatEstatusOrdenServicio DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) Using ObjEstatusOrdenServicios As New ClsOS If ObjEstatusOrdenServicios.GetEstatusOrdenServicio(UsuarioActual.CveEmpresa) Then - DtEstatusOS = ObjEstatusOrdenServicios.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) + DtEstatusOS = ObjEstatusOrdenServicios.DtResultados GvDatos.DataSource = DtEstatusOS - GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = ObjEstatusOrdenServicios.DtResultados End If If ObjEstatusOrdenServicios.GetEstatusUsuarios(-1, -1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero) Then @@ -110,13 +109,15 @@ Partial Class OS_CatEstatusOrdenServicio If HdnModalidad.Value = "I" Then If ObjEstatusOrdenServicios.AddEstatusOrdenServicio(TxtEstatusOS.Text.Trim, DdlTipoEstatus.SelectedValue.ToEntero, If(ChkEstatus.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtBackgroundColor.Text.Replace("#", "")) Then - 'CargaDatos() + GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = Nothing Alert("Estatus agregado") End If Else If HdnID.Value.ToEntero <> -1 Then If Not ObjEstatusOrdenServicios.UpdateEstatusOrdenServicio(TxtEstatusOS.Text.Trim, DdlTipoEstatus.SelectedValue.ToEntero, If(ChkEstatus.Checked, 1, 0), HdnID.Value.ToEntero, TxtBackgroundColor.Text.Replace("#", "")) Then TieneError = True + Else + GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = Nothing End If End If @@ -171,7 +172,7 @@ Partial Class OS_CatEstatusOrdenServicio If ObjEstatusOrdenServicios.RemoveEstatusOrdenServicio(CveEstatusOrdenServicio) Then GvDatos.EditIndex = -1 DtEstatusOS = ObjEstatusOrdenServicios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = ObjEstatusOrdenServicios.DtResultados + GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = Nothing Alert("El Estatus de Orden de Servicio se eliminó correctamente.", TipoMensaje.MsgInformacion) End If From c44c8b201046324024ded69038f2bacd8f430af4 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 3 Jan 2024 17:29:01 -0700 Subject: [PATCH 09/32] SMS Agregar OS link desde ventas, de ventas a OS --- OS/OrdenesServicios.aspx.vb | 91 +++++++++++++++++++++++++++---------- Ventas/Ventas.aspx | 4 ++ Ventas/Ventas.aspx.vb | 5 ++ 3 files changed, 76 insertions(+), 24 deletions(-) diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index c6b9bed20..a6f85520c 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -718,39 +718,82 @@ Partial Class OS_OrdenesServicios Private Sub CargaVenta() Dim ObjVentas As New ClsVentas If ObjVentas.GetVenta(CveCotizacion, UsuarioActual.CveEmpresa) Then + If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then - 'Carga Cliente + ViewState("CveCliente") = ObjVentas.DtResultados.Rows(0)("CveCliente").ToString.ToEntero CargaCliente(CveCliente) - End If - If ObjVentas.GetVentaDetalle(CveCotizacion) Then - Dim Cons As Integer = 1 - For Each dr As DataRow In ObjVentas.DtResultados.Rows + + + Dim Drow As DataRow = ObjVentas.DtResultados.Rows(0) + If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then + TxtDescripcion.Text = Drow("SerieFolio").ToString + TxtSolicito.Text = UsuarioActual.Nombre + DdlMedico.SelectedValueExist(Drow("CveMedico").ToString) + DdlProcedimiento.SelectedValueExist(Drow("CveProcedimiento").ToString) + DdlTipoVenta.SelectedValueExist(Drow("CveTipoVenta").ToString) + DdlSubProyecto.SelectedValueExist(Drow("CveSubProyecto").ToString) + + 'If dr("CveTipoPS").ToString.ToEntero = 2 Then + + Dim CvePSDetalle As Integer = UsuarioActual.Empresa.Funcionalidad(708).ToEntero + Dim CodigoPS As String = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("PSCodigo", $"CvePS={CvePSDetalle}") + + TxtFechaCita.Text = NowADS.ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T") + Dim drt As DataRow = TmpDT.NewRow + drt("Consecutivo") = 1 + drt("CveOSDetalle") = -1 + drt("CvePS") = CvePSDetalle + drt("PS") = CodigoPS + drt("Cantidad") = 1 + drt("Observaciones") = $"Venta: {Drow("SerieFolio").ToString}" - If dr("CveTipoPS").ToString.ToEntero = 2 Then - drt("Consecutivo") = Cons - drt("CveOSDetalle") = -1 - drt("CvePS") = dr("CvePS") - drt("PS") = dr("PS") - drt("Cantidad") = dr("Cantidad") - drt("Observaciones") = dr("Obs") - drt("SeFacturara") = True - drt("SeSuperviso") = False - drt("Archivo") = -1 - drt("CveCuentaEquipo") = "-1" - drt("CuentaEquipoMostrar") = "Cuentas y/o Equipos" - drt("Especificaciones") = "-1" + drt("SeFacturara") = True + drt("SeSuperviso") = False + drt("Archivo") = -1 + drt("CveCuentaEquipo") = "-1" + drt("CuentaEquipoMostrar") = "" + drt("Especificaciones") = "-1" - TmpDT.Rows.Add(drt) - Cons = Cons + 1 - Else + TmpDT.Rows.Add(drt) + GvPS.DataSource = TmpDT + GvPS.DataBind() + + Else + If ObjVentas.GetVentaDetalle(CveCotizacion) Then + + Dim Cons As Integer = 1 + For Each dr As DataRow In ObjVentas.DtResultados.Rows + Dim drt As DataRow = TmpDT.NewRow + + If dr("CveTipoPS").ToString.ToEntero = 2 Then + drt("Consecutivo") = Cons + drt("CveOSDetalle") = -1 + drt("CvePS") = dr("CvePS") + drt("PS") = dr("PS") + drt("Cantidad") = dr("Cantidad") + drt("Observaciones") = dr("Obs") + drt("SeFacturara") = True + drt("SeSuperviso") = False + drt("Archivo") = -1 + drt("CveCuentaEquipo") = "-1" + drt("CuentaEquipoMostrar") = "Cuentas y/o Equipos" + drt("Especificaciones") = "-1" + + TmpDT.Rows.Add(drt) + Cons = Cons + 1 + + + End If + + Next + GvPS.DataSource = TmpDT + GvPS.DataBind() End If + End If - Next - GvPS.DataSource = TmpDT - GvPS.DataBind() End If 'CargaDetalle End If diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 9230532b8..23cd3a4d6 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -380,6 +380,10 @@ <%--
  • Cancelar solo CFDI
    • --%> + +
  • + Agregar Orden de Servicio +
    • diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 21e92a0b3..6ebec172b 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -3397,6 +3397,11 @@ Partial Class Ventas End If End If + If CveVenta >= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then + HLFAgregarOS.Visible = True + HLFAgregarOS.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveVenta={CveVenta}" + End If + End If From 58e9bc0181641acc4936728922c1cf769f50a5a8 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 3 Jan 2024 18:17:34 -0700 Subject: [PATCH 10/32] --correciones de indice en validacion de importes al aplicar NC --- Ventas/Ventas.aspx | 173 +++++++++++++++++++++++---------------------- 1 file changed, 88 insertions(+), 85 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 9230532b8..b3e946446 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -377,7 +377,7 @@
  • Solicitar autorización de crédito
    • -<%--
  • + <%--
  • Cancelar solo CFDI
    • --%> @@ -564,7 +564,7 @@ - + Médico: @@ -584,14 +584,14 @@ Requiere Técnico: - + - + Fecha de Cirugia: - - - + + +
    @@ -1019,10 +1019,10 @@ Total  Comandos
    -

    - -

    -
    +

    + +

    +
    @@ -1069,7 +1069,7 @@ - + @@ -1099,7 +1099,7 @@ - + @@ -1142,7 +1142,7 @@ - + <%-- @@ -2389,14 +2389,14 @@
    Emitir: - +
    - +
    @@ -2404,7 +2404,7 @@
    -
    +
    @@ -2412,7 +2412,7 @@
    -
    +
    @@ -2434,7 +2434,7 @@
    -
    +
    @@ -3486,7 +3486,7 @@ - +
    @@ -5377,8 +5377,8 @@ Cantidad - - + + @@ -7003,17 +7003,17 @@ - + - + - + @@ -8389,7 +8389,7 @@