Merge branch 'master' of http://rpimienta@192.168.10.111:8383/SIG.git

App_Code/ClsPaginas.vb

@@ -1355,12 +1355,12 @@ Public Class ClsPaginas
             Application("GlobalDTTipoTransacciones") = value
         End Set
     End Property
-    Property GlobalDTEstatusIE() As DataTable
+    Property GlobalDTBancosEstatusIE() As DataTable
         Get
-            GlobalDTEstatusIE = DirectCast(Application("GlobalDTEstatusIE"), DataTable)
+            GlobalDTBancosEstatusIE = DirectCast(Application("GlobalDTBancosEstatusIE"), DataTable)
         End Get
         Set(value As DataTable)
-            Application("GlobalDTEstatusIE") = value
+            Application("GlobalDTBancosEstatusIE") = value
         End Set
     End Property
     Property GlobalDTBancosIE() As DataTable

Bancos/CatBancosEstatusIE.aspx.vb

@@ -25,8 +25,8 @@ Partial Class Bancos_CatBancosEstatusIE
 		Dim ObjEstatusIE As New ClsBancos
 		If ObjEstatusIE.GetBancos_EstatusIE() Then
 			ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados
-			GlobalDTEstatusIE = ObjEstatusIE.DtResultados
-		Else
+            GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados
+        Else
 			Me.GvDatos.DataSource = Nothing
 		End If
 
@@ -47,9 +47,9 @@ Partial Class Bancos_CatBancosEstatusIE
 			Alert("El nuevo Estatus de Ingresos y Egresos se guardó correctamente.", TipoMensaje.MsgInformacion)
 			UpTitulos.Update()
 			ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados
-			GlobalDTEstatusIE = ObjEstatusIE.DtResultados
+            GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados
 
-			If ViewState("Orden").ToString() <> String.Empty Then
+            If ViewState("Orden").ToString() <> String.Empty Then
 				CargaGrid(ViewState("Orden").ToString())
 			Else
 				CargaGrid("")
@@ -145,8 +145,8 @@ Partial Class Bancos_CatBancosEstatusIE
 			TxtCveEstatusIE.Text = ""
 			GvDatos.EditIndex = -1
 			ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados
-			GlobalDTEstatusIE = ObjEstatusIE.DtResultados
-			Alert("El Estatus de Ingresos y Egresos se eliminó correctamente.", TipoMensaje.MsgInformacion)
+            GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados
+            Alert("El Estatus de Ingresos y Egresos se eliminó correctamente.", TipoMensaje.MsgInformacion)
 		End If
 
 		ObjEstatusIE.Dispose()
@@ -178,8 +178,8 @@ Partial Class Bancos_CatBancosEstatusIE
 		If ObjEstatusIE.UpdateBancos_EstatusIE(EstatusIE, Estatus, CveEstatusIE) Then
 			GvDatos.EditIndex = -1
 			ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados
-			GlobalDTEstatusIE = ObjEstatusIE.DtResultados
-			Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
+            GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados
+            Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
 		End If
 
 		ObjEstatusIE.Dispose()

Bancos/CatEstatusIE.aspx.vb

@@ -42,8 +42,8 @@ Partial Class Bancos_CatEstatusIE
         Dim ObjEstatusIE As New ClsBancos
         If ObjEstatusIE.GetBancos_EstatusIE() Then
             ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados
-            GlobalDTEstatusIE = ObjEstatusIE.DtResultados
-            GvDatos.DataSource = GlobalDTEstatusIE
+            GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados
+            GvDatos.DataSource = GlobalDTBancosEstatusIE
         Else
             GvDatos.DataSource = Nothing
         End If

Bancos/IE.aspx.vb

@@ -701,16 +701,16 @@ Partial Class Bancos_IE
                 LnkAjustarMovimiento.Visible = True
             End If
 
-            If Not VerificaComplementos(True) Then
+            'If Not VerificaComplementos(True) Then
 
-                LnkCancelarComplemento.Visible = False
-                LnkCancelarComplementoImporte.Visible = False
+            '    LnkCancelarComplemento.Visible = False
+            '    LnkCancelarComplementoImporte.Visible = False
 
 
-                UppEliminarIE.Update()
+            '    UppEliminarIE.Update()
 
 
-            End If
+            'End If
 
         End If
     End Sub
