Merge branch 'master' of http://192.168.10.111:8383/SIG

2020-01-08 13:43:01 -07:00
parent ff3194d620 6edd3406d1
commit 209e4561d6
7 changed files with 5018 additions and 4902 deletions
--- a/Bancos/FluctuacionCambiaria.aspx.vb
+++ b/Bancos/FluctuacionCambiaria.aspx.vb
@@ -315,6 +315,8 @@ Partial Class Bancos_FluctuacionCambiaria
        Dim Total As Decimal = 0
        Dim Conta As New ClsContabilidad
        Conta.IniciaTransacSQL()
+        Dim ObjContPaq As New ClsContPAQi(UsuarioActual.Empresa)
+        ObjContPaq.IniciaTransacSQL()
        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/Fluctua", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
        Dim idCta As Integer = 0
        Dim CveCuenta As Integer = 0
@@ -372,8 +374,19 @@ Partial Class Bancos_FluctuacionCambiaria
            End If
        Next

+        Dim SeContabilizo As Boolean = False
+
+        Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
+        If AutoConta Then
+            If Conta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContPaq) Then
+                SeContabilizo = True
+            Else
+                Alert("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
+            End If
+        End If
+
+        If Not ErrorRegistrar And SeContabilizo Then

-        If Not ErrorRegistrar Then
            Conta.Commit()
            Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
            CargaDatosCuentas()
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -296,17 +296,17 @@ Partial Class General_SaldosIniciales
                    Exit Sub
                End If

-                If RblFormato.SelectedValue = "4" Then
-                    If Not dt.Columns(15).ColumnName = "ImpuestoLocal" Then
-                        Alert("El nombre de la diesciseisava columna debe ser 'ImpuestoLocal'. Favor de corregirlo", TipoMensaje.MsgError)
-                        Exit Sub
-                    End If
+                'If RblFormato.SelectedValue = "4" Then
+                '    If Not dt.Columns(15).ColumnName = "ImpuestoLocal" Then
+                '        Alert("El nombre de la diesciseisava columna debe ser 'ImpuestoLocal'. Favor de corregirlo", TipoMensaje.MsgError)
+                '        Exit Sub
+                '    End If

-                    If Not dt.Columns(16).ColumnName = "Amort.Ant" Then
-                        Alert("El nombre de la diescisieteava columna debe ser 'Amort.Ant'. Favor de corregirlo", TipoMensaje.MsgError)
-                        Exit Sub
-                    End If
-                End If
+                '    If Not dt.Columns(16).ColumnName = "Amort.Ant" Then
+                '        Alert("El nombre de la diescisieteava columna debe ser 'Amort.Ant'. Favor de corregirlo", TipoMensaje.MsgError)
+                '        Exit Sub
+                '    End If
+                'End If


            ElseIf RblFormato.SelectedValue = "5" Then
@@ -683,6 +683,7 @@ Partial Class General_SaldosIniciales
                    DTPS = ObjPS.DtResultados
                End If

+                Dim NuevaClasificacion As Boolean = False

                For Each Row As DataRow In dt.Rows
                    Dim Codigo As String = Row("Codigo").ToString
@@ -718,8 +719,9 @@ Partial Class General_SaldosIniciales
                        If ObjClas.AddClasificaciones(Clasificacion, "", -1, "-1", -1, "-1", -1, "-1",
                                                      GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCategoria", "").ToString.ToEntero, UsuarioActual.CveUsuario,
                                                      UsuarioActual.CveEmpresa) Then
-                            If ObjClas.GetClasificaciones() Then Application("GlobalDTClasificaciones") = ObjClas.DtResultados
+                            GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
                            CveClasificacion = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString.ToEntero
+                            NuevaClasificacion = True
                        End If
                    End If

@@ -831,7 +833,7 @@ Partial Class General_SaldosIniciales
                    'If Not CveClasificacion2 > 0 AndAlso Clasificacion2 <> "" Then Alert("No se encontró la Serie: " + Clasificacion2, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For

                    If CvePS > 0 Then
-                        If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, Precio, 1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS,
+                        If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, Precio, -1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS,
                                              CveTipoPS:=CveTipoPS, CveMarca:=CveMarca, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño,
                                              CveModelo:=CveModelo, Litraje:=Litraje, IEPSPorcentaje:=IEPS, CveClasificacion2:=CveClasificacion2, CveTamaño:=CveTamaño) Then
                            'If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, 0, 1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS,
