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:
rrene
2020-09-04 19:19:34 -07:00
parent e0e5a7fe0b 952d7f95ab
commit e7d303bf47
65 changed files with 7663 additions and 1422 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Ventas/Clientes.aspx
View File

@@ -4200,7 +4200,7 @@
<ContentTemplate>
<asp:GridView ID="GvAcum" Width="100%" runat="server" GridLines="None"
DataKeyNames="CveMovto, CveCliente,Cantidad,CveTamaño,Puntos,ImporteCargo,ImporteBonificacion,ImporteCompra,CveConcepto,CveVenta,Observaciones,CveUsuario,FechaIng,FacturadoCargo,FacturadoBonificacion"
DataKeyNames="CveMovto, CveCliente,Cantidad,CveTamaño,Puntos,ImporteCargo,ImporteBonificacion,ImporteCompra,CveConcepto,CveVenta,Observaciones,CveUsuario,FechaIng,FacturadoCargo,FacturadoBonificacion,CveSubProyecto"
CssClass="table table-striped table-advance table-hover ScrollAD " ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
<Columns>

8
Ventas/Clientes.aspx.vb
View File

@@ -9323,6 +9323,7 @@ Partial Class Clientes
Dim SubTotal As Decimal = 0D
Dim IVA As Decimal = 0D
Dim CveSubProyecto As Integer = -1
For Each GvRow As GridViewRow In GvAcum.Rows
If Tipo = 1 Then
@@ -9334,6 +9335,8 @@ Partial Class Clientes
SubTotal = SubTotal + GvRow.DataKey("ImporteBonificacion").ToDecimal
End If
End If
CveSubProyecto = GvRow.DataKey("CveSubProyecto").ToEntero
Next
Dim CvePS As Integer = UsuarioActual.Empresa.Funcionalidad(534).ToEntero 'CvePS Distruibuidor Bonificación Nota
@@ -9455,7 +9458,8 @@ Partial Class Clientes
ObjFactura.Alfa2 = ""
ObjFactura.Alfa3 = ""
ObjFactura.Num1 = 0
'NUM 1- CARGO 2- BONIFICACION
ObjFactura.Num1 = Tipo
ObjFactura.Num2 = 0
ObjFactura.Num3 = 0
@@ -9505,7 +9509,7 @@ Partial Class Clientes
ObjFactura.SetCliente()
''SUCURSAL
ObjFactura.CveSubProyecto = CveSubProyecto
ObjFactura.SetSubProyectoMatriz(Me)
ObjFactura.SetSubProyecto(Me)
ObjFactura.ClienteSucursal = New Modelos.SucursalModel

4
Ventas/RepAuxiliarFacturas.aspx
View File

@@ -35,7 +35,7 @@
<div class="row">
<label class="col-md-1 truncate">Productos Servicios:</label>
<div class="col-md-2">
<ADS:Dropdownlost runat="server" ID="DdlPS" Style="width: 95%;" CssClass="DdlPS" CssClassDdl="select2me " DataTextField="PSCodigo" DataValueField="CvePS" />
<ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="100%" Style="width: 95%;" CssClass="DdlPS" CssClassDdl="select2me form-control" DataTextField="PSCodigo" DataValueField="CvePS" />
</div>
<div class="col-md-1 truncate">
Fecha Inicio:
@@ -136,7 +136,7 @@
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" Style="text-align: center;" GridLines="None" Width="99%">
<Columns>
<asp:BoundField HeaderText="Cliente" DataField="Cliente" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField HeaderText="Folio" DataField="Cliente" ItemStyle-HorizontalAlign="Left" />
<asp:TemplateField HeaderText="Grupo" ItemStyle-Width="30%" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Literal ID="LtlGrupo" runat="server" Text='<%# Eval("GPO") %>'></asp:Literal>

6
Ventas/RepAuxiliarFacturas.aspx.vb
View File

@@ -58,7 +58,8 @@ Partial Class Ventas_RepAuxiliarFacturas
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
If Not IsPostBack Then
txtFechaI.Text = String.Format("01{0:/MM/yyyy}", DateTime.Now)
CargaCombos()
End If
End Sub
@@ -208,8 +209,7 @@ Partial Class Ventas_RepAuxiliarFacturas
UPDatos.Update()
End Sub
Private Sub CargaDatos()
Private Sub CargaDatos()
Dim TipoComprobante As String = If(DdlTipoComprobante.GetSelectedValuesM = "", "-1", DdlTipoComprobante.GetSelectedValuesM)
Dim FechaI, FechaF As Date
FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.ToDate, MinFecha)

