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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
caudillochon
2025-02-13 02:44:42 -07:00
parent 265f59cbbd d642a1c3dd
commit 94c30f5a81
121 changed files with 20272 additions and 10578 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
Inventarios/CartaPorteManual.aspx.vb
View File

@@ -195,7 +195,9 @@ Partial Class Inventarios_CartaPorteManual
TxtFecha.Text = NowADS().ToShortDateString
CEFecha.EndDate = NowADS().AddDays(-1)
RVFecha.MaximumValue = NowADS().ToShortDateString
Folio = 0
CargaCombos()
CreaDT()
@@ -220,6 +222,7 @@ Partial Class Inventarios_CartaPorteManual
End If
'If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
' TxtFecha.Enabled = False
@@ -230,6 +233,7 @@ Partial Class Inventarios_CartaPorteManual
End Sub
#Region "CARGA DATOS"
Protected Sub CreaDT()
Dim dt As New DataTable
@@ -243,6 +247,8 @@ Partial Class Inventarios_CartaPorteManual
dt.Columns.Add(column)
dt.Columns.Add("Cantidad", Type.GetType("System.Double"))
dt.Columns.Add("CveUM", Type.GetType("System.Int32"))
dt.Columns.Add("UnidadMedida")
@@ -259,6 +265,8 @@ Partial Class Inventarios_CartaPorteManual
dt.Columns.Add("Lote")
dt.Columns.Add("FechaCaducidad", Type.GetType("System.DateTime"))
dt.Columns.Add("CveClasificacion", Type.GetType("System.Int32"))
dt.Columns.Add("EstatusExistencia")
@@ -277,10 +285,14 @@ Partial Class Inventarios_CartaPorteManual
dt.Columns.Add("Embalaje")
dt.Columns.Add("PesoKg", Type.GetType("System.Decimal"))
DtMovimientos = dt
CargaGvDatos()
End Sub
Private Sub CargaCombos()
'CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, AplicaTodos:="")
@@ -295,12 +307,17 @@ Partial Class Inventarios_CartaPorteManual
' TxtFechaEntrega.Text = NowADS().ToShortDateString
TxtFechaLlegada.Text = NowADS().ToShortDateString
CargaPS()
CargarCamiones()
End Sub
Private Sub CargaPS()
Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
DdlProducto2.setEsWebService(EsWS)
@@ -311,12 +328,12 @@ Partial Class Inventarios_CartaPorteManual
DdlProducto2.ddlWS.Attributes.Add("Data-onresult", "CargaExistenciaAlmacenes")
End If
Else
DdlProducto2.ddl.Items.Clear()
'Objeto.ddl.DataSource = GlobalDTProductosServicios(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion, AplicaParaVenta:=1, Estatus:=1)
DdlProducto2.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=-1, Estatus:=1, AplicaParaVenta:=-1)
DdlProducto2.ddl.DataBind()
DdlProducto2.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
Else
DdlProducto2.ddl.Items.Clear()
'Objeto.ddl.DataSource = GlobalDTProductosServicios(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion, AplicaParaVenta:=1, Estatus:=1)
DdlProducto2.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=-1, Estatus:=1, AplicaParaVenta:=-1)
DdlProducto2.ddl.DataBind()
DdlProducto2.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
End If
End Sub

12
Inventarios/EntradasSalidas.aspx
View File