@@ -878,6 +880,9 @@ Partial Class General_SaldosIniciales
                    UpDatos.Update()
                Else
                    ObjPS.RollBack()
+                    If NuevaClasificacion Then
+                        GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
+                    End If
                End If
                ObjPS.Dispose()
                ObjGral.Dispose()
@@ -1356,8 +1361,8 @@ Partial Class General_SaldosIniciales
                    Dim Folio As Integer = Row("Folio").ToString.ToEntero
                    Dim Fecha As Date = Row("Fecha").ToString.ToDate
                    Dim FechaVencimiento As Date = Row("Fecha Vencimiento").ToString.ToDate
-                    Dim ImpuestoLocal As Double = Row("ImpuestoLocal").ToString.ToDouble
-                    Dim Amortizacion As Double = Row("Amort.Ant").ToString.ToDouble
+                    Dim ImpuestoLocal As Double = If(dt.Columns.Contains("ImpuestoLocal"), Row("ImpuestoLocal").ToString.ToDouble, 0.0)
+                    Dim Amortizacion As Double = If(dt.Columns.Contains("Amort.Ant"), Row("Amort.Ant").ToString.ToDouble, 0.0)
                    Dim SubTotal As Decimal = Row("SubTotal").ToString.ToDecimal
                    Dim IVA As Decimal = Row("IVA").ToString.ToDecimal
                    Dim Total As Decimal = Row("Total").ToString.ToDecimal
@@ -1372,7 +1377,8 @@ Partial Class General_SaldosIniciales
                    Dim CveVendedor As Integer = 0
                    Dim IEPS As Decimal = 0 'Row("IEPS").ToString.ToDecimal
                    Dim CveClienteSucursal As Integer = 0 'Row("CveClienteSucursal").ToString.ToEntero
-                    Dim ImpuestosLocales As Decimal = Row("ImpuestoLocal").ToString.ToDecimal
+                    Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestoLocal"), Row("ImpuestoLocal").ToString.ToDecimal, 0)
+                    Dim FolioFiscal As String = If(dt.Columns.Contains("Folio Fiscal"), Row("Folio Fiscal").ToString, "")

                    GuardaLog(Sucursal + "-" + Row("Folio").ToString)
                    'Temporalmente SE BORRARA
@@ -1437,6 +1443,12 @@ Partial Class General_SaldosIniciales
                                ConceptoContablePago = 91
                            End If

+                            If FolioFiscal <> "" Then
+                                If Not ObjVentas.UpdateVentaFolioFiscal(FolioFiscal, CveVenta, UsuarioActual.CveEmpresa) Then
+                                    ErrorVentas = True
+                                    Exit For
+                                End If
+                            End If

                            'PrePólizaDetalle
                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SubTotal, Folio.ToString, 4, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, ImporteMX:=SubTotal, CveSubProyecto:=Sucursal.ToEntero) Then ErrorVentas = True : Exit For
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -309,6 +309,14 @@ Partial Class Inventarios_RecepcionUsados
            ViewState("TmpDTAjustes") = value
        End Set
    End Property
+    Private Property DtPorcentajeMarcas As DataTable
+        Get
+            Return If(IsNothing(ViewState("DtPorcentajeMarcas")), Nothing, CType(ViewState("DtPorcentajeMarcas"), DataTable))
+        End Get
+        Set(value As DataTable)
+            ViewState("DtPorcentajeMarcas") = value
+        End Set
+    End Property

 #End Region

@@ -2442,13 +2450,18 @@ Partial Class Inventarios_RecepcionUsados
    Public Sub OnRblUsadosAjuste_Change(sender As Object, e As EventArgs)
        DdlAlmacen.Items.Clear()
        If RblUsadosAjuste.SelectedValue = "1" Then
