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

-- mejoras en redimiento al obtener movtosdetalle

Browse Source 
-- mejora visual es
This commit is contained in:
rrene
2023-12-26 09:15:24 -07:00
parent f0f018a364
commit a6b482e307
5 changed files with 56 additions and 72 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
App_Code/ClsInventarios.vb
View File

@@ -974,7 +974,7 @@ Public Class ClsInventarios
Retorno = SqlAdapter.SelectCommand.Parameters("@Folio").Value.ToString.ToEntero
Catch ex As Exception
OnError("Ocurrió un error al obtener los movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
OnError("Ocurrió un error al obtener los folios de movimientos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
@@ -1175,14 +1175,13 @@ Public Class ClsInventarios
Return Retorno
End Function
Public Function GetMovimientosDetalle(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveCompra As Integer = -1, Optional CveMovimientoDetalle As Integer = -1, Optional Resumen As Boolean = False) As Boolean
Public Function GetMovimientosDetalle(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveMovimientoDetalle As Integer = -1, Optional Resumen As Boolean = False) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_MovimientosDetalleGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveCompra", SqlDbType.Int).Value = CveCompra
.Add("@CveMovimientoDetalle", SqlDbType.Int).Value = CveMovimientoDetalle
.Add("@Resumen", SqlDbType.Int).Value = Resumen

20
App_Code/ClsPaginas.vb
View File

@@ -1807,6 +1807,26 @@ Public Class ClsPaginas
Application(AppNombre) = value
End Set
End Property
Property GlobalDTGralCartaPorteConfigAutoTransportes() As DataTable
Get
Dim AppNombre As String = "GetCartaPorteConfigAutoTransportes"
If Application(AppNombre) Is Nothing Then
Using ObjGrales As New ClsGenerales
If ObjGrales.GetCartaPorteConfigAutoTransportes() Then
Application(AppNombre) = ObjGrales.DtResultados
End If
End Using
End If
GlobalDTGralCartaPorteConfigAutoTransportes = DirectCast(Application(AppNombre), DataTable)
End Get
Set(value As DataTable)
Dim AppNombre As String = "GetCartaPorteConfigAutoTransportes"
Application(AppNombre) = value
End Set
End Property
Property GlobalDTAFCaracteristicasOpciones() As DataTable
Get
GlobalDTAFCaracteristicasOpciones = DirectCast(Application("GlobalDTAFCaracteristicasOpciones"), DataTable)

2
Compras/Compras.aspx.vb
View File

@@ -12653,7 +12653,7 @@ Partial Class Compras_Compras
End If
End If
If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa, -1, -1) Then
If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa, -1) Then
For Each drow As DataRow In ObjInventario.DtResultados.Rows
TotalSumaPU = TotalSumaPU + drow("Total").ToString.ToDecimal

19
Inventarios/EntradasSalidas.aspx
View File

@@ -664,7 +664,7 @@
<asp:Button ID="BtnVinculaAFEdit" ClientIDMode="Static" OnClick="BtnVinculaAFEdit_Click" Style="display: none;" runat="server" />
<asp:HiddenField runat="server" ID="HdnCodAFEdit" Value="-1" ClientIDMode="Static" />
<asp:GridView ID="GvM" runat="server" GridLines="none" CssClass="tabla_correcto grides Widthall mysmallbtn" EmptyDataText="Aún no hay registros."
<asp:GridView ID="GvM" runat="server" GridLines="none" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn" EmptyDataText="Aún no hay registros."
DataKeyNames="No,CveMovimientoDetalle,Cantidad,CvePS,CveUM,PU,Observaciones,CodigoPS,UnidadMedida,CveAF,Serie,Lote,FechaCaducidad,CveSeccionAlmacen" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="True" >
<Columns>
<asp:TemplateField HeaderText="" ItemStyle-Font-Size="6pt">
@@ -684,14 +684,13 @@
<ItemTemplate>
<asp:Literal ID="lbCantidad" runat="server" Text='<%# Eval("Cantidad", "{0:#,##0.######}")%>'> </asp:Literal>
</ItemTemplate>
<ItemStyle Width="60px"></ItemStyle>
<ItemStyle Width="60px" HorizontalAlign="Right"></ItemStyle>
</asp:TemplateField>
<asp:BoundField HeaderText="Producto" ReadOnly="true" DataField="CodigoPS" ItemStyle-HorizontalAlign="Left" />
<asp:TemplateField HeaderText="Unidad">
<ItemTemplate>
<asp:Literal ID="lbUnidad" runat="server" Text='<%# Eval("UnidadMedida")%>'></asp:Literal>
</ItemTemplate>
<ItemStyle Width="80px"></ItemStyle>
</asp:TemplateField>
<asp:TemplateField HeaderText="Precio unitario" Visible="false">
<EditItemTemplate>
@@ -749,20 +748,19 @@
<ItemTemplate>
<asp:Literal ID="LitMaq" runat="server" Text='<%# If(Eval("CodigoAF").ToString = "-1", "", Eval("CodigoAF").ToString)%>'></asp:Literal>
</ItemTemplate>
<ItemStyle Width="60px" HorizontalAlign="Center" />
<ItemStyle Width="60px" />
</asp:TemplateField>
<asp:TemplateField HeaderText="Serie" Visible="false">
<ItemTemplate>
<asp:Literal ID="lbSerie" runat="server" Text='<%# Eval("Serie")%>'></asp:Literal>
</ItemTemplate>
<ItemStyle Width="90px" HorizontalAlign="Right"></ItemStyle>
<FooterStyle HorizontalAlign="Right"></FooterStyle>
<ItemStyle></ItemStyle>
</asp:TemplateField>
<asp:TemplateField HeaderText="Lote" Visible="false">
<ItemTemplate>
<asp:Literal ID="LbLote" runat="server" Text='<%# Eval("Lote")%>'></asp:Literal>
</ItemTemplate>
<ItemStyle Width="90px"></ItemStyle>
<ItemStyle ></ItemStyle>
<FooterStyle ></FooterStyle>
</asp:TemplateField>
<%--<asp:BoundField HeaderText="Caducidad" DataField="FechaCaducidad" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false"/>--%>
@@ -781,13 +779,10 @@
<ItemTemplate>
<asp:Literal ID="lblObservaciones" runat="server" Text='<%# Eval("Observaciones")%>'></asp:Literal>
</ItemTemplate>
<ItemStyle Width="120px" ></ItemStyle>
<ItemStyle ></ItemStyle>
</asp:TemplateField>
<asp:TemplateField>
<EditItemTemplate>
<EditItemTemplate>
<div class="row" style="max-width:80px!important">
<div class="col-md-6">
<asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpGV" />

