diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 61dc24738..4ba4d6a1c 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -6394,7 +6394,7 @@ Partial Class PopUpVerFactura
                         Else
                             params.Add(New ReportParameter("Fecha", Fecha.ToShortDateString))
                         End If
-                        If UsuarioActual.CveEmpresa.Contiene(119, 141) Then
+                        If UsuarioActual.CveEmpresa.Contiene(119, 141, 193, 195, 197, 189) Then
                             params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(drp("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
                         End If
                         If UsuarioActual.CveEmpresa.Contiene(140, 141) Then
diff --git a/Contabilidad2/RepBalanzaComprobacion.aspx b/Contabilidad2/RepBalanzaComprobacion.aspx
index faff6a40a..9d0440a3a 100644
--- a/Contabilidad2/RepBalanzaComprobacion.aspx
+++ b/Contabilidad2/RepBalanzaComprobacion.aspx
@@ -116,75 +116,89 @@
 
     <br />
   
-                <asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
-                    <ContentTemplate>
+    
+    <div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right; margin-right: 5px" align="left;">
+        
+        <input type="text" id="TxtBusquedaIndicadores" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaIndicadores','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+        <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaIndicadores','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
 
-                        <asp:GridView ID="GvDatos" CssClass="table table-advance table-striped table-hover Widthall" runat="server" GridLines="None" EmptyDataText="No se encontraron cuentas con los parametros establecidos." AutoGenerateColumns="False" OnRowDataBound="GvIngresos_RowDataBound">
-                            <Columns>
-                                <asp:TemplateField HeaderText="Cuenta" HeaderStyle-HorizontalAlign="Left">
-                                    <ItemTemplate>
-                                        <asp:Label ID="LbCodigo" runat="server" Text='<%# Eval("Codigo")%>'></asp:Label>
-                                    </ItemTemplate>
-                                    <ItemStyle HorizontalAlign="Left" Width="180" />
-                                </asp:TemplateField>
-                                <asp:TemplateField HeaderText="Nombre" HeaderStyle-HorizontalAlign="Left">
-                                    <ItemTemplate>
-                                        <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
-                                    </ItemTemplate>
-                                    <ItemStyle HorizontalAlign="Left" Width="320" />
-                                </asp:TemplateField>
-                                <asp:TemplateField>
-                                    <HeaderTemplate>
-                                        <table width="100%">
-                                            <tr>
-                                                <td colspan="2">Saldos Iniciales</td>
-                                            </tr>
-                                            <tr>
-                                                <td>Deudor</td>
-                                                <td>Acreedor</td>
-                                            </tr>
-                                        </table>
-                                    </HeaderTemplate>
-                                    <ItemTemplate>
-                                        <asp:Label ID="LbSaldoInicial" Style="white-space: pre;" runat="server" Text='<%# Eval("SaldoInicial", "{0:N2}")%>'></asp:Label>
-                                    </ItemTemplate>
-                                    <ItemStyle Width="120" HorizontalAlign="Right" />
-                                </asp:TemplateField>
-                                <asp:TemplateField HeaderText="Cargos">
-                                    <ItemTemplate>
-                                        <asp:Label ID="LbCargos" runat="server" Text='<%# Eval("Cargos", "{0:N2}")%>'></asp:Label>
-                                    </ItemTemplate>
-                                    <ItemStyle Width="120" HorizontalAlign="Right" />
-                                </asp:TemplateField>
-                                <asp:TemplateField HeaderText="Abonos">
-                                    <ItemTemplate>
-                                        <asp:Label ID="LbAbonos" runat="server" Text='<%# Eval("Abonos", "{0:N2}")%>'></asp:Label>
-                                    </ItemTemplate>
-                                    <ItemStyle Width="120" HorizontalAlign="Right" />
-                                </asp:TemplateField>
-                                <asp:TemplateField>
-                                    <HeaderTemplate>
-                                        <table width="100%">
-                                            <tr>
-                                                <td colspan="2">Saldos Actuales</td>
-                                            </tr>
-                                            <tr>
-                                                <td>Deudor</td>
-                                                <td>Acreedor</td>
-                                            </tr>
-                                        </table>
-                                    </HeaderTemplate>
-                                    <ItemTemplate>
-                                        <asp:HyperLink ID="HLSaldoActual" Style="white-space: pre;" runat="server" Text='<%# Eval("SaldoActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
-                                        <asp:Label ID="LbSaldoActual" Style="white-space: pre;" runat="server"></asp:Label>
-                                    </ItemTemplate>
-                                    <ItemStyle Width="120" HorizontalAlign="Right" />
-                                </asp:TemplateField>
-                            </Columns>
-                            <HeaderStyle Font-Bold="true" HorizontalAlign="Center" />
-                        </asp:GridView>
-                    </ContentTemplate>
-                </asp:UpdatePanel>
+    </div>    
+    
+    <div class="row">
+        <div class="col-md-12">
+            <asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
+                <ContentTemplate>
+
+                    <asp:GridView ID="GvDatos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" 
+                        runat="server" GridLines="None" EmptyDataText="No se encontraron cuentas con los parametros establecidos." AutoGenerateColumns="False" OnRowDataBound="GvIngresos_RowDataBound">
+                        <Columns>
+                            <asp:TemplateField HeaderText="Cuenta" HeaderStyle-HorizontalAlign="Left">
+                                <ItemTemplate>
+                                    <asp:Label ID="LbCodigo" runat="server" Text='<%# Eval("Codigo")%>'></asp:Label>
+                                </ItemTemplate>
+                                <ItemStyle HorizontalAlign="Left" Width="180" />
+                            </asp:TemplateField>
+                            <asp:TemplateField HeaderText="Nombre" HeaderStyle-HorizontalAlign="Left">
+                                <ItemTemplate>
+                                    <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                </ItemTemplate>
+                                <ItemStyle HorizontalAlign="Left" Width="320" />
+                            </asp:TemplateField>
+                            <asp:TemplateField>
+                                <HeaderTemplate>
+                                    <table width="100%">
+                                        <tr>
+                                            <td colspan="2">Saldos Iniciales</td>
+                                        </tr>
+                                        <tr>
+                                            <td>Deudor</td>
+                                            <td>Acreedor</td>
+                                        </tr>
+                                    </table>
+                                </HeaderTemplate>
+                                <ItemTemplate>
+                                    <asp:Label ID="LbSaldoInicial" Style="white-space: pre;" runat="server" Text='<%# Eval("SaldoInicial", "{0:N2}")%>'></asp:Label>
+                                </ItemTemplate>
+                                <ItemStyle Width="120" HorizontalAlign="Right" />
+                            </asp:TemplateField>
+                            <asp:TemplateField HeaderText="Cargos">
+                                <ItemTemplate>
+                                    <asp:Label ID="LbCargos" runat="server" Text='<%# Eval("Cargos", "{0:N2}")%>'></asp:Label>
+                                </ItemTemplate>
+                                <ItemStyle Width="120" HorizontalAlign="Right" />
+                            </asp:TemplateField>
+                            <asp:TemplateField HeaderText="Abonos">
+                                <ItemTemplate>
+                                    <asp:Label ID="LbAbonos" runat="server" Text='<%# Eval("Abonos", "{0:N2}")%>'></asp:Label>
+                                </ItemTemplate>
+                                <ItemStyle Width="120" HorizontalAlign="Right" />
+                            </asp:TemplateField>
+                            <asp:TemplateField>
+                                <HeaderTemplate>
+                                    <table width="100%">
+                                        <tr>
+                                            <td colspan="2">Saldos Actuales</td>
+                                        </tr>
+                                        <tr>
+                                            <td>Deudor</td>
+                                            <td>Acreedor</td>
+                                        </tr>
+                                    </table>
+                                </HeaderTemplate>
+                                <ItemTemplate>
+                                    <asp:HyperLink ID="HLSaldoActual" Style="white-space: pre;" runat="server" Text='<%# Eval("SaldoActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                    <asp:Label ID="LbSaldoActual" Style="white-space: pre;" runat="server"></asp:Label>
+                                </ItemTemplate>
+                                <ItemStyle Width="120" HorizontalAlign="Right" />
+                            </asp:TemplateField>
+                        </Columns>
+                        <HeaderStyle Font-Bold="true" HorizontalAlign="Center" />
+                    </asp:GridView>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+   
            
 
 </asp:Content>
diff --git a/Empresas/Grales/Formatos/Polizas.rdlc b/Empresas/Grales/Formatos/Polizas.rdlc
index 42e9d4893..e77be5ab6 100644
--- a/Empresas/Grales/Formatos/Polizas.rdlc
+++ b/Empresas/Grales/Formatos/Polizas.rdlc
@@ -1488,6 +1488,295 @@
                     </TablixCell>
                   </TablixCells>
                 </TablixRow>
+                <TablixRow>
+                  <Height>2.44729cm</Height>
+                  <TablixCells>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="UsuarioRegistro1">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Usuario Registró:</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!NombreUsuario.Value</Value>
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>9pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>UsuarioRegistro1</rd:DefaultName>
+                          <Visibility>
+                            <Hidden>=IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False)</Hidden>
+                          </Visibility>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <VerticalAlign>Bottom</VerticalAlign>
+                            <PaddingLeft>1pt</PaddingLeft>
+                            <PaddingRight>1pt</PaddingRight>
+                            <PaddingTop>1pt</PaddingTop>
+                            <PaddingBottom>1pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                        <ColSpan>3</ColSpan>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell />
+                    <TablixCell />
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox13">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox13</rd:DefaultName>
+                          <Visibility>
+                            <Hidden>=IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False)</Hidden>
+                          </Visibility>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>1pt</PaddingLeft>
+                            <PaddingRight>1pt</PaddingRight>
+                            <PaddingTop>1pt</PaddingTop>
+                            <PaddingBottom>1pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox15">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox15</rd:DefaultName>
+                          <Visibility>
+                            <Hidden>=IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False)</Hidden>
+                          </Visibility>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>1pt</PaddingLeft>
+                            <PaddingRight>1pt</PaddingRight>
+                            <PaddingTop>1pt</PaddingTop>
+                            <PaddingBottom>1pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox16">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox16</rd:DefaultName>
+                          <Visibility>
+                            <Hidden>=IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False)</Hidden>
+                          </Visibility>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <PaddingLeft>1pt</PaddingLeft>
+                            <PaddingRight>1pt</PaddingRight>
+                            <PaddingTop>1pt</PaddingTop>
+                            <PaddingBottom>1pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox18">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox18</rd:DefaultName>
+                          <Visibility>
+                            <Hidden>=IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False)</Hidden>
+                          </Visibility>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <PaddingLeft>1pt</PaddingLeft>
+                            <PaddingRight>1pt</PaddingRight>
+                            <PaddingTop>1pt</PaddingTop>
+                            <PaddingBottom>1pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox19">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox19</rd:DefaultName>
+                          <Visibility>
+                            <Hidden>=IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False)</Hidden>
+                          </Visibility>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Style>Solid</Style>
+                            </TopBorder>
+                            <PaddingLeft>1pt</PaddingLeft>
+                            <PaddingRight>1pt</PaddingRight>
+                            <PaddingTop>1pt</PaddingTop>
+                            <PaddingBottom>1pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox20">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value />
+                                  <Style>
+                                    <FontFamily>calibri</FontFamily>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Right</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox20</rd:DefaultName>
+                          <Visibility>
+                            <Hidden>=IIF(IsNothing(Parameters!UsuarioRegistro.Value) OR LEN(CStr(Parameters!UsuarioRegistro.Value)) = 0, True, False)</Hidden>
+                          </Visibility>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <TopBorder>
+                              <Style>Solid</Style>
+                            </TopBorder>
+                            <PaddingLeft>1pt</PaddingLeft>
+                            <PaddingRight>1pt</PaddingRight>
+                            <PaddingTop>1pt</PaddingTop>
+                            <PaddingBottom>1pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                  </TablixCells>
+                </TablixRow>
               </TablixRows>
             </TablixBody>
             <TablixColumnHierarchy>
