From 2fdd38e28a3913b67ef31146ef8d008e0ec25d3a Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Sat, 27 Jul 2024 15:49:15 -0700 Subject: [PATCH] Puntos grupo diaz. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --Cotizaciones/Ventas. En la creación rápida de cliente. Pedir dato de giro del cliente. (PA_Banc_BancosCuentasUsuariosGet) --Registro de Clave de autorización y nombre de quien atendió para registrar estos datos al momento de cobrar y que estos datos sean requeridos. --- Depósitos de caja. Quitar la opción de “Todos” al filtrar los tipos de pago. --- Cobro de Caja, Permitir hasta 6 pesos como sobrante/faltante. --Cotizaciones/Ventas. En la creación rápida de cliente. Pedir dato de giro del cliente. --Cotizaciones/Ventas. Previo agregar un productos, visualizar los precios por cada lista de precios. --Cotizaciones/Ventas. Visualización de existencias por cada una de las partidas. --- App_Code/ClsBancos.vb | 3 +- App_Code/ClsClientes.vb | 4 +- Bancos/DepositosCaja.aspx.vb | 8 +- Bancos/IE.aspx | 10 +- Bancos/IE.aspx.vb | 5 + Ventas/PVCobranza.aspx | 212 +++++++++++--------- Ventas/PVCobranza.aspx.vb | 58 +++++- Ventas/RepCancelacionesPorRespuesta.aspx.cs | 2 +- Ventas/Ventas.aspx | 10 +- Ventas/Ventas.aspx.vb | 48 +++-- 10 files changed, 235 insertions(+), 125 deletions(-) diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 176ed8ac9..1445de74b 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -1488,7 +1488,7 @@ Public Class ClsBancos Optional CveCuentaDeposito As Integer = -1, Optional PagoElectronico As String = "-1", Optional CveEstatusIE As Integer = 1, Optional CveCuentaTarjeta As Integer = -1, Optional Referencia As String = "-1", Optional CveCorte As Integer = -1, Optional CveProveedorIntermediario As Integer = -1, Optional FueConciliado As Boolean = False, Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "", Optional ConceptoCIE As String = "", Optional CveOCAnticipo As Integer = -1, Optional ImporteDeduccionesPago As Decimal = -1, - Optional AnticipoPuntual As Boolean = False, Optional FechaEmision As Date = MinFecha) As Integer + Optional AnticipoPuntual As Boolean = False, Optional FechaEmision As Date = MinFecha, Optional CveAutorizacion As String = "") As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Banc_IEAdd") @@ -1531,6 +1531,7 @@ Public Class ClsBancos .Add("@ImporteDeduccionesPago", SqlDbType.Money).Value = ImporteDeduccionesPago .Add("@AnticipoPuntual", SqlDbType.Bit).Value = AnticipoPuntual .Add("@FechaEmision", SqlDbType.Date).Value = FechaEmision + .Add("@CveAutorizacion", SqlDbType.VarChar).Value = CveAutorizacion End With Try diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index b415508c3..c9ffe1b18 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -1678,7 +1678,8 @@ Public Class ClsClientes Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, CveEstado As Integer, RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer, NumCuentaPago As String, CveMetodoPago33 As Integer, CveFormaPago33 As Integer, Optional CvePrecioLista As Integer = -1, Optional RegimenSociedad As String = "-1", - Optional TipoPersona As Boolean = False, Optional CveRegimenFiscal As Integer = -1, Optional CveUsoCFDI As Integer = -1, Optional Genero As Boolean = True) As Boolean + Optional TipoPersona As Boolean = False, Optional CveRegimenFiscal As Integer = -1, Optional CveUsoCFDI As Integer = -1, Optional Genero As Boolean = True, + Optional CveClienteClasificacion As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_ClientesNoFrecuenteAdd") @@ -1707,6 +1708,7 @@ Public Class ClsClientes .Add("@TipoPersona", SqlDbType.Bit).Value = TipoPersona .Add("@CveRegimenFiscal", SqlDbType.Int).Value = CveRegimenFiscal .Add("@CveUsoCFDI", SqlDbType.Int).Value = CveUsoCFDI + .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion .Add("@Genero", SqlDbType.Int).Value = Genero End With diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index 1742628f5..bf4fd20c9 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -41,6 +41,12 @@ Partial Class Bancos_DepositosCaja Dim StrEncriptPrueba As String = Encripta($"OP=DC&CveIE={2784391}&CuentaCaja={"TestCuantaCaja"}&CuentaDepo={"Test cuenta"}") HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={StrEncriptPrueba}" + If UsuarioActual.CveEmpresa = 189 Then + If DdlTipoPago.Items.FindByValue("-1") IsNot Nothing Then + DdlTipoPago.Items.Remove(DdlTipoPago.Items.FindByValue("-1")) + End If + End If + End If End Sub @@ -327,7 +333,7 @@ Partial Class Bancos_DepositosCaja If CveSubProyecto <= 0 Then 'se saca de la cuenta de la caja chica - CveSubProyecto = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, Estatus:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto") + CveSubProyecto = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, Estatus:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero() End If End If diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index 840131979..16ab112f6 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -246,11 +246,19 @@
- + +
+ + +
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 5688cc07e..af33ff1b5 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -815,6 +815,11 @@ Partial Class Bancos_IE NumComplementos = ObjIE.DtResultados(0)("NumComplementos").ToString.ToEntero Dim CveIEEstadoCuenta As Integer = ObjIE.DtResultados(0)("CveIEEstadoCuenta").ToString.ToEntero + If Not String.IsNullOrEmpty(ObjIE.DtResultados(0)("CveAutorizacion").ToString) Then + DivCveAutorizacion.Visible = True + LblCveAutorizacion.Text = ObjIE.DtResultados(0)("CveAutorizacion").ToString() + End If + If UsuarioActual.TienePermisoProceso(99) Then 'BtnActualizar.Visible = True TxtFechaDocumento.Enabled = True diff --git a/Ventas/PVCobranza.aspx b/Ventas/PVCobranza.aspx index 35db02691..080d75df6 100644 --- a/Ventas/PVCobranza.aspx +++ b/Ventas/PVCobranza.aspx @@ -11,7 +11,7 @@ width: 200px; } - .btn-xs { + .btn-xs { padding: 0px 5px; } @@ -200,9 +200,9 @@
  • Retiro de Efectivo
    • -
  • - Cobros en Transcurso -
    • +
  • + Cobros en Transcurso +
    • @@ -273,13 +273,13 @@
    @@ -335,13 +335,18 @@
    Folio:
      
    -
    -
    -
    - -
    +
    + + +
    +
    + + + +
    -
    + + @@ -423,6 +428,20 @@ +
    +
    +
    + +
    + +
    + +
    + +
    +
    +
    +
    @@ -515,43 +534,44 @@
    - - - - - Serie - Folio - - - - - - - - - - - - - - - - - - - - - - + + + + + Serie - Folio + + + + + + + + + + + + + + + + + + + + + + + + -
    - + @@ -574,7 +594,7 @@     - + Sucursal: @@ -591,7 +611,7 @@ - +     @@ -763,7 +783,7 @@ - +
    @@ -913,54 +933,54 @@ -
    +
    +
    + + + + +
    +