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

-

Browse Source
This commit is contained in:
rrene
2024-02-21 19:10:03 -07:00
parent c3883ec355
commit 4a6457d05d
3 changed files with 25 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -145,6 +145,15 @@ Partial Class Inventarios_EntradasSalidas
ViewState("TieneSalida") = value
End Set
End Property
Public Property CveEntregaAlmacen() As Integer
Get
Return ViewState("CveEntregaAlmacen").ToString.ToEntero
End Get
Set(value As Integer)
ViewState("CveEntregaAlmacen") = value
End Set
End Property
Private Property DtBitacora As DataTable
Get
Return CType(ViewState("DtBitacora"), DataTable)
@@ -471,7 +480,6 @@ Partial Class Inventarios_EntradasSalidas
CargaDatosEntregaAlmacen(Request("CveEntregaAlmacen").ToString.ToEntero)
End If
'BLOQUEA PERMISOS
BtnGuardar.Enabled = PermiteGuardar()
BtnEliminar.Enabled = PermiteEliminar()
@@ -507,7 +515,6 @@ Partial Class Inventarios_EntradasSalidas
'ImgFecha.Visible = True
End If
If CveMovimiento > 0 And CveConcepto.Contiene(8) And UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
ValidaUsaConsola()
End If
@@ -1238,7 +1245,7 @@ Partial Class Inventarios_EntradasSalidas
End Sub
Private Sub CargaDatosEntregaAlmacen(CveEntregaAlmacen As Integer)
Private Sub CargaDatosEntregaAlmacen(tCveEntregaAlmacen As Integer)
'RECARGA ALMACENES SOLO DE recepcion de usados
DdlAlmacen.Items.Clear()
DdlAlmacen.DataBind()
@@ -1254,8 +1261,8 @@ Partial Class Inventarios_EntradasSalidas
Dim ObjGenerales As New ClsGenerales()
If (ObjGenerales.GetEntregaAlmacenRutaDetalle(CveEntregaAlmacen)) Then
If (ObjGenerales.GetEntregaAlmacenRutaDetalle(tCveEntregaAlmacen)) Then
CveEntregaAlmacen = tCveEntregaAlmacen
For Each dr As DataRow In ObjGenerales.DtResultados.Rows
AddNew(dr("CvePS").ToString.ToEntero, dr("CodigoPS").ToString, dr("CveUnidadMedida").ToString.ToEntero, dr("Abreviatura").ToString, dr("Cantidad").ToString.ToDecimal,
0, "", "", "", "", "E", "", MinFecha, 0, "")
@@ -1975,8 +1982,7 @@ Partial Class Inventarios_EntradasSalidas
Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inv/ES", 53, 0, 0, 1, TxtFecha.Text.Replace(",", "").ToDate, obs, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
CveMovimiento = ObjInventario.AddMovimiento(CveAlmacen, DdlConcepto.SelectedValue.ToEntero, 1, Fecha, tFolio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Guia:=TxtGuia.Text, Observaciones:=TxtObservaciones.Text, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, Recibio:=TxtResponsable.Text.Trim, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, DepartamentoEntrega:=TxtDepartamentoEntrega.Text, PedidoContrato:=TxtPedidoContrato.Text, CveProveedor:=tCveProveedor, Modulo:="ES/1")
CveMovimiento = ObjInventario.AddMovimiento(CveAlmacen, DdlConcepto.SelectedValue.ToEntero, 1, Fecha, tFolio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Guia:=TxtGuia.Text, Observaciones:=TxtObservaciones.Text, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, Recibio:=TxtResponsable.Text.Trim, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, DepartamentoEntrega:=TxtDepartamentoEntrega.Text, PedidoContrato:=TxtPedidoContrato.Text, CveProveedor:=tCveProveedor, Modulo:="ES/1", CveEntregaAlmacen:=CveEntregaAlmacen)
If CveMovimiento <= 0 OrElse CvePrePoliza <= 0 Then
Alert("No se pudo almacenar el movimiento correctamente", TipoMensaje.MsgError)

12
Inventarios/RepEntregaAlmacenRuta.aspx
View File

@@ -81,10 +81,20 @@
</div>
<div class="portlet-body" style="display: none;">
<div class="row">
<label class="col-md-1 " id="Label1" runat="server" style="width: 90px; margin-top: 5px;">Chofer:</label>
<label class="col-md-1 " id="Label1" runat="server" >Chofer:</label>
<div class="col-md-2" >
<asp:DropDownList ID="DdlChofer" runat="server" DataTextField="Chofer" DataValueField="CveChofer" CssClass="form-control input-sm select2me" Width="100%" CausesValidation="true"></asp:DropDownList>
</div>
<label class="col-md-1 " id="LblTipo" runat="server">Tipo:</label>
<div class="col-md-2" >
<asp:DropDownList ID="DdlTipo" runat="server" CssClass="form-control input-sm select2me" Width="100%" CausesValidation="true">
<asp:ListItem Value="-1" Text="Todos"></asp:ListItem>
<asp:ListItem Value="T" Text="Traspasos"></asp:ListItem>
<asp:ListItem Value="R" Text="Recolecciones"></asp:ListItem>
<asp:ListItem Value="E" Text="Entregas"></asp:ListItem>
<asp:ListItem Value="I" Text="Ingresos"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
</div>

2
Inventarios/RepEntregaAlmacenRuta.aspx.cs
View File

@@ -345,7 +345,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
{
ClsGenerales ObjGeneral = new ClsGenerales();
if (ObjGeneral.GetInvEntregaAlmacenRutaRep(DdlSucursales.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero(), TxtFechaI.Text.ToDate(), TxtFechaF.Text.ToDate(), DdlChofer.SelectedValue.ToEntero(), UsuarioActual.CveUsuario))
if (ObjGeneral.GetInvEntregaAlmacenRutaRep(DdlSucursales.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero(), TxtFechaI.Text.ToDate(), TxtFechaF.Text.ToDate(), DdlChofer.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, Tipo:DdlTipo.SelectedValue))
{
DTDatos = ObjGeneral.DtResultados;
GVDatos.DataSource = DTDatos;