@@ -1548,6 +1837,9 @@
                     <TablixMember>
                       <KeepWithGroup>Before</KeepWithGroup>
                     </TablixMember>
+                    <TablixMember>
+                      <KeepWithGroup>Before</KeepWithGroup>
+                    </TablixMember>
                   </TablixMembers>
                 </TablixMember>
               </TablixMembers>
@@ -1559,7 +1851,7 @@
               <ResetPageNumber>true</ResetPageNumber>
             </PageBreak>
             <Top>0.05076cm</Top>
-            <Height>3.18542cm</Height>
+            <Height>5.63271cm</Height>
             <Width>19.38789cm</Width>
             <Style>
               <Border>
@@ -1596,7 +1888,7 @@
             </Style>
           </Textbox>
         </ReportItems>
-        <Height>3.59805cm</Height>
+        <Height>5.68347cm</Height>
         <Style />
       </Body>
       <Width>19.38791cm</Width>
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index a50d87edf..48e50512c 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -1028,7 +1028,7 @@ Partial Class Inventarios_EntregaAlmacen
         CargaGvDatos()
 
     End Sub
-    Private Sub CargaGvDatos(Optional CveAlmacen As Integer = -1)
+    Private Sub CargaGvDatos(Optional RecargaVenta As Boolean = True)
 
         If DtDatos IsNot Nothing Then
 
