AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2025-04-22 23:23:45 -07:00
parent bac43e9826 d2510bcbc9
commit d4eb5e4572
6 changed files with 31 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Bancos/DepositosCaja.aspx
View File

@@ -224,7 +224,7 @@
<asp:UpdatePanel ID="UpComisiones" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpComisiones" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="row rowcheck truncate " id="DivComisioncheck" style="padding: 0px!important; margin: 0px!important"> <div class="row rowcheck truncate " id="DivSobrantescheck" runat="server" style="padding: 0px!important; margin: 0px!important">
<div class="col-md-1 truncate" runat="server" id="DivFaltante" style="width: 155px;"> <div class="col-md-1 truncate" runat="server" id="DivFaltante" style="width: 155px;">
<asp:CheckBox ID="ChkFaltante" runat="server" Text="Faltante/Sobrante" CssClass="checkbox" /> <asp:CheckBox ID="ChkFaltante" runat="server" Text="Faltante/Sobrante" CssClass="checkbox" />
</div> </div>

23
Bancos/DepositosCaja.aspx.vb
View File

@@ -44,6 +44,17 @@ Partial Class Bancos_DepositosCaja
DdlTipoDeposito.Items.Remove("-1") DdlTipoDeposito.Items.Remove("-1")
End If 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() CargaCuentas()
ChkFaltante.Attributes.Add("onclick", "CheckFaltante(this);") ChkFaltante.Attributes.Add("onclick", "CheckFaltante(this);")
@@ -63,16 +74,6 @@ Partial Class Bancos_DepositosCaja
DivIVA.Visible = False DivIVA.Visible = False
End If 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 If
End Sub End Sub
@@ -99,6 +100,7 @@ Partial Class Bancos_DepositosCaja
If UsuarioActual.TienePermisoProceso(383) Then If UsuarioActual.TienePermisoProceso(383) Then
DivRowCuenta.Visible = True DivRowCuenta.Visible = True
DivDescuentocheck.Visible = True DivDescuentocheck.Visible = True
DivSobrantescheck.Visible = True
Else Else
DivRowCuenta.Visible = False DivRowCuenta.Visible = False
DivDescuentocheck.Visible = False DivDescuentocheck.Visible = False
@@ -155,7 +157,6 @@ Partial Class Bancos_DepositosCaja
DdlUsuario.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa) DdlUsuario.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlUsuario.DataBind() DdlUsuario.DataBind()
End Sub End Sub
Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click

22
Inicio.aspx.vb
View File

@@ -170,23 +170,14 @@ Partial Class Inicio
End If End If
OC.Dispose() OC.Dispose()
End If End If
ViewState("FechaSel") = NowADS().ToShortDateString ViewState("FechaSel") = NowADS().ToShortDateString
'Not UsuarioActual.CveEmpresa.Contiene(66, 74) OrElse
'Ventas no timbradas por centro de costo 'Ventas no timbradas por centro de costo
If UsuarioActual.TienePermisoProceso(208) Then MuestraNoTimbradasCentroCosto() If UsuarioActual.TienePermisoProceso(208) Then MuestraNoTimbradasCentroCosto()
'Ventas sin correo enviado 'Ventas sin correo enviado
If UsuarioActual.TienePermisoProceso(319) Then MuestraVentasNoEnviadas() If UsuarioActual.TienePermisoProceso(319) Then MuestraVentasNoEnviadas()
If UsuarioActual.TienePermisoProceso(271) Then MuestraVentasPUE() If UsuarioActual.TienePermisoProceso(271) Then MuestraVentasPUE()
If UsuarioActual.TienePermisoProceso(270) Then MuestraComprasPUE() If UsuarioActual.TienePermisoProceso(270) Then MuestraComprasPUE()
If UsuarioActual.TienePermisoProceso(343) Then MuestraPsProximosAVencer() If UsuarioActual.TienePermisoProceso(343) Then MuestraPsProximosAVencer()
If UsuarioActual.TienePermisoProceso(344) Then MuestraRSCOProximosAVencer() If UsuarioActual.TienePermisoProceso(344) Then MuestraRSCOProximosAVencer()
@@ -195,9 +186,10 @@ Partial Class Inicio
Dim CveVendedor As Integer = -1 Dim CveVendedor As Integer = -1
Dim CveUsuarioTecnico As Integer = -1 Dim CveUsuarioTecnico As Integer = -1
divsms1.Visible = True divsms1.Visible = True
If UsuarioActual.CveRol = 1577 Then If UsuarioActual.CveRol = 1577 Then 'vendedor
Opcion = 1 'vendedor Opcion = 1
CveVendedor = UsuarioActual.CveVendedor 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 ElseIf UsuarioActual.CveRol.Contiene(1639, 1573) Then ' rol admin. 1573
Opcion = 2 'gerente ventas Opcion = 2 'gerente ventas
End If End If
@@ -266,7 +258,7 @@ Partial Class Inicio
If UsuarioActual.Empresa.Funcionalidad(560) = "1" Then If UsuarioActual.Empresa.Funcionalidad(560) = "1" Then
Dim ObjProveedor As New ClsCompProveedores Dim ObjProveedor As New ClsCompProveedores
If ObjProveedor.GetEvaluacionesProveedores(-1, -1, UsuarioActual.CveEmpresa) Then 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 Mensaje As String = "Hay evaluaciones pendientes de proveedores. ¿Desea realizarlas ahora?"
Dim MsgAccionAceptar As String = "window.open(""/Compras/EvaluacionProveedor.aspx?CveProveedor=-1"");" Dim MsgAccionAceptar As String = "window.open(""/Compras/EvaluacionProveedor.aspx?CveProveedor=-1"");"
@@ -2527,7 +2519,8 @@ Partial Class Inicio
DdlSMSVendedores.DataBind() DdlSMSVendedores.DataBind()
DdlSMSVendedores.Visible = True DdlSMSVendedores.Visible = True
DdlSMSTecnico.Visible = False 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 ElseIf DdlSMSOpciones.SelectedValue = "4" Then
DdlSMSTecnico.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveRol = 1582") DdlSMSTecnico.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveRol = 1582")
DdlSMSTecnico.DataBind() DdlSMSTecnico.DataBind()
@@ -2544,7 +2537,8 @@ Partial Class Inicio
End Sub End Sub
Protected Sub DdlSMSVendedores_SelectedIndexChanged(sender As Object, e As EventArgs) 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 End Sub
Protected Sub DdlSMSTecnico_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlSMSTecnico_SelectedIndexChanged(sender As Object, e As EventArgs)

