CARGA DE TRABAJO 1 Y 2

Ventas/Ventas.aspx.vb

@@ -1206,6 +1206,15 @@ Partial Class Ventas
             ViewState("SaldoAnticipo") = value
         End Set
     End Property
+    Private Property CorreoEntregaAlmacen As String
+        Get
+            Return If(IsNothing(ViewState("CorreoEntregaAlmacen")), "", ViewState("CorreoEntregaAlmacen").ToString())
+        End Get
+
+        Set(value As String)
+            ViewState("CorreoEntregaAlmacen") = value
+        End Set
+    End Property
 
 #End Region
 
@@ -2634,6 +2643,7 @@ Partial Class Ventas
         If UsuarioActual.CveEmpresa = 141 Then
             BtnModalAddPS.Enabled = False
         End If
+        MostrarOpcioensPaqueteria()
     End Sub
     Private Sub BloqueaClasificaciones()
         If UsuarioActual.CveEmpresa = 141 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
@@ -4847,6 +4857,7 @@ Partial Class Ventas
 
                 ViewState("Mail") = If(DdlTipoComprobante.SelectedValue = "Cot", ObjCliente.MailCotizacion, ObjCliente.Mail)
                 ViewState("MailCC") = ObjCliente.NotificarA
+                CorreoEntregaAlmacen = ObjCliente.DtResultados(0)("CorreoEntregaAlmacen").ToString
                 LblDireccion.Text = ObjCliente.Direccion
                 LblColonia.Text = ObjCliente.Colonia
                 LblCiudad.Text = ObjCliente.Ciudad
@@ -5157,8 +5168,8 @@ Partial Class Ventas
                 CargarAlmacenes()
 
                 If UsuarioActual.Empresa.FacturaProduccion Then
-                    CargaDocumentacionCliente()
                 End If
+                CargaDocumentacionCliente()
 
                 If UsuarioActual.CveEmpresa.Contiene(72, 80, 1, 119) Then
                     BtnEmitirImprimir.OnClientClick = $"ValidaGuardar({ If(ImprimeNombreSucursal = True, 1, 0)});"
@@ -9502,7 +9513,7 @@ Partial Class Ventas
                            CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero() > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)),
                            CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM,
                            DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False),
-                           Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text) Then
+                           Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text, FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero) Then
             ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
         Else
             If factura.TipoDocto.Contiene("Dev", "Egs") Or DtVentasNC IsNot Nothing Or CveEstatusRefacturacion = 1 Then
@@ -9523,6 +9534,10 @@ Partial Class Ventas
                 End If
 
             End If
+
+            If UsuarioActual.Empresa.Funcionalidad(280) = "1" And RblPaqueteria.SelectedValue = "1" Then
+                NotificarPaqueteria()
+            End If
         End If
 
         If Not GuardarUsados(ObjVentas.IniciaTransacSQL, ObjVentas.CveVenta) Then
@@ -14056,7 +14071,7 @@ Partial Class Ventas
             TrVistaPrevia.Visible = EstatusCliente
         End If
 
-
+        MostrarOpcioensPaqueteria()
 
         TrAtencionA.Visible = True
         tdVigencia.Visible = DdlTipoComprobante.SelectedValue.Contiene("Cot")
@@ -14067,6 +14082,7 @@ Partial Class Ventas
         UPCondicionesPago.Update()
         UpCliente.Update()
         UpPS.Update()
+        UPObservaciones.Update()
     End Sub
     Protected Sub DdlSucursalCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSucursalCliente.SelectedIndexChanged
         CargaClienteSucursal(DdlSucursalCliente.SelectedValue.ToEntero())
@@ -25648,6 +25664,27 @@ Partial Class Ventas
         CargaEventoBitacora()
     End Sub
 
+    Private Sub MostrarOpcioensPaqueteria()
+        Dim mostrarOpcionesPaq As Boolean = DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ped")
+        trPaqueteriaOpciones.Visible = mostrarOpcionesPaq
+        trPaqueteriOpcionesLabel.Visible = mostrarOpcionesPaq
+    End Sub
 
+    Private Sub NotificarPaqueteria()
+        Dim DtVendedores As DataTable = GlobalDTVendedores(UsuarioActual.CveEmpresa)
 
+        Dim CorreoVendedor As String = DtVendedores.FiltroPrimeroValor("Correo", String.Format("CveVendedor = {0}", DdlVendedor.SelectedValue))
+        Dim CorreoVendedorAdicional As String = DtVendedores.FiltroPrimeroValor("CorreoAdicionalNotificaciones", String.Format("CveVendedor = {0}", DdlVendedor.SelectedValue))
+        Dim CorreoCliente As String = Mail
+        Dim CorreoClienteAlmacen As String = CorreoEntregaAlmacen
+        Dim CorreoNotificacionCliente As String = MailCC
+
+        Dim CorreosCC As String = String.Format("{0};{1};{2};{3}", CorreoVendedor, CorreoVendedorAdicional, CorreoCliente, CorreoNotificacionCliente)
+        Dim LogCorreo As String = String.Format("{0} -- {1} --- {2}", "Tipo de entrega", CorreoClienteAlmacen, CorreosCC)
+        LogCorreo.GuardaLog
+
+        Dim MailCls As New ClsSisMail
+        MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoVendedor, "Entrega en mostrador", "Pendiente", CorreosCC)
+        MailCls = Nothing
+    End Sub
 End Class