diff --git a/Ventas/RepVentasDetalle.aspx b/Ventas/RepVentasDetalle.aspx
index 64b7ea27c..bf70f132e 100644
--- a/Ventas/RepVentasDetalle.aspx
+++ b/Ventas/RepVentasDetalle.aspx
@@ -613,23 +613,30 @@
                             <asp:Literal ID="LtlDescripcionVenta" runat="server" Text='<%# Eval("DescripcionVenta") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%-- 42--%>
                     <asp:TemplateField HeaderText="Cobranza" Visible="false">
                         <ItemTemplate>
                             <asp:Literal ID="LtlCobranza" runat="server" Text='<%# Eval("CobranzaEstatusTurno") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <%-- 42--%>
+                    <%-- 43--%>
                     <asp:TemplateField HeaderText="Descargar XML" Visible="false">
                         <ItemTemplate>
                             <asp:Literal ID="LtlXML" runat="server"></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <%-- 43--%>
+                    <%-- 44--%>
                     <asp:TemplateField HeaderText="Descargar PDF" Visible="false">
                         <ItemTemplate>
                             <asp:Literal ID="LtlPDF" runat="server"></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%-- 45--%>
+                    <asp:TemplateField HeaderText="Tipo Venta" Visible="false">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlTipoVenta" runat="server" Text='<%# Eval("TipoVenta") %>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
                 </Columns>
             </asp:GridView>
         </ContentTemplate>
@@ -822,7 +829,9 @@
                                     <tr>
                                         <td style="text-align: left;">
                                             <asp:CheckBox ID="ChkGestionCobranzaTurno" runat="server" Visible="true" Text="&nbsp; Cobranza" /></td>
-                                        <td style="text-align: left;"></td>
+                                        <td style="text-align: left;">
+                                             <asp:CheckBox ID="ChkTipoVenta" runat="server" Text="&nbsp;Tipo Venta" />
+                                        </td>
                                         <td style="text-align: left;">
                                             <asp:CheckBox ID="ChkDescripcionVenta" runat="server" Visible="true" Text="&nbsp; Descripción Venta" /></td>
                                     </tr>
diff --git a/Ventas/RepVentasDetalle.aspx.vb b/Ventas/RepVentasDetalle.aspx.vb
index 0f8eec6f0..1d7735992 100644
--- a/Ventas/RepVentasDetalle.aspx.vb
+++ b/Ventas/RepVentasDetalle.aspx.vb
@@ -1042,6 +1042,7 @@ Partial Class RepVentasDetalle
         GvDatos.Columns(42).Visible = ChkGestionCobranzaTurno.Checked
         GvDatos.Columns(43).Visible = ChkDescargarXML.Checked
         GvDatos.Columns(44).Visible = ChkDescargarPDF.Checked
+        GvDatos.Columns(45).Visible = ChkTipoVenta.Checked
 
         Personalizo = 1
         If Personalizo = 1 Then
diff --git a/Ventas/RepVentasPeriodo.aspx.vb b/Ventas/RepVentasPeriodo.aspx.vb
index 3c224f9b5..719cc08fa 100644
--- a/Ventas/RepVentasPeriodo.aspx.vb
+++ b/Ventas/RepVentasPeriodo.aspx.vb
@@ -87,7 +87,10 @@ Partial Class RepVentasPeriodo
                 DdlTipoComprobante.SelectedValuesIfExistM(Opcion)
                 DdlGrupo.SelectedValueExist("7")
                 DdlTipoComprobante_SelectedIndexChanged(DdlTipoComprobante, EventArgs.Empty)
-                DdlEstatus.SelectedValue = "-1"
+                DdlEstatus.SelectedValue = "-1"
+            Else
+                DdlTipoComprobante.SelectedValuesIfExistM("Ing")
+                DdlEstatus.SelectedValuesIfExistM("3")
             End If
 
 
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index a3a4124f2..1ef94d20a 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -12425,7 +12425,7 @@ Partial Class Ventas
         End If
 
 
-        ObjFacturaBonificacion.CveTipoVenta = 7 'PRONTO PAGO
+        ObjFacturaBonificacion.CveTipoVenta = 7 'BONIFICACION
 
     End Sub
 
@@ -37929,7 +37929,7 @@ Partial Class Ventas
             ObjFacturaProntoPago.DtVentasNC = DtVentasNC
 
             ObjFacturaProntoPago.Timbre = PreParaTimbre(ObjFacturaProntoPago)
-            ObjFacturaProntoPago.CveTipoVenta = 8
+            ObjFacturaProntoPago.CveTipoVenta = 8 'PRONTO PAGO
 
             Resp = ObjFacturaProntoPago.EmitirFactura(False, Transac:=SqlTransaccion)