@@ -1165,8 +1165,8 @@
<ajax:ValidatorCalloutExtender ID="VCFechaInvFormat" runat="server" HighlightCssClass="vco" TargetControlID="CvFechaInv" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
</div>
<div class="col-md-6" style="text-align: center;">
</div>
<div class="col-md-6" style="text-align: center;">
<asp:Button ID="BtnModalExcelAjuste" runat="server" Visible="false" CssClass="btn btn-primary" data-toggle="modal" data-target="#DivCargaAjuste" Text="Cargar Excel Ajuste" />
</div>
</div>
@@ -1866,16 +1866,16 @@
<div class="modal-footer">
<div class="row">
<div class="col-md-10" style="text-align: right">
<asp:LinkButton ID="LnkDescargaFormato" runat="server" CssClass="btn btn-warning" OnClick="LnkDescargaFormato_Click" ><i class="fa fa-download" aria-hidden="true" ></i> Descargar Formato</asp:LinkButton>
<asp:LinkButton ID="LnkDescargaFormato" runat="server" CssClass="btn btn-warning" OnClick="LnkDescargaFormato_Click" ><i class="fa fa-download" aria-hidden="true" ></i> Descargar Formato</asp:LinkButton>
<asp:Button ID="BtnCargaExcelAjuste" runat="server" CssClass="btn btn-success" Text="Aceptar" OnClick="BtnCargaExcelAjuste_Click"></asp:Button>
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</div>
</div>
</div>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LnkDescargaFormato" />
</Triggers>
<Triggers>
<asp:PostBackTrigger ControlID="LnkDescargaFormato" />
</Triggers>
</asp:UpdatePanel>
</div>
</div>

9
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -2306,6 +2306,15 @@ Partial Class Inventarios_EntradasSalidas
End If
End If
'REPLICAR MOVTO EN EMPRESA
If Not ErrorMovInv Then
If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimiento > 0 Then
If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimiento) Then
ErrorMovInv = True
End If
End If
End If
If Not ErrorAC And Not ErrorMovInv Then
Dim Msg As New StringBuilder

9
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -3380,6 +3380,15 @@ Partial Class Inventarios_EntregaAlmacen
End If
End If
If Not ErrorMovInv Then
'REPLICAR MOVTO GENERADO
If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimiento > 0 Then
If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimiento) Then
ErrorMovInv = True
End If
End If
End If
If Not ErrorMovInv Then
ObjInventario.Commit()

10
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -2842,6 +2842,16 @@ Partial Class Inventarios_RecepcionAlmacen
'Next
End If
If Not ErrorMovInv Then
'REPLICAR MOVTO GENERADO
If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimiento > 0 Then
If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimiento) Then
ErrorMovInv = True
End If
End If
End If
Else
ErrorMovInv = True
End If

3
Inventarios/RepAlmacenCompras.aspx.vb
View File

@@ -33,8 +33,7 @@ Partial Class Inventarios_RepAlmacenCompras
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyecto)
CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyecto)
CargaDatos()
CargaPermisos()
End If

31
Inventarios/RepEntregaAlmacenRuta.aspx.cs
View File

@@ -1039,17 +1039,21 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
public void EditDireccionOrigen_Click(object sender, EventArgs e)
{
this.CveDireccionEditar = this.CveDireccionOrigen;
LblTitulodireccion.Text = "Actualizar dirección 'origen'";
//GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
//int CveDireccionOrigen = GvRow.DataKey("CveDireccionOrigen").ToEntero();
CveDireccionEditar = CveDireccionOrigen;
//CveCliente = GvRow.DataKey("CveCliente").ToEntero();
LblTitulodireccion.Text = "Actualizar dirección origen";
CargaDatosDireccion(CveDireccionOrigen);
}
public void EditDireccionDestino_Click(object sender, EventArgs e)
{
this.CveDireccionEditar = this.CveDireccionDestino;
LblTitulodireccion.Text = "Actualizar dirección 'destino'";
//GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
//LblTitulodireccion.Text = "Actualizar dirección destino";
//int CveDireccionDestino = GvRow.DataKey("CveDireccionDestino").ToEntero();
CveDireccionEditar = CveDireccionDestino;
LblTitulodireccion.Text = "Actualizar dirección Destino";
CargaDatosDireccion(CveDireccionDestino);
}
@@ -1078,19 +1082,15 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
CveCliente = DT.Rows[0]["CveCliente"].ToString().ToEntero();
DdlDirClientePais.SelectedValueExist(DT.Rows[0]["CvePais"].ToString());
CargaDirClienteEstado();
DdlDirClienteEstado.SelectedValueExistInsert(DT.Rows[0]["CveEstado"].ToString(), DT.Rows[0]["NombreEstado"].ToString());
DdlDirClienteEstado.SelectedValueExist(DT.Rows[0]["CveEstado"].ToString());
CargaDirClienteMunicipio();
DdlDirClienteMunicipio.SelectedValueExistInsert(DT.Rows[0]["CveMunicipio"].ToString(), DT.Rows[0]["NombreMunicipio"].ToString());
DdlDirClienteMunicipio.SelectedValueExist(DT.Rows[0]["CveMunicipio"].ToString());
CargaDirClienteColonia();
DdlDirClienteColonia.SelectedValueExist(DT.Rows[0]["CveColonia"].ToString());
DdlDirClienteLocalidad.SelectedValueExist(DT.Rows[0]["CveLocalidad"].ToString());
CargaDirClienteLocalidad();
DdlDirClienteLocalidad.SelectedValueExistInsert(DT.Rows[0]["CveLocalidad"].ToString(),DT.Rows[0]["NombreLocalidad"].ToString());
DdlDirClienteColonia.SelectedValueExist(DT.Rows[0]["CveColonia"].ToString());
}
UpModalDVDireccionEnvio.Update();
@@ -1118,7 +1118,6 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
{
Alert("Dirección actualizada correctamente.");
RegistraScript("$('#divAddDireccionEnvio').modal('hide');");
this.CveDireccionEditar = -1;
CargaDatos();
}

