RDLCS checques 141, Contabiliza Fluctuaciones cambirias

Inventarios/EntradasSalidas.aspx.vb

@@ -1890,6 +1890,9 @@ Partial Class Inventarios_EntradasSalidas
                             Dim CveConceptoContable As Integer = 260
                             Dim CveClasificacion As Integer = -1
                             Select Case DdlConcepto.SelectedValue.ToEntero
+                                Case 2
+                                    CveConceptoContable = 78
+                                    EsContabilizable = True
                                 Case 28, 31
                                     CveConceptoContable = 51
 
@@ -1919,6 +1922,9 @@ Partial Class Inventarios_EntradasSalidas
 
                             End Select
 
+
+                            '2-78 
+
                             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAlmacen, tValorInventario, TxtObservaciones.Text.Trim, 68, TxtObservaciones.Text.Trim, TxtFecha.Text.ToDate, idCtaContable, -1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=tValorInventario, CveClasificacion:=CveClasificacion, Contabilizable:=EsContabilizable) Then
                                 ErrorMovInv = True
                             Else
@@ -1941,6 +1947,19 @@ Partial Class Inventarios_EntradasSalidas
                             ErrorMovInv = True
                         End If
 
+                        If Not ErrorMovInv Then
+
+                            If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
+                                If ObjConta.ValorPolizaDescuadre > 0 Then
+                                    ErrorMovInv = True
+                                    GuardaLogAD($"Inv/ES | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                                    Alert("No se pudo validar la prepoliza de cuadre.", TipoMensaje.MsgAdvertencia)
+                                End If
+                            Else
+                                Alert("No se pudo validar la prepoliza de cuadre.", TipoMensaje.MsgAdvertencia)
+                            End If
+                        End If
+
                         '------------------------------------------------
                         If Not ErrorMovInv Then
                             'DEVENGAR
@@ -2076,7 +2095,8 @@ Partial Class Inventarios_EntradasSalidas
 
 
 
-                                If Not ErrorAC And Not ErrorMovInv Then
+                            If Not ErrorAC And Not ErrorMovInv Then
+
                                 Dim Msg As New StringBuilder
                                 Msg.AppendFormat("<br/>El Movimiento se registro con el Folio: <b><a href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}'>{0}</a></b>", ObjInventario.Folio, CveMovimiento)
                                 Msg.AppendFormat("<br/><br/> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento)))

Inventarios/ResguardoMaterial.aspx.vb

@@ -151,7 +151,10 @@ Partial Class Inventarios_ResguardoMaterial
     Private Sub OcultarControles(CvePersonal As Integer)
 
         DdlPersonal.SelectedValue = CvePersonal.ToString()
-        DdlPersonal.SelectedText = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal).FiltroPrimeroValor("NombreCompleto")
+        DdlPersonal.SelectedText = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal).FiltroPrimeroValor("NombreCompleto", $" CvePersonal =  {CvePersonal}")
+
+
+
         DdlPersonal.Enabled = False
         DVTipo.Visible = False
     End Sub