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

E140, actualizar campos de recoleecion

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-06-22 01:29:59 -07:00
parent d2255c1a54
commit d27cf078d2
3 changed files with 22 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
App_Code/ClsGenerales.vb
View File

@@ -3879,7 +3879,7 @@ Public Class ClsGenerales
Public Function UpdateInvEntregaAlmacenRuta(CveEntregaAlmacen As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer, CveChofer As Integer, CveCamion As Integer, FechaEntrega As Date, CveEmpresa As Integer, Public Function UpdateInvEntregaAlmacenRuta(CveEntregaAlmacen As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer, CveChofer As Integer, CveCamion As Integer, FechaEntrega As Date, CveEmpresa As Integer,
Optional FechaLlegada As DateTime = MinFecha, Optional CveCamionRemolque1 As Integer = -1, Optional CveCamionRemolque2 As Integer = -1, Optional Distancia As Integer = -1, Optional FechaLlegada As DateTime = MinFecha, Optional CveCamionRemolque1 As Integer = -1, Optional CveCamionRemolque2 As Integer = -1, Optional Distancia As Integer = -1,
Optional CveConfigAutoTransporte As Integer = -1) As Boolean Optional CveConfigAutoTransporte As Integer = -1, Optional FolioReferencia As String = "-1", Optional Referencia As String = "-1", Optional CveSubProyecto As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Inv_EntregaAlmacenRutaUpdate") DataAdapter("PA_Inv_EntregaAlmacenRutaUpdate")
@@ -3899,6 +3899,9 @@ Public Class ClsGenerales
.Add("@CveCamionRemolque2", SqlDbType.Int).Value = CveCamionRemolque2 .Add("@CveCamionRemolque2", SqlDbType.Int).Value = CveCamionRemolque2
.Add("@Distancia", SqlDbType.Int).Value = Distancia .Add("@Distancia", SqlDbType.Int).Value = Distancia
.Add("@CveConfigAutoTransporte", SqlDbType.Int).Value = CveConfigAutoTransporte .Add("@CveConfigAutoTransporte", SqlDbType.Int).Value = CveConfigAutoTransporte
.Add("@FolioReferencia", SqlDbType.VarChar).Value = FolioReferencia
.Add("@Referencia", SqlDbType.VarChar).Value = Referencia
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
End With End With

2
Inventarios/EntregaAlmacenRuta.aspx
View File

@@ -355,7 +355,7 @@
<asp:GridView ID="gvR" runat="server" AutoGenerateColumns="False" OnRowDataBound="gvR_RowDataBound" <asp:GridView ID="gvR" runat="server" AutoGenerateColumns="False" OnRowDataBound="gvR_RowDataBound"
DataKeyNames="CveEntregaAlmacen,Orden,CveDireccionOrigen,CveSubProyecto,Estatus,CveTimbre" DataKeyNames="CveEntregaAlmacen,Orden,CveDireccionOrigen,CveSubProyecto,Estatus,CveTimbre,CveCliente,FolioReferencia,Referencia"
EmptyDataText="No se encontraron registros" EmptyDataText="No se encontraron registros"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
data-sort="true" data-sort="true"

21
Inventarios/EntregaAlmacenRuta.aspx.cs
View File

@@ -738,12 +738,14 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
CveEntregaAlmacen = GvRow.DataKey("CveEntregaAlmacen").ToEntero(); CveEntregaAlmacen = GvRow.DataKey("CveEntregaAlmacen").ToEntero();
int CveDireccionOrigen = GvRow.DataKey("CveDireccionOrigen").ToEntero(); int CveDireccionOrigen = GvRow.DataKey("CveDireccionOrigen").ToEntero();
int CveClienteEnvio = -1; int CveClienteEnvio = -1;
string NombreCliente = "";
ClsClientes ObjClientes = new ClsClientes(); ClsClientes ObjClientes = new ClsClientes();
DataTable DtTempDirecciones = new DataTable(); DataTable DtTempDirecciones = new DataTable();
if (ObjClientes.DireccionEnvioGet(CveDireccionOrigen, -1, -1)) if (ObjClientes.DireccionEnvioGet(CveDireccionOrigen, -1, -1))
{ {
CveClienteEnvio = ObjClientes.DtResultados.FiltroPrimeroValor("CveCliente").ToEntero(); CveClienteEnvio = ObjClientes.DtResultados.FiltroPrimeroValor("CveCliente").ToEntero();
NombreCliente = ObjClientes.DtResultados.FiltroPrimeroValor("NombreCliente");
if (ObjClientes.DireccionEnvioGet(-1, CveClienteEnvio, -1)) if (ObjClientes.DireccionEnvioGet(-1, CveClienteEnvio, -1))
{ {
@@ -756,8 +758,12 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
DdlmodalRecoleccionDireccion.Items.Add(new ListItem("Seleccione una", "-1")); DdlmodalRecoleccionDireccion.Items.Add(new ListItem("Seleccione una", "-1"));
DdlmodalRecoleccionDireccion.SelectedValueExist(CveDireccionOrigen); DdlmodalRecoleccionDireccion.SelectedValueExist(CveDireccionOrigen);
//DdlModalRecoleccionCliente.SelectedValueExist(CveClienteEnvio); DdlModalRecoleccionCliente.SelectedValue = CveClienteEnvio.ToString();
DdlModalRecoleccionCliente.SelectedText = NombreCliente;
DdlSubProyectoRecoleccion.SelectedValueExist(GvRow.DataKey("CveSubProyecto"));
TxtFolioReferencia.Text = GvRow.DataKey("FolioReferencia");
TxtReferencia.Text = GvRow.DataKey("Referencia");
CargaDatosRecoleccionDetallePS(); CargaDatosRecoleccionDetallePS();
@@ -778,7 +784,14 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
DdlModalRecoleccionUnidad.Items.Clear(); DdlModalRecoleccionUnidad.Items.Clear();
DdlModalRecoleccionUnidad.Items.Add(new ListItem("Seleccione una", "-1")); DdlModalRecoleccionUnidad.Items.Add(new ListItem("Seleccione una", "-1"));
DdlProducto2.txtValue.Value = ""; DdlProducto2.txtValue.Value = "";
DdlProducto2.txtText.Value = ""; DdlProducto2.txtText.Value = "";
DdlSubProyectoRecoleccion.SelectedValueExist("-1");
DdlModalRecoleccionCliente.SelectedValue = "-1";
DdlModalRecoleccionCliente.SelectedText = "Seleccione";
TxtFolioReferencia.Text = "";
TxtReferencia.Text = "";
DTRecoleccion.Rows.Clear(); DTRecoleccion.Rows.Clear();
GvModalPSRecoleccion.DataSource = DTRecoleccion; GvModalPSRecoleccion.DataSource = DTRecoleccion;
@@ -843,7 +856,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
} }
else else
{ {
ProcesoOK = ObjGenerales.UpdateInvEntregaAlmacenRuta(CveEntregaAlmacen, DdlmodalRecoleccionDireccion.SelectedValue.ToEntero(), -1, DdlChofer.SelectedValue.ToEntero(), DdlUnidadCamion.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveEmpresa); ProcesoOK = ObjGenerales.UpdateInvEntregaAlmacenRuta(CveEntregaAlmacen, DdlmodalRecoleccionDireccion.SelectedValue.ToEntero(), -1, DdlChoferRec.SelectedValue.ToEntero(), DdlUnidadRec.SelectedValue.ToEntero(), TxtFechaEntrega.Text.ToDate(), UsuarioActual.CveEmpresa,FolioReferencia:TxtFolioReferencia.Text,Referencia: TxtReferencia.Text,CveSubProyecto: DdlSubProyectoRecoleccion.SelectedValue.ToEntero());
} }
if (ProcesoOK) if (ProcesoOK)