Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
@@ -224,7 +224,7 @@
|
||||
<asp:UpdatePanel ID="UpComisiones" runat="server" UpdateMode="Conditional">
|
||||
<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;">
|
||||
<asp:CheckBox ID="ChkFaltante" runat="server" Text="Faltante/Sobrante" CssClass="checkbox" />
|
||||
</div>
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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)
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -154,7 +154,7 @@
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<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"
|
||||
EmptyDataText="No se encontraron Registrados" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
|
||||
<Columns>
|
||||
@@ -175,7 +175,7 @@
|
||||
<asp:BoundField HeaderText="Vendedor" DataField="Vendedor" ItemStyle-HorizontalAlign="Left" />
|
||||
<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="$ Gerente" DataField="ComisionGerente" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" Visible="false" />
|
||||
|
||||
|
||||
Reference in New Issue
Block a user