-            CargaAjuste()
-            DivAjuste.Visible = True
-            'Llenar el dropdownlist de almacén
-            DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 6)
-            LnkAgregarUsado.Visible = False
-            UppAcciones.Update()
-
+            If DdlClientes.SelectedValue <> "-1" Then
+                CargaAjuste()
+                DivAjuste.Visible = True
+                'Llenar el dropdownlist de almacén
+                DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 6)
+                CargarDescuento()
+                LnkAgregarUsado.Visible = False
+                UppAcciones.Update()
+            Else
+                Alert("hace falta seleccionar un cliente")
+                RblUsadosAjuste.SelectedValue = "0"
+            End If
        Else
            DivAjuste.Visible = False
            'Llenar el dropdownlist de almacén
@@ -2545,6 +2558,31 @@ Partial Class Inventarios_RecepcionUsados
                End If

            End If
+            Dim MarcaPorcentaje As DataRow = DtPorcentajeMarcas.FiltroPrimero(String.Format("CveMarca = {0}", drPS("CveMarca").ToString))
+            If MarcaPorcentaje IsNot Nothing Then
+                Dim PorcentajeProducto As Decimal = MarcaPorcentaje("PorcentajeProducto").ToString.ToDecimal / 100
+                Dim PorcentajeProducto2 As Decimal = MarcaPorcentaje("PorcentajeProducto2").ToString.ToDecimal / 100
+                Dim PorcentajeProducto3 As Decimal = MarcaPorcentaje("PorcentajeProducto3").ToString.ToDecimal / 100
+
+                If PorcentajeProducto > 0 Then
+
+                    Dim MontoDescuento As Decimal = PrecioSugerido * PorcentajeProducto
+                    PrecioSugerido -= MontoDescuento
+
+                    If PorcentajeProducto2 > 0 Then
+
+                        MontoDescuento = PrecioSugerido * PorcentajeProducto2
+                        PrecioSugerido -= MontoDescuento
+
+                        If PorcentajeProducto3 > 0 Then
+                            MontoDescuento = PrecioSugerido * PorcentajeProducto3
+                            PrecioSugerido -= MontoDescuento
+                        End If
+                    End If
+                End If
+
+            End If
+
            txtPrecio.Text = PrecioSugerido.FormatoNumero(2)
            TxtPUFactura.Text = PrecioSugerido.FormatoNumero(2)
        End If
@@ -2713,6 +2751,14 @@ Partial Class Inventarios_RecepcionUsados
        End If
        ObjPS.Dispose()
    End Sub
+
+    Protected Sub CargarDescuento()
+        Dim ObjPS As New ClsProductosServicios
+        If ObjPS.GetPorcentajeMarcas(DdlClientes.SelectedValue.ToEntero) Then
+            DtPorcentajeMarcas = ObjPS.DtResultados.Copy()
+        End If
+        ObjPS.Dispose()
+    End Sub
 #End Region

 End Class
--- a/Ventas/CatClasificaciones.aspx.vb
+++ b/Ventas/CatClasificaciones.aspx.vb
@@ -348,7 +348,9 @@ Partial Class CatClasificaciones

        TxtClasificacion.Text = ""
        TxtPrecioBaseCosto.Text = ""
-        DdlCategoria.SelectedIndex = 0
+        If DdlCategoria.Items.Count > 0 Then
+            DdlCategoria.SelectedIndex = 0
+        End If
        DdlSATPS.SelectedValue = ""
        DdlSATPS.SelectedText = ""
        LtlTituloModal.Text = "Agregar Clasificación"
--- a/Ventas/PV.aspx
+++ b/Ventas/PV.aspx
@@ -616,8 +616,7 @@
                                                </th>
                                                <th id="thEncIEPS1" runat="server" visible="false">IEPS
                                                </th>
