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

Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-04-26 09:26:42 -07:00
parent 8b39c07999 f01d257b24
commit 9e9cd16216
15 changed files with 718 additions and 339 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -1795,21 +1795,13 @@ Partial Class Inventarios_EntradasSalidas
Try
'Para Campos Nuevos AF y OC
Dim SubProyecto As Integer = -1
Dim ActivoFijo As Integer = -1
If UsuarioActual.CveEmpresa = 66 AndAlso (DdlConcepto.SelectedValue.ToEntero = 3 Or DdlConcepto.SelectedValue.ToEntero = 11) Then
SubProyecto = DdlSubProyecto.SelectedValue.ToEntero
ActivoFijo = -1 'HdnCveActivoFijo.Value.ToEntero
ElseIf UsuarioActual.CveEmpresa = 66 AndAlso Not CveMovimiento > 0 Then
SubProyecto = -2
ActivoFijo = -2
End If
'Esto es parte de consumo interno
If DdlActivoFijo.SelectedValue.ToEntero > 0 Then
ActivoFijo = DdlActivoFijo.SelectedValue.ToEntero
End If
Dim tCveSubProyecto As Integer = -1
If DdlSubProyecto.Visible = True AndAlso DdlSubProyecto.SelectedValue.ToEntero > 0 Then tCveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
Dim FechaMovimiento As DateTime = TxtFecha.Text.Replace(",", "").ToDateTime
Dim FechaMovtoStr As String = $"{FechaMovimiento.ToString("yyyy/MM/dd")} {FechaMovimiento.ToString("HH:mm:ss")}"
@@ -1819,16 +1811,12 @@ Partial Class Inventarios_EntradasSalidas
Dim Mensaje As String = ""
'Actualiza Movimiento
If Not ObjInventario.UpdateMovimiento(CveMovimiento, DdlAlmacen.SelectedValue.ToEntero, DdlConcepto.SelectedValue.ToEntero, 1, FechaMovimiento,
TxtFolio.Text.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Guia:=TxtGuia.Text, Observaciones:=TxtObservaciones.Text) Then
TxtFolio.Text.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, tCveSubProyecto, ActivoFijo, Guia:=TxtGuia.Text, Observaciones:=TxtObservaciones.Text) Then
Mensaje = "Error al Actualizar el Movimiento"
ErrorMovInv = True
End If
If Not ErrorMovInv Then
' Actualizo los movimientos
@@ -1951,15 +1939,11 @@ Partial Class Inventarios_EntradasSalidas
If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
Alert(Mensaje, TipoMensaje.MsgError)
End If
'GUARDAR
Else
Dim Fecha As DateTime = FechaMovimiento
Dim CveCliente As Integer = CInt(IIf((DdlClientes.SelectedValue.ToEntero <= 0), -1, DdlClientes.SelectedValue.ToEntero))
Dim CveClienteSucursal As Integer = CInt(IIf((DdlClientesSucursales.SelectedValue.ToEntero <= 0), -1, DdlClientesSucursales.SelectedValue.ToEntero))
'cuando es APH
Dim tFolio As Integer = -1
If UsuarioActual.CveEmpresa = 48 And EsConsumoInterno = False Then tFolio = TxtFolio.Text.ToEntero
@@ -1983,7 +1967,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", CveEntregaAlmacen:=CveEntregaAlmacen)
CveMovimiento = ObjInventario.AddMovimiento(CveAlmacen, DdlConcepto.SelectedValue.ToEntero, 1, Fecha, tFolio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, tCveSubProyecto, 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)
@@ -2069,7 +2053,7 @@ Partial Class Inventarios_EntradasSalidas
Dim TipoMovtoAlmacen As Boolean = False
Dim TipoMovtoOtro As Boolean = True
Dim tCveSubProyecto As Integer = -1
Dim drA2 As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", DdlAlmacen.SelectedValue))
If drA2 IsNot Nothing Then

34
Inventarios/EntregaAlmacenRuta.aspx
View File

