From da13fdd1817dc79ca3e0312be3127f90ba388c0e Mon Sep 17 00:00:00 2001 From: rakcsle Date: Tue, 9 Jan 2024 11:25:04 -0700 Subject: [PATCH 1/9] SMS Correcion Ventas FechaCirugia dd/MM/yyyy HH:mm --- App_Code/ClsPaginas.vb | 4 ++-- Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb | 11 +++++++---- Ventas/Ventas.aspx.vb | 2 +- 3 files changed, 10 insertions(+), 7 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 4574ac667..eacc08132 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -5924,7 +5924,7 @@ Public Class ClsPaginas params.Add(New ReportParameter("Documentacion", Vta.Cliente.Documentacion)) params.Add(New ReportParameter("Medico", Vta.Medico)) params.Add(New ReportParameter("Procedimiento", Vta.Procedimiento)) - params.Add(New ReportParameter("FechaCirugia", Vta.FechaEjecucion.ToString("dd/MM/yyyy hh:mm"))) + params.Add(New ReportParameter("FechaCirugia", Vta.FechaEjecucion.ToString("dd/MM/yyyy HH:mm"))) End If RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo) @@ -6032,7 +6032,7 @@ Public Class ClsPaginas params.Add(New ReportParameter("Documentacion", Vta.Cliente.Documentacion)) params.Add(New ReportParameter("Medico", Vta.Medico)) params.Add(New ReportParameter("Procedimiento", Vta.Procedimiento)) - params.Add(New ReportParameter("FechaCirugia", Vta.FechaEjecucion.ToString("dd/MM/yyyy hh:mm"))) + params.Add(New ReportParameter("FechaCirugia", Vta.FechaEjecucion.ToString("dd/MM/yyyy HH:mm"))) End If RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo) diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb index d840f90b0..3b5505acb 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb @@ -2130,6 +2130,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal If GvIngresosSubProyectoH.Columns(IndexGv).GetType.Name = "BoundField" Then + If dColumn.ColumnName = "SinSubProyecto" Then + 'TxtSub = "Sin SubProyecto" + 'Continue For + Exit For + End If + CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName GvIngresosSubProyectoH.Columns(IndexGv).Visible = True @@ -2143,10 +2149,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal Dim TxtSub As String = GlobalDTSubProyectos(-1, CveSubProyecto:=dColumn.ColumnName.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto") - If dColumn.ColumnName = "SinSubProyecto" Then - TxtSub = "Sin SubProyecto" - Continue For - End If + CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 985f84d0e..fa5c496ef 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -5322,7 +5322,7 @@ Partial Class Ventas End If If DbRowVenta("CveMedico").ToString.ToEntero > 0 AndAlso DbRowVenta("CveProcedimiento").ToString.ToEntero > 0 Then - TxtFechaEjecucion.Text = DbRowVenta("FechaEjecucion").ToString().ToDateTime.ToString("dd/MM/yyyy hh:mm") + TxtFechaEjecucion.Text = DbRowVenta("FechaEjecucion").ToString().ToDateTime.ToString("dd/MM/yyyy HH:mm") DVMEEFechaEje.Visible = False Else TxtFechaEjecucion.Text = DbRowVenta("FechaEjecucion").ToString().ToDateTime.ToString("dd/MM/yyyy") From 0aeb1d0035db4dae66304236e3f32c458243027e Mon Sep 17 00:00:00 2001 From: rakcsle Date: Tue, 9 Jan 2024 12:03:44 -0700 Subject: [PATCH 2/9] Ventas Editar DescripcionVenta --- App_Code/ClsVentas.vb | 5 ++++- Ventas/Ventas.aspx | 2 +- Ventas/Ventas.aspx.vb | 5 ++++- 3 files changed, 9 insertions(+), 3 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 08e1b50ed..eca64b3d1 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -604,7 +604,7 @@ Public Class ClsVentas End Function Public Function UpdateObservacionesVenta(CveVenta As Integer, CveEmpresa As Integer, CveVendedor As Integer, Observaciones As String, FormaPaqueteria As Integer, CorreoNotificaciones As String, ObservacionesAlm As String, - Pedido As String, OrdenCompra As String, FechaPago As String, CveUsoCFDI As Integer) As Boolean + Pedido As String, OrdenCompra As String, FechaPago As String, CveUsoCFDI As Integer, Optional DescripcionVenta As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasObservacionesUpdate") With SqlAdapter.SelectCommand.Parameters @@ -619,6 +619,9 @@ Public Class ClsVentas .Add("@Pedido", SqlDbType.NVarChar).Value = Pedido .Add("@OrdenCompra", SqlDbType.NVarChar).Value = OrdenCompra .Add("@FechaPago", SqlDbType.Date).Value = FechaPago + .Add("@DescripcionVenta", SqlDbType.VarChar).Value = DescripcionVenta + + End With Try SqlAdapter.Fill(Data) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 256ff61ab..be622b490 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -4205,7 +4205,7 @@ - +
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index fa5c496ef..6ad972f7e 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -33655,6 +33655,9 @@ Partial Class Ventas UpPS.Update() End If + TxtDescripcionVenta.Enabled = True + + UpCliente.Update() UpParametros.Update() UPObservaciones.Update() UpFacturar.Update() @@ -33673,7 +33676,7 @@ Partial Class Ventas ObjVentas.IniciaTransacSQL() If Not ObjVentas.UpdateObservacionesVenta(Me.CveVenta, UsuarioActual.CveEmpresa, DdlVendedor.SelectedValue.ToEntero(), TxtObsFact.Text, RblPaqueteria.SelectedValue.ToEntero(), TxtCorreoNotificaciones.Text, - TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text, DdlUsoCFDI.SelectedValue.ToEntero) Then + TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text, DdlUsoCFDI.SelectedValue.ToEntero, DescripcionVenta:=TxtDescripcionVenta.Text.Trim) Then TieneError = True End If From 1ec186d12ab2273da05043014efb9ac8a10a1777 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 9 Jan 2024 18:57:32 -0700 Subject: [PATCH 3/9] =?UTF-8?q?-=20activar=20emisi=C3=B3n=20de=20un=20subp?= =?UTF-8?q?royecto=20USA=20para=20VyA?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsPaginas.vb | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 4574ac667..b99bd4334 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -5868,6 +5868,12 @@ Public Class ClsPaginas NombreArchivo = "Factura" NombreArchivoDescarga = "Factura" TipoDocumento = "INGRESO" + + If Vta.CveSubProyecto.Contiene(12696, 12698) Then + NombreArchivo = "FacturaUSA" + NombreArchivoDescarga = "FacturaUSA" + End If + If UsuarioActual.CveEmpresa.Contiene(137) Then params.Add(New ReportParameter("CveVenta", Vta.CveVenta.ToString)) End If @@ -5915,6 +5921,10 @@ Public Class ClsPaginas NombreArchivo = "Remision" NombreArchivoDescarga = "Remisión" TipoDocumento = "REMISION" + If Vta.CveSubProyecto.Contiene(12696, 12698) Then + NombreArchivo = "FacturaUSA" + NombreArchivoDescarga = "FacturaUSA" + End If params.Add(New ReportParameter("TipoDocumento", NombreArchivoDescarga)) params.Add(New ReportParameter("Tipo", TipoDocumento)) params.Add(New ReportParameter("Ref", TipoDocumentoRef)) @@ -6346,7 +6356,7 @@ Public Class ClsPaginas Dim paramsArray As New JArray() For Each rds As ReportDataSource In DataSource Dim Nombre As String = rds.Name - If RutaReporte.Contains("Factura.mrt") OrElse RutaReporte.Contains("Remision.mrt") OrElse RutaReporte.Contains("Cotizacion.mrt") OrElse RutaReporte.Contains("NotaDevolucion.mrt") OrElse RutaReporte.Contains("Pedido.mrt") Then + If RutaReporte.Contains("Factura") OrElse RutaReporte.Contains("Remision") OrElse RutaReporte.Contains("Cotizacion") OrElse RutaReporte.Contains("NotaDevolucion") OrElse RutaReporte.Contains("Pedido") Then Select Case rds.Name Case "DsOC" Nombre = "DtDetalle" From 68daf702d443718c4e37aaf213c92b568a2ea96d Mon Sep 17 00:00:00 2001 From: rakcsle Date: Tue, 9 Jan 2024 19:16:16 -0700 Subject: [PATCH 4/9] SMS - 2024.01.08 Ventas actualizar CveMedico CveProcedimientio remision pedido, correiones EntregaAlamcen y OS --- App_Code/ClsVentas.vb | 8 ++- Inventarios/EntregaAlmacen.aspx.vb | 83 ++++++++++++++++++++++++------ OS/OrdenesServicios.aspx.vb | 2 +- Ventas/Ventas.aspx.vb | 13 ++++- 4 files changed, 86 insertions(+), 20 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index eca64b3d1..1a8ab4888 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -555,7 +555,7 @@ Public Class ClsVentas 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, - Optional RequiereOS As Boolean = False) As Boolean + Optional RequiereOS As Boolean = False, Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasUpdate") @@ -591,6 +591,8 @@ Public Class ClsVentas .Add("@ServicioDomicilio", SqlDbType.Bit).Value = ServicioDomicilio .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor .Add("@RequiereOS", SqlDbType.Int).Value = RequiereOS + .Add("@CveMedico", SqlDbType.Int).Value = CveMedico + .Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento End With Try @@ -604,7 +606,7 @@ Public Class ClsVentas End Function Public Function UpdateObservacionesVenta(CveVenta As Integer, CveEmpresa As Integer, CveVendedor As Integer, Observaciones As String, FormaPaqueteria As Integer, CorreoNotificaciones As String, ObservacionesAlm As String, - Pedido As String, OrdenCompra As String, FechaPago As String, CveUsoCFDI As Integer, Optional DescripcionVenta As String = "-1") As Boolean + Pedido As String, OrdenCompra As String, FechaPago As String, CveUsoCFDI As Integer, Optional DescripcionVenta As String = "-1", Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasObservacionesUpdate") With SqlAdapter.SelectCommand.Parameters @@ -620,6 +622,8 @@ Public Class ClsVentas .Add("@OrdenCompra", SqlDbType.NVarChar).Value = OrdenCompra .Add("@FechaPago", SqlDbType.Date).Value = FechaPago .Add("@DescripcionVenta", SqlDbType.VarChar).Value = DescripcionVenta + .Add("@CveMedico", SqlDbType.Int).Value = CveMedico + .Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento End With diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index dc0b50a52..d6d20549f 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -5,7 +5,7 @@ Imports System.Data Imports System.Data.SqlClient Imports System.IO Imports Extensiones - +Imports Microsoft.Owin.Security.Provider Imports Microsoft.Reporting.WebForms Partial Class Inventarios_EntregaAlmacen @@ -4269,27 +4269,36 @@ Partial Class Inventarios_EntregaAlmacen Respuesta = ObjOS.UpdateOrdenesServiciosEstatus(CveOSEstatusFinalizada, UsuarioActual.CveUsuario, CveOSCerrar) + Dim cancelarPeido As Boolean = CancelarPedido(TransaccionSql, CveMovimientoGenerado, Respuesta) + If Respuesta Then - - Dim ObjInventario As New ClsInventarios(ObjOS.IniciaTransacSQL) - + Dim ObjInventario As New ClsInventarios(TransaccionSql) If ObjInventario.GetMovimientosDetalle(CveMovimientoGenerado, UsuarioActual.CveEmpresa) Then + If Not cancelarPeido Then + For Each Dr As DataRow In ObjInventario.DtResultados.Rows - For Each Dr As DataRow In ObjInventario.DtResultados.Rows + Dim CveVentaDetalle As Integer = Dr("CveVentaDetalle").ToString().ToEntero() + Dim Cantidad As Decimal = Dr("Cantidad").ToString().ToDecimal - Dim CveVentaDetalle As Integer = Dr("CveVentaDetalle").ToString().ToEntero() - Dim Cantidad As Decimal = Dr("Cantidad").ToString().ToDecimal - - If CveVentaDetalle > 0 Then - If Not ObjInventario.UpdatePedidoDetalleCantidad(CveVentaDetalle, Cantidad) Then + If CveVentaDetalle > 0 Then + If Not ObjInventario.UpdatePedidoDetalleCantidad(CveVentaDetalle, Cantidad) Then + Respuesta = False + Exit For + End If + Else Respuesta = False - Exit For End If - Else - Respuesta = False - End If - Next + Next + End If + + End If + End If + + If Respuesta AndAlso cancelarPeido Then + Dim objVentas As New ClsVentas(TransaccionSql) + If Not objVentas.UpdateEstatusVenta(CveVentaSurtir, 4, UsuarioActual.CveEmpresa) Then + Respuesta = False End If End If @@ -4302,4 +4311,48 @@ Partial Class Inventarios_EntregaAlmacen End Function + Private Function CancelarPedido(ByRef TransaccionSql As SqlTransaction, CveMovimientoGenerado As Integer, ByRef RespuestaPadre As Boolean) As Boolean + + Dim Cancelar As Boolean = True + + Dim objVentas As New ClsVentas(TransaccionSql) + Dim ObjInventario As New ClsInventarios(TransaccionSql) + + Dim DTMovimiento As New DataTable + Dim DTPedidoDetalle As New DataTable + + If ObjInventario.GetMovimientosDetalle(CveMovimientoGenerado, UsuarioActual.CveEmpresa) Then + DTMovimiento = ObjInventario.DtResultados + Else + RespuestaPadre = False + End If + + If objVentas.GetVentaDetalle(CveVentaSurtir) Then + DTPedidoDetalle = objVentas.DtResultados + Else + RespuestaPadre = False + End If + + + If RespuestaPadre Then + + For Each rowPedido As DataRow In DTPedidoDetalle.Rows + Dim CantidadPedido As Decimal = rowPedido("Cantidad").ToString.ToDecimal + Dim CveVentaDetalle As Integer = rowPedido("CveVentaDetalle").ToString.ToEntero + + Dim CantidadDevuelto As Decimal = DTMovimiento.FiltroPrimeroValor("Cantidad", $"CveVentaDetalle = {CveVentaDetalle}").ToDecimal + + If CantidadPedido <> CantidadDevuelto Then + Cancelar = False + Exit For + End If + + Next + + End If + + Return Cancelar + + End Function + End Class diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 07c8b886f..36b7a9574 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -3072,7 +3072,7 @@ Partial Class OS_OrdenesServicios Dim PU As Decimal = GvRow.DataKey("PU").ToDecimal If CantidadRegistro > 0 Then - Dim CveVentaDetalle As Integer = DtVentaDetalle.Rows(IndexMov1)("CveVentaDetalle").ToString.ToEntero + Dim CveVentaDetalle As Integer = GvRow.DataKey("CveVentaDetalle").ToEntero ' DtVentaDetalle.Rows(IndexMov1)("CveVentaDetalle").ToString.ToEntero Dim CveMovimientoDetalle As Integer = GvRow.DataKey("CveMovimientoDetalle").ToEntero Dim Serie As String = GvRow.DataKey("Serie") diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 6ad972f7e..97adc1105 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2738,7 +2738,12 @@ Partial Class Ventas If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then BtnCrearApartirDe.Visible = False If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs") Then BtnEditar.Visible = True - If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem") Then BtnPermisoEditarRemision.Visible = True + If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ped") Then BtnPermisoEditarRemision.Visible = True + + If DdlTipoComprobante.SelectedValue = "Ped" Then + BtnPermisoEditarRemision.Text = "Editar Pedido" + BtnEditarRemision.Text = "Actualizar Pedido" + End If DivFechaAnticipoCliente.Visible = True TxtFechaAnticipoCliente.Text = NowADS().ToShortDateString @@ -21686,6 +21691,9 @@ Partial Class Ventas ViewState("CveClienteAnterior") = CveCliente + DdlMedicoObservaciones.Enabled = True + DdlProcedimientoObservaciones.Enabled = True + Dim CantidadFacturadaRemision As Decimal = 0 'EN BDH NO DEBE PERMITIR EDITAR EL PU @@ -21748,6 +21756,7 @@ Partial Class Ventas UpPS.Update() UpCliente.Update() UPObservaciones.Update() + End Sub Private Sub BtnEditarRemision_Click(sender As Object, e As EventArgs) Handles BtnEditarRemision.Click Dim OcurrioError As Boolean = False @@ -21842,7 +21851,7 @@ Partial Class Ventas PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(), CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), TipoDocto:="Rem", CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDouble, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(), - CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), ServicioDomicilio:=TrServicioDomicilio.Visible) Then + CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), ServicioDomicilio:=TrServicioDomicilio.Visible, CveMedico:=DdlMedicoObservaciones.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimientoObservaciones.SelectedValue.ToEntero) Then OcurrioError = True End If From 67b22d2f2b3d3a0d029554a8e8db3723a9e050fb Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 9 Jan 2024 20:33:52 -0700 Subject: [PATCH 5/9] option explicit --- Ashx/E141.ashx | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/Ashx/E141.ashx b/Ashx/E141.ashx index 72879ad20..cea15c20e 100644 --- a/Ashx/E141.ashx +++ b/Ashx/E141.ashx @@ -98,8 +98,8 @@ Public Class E141 : Implements IHttpHandler Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest Dim retorno As String = "" Try - Dim Params = If(context.Request("P") = Nothing, "", context.Request("P").ToString()) - Dim ParamsV = If(context.Request("PV") = Nothing, "", context.Request("PV").ToString()) + Dim Params As String = If(context.Request("P") = Nothing, "", context.Request("P").ToString()) + Dim ParamsV As String = If(context.Request("PV") = Nothing, "", context.Request("PV").ToString()) Dim ParametrosNuevos As Boolean = False If Not String.IsNullOrEmpty(ParamsV) Then @@ -135,16 +135,16 @@ Public Class E141 : Implements IHttpHandler Else - Dim Metodo = If(context.Request("Metodo") = Nothing, "", context.Request("Metodo").ToString()) + Dim Metodo As String = If(context.Request("Metodo") = Nothing, "", context.Request("Metodo").ToString()) 'OBTENER EXISTENCIAS If Metodo = "GetExistencia" Then context.Response.ContentType = "application/json" - Dim Codigo = If(context.Request("Sku") = Nothing, "", context.Request("Sku").ToString()) + Dim Codigo As String = If(context.Request("Sku") = Nothing, "", context.Request("Sku").ToString()) retorno = GetExistencia(context, Codigo) ElseIf Metodo = "ConsultarRFC" Then context.Response.ContentType = "application/json" - Dim Auth = ValidarSolicitud(context) + Dim Auth As AuthMessage = ValidarSolicitud(context) If Auth.IsSucces Then retorno = ConsultaRFC(context) @@ -155,7 +155,7 @@ Public Class E141 : Implements IHttpHandler ElseIf Metodo = "ValidarCarrito" Then context.Response.ContentType = "application/json" - Dim Auth = ValidarSolicitud(context) + Dim Auth As AuthMessage = ValidarSolicitud(context) If Auth.IsSucces Then retorno = ValidarCarrito(context) @@ -166,7 +166,7 @@ Public Class E141 : Implements IHttpHandler ElseIf Metodo = "RegistrarPedido" Then context.Response.ContentType = "application/json" - Dim Auth = ValidarSolicitud(context) + Dim Auth As AuthMessage = ValidarSolicitud(context) If Auth.IsSucces Then retorno = RegistrarPedido(context) From 3ae43d4c804d8907e24420f69bd0ee4f8e5aedfd Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 9 Jan 2024 20:34:05 -0700 Subject: [PATCH 6/9] - mejora en registro de venta ecommerce --- Ashx/E119.ashx | 23 ++++++++++++++--------- 1 file changed, 14 insertions(+), 9 deletions(-) diff --git a/Ashx/E119.ashx b/Ashx/E119.ashx index 0be1294cf..36d4258df 100644 --- a/Ashx/E119.ashx +++ b/Ashx/E119.ashx @@ -384,8 +384,13 @@ Public Class E119 : Implements IHttpHandler CveMoneda = 1 Descuento = 0 MsgLog.AppendLine("1.3 billing") - Dim RFC As String = If(JsonRequest("billing") Is Nothing, "", JsonRequest("billing")("first_name").ToString()) - Dim NombreCliente As String = If(JsonRequest("billing") Is Nothing, "", JsonRequest("billing")("first_name").ToString() & " " & JsonRequest("billing")("last_name").ToString()) + Dim RFC As String = "" + Dim NombreCliente As String = "" + If JsonRequest("billing") IsNot Nothing Then + RFC = JsonRequest("billing").First("first_name").ToString() + NombreCliente = JsonRequest("billing").First("first_name").ToString() & " " & JsonRequest("billing").First("last_name").ToString() + End If + 'BUSCAR SI ESTÁ REGISTRADO EL CLIENTE If ObjClientes.GetClientes(-1, "-1", "-1", "-1", RFC, "-1", "-1", -1, CveEmpresa, 1, TipoCliente:=-1, TopSelect:=1) Then If ObjClientes.DtResultados.Rows.Count > 0 Then @@ -401,16 +406,16 @@ Public Class E119 : Implements IHttpHandler MsgLog.AppendLine("1.5 crear cliente") If JsonRequest("billing") IsNot Nothing Then Dim CveEstado As Integer = -1 - Dim Direccion As String = If(JsonRequest("billing")("address_1") Is Nothing, "", JsonRequest("billing")("address_1").ToString()) + Dim Direccion As String = If(JsonRequest("billing").First("address_1") Is Nothing, "", JsonRequest("billing").First("address_1").ToString()) Dim NumExt As String = "" Dim NumInt As String = "" Dim Colonia As String = "" - Dim Ciudad As String = If(JsonRequest("billing")("city") Is Nothing, "", JsonRequest("billing")("city").ToString()) - Dim Localidad As String = If(JsonRequest("billing")("city") Is Nothing, "", JsonRequest("billing")("city").ToString()) - Dim CP As String = If(JsonRequest("billing")("postcode") Is Nothing, "", JsonRequest("billing")("postcode").ToString()) - Dim Telefono As String = If(JsonRequest("billing")("phone") Is Nothing, "", JsonRequest("billing")("phone").ToString()) - Dim Correo As String = If(JsonRequest("billing")("email") Is Nothing, "", JsonRequest("billing")("email").ToString()) - Dim Estado As String = If(JsonRequest("billing")("state") Is Nothing, "", JsonRequest("billing")("state").ToString()) + Dim Ciudad As String = If(JsonRequest("billing").First("city") Is Nothing, "", JsonRequest("billing").First("city").ToString()) + Dim Localidad As String = If(JsonRequest("billing").First("city") Is Nothing, "", JsonRequest("billing").First("city").ToString()) + Dim CP As String = If(JsonRequest("billing").First("postcode") Is Nothing, "", JsonRequest("billing").First("postcode").ToString()) + Dim Telefono As String = If(JsonRequest("billing").First("phone") Is Nothing, "", JsonRequest("billing").First("phone").ToString()) + Dim Correo As String = If(JsonRequest("billing").First("email") Is Nothing, "", JsonRequest("billing").First("email").ToString()) + Dim Estado As String = If(JsonRequest("billing").First("state") Is Nothing, "", JsonRequest("billing").First("state").ToString()) If Not String.IsNullOrEmpty(Estado) Then CveEstado = ClsPaginas.GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveEstado", $"NombreEstado = '{Estado.Trim}'").ToEntero() If CveEstado <= 0 Then 'SI NO ENCUENTRA EL ESTADO INGRESA EL DE SONORA From d5db746f6093a2ea8196f071720ab7efa6c1d7dd Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 9 Jan 2024 20:34:12 -0700 Subject: [PATCH 7/9] -visual --- Sistemas/UsuarioDetalle.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Sistemas/UsuarioDetalle.aspx b/Sistemas/UsuarioDetalle.aspx index 37ac85984..06a85cab7 100644 --- a/Sistemas/UsuarioDetalle.aspx +++ b/Sistemas/UsuarioDetalle.aspx @@ -109,7 +109,7 @@ Usuario: - +   From ebcd6c0e78cff71befb7259c926c5441ab0ca80e Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 9 Jan 2024 20:36:01 -0700 Subject: [PATCH 8/9] -- Empresa SMS, no visualizar columna subproyecto en dtalle --- Ventas/Ventas.aspx.vb | 34 +++++++++++++++++++--------------- 1 file changed, 19 insertions(+), 15 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 6ad972f7e..10a8649fd 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -3387,19 +3387,27 @@ Partial Class Ventas End If End If - - If CveVenta <= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then - EsVentaMedica = True - CargaTiposVenta() - - If CveCliente > 0 Then - SeleccionarClienteSucursal(CveCliente:=CveCliente) + If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then + If CveVenta <= 0 Then + EsVentaMedica = True + CargaTiposVenta() + If CveCliente > 0 Then + SeleccionarClienteSucursal(CveCliente:=CveCliente) + End If + End If + If CveVenta >= 0 Then + HLFAgregarOS.Visible = True + HLFAgregarOS.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveVenta={CveVenta}" 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}" + TxtPrecio.Enabled = False + 'ocultar la columna de subproyecto + GvPS.Columns(ColumnaSubProyecto).Visible = False + ThProyecto.Visible = False + ThProyecto2.Visible = False + + TxtCantidad.Text = "1" + TxtCantidad.Focus() End If If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then @@ -3418,10 +3426,6 @@ Partial Class Ventas RegistraScript("$('#TxtCantidad').focus();", "A1") End If - If EsVentaMedica Then - TxtPrecio.Enabled = False - End If - End If End Sub From 1c0ed51f534519151e3ef9bebadb6eacaafd2e8f Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Wed, 10 Jan 2024 00:07:37 -0700 Subject: [PATCH 9/9] ventas manifiesto --- App_Code/ClsVentas.vb | 19 +++++++++++++++++++ Ventas/Ventas.aspx.vb | 9 +++++++-- 2 files changed, 26 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 08e1b50ed..793ee709c 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -217,6 +217,25 @@ Public Class ClsVentas End Try Return retorno End Function + Public Function CGame_ManifiestoUpvta(cveVenta As Int32, cveUsuario As Int32, cveEmpresa As Int32, CveManifiesto As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_CGame_ManifiestoUpvta", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = cveVenta + .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa + .Add("@CveManifiesto", SqlDbType.Int).Value = CveManifiesto + .Add("@CveUsuario", SqlDbType.Int).Value = cveUsuario + End With + + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar venta manifiesto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function + Public Function GetVentaTerminal(CveVentaTerminal As Integer, Fecha As DateTime, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_VentasGetTerminal") diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 5a7f08614..06355686c 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2678,8 +2678,7 @@ Partial Class Ventas Using ObjVentas As New ClsCGame() If ObjVentas.ManifiestoGet(Request("CveManifiesto").ToEntero(), -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, "-1", "-1") Then - 'DdlSubProyectoDatos.SelectedValueExist(ObjVentas.DtResultados.Rows(0)("CveSubProyecto").ToString()) - DdlSubProyectoDatos.SelectedValueExist("12629") + DdlSubProyectoDatos.SelectedValueExist(ObjVentas.DtResultados.Rows(0)("CveSubProyecto").ToString()) End If If ObjVentas.ManifiestoForVtaGet(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Request("CveManifiesto").ToEntero()) Then @@ -10106,6 +10105,12 @@ Partial Class Ventas If ObjVentas.Embarque_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveEmbarqueManifiesto").ToEntero()) Then + End If + End If + If Request("CveManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveManifiesto")) AndAlso Request("CveManifiesto").ToEntero() > 0 Then + + If ObjVentas.CGame_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveManifiesto").ToEntero()) Then + End If End If Catch ex As Exception