-                                                <th>Total&nbsp<%--;<asp:LinkButton ID="ImgDescConcepto" runat="server" Text="<i class='fa fa-comment-o'></i>" Style="cursor: pointer;" AlternateText="Agregar Descuento" /></th>--%>
-                                                    <th style="width: 100px;" colspan="3">Comandos</th>
+                                                <th>Total&nbsp<%--;<asp:LinkButton ID="ImgDescConcepto" runat="server" Text="<i class='fa fa-comment-o'></i>" Style="cursor: pointer;" AlternateText="Agregar Descuento" /></th>--%><th style="width: 100px;" colspan="3">Comandos</th>
                                                    <th></th>
                                                    <th runat="server" visible="false" id="nomostrar2"></th>
                                            </tr>
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -6704,6 +6704,23 @@ Partial Class Ventas
                GuardarVenta(ObjVentas, ObjConta, ObjInventario, ObjContr, ObjFactura, TmpDT, ObjFactura.CveNCaVincular, ObjContPaq, ObjBancos, ObjOS,
                             ObjEventos, ObjCGame, ObjClientes, EsNCAmortizacion:=EsNCAmortizacion)

+                'Agregamos las OCs a la tabla
+                If ObjFactura.CveVenta > 0 AndAlso ErrorList.Count = 0 AndAlso DTOrdenesCompraPS IsNot Nothing AndAlso DTOrdenesCompraPS.Rows.Count > 0 AndAlso ErrorList.Count = 0 Then
+                    Dim CveVentaDetalle As Integer = 0
+                    Dim CveOrdenCompraDetalle As Integer = 0
+                    Dim Cantidad As Decimal = 0
+
+                    For Each row As DataRow In TmpDT.Rows
+                        Cantidad = row("Cantidad").ToString.ToDecimal
+                        CveVentaDetalle = row("CveVentaDetalle").ToString.ToEntero
+                        CveOrdenCompraDetalle = row("CveOrdenCompraDetalle").ToString.ToEntero
+                        If Not ObjVentas.AgregarVentaOCDetalle(CveVentaDetalle, CveOrdenCompraDetalle, Cantidad) Then
+                            ErrorList.Add("Ocurrió un Error al agregar el detalle de la Remision")
+                            Exit For
+                        End If
+                    Next
+                End If
+
                'SI ES REFACTURACION
                Dim ObjNC As List(Of Object) = Nothing
                If ErrorList.Count = 0 Then
@@ -6723,7 +6740,6 @@ Partial Class Ventas
                                End If
                            End If
                        End If
-
                    End If
                End If

@@ -6789,24 +6805,6 @@ Partial Class Ventas
                        End If
                    End If

-                    'Agregamos las OCs a la tabla
-                    If DTOrdenesCompraPS IsNot Nothing AndAlso DTOrdenesCompraPS.Rows.Count > 0 AndAlso ErrorList.Count = 0 Then
-                        Dim CveVentaDetalle As Integer = 0
-                        Dim CveOrdenCompraDetalle As Integer = 0
-                        Dim Cantidad As Decimal = 0
-
-
-                        For Each row As DataRow In TmpDT.Rows
-                            Cantidad = row("Cantidad").ToString.ToDecimal
-                            CveVentaDetalle = row("CveVentaDetalle").ToString.ToEntero
-                            CveOrdenCompraDetalle = row("CveOrdenCompraDetalle").ToString.ToEntero
-                            If Not ObjVentas.AgregarVentaOCDetalle(CveVentaDetalle, CveOrdenCompraDetalle, Cantidad) Then
-                                ErrorList.Add("Ocurrió un Error al agregar el detalle de la Remision")
-                            End If
-                        Next
-
-                    End If
-
                    'Agregamos las Cotizaciones a la tabla
                    If DtCotizacionesPS IsNot Nothing AndAlso DtCotizacionesPS.Rows.Count > 0 AndAlso ErrorList.Count = 0 Then
                        Dim CveVentaDetalle As Integer = 0
@@ -6828,8 +6826,6 @@ Partial Class Ventas
                        Next
                    End If

-
-
                    'Marcamos las ventas anteriores a febrero como surtidas - Ajuste Compu
                    If ErrorList.Count = 0 Then
                        If Not ObjVentas.MarcarRemisionesSinSurtir(ObjVentas.CveVenta) Then
@@ -9037,7 +9033,7 @@ Partial Class Ventas


 #Region "   GUARDAR - VENTA, PREPOLIZAS, INV, ESTIMACIONES, AC, NOTA DE CRÉDITO   "