@@ -1054,10 +1054,10 @@ Partial Class Inventarios_EntregaAlmacen
             If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then
                 GvDatos.Columns(10).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
             End If
-            'GvDatos.Columns(9).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) <> "", UsuarioActual.Empresa.Funcionalidad(147), "")
-
-            'SugerirFecha()
-            If DdlAlmacen.SelectedValue.ToEntero > 0 And CveVentaSurtir > 0 Then
+            'GvDatos.Columns(9).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) <> "", UsuarioActual.Empresa.Funcionalidad(147), "")
+
+            'SugerirFecha()
+            If RecargaVenta AndAlso DdlAlmacen.SelectedValue.ToEntero > 0 And CveVentaSurtir > 0 Then
                 CargaVentaPorSurtir(CveVentaSurtir, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero, CveOS:=CveOSSurtir)
 
                 If CargaBitacora Then
@@ -1250,10 +1250,12 @@ Partial Class Inventarios_EntregaAlmacen
 
             If Boolean.Parse(e.Row.DataKey("AplicaLote")) Or Boolean.Parse(e.Row.DataKey("AplicaCaducidad")) Then
                 Dim ValorAsignado As String = ""
+                Dim DtDatosDevolucion As DataTable = Nothing
                 If GvDatos.Columns(8).Visible AndAlso EsDevolucionVenta = 1 Then
                     ValorAsignado = $"{e.Row.DBCampo("Lote").ToString}|{e.Row.DBCampo("FechaCaducidad").ToDate.ToString("dd/MM/yyyy")}"
