Puntos GDiaz:

--5ta y 6ta revision

Bancos/DepositosCaja.aspx

@@ -243,7 +243,7 @@
                 </div>
 
             </div>
-            <div class="row rowcheck truncate" id="DivDescuentocheck" style="margin-top: -25px;">
+            <div class="row rowcheck truncate" id="DivDescuentocheck" style="margin-top: -25px;" runat="server">
                 <div class="col-md-1" runat="server" id="Div1" style="width: 155px">
                     <asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento" CssClass="checkbox" />
                 </div>
@@ -273,7 +273,7 @@
                 </div>
 
             </div>
-            <div class="row rowcheck truncate" id="DivIntercheck" style="margin-top: -15px;">
+            <div class="row rowcheck truncate" id="DivIntercheck" style="margin-top: -15px;" runat="server">
 
                 <div class="col-md-1" runat="server" id="Div2" style="width: 155px">
                     <asp:CheckBox ID="ChkIntermediario" runat="server" Text="Intermediario" CssClass="checkbox" />

Bancos/DepositosCaja.aspx.vb

@@ -45,12 +45,15 @@ Partial Class Bancos_DepositosCaja
             '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
+                If DdlTipoPago.Items.FindByValue("-1") IsNot Nothing Then
+                    DdlTipoPago.Items.Remove(DdlTipoPago.Items.FindByValue("-1"))
                 End If
 
-            End If
+                DivDescuentocheck.Visible = False
+                DivIntercheck.Visible = False
+            End If
+
+        End If
     End Sub
 
     Private Sub CargaCuentas()
@@ -509,7 +512,7 @@ Partial Class Bancos_DepositosCaja
             FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha).AddDays(1)
 
             If ObjMovtos.GetRemisionesCobranza(UsuarioActual.CveEmpresa, DdlSubProyectos.SelectedValue.ToEntero, FechaI, FechaF) Then
-                Dim dtt As DataTable = ObjMovtos.DtResultados.FiltraParametros($"CveVenta > 0 AND (CveUsuarioCobranza IS NULL OR CveUsuarioCobranza = {UsuarioActual.CveUsuario}) AND TipoDocto IN ('Ing','Rem')")
+                Dim dtt As DataTable = ObjMovtos.DtResultados.FiltraParametros($"CveVenta > 0 AND (CveUsuarioCobranza IS NULL OR CveUsuarioCobranza = {UsuarioActual.CveUsuario}) AND TipoDocto IN ('Ing','Rem') AND RemisionEspecial = 0")
                 'Dim Dtta As DataTable = dtt.FiltraParametros($"CveUsuarioCobranza = {UsuarioActual.CveUsuario} ")
                 'If Dtta IsNot Nothing AndAlso Dtta.Rows.Count > 0 Then dtt = Dtta