Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
@@ -741,9 +741,17 @@ Partial Class AF_AF
|
||||
' DdlProyecto.DataSource = GlobalDTProyectos(CveEmpresaActual)
|
||||
' DdlProyecto.DataBind()
|
||||
'End Sub
|
||||
Private Sub CargaEstatusActivoFijo()
|
||||
DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo
|
||||
Private Sub CargaEstatusActivoFijo()
|
||||
|
||||
If UsuarioActual.CveEmpresa = 13 Then
|
||||
DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo.FiltraParametros(" CveEstadoActivoFijo <> 3 ")
|
||||
Else
|
||||
DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo
|
||||
End If
|
||||
|
||||
|
||||
DdlEstadoActivoFijo.DataBind()
|
||||
|
||||
End Sub
|
||||
'Private Sub CargaCliente()
|
||||
' DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
|
||||
@@ -1035,7 +1043,16 @@ Partial Class AF_AF
|
||||
CargarHistorial()
|
||||
CargaCaracteristicas()
|
||||
|
||||
If UsuarioActual.CveEmpresa = 13 AndAlso ObjActivoFijo.DtResultados.Rows(0)("CveEstadoActivoFijo").ToString.ToEntero = 3 Then
|
||||
Dim existeItem As Boolean = DdlEstadoActivoFijo.Items.FindByValue("3") IsNot Nothing
|
||||
If Not existeItem Then
|
||||
Dim nuevoItem As New ListItem("Asignado / En proyecto", "3")
|
||||
DdlEstadoActivoFijo.Items.Add(nuevoItem)
|
||||
End If
|
||||
End If
|
||||
|
||||
DdlEstadoActivoFijo.SelectedValue = ObjActivoFijo.DtResultados.Rows(0)("CveEstadoActivoFijo").ToString
|
||||
|
||||
DdlResponsable.SelectedValue = ObjActivoFijo.DtResultados.Rows(0)("CvePersonaResponsable").ToString
|
||||
DdlProyecto.SelectedValue = ObjActivoFijo.CveProyecto.ToString
|
||||
CargaSubProyecto()
|
||||
|
||||
@@ -1726,57 +1726,6 @@ Public Class ClsOC
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
Public Function GetOrdenesCompraCompradosRecibidosRep(Tipo As String, CveProyecto As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, CveEstatus As Integer, FechaInicio As Date,
|
||||
FechaFin As Date, CveOrdenCompra As Integer, CveProveedor As Integer, Folio As Integer, CveUsuarioRegistro As Integer, CveUsuario As Integer,
|
||||
CveEmpresa As Integer, CvePS As Integer, Optional PendientePorSurtir As Boolean = False, Optional CveCliente As Integer = -1, Optional Guia As String = "-1",
|
||||
Optional CveActivoFijo As Integer = -1, Optional SoloSubProyectosConPermiso As Boolean = False, Optional CveUsuarioAutorizo As Integer = -1,
|
||||
Optional CveUsuarioAsignado As Integer = -1, Optional EntregaDirecta As Integer = -1, Optional TopSelect As Integer = 10000, Optional CveMoneda As Integer = -1,
|
||||
Optional MetodoPago As Integer = -1, Optional Serie As String = "-1", Optional TieneAnticipo As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_OC_OrdenesCompraCompradosRecibidosRep")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@Tipo", SqlDbType.VarChar).Value = Tipo
|
||||
.Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
|
||||
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
|
||||
.Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
|
||||
.Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
|
||||
.Add("@FechaFin", SqlDbType.Date).Value = FechaFin
|
||||
.Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra
|
||||
.Add("@CveUsuarioRegistro", SqlDbType.Int).Value = CveUsuarioRegistro
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
.Add("@Folio", SqlDbType.Int).Value = Folio
|
||||
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
|
||||
.Add("@CvePS", SqlDbType.Int).Value = CvePS
|
||||
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
|
||||
.Add("@PendientePorSurtir", SqlDbType.Bit).Value = PendientePorSurtir
|
||||
.Add("@Guia", SqlDbType.VarChar).Value = Guia
|
||||
.Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
|
||||
.Add("@SoloSubProyectosConPermiso", SqlDbType.Bit).Value = SoloSubProyectosConPermiso
|
||||
.Add("@CveUsuarioAutorizo", SqlDbType.Int).Value = CveUsuarioAutorizo
|
||||
.Add("@CveUsuarioAsignado", SqlDbType.Int).Value = CveUsuarioAsignado
|
||||
.Add("@EntregaDirecta", SqlDbType.Int).Value = EntregaDirecta
|
||||
.Add("@TopSelect", SqlDbType.Int).Value = TopSelect
|
||||
.Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
|
||||
.Add("@MetodoPago", SqlDbType.Int).Value = MetodoPago
|
||||
.Add("@Serie", SqlDbType.VarChar).Value = Serie
|
||||
.Add("@TieneAnticipo", SqlDbType.Int).Value = TieneAnticipo
|
||||
End With
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al obtener Ordenes de Compras Comprados Recividos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
Public Function GetOrdenesCompraRepReqXOC(Folio As Integer, FechaInicio As String, FechaFin As String, CveProveedor As Integer, CveVendedor As Integer, CveCliente As Integer, CveEmpresa As Integer, Grupo As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
|
||||
@@ -1277,9 +1277,9 @@
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<asp:UpdatePanel runat="server" ID="UpEntradasGv" UpdateMode="Conditional">
|
||||
<asp:UpdatePanel runat="server" ID="UpEntradasGv" UpdateMode="Conditional" style="max-height:400px; overflow-y:auto;">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvEntradas" runat="server" GridLines="none" CssClass="tabla_correcto grides Widthall mysmallbtn" AutoGenerateColumns="False" ShowHeaderWhenEmpty="False">
|
||||
<asp:GridView ID="GvEntradas" runat="server" GridLines="none" CssClass="tabla_correcto grides Widthall mysmallbtn" AutoGenerateColumns="False" ShowHeaderWhenEmpty="False" data-heightfijo="400" data-heighterror="400" data-height="400" data-sort="true" >
|
||||
<Columns>
|
||||
<asp:BoundField HeaderText="Cant" ReadOnly="true" DataField="Cantidad" ItemStyle-Width="50px" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField HeaderText="Producto" ReadOnly="true" DataField="CodigoPS" ItemStyle-Width="300px" ItemStyle-HorizontalAlign="Left" />
|
||||
@@ -1377,9 +1377,9 @@
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<asp:UpdatePanel runat="server" ID="UpSalidaGv" UpdateMode="Conditional">
|
||||
<asp:UpdatePanel runat="server" ID="UpSalidaGv" UpdateMode="Conditional" style="max-height:400px; overflow-y:auto;">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvSalidas" runat="server" GridLines="none" CssClass="tabla_correcto grides Widthall mysmallbtn" AutoGenerateColumns="False" ShowHeaderWhenEmpty="False">
|
||||
<asp:GridView ID="GvSalidas" runat="server" GridLines="none" CssClass="tabla_correcto grides Widthall mysmallbtn" data-heightfijo="400" data-heighterror="400" data-height="400" data-sort="true" AutoGenerateColumns="False" ShowHeaderWhenEmpty="False">
|
||||
<Columns>
|
||||
<asp:BoundField HeaderText="Cant" ReadOnly="true" DataField="Cantidad" ItemStyle-Width="50px" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField HeaderText="Producto" ReadOnly="true" DataField="CodigoPS" ItemStyle-Width="300px" ItemStyle-HorizontalAlign="Left" />
|
||||
|
||||
@@ -407,6 +407,16 @@ Partial Class RepOC
|
||||
MuestraIndicador(DivIndicadores, "green-haze", "fa fa-money", "Órdenes de Compra", Cantidad.ToString, "Cantidad", "$" + Total.FormatoNumero, "Total", "$" + TotalPesos.FormatoNumero, "Pesos", "$" + TotalDolares.FormatoNumero, "Dólares")
|
||||
UPPIndicador.Update()
|
||||
|
||||
|
||||
DivIndicadoresCompradoRecibido.Visible = True
|
||||
DivIndicadoresCompradoRecibido.InnerHtml = String.Empty
|
||||
|
||||
Dim Recibidos As Decimal = DtOC.SUM("Comprado")
|
||||
Dim Comprados As Decimal = DtOC.SUM("Recibido")
|
||||
|
||||
MuestraIndicadorCompradoRecibido(DivIndicadoresCompradoRecibido, "blue", "fa fa-truck", "Almacén", Recibidos.ToString("###,###,###.00"), "Comprados", "", "Recibidos", Comprados.ToString("###,###,###.00"), "")
|
||||
UPPIndicadorCompradoRecibido.Update()
|
||||
|
||||
End If
|
||||
|
||||
If DtOC IsNot Nothing AndAlso DtOC.Rows.Count > 0 Then
|
||||
@@ -435,35 +445,7 @@ Partial Class RepOC
|
||||
End If
|
||||
|
||||
|
||||
If UsuarioActual.TienePermisoProceso(227) And UsuarioActual.CveRol = 1 Then
|
||||
|
||||
DivIndicadoresCompradoRecibido.Visible = True
|
||||
DivIndicadoresCompradoRecibido.InnerHtml = String.Empty
|
||||
|
||||
|
||||
If OC.GetOrdenesCompraCompradosRecibidosRep(DdlTipo.SelectedValue.ToString, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero,
|
||||
DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, DdlProveedores.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero,
|
||||
UsuarioActual.CveUsuario, UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), False,
|
||||
ddlclientes.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
|
||||
CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero(),
|
||||
CveMoneda:=DdlMoneda.SelectedValue.ToEntero(), MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero, TieneAnticipo:=DdlTieneAnticipo.SelectedValue.ToEntero) Then
|
||||
|
||||
Dim Recibidos As Decimal = 0D
|
||||
Dim Comprados As Decimal = 0D
|
||||
|
||||
If OC.DtResultados.Rows.Count > 0 Then
|
||||
Recibidos = OC.DtResultados.Rows(0)("Comprado").ToString.ToDecimal
|
||||
Comprados = OC.DtResultados.Rows(0)("Recibido").ToString.ToDecimal
|
||||
End If
|
||||
|
||||
MuestraIndicadorCompradoRecibido(DivIndicadoresCompradoRecibido, "blue", "fa fa-truck", "Almacén", Recibidos.ToString("###,###,###.00"), "Comprados", "", "Recibidos", Comprados.ToString("###,###,###.00"), "")
|
||||
|
||||
End If
|
||||
|
||||
UPPIndicadorCompradoRecibido.Update()
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
OC.Dispose()
|
||||
|
||||
@@ -36536,6 +36536,7 @@ Partial Class Ventas
|
||||
|
||||
#Region "D E S C U E N T O S X R E M I S I O N D E N O T A D E C R E D I T O"
|
||||
Protected Sub BtnAplicarRemisionNC_Click(sender As Object, e As EventArgs)
|
||||
'LIMPIAR DATOS
|
||||
Me.AplicaRNCXDetalle = False
|
||||
Me.AplicaRNCBonificacionXDetalle = False
|
||||
|
||||
@@ -36551,6 +36552,16 @@ Partial Class Ventas
|
||||
ListaNCBonificacion.Clear()
|
||||
End If
|
||||
|
||||
TxtImportesRemisionesNC.Text = "0.00"
|
||||
TxtNCImporte.Text = "0.00"
|
||||
|
||||
For Each gvr As GridViewRow In GvCxC.Rows
|
||||
If gvr.RowType = DataControlRowType.DataRow Then
|
||||
gvr.FCCheckBox("ChkCxC").Checked = False
|
||||
gvr.FCTextBox("TxtImporte").Text = ""
|
||||
End If
|
||||
Next
|
||||
|
||||
Dim TotalRemNCAplicado As Decimal = 0
|
||||
|
||||
Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray())
|
||||
|
||||
Reference in New Issue
Block a user