+                    DtDatosDevolucion = DtDatos.Copy()
                 End If
-                CargarCaducidadProducto(e.Row.DataKey("CvePS").ToEntero, e.Row.FCDropDownList("DdlCaducidadProducto"), ValorAsignado)
+                CargarCaducidadProducto(e.Row.DataKey("CvePS").ToEntero, e.Row.FCDropDownList("DdlCaducidadProducto"), ValorAsignado, DtDatosDevolucion)
             End If
 
 
@@ -1286,23 +1288,29 @@ Partial Class Inventarios_EntregaAlmacen
 
     End Sub
 
-    Private Sub CargarCaducidadProducto(CvePS As Integer, ByRef DdlLoteFechaCaducidad As DropDownList, ValorAsignado As String)
+    Private Sub CargarCaducidadProducto(CvePS As Integer, ByRef DdlLoteFechaCaducidad As DropDownList, ValorAsignado As String, DtDatosDevolucion As DataTable)
+        DdlLoteFechaCaducidad.Items.Clear()
+        DdlLoteFechaCaducidad.Items.Add(New ListItem("-", "|"))
 
         Dim almacenes As String = DdlAlmacen.SelectedValue
         If almacenes = "" Then
             almacenes = "-1"
         End If
 
-        Dim ObjInventarios As New ClsInventarios
-
-        If ObjInventarios.GetExistenciasCaducidad(CvePS, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, almacenes) Then
-
-            For Each dr As DataRow In ObjInventarios.DtResultados.Rows
+        If DtDatosDevolucion IsNot Nothing Then
+            For Each dr As DataRow In DtDatosDevolucion.FiltraParametros($"CvePS = {CvePS}", DistinctColumns:={"Lote", "FechaCaducidad"}).Rows
                 DdlLoteFechaCaducidad.Items.Add(New ListItem($"Lote: {dr("Lote").ToString} - Cad: {dr("FechaCaducidad").ToString.ToDate.ToString("dd/MM/yyyy")}", $"{dr("Lote").ToString}|{dr("FechaCaducidad").ToString.ToDate.ToString("dd/MM/yyyy")}"))
             Next
-
+        Else
+            Dim ObjInventarios As New ClsInventarios
+            If ObjInventarios.GetExistenciasCaducidad(CvePS, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, almacenes) Then
+                For Each dr As DataRow In ObjInventarios.DtResultados.FiltraParametros("", DistinctColumns:={"Lote", "FechaCaducidad"}).Rows
+                    DdlLoteFechaCaducidad.Items.Add(New ListItem($"Lote: {dr("Lote").ToString} - Cad: {dr("FechaCaducidad").ToString.ToDate.ToString("dd/MM/yyyy")}", $"{dr("Lote").ToString}|{dr("FechaCaducidad").ToString.ToDate.ToString("dd/MM/yyyy")}"))
+                Next
+            End If
+            ObjInventarios.Dispose()
         End If
-        ObjInventarios.Dispose()
+
 
         If Not String.IsNullOrEmpty(ValorAsignado) Then
             DdlLoteFechaCaducidad.SelectedValueExist(ValorAsignado)
@@ -4174,8 +4182,13 @@ Partial Class Inventarios_EntregaAlmacen
         Next
         DtDatos.AcceptChanges()
 
-        CargaGvDatos()
-
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+            CargaGvDatos(False)
+        Else
+            CargaGvDatos(True)
+        End If
+
+
         index2 = 0
         For Each Row As DataRow In DtDatos.Rows
             GvDatos.Rows(index2).FCCheckBox("cbInv").Checked = CBool(Row("Seleccionado"))
@@ -4320,8 +4333,8 @@ Partial Class Inventarios_EntregaAlmacen
     End Sub
 
     Private Sub RecargaporAlmacenes()
-        If DdlAlmacen.SelectedValue <> "-1" Then
-            CargaGvDatos(DdlAlmacen.SelectedValue.ToEntero)
+        If DdlAlmacen.SelectedValue <> "-1" AndAlso Not (UsuarioActual.Empresa.Funcionalidad(578) = "1") Then
+            CargaGvDatos()
         End If
     End Sub
 
diff --git a/Inventarios/RepExistenciasCostos.aspx b/Inventarios/RepExistenciasCostos.aspx
index b21529711..0276f6f7c 100644
--- a/Inventarios/RepExistenciasCostos.aspx
+++ b/Inventarios/RepExistenciasCostos.aspx
@@ -146,9 +146,13 @@
                 <asp:GridView ID="GvM" runat="server" ShowHeader="True" EmptyDataText="Aún no hay registros." AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False"
                     ShowHeaderWhenEmpty="false" CssClass="table table-advance table-GvM Widthall" GridLines="None">
                     <Columns>