8
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -2142,7 +2142,7 @@ Partial Class Inventarios_EntradasSalidas
CveConceptoContable = 78 CveConceptoContable = 78
EsContabilizable = True EsContabilizable = True
Case 28, 31 Case 28, 31
CveConceptoContable = 51 CveConceptoContable = 290
If DdlConcepto.SelectedValue.ToEntero = 28 Then If DdlConcepto.SelectedValue.ToEntero = 28 Then
''cuando es 28, es otros ingresos.78 ''cuando es 28, es otros ingresos.78
CveConceptoContable = 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 If DdlSubProyecto.Visible = True AndAlso DdlSubProyecto.SelectedValue.ToEntero > 0 Then tCveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
Case 34 Case 34
CveConceptoContable = 51 CveConceptoContable = 290
EsContabilizable = True EsContabilizable = True
Case 13, 29 Case 13, 29
CveConceptoContable = 69 CveConceptoContable = 69
@@ -2165,7 +2165,7 @@ Partial Class Inventarios_EntradasSalidas
CveClasificacion = drr("CveClasificacion").ToString.ToEntero CveClasificacion = drr("CveClasificacion").ToString.ToEntero
End If End If
Case 3 Case 3
CveConceptoContable = 51 CveConceptoContable = 290
EsContabilizable = True EsContabilizable = True
Case Else Case Else
CveConceptoContable = 95 CveConceptoContable = 95
@@ -2179,7 +2179,7 @@ Partial Class Inventarios_EntradasSalidas
Else Else
'Dim Total As Decimal = 0 '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 Dim Dt As DataTable = ObjInventario.DtResultados.FiltraParametros("", "", {"CveClasificacion"}).Copy
For Each Dr As DataRow In Dt.Rows For Each Dr As DataRow In Dt.Rows

5
Ventas/PVCobranza.aspx.vb
View File

@@ -3126,7 +3126,10 @@ Partial Class Ventas_PVCobranza
Dim objPuntoVenta As New ClsPuntoVenta Dim objPuntoVenta As New ClsPuntoVenta
Dim FechaInicio As Date = New Date(txtFechaI.Text.ToDate.Year, 1, 1) Dim FechaInicio As Date = New Date(txtFechaI.Text.ToDate.Year, 1, 1)
Dim FechaFin As Date = New Date(FechaInicio.Year, 12, 31) 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 If objPuntoVenta.GetVta_EstadoCajas(CveCuenta, UsuarioActual.CveEmpresa, FechaInicio, FechaFin) Then
GvEstadoCajas.DataSource = objPuntoVenta.DtResultados GvEstadoCajas.DataSource = objPuntoVenta.DtResultados

4
Ventas/RepComisionesSMS.aspx
View File

@@ -154,7 +154,7 @@
<div class="row"> <div class="row">
<div class="col-md-12"> <div class="col-md-12">
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"
DataKeyNames="CveVenta,SerieFolio,Hospital,Medico,Especialidad,FechaCirugia,Procedimiento,Codigo,PU,Cantidad,Total,CveVendedor,Vendedor,Nombre,ComisionMedico,ComisionVendedor,ComisionTecnico" DataKeyNames="CveVenta,SerieFolio,Hospital,Medico,Especialidad,FechaCirugia,Procedimiento,Codigo,PU,Cantidad,Total,CveVendedor,Vendedor,NombreTecnico,ComisionMedico,ComisionVendedor,ComisionTecnico"
data-sort="true" data-sort="true"
EmptyDataText="No se encontraron Registrados" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None"> EmptyDataText="No se encontraron Registrados" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
<Columns> <Columns>
@@ -175,7 +175,7 @@
<asp:BoundField HeaderText="Vendedor" DataField="Vendedor" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Vendedor" DataField="Vendedor" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="$ Vendedor" DataField="ComisionVendedor" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="$ Vendedor" DataField="ComisionVendedor" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Técnico" DataField="Nombre" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField HeaderText="Técnico" DataField="NombreTecnico" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="$ Técnico" DataField="ComisionTecnico" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="$ Técnico" DataField="ComisionTecnico" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="$ Gerente" DataField="ComisionGerente" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" Visible="false" /> <asp:BoundField HeaderText="$ Gerente" DataField="ComisionGerente" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" Visible="false" />