Validacion de envio de correos segun el tipo documento

Ventas/Ventas.aspx.vb

@@ -2330,11 +2330,9 @@ Partial Class Ventas
                         End If
 
                         'ENVIO DE FACTURA
-                        If Not UsuarioActual.CveEmpresa.Contiene(72, 80, 119) Then
-                            ChkEnviarFactura.Checked = EnviarCorreoCliente
-                            ChkEnviarFactura.Visible = True
-                            LblEnviarMail.Visible = True
-                        End If
+                        ChkEnviarFactura.Checked = False
+                        ChkEnviarFactura.Visible = True
+                        LblEnviarMail.Visible = True
                     End If
 
                     'Modalidad Contrato
@@ -2565,9 +2563,17 @@ Partial Class Ventas
                 ChkEnviarFactura.Visible = False
                 LblEnviarMail.Visible = False
             Else
-                ChkEnviarFactura.Checked = EnviarCorreoCliente
-                ChkEnviarFactura.Visible = True
-                LblEnviarMail.Visible = True
+                If DdlTipoComprobante.SelectedValue.Contiene("Rem", "PeC", "PA", "Pd2") Then
+                    'ENVIO DE FACTURA
+                    ChkEnviarFactura.Checked = False
+                    ChkEnviarFactura.Visible = True
+                    LblEnviarMail.Visible = True
+                Else
+                    ChkEnviarFactura.Checked = EnviarCorreoCliente
+                    ChkEnviarFactura.Visible = True
+                    LblEnviarMail.Visible = True
+                End If
+
             End If
 
             CargaFletes()
@@ -5028,9 +5034,16 @@ Partial Class Ventas
                     ChkEnviarFactura.Visible = False
                     LblEnviarMail.Visible = False
                 Else
-                    ChkEnviarFactura.Visible = True
-                    ChkEnviarFactura.Checked = EnviarCorreoCliente
-                    LblEnviarMail.Visible = True
+                    If DdlTipoComprobante.SelectedValue.Contiene("Rem", "PeC", "PA", "Pd2") Then
+                        'ENVIO DE FACTURA
+                        ChkEnviarFactura.Checked = False
+                        ChkEnviarFactura.Visible = True
+                        LblEnviarMail.Visible = True
+                    Else
+                        ChkEnviarFactura.Checked = EnviarCorreoCliente
+                        ChkEnviarFactura.Visible = True
+                        LblEnviarMail.Visible = True
+                    End If
                 End If
 
                 ViewState("Mail") = If(DdlTipoComprobante.SelectedValue = "Cot", ObjCliente.MailCotizacion, ObjCliente.Mail)
@@ -5633,6 +5646,24 @@ Partial Class Ventas
             End If
         End If
 
+        'CUANDO SEA COTIZACION Y SEA COMPUPROVEEDORES (EMPRESA 72) NO DEBE ENVIAR CORREO AL CLIENTE
+        If UsuarioActual.CveEmpresa = 72 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
+            ChkEnviarFactura.Checked = False
+            ChkEnviarFactura.Visible = False
+            LblEnviarMail.Visible = False
+        Else
+            If DdlTipoComprobante.SelectedValue.Contiene("Rem", "PeC", "PA", "Pd2") Then
+                'ENVIO DE FACTURA
+                ChkEnviarFactura.Checked = False
+                ChkEnviarFactura.Visible = True
+                LblEnviarMail.Visible = True
+            Else
+                ChkEnviarFactura.Checked = EnviarCorreoCliente
+                ChkEnviarFactura.Visible = True
+                LblEnviarMail.Visible = True
+            End If
+        End If
+
     End Sub
 
 
@@ -14848,11 +14879,10 @@ Partial Class Ventas
                     End If
 
                     'ENVIO DE FACTURA
-                    If Not UsuarioActual.CveEmpresa.Contiene(72, 80, 119) Then
-                        ChkEnviarFactura.Checked = EnviarCorreoCliente
-                        ChkEnviarFactura.Visible = True
-                        LblEnviarMail.Visible = True
-                    End If
+
+                    ChkEnviarFactura.Checked = False
+                    ChkEnviarFactura.Visible = True
+                    LblEnviarMail.Visible = True
 
                 End If
 
@@ -14879,7 +14909,6 @@ Partial Class Ventas
         End If
 
 
-
         TxtFechaPago.Text = Now.AddDays(PlazoCobranza).ToShortDateString
 
         TabAlmacen.Enabled = DdlTipoComprobante.SelectedValue <> "Ant"