-    Private Sub GuardarVenta(ByRef ObjVentas As ClsVentas, ByRef ObjConta As ClsContabilidad, ByRef ObjInventario As ClsInventarios, ByRef ObjContr As ClsContratos, factura As Modelos.Factura, TmpDTDetalle As DataTable, CveNCaVincular As Integer,
+    Private Sub GuardarVenta(ByRef ObjVentas As ClsVentas, ByRef ObjConta As ClsContabilidad, ByRef ObjInventario As ClsInventarios, ByRef ObjContr As ClsContratos, factura As Modelos.Factura, ByRef TmpDTDetalle As DataTable, CveNCaVincular As Integer,
                             ByRef objContPaqi As ClsContPAQi, Optional ByRef ObjBancos As ClsBancos = Nothing, Optional ByRef ObjOS As ClsOS = Nothing, ByRef Optional ObjEventos As ClsOIEventos = Nothing, ByRef Optional ObjCGame As ClsCGame = Nothing,
                             ByRef Optional ObjCliente As ClsClientes = Nothing, Optional EsNCAmortizacion As Boolean = False, Optional NCDescuento As Boolean = False)

@@ -9108,8 +9104,8 @@ Partial Class Ventas
                           PedidoContrato:=TxtPedidoContrato.Text, ObservacionesAlmacen:=TxtObsAlmacen.Text, CveSubProyecto:=factura.CveSubProyecto, CveSubProyectoCobranza:=factura.CveSubProyectoCobranza, CveSubProyectoEjecucion:=factura.CveSubProyectoEjecucion, CveFormaPago33:=factura.CveFormaPago33,
                           CveMetodoPago33:=factura.CveMetodoPago33, CveUsoCFDI:=factura.CveUsoCFDI, OrdenCompra:=TxtOrdenCompra.Text, CveCuentaTerminal:=DdlCuentasTerminal.SelectedValue.ToEntero, CveTipoRelacion:=factura.CveTipoRelacion, ImpuestoLocal:=TotalImpuestoLocal,
                           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)) Then
+                           CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM,
+                           DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False)) Then

            ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")

@@ -9171,7 +9167,7 @@ Partial Class Ventas
                        End If
                    End If

-                    Dim TmpDr As DataRow = TmpDT.Select($"Consec = {Row("Consec").ToString}")(0)
+                    Dim TmpDr As DataRow = TmpDTDetalle.Select($"Consec = {Row("Consec").ToString}")(0)
                    TmpDr("CveVentaDetalle") = ObjVentas.CveVentaDetalle

                    Try
@@ -9342,7 +9338,7 @@ Partial Class Ventas
                        Cantidad = DtPedidos2TmpDT.FiltroPrimeroValor("Cantidad", $"CveVentaDetallePedido2={row("CveVentaDetalle")}").ToDecimal
                        CvePS = DtPedidos2TmpDT.FiltroPrimeroValor("CvePS", $"CveVentaDetallePedido2={row("CveVentaDetalle")}").ToEntero
                        PU = DtPedidos2TmpDT.FiltroPrimeroValor("PU", $"CveVentaDetallePedido2={row("CveVentaDetalle")}").ToDecimal
-                        CveVentaDetalle = TmpDT.FiltroPrimeroValor("CveVentaDetalle", $"CveVentaDetallePedido2={row("CveVentaDetalle")}").ToEntero
+                        CveVentaDetalle = TmpDTDetalle.FiltroPrimeroValor("CveVentaDetalle", $"CveVentaDetallePedido2={row("CveVentaDetalle")}").ToEntero
                        CveVentaDetallePadre = row("CveVentaDetalle").ToString.ToEntero

                        If Not ObjVentas.AddVentaDetallePedido2(CveVentaDetalle, CveVentaDetallePadre, Cantidad) Then
@@ -9393,6 +9389,7 @@ Partial Class Ventas

        End If
    End Sub
