diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb
index 58021989a..fb6602a54 100644
--- a/Inventarios/TrasladoSolicitud.aspx.vb
+++ b/Inventarios/TrasladoSolicitud.aspx.vb
@@ -694,29 +694,26 @@ Partial Class Inventarios_TrasladoSolicitud
e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm blue"
e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-info"
e.Row.FCLinkButton("LnkMostrarTraspaso").Visible = PermisoOrigen
-
Else
If e.Row.DataKey("CveTrasladoEstatus").ToEntero = 2 Then
e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-success"
e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm green"
+ e.Row.FCLinkButton("LnkMostrarTraspaso").Text = "
"
- e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm green"
-
- If CveMovimientoAlmacen > 0 AndAlso PermisoDestino AndAlso CveMomientoEntrada <= 0 Then
+ If CveMovimientoAlmacen > 0 AndAlso PermisoDestino AndAlso e.Row.DataKey("CveMovimientoRelacionado") = "" Then
e.Row.FCHyperLink("HypRecibeTraspaso").Visible = True
e.Row.FCHyperLink("HypRecibeTraspaso").NavigateUrl = $"~/Inventarios/TraspasoAlmacen.aspx?CveAlmacenTransitorioR={CveAlmacenTransitorio}&FolioR={FolioMovimiento}&CveAlmacenDestinoR={CveAlmacenDestino}"
End If
+ If e.Row.DataKey("CveMovimientoRelacionado") <> "" Then
+ e.Row.FCLabel("LblTraspasoEstatus").Text = "Recibido"
+ End If
Else
e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-danger"
e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm red"
End If
-
-
End If
-
-
End If
End Sub
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 097f0c324..98e9ac049 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -474,7 +474,7 @@ Partial Class Inventarios_TraspasoAlmacen
DdlAlmacenRecepcion.Items.Insert(0, New ListItem("Todos", "-1"))
'Llena Almacen Transitorio Recepcion
- DdlAlmacenTransitorioRecepcion.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3)
+ DdlAlmacenTransitorioRecepcion.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 3)
DdlAlmacenTransitorioRecepcion.DataBind()
DdlAlmacenTransitorioRecepcion.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -2394,11 +2394,11 @@ Partial Class Inventarios_TraspasoAlmacen
Dim Mensaje As StringBuilder = New StringBuilder
Mensaje.AppendFormat("Se realizo correctamente la recepción.
Folio de Entrada:
{0}", Folio, CveMovimientoEntrada)
- Mensaje.AppendFormat("
Imprimir Reporte", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada))) 'onclick='ImprimirTraslado()'
- If CveMovimientoVirtualEntrada > 0 Then Mensaje.AppendFormat("
Folio Virtual
{2} Imprimir Reporte", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada) 'onclick='ImprimirTraslado()'
+ Mensaje.AppendFormat("
Imprimir Reporte", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada))) 'onclick='ImprimirTraslado()'
+ If CveMovimientoVirtualEntrada > 0 Then Mensaje.AppendFormat("
Folio Virtual
{2} Imprimir Reporte", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada) 'onclick='ImprimirTraslado()'
If CancelacionTraspaso IsNot Nothing Then
- If CancelacionTraspaso.CveMovimientoEntrada > 0 Then Mensaje.AppendFormat("
Folio Devolución
{2} Imprimir Reporte", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CancelacionTraspaso.CveMovimientoEntrada)), CancelacionTraspaso.CveMovimientoEntrada, CancelacionTraspaso.FolioEntrada) 'onclick='ImprimirTraslado()'
+ If CancelacionTraspaso.CveMovimientoEntrada > 0 Then Mensaje.AppendFormat("
Folio Devolución
{2} Imprimir Reporte", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CancelacionTraspaso.CveMovimientoEntrada)), CancelacionTraspaso.CveMovimientoEntrada, CancelacionTraspaso.FolioEntrada) 'onclick='ImprimirTraslado()'
End If
Alert(Mensaje.ToString, TipoMensaje.MsgInformacion)
diff --git a/Ventas/PVCobranza.aspx b/Ventas/PVCobranza.aspx
index 080d75df6..a69e53fd1 100644
--- a/Ventas/PVCobranza.aspx
+++ b/Ventas/PVCobranza.aspx
@@ -431,13 +431,13 @@
-
+
diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb
index b27d08721..8cbfdf484 100644
--- a/Ventas/PVCobranza.aspx.vb
+++ b/Ventas/PVCobranza.aspx.vb
@@ -382,7 +382,7 @@ Partial Class Ventas_PVCobranza
'validaciones
Dim Pagado As Decimal = TxtImporteEfectivo.Text.ToDecimal + TxtImporteCredito.Text.ToDecimal + TxtImporteDebito.Text.ToDecimal + TxtImporteCheque.Text.ToDecimal + TxtImporteTransferencia.Text.ToDecimal
If Pagado = 0 Then
- Alert("Favor de especificar importe", TipoMensaje.MsgAdvertencia)
+ Alert("Favor de especificar importe", TipoMensaje.ToastAdventencia)
Exit Sub
End If
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 4eec7425f..cacee39da 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -37861,7 +37861,7 @@ Partial Class Ventas
Private Sub CargaTiposVenta()
- RBLTipoVenta.DataSource = GlobalDTTipoVenta().FiltraParametros("Estatus = 'True' ")
+ RBLTipoVenta.DataSource = GlobalDTTipoVenta(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
RBLTipoVenta.DataBind()
RBLTipoVenta.Items.Add(New ListItem("Otros", "99"))