From 9e13c838aed3073719e57797e02a17fd419a8737 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 18 May 2024 07:09:36 -0700 Subject: [PATCH 1/8] -- SMS. limitante de 5 partidas --- Inventarios/EntregaAlmacen.aspx.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index be8f99da8..47dc52e56 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -2095,12 +2095,12 @@ Partial Class Inventarios_EntregaAlmacen 'SI EL CLIENTE ES OPERADORA DE HOSPITALES ANGELES SOLO SE PUEDEN RECIBIR MAXIMO 5 If CveCliente = 819998 Then If NumRegistros > 5 Then - Alert("Solo se pueden recibir maximo 5 partidas.", TipoMensaje.MsgAdvertencia) + Alert("Solo se pueden recibir máximo 5 partidas.", TipoMensaje.MsgAdvertencia) Exit Sub End If Else If NumRegistros > 10 Then - Alert("Solo se pueden recibir maximo 10 partidas.", TipoMensaje.MsgAdvertencia) + Alert("Solo se pueden recibir máximo 10 partidas.", TipoMensaje.MsgAdvertencia) Exit Sub End If End If @@ -4337,7 +4337,7 @@ Partial Class Inventarios_EntregaAlmacen End Sub Private Sub RecargaporAlmacenes() - If DdlAlmacen.SelectedValue <> "-1" AndAlso Not (UsuarioActual.Empresa.Funcionalidad(578) = "1") Then + If DdlAlmacen.SelectedValue <> "-1" Then CargaGvDatos() End If End Sub From 13f60556eb7158da4ed016da8f63de72b6fb6852 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 18 May 2024 07:09:51 -0700 Subject: [PATCH 2/8] -- parametro para editar la area. --- Acumuladores/CatFoliosGarantia.aspx.vb | 2 +- App_Code/ClsAcumuladores.vb | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Acumuladores/CatFoliosGarantia.aspx.vb b/Acumuladores/CatFoliosGarantia.aspx.vb index 5f6459bd9..ef11572db 100644 --- a/Acumuladores/CatFoliosGarantia.aspx.vb +++ b/Acumuladores/CatFoliosGarantia.aspx.vb @@ -131,7 +131,7 @@ Partial Class Acumuladores_CatFoliosGarantia End If Else If ObjAcum.FoliosGarantiaUpdate(CveFolioGarantia, TxtFolioGarantia.Text, DdlEstatusEditar.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlSubProyectos.SelectedValue.ToEntero, - DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero) Then + DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero, DdlArea.SelectedValue.ToEntero) Then TxtFolioGarantia.Text = "" DdlEstatusEditar.SelectedValueExist("1") diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb index 120c6bcdb..505fc7eb3 100644 --- a/App_Code/ClsAcumuladores.vb +++ b/App_Code/ClsAcumuladores.vb @@ -543,7 +543,7 @@ Public Class ClsAcumuladores Return Retorno End Function - Public Function FoliosGarantiaUpdate(CveFolioGarantia As Integer, FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveSubProyecto As Integer, TipoFolio As String, Limite As Integer) As Boolean + Public Function FoliosGarantiaUpdate(CveFolioGarantia As Integer, FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveSubProyecto As Integer, TipoFolio As String, Limite As Integer, Area As Integer) As Boolean Dim Retorno As Boolean = False 'Data = New DataTable @@ -557,8 +557,8 @@ Public Class ClsAcumuladores .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@TipoFolio", SqlDbType.VarChar).Value = TipoFolio - .Add("@Limite", SqlDbType.Int).Value = Limite - + .Add("@Limite", SqlDbType.Int).Value = Limite + .Add("@Area", SqlDbType.Int).Value = Area End With Try From dd6ab1b398348b4361206830ed3033f8e5b3692a Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 18 May 2024 13:42:45 -0700 Subject: [PATCH 3/8] -- SqlAdapter.SelectCommand.CommandTimeout = 0 --- App_Code/ClsContabilidad.vb | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index e9fd6f6d5..0ff191dbd 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -3980,21 +3980,19 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function GetPolizasDescuadre(Optional Ejercicio As Integer = -1, Optional Periodo As Integer = -1, Optional CveEmpresa As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Sis_PolizasConDescuadreGet") - With SqlAdapter.SelectCommand.Parameters .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio .Add("@Periodo", SqlDbType.Int).Value = Periodo .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With - Try + SqlAdapter.SelectCommand.CommandTimeout = 0 SqlAdapter.Fill(Data) Retorno = True Catch ex As Exception From 63d82b6e1a3a67bfb0e25d9de70643f82d18d03f Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 18 May 2024 13:43:02 -0700 Subject: [PATCH 4/8] - limitar por empresa, las compras detalle --- App_Code/ClsCompras.vb | 4 ++-- Compras/Compras.aspx.vb | 3 +-- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index 4f4417e6d..10be3c7d4 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -1921,12 +1921,12 @@ Public Class ClsCompras Return Retorno End Function - - Public Function GetCompraDetallealmacen(CveCompra As Integer, Optional CveVenta As Integer = 0) As Boolean + Public Function GetCompraDetalleAlmacen(CveEmpresa As Integer, CveCompra As Integer, Optional CveVenta As Integer = 0) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Comp_DetalleAlmacen") With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveCompra", SqlDbType.Int).Value = CveCompra .Add("@CveVenta", SqlDbType.Int).Value = CveVenta End With diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 7d5dc99d7..a2177e891 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -13105,14 +13105,13 @@ Partial Class Compras_Compras End Sub - Protected Sub DDLDevolucion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DDLDevolucion.SelectedIndexChanged If DdlTipoComprobante.SelectedValue.Contiene("DEV") Then DivAlmacenDev.Visible = True End If Dim objcompras As New ClsCompras() - If objcompras.GetCompraDetallealmacen(DDLDevolucion.SelectedValue.ToEntero) Then + If objcompras.GetCompraDetalleAlmacen(UsuarioActual.CveEmpresa, DDLDevolucion.SelectedValue.ToEntero) Then GVDevolucion.DataSource = objcompras.DtResultados GVDevolucion.DataBind() End If From 583c2d67190738d4064ae4a1b46610da190542b9 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 18 May 2024 13:43:26 -0700 Subject: [PATCH 5/8] -- mejora visual para la busqueda de folios de venta --- Site.master | 3 ++- Ventas/PopUpBuscarFolio.aspx | 37 +++++++++++++-------------------- Ventas/PopUpBuscarFolio.aspx.vb | 19 ++++++++--------- 3 files changed, 26 insertions(+), 33 deletions(-) diff --git a/Site.master b/Site.master index 58df238ef..d925ca666 100644 --- a/Site.master +++ b/Site.master @@ -168,7 +168,8 @@
  • - + Buscar Venta diff --git a/Ventas/PopUpBuscarFolio.aspx b/Ventas/PopUpBuscarFolio.aspx index 581a1df10..770e98c2c 100644 --- a/Ventas/PopUpBuscarFolio.aspx +++ b/Ventas/PopUpBuscarFolio.aspx @@ -12,7 +12,7 @@ } .tooltip-inner { - max-width: 750px !important; + max-width: 800px !important; font-size: 14px; } @@ -27,7 +27,7 @@ - + @@ -154,7 +154,7 @@ - +
    Filtros para búsqueda
    Pedido: @@ -182,16 +182,16 @@
    -
    +
    - + Tipo - + Folio @@ -232,23 +232,16 @@ - - - Pedido/OC + + + ... - - - - - XML - - - - - - PDF - - + + + + + +
    diff --git a/Ventas/PopUpBuscarFolio.aspx.vb b/Ventas/PopUpBuscarFolio.aspx.vb index 7f76f6e5e..d195813ed 100644 --- a/Ventas/PopUpBuscarFolio.aspx.vb +++ b/Ventas/PopUpBuscarFolio.aspx.vb @@ -16,7 +16,7 @@ Partial Class PopUpBuscarFolio If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx") CType(Me.Master, BaseMasterPage).EsPopup = True - CType(Me.Master, BaseMasterPage).PopupWidth = 800 + CType(Me.Master, BaseMasterPage).PopupWidth = 850 txtFechaI.Text = NowADS().AddMonths(-12).ToShortDateString 'RegistraScript("$get('tdContenido').style.height='500px'") CargaSubProyectos() @@ -169,7 +169,7 @@ Partial Class PopUpBuscarFolio Liga = String.Format("", e.Row.DBCampo("CveVenta")) End If - e.Row.FCLiteral("LtlTipo").Text = String.Format("
    {0}{1}
    ", Liga, e.Row.DBCampo("TipoDocto")) + e.Row.FCLiteral("LtlTipo").Text = String.Format("
    {0}{1}
    ", Liga, e.Row.DBCampo("TipoDocto")) e.Row.FCLiteral("LtlFolio").Text = String.Format("
    {0}{1}
    ", Liga, e.Row.DBCampo("Folio")) e.Row.FCLiteral("LtlFecha").Text = String.Format("
    {0}{1}
    ", Liga, e.Row.DBCampo("Fecha").ToDate.ToShortDateString) e.Row.FCLiteral("LtlNombre").Text = String.Format("
    {0}{1}
    ", Liga, e.Row.DBCampo("NombreComercial")) @@ -177,26 +177,25 @@ Partial Class PopUpBuscarFolio e.Row.FCLiteral("LtlTotal").Text = String.Format("
    {0}{1}
    ", Liga, e.Row.DBCampo("Total").FormatoNumero) e.Row.FCLiteral("LtlMon").Text = String.Format("
    {0}{1}
    ", Liga, e.Row.DBCampo("Abreviatura")) e.Row.FCLiteral("LtlSucursal").Text = String.Format("
    {0}{1}
    ", Liga, e.Row.DBCampo("SubProyecto")) - e.Row.FCLiteral("LtlEstatus").Text = String.Format("
    {0}{1}
    ", Liga, e.Row.DBCampo("EstatusFactura")) - e.Row.FCLiteral("LtlPedidoContrato").Text = String.Format("
    {0}{1}
    ", Liga, e.Row.DBCampo("PedidoContrato")) + e.Row.FCLiteral("LtlEstatus").Text = String.Format("
    {0}{1}
    ", Liga, e.Row.DBCampo("EstatusFactura")) If IO.File.Exists($"{Ruta}XML\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("Folio")}.xml") Then - e.Row.FCLiteral("LtlXML").Text = String.Format("
    XML
    ", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio")) + e.Row.FCLiteral("LtlXML").Text = String.Format("
    ", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio")) Else - e.Row.FCLiteral("LtlXML").Text = "
    " + e.Row.FCLiteral("LtlXML").Text = "
    " End If If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then If e.Row.DBCampo("TipoDocto") <> "Cot" AndAlso IO.File.Exists($"{Ruta}PDF\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("Folio")}.pdf") Then - e.Row.FCLiteral("LtlPDF").Text = String.Format("
    PDF
    ", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio")) + e.Row.FCLiteral("LtlPDF").Text = String.Format("
    ", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio")) Else - e.Row.FCLiteral("LtlPDF").Text = "
    " + e.Row.FCLiteral("LtlPDF").Text = "
    " End If Else If IO.File.Exists($"{Ruta}PDF\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("Folio")}.pdf") Then - e.Row.FCLiteral("LtlPDF").Text = String.Format("
    PDF
    ", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio")) + e.Row.FCLiteral("LtlPDF").Text = String.Format("
    ", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio")) Else - e.Row.FCLiteral("LtlPDF").Text = "
    " + e.Row.FCLiteral("LtlPDF").Text = "
    " End If End If From e210b818ebcfd36e7ab46cf33bb70c7ef3cb07b2 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 20 May 2024 08:30:52 -0700 Subject: [PATCH 6/8] =?UTF-8?q?--=20correcci=C3=B3n=20de=20add=20equiv?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/ProductosServicios.aspx | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index 3f136ba72..d551e714c 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -2106,20 +2106,20 @@ - +
    - +
    - Guardar + Guardar From 748ce8e0527ae69da972a6d3ac83f1d4dcff931b Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 20 May 2024 08:49:16 -0700 Subject: [PATCH 7/8] =?UTF-8?q?++=20filtro=20de=20m=C3=A9todo=20de=20pago?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OC/RepOC.aspx | 8 ++++++++ OC/RepOC.aspx.vb | 3 ++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/OC/RepOC.aspx b/OC/RepOC.aspx index 25098cc6c..08e150953 100644 --- a/OC/RepOC.aspx +++ b/OC/RepOC.aspx @@ -266,6 +266,14 @@
    + +
    + + + + + +
    diff --git a/OC/RepOC.aspx.vb b/OC/RepOC.aspx.vb index 359058272..63c5ead40 100644 --- a/OC/RepOC.aspx.vb +++ b/OC/RepOC.aspx.vb @@ -386,7 +386,8 @@ Partial Class RepOC DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, DdlProveedores.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero, If(CheckNoCompleta.Checked, -1, UsuarioActual.CveUsuario), UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), If(CheckNoCompleta.Checked, True, False), ddlcliente.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False), - CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero(), CveMoneda:=DdlMoneda.SelectedValue.ToEntero()) Then + CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero(), + CveMoneda:=DdlMoneda.SelectedValue.ToEntero(), MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero) Then GvConsultar.DataSource = OC.DtResultados DtOC = OC.DtResultados From 9643a30d16d08c3e3937524327bd1dc9ed3215ba Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 20 May 2024 08:49:41 -0700 Subject: [PATCH 8/8] -- comentarios --- Ventas/PVCobranza.aspx.vb | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index c42948839..5d2e39164 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -614,6 +614,12 @@ Partial Class Ventas_PVCobranza ObjPVenta.Dispose() End Sub Private Sub BtnCerrarTurno_Click(sender As Object, e As EventArgs) Handles BtnCerrarTurno.Click + + 'validar. + ' que no existan movimientos pendientes de pago. + ' que no halla facturas pendientes de cancelación. + ' no facturar remisiones de días anteriores + Dim ObjPVenta As New ClsPuntoVenta If TxtEfectivoEnCaja.Text.Trim <> "" Then If ObjPVenta.UpdateFinalizadoVtaCortes(CveCorte, TxtEfectivoEnCaja.Text.ToDouble, LblDiferenciaCaja.Text.ToDouble, NowADS(), UsuarioActual.CveEmpresa) Then