+
    Private Sub GuardarVentaPrePolizas(ByRef ObjConta As ClsContabilidad, factura As Modelos.Factura, TmpDTDetalleMovimientos As DataTable, CveNCaVincular As Integer,
                                       ByRef objContPaqi As ClsContPAQi, Optional ByRef ObjBancos As ClsBancos = Nothing, ByRef Optional ObjVentas As ClsVentas = Nothing,
                                       ByRef Optional ObjEventos As ClsOIEventos = Nothing, Optional EsNCAmortizacion As Boolean = False, Optional NCDescuento As Boolean = False)
@@ -14259,7 +14256,8 @@ Partial Class Ventas


        'AGREGA PS ADICIONAL
-        If UsuarioActual.Empresa.Funcionalidad(561).ToString = "1" AndAlso GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows.Count > 0 AndAlso Not SeActualiza Then
+        If UsuarioActual.Empresa.Funcionalidad(561).ToString = "1" AndAlso GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows.Count > 0 AndAlso Not SeActualiza AndAlso Not UsuarioActual.TienePermisoProceso(284) Then
+
            For Each Dr As DataRow In GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows
                Dim CvePSAdicional As Integer = Dr("CvePSAdicional").ToString.ToEntero
                Dim DrPoliza As DataRow = TmpDT.NewRow()
@@ -14341,6 +14339,8 @@ Partial Class Ventas
                    TmpDT.Rows.Add(DrPoliza)
                End If
            Next
+
+
        End If

        Retorno = True
@@ -18241,7 +18241,9 @@ Partial Class Ventas
                    Exit Sub
                End If
                If String.IsNullOrEmpty(Vigencia.EsCancelable) Then
-                    sb.Append("<b>No encontrado</b> <br/>")
+                    Alert("No se pudo encontrar el estatus de la factura en el SAT.", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                    'sb.Append("<b>No encontrado</b> <br/>")
                Else
                    sb.AppendFormat("<b>{0}</b> <br/>", Vigencia.EsCancelable)
                End If
--- a/asmx/WSSIGApp.asmx
+++ b/asmx/WSSIGApp.asmx
@@ -67,52 +67,52 @@ Public Class WSSIGApp
            Application("GlobalDTVtaFormaPago") = value
        End Set
    End Property
-    'Property GlobalDTSubProyectos(CveProyecto As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1, Optional Estatus As Integer = 1) As DataTable
-    '    Get
+    Property GlobalDTSubProyectos(CveProyecto As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1, Optional Estatus As Integer = 1) As DataTable
+        Get

-    '        If DirectCast(Application("GlobalDTSubProyectos"), DataTable) Is Nothing Or (DirectCast(Application("GlobalDTSubProyectos"), DataTable) IsNot Nothing AndAlso DirectCast(Application("GlobalDTSubProyectos"), DataTable).Rows.Count = 0) Then
-    '            Dim P As New ClsSubProyectos
-    '            If P.GetSubProyectos Then
-    '                Application("GlobalDTSubProyectos") = P.DtResultados
-    '            End If
-    '            P.Dispose()
+            If DirectCast(Application("GlobalDTSubProyectos"), DataTable) Is Nothing Or (DirectCast(Application("GlobalDTSubProyectos"), DataTable) IsNot Nothing AndAlso DirectCast(Application("GlobalDTSubProyectos"), DataTable).Rows.Count = 0) Then
+                Dim P As New ClsSubProyectos
+                If P.GetSubProyectos Then
+                    Application("GlobalDTSubProyectos") = P.DtResultados
+                End If
+                P.Dispose()

-    '            Dim msg As String = "aqui no se carga subproyectos"
-    '            'If Request IsNot Nothing Then
-    '            '    msg = msg & Request.ServerVariables("URL")
-    '            'End If
-    '            msg.GuardaLog()
+                Dim msg As String = "aqui no se carga subproyectos"
+                'If Request IsNot Nothing Then
+                '    msg = msg & Request.ServerVariables("URL")
+                'End If
+                msg.GuardaLog()

-    '        End If
+            End If

-    '        If CveProyecto <> -1 OrElse CveSubProyecto <> -1 OrElse CveEmpresa <> -1 OrElse Estatus <> -1 Then
-    '            Dim StrSQL As New StringBuilder
-    '            If CveProyecto <> -1 Then StrSQL.AppendFormat(" AND CveProyecto = {0}", CveProyecto)
-    '            If CveSubProyecto <> -1 Then StrSQL.AppendFormat(" AND CveSubProyecto = {0}", CveSubProyecto)
-    '            If Estatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatus = {0}", Estatus)
-    '            If CveEmpresa <> -1 Then StrSQL.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa)
+            If CveProyecto <> -1 OrElse CveSubProyecto <> -1 OrElse CveEmpresa <> -1 OrElse Estatus <> -1 Then
+                Dim StrSQL As New StringBuilder
+                If CveProyecto <> -1 Then StrSQL.AppendFormat(" AND CveProyecto = {0}", CveProyecto)
+                If CveSubProyecto <> -1 Then StrSQL.AppendFormat(" AND CveSubProyecto = {0}", CveSubProyecto)
+                If Estatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatus = {0}", Estatus)
+                If CveEmpresa <> -1 Then StrSQL.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa)

