diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index 599a630af..8df5dc3b2 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -224,7 +224,7 @@ -
+
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index 77b25a49a..c11961c9a 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -44,6 +44,17 @@ Partial Class Bancos_DepositosCaja DdlTipoDeposito.Items.Remove("-1") End If + If UsuarioActual.CveEmpresa = 189 Then + If DdlTipoPago.Items.FindByValue("-1") IsNot Nothing Then + DdlTipoPago.Items.Remove(DdlTipoPago.Items.FindByValue("-1")) + End If + + divdescuento2.Visible = False + divdescuento3.Visible = False + DivIntercheck.Visible = False + DivSobrantescheck.Visible = False + End If + CargaCuentas() ChkFaltante.Attributes.Add("onclick", "CheckFaltante(this);") @@ -63,16 +74,6 @@ Partial Class Bancos_DepositosCaja DivIVA.Visible = False End If - If UsuarioActual.CveEmpresa = 189 Then - If DdlTipoPago.Items.FindByValue("-1") IsNot Nothing Then - DdlTipoPago.Items.Remove(DdlTipoPago.Items.FindByValue("-1")) - End If - - divdescuento2.Visible = False - divdescuento3.Visible = False - DivIntercheck.Visible = False - End If - End If End Sub @@ -99,6 +100,7 @@ Partial Class Bancos_DepositosCaja If UsuarioActual.TienePermisoProceso(383) Then DivRowCuenta.Visible = True DivDescuentocheck.Visible = True + DivSobrantescheck.Visible = True Else DivRowCuenta.Visible = False DivDescuentocheck.Visible = False @@ -155,7 +157,6 @@ Partial Class Bancos_DepositosCaja DdlUsuario.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa) DdlUsuario.DataBind() - End Sub Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb index 89c36d9d4..018715c5f 100644 --- a/Inicio.aspx.vb +++ b/Inicio.aspx.vb @@ -170,23 +170,14 @@ Partial Class Inicio End If OC.Dispose() End If - - ViewState("FechaSel") = NowADS().ToShortDateString - 'Not UsuarioActual.CveEmpresa.Contiene(66, 74) OrElse - - 'Ventas no timbradas por centro de costo If UsuarioActual.TienePermisoProceso(208) Then MuestraNoTimbradasCentroCosto() - 'Ventas sin correo enviado If UsuarioActual.TienePermisoProceso(319) Then MuestraVentasNoEnviadas() - If UsuarioActual.TienePermisoProceso(271) Then MuestraVentasPUE() If UsuarioActual.TienePermisoProceso(270) Then MuestraComprasPUE() - - If UsuarioActual.TienePermisoProceso(343) Then MuestraPsProximosAVencer() If UsuarioActual.TienePermisoProceso(344) Then MuestraRSCOProximosAVencer() @@ -195,9 +186,10 @@ Partial Class Inicio Dim CveVendedor As Integer = -1 Dim CveUsuarioTecnico As Integer = -1 divsms1.Visible = True - If UsuarioActual.CveRol = 1577 Then - Opcion = 1 'vendedor + If UsuarioActual.CveRol = 1577 Then 'vendedor + Opcion = 1 CveVendedor = UsuarioActual.CveVendedor + CveUsuarioTecnico = UsuarioActual.CveUsuario 'GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUsuarioTecnico", $"CveVendedor = {CveVendedor}").ToEntero ElseIf UsuarioActual.CveRol.Contiene(1639, 1573) Then ' rol admin. 1573 Opcion = 2 'gerente ventas End If @@ -266,7 +258,7 @@ Partial Class Inicio If UsuarioActual.Empresa.Funcionalidad(560) = "1" Then Dim ObjProveedor As New ClsCompProveedores If ObjProveedor.GetEvaluacionesProveedores(-1, -1, UsuarioActual.CveEmpresa) Then - If ObjProveedor.DtResultados.COUNT("CveEvaluacionProveedor", $"Evaluado = 0 AND CveUsuario={UsuarioActual.CveUsuario}") > 0 Then + If ObjProveedor.DtResultados.COUNT("CveEvaluacionProveedor", $"Evaluado = 0 And CveUsuario={UsuarioActual.CveUsuario}") > 0 Then Dim Mensaje As String = "Hay evaluaciones pendientes de proveedores. ¿Desea realizarlas ahora?" Dim MsgAccionAceptar As String = "window.open(""/Compras/EvaluacionProveedor.aspx?CveProveedor=-1"");" @@ -2527,7 +2519,8 @@ Partial Class Inicio DdlSMSVendedores.DataBind() DdlSMSVendedores.Visible = True DdlSMSTecnico.Visible = False - CargaKPICirugias(DdlSMSOpciones.SelectedValue.ToEntero, DdlSMSVendedores.SelectedValue.ToEntero) + Dim CveUsuarioTecnico As Integer = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUsuario", $"CveVendedor = {DdlSMSVendedores.SelectedValue}").ToEntero + CargaKPICirugias(DdlSMSOpciones.SelectedValue.ToEntero, DdlSMSVendedores.SelectedValue.ToEntero, CveUsuarioTecnico) ElseIf DdlSMSOpciones.SelectedValue = "4" Then DdlSMSTecnico.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveRol = 1582") DdlSMSTecnico.DataBind() @@ -2544,7 +2537,8 @@ Partial Class Inicio End Sub Protected Sub DdlSMSVendedores_SelectedIndexChanged(sender As Object, e As EventArgs) - CargaKPICirugias(DdlSMSOpciones.SelectedValue.ToEntero, DdlSMSVendedores.SelectedValue.ToEntero) + Dim CveUsuarioTecnico As Integer = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUsuario", $"CveVendedor = {DdlSMSVendedores.SelectedValue}").ToEntero + CargaKPICirugias(DdlSMSOpciones.SelectedValue.ToEntero, DdlSMSVendedores.SelectedValue.ToEntero, CveUsuarioTecnico) End Sub Protected Sub DdlSMSTecnico_SelectedIndexChanged(sender As Object, e As EventArgs) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index e160dd5c8..e8976f18d 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -2142,7 +2142,7 @@ Partial Class Inventarios_EntradasSalidas CveConceptoContable = 78 EsContabilizable = True Case 28, 31 - CveConceptoContable = 51 + CveConceptoContable = 290 If DdlConcepto.SelectedValue.ToEntero = 28 Then ''cuando es 28, es otros ingresos.78 CveConceptoContable = 78 @@ -2154,7 +2154,7 @@ Partial Class Inventarios_EntradasSalidas If DdlSubProyecto.Visible = True AndAlso DdlSubProyecto.SelectedValue.ToEntero > 0 Then tCveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero Case 34 - CveConceptoContable = 51 + CveConceptoContable = 290 EsContabilizable = True Case 13, 29 CveConceptoContable = 69 @@ -2165,7 +2165,7 @@ Partial Class Inventarios_EntradasSalidas CveClasificacion = drr("CveClasificacion").ToString.ToEntero End If Case 3 - CveConceptoContable = 51 + CveConceptoContable = 290 EsContabilizable = True Case Else CveConceptoContable = 95 @@ -2179,7 +2179,7 @@ Partial Class Inventarios_EntradasSalidas Else 'Dim Total As Decimal = 0 - If CveConceptoContable.Contiene(181, 78, 51, 69) Then + If CveConceptoContable.Contiene(181, 78, 290, 69) Then Dim Dt As DataTable = ObjInventario.DtResultados.FiltraParametros("", "", {"CveClasificacion"}).Copy For Each Dr As DataRow In Dt.Rows diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index a787c990a..d1958d9ca 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -3126,7 +3126,10 @@ Partial Class Ventas_PVCobranza Dim objPuntoVenta As New ClsPuntoVenta Dim FechaInicio As Date = New Date(txtFechaI.Text.ToDate.Year, 1, 1) Dim FechaFin As Date = New Date(FechaInicio.Year, 12, 31) - Dim CveCuenta As Integer = 197107 + Dim CveCuenta As Integer = -2 + + If UsuarioActual.CveEmpresa = 189 Then CveCuenta = 197107 'gdiaz + If UsuarioActual.CveEmpresa = 197 Then CveCuenta = 187752 'ayven If objPuntoVenta.GetVta_EstadoCajas(CveCuenta, UsuarioActual.CveEmpresa, FechaInicio, FechaFin) Then GvEstadoCajas.DataSource = objPuntoVenta.DtResultados diff --git a/Ventas/RepComisionesSMS.aspx b/Ventas/RepComisionesSMS.aspx index 0126ce39a..9ba4d2fa2 100644 --- a/Ventas/RepComisionesSMS.aspx +++ b/Ventas/RepComisionesSMS.aspx @@ -154,7 +154,7 @@
@@ -175,7 +175,7 @@ - +