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

-- cambio. se quitó el filtrado de folio. no se utilizaba

Browse Source
This commit is contained in:
rrene
2023-05-15 16:30:45 -07:00
parent 8ed316edf3
commit fc77bc8d01
2 changed files with 9 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
Inventarios/EntradasSalidas.aspx
View File

@@ -15,7 +15,7 @@
.infomov .col-md-1, .infomov .col-md-2, .infomov .col-md-6 { .infomov .col-md-1, .infomov .col-md-2, .infomov .col-md-6 {
float: left; float: left;
padding-right: 5px; padding-right: 5px;
} }
.infomov .col-md-1 { .infomov .col-md-1 {
@@ -116,47 +116,14 @@
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel runat="server"> <asp:UpdatePanel runat="server">
<ContentTemplate> <ContentTemplate>
<%--FILTROS--%>
<asp:UpdatePanel ID="UPEncabezado" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Panel ID="Panel1" runat="server" DefaultButton="BtnConsultar">
<div class="portlet solid grey-cascade portlet-filter">
<div class="portlet-title portlet-filterT smalltitle" style="min-height: 39px;">
<div class="tools">
<asp:Button ID="BtnConsultar" CssClass="btn btn-default" runat="server" Text="Consultar" />
</div>
<div class="titlefiltros caption ">
<div class="row" style="padding-top: 10px;">
<%--<label class="col-md-1 truncate">Almacén:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlCAlmacen" runat="server" CssClass="form-control input-sm" Style="max-width: 200px" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>
</div>--%>
<label class="col-md-1 truncate">Concepto:</label>
<div class="col-md-3 ">
<asp:DropDownList ID="DdlCConcepto" DataTextField="Concepto" CssClass="form-control input-sm" DataValueField="CveConcepto" runat="server" Style="max-width: 200px"></asp:DropDownList>
</div>
<label class="col-md-1 truncate">Folio:</label>
<div class="col-md-2 ">
<asp:TextBox ID="TxtCFolio" runat="server" Style="max-width: 120px" ></asp:TextBox>
</div>
</div>
</div>
</div>
</div>
</asp:Panel>
</ContentTemplate>
</asp:UpdatePanel>
<br />
<div class="row" style="margin-left: 0px; margin-right: 0px;"> <div class="row" style="margin-left: 0px; margin-right: 0px;">
<asp:UpdatePanel ID="UpGenerales" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpGenerales" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="col-md-8"> <div class="col-md-8">
<div class="portlet smmallpadding light bordered infomov" style="width: 750px"> <div class="portlet xspadding light bordered infomov" style="width: 750px">
<div class="portlet-title"> <div class="portlet-title">
<div class="tools"> <div class="tools">
<a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a> <a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>

33
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -625,11 +625,6 @@ Partial Class Inventarios_EntradasSalidas
DdlConcepto.DataSource = GlobalDTInvConceptos.FiltraParametros(IIf(UsuarioActual.CveEmpresa.Contiene(72, 80, 1), "CveConcepto NOT IN (4,5,10)", "CveConcepto NOT IN (1,2,4,5,8,9,10,12,26,27,29)").ToString) DdlConcepto.DataSource = GlobalDTInvConceptos.FiltraParametros(IIf(UsuarioActual.CveEmpresa.Contiene(72, 80, 1), "CveConcepto NOT IN (4,5,10)", "CveConcepto NOT IN (1,2,4,5,8,9,10,12,26,27,29)").ToString)
DdlConcepto.DataBind() DdlConcepto.DataBind()
'FILTRO
DdlCConcepto.DataSource = GlobalDTInvConceptos.FiltraParametros("CveConcepto NOT IN (4,5)")
DdlCConcepto.DataBind()
'Llenar el dropdownlist de almacén 'Llenar el dropdownlist de almacén
If Not IfNull(Request("CI"), -1).ToString.ToEntero > 0 AndAlso Not IfNull(Request("CveEntregaAlmacen"), -1).ToString.ToEntero > 0 Then If Not IfNull(Request("CI"), -1).ToString.ToEntero > 0 AndAlso Not IfNull(Request("CveEntregaAlmacen"), -1).ToString.ToEntero > 0 Then
DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
@@ -743,11 +738,7 @@ Partial Class Inventarios_EntradasSalidas
#Region " CARGA DATOS " #Region " CARGA DATOS "
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
GvM.EditIndex = -1
LimpiarMovimiento()
CargaDatos(-1, DdlCConcepto.SelectedValue.ToEntero(), TxtCFolio.Text.ToEntero)
End Sub
Private Sub CargaDatos(tCveMovimiento As Integer, Optional pCveConcepto As Integer = -1, Optional pFolio As Integer = -1) Private Sub CargaDatos(tCveMovimiento As Integer, Optional pCveConcepto As Integer = -1, Optional pFolio As Integer = -1)
Dim Mov As New ClsInventarios Dim Mov As New ClsInventarios
DtMovimientos.Clear() DtMovimientos.Clear()
@@ -1163,7 +1154,6 @@ Partial Class Inventarios_EntradasSalidas
UpGenerales.Update() UpGenerales.Update()
UPDatos.Update() UPDatos.Update()
UppGrid.Update() UppGrid.Update()
UPEncabezado.Update()
UpRegistroTipoCambio.Update() UpRegistroTipoCambio.Update()
End Sub End Sub
@@ -1221,7 +1211,7 @@ Partial Class Inventarios_EntradasSalidas
End Sub End Sub
Private Sub CargaCodigoBarras() Private Sub CargaCodigoBarras()
If DdlCConcepto.SelectedValue.ToEntero = 1 Then If DdlConcepto.SelectedValue.ToEntero = 1 Then
DivCodigoBarras.Visible = True DivCodigoBarras.Visible = True
End If End If
End Sub End Sub
@@ -1889,7 +1879,7 @@ Partial Class Inventarios_EntradasSalidas
Dim CveConceptoContable As Integer = 260 Dim CveConceptoContable As Integer = 260
Dim CveClasificacion As Integer = -1 Dim CveClasificacion As Integer = -1
Select Case DdlConcepto.SelectedValue.ToEntero Select Case DdlConcepto.SelectedValue.ToEntero
Case 2 Case 2, 32
CveConceptoContable = 78 CveConceptoContable = 78
EsContabilizable = True EsContabilizable = True
Case 28, 31 Case 28, 31
@@ -1921,10 +1911,10 @@ Partial Class Inventarios_EntradasSalidas
CveClasificacion = drr("CveClasificacion").ToString.ToEntero CveClasificacion = drr("CveClasificacion").ToString.ToEntero
IdCtaContableOtro = drr("IdCuentaCostos").ToString.ToEntero IdCtaContableOtro = drr("IdCuentaCostos").ToString.ToEntero
End If End If
Case Else
CveConceptoContable = 95
End Select End Select
'2-78 '2-78
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAlmacen, tValorInventario, TxtObservaciones.Text.Trim, 68, TxtObservaciones.Text.Trim, TxtFecha.Text.ToDate, idCtaContable, -1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=tValorInventario, CveClasificacion:=CveClasificacion, Contabilizable:=EsContabilizable) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAlmacen, tValorInventario, TxtObservaciones.Text.Trim, 68, TxtObservaciones.Text.Trim, TxtFecha.Text.ToDate, idCtaContable, -1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=tValorInventario, CveClasificacion:=CveClasificacion, Contabilizable:=EsContabilizable) Then
@@ -2121,12 +2111,6 @@ Partial Class Inventarios_EntradasSalidas
End If End If
Alert(Msg.ToString, TipoMensaje.MsgInformacion) Alert(Msg.ToString, TipoMensaje.MsgInformacion)
'Limpia Valores cuando inserta de campos especiales
If UsuarioActual.CveEmpresa = 66 Then
DdlSubProyecto.SelectedValueExist("-1")
UPEncabezado.Update()
End If
UPDatos.Update() UPDatos.Update()
If UsuarioActual.TienePermisoProceso(139) Then If UsuarioActual.TienePermisoProceso(139) Then
@@ -2532,7 +2516,6 @@ Partial Class Inventarios_EntradasSalidas
TxtFolio.Text = Folio.ToString TxtFolio.Text = Folio.ToString
FolioAsignado = Folio FolioAsignado = Folio
UPEncabezado.Update()
End Sub End Sub
Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
ChangeDdlProducto() ChangeDdlProducto()
@@ -3447,8 +3430,6 @@ Partial Class Inventarios_EntradasSalidas
#Region " CONSUMO INTERNO " #Region " CONSUMO INTERNO "
Private Sub ActivaConsumoInterno() Private Sub ActivaConsumoInterno()
EsConsumoInterno = True EsConsumoInterno = True
Panel1.Visible = False
DdlConcepto.Items.Insert(0, New ListItem("Salida por Consumo Interno", "30")) DdlConcepto.Items.Insert(0, New ListItem("Salida por Consumo Interno", "30"))
DdlConcepto.SelectedValue = "30" DdlConcepto.SelectedValue = "30"
DdlAlmacen.AutoPostBack = False DdlAlmacen.AutoPostBack = False
@@ -3928,7 +3909,7 @@ Partial Class Inventarios_EntradasSalidas
ErrorMovInv = True ErrorMovInv = True
End If End If
Else Else
If DdlConcepto.SelectedValue.Contiene("6", "22", "23", "7", "16", "21", "24") Then If DdlConcepto.SelectedValue.Contiene("6", "22", "23", "7", "16", "21", "24", "32") Then
'genero las prepolizas manuales 'genero las prepolizas manuales
Dim tCveConcepto As Integer = 95 Dim tCveConcepto As Integer = 95
Dim CveCuenta As Integer Dim CveCuenta As Integer
@@ -3936,9 +3917,7 @@ Partial Class Inventarios_EntradasSalidas
IdCtaContable = 1 IdCtaContable = 1
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total"), Concepto, tCveConcepto, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveClasificacion:=-1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DtCostos.SUMD("Total"), CveSubProyecto:=-1, CveCuenta:=CveCuenta, Contabilizable:=Contabilizable) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total"), Concepto, tCveConcepto, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveClasificacion:=-1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DtCostos.SUMD("Total"), CveSubProyecto:=-1, CveCuenta:=CveCuenta, Contabilizable:=Contabilizable) Then
ErrorMovInv = True ErrorMovInv = True
End If End If
Else Else
Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero}").ToEntero Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero}").ToEntero