+
                         <asp:HyperLinkField HeaderText="Fecha" ItemStyle-Width="75px" DataTextField="FechaMovto" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" />
                         <asp:BoundField HeaderText="Almacen"  DataField="Almacen" />
-                        <asp:HyperLinkField HeaderText="Folio" ItemStyle-Width="100px" DataTextField="Folio" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" ItemStyle-HorizontalAlign="Right" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" />
+                        <asp:BoundField HeaderText="Concepto"  DataField="Concepto" />
+                        <asp:HyperLinkField HeaderText="Folio" ItemStyle-Width="50px" DataTextField="Folio" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" ItemStyle-HorizontalAlign="Right" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" />
+
+                        <asp:BoundField HeaderText="Folio Doc."  DataField="FolioDocto" />
                         <asp:BoundField HeaderText="Activo Fijo" DataField="CodigoAF" ItemStyle-HorizontalAlign="Left" Visible="false" />
                         <asp:BoundField HeaderText="SubProyecto" DataField="SubProyecto" ItemStyle-HorizontalAlign="Left" Visible="false" />
                         <asp:BoundField HeaderText="Entradas" ItemStyle-Width="75px" DataField="Entradas" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>
diff --git a/Inventarios/RepExistenciasCostos.aspx.vb b/Inventarios/RepExistenciasCostos.aspx.vb
index f4f57c011..5acd60656 100644
--- a/Inventarios/RepExistenciasCostos.aspx.vb
+++ b/Inventarios/RepExistenciasCostos.aspx.vb
@@ -85,9 +85,12 @@ Partial Class Inventarios_RepExistenciasCostos
     End Sub
     Private Sub CargaPermisos()
         Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
-        GvM.Columns(6).Visible = TienePermisoImportes
+        'GvM.Columns(6).Visible = TienePermisoImportes
+        'GvM.Columns(8).Visible = TienePermisoImportes
+        'GvM.Columns(10).Visible = TienePermisoImportes
         GvM.Columns(8).Visible = TienePermisoImportes
         GvM.Columns(10).Visible = TienePermisoImportes
+        GvM.Columns(11).Visible = TienePermisoImportes
 
     End Sub
     Public Sub CargaCombos()
@@ -214,9 +217,9 @@ Partial Class Inventarios_RepExistenciasCostos
         If e.Row.RowType = DataControlRowType.DataRow Then
 
             Dim TienePermisoImportes = UsuarioActual.TienePermisoProceso(201)
-            e.Row.Cells(6).Visible = TienePermisoImportes
             e.Row.Cells(8).Visible = TienePermisoImportes
             e.Row.Cells(10).Visible = TienePermisoImportes
+            e.Row.Cells(12).Visible = TienePermisoImportes
 
             Select Case e.Row.DBCampo("Orden").ToEntero
                 Case 10
@@ -226,18 +229,19 @@ Partial Class Inventarios_RepExistenciasCostos
                     e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
                     e.Row.Cells(0).ColumnSpan = 3
                     e.Row.Cells(1).Visible = False
-                    e.Row.Cells(2).Visible = False
 
-                    e.Row.Cells(5).Text = ""
-                    e.Row.Cells(6).Text = ""
+                    e.Row.Cells(3).Visible = False
+
                     e.Row.Cells(7).Text = ""
                     e.Row.Cells(8).Text = ""
                     e.Row.Cells(9).Text = ""
                     e.Row.Cells(10).Text = ""
+                    e.Row.Cells(11).Text = ""
+                    e.Row.Cells(12).Text = ""
                 Case 15
                     If e.Row.DBCampo("CveMovimiento").ToString.ToEntero <= 0 Then
                         e.Row.Cells(0).Text = e.Row.DBCampo("FechaMovto")
-                        e.Row.Cells(2).Text = ""
+                        e.Row.Cells(3).Text = ""
                     End If
                 Case 20
                     e.Row.CssClass = "SubTotales"
@@ -246,18 +250,18 @@ Partial Class Inventarios_RepExistenciasCostos
                     e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
                     e.Row.Cells(0).ColumnSpan = 3
                     e.Row.Cells(1).Visible = False
-                    e.Row.Cells(2).Visible = False
+                    e.Row.Cells(3).Visible = False
 
-                    e.Row.Cells(9).Text = e.Row.DBCampo("ExistenciaTotal").ToDouble().ToString("#,####.####")
-                    e.Row.Cells(10).Text = e.Row.DBCampo("ValorTotal").FormatoNumero
+                    e.Row.Cells(11).Text = e.Row.DBCampo("ExistenciaTotal").ToDouble().ToString("#,####.####")
+                    e.Row.Cells(12).Text = e.Row.DBCampo("ValorTotal").FormatoNumero
             End Select
 
 
         End If
     End Sub
     Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