6
Inventarios/RepNotasSinAlmacen.aspx.vb
View File

@@ -284,7 +284,7 @@ Partial Class RepNotasSinAlmacen
e.Row.CssClass = "Totales"
e.Row.Cells(0).Text = "<a class=""Texto"" href=""/Compras/Compras.aspx?CveCompra=" & e.Row.DBCampo("CveCompra") & """>" & e.Row.DBCampo("SerieFolio") & "</a>"
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
e.Row.Cells(1).Text = e.Row.DBCampo("Fecha").ToDate.ToShortDateString
e.Row.Cells(1).Text = e.Row.DBCampo("Fecha").ToDate.ToShortDateString
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center
e.Row.Cells(2).Text = "<a class=""Texto"" href=""/Compras/Proveedores.aspx?CveProveedor=" & e.Row.DBCampo("CveProveedor") & """>" & e.Row.DBCampo("RazonSocial") & "</a>"
e.Row.FCLinkButton("lnkAccion").Visible = False
@@ -328,8 +328,8 @@ Partial Class RepNotasSinAlmacen
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then ' es empresa hospitalaria
e.Row.Cells(2).Text = $"<div style='display:none'>{e.Row.DBCampo("Fecha").ToDateTime.ToString("dd/MM/yyyy")}</div> {e.Row.DBCampo("Fecha").ToDateTime.ToString("dd/MM/yyyy HH:mm")}"
Else
e.Row.Cells(2).Text = $"{e.Row.DBCampo("Fecha").ToDateTime.ToString("dd/MM/yyyy HH:mm:ss")}"
Else
e.Row.Cells(2).Text = $"{e.Row.DBCampo("Fecha").ToDateTime.ToString("dd/MM/yyyy HH:mm:ss")}"
End If
If e.Row.DataKey("EsDevolucionVenta").ToEntero = 1 Then

2
Inventarios/TrasladoSolicitud.aspx
View File

@@ -213,7 +213,7 @@
<asp:TextBox ID="TxtCantidad" CssClass="form-control marginFixRow" runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<label for="<%= TxtCantidad.ClientID.ToString()%>">Cantidad:</label>
<asp:RequiredFieldValidator ID="RFVCantidad" runat="server" ControlToValidate="TxtCantidad" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="AgregarPS"></asp:RequiredFieldValidator>
<ajax:FilteredTextBoxExtender ID="SoloNumerosPS" runat="server" TargetControlID="TxtCantidad" FilterType="Numbers" />
<ajax:FilteredTextBoxExtender ID="SoloNumerosPS" runat="server" TargetControlID="TxtCantidad" FilterType="Custom, Numbers" ValidChars="." />
</div>
<div class="col-md-8 form-group form-md-line-input input-iconright" id="DivCaracteristicaOpcion" runat="server">

16
Inventarios/TrasladoSolicitud.aspx.vb
View File

