Cambios GlobalDTSubPoryecto

Cambio GlobalDTUsuario

Bancos/DepositosCaja.aspx.vb

@@ -41,6 +41,12 @@ Partial Class Bancos_DepositosCaja
             'Dim StrEncriptPrueba As String = Encripta($"OP=DC&CveIE={2784391}&CuentaCaja={"TestCuantaCaja"}&CuentaDepo={"Test cuenta"}")
             'HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={StrEncriptPrueba}"
 
+            If UsuarioActual.CveEmpresa = 189 Then
+                If DdlTipoPago.Items.FindByValue("-1") IsNot Nothing Then
+                    DdlTipoPago.Items.Remove(DdlTipoPago.Items.FindByValue("-1"))
+                End If
+            End If
+
         End If
     End Sub
 
@@ -327,7 +333,7 @@ Partial Class Bancos_DepositosCaja
 
                 If CveSubProyecto <= 0 Then
                     'se saca de la cuenta de la caja chica
-                    CveSubProyecto = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, Estatus:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
+                    CveSubProyecto = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, Estatus:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero()
                 End If
 
             End If