-        GvM.Columns(3).Visible = ChkActivoFijo.Checked
-        GvM.Columns(4).Visible = ChkSubProyecto.Checked
+        GvM.Columns(5).Visible = ChkActivoFijo.Checked
+        GvM.Columns(6).Visible = ChkSubProyecto.Checked
         UPPEquiv.Update()
     End Sub
 
@@ -308,169 +312,7 @@ Partial Class Inventarios_RepExistenciasCostos
 #End Region
 
 
-    '#Region "UNIFICAR PS"
-    '    Protected Sub BtnCargaPS_Click(sender As Object, e As EventArgs)
-    '        CargaPS()
-    '    End Sub
-    '    Private Sub CargaPS()
-    '        Dim DtPS As DataTable = GlobalDTProductosServicios(UsuarioActual.CveEmpresa)
 
-    '        DdlPSPrimario.Items.Clear()
-    '        DdlPSUnificado.Items.Clear()
-    '        DdlPSPrimario.Items.Insert(0, New ListItem("Seleccione", "-1"))
-    '        DdlPSUnificado.Items.Insert(0, New ListItem("Seleccione", "-1"))
-    '        DdlPSPrimario.DataSource = DtPS
-    '        DdlPSUnificado.DataSource = DtPS
-    '        DdlPSPrimario.DataBind()
-    '        DdlPSUnificado.DataBind()
-    '        DtPS.Dispose()
-    '    End Sub
-    '    Protected Sub BtnUnificarPS_Click(sender As Object, e As EventArgs)
-    '        If DdlPSPrimario.SelectedValue = DdlPSUnificado.SelectedValue Then
-    '            Alert("El Producto/Servicio a unificar no puede ser el mismo al primario. Por favor verifique y vuelva a intetar.", TipoMensaje.MsgAdvertencia)
-    '            Exit Sub
-    '        End If
-
-    '        'Dim ObjPS As New ClsProductosServicios()
-
-    '        'If ObjPS.UnificarPS(DdlPSPrimario.SelectedValue.ToEntero, DdlPSUnificado.SelectedValue.ToEntero) Then
-    '        '    Alert("El Producto/Servicio Fue unificado correctamente.", TipoMensaje.MsgInformacion)
-
-    '        '    RegistraScript("$get('DivUnificarPS').style.display='none';")
-    '        '    DdlPSPrimario.SelectedValue = "-1"
-    '        '    DdlPSUnificado.SelectedValue = "-1"
-    '        '    'CargaPS()
-    '        'Else
-    '        '    Alert("Ocurrió un error al unificar el Producto/Servicio. Por favor vuelta a intentar.", TipoMensaje.MsgError)
-    '        'End If
-
-    '        'ObjPS.Dispose()
-
-    '        Dim CveMovimientoSalida = 0
-    '        Dim CveMovimientoEntrada = 0
-    '        Dim Existencia As Double
-
-    '        Dim IDPoliza As Integer = 0
-    '        Dim Folio = 0
-    '        Dim Fecha As Date = NowADS() 'TxtFecha.Text.ToDate
-
-    '        Dim TieneError = False
-    '        Dim TextoError = ""
-    '        Dim ObjInventario As New ClsInventarios
-    '        ObjInventario.IniciaTransacSQL()
-
-    '        Dim DtAlmacenes As New DataTable
-
-    '        If ObjInventario.GetAlmacenes() Then
-    '            DtAlmacenes = ObjInventario.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
-    '        Else
-    '            TieneError = True
-    '        End If
-
-
-
-    '        If Not TieneError Then
-    '            Dim CvePSPrimario = 0
-    '            Dim CveUMPrimario = 0
-    '            Dim CvePSUnificado = 0
-    '            Dim CveUMUnificado = 0
-    '            Dim DTPS1 As DataTable = GlobalDTProductosServicios(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CvePS = {0}", DdlPSPrimario.SelectedValue.ToEntero))
-    '            Dim DTPS2 As DataTable = GlobalDTProductosServicios(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CvePS = {0}", DdlPSUnificado.SelectedValue.ToEntero))
-
-    '            For Each dr As DataRow In DtAlmacenes.Rows
-    '                CvePSPrimario = DTPS1.Rows(0)("CvePS").ToString.ToEntero
-    '                CveUMPrimario = DTPS1.Rows(0)("CveUM").ToString.ToEntero
-    '                CvePSUnificado = DTPS2.Rows(0)("CvePS").ToString.ToEntero
-    '                CveUMUnificado = DTPS2.Rows(0)("CveUM").ToString.ToEntero
-
-
-    '                'VALIDA LA EXISTENCIA
-    '                Existencia = ObjInventario.GetExistenciasPS(CvePSUnificado, CveUMUnificado, UsuarioActual.CveEmpresa, dr("CveAlmacen").ToString.ToEntero)
-
-
-    '                'REGISTRA LA SALIDA Y ENTRADA (TRASPASO)
-    '                If Existencia > 0 Then
-
-    '                    'AGREGAMOS LA SALIDA
-    '                    Folio = ObjInventario.GetFolioSiguiente(3, UsuarioActual.CveEmpresa)
-    '                    CveMovimientoSalida = ObjInventario.AddMovimiento(dr("CveAlmacen").ToString.ToEntero, 3, 1, Fecha, Folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1)
-
-    '                    If CveMovimientoSalida > 0 Then
-    '                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Existencia, CveUMUnificado, CvePSUnificado, 0, -1) Then
-    '                            TieneError = True
-    '                            TextoError = "Ocurrió un error al guardar los movimientos de salida"
-    '                            Exit For
-    '                        End If
-    '                    Else
-    '                        TieneError = True
-    '                        TextoError = "No se pudo generar el movimiento de salida correctamente"
-    '                        Exit For
-    '                    End If
-
-
-    '                    'AGREGAMOS LA ENTRADA
-    '                    Folio = ObjInventario.GetFolioSiguiente(2, UsuarioActual.CveEmpresa)
-    '                    CveMovimientoEntrada = ObjInventario.AddMovimiento(1, 2, 1, Fecha, Folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1)
-
-    '                    If CveMovimientoEntrada > 0 Then
-
-    '                        If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
-
-    '                            For Each dr2 As DataRow In ObjInventario.DtResultados.Rows
-    '                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, dr2("Cantidad").ToString.ToDouble, dr2("CveUM").ToString.ToEntero, CvePSPrimario, dr2("PU").ToString.ToDouble, -1) Then
-    '                                    TieneError = True
-    '                                    TextoError = "Ocurrió un error al guardar los movimientos de entrada"
-    '                                    Exit For
-    '                                End If
-    '                            Next
-
-    '                            If TieneError Then Exit For
-    '                        Else
-    '                            Exit For
-    '                            TextoError = "Ocurrió un error al guardar los movimientos de entrada"
-    '                        End If
-
-    '                    Else
-    '                        TieneError = True
-    '                        TextoError = "No se pudo generar el movimiento de entrada correctamente"
-    '                        Exit For
-    '                    End If
-
-    '                End If
-
-    '            Next
-    '            DTPS1.Dispose()
-    '            DTPS2.Dispose()
-    '        End If
-
-
-    '        If Not TieneError Then
-    '            ObjInventario.Commit()
-    '            Alert("El producto se ha unificado correctamente.", TipoMensaje.MsgInformacion)
-    '            CargaPS()
-    '        Else
-    '            ObjInventario.RollBack()
-    '            Alert(TextoError, TipoMensaje.MsgError)
-    '        End If
-
-    '        ObjInventario.Dispose()
-    '    End Sub
-
-    '    Private Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClasificacion.SelectedIndexChanged
-    '        If DdlClasificacion.SelectedValue = "-1" Then
-    '            ddlProducto.DataSource = TmpPS
-    '        Else
-    '            If isWhitFamily() Then
-    '                ddlProducto.DataSource = TmpPS.FiltraParametros(String.Format("CveSubFamilia={0}", DdlClasificacion.SelectedValue), "PS")
-    '            Else
-    '                ddlProducto.DataSource = TmpPS.FiltraParametros(String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue), "PS")
-    '            End If
-    '        End If
-    '        ddlProducto.Items.Clear()
-    '        ddlProducto.DataBind()
-    '        ddlProducto.Items.Insert(0, New ListItem("----", "-1"))
-    '    End Sub
-    '    #End Region
 
 
 End Class
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 4b2a682fc..9793c9c20 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -5443,7 +5443,7 @@ Partial Class OC_OC
         If Not TieneError Then
             RegistraScript("$('#ModalSolicitarAnticipo').modal('hide');", "ModalSolicitarAnticipoHide")
             ObjOC.Commit()