82
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -688,8 +688,6 @@ Partial Class Inventarios_EntradasSalidas
DdlConcepto.Items.Insert(0, New ListItem("Seleccione", "-1"))
End If
CargaPS()
' CargaDdlPaqueteria()
@@ -701,7 +699,7 @@ Partial Class Inventarios_EntradasSalidas
TxtFechaEntrega.Text = NowADS().ToShortDateString
TxtFechaLlegada.Text = NowADS().ToShortDateString
CargarCamiones()
'CargarCamiones()
DdlClienteCarta.setEsWebService(True)
End Sub
@@ -743,15 +741,15 @@ Partial Class Inventarios_EntradasSalidas
TrPersonal.Visible = True
Dim dt As DataTable = Nothing
Dim RH As New ClsRH
'Dim RH As New ClsRH
If RH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
dt = RH.DtResultados
End If
'If RH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
' dt = RH.DtResultados
'End If
RH.Dispose()
'RH.Dispose()
DdlPersonal.DataSource = dt
DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
DdlPersonal.DataBind()
'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub
@@ -5804,38 +5802,28 @@ Partial Class Inventarios_EntradasSalidas
DdlRemolque2.SelectedValueExist(-1)
If DdlConfigAuto.SelectedValue.ToEntero > 0 Then
Dim dtt As DataTable = GlobalDTGralCartaPorteConfigAutoTransportes
Using ObjGrales As New ClsGenerales
If ObjGrales.GetCartaPorteConfigAutoTransportes() Then
Dim Remolque As String = ObjGrales.DtResultados.FiltroPrimeroValor("Remolque", $" CveConfigAutoTransporte ='{DdlConfigAuto.SelectedValue.ToEntero}'")
If Remolque = "1" Then
RequiereRemolque = True
MostrarRemolques = True
End If
If Remolque = "0, 1" Then
RequiereRemolque = False
MostrarRemolques = True
End If
If Remolque = "0" Then
RequiereRemolque = False
MostrarRemolques = False
End If
If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then
Dim Remolque As String = dtt.FiltroPrimeroValor("Remolque", $" CveConfigAutoTransporte ='{DdlConfigAuto.SelectedValue.ToEntero}'")
If Remolque = "1" Then
RequiereRemolque = True
MostrarRemolques = True
End If
End Using
If Remolque = "0, 1" Then
RequiereRemolque = False
MostrarRemolques = True
End If
If Remolque = "0" Then
RequiereRemolque = False
MostrarRemolques = False
End If
End If
Else
RequiereRemolque = False
MostrarRemolques = False
End If
If RequiereRemolque Or MostrarRemolques Then
If RequiereRemolque OrElse MostrarRemolques Then
DvRemolque1.Visible = True
End If
@@ -5844,8 +5832,6 @@ Partial Class Inventarios_EntradasSalidas
Else
DvConfiguracionVeiculo.Visible = True
End If
UpEmitirTransitorio.Update()
End Sub
@@ -5911,30 +5897,14 @@ Partial Class Inventarios_EntradasSalidas
DdlConfigAuto.Items.Clear()
DdlUnidadCamion.Items.Clear()
Using ObjInv As New ClsInventarios
If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 1, Estatus:=1) Then
DdlUnidadCamion.DataSource = ObjInv.DtResultados
End If
If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2, Estatus:=1) Then
DdlRemolque1.DataSource = ObjInv.DtResultados
End If
End Using
DdlUnidadCamion.DataSource = GlobalDTInvCamiones(UsuarioActual.CveEmpresa)
DdlRemolque1.DataSource = GlobalDTInvCamiones(UsuarioActual.CveEmpresa)
DdlUnidadCamion.DataBind()
DdlUnidadCamion.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
DdlRemolque1.DataBind()
DdlRemolque1.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
Using ObjGrales As New ClsGenerales
If ObjGrales.GetCartaPorteConfigAutoTransportes() Then
DdlConfigAuto.DataSource = ObjGrales.DtResultados
End If
End Using
DdlConfigAuto.DataSource = GlobalDTGralCartaPorteConfigAutoTransportes
DdlConfigAuto.DataBind()
DdlConfigAuto.Items.Insert(0, New ListItem("Seleccione una", "-1"))