AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Validacion de envio de correos segun el tipo documento

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-10-26 09:34:20 -07:00
parent c6db4aace8
commit 2e92c6410a
1 changed files with 46 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

63
Ventas/Ventas.aspx.vb
View File

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