@@ -960,6 +960,10 @@ Partial Class Bancos_IE
                     HplDepositado.NavigateUrl = $"/Bancos/IE.aspx?CveIE={CveIEDeposito2}"
                 End If
 
+                LnkCancelarComplemento.Visible = False
+                LnkCancelarComplementoImporte.Visible = False
+                UppEliminarIE.Update()
+
 
                 CargaEventoBitacora()
                 CargaGvBitacora()

Bancos/RepIE.aspx.vb

@@ -423,7 +423,7 @@ Partial Class Bancos_RepIE
         DdlMoneda.Items.Insert(0, New ListItem("Todas", "-1"))
     End Sub
     Private Sub CargaEstatusIE()
-        DdlEstatusIE.DataSource = GlobalDTEstatusIE
+        DdlEstatusIE.DataSource = GlobalDTBancosEstatusIE
         DdlEstatusIE.DataBind()
     End Sub
     Private Sub CargaUsuarioConcilio()

Compras/Compras.aspx.vb

@@ -4160,8 +4160,10 @@ Partial Class Compras_Compras
 
                 CvePrePoliza = ObjConta.AddPrePolizas("Compras/Registrar", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
 
-                'seria de contado, solo cuando no tenga vinculado ningun anticipo
-                If RBLPago.SelectedValue.ToEntero = 2 AndAlso ArrAnticipos.Count = 0 Then 'Contado
+                If CvePrePoliza > 0 Then
+
+                    'seria de contado, solo cuando no tenga vinculado ningun anticipo
+                    If RBLPago.SelectedValue.ToEntero = 2 AndAlso ArrAnticipos.Count = 0 Then 'Contado
 
                     If RBLContado.SelectedValue = "1" Then
                         'se registra primero el movimiento en bancos para  luego vincularlo en la compra
@@ -7715,6 +7717,7 @@ Partial Class Compras_Compras
                     ObjCompras.RollBack()
                 End If
 
+                End If
 
             Catch ex As Exception
                 ObjCompras.RollBack()

Contratos/Contrato.aspx.vb

@@ -3260,7 +3260,7 @@ Partial Class Contratos_Default
                     Dim ProductoServicio As String = Row("Producto/Servicio").ToString.Trim.ToUpper
                     Dim PrecioUnitario As Double = Row("Precio Unitario").ToString.ToDouble
                     Dim CvePS As Integer = 0
-                    Dim CveUM As Integer = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"CvePS = '{CvePS}'").ToString.ToEntero
+                    Dim CveUM As Integer = 0 ' GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"CvePS = '{CvePS}'").ToString.ToEntero
                     Dim CodigoPS As Integer = 0
                     Dim Total As Double = (Cantidad * PrecioUnitario)
 

Inventarios/EntradasSalidas.aspx.vb

@@ -1528,7 +1528,7 @@ Partial Class Inventarios_EntradasSalidas
                                     If UsuarioActual.Empresa.Funcionalidad(342).ToEntero > 0 Then
                                         IdCtaContableOtro = UsuarioActual.Empresa.Funcionalidad(342).ToEntero
                                     End If
-                                Case 13
+                                Case 13, 29
                                     CveConceptoContable = 69
                                     Dim drr As DataRow = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimero("")
                                     If drr IsNot Nothing Then
@@ -1881,7 +1881,7 @@ Partial Class Inventarios_EntradasSalidas
         Dim filtro As String = ""
         Dim CveTipoAlmacen = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
 
-        filtro = If(UsuarioActual.TienePermisoProceso(144), "CveConcepto NOT IN (1,4,5,8,9,10,12,26,27,29)", "CveConcepto NOT IN (1,2,4,5,8,9,10,12,26,27,29)")
+        filtro = If(UsuarioActual.TienePermisoProceso(144), "CveConcepto NOT IN (1,4,5,8,9,10,12,26,27)", "CveConcepto NOT IN (1,2,4,5,8,9,10,12,26,27)")
 
         If DdlAlmacen.SelectedValue = "-1" Then
             filtro = IIf(UsuarioActual.CveEmpresa.Contiene(72, 1, 80), "CveConcepto NOT IN (4,5,10)", filtro).ToString