Solicitudes de traspaso de Almacen Ajustes

Inventarios/TrasladoSolicitud.aspx.vb

@@ -84,9 +84,10 @@ Partial Class Inventarios_TrasladoSolicitud
     Private Sub CargaAlmacenes()
         'Cargo los almacenes
         DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") 'Excluir almacenes de Apartado
-        DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") 'Excluir almacenes de Apartado
+        'DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") 'Excluir almacenes de Apartado
         DdlAlmacenOrigen.DataBind()
-        DdlAlmacenDestino.DataBind()
+        DdlAlmacenOrigen.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
+        'DdlAlmacenDestino.DataBind()
     End Sub
 
 
@@ -493,7 +494,7 @@ Partial Class Inventarios_TrasladoSolicitud
         Dim FolioEntrada As Integer = 0
 
         Dim TextoError As String = ""
-        Dim CveConceptoEntrada As Integer = 27
+        Dim CveConceptoEntrada As Integer = 9
 
 
         'AGREGAMOS LA SALIDA DEL ALMACEN ORIGEN
@@ -527,7 +528,7 @@ Partial Class Inventarios_TrasladoSolicitud
                 End If
             Next
 
-            'For Each Dr As DataRow In DtMovimientos.Rows
+            'For Each Dr As DataRow In DtMovimientos.RowsF
 
             'Next
         End If
@@ -550,7 +551,7 @@ Partial Class Inventarios_TrasladoSolicitud
                 For Each Dr As DataRow In ObjInventario.DtResultados.Rows
                     Dim CostoEntrada As Decimal = If(TipoAlmacenDestino = 26, 0, Dr("PU").ToString.ToDecimal())
                     If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, CostoEntrada, CveAF:=-1,
-                                                              CveSeccionAlmacen:=-1, Serie:="-1", Lote:="-1", FechaCaducidad:=MinFecha, CveMovimientoDetalleEntrada:=-1, Observaciones:="") Then
+                                                              CveSeccionAlmacen:=-1, Serie:="-1", Lote:="-1", FechaCaducidad:=MinFecha, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, Observaciones:="") Then
                         ErrorMovInv = True
                         TextoError = "Ocurrió un error al guardar los movimientos de entrada"
                         Exit For
@@ -621,7 +622,12 @@ Partial Class Inventarios_TrasladoSolicitud
             ObjInventario.Commit()
             MensajeAlert.Append("Se realizó con éxito el traspaso.")
             MensajeAlert.AppendFormat("<br/> Folio de Salida: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", FolioSalida, CveMovimientoSalida)
-            MensajeAlert.AppendFormat("<br/><a target='_blank' class='Texto'  href='/Compras/PopUpVerFactura.aspx?P={0}'> Imprimir </a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoSalida)))
+            MensajeAlert.AppendFormat("<br/><a target='_blank' class='Texto'  href='/Compras/PopUpVerFactura.aspx?P={0}'> Imprimir Salida </a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoSalida)))
+
+            MensajeAlert.AppendFormat("<br/> Folio de Transitorio: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", FolioEntrada, CveMovimientoEntrada)
+            MensajeAlert.AppendFormat("<br/><a target='_blank' class='Texto'  href='/Compras/PopUpVerFactura.aspx?P={0}'> Imprimir Transitorio </a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada)))
+
+
             Alert(MensajeAlert.ToString, TipoMensaje.MsgInformacion, "")
             RegistraScript(String.Format("$('#{0}').modal('hide');", "DVModalSolicitud"))
         Else
@@ -672,10 +678,13 @@ Partial Class Inventarios_TrasladoSolicitud
 
             If e.Row.DataKey("CveTrasladoEstatus").ToEntero = 1 Then
                 e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm blue"
+                e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-info"
             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"
                 Else
+                    e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-danger"
                     e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm red"
                 End If
 
@@ -686,4 +695,16 @@ Partial Class Inventarios_TrasladoSolicitud
         End If
 
     End Sub
+
+    Protected Sub DdlAlmacenOrigen_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+        DdlAlmacenDestino.ClearSelection()
+        DdlAlmacenDestino.SelectedValue = Nothing
+        DdlAlmacenDestino.Items.Clear()
+
+        DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveTipoAlmacen <> 9 AND CveAlmacen <> {DdlAlmacenOrigen.SelectedValue}")
+        DdlAlmacenDestino.DataBind()
+        DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
+        UpPS.Update()
+    End Sub
 End Class