@@ -334,14 +334,10 @@ Partial Class Inventarios_TrasladoSolicitud
MensajeExistencia.Append("No hay la existencia suficiente de los siguientes productos:<br/>")
Dim CodigoPS As String = ""
For Each row As GridViewRow In GvDatos.Rows
CodigoPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=row.DataKey("CvePS").ToEntero).FiltroPrimeroValor("PSCodigo", "")
Existencia = ObjInventarios.GetExistenciasPS(row.DataKey("CvePS").ToEntero, row.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=NowADS.ToString("yyyy/MM/dd 23:59"), Lote:=row.DataKey("Lote").ToString, FechaCaducidad:=row.DataKey("FechaCaducidad").ToString.ToDate)
If Existencia - TempDT.SUM("Cantidad", $"CvePS = {row.DataKey("CvePS").ToEntero} AND CveUM = {row.DataKey("CveUM").ToEntero}") < 0 Then
CodigoPS = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=row.DataKey("CvePS").ToEntero).FiltroPrimeroValor("PSCodigo", "")
MensajeExistencia.AppendFormat("<br/> - <b>{0}.</b> Existencia: {1}", CodigoPS, Existencia)
TieneErrorExistencia = True
End If
@@ -381,14 +377,7 @@ Partial Class Inventarios_TrasladoSolicitud
For Each Row As GridViewRow In GvDatos.Rows
'Dim CveUM As Integer = Row.DataKey("CveUM").ToEntero
Dim CvePS As Integer = Row.DataKey("CvePS").ToEntero
Dim Cantidad As Integer = Row.DataKey("Cantidad").ToEntero
'Dim Precio As Decimal = Row.DataKey("Precio").ToDecimal
'Dim Observaciones As String = Row.DataKey("Observaciones")
'Dim CveContratoDetalle As Integer = Row.DataKey("CveContratoDetalle").ToEntero
'Dim Serie As String = Row.DataKey("Serie")
'Dim Lote As String = Row.DataKey("Lote")
'Dim FechaCaducidad As Date = Row.DataKey("FechaCaducidad").ToDate
Dim Cantidad As Decimal = Row.DataKey("Cantidad").ToDecimal
If Not ObjInventarios.AddTrasladoSolicitudDetalle(CveTraspasoSolicitud, Cantidad, -1, CvePS, 0, "", -1, "-1", "-1", MinFecha) Then
TieneError = True
Exit For
@@ -396,7 +385,6 @@ Partial Class Inventarios_TrasladoSolicitud
Next
End If
If TieneError = False Then
ObjInventarios.Commit()
Alert($"La Solicitud de Traspaso se guardó correctamente con folio #: <b>{Folio}</b>.", TipoMensaje.MsgInformacion)

