From 20c1a4a374b60d1a59f2b5a4af6813c24d574c2b Mon Sep 17 00:00:00 2001 From: RPimienta Date: Fri, 30 Aug 2024 03:53:56 -0600 Subject: [PATCH] =?UTF-8?q?1.=20Kardex.=20Visualizaci=C3=B3n=20de=20cantid?= =?UTF-8?q?ades=20pendientes=20de=20recibir=20(backorder)=20y=20visualizar?= =?UTF-8?q?=20como=20se=20componen=20la=20OC.=202.=20=20permitir=20cancela?= =?UTF-8?q?ci=C3=B3n=20de=20partida=20del=20producto=20de=20la=20backorder?= =?UTF-8?q?.=203.=20=20Filtro=20aseguradora=20en=20reportes=20de=20cxc=20y?= =?UTF-8?q?=20listado=20de=20clientes.=204.=20Rep=20CxC,=20personalizar=20?= =?UTF-8?q?columna=20de=20l=C3=ADmite=20de=20cr=C3=A9dito?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsClientes.vb | 3 +- App_Code/ClsMovimientos.vb | 6 +- App_Code/ClsOC.vb | 38 + CxC/RepCxC.aspx | 1746 +++++++++++++++++++----------------- CxC/RepCxC.aspx.vb | 55 +- CxC/RepCxCDetalle.aspx | 60 +- CxC/RepCxCDetalle.aspx.vb | 3 +- Inventarios/Kardex.aspx | 48 + Inventarios/Kardex.aspx.vb | 42 + Ventas/CatClientes.aspx | 765 ++++++++-------- Ventas/CatClientes.aspx.vb | 2 +- 11 files changed, 1495 insertions(+), 1273 deletions(-) diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index d25d5a0ef..2bed6a55e 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -261,7 +261,7 @@ Public Class ClsClientes Public Function GetClientes(CveCliente As Integer, Nombre As String, Codigo As String, NombreCorto As String, RFC As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveEmpresa As Integer, Optional Estatus As Integer = 1, Optional Notificar As String = "-1", Optional CvePrecioLista As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional TipoCliente As Integer = -1, Optional CveVendedor As Integer = -1, Optional PermiteCreditoFiltro As Integer = -1, Optional TopSelect As Integer = 10000, Optional CveUsuarioConsulta As Integer = -1, - Optional Cuenta As String = "-1", Optional EnQuebranto As Integer = -1, Optional EnDemanda As Integer = -1) As Boolean + Optional Cuenta As String = "-1", Optional EnQuebranto As Integer = -1, Optional EnDemanda As Integer = -1, Optional Aseguradora As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_ClientesGet") @@ -287,6 +287,7 @@ Public Class ClsClientes .Add("@Cuenta", SqlDbType.VarChar).Value = Cuenta .Add("@EnQuebranto", SqlDbType.Int).Value = EnQuebranto .Add("@EnDemanda", SqlDbType.Int).Value = EnDemanda + .Add("@Aseguradora", SqlDbType.Int).Value = Aseguradora End With Try diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index 2f8a91298..049d8b15f 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -240,7 +240,7 @@ Public Class ClsMovimientos TipoCambio As Integer, Optional TCEspecifico As Double = -1, Optional TipoDocto As String = "-1", Optional FechaVI As String = "-1", Optional FechaVF As String = "-1", Optional FechaCorte As Date = Nothing, Optional EstatusCliente As Integer = -1, Optional CveUsuarioConsulta As Integer = -1, Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional TipoCliente As Integer = -1, Optional CveMoneda As Integer = -1, - Optional TieneLineaAdicional As Integer = -1, Optional CveContrato As Integer = -1) As Boolean + Optional TieneLineaAdicional As Integer = -1, Optional CveContrato As Integer = -1, Optional Aseguradora As Integer = -1) As Boolean Dim Retorno As Boolean = False 'Data = New DataTable @@ -276,6 +276,7 @@ Public Class ClsMovimientos .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda .Add("@TieneLineaAdicional", SqlDbType.Int).Value = TieneLineaAdicional .Add("@CveContrato", SqlDbType.Int).Value = CveContrato + .Add("@Aseguradora", SqlDbType.Int).Value = Aseguradora End With Try @@ -328,7 +329,7 @@ Public Class ClsMovimientos Optional FechaVI As String = "-1", Optional FechaVF As String = "-1", Optional FechaCorte As Date = Nothing, Optional CveUsuarioConsulta As Integer = -1, Optional CveCobranzaEstatus As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional LimiteCredito As Decimal = -1, Optional TipoCliente As Integer = -1, Optional CveMoneda As Integer = -1, Optional EstatusCliente As Integer = -1, - Optional TieneLineaAdicional As Integer = -1, Optional CveContrato As Integer = -1) As Boolean + Optional TieneLineaAdicional As Integer = -1, Optional CveContrato As Integer = -1, Optional Aseguradora As Integer = -1) As Boolean Dim Retorno As Boolean = False DS = New DataSet @@ -369,6 +370,7 @@ Public Class ClsMovimientos .Add("@EstatusCliente", SqlDbType.Int).Value = EstatusCliente .Add("@TieneLineaAdicional", SqlDbType.Int).Value = TieneLineaAdicional .Add("@CveContrato", SqlDbType.Int).Value = CveContrato + .Add("@Aseguradora", SqlDbType.Int).Value = Aseguradora End With Try diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index 5f7256e58..a9c72b31a 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -2588,6 +2588,44 @@ Public Class ClsOC End Function + Public Function PendientesCompra(CvePS As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OC_PendientesCompra") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener lo pendiente de comprar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function CancelarPartidaPendiente(CveOrdenCompraDetalle As Integer, NuevaCantidad As Decimal, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OC_CancelarPartidaPendiente") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOrdenCompraDetalle", SqlDbType.Int).Value = CveOrdenCompraDetalle + .Add("@NuevaCantidad", SqlDbType.Decimal).Value = NuevaCantidad + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al cancelar la partida pendiente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function #Region " IDisposable Support " ' IDisposable diff --git a/CxC/RepCxC.aspx b/CxC/RepCxC.aspx index 0f85fe6d6..2f05da6a8 100644 --- a/CxC/RepCxC.aspx +++ b/CxC/RepCxC.aspx @@ -1,881 +1,937 @@ -<%@ Page Title="Reporte de CxC" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepCxC.aspx.vb" Inherits="RepCxC" %> - -<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> - - - - - - - - -
  • - PDF -
    • -
  • - Excel -
    • +<%@ Page Title="Reporte de CxC" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepCxC.aspx.vb" Inherits="RepCxC" %> + +<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> + + + + + + + + +
  • + PDF +
    • +
  • + Excel +
  • Excel Personalizado -
    • -
  • - Personalizar Columnas -
    • -
  • - Ver Dlls en pesos -
    • -
  • - Personalizar Rango de Columnas -
    • -
  • - Estado de cuenta por SMS -
    • -
  • - Estado de cuenta por Correo -
    • -
  • - Generar Buro de Crédito -
    • -     - - - - - - - -     - - -
  • - Ver Gráfica -
    • -     -     -     - - Reporte de CxC - - - - - - -
    -
    -
    - - -
    -
    -
    -
    + +
  • + Personalizar Columnas +
    • +
  • + Ver Dlls en pesos +
    • +
  • + Personalizar Rango de Columnas +
    • +
  • + Estado de cuenta por SMS +
    • +
  • + Estado de cuenta por Correo +
    • +
  • + Generar Buro de Crédito +
    • + + + + + + + + + + + +
  • + Ver Gráfica +
    • +     +     + + + Reporte de CxC + + + + + + +
    +
    +
    + + +
    +
    +
    +
    Cliente: -
    -
    - + +
    +
    + <%-- - --%> -
    - - SubProyecto: -
    - - - -
    -
    + --%> +
    + + SubProyecto: +
    + + + +
    +
    Grupo: -
    -
    - - - - - - - - - - - - - - -
    -
    -
    -
    - +
    + +
    + + +
    +
    -
    +
    + Fecha Venc. Inicial: + +
    +
    +
    + + + + + + + + + + +
    +
    +
    + Fecha Venc. Final: + +
    +
    +
    + + + + + + + + + + +
    +
    + +
    + Corte A: + +
    +
    +
    + + + + + + + + + + +
    +
    + +
    + Estatus Cliente: + +
    +
    + + + + + +
    + +
    +
    + +
    + Clasificación Cliente: + +
    +
    + +
    + +
    +
    + Empresas: + +
    +
    + +
    +
    + + +
    + Tipo Cliente: + +
    + +
    + + + + + +
    +
    + Moneda: + +
    + +
    + + + + + +
    + + +
    +
    +
    Linea Adicional: -
    -
    - - - - - +
    -
    +
    + + + + + +
    +
    Contrato: -
    -
    - - - +
    -
    - -
    -
    - - -
    - - - - - - +
    + + + +
    +
    + Aseguradora: +
    +
    + + + + + +
    +
    + +
    +
    + + +
    + + + + + + Grupo - - - - - - - - <%--Nuevo R: 2/09/2017--%> - - + + + + + + + + + <%--Nuevo R: 2/09/2017--%> + + Código Cliente - - - - - - - - <%--Nuevo R: 25/09/2017--%> - - + + + + + + + + + <%--Nuevo R: 25/09/2017--%> + + Nombre Corto - - - - - - - - - + + + + + + + + + + Saldo - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Ventas - - - - - - - - + + + + + + + + + Saldo - - - - - - - - + + + + + + + + + Resta - - - - - - - - + + + + + + + + + % Recup. - - - - - - - - + + + + + + + + + % X Recup. - - - - - - - - - SubTotal Pend - - - - - - - - + + + + + + + + + + SubTotal Pend + + + + + + + + + IVA Pend - - - - - - - - - IEPS Pend - - - - - - - - - - - - - - - - - - - - -
    -
    +
    Linea Adicional: -
    -
    - - - - - +
    -
    +
    + + + + + +
    +
    Contrato: -
    -
    - - - + +
    +
    + + + +
    +
    + Aseguradora: +
    +
    + + + + +
    @@ -458,6 +470,8 @@
    + +
    @@ -470,7 +484,7 @@
    - + - - - + + + @@ -677,27 +691,27 @@ - + - + - + - + - + diff --git a/CxC/RepCxCDetalle.aspx.vb b/CxC/RepCxCDetalle.aspx.vb index 83473516c..ed5bc9909 100644 --- a/CxC/RepCxCDetalle.aspx.vb +++ b/CxC/RepCxCDetalle.aspx.vb @@ -431,6 +431,7 @@ Partial Class RepCxCDetalle CargaContratos() End If DdlContrato.SelectedValueExist(If(Request("CveContrato") IsNot Nothing, Request("CveContrato").ToString, "-1").ToString) + DdlAseguradora.SelectedValueExist(If(Request("Aseguradora") IsNot Nothing, Request("Aseguradora").ToString, "-1").ToString) End Sub Private Sub CargaContratos() @@ -475,7 +476,7 @@ Partial Class RepCxCDetalle FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=DdlCobranzaEstatusFiltro.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, LimiteCredito:=LimiteCredito, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CveMoneda:=CveMoneda, EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero, TieneLineaAdicional:=DdlTieneLineaAdicional.SelectedValue.ToEntero(), - CveContrato:=DdlContrato.SelectedValue.ToEntero) Then + CveContrato:=DdlContrato.SelectedValue.ToEntero, Aseguradora:=DdlAseguradora.SelectedValue.ToEntero) Then GvDatos.DataSource = ObjMovtos.DSResultados.Tables(0) diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx index d8864b53d..0dd37e4e6 100644 --- a/Inventarios/Kardex.aspx +++ b/Inventarios/Kardex.aspx @@ -388,6 +388,19 @@
    +
    +
    +

    OC

    +
    + +
    + + + +
    +
    +
    +
    @@ -514,6 +527,41 @@ +
    - -
    Nombre:
    + +
    Nombre:
    -
    RFC:
    +
    RFC:
    -
    Estatus:
    +
    Estatus:
    Todos @@ -60,21 +61,21 @@ Inactivo
    - - <%--
    + + <%--
    --%> -
    - Permite Crédito: -
    -
    - - Todos - Si - No - -
    +
    + Permite Crédito: +
    +
    + + Todos + Si + No + +
    @@ -83,17 +84,17 @@
    >
    -
    Sucursal:
    +
    Sucursal:
    -
    Clasificación:
    +
    Clasificación:
    -
    Tipo:
    +
    Tipo:
    Todos @@ -102,33 +103,49 @@
    -
    +
    Vendedor:
    -
    +
    + +
    -
    En Demanda:
    +
    En Demanda:
    - + Todos Solo En Demanda No en Demanda
    -
    En Quebranto:
    +
    En Quebranto:
    - - Todos - Solo En Quebranto - No En Quebranto + + Todos + Solo En Quebranto + No En Quebranto
    -
    +
    + +
    +
    + Aseguradora: +
    +
    + + + + + +
    +
    +
    @@ -143,7 +160,7 @@ - + <%-- @@ -200,364 +217,364 @@ --%> -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Nombre Corto - - - - - - No Ext - - - - - - No Int - - - - - - Colonia - - - - - - Ciudad - - - - - - Estado - - - - - - País - - - - - - CP - - - - - - Contacto - - - - - - Correo Env. Factura - - - - - - Recepción Facturas - - - - - - Ret IVA - - - - - - Ret ISR - - - - - - Plazo Cobranza - - - - - - Límite Crédito - - - - - +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Nombre Corto + + + + + + No Ext + + + + + + No Int + + + + + + Colonia + + + + + + Ciudad + + + + + + Estado + + + + + + País + + + + + + CP + + + + + + Contacto + + + + + + Correo Env. Factura + + + + + + Recepción Facturas + + + + + + Ret IVA + + + + + + Ret ISR + + + + + + Plazo Cobranza + + + + + + Límite Crédito + + + + + - - Calle - - - - - - Celular - - - - - - Correo Env. Cotización - - - - - - Otro Telefono - - - - - - Permite Crédito - - - - - - F Limite Crédito - - - - - - -
    - - + + Calle + + + + + + Celular + + + + + + Correo Env. Cotización + + + + + + Otro Telefono + + + + + + Permite Crédito + + + + + + F Limite Crédito + + + + + +
    - - - - - - -
    - - - -