-    '            Dim Dv As New DataView(DirectCast(Application("GlobalDTSubProyectos"), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows)
-    '            GlobalDTSubProyectos = Dv.ToTable
-    '            Dv.Dispose()
+                Dim Dv As New DataView(DirectCast(Application("GlobalDTSubProyectos"), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows)
+                GlobalDTSubProyectos = Dv.ToTable
+                Dv.Dispose()

-    '        Else
-    '            GlobalDTSubProyectos = DirectCast(Application("GlobalDTSubProyectos"), DataTable)
-    '        End If
+            Else
+                GlobalDTSubProyectos = DirectCast(Application("GlobalDTSubProyectos"), DataTable)
+            End If

-    '    End Get
-    '    Set(ByVal value As DataTable)
-    '        If value Is Nothing OrElse value.Rows.Count = 0 Then
-    '            Dim msg As String = "aqui no se carga subproyectos"
-    '            'If Request IsNot Nothing Then
-    '            '    msg = msg & Request.ServerVariables("URL")
-    '            'End If
-    '            msg.GuardaLog()
+        End Get
+        Set(ByVal value As DataTable)
+            If value Is Nothing OrElse value.Rows.Count = 0 Then
+                Dim msg As String = "aqui no se carga subproyectos"
+                'If Request IsNot Nothing Then
+                '    msg = msg & Request.ServerVariables("URL")
+                'End If
+                msg.GuardaLog()

-    '        End If
-    '        Application("GlobalDTSubProyectos") = value
-    '    End Set
-    'End Property
+            End If
+            Application("GlobalDTSubProyectos") = value
+        End Set
+    End Property
    Property GlobalDTSATUsosCFDI(Optional EsPersonaFisica As Integer = -1) As DataTable
        Get
            If EsPersonaFisica <> -1 Then
@@ -151,20 +151,20 @@ Public Class WSSIGApp
            Application("GlobalDTUsuarios") = value
        End Set
    End Property
-    'Property GlobalDTUnidadesMedida(Optional CveEmpresa As Integer = -1) As DataTable
-    '    Get
-    '        If CveEmpresa <> -1 Then
-    '            Dim Dv As New DataView(DirectCast(Application("GlobalDTUnidadesMedida"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), " UnidadMedida", DataViewRowState.CurrentRows)
-    '            GlobalDTUnidadesMedida = Dv.ToTable
-    '            Dv.Dispose()
-    '        Else
-    '            GlobalDTUnidadesMedida = DirectCast(Application("GlobalDTUnidadesMedida"), DataTable)
-    '        End If
-    '    End Get
-    '    Set(value As DataTable)
-    '        Application("GlobalDTUnidadesMedida") = value
-    '    End Set
-    'End Property
+    Property GlobalDTUnidadesMedida(Optional CveEmpresa As Integer = -1) As DataTable
+        Get
+            If CveEmpresa <> -1 Then
+                Dim Dv As New DataView(DirectCast(Application("GlobalDTUnidadesMedida"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), " UnidadMedida", DataViewRowState.CurrentRows)
+                GlobalDTUnidadesMedida = Dv.ToTable
+                Dv.Dispose()
+            Else
+                GlobalDTUnidadesMedida = DirectCast(Application("GlobalDTUnidadesMedida"), DataTable)
+            End If
+        End Get
+        Set(value As DataTable)
+            Application("GlobalDTUnidadesMedida") = value
+        End Set
+    End Property
    Property GlobalDTGralCategorias(CveEmpresa As Integer) As DataTable
        Get
            If CveEmpresa <> -1 Then
@@ -2142,7 +2142,7 @@ Public Class WSSIGApp
        Timbre.Comprobante.TipoComprobante = If(Obj.TipoDocto.Contiene("Ing", "Ant"), "I", If(Obj.TipoDocto.Contiene("Egs", "Dev"), "E", ""))
        Timbre.Comprobante.Folio = Obj.Folio.ToString
        Timbre.Comprobante.Serie = Obj.Serie
-        Timbre.Comprobante.Fecha = Obj.FechaCP
+        Timbre.Comprobante.Fecha = Obj.Fecha
        Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
        Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33
        Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
@@ -4158,6 +4158,51 @@ Public Class WSSIGApp
        Return Events
    End Function

+    <WebMethod>
+    Public Function GetRepAcercamientos(CveEmpresa As Integer, CveVendedor As Integer, FechaInicio As DateTime, FechaFin As DateTime) As String
+        Dim Retorno = "[]"
+        Using ObjCRM As New ClsCRM
+            If ObjCRM.GetAcercamiento(CveEmpresa, CveVendedor:=CveVendedor, FechaInicio:=FechaInicio, FechaFin:="-1") Then
+                Retorno = ObjCRM.DtResultados.DataTableToJSONIPP()
+            End If
+        End Using
+        Return Retorno
+    End Function
+
+    <WebMethod>
+    Public Function GetRepAcercamientosProcesos(CveEmpresa As Integer, CveVendedor As Integer, FechaInicio As DateTime, FechaFin As DateTime) As String
+        Dim Retorno = "[]"
+        Dim cveTipoProceso = -1
+        Dim idgrupo1 = 1
+        Dim idgrupo2 = 1
+        Dim FechaI = FechaInicio.ToString("yyyy/MM/dd")
+        Dim FechaF = FechaFin.ToString("yyyy/MM/dd")
+        Dim cveMedioCaptacion = -1
+        Dim cveProbabilidadAcercamiento = -1
+        Using ObjCRM As New ClsCRM
+            If ObjCRM.RepAcercamientosEtapas(CveEmpresa, cveTipoProceso, idgrupo1, idgrupo2, FechaI, FechaF, CveVendedor, cveMedioCaptacion, cveProbabilidadAcercamiento) Then
+                Retorno = ObjCRM.DtResultados.DataTableToJSONIPP()
+            End If
+        End Using
+        Return Retorno
+    End Function
+    <WebMethod>
+    Public Function GetRepAcercamientosRechazos(CveEmpresa As Integer, CveVendedor As Integer, FechaInicio As DateTime, FechaFin As DateTime) As String
+        Dim Retorno = "[]"
+        Dim cveTipoProceso = -1
+        Dim idgrupo1 = 1
+        Dim idgrupo2 = 1
+        Dim FechaI = FechaInicio.ToString("yyyy/MM/dd")
+        Dim FechaF = FechaFin.ToString("yyyy/MM/dd")
+        Dim cveMedioCaptacion = -1
+        Dim cveProbabilidadAcercamiento = -1
+        Using ObjCRM As New ClsCRM
+            If ObjCRM.RepAcercamientosEtapas(CveEmpresa, cveTipoProceso, idgrupo1, idgrupo2, FechaI, FechaF, CveVendedor, cveMedioCaptacion, cveProbabilidadAcercamiento) Then
+                Retorno = ObjCRM.DtResultados.DataTableToJSONIPP()
+            End If
+        End Using
+        Return Retorno
+    End Function
 #End Region

    <WebMethod()>
@@ -4841,8 +4886,5 @@ Namespace WebServiceAppModels
        Public Property Correcto As Boolean
        Public Property Mensajes As List(Of String)
    End Class
-
-
-
 End Namespace