62
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -229,7 +229,7 @@ Partial Class Inventarios_TraspasoAlmacen
Dim PermisoEspecialCambioFecha As Boolean = False
If UsuarioActual.CveUsuario.Contiene(100, 1937) Then PermisoEspecialCambioFecha = True
If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 And Not PermisoEspecialCambioFecha Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" And Not UsuarioActual.TienePermisoProceso(405)) Then
If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 And Not PermisoEspecialCambioFecha Then
TxtFecha.Enabled = False
ImgFecha.Visible = False
TxtFechaRecepcion.Enabled = False
@@ -908,10 +908,12 @@ Partial Class Inventarios_TraspasoAlmacen
End If
Dim RealizarMovimientoVirtual As Boolean = False
If UsuarioActual.Empresa.Funcionalidad(573) = "1" AndAlso TipoAlmacenOrigen.Contiene(1, 27) Then
RealizarMovimientoVirtual = True
End If
If UsuarioActual.Empresa.Funcionalidad(573) = "1" AndAlso TipoAlmacenOrigen.Contiene(1, 27) Then
RealizarMovimientoVirtual = True
If DdlAlmacenOrigen.SelectedValue.ToEntero = 1427 Then 'Apoyo Entrega Foranea
RealizarMovimientoVirtual = False
End If
End If
'SI VA PASAR POR EL ALMACEN TRANSITORIO, DEBE TRASPASAR LOS VIRTUALES AHI PRIMERO
If ChkTransitorio.Checked Then
@@ -1242,6 +1244,30 @@ Partial Class Inventarios_TraspasoAlmacen
End If
End If
If Not ErrorMovInv AndAlso Not ChkTransitorio.Checked Then
'REPLICAR MOVTO GENERADO
If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimientoSalida > 0 Then
Dim CveEmpresaFranquicia As Integer = 201
Dim AlmacenOrigen As String = GlobalDTAlmacen(CveEmpresaFranquicia).FiltroPrimeroValor("Almacen", $"Almacen='{DdlAlmacenOrigen.SelectedItem.Text}'")
If String.IsNullOrEmpty(AlmacenOrigen) Then
ErrorMovInv = True
TextoError = $"No se encontro el almacen '{DdlAlmacenOrigen.SelectedItem.Text}' en la empresa 'GRUPO MEDICO CASTRO DIAZ'"
End If
Dim AlmacenDestino As String = GlobalDTAlmacen(CveEmpresaFranquicia).FiltroPrimeroValor("Almacen", $"Almacen='{DdlAlmacenDestino.SelectedItem.Text}'")
If String.IsNullOrEmpty(AlmacenDestino) Then
ErrorMovInv = True
TextoError = $"No se encontro el almacen '{DdlAlmacenDestino.SelectedItem.Text}' en la empresa 'GRUPO MEDICO CASTRO DIAZ'"
End If
If Not ErrorMovInv AndAlso Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimientoSalida, CveMovimientoEntrada) Then
ErrorMovInv = True
End If
End If
End If
If Not ErrorMovInv Then
DtTraslado = DtMovimientos.Copy
@@ -3172,7 +3198,7 @@ Partial Class Inventarios_TraspasoAlmacen
If ChkTransitorio.Checked Then
DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(" CveTipoAlmacen IN (21,22,2) AND Estatus = 'Activo' ")
Else
DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen IN (21,22,2) ")
DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveTipoAlmacen IN (21,22,2) OR ( CveTipoAlmacen IN (1) AND CveSubProyecto = {DrAlmO("CveSubProyecto")}) ")
End If
DdlAlmacenDestino.DataBind()
@@ -3199,19 +3225,19 @@ Partial Class Inventarios_TraspasoAlmacen
DdlAlmacenDestino.DataBind()
DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
Else
Dim Str As String
If ChkTransitorio.Checked Then
Str = "" ' String.Format(" AND CveSubProyecto <> {0} ", DrAlmO("CveSubProyecto")) 'RMF. pueden haber almacen que esten dentro de lamisma sucursal, pero que requeiren transitorio
DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" CveTipoAlmacen NOT IN (3,4,9,10,11,24,25,28) {0} AND Estatus = 'Activo' ", Str))
Else
Str = String.Format(" CveTipoAlmacen NOT IN (3,4,9,10,11,24,25,28) AND CveSubProyecto = {0} ", DrAlmO("CveSubProyecto"))
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then Str = Str.Replace("4,", "") ' permtir los tipo 4, consignación
DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros(Str)
End If
Dim Str As String
If ChkTransitorio.Checked Then
Str = "" ' String.Format(" AND CveSubProyecto <> {0} ", DrAlmO("CveSubProyecto")) 'RMF. pueden haber almacen que esten dentro de lamisma sucursal, pero que requeiren transitorio
DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" CveTipoAlmacen NOT IN (3,4,9,10,11,24,25,28) {0} AND Estatus = 'Activo' ", Str))
Else
Str = String.Format(" CveTipoAlmacen NOT IN (3,4,9,10,11,24,25,28) AND CveSubProyecto = {0} ", DrAlmO("CveSubProyecto"))
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then Str = Str.Replace("4,", "") ' permtir los tipo 4, consignación
DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros(Str)
End If
DdlAlmacenDestino.DataBind()
DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
End If
DdlAlmacenDestino.DataBind()
DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
End If
End Sub
Protected Sub DdlAlmacenDestino_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAlmacenDestino.SelectedIndexChanged