-            EnviaCorreoSolicitudAnticipo(ObjOI.CveEvento)
+            EnviaCorreoSolicitudAnticipo(ObjOI.CveEvento, TxtSAImporte.Text.ToDecimal, DdlSAUsuario.SelectedValue.ToEntero)
             'LIMPIA
             BtnSolicitudAnticipo.Visible = False
             DdlSAUsuario.SelectedValue = "-1"
@@ -5465,20 +5465,20 @@ Partial Class OC_OC
 
     End Sub
 
-    Private Sub EnviaCorreoSolicitudAnticipo(CveEvento As Integer, Optional ImporteAnticipo As Decimal = 0)
+    Private Sub EnviaCorreoSolicitudAnticipo(CveEvento As Integer, ImporteAnticipo As Decimal, CveUsuarioCorreo As Integer)
         Dim Param As New List(Of String)
 
-        Dim DtPara As DataTable = GlobalDTUsuarios(DdlSAUsuario.SelectedValue.ToString.ToEntero, CveEmpresaActual)
+        Dim DtPara As DataTable = GlobalDTUsuarios(CveUsuarioCorreo, CveEmpresaActual)
 
-        If DdlMetodoPago.SelectedValue.ToEntero = 0 Then
+        'If DdlMetodoPago.SelectedValue.ToEntero = 0 Then
 