2
Ventas/RepVentas.aspx.vb
View File

@@ -766,7 +766,7 @@ Partial Class Ventas_RepVentas
Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(query)
Select Case DdlGrafica.SelectedValue.ToEntero
Case 1
RegistraScript($"CargaGraficaBarras({json})", "22")
RegistraScript($"CargaGraficaBarras({json});console.log({json})", "22")
Case 2
RegistraScript($"CargaGraficaPastel({json})", "22")
End Select

53
Ventas/Ventas.aspx.vb
View File

@@ -2214,6 +2214,7 @@ Partial Class Ventas
If DdlTipoComprobante.SelectedValue.Contiene("Ped", "PeC") Then
TrAlmacenAsignado.Visible = True
TrAlmacenOrigen.Visible = True
End If
Dim CveAlmacenDestino As Integer = DtContratos.FiltroPrimeroValor("CveAlmacenDestino", $"CveContrato = {If(DdlContratosModal.Items.Count > 0, DdlContratosModal.SelectedValue, "0")}").ToEntero()
@@ -2232,6 +2233,7 @@ Partial Class Ventas
Else
RequiereAlmacenDestino = False
TrAlmacenAsignado.Visible = False
TrAlmacenOrigen.Visible = False
End If
'ENVIO DE FACTURA
@@ -2244,11 +2246,12 @@ Partial Class Ventas
'Modalidad Contrato
If Request("CveContrato") IsNot Nothing AndAlso IsNumeric(Request("CveContrato")) AndAlso Request("CveContrato").ToEntero() > 0 AndAlso Request("Tipo") IsNot Nothing AndAlso IsNumeric(Request("Tipo")) AndAlso Request("Tipo").Contiene("0", "1") Then
TrAlmacenOrigen.Visible = False
If DdlTipoComprobante.SelectedValue.Contiene("Ped", "PeC") Then
TrAlmacenAsignado.Visible = True
TrAlmacenOrigen.Visible = True
End If
UPCondicionesPago.Visible = False
RequiereAlmacenDestino = True
CveContrato = Request("CveContrato").ToEntero()
@@ -3016,11 +3019,28 @@ Partial Class Ventas
DdlAlmacenAsignado.DataBind()
End If
Dim CveAlmacenOrigen As Integer = DrContrato("CveAlmacenOrigen").ToString().ToEntero()
If CveAlmacenOrigen > 0 Then
'TrAlmacenOrigen.Visible = True
DdlAlmacenOrigen.Items.Clear()
DdlAlmacenOrigen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1, CveAlmacen:=CveAlmacenOrigen) '.FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}")
DdlAlmacenOrigen.DataBind()
DdlAlmacenOrigen.SelectedValueExist(CveAlmacenOrigen.ToString())
End If
If DdlTipoComprobante.SelectedValue.Contiene("Ped", "PeC") Then
DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}")
DdlAlmacenAsignado.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlAlmacenAsignado.SelectedValueExist(CveAlmacenDestino.ToString())
DdlAlmacenAsignado.DataBind()
DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}")
DdlAlmacenOrigen.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlAlmacenOrigen.SelectedValueExist(CveAlmacenOrigen.ToString())
DdlAlmacenOrigen.DataBind()
End If
UpParametros.Update()
@@ -3274,7 +3294,10 @@ Partial Class Ventas
DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()} {If(DdlTipoComprobante.SelectedValue = "Ped", "", "AND CveTipoAlmacen IN (4,10)")}")
DdlAlmacenAsignado.DataBind()
DdlAlmacenAsignado.Enabled = True
TrAlmacenAsignado.Visible = True
TrAlmacenOrigen.Visible = True
TrTipoPedido.Visible = True
TrObs.InnerText = "No. Serie"
SpObs.InnerText = "Contrato"
@@ -7357,16 +7380,20 @@ Partial Class Ventas
If ObjContr.GetContratos(CveContrato, UsuarioActual.CveEmpresa) Then
If ObjContr.DtResultados.Rows.Count > 0 Then
' si es flexible que notifique el monto maximo, si no lo es que notifique el porcentaje alcanzado... flexible = 2, no flexible = 1
Dim PorcentajeAvance As Double = ObjContr.DtResultados.Rows(0)("ContratoAvance").ToString().ToDouble
'SI ES FLEXIBLE QUE NOTIFIQUE EL MONTO MAXIMO, SI NO LO ES QUE NOTIFIQUE EL PORCENTAJE ALCANZADO... FLEXIBLE = 2, NO FLEXIBLE = 1
If ObjContr.DtResultados.Rows(0)("ModalidadDetalle").ToString() = "1" Then
Dim PorcentajeAvance As Double = ObjContr.DtResultados.Rows(0)("ContratoAvance").ToString().ToDouble
If PorcentajeAvance >= 100 Then
EnviarNotificacionAvance(ObjContr.DtResultados.Rows(0)("NumeroContrato").ToString(), ObjContr.DtResultados.Rows(0)("DescripcionContrato").ToString(), ObjContr.DtResultados.Rows(0)("ContratoTipo").ToString(), ObjContr.DtResultados.Rows(0)("NombreComercial").ToString(), ObjContr.DtResultados.Rows(0)("CorreoVendedor").ToString())
End If
Else
Dim MontoMaximo As Double = ObjContr.DtResultados.Rows(0)("ImporteMax").ToString().ToDouble
Dim Avance As Double = ObjContr.DtResultados.Rows(0)("Avance").ToString().ToDouble
Dim PorcentajeAvance As Double = (Avance / MontoMaximo) * 100
If PorcentajeAvance >= 100 And MontoMaximo > 0 Then
EnviarNotificacionAvance(ObjContr.DtResultados.Rows(0)("NumeroContrato").ToString(), ObjContr.DtResultados.Rows(0)("DescripcionContrato").ToString(), ObjContr.DtResultados.Rows(0)("ContratoTipo").ToString(), ObjContr.DtResultados.Rows(0)("NombreComercial").ToString(), ObjContr.DtResultados.Rows(0)("CorreoVendedor").ToString(), MontoMaximo)
@@ -7554,7 +7581,6 @@ Partial Class Ventas
End If
End Sub
Private Sub CreaObjetosVentaAmortizacion(ObjVentas As ClsVentas, FolioFiscalRelacionado As String, CveAnticipoPadre As Integer,
Optional CveVentasPadre As Integer = -1, Optional NCDescuento As Boolean = False)
ObjFacturaDevolucion = New Modelos.Factura
@@ -12243,7 +12269,9 @@ Partial Class Ventas
End If
If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then
DdlTipoAmortizacionAnticipo.Items.Add(New ListItem("Amortización anticipo sobre factura en cero", "3"))
If Not DdlTipoAmortizacionAnticipo.Items.Cast(Of ListItem).Any(Function(x) x.Value = "3") Then
DdlTipoAmortizacionAnticipo.Items.Add(New ListItem("Amortización anticipo sobre factura en cero", "3"))
End If
End If
If UsuarioActual.Empresa.Funcionalidad(343) = "1" Then
@@ -13102,6 +13130,7 @@ Partial Class Ventas
If DdlTipoComprobante.SelectedValue = "Rem" Then
DdlTipoComprobante.Enabled = False
TrAlmacenAsignado.Visible = False
TrAlmacenOrigen.Visible = False
UpParametros.Update()
End If
@@ -14196,6 +14225,7 @@ Partial Class Ventas
'REINICIALIZA VALORES DE ENTREGA POR ADELANTADO
RequiereAlmacenDestino = False
TrAlmacenAsignado.Visible = False
TrAlmacenOrigen.Visible = False
If DdlTipoComprobante.SelectedValue = "Cot" And UsuarioActual.Empresa.Funcionalidad(135) = "1" Then
Alert("Se ocupa una autorización.", TipoMensaje.MsgAdvertencia)
@@ -14287,10 +14317,21 @@ Partial Class Ventas
DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()} AND CveTipoAlmacen IN (10)")
DdlAlmacenAsignado.DataBind()
End If
Dim CveAlmacenOrigen As Integer = DtContratos.FiltroPrimeroValor("CveAlmacenOrigen", $"CveContrato = {If(DdlContratosModal.Items.Count > 0, DdlContratosModal.SelectedValue, "0")}").ToEntero()
If CveAlmacenOrigen > 0 Then
DdlAlmacenOrigen.Items.Clear()
DdlAlmacenOrigen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1, CveAlmacen:=CveAlmacenOrigen) '.FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}")
DdlAlmacenOrigen.DataBind()
DdlAlmacenOrigen.SelectedValueExist(CveAlmacenOrigen.ToString())
End If
UpParametros.Update()
Else
RequiereAlmacenDestino = False
TrAlmacenAsignado.Visible = False
TrAlmacenOrigen.Visible = False
End If
'ENVIO DE FACTURA