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

-- ver el vendedor.

Browse Source
This commit is contained in:
rrene
2024-11-05 09:12:34 -07:00
parent 544c91531f
commit f22a1424fb
2 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Inventarios/EntregaAlmacen.aspx
View File

@@ -144,7 +144,7 @@
<td> <td>
<asp:LinkButton ID="BtnArchivoAdjunto" runat="server" Visible="false" Text="" Font-Size="14px" /> <asp:LinkButton ID="BtnArchivoAdjunto" runat="server" Visible="false" Text="" Font-Size="14px" />
<div class="row" id="divUsuarioRegistra" runat="server" visible="false"> <div class="row" id="divUsuarioRegistra" runat="server" visible="false">
<div class="col-md-2">Registró:</div> <div class="col-md-2" > <asp:Literal ID="LtlRegistro" runat="server" Text="Registró:"></asp:Literal></div>
<div class="col-md-6"> <div class="col-md-6">
<asp:Literal ID="LtlRegistra" runat="server"></asp:Literal></div> <asp:Literal ID="LtlRegistra" runat="server"></asp:Literal></div>
</div> </div>

9
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -689,6 +689,15 @@ Partial Class Inventarios_EntregaAlmacen
HLFolio.NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={CveVenta}" HLFolio.NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={CveVenta}"
End If End If
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then '' pendiente de mejorar
LtlRegistro.Text = "Vendedor:"
Dim objV As New ClsVentas
If objV.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then
LtlRegistra.Text = objV.DtResultados.FiltroPrimeroValor("VendedorNombre")
End If
objV.Dispose()
End If
'filtra los Almacenes de domicilio 'filtra los Almacenes de domicilio
If DtDatos.Rows(0)("ServicioDomicilio").ToString() = "True" Then If DtDatos.Rows(0)("ServicioDomicilio").ToString() = "True" Then
StrAlmacenes = "CveTipoAlmacen = 29" StrAlmacenes = "CveTipoAlmacen = 29"