@@ -144,29 +144,27 @@
<label for="<%= DdlUnidadCamion.ClientID.ToString()%>"> Unidad:</label>
<i></i>
</div>
<div class="col-md-2 form-group form-md-line-input input-iconright" runat="server" id="DvRemolque1" visible="false">
<label class="col-md-3">Remolque 1:</label>
<div class="col-md-9">
<asp:DropDownList runat="server" ID="DdlRemolque1" AutoPostBack="true" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me" DataValueField="CveCamion" DataTextField="CamionPlaca" ></asp:DropDownList>
</div>
<div class="col-md-1 form-group form-md-line-input input-iconright" runat="server" id="DvRemolque1" visible="false">
<asp:DropDownList runat="server" ID="DdlRemolque1" AutoPostBack="true" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me" DataValueField="CveCamion" DataTextField="CamionPlaca" ></asp:DropDownList>
<label for="<%= DdlRemolque1.ClientID.ToString()%>">Remolque 1:</label>
<i></i>
</div>
<div class="col-md-2 form-group form-md-line-input input-iconright" runat="server" id="DvRemolque2" visible="false">
<label class="col-md-3">Remolque 2:</label>
<div class="col-md-9">
<div class="col-md-1 form-group form-md-line-input input-iconright" runat="server" id="DvRemolque2" visible="false">
<asp:DropDownList runat="server" ID="DdlRemolque2" AutoPostBack="true" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me" DataValueField="CveCamion" DataTextField="CamionPlaca" ></asp:DropDownList>
</div>
<label for="<%= DdlRemolque2.ClientID.ToString()%>">Remolque 1:</label>
<i></i>
</div>
<div class="col-md-2 form-group form-md-line-input input-iconright" runat="server" id="DivDistancia" visible="false">
<label class="col-md-3">Distancia:</label>
<div class="col-md-9">
<asp:TextBox runat="server" ID="TxtDistancia" Width="75px" Text="1" ></asp:TextBox>
</div>
<div class="col-md-1 form-group form-md-line-input input-iconright" runat="server" id="DivDistancia" visible="false">
<asp:TextBox runat="server" ID="TxtDistancia" Width="60px" Text="1" CssClass="form-control" ></asp:TextBox>
<label for="<%= TxtDistancia.ClientID.ToString()%>">Distancia:</label>
<i></i>
</div>
<div class="col-md-2 form-group form-md-line-input input-iconright" runat="server" id="DVDatosEntrega6" visible="false">
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 125px !important;">
<asp:TextBox ID="TxtFechaEntrega" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" Width="80px" ClientIDMode="Static"></asp:TextBox>
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 135px !important;">
<asp:TextBox ID="TxtFechaEntrega" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" Width="85px" ClientIDMode="Static"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton runat="server" ID="ImgFechaEntrega" class="btn default"> <i class="fa fa-calendar"></i> </asp:LinkButton>
</span>
@@ -178,7 +176,7 @@
<i></i>
</div>
</div>
<div class="col-md-2 form-group form-md-line-input input-iconright" runat="server" id="DvCartaPorte2" visible="false">
<div class="col-md-1 form-group form-md-line-input input-iconright" runat="server" id="DvCartaPorte2" visible="false">
<asp:CheckBox ID="ChkEmitirCartaPorte" runat="server" Text="Carta Porte" Checked="true" />
<label for="<%= ChkEmitirCartaPorte.ClientID.ToString()%>"></label>
<i></i>

18
Inventarios/EntregaAlmacenRuta.aspx.cs
View File

@@ -569,8 +569,12 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
DVDatosEntrega4.Visible = mostrar;
//DVDatosEntrega5.Visible = mostrar;
DVDatosEntrega6.Visible = mostrar;
DvRemolque1.Visible = mostrar;
DvRemolque2.Visible = mostrar;
if (!mostrar) //solo ocultarlos
{
DvRemolque1.Visible = mostrar;
DvRemolque2.Visible = mostrar;
}
DivDistancia.Visible = mostrar;
//if (mostrar)
@@ -1093,11 +1097,11 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
//MostrarRemolques = true;
}
//if (Remolque == "0")
//{
// RequiereRemolque = false;
// MostrarRemolques = false;
//}
if (Remolque == "0")
{
DvRemolque1.Visible = false;
DvRemolque2.Visible = false;
}
}
}