From 146b88a53df2ea1a8c357001ac29959bbe96fbf2 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Mon, 19 Aug 2024 15:29:55 -0700 Subject: [PATCH 01/13] --- Nomina/Finiquito.aspx.cs | 1 + 1 file changed, 1 insertion(+) diff --git a/Nomina/Finiquito.aspx.cs b/Nomina/Finiquito.aspx.cs index dc0e08602..611ce7679 100644 --- a/Nomina/Finiquito.aspx.cs +++ b/Nomina/Finiquito.aspx.cs @@ -1700,6 +1700,7 @@ public partial class Nomina_Finiquito : ClsPaginas string urlfile = System.IO.Path.Combine(string.Format("{0}Formatos/SobreReciboFiniquito.rdlc", UsuarioActual.Empresa.Ruta)); if (!System.IO.File.Exists(urlfile)) { + parametros.Add(new Microsoft.Reporting.WebForms.ReportParameter("EmpresaDireccion", UsuarioActual.Empresa.Direccion)); urlfile = System.IO.Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Empresas/Grales/Formatos/SobreReciboFiniquito.rdlc"); } From bd65cbdd28def831a34bddb7098a2d0e72e91994 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 21 Aug 2024 12:33:01 -0700 Subject: [PATCH 02/13] --Parametro Add-Update clientes "Aseguradora" --FIX de botones --OdeC en kardex --- App_Code/ClsClientes.vb | 6 ++++-- Inventarios/Kardex.aspx | 10 +++++++-- Inventarios/Kardex.aspx.vb | 4 +++- Ventas/Ventas.aspx.vb | 42 +++++++++++++++++++++++++------------- 4 files changed, 43 insertions(+), 19 deletions(-) diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 896018f1c..f21c6e65b 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -540,7 +540,7 @@ Public Class ClsClientes Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False, Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenConsignacion As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional UsaProductoAlterno As Boolean = False, - Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional CreditoRegistroFirmas As String = "", Optional GastosEnvio As Decimal = 0, Optional EsFilial As Boolean = False) As Boolean + Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional CreditoRegistroFirmas As String = "", Optional GastosEnvio As Decimal = 0, Optional EsFilial As Boolean = False, Optional Aseguradora As Boolean = False) As Boolean Dim Retorno As Boolean = False @@ -677,6 +677,7 @@ Public Class ClsClientes .Add("@CreditoRegistroFirmas", SqlDbType.VarChar).Value = CreditoRegistroFirmas .Add("@GastosEnvio", SqlDbType.SmallMoney).Value = GastosEnvio .Add("@EsFilial", SqlDbType.VarChar).Value = EsFilial + .Add("@Aseguradora", SqlDbType.Bit).Value = Aseguradora End With Try SqlAdapter.Fill(Data) @@ -723,7 +724,7 @@ Public Class ClsClientes Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False, Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional CveAlmacenConsignacion As Integer = -1, Optional UsaProductoAlterno As Boolean = False, - Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional CreditoRegistroFirmas As String = "", Optional GastosEnvio As Decimal = 0, Optional EsFilial As Boolean = False) As Boolean + Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional CreditoRegistroFirmas As String = "", Optional GastosEnvio As Decimal = 0, Optional EsFilial As Boolean = False, Optional Aseguradora As Boolean = False) As Boolean Dim Retorno As Boolean = False @@ -870,6 +871,7 @@ Public Class ClsClientes .Add("@CreditoRegistroFirmas", SqlDbType.VarChar).Value = CreditoRegistroFirmas .Add("@GastosEnvio", SqlDbType.SmallMoney).Value = GastosEnvio .Add("@EsFilial", SqlDbType.VarChar).Value = EsFilial + .Add("@Aseguradora", SqlDbType.Bit).Value = Aseguradora End With Try SqlAdapter.Fill(Data) diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx index fc597ae2b..d8864b53d 100644 --- a/Inventarios/Kardex.aspx +++ b/Inventarios/Kardex.aspx @@ -498,6 +498,11 @@ Text='<%# Eval("ValorInventario", "{0:N2}")%>'> + + + + + @@ -646,11 +651,12 @@ - + + -<%-- --%> + <%-- --%> diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb index 201d4f049..c42f89860 100644 --- a/Inventarios/Kardex.aspx.vb +++ b/Inventarios/Kardex.aspx.vb @@ -82,6 +82,8 @@ Partial Class Inventarios_Kardex GvM.Columns(15).Visible = TienePermisoImportes ' importe GvM.Columns(17).Visible = TienePermisoImportes ' valor + GvM.Columns(18).Visible = UsuarioActual.CveEmpresa = 172 AndAlso UsuarioActual.CveRol = 1 + If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then DVFiltroCodigo.Visible = True End If @@ -282,7 +284,7 @@ Partial Class Inventarios_Kardex LnkSeries.Visible = AuxAplicaSerie LnkCaducidad.Visible = AuxAplicaCad - If UsuarioActual.CveEmpresa = 172 Then + If UsuarioActual.CveEmpresa = 172 AndAlso UsuarioActual.CveRol = 1 Then LnkExistenciasPorCapas.Visible = True End If 'CARGA INDICADORES diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 55ea1a365..326188def 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -5030,9 +5030,14 @@ Partial Class Ventas BtnArchivoAdjunto.Visible = True BtnEliminarAdjunto.Visible = True BtnAdjuntar.Visible = False - BtnReemplazarAdjunto.Visible = True + + If Request("CveVenta") IsNot Nothing Then + BtnReemplazarAdjunto.Visible = True + End If Else - BtnReemplazarAdjunto.Visible = True + If Request("CveVenta") IsNot Nothing Then + BtnReemplazarAdjunto.Visible = True + End If End If ViewState("CveSubProyectoVenta") = DbRowVenta("CveSubProyecto").ToString().ToEntero() @@ -6070,19 +6075,23 @@ Partial Class Ventas ThCantidadFacturada2.Visible = False End If - 'ACTIVA EDITAR - 'SOLO LA PUEDE EDITAR USUATIOACTUAL-VENDEDOR | NO DEBE ESTAR FACTURADA - If (UsuarioActual.CveUsuario = DbRowVenta("CveUsuario").ToString().ToEntero() Or UsuarioActual.CveVendedor = DdlVendedor.SelectedValue.ToEntero()) And TmpDT.SUM("CantidadFacturadaCot") = 0 Then 'And TmpDT.SUM("CantidadFacturadaCot") < TmpDT.SUM("Cantidad") - BtnPermisoEditarCotizacion.Visible = True + 'SI ES FACTURACION DIRECTA DESDE URL NO CARGAR LOS BOTONES + If Request("CveCotizacion") Is Nothing Then + 'ACTIVA EDITAR + 'SOLO LA PUEDE EDITAR USUATIOACTUAL-VENDEDOR | NO DEBE ESTAR FACTURADA + If (UsuarioActual.CveUsuario = DbRowVenta("CveUsuario").ToString().ToEntero() Or UsuarioActual.CveVendedor = DdlVendedor.SelectedValue.ToEntero()) And TmpDT.SUM("CantidadFacturadaCot") = 0 Then 'And TmpDT.SUM("CantidadFacturadaCot") < TmpDT.SUM("Cantidad") + BtnPermisoEditarCotizacion.Visible = True + End If + + 'SOLO LA PUEDE EDITAR USUATIOACTUAL-VENDEDOR | NO DEBE ESTAR FACTURADA + If UsuarioActual.TienePermisoProceso(281) And TmpDT.SUM("CantidadFacturadaCot") = 0 Then 'And TmpDT.SUM("CantidadFacturadaCot") < TmpDT.SUM("Cantidad") + BtnPermisoEditarCotizacion.Visible = True + End If + + 'ACTIVA BOTONERA | DEBE TENER CONCEPTOS PENDIENTES DE FACTURAR + VerificarBtnFacturarCotizacion(DbRowVenta("CveVendedor").ToString().ToEntero()) End If - 'SOLO LA PUEDE EDITAR USUATIOACTUAL-VENDEDOR | NO DEBE ESTAR FACTURADA - If UsuarioActual.TienePermisoProceso(281) And TmpDT.SUM("CantidadFacturadaCot") = 0 Then 'And TmpDT.SUM("CantidadFacturadaCot") < TmpDT.SUM("Cantidad") - BtnPermisoEditarCotizacion.Visible = True - End If - - 'ACTIVA BOTONERA | DEBE TENER CONCEPTOS PENDIENTES DE FACTURAR - VerificarBtnFacturarCotizacion(DbRowVenta("CveVendedor").ToString().ToEntero()) End If If DbRowVenta("TipoDocto").ToString().Contiene("Ped") Then @@ -6115,6 +6124,11 @@ Partial Class Ventas If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ped") Then BtnPermisoEditarRemision.Visible = True If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs") Then BtnEditar.Visible = True + 'OCULTAR BOTON DE EDICION SI SE FACTURA COTIZACION DESDE URL + If UsuarioActual.Empresa.Funcionalidad(558) <> "1" AndAlso Request("CveCotizacion") IsNot Nothing Then + BtnEditar.Visible = False + End If + If UsuarioActual.Empresa.Funcionalidad(280) = "1" Then RblPaqueteria.SelectedValue = If(DbRowVenta("FormaPaqueteria").ToString = "", "1", DbRowVenta("FormaPaqueteria").ToString) RblPaqueteria.Enabled = False @@ -12103,7 +12117,7 @@ Partial Class Ventas '**** IMPUESTOS LOCALES factura.DtDetalle = tmpcon - Dim TotalSubTotal As Decimal = tmpcon.SUMD("TotalImporte") + Dim TotalSubTotal As Decimal = tmpcon.SUMD("TotalImporte").RoundSQL(2) Dim TotalDescuentos As Decimal = tmpcon.SUMD("Descuento") Dim TotalIVA As Decimal = tmpcon.SUMD("ImporteIVA") From 7af02644a5c8d0be4a96ea8567551130754294c6 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 22 Aug 2024 12:01:09 -0700 Subject: [PATCH 03/13] --FIX. Realizar devolucion almacen en cancelaciones por respuesta --- Ventas/RepCancelacionesPorRespuesta.aspx.cs | 44 +++++++++++++++++---- 1 file changed, 37 insertions(+), 7 deletions(-) diff --git a/Ventas/RepCancelacionesPorRespuesta.aspx.cs b/Ventas/RepCancelacionesPorRespuesta.aspx.cs index 5c4189503..96b5afc7d 100644 --- a/Ventas/RepCancelacionesPorRespuesta.aspx.cs +++ b/Ventas/RepCancelacionesPorRespuesta.aspx.cs @@ -569,22 +569,52 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas } else { - //SI REGISTRA SALIDA DE ALMACÉN EN AUTOMÁTICO Y ES DEVOLUCION QUE REALIZE EL MOVMIENTO DE SALIDA DE ALMACEN - if ((UsuarioActual.Empresa.Funcionalidad(567) == "1" || UsuarioActual.Empresa.Funcionalidad(531) == "1") && factura.TipoDocto == "Dev" && factura.SaldoAlmacen != 0) + //EN BDH, SI ES DEVOLUCION, QUE REALICE LA SALIDA DE ALMACEN + if (UsuarioActual.Empresa.Funcionalidad(531) == "1" && factura.TipoDocto == "Dev" && factura.SaldoAlmacen != 0) { factura.RealizarDevolucionAlmacen = 1; } + //SI REGISTRA SALIDA DE ALMACÉN EN AUTOMÁTICO, QUE REALIZE EL MOVIMIENTO DE ALMACEN EN AUTOMATICO + if (UsuarioActual.Empresa.Funcionalidad(567) == "1" && factura.TipoDocto.Contiene("Ing", "Dev") && factura.SaldoAlmacen != 0) + { + factura.RealizarDevolucionAlmacen = 1; + } + + //SI ES EMPRESA DE COBRO POR CAJA Y TIENE PERMISO 'PERMITE DEVOLVER PRODUCTO EN UNA CANCELACION', QUE REALIZE EL MOVIMIENTO DE ALMACEN EN AUTOMATICO + if (UsuarioActual.TienePermisoProceso(269) && UsuarioActual.Empresa.Funcionalidad(109) == "1" && factura.TipoDocto.Contiene("Ing", "Dev") && factura.SaldoAlmacen != 0) + { + factura.RealizarDevolucionAlmacen = 1; + } + + //EN TODAS LAS EMPRESAS. SI ES REMISION FACTURADA DEBE REALIZAR EL MOVIMIENTO DE ALMACEN EN AUTOMATICO + if (factura.TipoDocto == "Ing") + { + using (var ObjVentas = new ClsVentas()) + { + if (ObjVentas.GetRemisionesRelacionadas(CveVenta, factura.TipoDocto)) + { + if (ObjVentas.DtResultados.Copy().Rows.Count > 0) + { + factura.RealizarDevolucionAlmacen = 1; + } + } + else + { + retorno = new Modelos.Factura.MCancelacionVentaMensaje(); + retorno.Mensaje = "No se pudo verificar si tiene remisiones relacionadas"; + retorno.HuboError = true; + return retorno; + } + } + } + bool AplicaCancelacionConPagos = false; - if (UsuarioActual.Empresa.Funcionalidad(382) == "1" || UsuarioActual.Empresa.Funcionalidad(109) == "1" ) + if (UsuarioActual.Empresa.Funcionalidad(382) == "1" || UsuarioActual.Empresa.Funcionalidad(109) == "1") { AplicaCancelacionConPagos = true; } - if (UsuarioActual.TienePermisoProceso(269) && UsuarioActual.Empresa.Funcionalidad(109) == "1" && factura.TipoDocto == "Ing" && factura.SaldoAlmacen != 0) - { - factura.RealizarDevolucionAlmacen = 1; - } retorno = factura.EjecutarCancelacionPendiente(CveEstatus, CancelacionFecha, CancelacionAcuse, AplicaCancelacionConPagos: AplicaCancelacionConPagos); } From d9da4ea84c3cff7bd0f31a3f2a2f2b05e3e88329 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 23 Aug 2024 08:56:11 -0700 Subject: [PATCH 04/13] Puntos GDiaz. --Orden compra en ventas. campo texto no requiere archivo. --Campo aseguradora en clientes --- App_Code/ClsClientes.vb | 2 + Ventas/Clientes.aspx | 249 ++++++++++++++++++++-------------------- Ventas/Clientes.aspx.vb | 11 +- Ventas/Ventas.aspx.vb | 3 +- 4 files changed, 137 insertions(+), 128 deletions(-) diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index c97f3f3b9..d25d5a0ef 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -147,6 +147,7 @@ Public Class ClsClientes Public Property CargoUsados As Boolean Public Property BonificacionUsado As Boolean Public Property CveSATEstado As Integer + Public Property Aseguradora As Boolean Public ReadOnly Property DtResultados() As DataTable @@ -426,6 +427,7 @@ Public Class ClsClientes _CreditoRegistroFirmas = Data(0)("CreditoRegistroFirmas").ToString _GastosEnvio = Data(0)("GastosEnvio").ToString.ToDecimal _EsFilial = CBool(Data(0)("EsFilial")) + _Aseguradora = CBool(Data(0)("Aseguradora")) End If Retorno = True Catch ex As Exception diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 15d088193..dd2172bb4 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -693,6 +693,12 @@ +
+
+ + +
+
@@ -730,19 +736,19 @@
-
+
-
-
+
@@ -765,7 +771,7 @@
- +
@@ -785,11 +791,11 @@
-
- - -
+
+ +
+
@@ -803,33 +809,33 @@
-
-
-
- - - -
-
-
-
- - - -
-
-
+
+
- + + + +
+
+
+
+ + + +
+
+
+
+
-
-
- +
+
+
-
+
@@ -865,8 +871,8 @@ - @@ -1198,26 +1204,27 @@
-
- -
-
+
+ + +
+
-
-
-
- Aplica Producto Alterno: +
+
+
+ Aplica Producto Alterno: -
-
+
+
-
-
-
- Es Parte relacionada: +
+
+
+ Es Parte relacionada: -
-
+
+

@@ -1737,11 +1744,11 @@
Crédito -       +      
-
- +
+
@@ -1866,15 +1873,15 @@
-
-
- -
-
- -
-
-
+
+
+ +
+
+ +
+
+
@@ -1949,12 +1956,12 @@
-
- -
- -
-
+
+ +
+ +
+
@@ -2337,8 +2344,8 @@ - - + + @@ -4050,9 +4057,9 @@
- -   -
+ +   + @@ -4649,9 +4656,9 @@
-
+
+ -
" style="display: inline-block; margin-right: -20px; width: 150px;" /> @@ -4700,7 +4707,7 @@ - + @@ -5031,14 +5038,14 @@
- - - -
+ + + +
- - + +
@@ -5215,7 +5222,7 @@
-
+
@@ -5230,18 +5237,18 @@
-
+
-
+
-
+
@@ -5277,7 +5284,7 @@
-