-            DtPara = GlobalDTUsuarios(DdlSAUsuarioContado.SelectedValue.ToString.ToEntero, CveEmpresaActual)
+        '    DtPara = GlobalDTUsuarios(DdlSAUsuarioContado.SelectedValue.ToString.ToEntero, CveEmpresaActual)
 
-            If DtPara Is Nothing Then
-                DtPara = GlobalDTUsuarios(DdlSAUsuario.SelectedValue.ToString.ToEntero, CveEmpresaActual)
-            End If
+        '    If DtPara Is Nothing Then
+        '        DtPara = GlobalDTUsuarios(DdlSAUsuario.SelectedValue.ToString.ToEntero, CveEmpresaActual)
+        '    End If
 
-        End If
+        'End If
 
         Try
             If DtPara IsNot Nothing AndAlso DtPara.Rows.Count > 0 Then
@@ -5486,20 +5486,19 @@ Partial Class OC_OC
                 Param.Add(DtPara.Rows(0)("Correo").ToString()) 'Para 
                 Param.Add("Solicitud de anticipo de Orden de Compra") 'Asunto
 
-
-                If ImporteAnticipo = 0 Then
-                    ImporteAnticipo = TxtSAImporte.Text.ToDecimal
-                End If
-
+                'If ImporteAnticipo = 0 Then
+                '    ImporteAnticipo = TxtSAImporte.Text.ToDecimal
+                'End If
 
                 Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.adssistemas.mx/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", CveEvento), ImporteAnticipo.ToString, DdlProveedores.SelectedText))
                 Param.Add(String.Format("{0}PDF\OC-{1}.pdf", UsuarioActual.Empresa.Ruta, CveOrdenCompra))
                 Dim Hilo As New Threading.Thread(AddressOf MandaCorreoAnticipo)
                 Hilo.Start(Param)
-
+            Else
+                Alert("Correo de solcitud de anticipo no enviado", TipoMensaje.MsgAdvertencia)
             End If
         Catch ex As Exception
-
+            Alert("Correo de solcitud de anticipo no enviado", TipoMensaje.MsgAdvertencia)
         End Try
 
     End Sub
@@ -9012,7 +9011,7 @@ Partial Class OC_OC
         End If
 
         If Not TieneError Then
-            EnviaCorreoSolicitudAnticipo(ObjOI.CveEvento, TxtSAImporteContado.Text.ToDecimal)
+            EnviaCorreoSolicitudAnticipo(ObjOI.CveEvento, TxtSAImporteContado.Text.ToDecimal, DdlSAUsuarioContado.SelectedValue.ToString.ToEntero)
             'LIMPIA
             DdlSAUsuarioContado.SelectedValue = "-1"
             TxtSAImporteContado.Text = ""
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 274ae7575..b3ccd8f77 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -7561,6 +7561,11 @@ Partial Class Ventas
             'CARGAR CREDITO DISPONIBLE AL GENERAR UNA FACTURA
         End If
 
+        ''SI NO PERMITE CREDITO, SUGIERE CONTADO
+        'If (UsuarioActual.Empresa.Funcionalidad(702).Contiene("1")) AndAlso Not PermiteCredito AndAlso (DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") AndAlso (CveVenta <= 0 OrElse EsCreaApartirDe)) Then
+        '    RBLPago.SelectedValue = "2"
+        'End If
+
         If ((DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso CveVenta <= 0) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveVenta > 0)) AndAlso RBLPago.SelectedValue = "1" AndAlso PermiteCredito Then
             'FUNCIONALIDAD 702 - NO VERIFICAR LIMITE DE CRÉDITO Y CANDADOS DE VENTA
             If Not UsuarioActual.Empresa.Funcionalidad(702) = "1" Then
@@ -8007,10 +8012,13 @@ Partial Class Ventas
 
                 If Opcion = 2 Then
                     Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
-                    BtnEmitirImprimir.Visible = False
-                    BtnsFacturar.Visible = False
-                    BtnGenerarRemision.Visible = False
-                    TieneBloqueoPorCreditoVencimiento = 1
+                    RBLPago.SelectedValue = "2"
+                    RBLPago.Items(0).Enabled = False
+                    RBLPago_SelectedIndexChanged(Nothing, Nothing)
+                    'BtnEmitirImprimir.Visible = False
+                    'BtnsFacturar.Visible = False
+                    'BtnGenerarRemision.Visible = False
+                    'TieneBloqueoPorCreditoVencimiento = 1
                 End If
             End If
         End If