diff --git a/App_Code/DtDatos.xsd b/App_Code/DtDatos.xsd index f354dcef4..7192eab3b 100644 --- a/App_Code/DtDatos.xsd +++ b/App_Code/DtDatos.xsd @@ -1,289 +1,296 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/App_Code/DtDatos.xss b/App_Code/DtDatos.xss index 6f4a11dac..4c9cb879f 100644 --- a/App_Code/DtDatos.xss +++ b/App_Code/DtDatos.xss @@ -1,24 +1,24 @@ - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx index e929eccf0..4cacca5f8 100644 --- a/Bancos/IE.aspx +++ b/Bancos/IE.aspx @@ -385,12 +385,21 @@
+ -
- +
+
+ + +
+ + <%-- + --%> +
+
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 7b6fc323e..a1fff0611 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -437,15 +437,6 @@ Partial Class Bancos_IE End Property - Private Property CveCorte As Integer - Get - Return IfNull(ViewState("CveCorte"), -1, ViewState("CveCorte").ToString().ToString()).ToString().ToEntero() - End Get - Set(value As Integer) - ViewState("CveCorte") = value - End Set - End Property - #Region "CANCELACIÓN COMPLEMENTO MODAL V2" @@ -505,6 +496,39 @@ Partial Class Bancos_IE #End Region +#Region " R E F E R E N C I A C O N C E P T O O R I G I N A L E S" + + + Private Property OriReferenciaCIE As String + Get + If ViewState("OriReferenciaCIE") Is Nothing Then + Return "" + Else + Return ViewState("OriReferenciaCIE").ToString + End If + + + End Get + Set(value As String) + ViewState("OriReferenciaCIE") = value + End Set + End Property + + Private Property OriConceptoCIE As String + Get + If ViewState("OriConceptoCIE") Is Nothing Then + Return "" + Else + Return ViewState("OriConceptoCIE").ToString + End If + + End Get + Set(value As String) + ViewState("OriConceptoCIE") = value + End Set + End Property + +#End Region #End Region @@ -1300,17 +1324,6 @@ Partial Class Bancos_IE End If ObjCliente.Dispose() End Sub - - Private Sub CargaCorteCaja() - 'Checar si hay un Turno Abierto - Dim ObjPVenta As New ClsPuntoVenta - If ObjPVenta.GetVta_Cortes("-1", "-1", UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 0) Then - If ObjPVenta.DtResultados.Rows.Count > 0 Then - CveCorte = ObjPVenta.CveCorte - End If - End If - ObjPVenta.Dispose() - End Sub #End Region #Region " CARGA PERSONAL " @@ -1448,11 +1461,6 @@ Partial Class Bancos_IE End If - 'PAGAR NC CON C.CH DEBE DESCONTAR EN EL CORTE - If UsuarioActual.TienePermisoProceso(160) AndAlso Opcion IsNot Nothing AndAlso Opcion = "DevDinV" AndAlso dr("CveTipoCuenta").ToString.ToEntero = 1 Then - CargaCorteCaja() - End If - If dr("UsaTarjeta").ToString = "True" Then CargaGridTarjetas() Else @@ -2496,10 +2504,29 @@ Partial Class Bancos_IE CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PagueseA, TxtImporte.Text.Trim.ToDouble, DdlMoneda.SelectedValue.ToEntero, - TxtTipoCambio.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, ChkAplicaImpuestos.Checked, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito, CveEstatusIE:=DdlEstatusIE.SelectedValue.ToString.ToEntero, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1), CveCorte:=Me.CveCorte) + TxtTipoCambio.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, ChkAplicaImpuestos.Checked, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, + CveCuentaDeposito:=CveCuentaDeposito, CveEstatusIE:=DdlEstatusIE.SelectedValue.ToString.ToEntero, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1), + ConceptoCIE:=If(TxtConceptoCIE.Text.Trim.Length > 0, TxtConceptoCIE.Text, "-1")) If CveIE > 0 Then + + + If DdlCuentaDeposito.SelectedValue.ToEntero > 0 And DdlTipoTransaccion.SelectedValue = "17" Then + + If TxtReferenciaCIE.Text <> OriReferenciaCIE Or TxtConceptoCIE.Text <> OriConceptoCIE Then + + Dim ObjGrales As New ClsGenerales(ObjIE.IniciaTransacSQL) + + If Not ObjGrales.UpdateCuentasDepositosEstatusPagoElectronicoGrupos(DdlCuentaDeposito.SelectedValue.ToEntero, -1, -1, "-1", TxtReferenciaCIE.Text.Trim, TxtConceptoCIE.Text.Trim) Then + + MsgError = "Error al actualziar Cuanta Referencia y Concepto Deposito." + End If + + End If + + End If + If DdlTipoTransaccion.SelectedValue = "1" AndAlso UsuarioActual.CveEmpresa <> 119 Then FolioFijo = ObjIE.Folio.ToEntero 'cheque CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE " + If(Request("Opcion") IsNot Nothing, Request("Opcion").ToString, "") + " " + RBL.SelectedValue, CvePlantillaPoliza, TxtImporte.Text.Trim.ToDouble, TxtImporte.Text.Trim.ToDouble, tCveMoneda, TxtFechaDocumento.Text.ToDate, PagueseA, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, Nothing, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa)) @@ -4678,7 +4705,7 @@ Partial Class Bancos_IE Else Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia) End If - + DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) ElseIf DdlTipoTransaccion.SelectedValue = "17" And CveIE <= -1 Then @@ -4695,7 +4722,7 @@ Partial Class Bancos_IE BtnGuardar.ToolTip = "El proveedor no tiene cuentas deposito" End If - + DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) UpGuardar.Update() @@ -4775,17 +4802,59 @@ Partial Class Bancos_IE End If End Sub Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs) + Dim Dep As New ClsGenerales - If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero) AndAlso Dep.DtResultados.Rows.Count = 1 Then - If Dep.DtResultados.Rows(0)("TieneCIE").ToString.ToEntero = 1 Then - TrReferenciaCIE.Visible = True - TxtReferenciaCIE.Text = Dep.DtResultados.Rows(0)("Referencia").ToString + + If DdlCuentaDeposito.SelectedValue.ToEntero > 0 Then + + If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero) AndAlso Dep.DtResultados.Rows.Count = 1 Then + + + If Dep.DtResultados.Rows.Count > 0 Then + + If Dep.DtResultados.Rows(0)("TieneCIE").ToString.ToEntero = 1 Then + TrReferenciaCIE.Visible = True + + TxtReferenciaCIE.Text = Dep.DtResultados.Rows(0)("Referencia").ToString + TxtConceptoCIE.Text = Dep.DtResultados.Rows(0)("ConceptoCIE").ToString + + OriReferenciaCIE = Dep.DtResultados.Rows(0)("Referencia").ToString + OriConceptoCIE = Dep.DtResultados.Rows(0)("ConceptoCIE").ToString + + + Else + TrReferenciaCIE.Visible = False + End If + + + + If Boolean.Parse(Dep.DtResultados.Rows(0)("EstatusPagoElectronicoGrupos").ToString) AndAlso Dep.DtResultados.Rows(0)("CveSATBanco").ToString.ToEntero <= 0 Then + Alert("Es necesario establecer el banco de la cuenta deposito", TipoMensaje.MsgAdvertencia) + BtnGuardar.Enabled = False + Else + BtnGuardar.Enabled = True + End If + + Else + TrReferenciaCIE.Visible = False + End If + Else TrReferenciaCIE.Visible = False End If + + + Else + TrReferenciaCIE.Visible = False End If + + + Dep.Dispose() UpCuentaDeposito.Update() + UpGuardar.Update() + + End Sub #End Region diff --git a/Bancos/PagoElectronicoGrupos.aspx.vb b/Bancos/PagoElectronicoGrupos.aspx.vb index d8e72ec53..70707b8f5 100644 --- a/Bancos/PagoElectronicoGrupos.aspx.vb +++ b/Bancos/PagoElectronicoGrupos.aspx.vb @@ -1355,7 +1355,7 @@ Partial Class Bancos_PagoElectronicoGrupos RegistrosPago.Append(drow("CveBanco").ToString.Trim) Else ErrorLayout = True - MENSAJEError.AppendLine("Error tamaño clave banco") + MENSAJEError.AppendLine("Es necesario establecer el banco de la cuenta deposito.") End If 'Motivo de pago diff --git a/Bancos/PopIECompras.aspx b/Bancos/PopIECompras.aspx index f2f318896..a8073a7e8 100644 --- a/Bancos/PopIECompras.aspx +++ b/Bancos/PopIECompras.aspx @@ -156,19 +156,36 @@ :
- +
- -
- +
+ +
+ - + +
+ + + +
+ +
+ + <%-- + --%> +
+
+ + + +
diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb index 69fa5cd29..7dd634876 100644 --- a/Bancos/PopIECompras.aspx.vb +++ b/Bancos/PopIECompras.aspx.vb @@ -377,7 +377,11 @@ Partial Class Bancos_PopIECompras Private Property CveCuentaCliente As Integer Get - Return ViewState("CveCuentaCliente").ToString.ToEntero + If ViewState("CveCuentaCliente") Is Nothing Then + Return -1 + Else + Return ViewState("CveCuentaCliente").ToString.ToEntero + End If End Get Set(value As Integer) ViewState("CveCuentaCliente") = value @@ -402,10 +406,39 @@ Partial Class Bancos_PopIECompras Get Return ViewState("CveCuentaMonedaExtranjeraCliente").ToString.ToEntero End Get - End Property - + End Property + + Private Property OriReferenciaCIE As String + Get + If ViewState("OriReferenciaCIE") Is Nothing Then + Return "" + Else + Return ViewState("OriReferenciaCIE").ToString + End If + + + End Get + Set(value As String) + ViewState("OriReferenciaCIE") = value + End Set + End Property + + Private Property OriConceptoCIE As String + Get + If ViewState("OriConceptoCIE") Is Nothing Then + Return "" + Else + Return ViewState("OriConceptoCIE").ToString + End If + + End Get + Set(value As String) + ViewState("OriConceptoCIE") = value + End Set + End Property + #End Region - + Private Sub Bancos_PopIECompras_Load(sender As Object, e As EventArgs) Handles Me.Load If Not IsPostBack Then @@ -926,7 +959,7 @@ Partial Class Bancos_PopIECompras Private Sub CargaCuentasDepositos() DdlCuentaDeposito.Items.Clear() - If DdlTipoTransaccion.SelectedValue.Contiene("2", "9") Then ' transferencias y layout + If DdlTipoTransaccion.SelectedValue.Contiene("2", "9", "17") Then ' transferencias y layout trCuentaDeposito.Visible = False @@ -944,7 +977,7 @@ Partial Class Bancos_PopIECompras BtnGuardar.Enabled = False Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia) End If - + DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) ElseIf DdlTipoTransaccion.SelectedValue = "17" Then @@ -960,9 +993,9 @@ Partial Class Bancos_PopIECompras End If - UpGuardar.Update() - - + UpGuardar.Update() + + DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) Else DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("Estatus ='True'") If Dep.DtResultados.Rows.Count > 0 Then @@ -992,9 +1025,11 @@ Partial Class Bancos_PopIECompras Else trCuentaDeposito.Visible = False DdlCuentaDeposito.Items.Clear() + 'TrReferenciaCIE.Visible = False End If 'RecargaGlobalCuentasBancarias() - UpCuentaDeposito.Update() + UpCuentaDeposito.Update() + End Sub #End Region @@ -1452,7 +1487,7 @@ Partial Class Bancos_PopIECompras Select Case RBLContado.SelectedValue Case "1" ' Banco - CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, Fecha, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, ImportePagado, CveMoneda, tipoCambioPago, TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1), CveCuentaDeposito:=CveCuentaDeposito, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1")) + CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, Fecha, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, ImportePagado, CveMoneda, tipoCambioPago, TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1), CveCuentaDeposito:=CveCuentaDeposito, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), ConceptoCIE:=If(TxtConceptoCIE.Text.Trim.Length > 0, TxtConceptoCIE.Text, "-1")) If CveIE > 0 Then CveConcepto = 17 Else @@ -2371,6 +2406,7 @@ Partial Class Bancos_PopIECompras End If Case 19 'Iva Acreditable + If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then 'funcionalidad que toma el 100% del pago para acreditamiento de iva Dim TotalImporte As Decimal @@ -3408,7 +3444,54 @@ Partial Class Bancos_PopIECompras End If - End Sub + End Sub #End Region - + + + + Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs) + + Dim Dep As New ClsGenerales + + If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero) AndAlso Dep.DtResultados.Rows.Count = 1 Then + + If Dep.DtResultados.Rows.Count > 0 Then + + If Dep.DtResultados.Rows(0)("TieneCIE").ToString.ToEntero = 1 Then + + TrReferenciaCIE.Visible = True + + TxtReferenciaCIE.Text = Dep.DtResultados.Rows(0)("Referencia").ToString + TxtConceptoCIE.Text = Dep.DtResultados.Rows(0)("ConceptoCIE").ToString + + OriReferenciaCIE = Dep.DtResultados.Rows(0)("Referencia").ToString + OriConceptoCIE = Dep.DtResultados.Rows(0)("ConceptoCIE").ToString + + Else + TrReferenciaCIE.Visible = False + End If + + + If Boolean.Parse(Dep.DtResultados.Rows(0)("EstatusPagoElectronicoGrupos").ToString) = True AndAlso Dep.DtResultados.Rows(0)("CveSATBanco").ToString.ToEntero <= 0 Then + + Alert("Es necesario establecer el banco de la cuenta deposito", TipoMensaje.MsgAdvertencia) + BtnGuardar.Enabled = False + + Else + BtnGuardar.Enabled = True + End If + + Else + TrReferenciaCIE.Visible = False + End If + + Else + TrReferenciaCIE.Visible = False + End If + + Dep.Dispose() + UpCuentaDeposito.Update() + UpGuardar.Update() + End Sub + End Class \ No newline at end of file diff --git a/Bancos/ProveedoresAbonar.aspx b/Bancos/ProveedoresAbonar.aspx index 577cf4377..a6c1f586b 100644 --- a/Bancos/ProveedoresAbonar.aspx +++ b/Bancos/ProveedoresAbonar.aspx @@ -199,8 +199,8 @@
- - + <%-- + --%>
diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index b87311be9..5ce744e3b 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -311,7 +311,7 @@ Partial Class Bancos_ProveedoresAbonar Private Property OriConceptoCIE As String Get - If ViewState("OriReferenciaCIE") Is Nothing Then + If ViewState("OriConceptoCIE") Is Nothing Then Return "" Else Return ViewState("OriConceptoCIE").ToString @@ -875,7 +875,7 @@ Partial Class Bancos_ProveedoresAbonar ComprobanteIE = $"{CveIE}.{Comprobante}" - If DdlCuentaDeposito.SelectedValue.ToEntero > 0 Then + If DdlCuentaDeposito.SelectedValue.ToEntero > 0 And DdlTipoTransaccion.SelectedValue = "17" Then If TxtReferenciaCIE.Text <> OriReferenciaCIE Or TxtConceptoCIE.Text <> OriConceptoCIE Then @@ -1853,7 +1853,7 @@ Partial Class Bancos_ProveedoresAbonar 'CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria 'Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompraValuacion) 'TipoCambioGeneral = TCImpuestos - ''' si tiene funcionalidad de flucturación con ivas, tomar tipocambioCompra + '''' si tiene funcionalidad de flucturación con ivas, tomar tipocambioCompra 'If TipoCambioPago < tipoCambioCompra AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then ' ImporteMovimiento = (gvr.FCTextBox("TxtAbonar").Text.ToDecimal * TipoCambioPago) - (gvr.FCTextBox("TxtAbonar").Text.ToDecimal * tipoCambioCompra) 'Añadimos la diferencia de ganancia en la venta ' ImporteMovimiento -= (IVA * TCImpuestos) - (IVA * tipoCambioCompra) 'Añadimos la diferencia de ganancia en el IVA @@ -2660,28 +2660,50 @@ Partial Class Bancos_ProveedoresAbonar 'cuando es transferencia bancaria, debe de solicitar a que cuenta se va a depositar CargaCuentasDepositos() End Sub + Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs) Dim Dep As New ClsGenerales If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero) AndAlso Dep.DtResultados.Rows.Count = 1 Then - If Dep.DtResultados.Rows(0)("TieneCIE").ToString.ToEntero = 1 Then - TrReferenciaCIE.Visible = True - TxtReferenciaCIE.Text = Dep.DtResultados.Rows(0)("Referencia").ToString - TxtConceptoCIE.Text = Dep.DtResultados.Rows(0)("ConceptoCIE").ToString + If Dep.DtResultados.Rows.Count > 0 Then - OriReferenciaCIE = Dep.DtResultados.Rows(0)("Referencia").ToString - OriConceptoCIE = Dep.DtResultados.Rows(0)("ConceptoCIE").ToString + If Dep.DtResultados.Rows(0)("TieneCIE").ToString.ToEntero = 1 Then + + TrReferenciaCIE.Visible = True + + TxtReferenciaCIE.Text = Dep.DtResultados.Rows(0)("Referencia").ToString + TxtConceptoCIE.Text = Dep.DtResultados.Rows(0)("ConceptoCIE").ToString + + OriReferenciaCIE = Dep.DtResultados.Rows(0)("Referencia").ToString + OriConceptoCIE = Dep.DtResultados.Rows(0)("ConceptoCIE").ToString + + Else + TrReferenciaCIE.Visible = False + End If + + + If Boolean.Parse(Dep.DtResultados.Rows(0)("EstatusPagoElectronicoGrupos").ToString) = True AndAlso Dep.DtResultados.Rows(0)("CveSATBanco").ToString.ToEntero <= 0 Then + + Alert("Es necesario establecer el banco de la cuenta deposito", TipoMensaje.MsgAdvertencia) + BtnIEGuardar.Enabled = False + + Else + BtnIEGuardar.Enabled = True + End If Else TrReferenciaCIE.Visible = False End If + + Else + TrReferenciaCIE.Visible = False End If Dep.Dispose() UpCuentaDeposito.Update() - + UpGuardar.Update() End Sub #End Region diff --git a/Contabilidad/RepIVA.aspx b/Contabilidad/RepIVA.aspx index ab77a2796..ac20c6490 100644 --- a/Contabilidad/RepIVA.aspx +++ b/Contabilidad/RepIVA.aspx @@ -123,6 +123,7 @@ + @@ -196,6 +197,7 @@ + diff --git a/Empresas/Grales/Formatos/RepIVA.rpt b/Empresas/Grales/Formatos/RepIVA.rpt index 5b20e8876..6052ad0c0 100644 Binary files a/Empresas/Grales/Formatos/RepIVA.rpt and b/Empresas/Grales/Formatos/RepIVA.rpt differ diff --git a/Empresas/Grales/Formatos/RepIVAAcreditable.rpt b/Empresas/Grales/Formatos/RepIVAAcreditable.rpt index dcaac6f14..9d2cf8b80 100644 Binary files a/Empresas/Grales/Formatos/RepIVAAcreditable.rpt and b/Empresas/Grales/Formatos/RepIVAAcreditable.rpt differ diff --git a/Empresas/Grales/Formatos/RepIVAAcreditable2.rpt b/Empresas/Grales/Formatos/RepIVAAcreditable2.rpt deleted file mode 100644 index 76a5aadc4..000000000 Binary files a/Empresas/Grales/Formatos/RepIVAAcreditable2.rpt and /dev/null differ diff --git a/General/PopUpPaqueteriasGuias.aspx b/General/PopUpPaqueteriasGuias.aspx index 05fb07060..b3891f3aa 100644 --- a/General/PopUpPaqueteriasGuias.aspx +++ b/General/PopUpPaqueteriasGuias.aspx @@ -30,7 +30,7 @@ - + - + diff --git a/General/RepPaqueteriasGuias.aspx.cs b/General/RepPaqueteriasGuias.aspx.cs index d49cbca92..08ee47e58 100644 --- a/General/RepPaqueteriasGuias.aspx.cs +++ b/General/RepPaqueteriasGuias.aspx.cs @@ -240,7 +240,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas protected void CargaPaqueteriasGuiasTipo() { - DdlTipo.DataSource = get_GlobalDTPaqueteriaGuiaTipos(UsuarioActual.CveEmpresa); + DdlTipo.DataSource = get_GlobalDTPaqueteriaGuiaTipos(UsuarioActual.CveEmpresa).FiltraParametros("Consultable = 'True'"); DdlTipo.DataBind(); DdlTipo.Items.Insert(0, new ListItem("Todos ", "-1")); @@ -1076,7 +1076,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas CargaDatos(); UPDatos.Update(); CvePaqueteriaGuiaReasignar = -1; - EnviarCorreoNotificacionEntrega(3, SerieFolio, "","","","","",-1,null); + EnviarCorreoNotificacionEntrega(3, Folio, "","","","","",-1,null); this.RegistraScript("$('#ModalMotivoReasignacion').modal('hide')", "hidemodal3"); } diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index af5563ebc..1726fcfbf 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -634,7 +634,7 @@ Partial Class Inventarios_EntregaAlmacen LnkPaqueteriaDetalle.Visible = False Case 2 RbEntregaInterna.Checked = True - LnkPaqueteriaDetalle.Visible = True + 'LnkPaqueteriaDetalle.Visible = True DdlEstatus.SelectedValue = "5" Case 3 RbEntregaExterna.Checked = True @@ -2652,7 +2652,7 @@ Partial Class Inventarios_EntregaAlmacen 'Paqueterias guias If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then - Dim CveEstatus As Integer = 0 ' DdlEstatus.SelectedValue.ToEntero() + Dim CveEstatus As Integer = 1 ' DdlEstatus.SelectedValue.ToEntero() Dim Fecha As String = "-1" 'TxtFechaPaqInterna.Text Dim FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text) Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero() @@ -3184,7 +3184,7 @@ Partial Class Inventarios_EntregaAlmacen End Sub Private Sub EnviarCorreoEntrega(tCveVenta As Integer, UsuarioActual As Usuario) - Dim Correo As New ClsSisMail() + Dim Correo As New ClsSisMail Dim SerieFolio As String = "" Dim Asunto As String = String.Format("{0} Envio de pedido: {1}", UsuarioActual.Empresa.NombreCorto, SerieFolio) Dim Cuerpo As New StringBuilder() @@ -3192,46 +3192,48 @@ Partial Class Inventarios_EntregaAlmacen Dim MensajeEnviado = False Dim tCvecliente As Integer Dim bytes() As Byte = Nothing - Using ObjVentas As New ClsVentas() - If ObjVentas.GetVenta(tCveVenta, UsuarioActual.CveEmpresa) Then - Dim dr As DataRow = ObjVentas.DtResultados.FiltroPrimero("") - Destinatario = String.Format("{0};{1}", dr("CorreoNotificacion"), dr("CorreoVendedorVenta")) + Dim ObjVentas As New ClsVentas() - tCvecliente = dr("CveCliente").ToString.ToEntero + If ObjVentas.GetVenta(tCveVenta, UsuarioActual.CveEmpresa) Then + Dim dr As DataRow = ObjVentas.DtResultados.FiltroPrimero("") + Destinatario = String.Format("{0};{1}", dr("CorreoNotificacion"), dr("CorreoVendedorVenta")) - Dim drC As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=tCvecliente).FiltroPrimero("") - Destinatario += String.Format("{0};{1}", drC("CorreoEntregaCompras"), drC("CorreoEntregaAlmacen")) + tCvecliente = dr("CveCliente").ToString.ToEntero - Cuerpo.AppendLine(String.Format("Estimado {0} le informamos que los productos de la factura {1} han sido enviados a entrega.

", dr("ClienteNombre"), dr("SerieFolio"))) - Cuerpo.AppendLine("

Dudas y aclaraciones con su coordinador empresarial.") + Dim drC As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=tCvecliente).FiltroPrimero("") + Destinatario += String.Format("{0};{1}", drC("CorreoEntregaCompras"), drC("CorreoEntregaAlmacen")) - Dim ClienteNombre As String = dr("ClienteNombre").ToString() - Dim FolioVenta As String = dr("SerieFolio").ToString() - Dim Pedido As String = dr("PedidoContrato").ToString() - Dim OrdenCompra As String = dr("OrdenCompra").ToString() - Dim CveVenta As Integer = dr("CveVenta").ToString().ToEntero() + Cuerpo.AppendLine(String.Format("Estimado {0} le informamos que los productos de la factura {1} han sido enviados a entrega.

", dr("ClienteNombre"), dr("SerieFolio"))) + Cuerpo.AppendLine("

Dudas y aclaraciones con su coordinador empresarial.") - Dim dtDetalle As New DataTable - If ObjVentas.GetVentaDetalle(CveVenta) Then - dtDetalle = ObjVentas.DtResultados - End If + Dim ClienteNombre As String = dr("ClienteNombre").ToString() + Dim FolioVenta As String = dr("SerieFolio").ToString() + Dim Pedido As String = dr("PedidoContrato").ToString() + Dim OrdenCompra As String = dr("OrdenCompra").ToString() + Dim CveVenta As Integer = dr("CveVenta").ToString().ToEntero() - Dim RepParams As New List(Of ReportParameter) - RepParams.Add(New ReportParameter("Cliente", ClienteNombre)) - RepParams.Add(New ReportParameter("FolioVenta", FolioVenta)) - RepParams.Add(New ReportParameter("Pedido", Pedido)) - RepParams.Add(New ReportParameter("OrdenCompra", OrdenCompra)) - bytes = StreamPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/GuiaEntregaMostrador.rdlc", dtDetalle, RepParams, "Notificacion de Envio", "PDF", RDSName:="DsInventarios") + Dim dtDetalle As New DataTable + If ObjVentas.GetVentaDetalle(CveVenta) Then + dtDetalle = ObjVentas.DtResultados End If - End Using + + Dim RepParams As New List(Of ReportParameter) + RepParams.Add(New ReportParameter("Cliente", ClienteNombre)) + RepParams.Add(New ReportParameter("FolioVenta", FolioVenta)) + RepParams.Add(New ReportParameter("Pedido", Pedido)) + RepParams.Add(New ReportParameter("OrdenCompra", OrdenCompra)) + bytes = StreamPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/GuiaEntregaMostrador.rdlc", dtDetalle, RepParams, "Notificacion de Envio", "PDF", RDSName:="DsInventarios") + End If + ObjVentas.Dispose() Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail) Dim itemMail As New ClsSisMail.ArchivoMail() LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = bytes, .NombreArchivo = "Notificacion de Envio"}) - - MensajeEnviado = Correo.SendMail(ClsPaginas.EmpresaNotificaciones, Destinatario, Asunto, Cuerpo.ToString(), Destinatario, Archivos:=LSRutasMail) + + Correo.SendMail(EmpresaNotificaciones, Destinatario, Asunto, Cuerpo.ToString(), Destinatario) + Correo = Nothing End Sub Private Sub Limpia() diff --git a/Inventarios/EntregasPorRealizar.aspx.cs b/Inventarios/EntregasPorRealizar.aspx.cs index 509e25a97..42f1d3955 100644 --- a/Inventarios/EntregasPorRealizar.aspx.cs +++ b/Inventarios/EntregasPorRealizar.aspx.cs @@ -10,18 +10,7 @@ using Microsoft.Reporting.WebForms; public partial class Inventarios_EntregasPorRealizar : ClsPaginas { - private DataTable DtPaqueteriasGuias - { - get - { - return (ViewState["DtPaqueteriasGuias"] == null) ? null : (DataTable)ViewState["DtPaqueteriasGuias"]; - } - set - { - ViewState["DtPaqueteriasGuias"] = value; - } - } - + protected void Page_Load(object sender, EventArgs e) { if (!IsPostBack) @@ -106,10 +95,10 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas if (ObjGeneral.GetEntregasPorRealizar(UsuarioActual.CveEmpresa)) { GvPaqueteriasGuias.DataSource = ObjGeneral.DtResultados; - DtPaqueteriasGuias = ObjGeneral.DtResultados; - GvPaqueteriasGuias.DataBind(); + } ObjGeneral.Dispose(); + GvPaqueteriasGuias.DataBind(); } private void CargarPersonal() diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 5e3c087b2..62d30797d 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -2811,52 +2811,52 @@ Partial Class OC End If 'AJUSTES EN INVENTARIO - For Each DrDiferencias As DataRow In DtInvOCDiferencias.FiltraParametros("ConceptoSalida IN (0,2)", "", {"CveAlmacen", "ConceptoSalida", "CveMovimiento"}).Rows - CveAlmacen = DrDiferencias("CveAlmacen").ToString.ToEntero - CveMovimientoAlmacen = DrDiferencias("CveMovimiento").ToString.ToEntero - ConceptoSalida = DrDiferencias("ConceptoSalida").ToString.ToEntero + 'For Each DrDiferencias As DataRow In DtInvOCDiferencias.FiltraParametros("ConceptoSalida IN (0,2)", "", {"CveAlmacen", "ConceptoSalida", "CveMovimiento"}).Rows + ' CveAlmacen = DrDiferencias("CveAlmacen").ToString.ToEntero + ' CveMovimientoAlmacen = DrDiferencias("CveMovimiento").ToString.ToEntero + ' ConceptoSalida = DrDiferencias("ConceptoSalida").ToString.ToEntero - DiferenciaInvOC = DtInvOCDiferencias.SUMD("Diferencia", $"CveAlmacen = {CveAlmacen} And CveMovimiento = {CveMovimientoAlmacen} And ConceptoSalida = {ConceptoSalida}") - TCInvOC = DtInvOCDiferencias.FiltroPrimeroValor("TipoCambioAjuste", $"CveAlmacen = {CveAlmacen} And CveMovimiento = {CveMovimientoAlmacen} And ConceptoSalida = {ConceptoSalida}").ToDecimal - IdCtaContableAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {DrDiferencias("CveAlmacen").ToString.ToEntero}").ToEntero - CveCuentaAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DrDiferencias("CveAlmacen").ToString.ToEntero}").ToEntero + ' DiferenciaInvOC = DtInvOCDiferencias.SUMD("Diferencia", $"CveAlmacen = {CveAlmacen} And CveMovimiento = {CveMovimientoAlmacen} And ConceptoSalida = {ConceptoSalida}") + ' TCInvOC = DtInvOCDiferencias.FiltroPrimeroValor("TipoCambioAjuste", $"CveAlmacen = {CveAlmacen} And CveMovimiento = {CveMovimientoAlmacen} And ConceptoSalida = {ConceptoSalida}").ToDecimal + ' IdCtaContableAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {DrDiferencias("CveAlmacen").ToString.ToEntero}").ToEntero + ' CveCuentaAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DrDiferencias("CveAlmacen").ToString.ToEntero}").ToEntero - 'MODIFICACIÓN CONCEPTO - If ConceptoSalida = 0 Then - For Each DrAjuste As DataRow In DtInvOC.FiltraParametros($"CveMovimiento = {CveMovimientoAlmacen} And ConceptoSalida = 0").Rows - If Not ObjInventarios.UpdateMovimientoDetalle(DrAjuste("Cantidad").ToString.ToDouble, DrAjuste("CveUM").ToString.ToEntero, DrAjuste("CvePS").ToString.ToEntero, DtInvOCDiferencias.FiltroPrimeroValor("ImporteMovto", $"CveOrdenCompraDetalle = {DrAjuste("CveOrdenCompraDetalle").ToString.ToEntero}").ToDouble, -1, DrAjuste("CveMovimientoDetalle").ToString.ToEntero, PUTC:=DtInvOCDiferencias.FiltroPrimeroValor("ImporteMovtoDLLS", $"CveOrdenCompraDetalle = {DrAjuste("CveOrdenCompraDetalle").ToString.ToEntero}").ToDouble) Then - TieneError = True - Exit For - End If - Next - End If + ' 'MODIFICACIÓN CONCEPTO + ' If ConceptoSalida = 0 Then + ' For Each DrAjuste As DataRow In DtInvOC.FiltraParametros($"CveMovimiento = {CveMovimientoAlmacen} And ConceptoSalida = 0").Rows + ' If Not ObjInventarios.UpdateMovimientoDetalle(DrAjuste("Cantidad").ToString.ToDouble, DrAjuste("CveUM").ToString.ToEntero, DrAjuste("CvePS").ToString.ToEntero, DtInvOCDiferencias.FiltroPrimeroValor("ImporteMovto", $"CveOrdenCompraDetalle = {DrAjuste("CveOrdenCompraDetalle").ToString.ToEntero}").ToDouble, -1, DrAjuste("CveMovimientoDetalle").ToString.ToEntero, PUTC:=DtInvOCDiferencias.FiltroPrimeroValor("ImporteMovtoDLLS", $"CveOrdenCompraDetalle = {DrAjuste("CveOrdenCompraDetalle").ToString.ToEntero}").ToDouble) Then + ' TieneError = True + ' Exit For + ' End If + ' Next + ' End If - 'SALIDA ADMINISTRATIVA (CON SALIDA POR TRASPASO) -AJUSTE - If ConceptoSalida = 2 Then - Dim CveMovimientoSalidaAjuste = ObjInventarios.AddMovimiento(CveAlmacen, 3, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, MovimientoFijo:=True, Modulo:="OC/G") - For Each DrAjuste As DataRow In DtInvOC.FiltraParametros($"CveMovimiento = {CveMovimientoAlmacen} And ConceptoSalida = 2").Rows - If Not ObjInventarios.AddMovimientoDetalle(CveMovimientoSalidaAjuste, DrAjuste("Cantidad").ToString.ToDouble, DrAjuste("CveUM").ToString.ToEntero, DrAjuste("CveUM").ToString.ToEntero, DrAjuste("PU").ToString.ToDouble, -1, CveOrdenCompraDetalle:=DrAjuste("CveOrdenCompraDetalle").ToString.ToEntero) Then - TieneError = True - Exit For - End If - Next - Dim CveMovimientoEntradaAjuste = ObjInventarios.AddMovimiento(CveAlmacen, 2, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Modulo:="OC/G") - If ObjInventarios.GetMovimientosDetalle(CveMovimientoSalidaAjuste, UsuarioActual.CveEmpresa) Then - For Each Dr As DataRow In ObjInventarios.DtResultados.Rows - If Not ObjInventarios.AddMovimientoDetalle(CveMovimientoEntradaAjuste, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, DtInvOCDiferencias.FiltroPrimeroValor("ImporteMovto", $"CveOrdenCompraDetalle = {Dr("CveOrdenCompraDetalle").ToString.ToEntero}").ToDouble, Dr("CveAF").ToString.ToEntero, -1, Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveOrdenCompraDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then - TieneError = True - Exit For - End If - Next - If TieneError Then - Exit For - End If - Else - TieneError = True - Exit For - End If - End If - Next + ' 'SALIDA ADMINISTRATIVA (CON SALIDA POR TRASPASO) -AJUSTE + ' If ConceptoSalida = 2 Then + ' Dim CveMovimientoSalidaAjuste = ObjInventarios.AddMovimiento(CveAlmacen, 3, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, MovimientoFijo:=True, Modulo:="OC/G") + ' For Each DrAjuste As DataRow In DtInvOC.FiltraParametros($"CveMovimiento = {CveMovimientoAlmacen} And ConceptoSalida = 2").Rows + ' If Not ObjInventarios.AddMovimientoDetalle(CveMovimientoSalidaAjuste, DrAjuste("Cantidad").ToString.ToDouble, DrAjuste("CveUM").ToString.ToEntero, DrAjuste("CveUM").ToString.ToEntero, DrAjuste("PU").ToString.ToDouble, -1, CveOrdenCompraDetalle:=DrAjuste("CveOrdenCompraDetalle").ToString.ToEntero) Then + ' TieneError = True + ' Exit For + ' End If + ' Next + ' Dim CveMovimientoEntradaAjuste = ObjInventarios.AddMovimiento(CveAlmacen, 2, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Modulo:="OC/G") + ' If ObjInventarios.GetMovimientosDetalle(CveMovimientoSalidaAjuste, UsuarioActual.CveEmpresa) Then + ' For Each Dr As DataRow In ObjInventarios.DtResultados.Rows + ' If Not ObjInventarios.AddMovimientoDetalle(CveMovimientoEntradaAjuste, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, DtInvOCDiferencias.FiltroPrimeroValor("ImporteMovto", $"CveOrdenCompraDetalle = {Dr("CveOrdenCompraDetalle").ToString.ToEntero}").ToDouble, Dr("CveAF").ToString.ToEntero, -1, Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, CveOrdenCompraDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then + ' TieneError = True + ' Exit For + ' End If + ' Next + ' If TieneError Then + ' Exit For + ' End If + ' Else + ' TieneError = True + ' Exit For + ' End If + ' End If + 'Next End If End If @@ -2918,11 +2918,11 @@ Partial Class OC 'COMMIT If Not TieneError Then - If MonedaTexto <> DdlMoneda.SelectedItem.Text Then - If Not OCBitacora.AddEventoBitacora(String.Format("Se cambió el valor de moneda de '{0}' a '{1}'", MonedaTexto, DdlMoneda.SelectedItem.Text), "-1", UsuarioActual.CveUsuario, CveEmpresaActual, CveOC:=CveOrdenCompra) Then - TieneError = True - End If - End If + 'If MonedaTexto <> DdlMoneda.SelectedItem.Text Then + ' If Not OCBitacora.AddEventoBitacora(String.Format("Se cambió el valor de moneda de '{0}' a '{1}'", MonedaTexto, DdlMoneda.SelectedItem.Text), "-1", UsuarioActual.CveUsuario, CveEmpresaActual, CveOC:=CveOrdenCompra) Then + ' TieneError = True + ' End If + 'End If OC.Commit() If Conta IsNot Nothing Then Conta.Commit() diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 05f241068..d6baf47b7 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -3288,7 +3288,7 @@ - +
<%--Guías Vinculadas--%> Entrega Local<%--Guías Vinculadas--%> Entrega Externa
@@ -202,7 +202,7 @@
Tipo:Documento:
Correo Notificacion: Correo Notificación Usuario Final:  
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 9e701f78f..49abae98b 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -25886,21 +25886,21 @@ Partial Class Ventas End Sub Private Sub NotificarPaqueteria() - Dim DtVendedores As DataTable = GlobalDTVendedores(UsuarioActual.CveEmpresa) + '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 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 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 + 'Dim MailCls As New ClsSisMail + 'MailCls.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoVendedor, "Entrega en mostrador", "Pendiente", CorreosCC) + 'MailCls = Nothing End Sub Private Sub CargarOCRelacionadas()