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,
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
DataAdapter("PA_Inv_EntregaAlmacenRutaUpdate")
@@ -3899,6 +3899,9 @@ Public Class ClsGenerales
.Add("@CveCamionRemolque2", SqlDbType.Int).Value = CveCamionRemolque2
.Add("@Distancia", SqlDbType.Int).Value = Distancia
.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

2
Inventarios/EntregaAlmacenRuta.aspx
View File

@@ -355,7 +355,7 @@
<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"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
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();
int CveDireccionOrigen = GvRow.DataKey("CveDireccionOrigen").ToEntero();
int CveClienteEnvio = -1;
string NombreCliente = "";
ClsClientes ObjClientes = new ClsClientes();
DataTable DtTempDirecciones = new DataTable();
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))
{
@@ -756,8 +758,12 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
DdlmodalRecoleccionDireccion.Items.Add(new ListItem("Seleccione una", "-1"));
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();
@@ -778,7 +784,14 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
DdlModalRecoleccionUnidad.Items.Clear();
DdlModalRecoleccionUnidad.Items.Add(new ListItem("Seleccione una", "-1"));
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();
GvModalPSRecoleccion.DataSource = DTRecoleccion;
@@ -843,7 +856,7 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
}
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)