diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 6996f5a11..61dbf6af5 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -7536,6 +7536,8 @@ Partial Class Ventas
                     DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Pd2"))
                 End If
             End If
+            HabilitaRemisionPublicoGeneral = 0
+            HabilitarRemisionesPublicoGeneral()
         End If
 
         'CUANDO SEA COTIZACION Y SEA COMPUPROVEEDORES (EMPRESA 72) NO DEBE ENVIAR CORREO AL CLIENTE