diff --git a/Ventas/PVCobranza.aspx b/Ventas/PVCobranza.aspx index 9588e6991..bc0f38ce9 100644 --- a/Ventas/PVCobranza.aspx +++ b/Ventas/PVCobranza.aspx @@ -596,7 +596,7 @@ - +
diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index 4aa31d642..ee482b9de 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -161,11 +161,8 @@ Partial Class Ventas_PVCobranza DivDatosCheque.Visible = True UpContadoOtros.Visible = True UpContadoOtros.Update() - End If - - If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then - DivNoTimbradas.Visible = True - End If + End If + End If End Sub @@ -184,12 +181,6 @@ Partial Class Ventas_PVCobranza txtFechaI.Text = Now.AddDays(-1).ToShortDateString txtFechaF.Text = Now.ToShortDateString - 'DdlCuentaEfectivo.Items.Clear() - 'DdlCuentaTarjetaCredito.Items.Clear() - 'DdlCuentaTarjetaDebito.Items.Clear() - 'DdlCuentaCheque.Items.Clear() - 'DdlCuentaTransferencia.Items.Clear() - Dim DtCC As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) Dim CveMon As Integer = 1 @@ -198,7 +189,6 @@ Partial Class Ventas_PVCobranza DdlCuentaEfectivo.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", CveMon)) DdlCuentaCheque.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", CveMon)) - 'If UsuarioActual.Empresa.Funcionalidad(558) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(531) = "1" Then DdlCuentaTarjetaCredito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1 AND TieneTerminal = 1", CveMon)) DdlCuentaTarjetaDebito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1 AND TieneTerminal = 1", CveMon))