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 @@ -
    +
    +
    + + + + +
    +