Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
@@ -366,6 +366,51 @@
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<div class="portlet light xspadding bordered" id="PtlProveedor">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Proveedores</span>
|
||||
</div>
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="collapse"></a>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body">
|
||||
<asp:UpdatePanel ID="UpProveedor" UpdateMode="Conditional" runat="server">
|
||||
<ContentTemplate>
|
||||
<div class="row">
|
||||
<div class="col-md-10">
|
||||
<label for="<%= DdlProveedor.ClientID.ToString()%>">Proveedor:</label>
|
||||
<ADS:Dropdownlost ID="DdlProveedor" CssStyle="width: 95%;" runat="server" DataTextField="RazonSocial" DataValueField="CveProveedor" >
|
||||
</ADS:Dropdownlost>
|
||||
</div>
|
||||
<div class="col-md-2" style="margin-top:20px;">
|
||||
<asp:Button for="DdlProveedor" ID="BtnAgregarProveedor" runat="server" CssClass="btn btn-primary btn-sm" Text="+" />
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<asp:GridView ID="GvProveedor" runat="server" GridLines="None" DataKeyNames="CveProveedor,RazonSocial" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn ADSCroll" Width="100%" AutoGenerateColumns="False" ToolTip="Listado de Clasificaciones" >
|
||||
<Columns>
|
||||
<asp:BoundField DataField="RazonSocial" HeaderText="Proveedor" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Comandos">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" OnClick="DeleteProveedor_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="modal-footer">
|
||||
<asp:UpdatePanel ID="UpFooter" runat="server" UpdateMode="Conditional">
|
||||
|
||||
@@ -24,6 +24,14 @@ Partial Class Inventarios_InventarioFisico
|
||||
ViewState("tDTClasif") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property tDTProv As DataTable
|
||||
Get
|
||||
Return If(IsNothing(ViewState("tDTProv")), Nothing, CType(ViewState("tDTProv"), DataTable))
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
ViewState("tDTProv") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property tDTClasifExcluye As DataTable
|
||||
Get
|
||||
Return If(IsNothing(ViewState("tDTClasifExcluye")), Nothing, CType(ViewState("tDTClasifExcluye"), DataTable))
|
||||
@@ -67,11 +75,13 @@ Partial Class Inventarios_InventarioFisico
|
||||
If Not IsPostBack Then
|
||||
CargaDdlSubProyectos()
|
||||
CargaDdlClasificacion()
|
||||
CargDdlProveedor()
|
||||
CargaDdlProductosServicios()
|
||||
CargDdlAlmacen()
|
||||
CreaTmpClasificaciones()
|
||||
CreaTmpProductosServicios()
|
||||
CreaTmpAlmacen()
|
||||
CreaTmpProveedores()
|
||||
CargaDatos(UsuarioActual.CveEmpresa)
|
||||
|
||||
End If
|
||||
@@ -125,6 +135,16 @@ Partial Class Inventarios_InventarioFisico
|
||||
UpProductosServicios.Update()
|
||||
UPPPSExcluye.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaGvProveedores()
|
||||
Dim ObjInventario As New ClsInventarios()
|
||||
If ObjInventario.GetInventarioFisicoDetallesProveedores(HdnID.Value, UsuarioActual.CveEmpresa) Then
|
||||
GvProveedor.DataSource = ObjInventario.DtResultados.FiltraParametros("Incluye = 1")
|
||||
End If
|
||||
ObjInventario.Dispose()
|
||||
GvProveedor.DataBind()
|
||||
UpProveedor.Update()
|
||||
End Sub
|
||||
Private Sub CargaDdlSubProyectos()
|
||||
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
|
||||
CargarCentrosDeCosto(Nothing, DdlFiltroSubProyecto, Nothing, LblFiltroSubProyecto)
|
||||
@@ -153,6 +173,25 @@ Partial Class Inventarios_InventarioFisico
|
||||
DdlAlmacen.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargDdlProveedor()
|
||||
|
||||
If (UsuarioActual.Empresa.Funcionalidad(105) = "1") Then
|
||||
DdlProveedor.setEsWebService(True)
|
||||
DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
|
||||
DdlProveedor.SelectedText = "Todos"
|
||||
DdlProveedor.SelectedValue = "-1"
|
||||
Else
|
||||
DdlProveedor.setEsWebService(False)
|
||||
DdlProveedor.ddl.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
|
||||
DdlProveedor.ddl.DataBind()
|
||||
DdlProveedor.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "PRODUCTOS SERVICIOS"
|
||||
@@ -287,6 +326,41 @@ Partial Class Inventarios_InventarioFisico
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "PROVEEDORES"
|
||||
Private Sub BtnAgregarProveedor_Click(sender As Object, e As EventArgs) Handles BtnAgregarProveedor.Click
|
||||
If DdlProveedor.SelectedValue = -1 Then
|
||||
Alert("Tienes seleccionada la opcion 'Todos'.", TipoMensaje.MsgInformacion)
|
||||
GvPS.DataSource = Nothing
|
||||
GvPS.DataBind()
|
||||
tDTPS.Rows.Clear()
|
||||
Else
|
||||
Dim Row As DataRow = Nothing
|
||||
Row = tDTProv.NewRow
|
||||
Row("CveProveedor") = DdlProveedor.SelectedValue.ToEntero
|
||||
Row("RazonSocial") = DdlProveedor.SelectedText
|
||||
tDTProv.Rows.Add(Row)
|
||||
GvProveedor.DataSource = tDTProv
|
||||
GvProveedor.DataBind()
|
||||
UpProveedor.Update()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CreaTmpProveedores()
|
||||
tDTProv = New DataTable
|
||||
tDTProv.Columns.Add("CveProveedor", GetType(Integer))
|
||||
tDTProv.Columns.Add("RazonSocial", GetType(String))
|
||||
tDTProv.Columns.Add("Incluye", GetType(Integer))
|
||||
End Sub
|
||||
|
||||
Protected Sub DeleteProveedor_Click(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
tDTProv.Rows(GvRow.RowIndex.ToEntero).Delete()
|
||||
GvProveedor.DataSource = tDTProv
|
||||
GvProveedor.DataBind()
|
||||
UpProveedor.Update()
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region "INVENTARIO FISICO"
|
||||
Public Sub Delete_Click(sender As Object, e As EventArgs)
|
||||
Dim ObjInventario As New ClsInventarios()
|
||||
@@ -304,6 +378,12 @@ Partial Class Inventarios_InventarioFisico
|
||||
|
||||
Public Sub Edit_Click(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
DdlProductosServicios.ddl.SelectedValueExist(-1)
|
||||
DdlProveedor.ddl.SelectedValueExist(-1)
|
||||
DdlPSExcluye.ddl.SelectedValueExist(-1)
|
||||
DdlClasificacion.SelectedValueExist(-1)
|
||||
DdlClasificacionExcluida.SelectedValueExist(-1)
|
||||
|
||||
tDTClasif.Rows.Clear()
|
||||
tDTClasifExcluye.Rows.Clear()
|
||||
tDTPS.Rows.Clear()
|
||||
@@ -330,10 +410,12 @@ Partial Class Inventarios_InventarioFisico
|
||||
CargaGvAlmacen()
|
||||
CargaGvClasificacion()
|
||||
CargaGvProductosServicios()
|
||||
CargaGvProveedores()
|
||||
tDTClasif = GvClasificacion.DataSource
|
||||
tDTClasifExcluye = GvClasificacionExcluida.DataSource
|
||||
tDTPS = GvPS.DataSource
|
||||
tDTPSExcluye = GvPSExcluye.DataSource
|
||||
tDTProv = GvProveedor.DataSource
|
||||
tALM = GvAlmacen.DataSource
|
||||
UpAddInventarioFisico.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal('show');", "divAddInventarioFisico"))
|
||||
@@ -351,8 +433,16 @@ Partial Class Inventarios_InventarioFisico
|
||||
tDTPSExcluye.Rows.Clear()
|
||||
tDTClasifExcluye.Rows.Clear()
|
||||
tALM.Rows.Clear()
|
||||
tDTProv.Rows.Clear()
|
||||
End If
|
||||
|
||||
DdlProductosServicios.ddl.SelectedValueExist(-1)
|
||||
DdlPSExcluye.ddl.SelectedValueExist(-1)
|
||||
DdlProveedor.ddl.SelectedValueExist(-1)
|
||||
|
||||
DdlClasificacion.SelectedValueExist(-1)
|
||||
DdlClasificacionExcluida.SelectedValueExist(-1)
|
||||
|
||||
HdnModalidad.Value = "A"
|
||||
UppInventarioFisico.Update()
|
||||
BtnAgregarInventarioFisico.Text = "Agregar"
|
||||
@@ -369,6 +459,8 @@ Partial Class Inventarios_InventarioFisico
|
||||
GvPS.DataBind()
|
||||
GvPSExcluye.DataSource = Nothing
|
||||
GvPSExcluye.DataBind()
|
||||
GvProveedor.DataSource = Nothing
|
||||
GvProveedor.DataBind()
|
||||
UpAddInventarioFisico.Update()
|
||||
RegistraScript("$('#divAddInventarioFisico').modal('show');")
|
||||
|
||||
@@ -422,6 +514,16 @@ Partial Class Inventarios_InventarioFisico
|
||||
Next
|
||||
End If
|
||||
|
||||
If ErrorClasif = False Then
|
||||
For Each Gvr As GridViewRow In GvProveedor.Rows
|
||||
If Not ObjInventario.AddInventarioFisicoProveedores(HdnID.Value, Gvr.DataKey("CveProveedor").ToEntero, True) Then
|
||||
ErrorClasif = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
If ErrorClasif = False And CveInventarioFisico > 0 Then
|
||||
ObjInventario.Commit()
|
||||
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
|
||||
@@ -450,6 +552,10 @@ Partial Class Inventarios_InventarioFisico
|
||||
ErrorClasif = True
|
||||
End If
|
||||
|
||||
If Not ObjInventario.RemoveInventarioFisicoProveedores(HdnID.Value) Then
|
||||
ErrorClasif = True
|
||||
End If
|
||||
|
||||
If ErrorClasif = False Then
|
||||
For Each Gvr As GridViewRow In GvAlmacen.Rows
|
||||
If Not ObjInventario.AddInventarioFisicoAlmacenes(HdnID.Value, Gvr.DataKey("CveAlmacen").ToEntero) Then
|
||||
@@ -490,6 +596,16 @@ Partial Class Inventarios_InventarioFisico
|
||||
Next
|
||||
End If
|
||||
|
||||
If ErrorClasif = False Then
|
||||
For Each Gvr As GridViewRow In GvProveedor.Rows
|
||||
If Not ObjInventario.AddInventarioFisicoProveedores(HdnID.Value, Gvr.DataKey("CveProveedor").ToEntero, True) Then
|
||||
ErrorClasif = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
|
||||
If ErrorClasif = False And HdnID.Value > 0 Then
|
||||
ObjInventario.Commit()
|
||||
|
||||
@@ -184,6 +184,10 @@
|
||||
<label><b>Productos Excluidos:</b></label> <asp:Label ID="LblProductosExcluidos" runat="server" Text=""></asp:Label>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td colspan="3"> <label><b>Proveedores:</b></label> <asp:Label ID="LblProveedores" runat="server" Text="Todos"></asp:Label>
|
||||
</td>
|
||||
</tr>
|
||||
</table>
|
||||
<table>
|
||||
<tr>
|
||||
|
||||
@@ -190,6 +190,20 @@ Partial Class Inventarios_InventarioFisicoDetalle
|
||||
LblProductosExcluidos.Text = str.ToString
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If ObjInventario.GetInventarioFisicoDetallesProveedores(CveInventarioFisico, UsuarioActual.CveEmpresa) Then
|
||||
Dim dt As DataTable = ObjInventario.DtResultados
|
||||
Dim str As New StringBuilder
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
|
||||
For Each dr As DataRow In dt.FiltraParametros("Incluye = 1").Rows
|
||||
str.AppendFormat("{0},", dr("RazonSocial"))
|
||||
Next
|
||||
LblProveedores.Text = str.ToString
|
||||
str.Clear()
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If ObjInventario.GetInventarioFisicoDetalle(CveInventarioFisico, CveUsuario) Then
|
||||
|
||||
@@ -167,6 +167,9 @@
|
||||
<label><b>Productos Excluidos:</b></label> <asp:Label ID="LblProductosExcluidos" runat="server" Text=""></asp:Label>
|
||||
</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td colspan="3"> <label><b>Proveedores:</b></label> <asp:Label ID="LblProveedores" runat="server" Text="Todos"></asp:Label></td>
|
||||
</tr>
|
||||
</table>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -132,6 +132,19 @@ Partial Class Inventarios_RepAnomalias
|
||||
End If
|
||||
|
||||
End If
|
||||
If Inventario.GetInventarioFisicoDetallesProveedores(CveInventarioFisico, UsuarioActual.CveEmpresa) Then
|
||||
Dim dta As DataTable = Inventario.DtResultados
|
||||
Dim str As New StringBuilder
|
||||
If dta IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
|
||||
For Each dr As DataRow In dta.FiltraParametros("Incluye = 1").Rows
|
||||
str.AppendFormat("{0},", dr("RazonSocial"))
|
||||
Next
|
||||
LblProveedores.Text = str.ToString
|
||||
str.Clear()
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
Inventario.Dispose()
|
||||
|
||||
|
||||
Reference in New Issue
Block a user