Compras Ajuste Gridview vinculacion anticipos notas, pomociones, ya no bloquear proposiones con padre

Compras/Compras.aspx

@@ -873,7 +873,10 @@
                                     <div class="col-md-6">
                                         <asp:UpdatePanel ID="UPPAnticiposSel" runat="server" UpdateMode="Conditional">
                                             <ContentTemplate>
-                                                <asp:GridView ID="GvAnticiposSel" runat="server" CssClass="table table-striped table-hover Widthall" AutoGenerateColumns="False" DataKeyNames="TipoDocto,CveCompraNC" ClientIDMode="Static" EmptyDataText="" Caption="Anticipos/NC Vinculados" GridLines="None">
+
+                                                <asp:Literal runat="server" ID="LtlGvAnticiposSel" Visible="false">Anticipos/NC Vinculados</asp:Literal>                                                
+                                                <asp:GridView ID="GvAnticiposSel" runat="server" CssClass="table table-striped table-hover ScrollAD" Width="100%" AutoGenerateColumns="False" DataKeyNames="TipoDocto,CveCompraNC" ClientIDMode="Static" EmptyDataText=""  data-height="280" 
+                                                      GridLines="None">
                                                     <Columns>
                                                         <asp:TemplateField>
                                                             <ItemTemplate>

Compras/Compras.aspx.vb

@@ -3122,6 +3122,10 @@ Partial Class Compras_Compras
                 GvAnticiposSel.DataSource = dtnc
                 GvAnticiposSel.DataBind()
 
+                If dtnc IsNot Nothing AndAlso dtnc.Rows.Count > 0 Then
+                    LtlGvAnticiposSel.Visible = True
+                End If
+
 
                 ''  VALIDA ELIMINAR COMPRA, QUE NO TENGA PAGOS CONCILIADOS
                 If (UsuarioActual.TienePermisoProceso(77) OrElse UsuarioActual.TienePermisoProceso(135)) AndAlso dr("NumPagosConciliados").ToString.ToEntero = 0 Then ' Eliminar compra

Empresas/178/Formatos/Factura.rdlc

@@ -722,7 +722,7 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>LUGAR DE EXPEDICIÓN:</Value>
+                    <Value>LUGAR DE EXPEDICIÓN: 56400</Value>
                     <Style>
                       <FontFamily>Calibri</FontFamily>
                       <FontSize>8pt</FontSize>
@@ -734,21 +734,6 @@
                   <TextAlign>Center</TextAlign>
                 </Style>
               </Paragraph>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>=Parameters!CP.Value</Value>
-                    <Style>
-                      <FontFamily>Calibri</FontFamily>
-                      <FontSize>8pt</FontSize>
-                      <FontWeight>Normal</FontWeight>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style>
-                  <TextAlign>Center</TextAlign>
-                </Style>
-              </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox10</rd:DefaultName>
             <Top>0.53358in</Top>
@@ -5423,6 +5408,18 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="QRDescarga">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Kilometraje">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="Logo2">

Ventas/Promociones.aspx.vb

@@ -315,10 +315,10 @@ Partial Class Ventas_Promociones
 
         ButBtnEliminar.Visible = True
 
-        If CvePromocionPadre > 0 Then
+        'If CvePromocionPadre > 0 Then
-            BtnGuardar.Enabled = False
+        '    BtnGuardar.Enabled = False
-            ButBtnEliminar.Enabled = False
+        '    ButBtnEliminar.Enabled = False
-        End If
+        'End If
 
         ObjVentas.Dispose()
     End Sub