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

mejoras en implementación carta porte

Browse Source
This commit is contained in:
rrene
2021-12-12 14:02:44 -07:00
parent 09365748de
commit c4fba42ac0
10 changed files with 195 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -343,8 +343,8 @@ Partial Class Inventarios_EntregaAlmacen
If ObjInventarios.GetSucursalesAlmacenUsuario(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
DdlSubProyectos.DataSource = ObjInventarios.DtResultados
End If
ObjInventarios.Dispose()
Else
ObjInventarios.Dispose()
Else
DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
End If
DdlSubProyectos.DataBind()
@@ -573,14 +573,15 @@ Partial Class Inventarios_EntregaAlmacen
DtDatosDetalleLote = Nothing
CreaDtDetalleLote()
If DtDatos.Rows(0) IsNot Nothing Then
EsDevolucionVenta = DtDatos.Rows(0)("EsDevolucionVenta").ToString().ToEntero()
If DtDatos.Rows(0) IsNot Nothing Then
Dim drE As DataRow = DtDatos.Rows(0)
EsDevolucionVenta = drE("EsDevolucionVenta").ToString().ToEntero()
TipoDocto = DtDatos.Rows(0)("TipoDocto").ToString()
TipoMovimiento = If(TipoDocto.Contiene({"Rem", "Ing", "Ped", "PeC", "Ant"}) And (EsDevolucionVenta = 0 Or CveVentaAD > 0), 1, 2)
LbCliente.Text = DtDatos.Rows(0)("Nombre").ToString()
'LbFolio.Text = DtDatos.Rows(0)("SerieFolio").ToString()
HLFolio.Text = DtDatos.Rows(0)("SerieFolio").ToString()
HLFolio.Text = drE("SerieFolio").ToString()
If UsuarioActual.TienePermisoProceso(201) Then
HLFolio.NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={CveVenta}"
End If
@@ -592,8 +593,10 @@ Partial Class Inventarios_EntregaAlmacen
StrAlmacenes = String.Format("{0} AND NOT (Almacen like '%Domicilio%') ", StrAlmacenes)
End If
trObsGral.Visible = drE("Observaciones").ToString() <> ""
LbObservaciones.Text = DtDatos.Rows(0)("Observaciones").ToString()
LbObservacionesAlmacen.Text = DtDatos.Rows(0)("ObservacionesAlmacen").ToString()
trObsAlmacen.Visible = drE("ObservacionesAlmacen").ToString() <> ""
LbObservacionesAlmacen.Text = drE("ObservacionesAlmacen").ToString()
CveVentaSurtir = CveVenta
CveAlmacenTraspasoDestino = DtDatos.Rows(0)(If(EsDevolucionVenta = 1 And TipoDocto <> "Rem", "CveAlmacenTraspasoOrigen", "CveAlmacenTraspasoDestino")).ToString().ToEntero()
CveAlmacenTraspasoOrigen = DtDatos.Rows(0)(If(EsDevolucionVenta = 1 And TipoDocto <> "Rem", "CveAlmacenTraspasoDestino", "CveAlmacenTraspasoOrigen")).ToString().ToEntero()
@@ -602,8 +605,22 @@ Partial Class Inventarios_EntregaAlmacen
CveCliente = DtDatos.Rows(0)("CveCliente").ToString().ToEntero()
ClienteEntregaPersonal(CveCliente)
CveSubProyecto = DtDatos.Rows(0)("CveSubProyecto").ToString().ToEntero()
EsInterno = CBool(DtDatos.Rows(0)("EsInterno").ToString())
EsInterno = CBool(DtDatos.Rows(0)("EsInterno").ToString())
If drE("CveDireccionEnvio").ToString.ToEntero > 0 Then
trDireccionEnvio.Visible = True
'carga la dirección de envío
Dim ObjClientes As New ClsClientes
If ObjClientes.DireccionEnvioGet(drE("CveDireccionEnvio").ToString.ToEntero, CveCliente, -1) Then
Dim drenvio As DataRow = ObjClientes.DtResultados.FiltroPrimero("")
LblDirEnvio.Text = drenvio("SucursalClienteVentaDireccion").ToString
End If
ObjClientes.Dispose()
Else
trDireccionEnvio.Visible = False
End If
If DtDatos.SUM("CantidadS") <= 0 Then
GvDatos.CssClass = "table table-striped table-hover Widthall ScrollAD gvInventario gvEscondeColumna"
Else