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

App_Code/ClsVentas.vb

@@ -1631,7 +1631,7 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
-    Public Function UpdateVentaDetalleRemision(CveVenta As Integer, CvePS As Integer, Cantidad As Decimal, PU As Decimal, IEPS As Decimal, PorcentajeIEPS As Decimal, IVA As Decimal, PorcentajeIVA As Decimal, Descuento As Decimal, Observaciones As String, Optional CveUsuarioModifico As Integer = -1) As Boolean
+    Public Function UpdateVentaDetalleRemision(CveVenta As Integer, CvePS As Integer, Cantidad As Decimal, PU As Decimal, IEPS As Decimal, PorcentajeIEPS As Decimal, IVA As Decimal, PorcentajeIVA As Decimal, Descuento As Decimal, Observaciones As String, Optional CveUsuarioModifico As Integer = -1, Optional CvePromocionDetalle As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_VentasDetalleRemisionUpdate")
 
@@ -1647,6 +1647,7 @@ Public Class ClsVentas
             .Add("@Descuento", SqlDbType.Decimal).Value = Descuento
             .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
             .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
+            .Add("@CvePromocionDetalle", SqlDbType.Int).Value = CvePromocionDetalle
         End With
 
         Try

General/SaldosIniciales.aspx.vb

@@ -2,6 +2,7 @@
 Option Explicit On
 Imports System.Data
 Imports System.Math
+Imports ADSNetLibrary.SIGAPI.Models.OC.Response
 Imports ClosedXML.Excel
 Imports DocumentFormat.OpenXml.Drawing.Diagrams
 Imports Extensiones
@@ -2444,6 +2445,8 @@ Partial Class General_SaldosIniciales
                                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total - Saldo, Total - Saldo, 95, Folio.ToString(), Folio.ToString(), CveVenta:=CveVenta, CveCliente:=CveCliente, Contabilizable:=False) Then ErrorVentas = True : Exit For
                             End If
 
+
+
                         Else
                             'ANTICIPOS
                             Dim CveIE As Integer = ObjIE.AddBancos_IE(1, 1, Fecha, Folio.ToString(), "", Total, 1,
@@ -2479,6 +2482,7 @@ Partial Class General_SaldosIniciales
 
             ElseIf RblFormato.SelectedValue = "17" Then
                 Dim NoEncontrados As Integer = 0
+                Dim VentasAgregadas As Integer = 0
                 Dim Encontrados As Integer = 0
                 Dim StrRFCNoencontrados As New StringBuilder
                 Dim drr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero("AplicaParaVenta = 1")
@@ -2519,7 +2523,285 @@ Partial Class General_SaldosIniciales
                 Dim CountRow As Integer = 1
                 Dim LastSerieFolioTipoDoc As String = String.Empty
                 Dim EsDetalle As Boolean = False
+
+                If UsuarioActual.CveEmpresa = 189 Then
+
+                    Dim DTFoliosFiscales As DataTable = dt.FiltraParametros("", "", {"Folio Fiscal"})
+
+                    For Each drFolioFiscal As DataRow In DTFoliosFiscales.Rows
+                        Dim FolioFiscalActual As String = drFolioFiscal("Folio Fiscal").ToString
+                        Dim DRVentaActual As DataRow = dt.FiltroPrimero($"[Folio Fiscal] = '{FolioFiscalActual}'")
+
+                        Dim Sucursal As String = dtsubp.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{DRVentaActual("Sucursal").ToString()}'")
+                        Dim TipoDocto As String = DRVentaActual("Tipo Documento").ToString().Trim
+                        Dim RFC As String = DRVentaActual("RFC").ToString().Trim.Replace("-", "").Replace(" ", "")
+                        Dim Serie As String = DRVentaActual("Serie").ToString().Trim
+                        Dim Folio As Integer = DRVentaActual("Folio").ToString().ToEntero()
+                        Dim Fecha As Date = DRVentaActual("Fecha").ToString().ToDate
+                        Dim FechaVencimiento As Date = DRVentaActual("Fecha Vencimiento").ToString().ToDate
+                        Dim ImpuestoLocal As Decimal = If(dt.Columns.Contains("ImpuestoLocal"), DRVentaActual("ImpuestoLocal").ToString().ToDecimal, 0D)
+                        Dim Amortizacion As Decimal = If(dt.Columns.Contains("Amort.Ant"), DRVentaActual("Amort.Ant").ToString().ToDecimal, 0)
+                        Dim CveCliente As Integer = DtClientes.FiltroPrimeroValor("CveCliente", $"RFC = '{RFC}'").ToString().ToEntero()
+
+                        If LastSerieFolioTipoDoc = $"{Serie}{Folio}{TipoDocto}" AndAlso UsuarioActual.CveEmpresa = 189 Then
+                            EsDetalle = True
+                        Else
+                            LastSerieFolioTipoDoc = $"{Serie}{Folio}{TipoDocto}"
+                            EsDetalle = False
+                        End If
+
+                        Dim SubTotal As Decimal = 0
+                        Dim IVA As Decimal = 0
+                        Dim Total As Decimal = 0
+                        Dim Saldo As Decimal = 0
+                        Dim RetIVA As Decimal = 0
+                        Dim RetISR As Decimal = 0
+                        Dim IEPS As Decimal = 0
+
+                        SubTotal = DRVentaActual("SubTotal").ToString().ToDecimal
+                        IVA = DRVentaActual("IVA").ToString().ToDecimal
+                        Total = DRVentaActual("Total").ToString().ToDecimal
+                        Saldo = DRVentaActual("Saldo").ToString().ToDecimal
+                        RetIVA = DRVentaActual("Ret IVA").ToString().ToDecimal
+                        RetISR = DRVentaActual("Ret ISR").ToString().ToDecimal
+                        IEPS = DRVentaActual("IEPS").ToString().ToDecimal
+
+                        Dim Moneda As String = DRVentaActual("Moneda").ToString()
+                        Dim TipoCambio As String = DRVentaActual("Tipo Cambio").ToString()
+                        Dim CveMoneda As Integer = 1
+                        Dim Vendedor As String = If(dt.Columns.Contains("Vendedor"), DRVentaActual("Vendedor").ToString(), "")
+                        Dim CveVendedor As Integer = 0
+
+                        Dim CveClienteSucursal As Integer = 0 'Row("CveClienteSucursal").ToString().ToEntero()
+                        'Dim FolioFiscal As String = If(dt.Columns.Contains("Folio Fiscal"), DRVentaActual("Folio Fiscal").ToString(), "")
+                        Dim PorcentajeIVA As Decimal = If(dt.Columns.Contains("PorcentajeIVA"), Round(DRVentaActual("PorcentajeIVA").ToString().ToDecimal, 2), 0)
+                        Dim PorcentajeRetIVA As Decimal = If(dt.Columns.Contains("PorcentajeRetIVA"), Round(DRVentaActual("PorcentajeRetIVA").ToString().ToDecimal, 4), 0)
+                        Dim PorcentajeRetISR As Decimal = If(dt.Columns.Contains("PorcentajeRetISR"), Round(DRVentaActual("PorcentajeRetISR").ToString().ToDecimal, 4), 0)
+                        Dim PedidoContrato As String = If(dt.Columns.Contains("Pedido"), DRVentaActual("Pedido").ToString(), "")
+
+                        GuardaLog(Sucursal + "-" + DRVentaActual("Folio").ToString())
+                        'Temporalmente SE BORRARA
+                        Dim Transaccion As String = "" ' Row("Transaccion2").ToString()
+                        Dim Folio2 As String = "" ' Row("Folio2").ToString()
+                        Dim CodCliente As String = "" 'Row("CodCliente2").ToString()
+
+                        TipoDocto = IIf(TipoDocto.ToUpper.Contiene("INGRESO", "INGRESOS", "ING", "FACTURA", "FACTURAS"), "Ing", IIf(TipoDocto.ToUpper.Contiene("EGRESO", "EGRESOS", "EGS"), "Egs", "Rem")).ToString()
+
+                        'Dim CantidadDetalle As Decimal = 0
+                        'Dim PUDetalle As Decimal = 0
+                        'Dim IVADetalle As Decimal = 0
+                        Dim PorcentajeIEPS As Decimal = 0
+
+
+                        Dim TotalDetalles As Decimal = 0
+                        For Each dRowDetalle As DataRow In dt.FiltraParametros($"[Folio Fiscal]='{FolioFiscalActual}'").Rows
+                            Dim CantidadDetalle As Decimal = dRowDetalle("Cantidad").ToString.ToDecimal 'digo	PU	IVADetalle
+                            Dim PuDetalle As Decimal = dRowDetalle("PU").ToString.ToDecimal
+                            Dim IVADetalle As Decimal = dRowDetalle("IVADetalle").ToString.ToDecimal
+                            Dim IEPSDetalle As Decimal = dRowDetalle("IEPS").ToString.ToDecimal
+                            TotalDetalles += (CantidadDetalle * PuDetalle) + IVADetalle + IEPSDetalle
+                        Next
+
+
+                        If IEPS > 0 Then
+                            PorcentajeIEPS = If(dt.Columns.Contains("PorcentajeIEPS"), Round(DRVentaActual("PorcentajeIEPS").ToString().ToDecimal, 4), 0)
+                        End If
+
+                        If Math.Abs(TotalDetalles - Total) > 0.01 Then
+                            ErrorVentas = True
+                            Alert($"Registro {CountRow} El total no coincide con el acumulado de los detalles, total: {Total.ToString("###,###,###.00")} detatalle: {TotalDetalles.ToString("###,###,###.00")}", TipoMensaje.MsgAdvertencia)
+                            Exit For
+                        End If
+
+
+                        If Vendedor <> "" Then
+                            CveVendedor = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltroPrimeroValor("CveVendedor", $"Vendedor = '{Vendedor}'").ToString().ToEntero()
+                            If Not CveVendedor > 0 Then CveVendedor = 0
+                        Else
+                            CveVendedor = 0
+                        End If
+
+                        If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN") Then
+                            CveMoneda = 1
+                            TipoCambio = "1"
+                        ElseIf Moneda.ToUpper.Contiene("DÓLAR", "DÓLARES", "DOLARES", "USD") Then
+                            CveMoneda = 2
+
+                            If TipoCambio.Trim.ToDecimal < 10 Then
+
+                                If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+                                    TipoCambio = GlobalTipoCambio(Fecha.AddDays(-1)).ToString()
+                                Else
+                                    TipoCambio = GlobalTipoCambio(Fecha).ToString()
+                                End If
+
+                            End If
+
+                        End If
+
+
+                        If TipoCambio = "" Then TipoCambio = "1"
+
+                        If Not CveClienteSucursal > 0 Then CveClienteSucursal = -1
+
+                        If FechaVencimiento = "".ToDate Or FechaVencimiento < "1900/01/01".ToDate Then
+                            FechaVencimiento = Fecha
+                        End If
+
+                        If Not ErrorVentas Then
+                            CvePrePoliza = ObjConta.AddPrePolizas("Venta/SaldoInicial", 1, Total, Total, CveMoneda, Fecha, String.Format("{0}-{1}", Serie, Folio), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                            If Not CvePrePoliza > 0 Then
+                                ErrorVentas = True
+                            End If
+                        End If
+
+                        If Not ErrorVentas Then
+                            'Venta
+                            If CveCliente > 0 Then
+
+
+                                If TipoDocto.Contiene("Ing", "Egs", "Rem") Then
+                                    GuardaLog(Serie & "-" & Folio)
+                                    If Not EsDetalle Then
+                                        If Not ObjVentas.AddVenta(TipoDocto, Folio, CveCliente.ToEntero(), CveClienteSucursal, SubTotal, 0, Amortizacion, IVA, RetIVA, RetISR, Total, CveMoneda, TipoCambio.ToDecimal,
+                                                       0, 0, 0, FechaVencimiento, Fecha, "", "", Fecha, CveVendedor, Folio2, "", "", 0, 0, 0, "-1".ToDate, "-1".ToDate, "-1".ToDate, -1, 0, CvePrePoliza,
+                                                      UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Serie:=Serie, CveSubProyecto:=Sucursal.ToEntero(), CveSubProyectoEjecucion:=Sucursal.ToEntero(),
+                                                      CveSubProyectoCobranza:=Sucursal.ToEntero(), IEPS:=IEPS, ObservacionesAlmacen:=Transaccion, Entrega:=CodCliente, ImpuestoLocal:=ImpuestoLocal,
+                                                      PedidoContrato:=PedidoContrato, CveMetodoPago33:=3) Then
+                                            ErrorVentas = True
+                                            Exit For
+                                        Else
+                                            VentasAgregadas += 1
+                                        End If
+                                        CveVenta = ObjVentas.CveVenta
+                                    End If
+
+
+                                    For Each dRowDetalle As DataRow In dt.FiltraParametros($"[Folio Fiscal]='{FolioFiscalActual}'").Rows
+
+
+                                        Dim CantidadDetalle As Decimal = dRowDetalle("Cantidad").ToString.ToDecimal 'digo	PU	IVADetalle
+                                        Dim PuDetalle As Decimal = dRowDetalle("PU").ToString.ToDecimal
+                                        Dim IVADetalle As Decimal = dRowDetalle("IVADetalle").ToString.ToDecimal
+                                        Dim IEPSDetalle As Decimal = dRowDetalle("IEPS").ToString.ToDecimal
+                                        Dim PorcentajeIEPSDetalle = dRowDetalle("PorcentajeIEPS").ToString.ToDecimal
+
+                                        Dim CodigoDetalle As String = dRowDetalle("Codigo").ToString
+                                        If CodigoDetalle.Trim.Length > 0 Then
+                                            Dim DrDetalles As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"Codigo = '{CodigoDetalle}'")
+
+                                            If DrDetalles IsNot Nothing Then
+                                                CvePS = DrDetalles("CvePS").ToString().ToEntero()
+                                                CveUnidadMedida = DrDetalles("CveUnidadMedida").ToString().ToEntero()
+                                                CveClasificacion = DrDetalles("CveClasificacion").ToString().ToEntero()
+                                            Else
+                                                Alert($"El código del producto no se encontro, error en registro {CountRow}")
+                                                ErrorVentas = True
+                                            End If
+                                        Else
+                                            Alert($"El código es requerido, error en registro {CountRow}")
+                                            ErrorVentas = True
+                                        End If
+
+                                        If Not ErrorVentas Then
+                                            If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, CantidadDetalle, CveUnidadMedida, PuDetalle, IVADetalle, TotalDetalles, "Saldo Inicial", 0, 0, Sucursal.ToEntero(), 0,
+                                                                     PorcentajeIVA:=PorcentajeIVA, PorcentajeRetIVA:=PorcentajeRetIVA, ImporteRetIVA:=0, IEPS:=IEPSDetalle, PorcentajeRetISR:=0, PorcentajeIEPS:=PorcentajeIEPSDetalle) Then
+                                                ErrorVentas = True
+                                                Exit For
+                                            End If
+                                        End If
+
+                                    Next
+
+
+                                    Dim ConceptoContable As Integer = 1
+                                    Dim ConceptoContablePago As Integer = 2
+                                    If TipoDocto = "Egs" Then
+                                        ConceptoContable = 12
+                                        ConceptoContablePago = 91
+                                    End If
+
+                                    If FolioFiscalActual <> "" Then
+                                        If Not ObjVentas.UpdateVentaFolioFiscal(FolioFiscalActual, CveVenta, UsuarioActual.CveEmpresa) Then
+                                            ErrorVentas = True
+                                            Exit For
+                                        End If
+                                    End If
+
+                                    Dim UsaComplementaria As Boolean = False
+
+                                    If UsuarioActual.CveEmpresa.Contiene(119, 158) Then UsaComplementaria = True
+
+                                    'PrePólizaDetalle
+                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SubTotal, SubTotal, 4, Folio.ToString(), String.Format("{0}-{1}", Serie, Folio), CveVenta:=CveVenta, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, CveSubProyecto:=Sucursal.ToEntero(), PorcentajeImpuesto:=PorcentajeIVA, Contabilizable:=False) Then ErrorVentas = True : Exit For
+                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total, Total, ConceptoContable, Folio.ToString(), String.Format("{0}-{1}", Serie, Folio), CveVenta:=CveVenta, CveCliente:=CveCliente, PorcentajeImpuesto:=PorcentajeIVA, Contabilizable:=False) Then ErrorVentas = True : Exit For
+
+                                    If IVA > 0 Then
+                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IVA, IVA, 13, Folio.ToString(), String.Format("{0}-{1}", Serie, Folio), CveVenta:=CveVenta, CveCliente:=CveCliente, PorcentajeImpuesto:=PorcentajeIVA, Contabilizable:=False) Then ErrorVentas = True : Exit For
+                                    End If
+
+                                    If IEPS > 0 Then
+                                        'AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IEPS, Folio, 38, String.Format("{0}-{1}", Serie, Folio), CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=IEPS)
+                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IEPS, IEPS, 38, Folio.ToString, String.Format("{0}-{1}", Serie, Folio), CveVenta:=CveVenta, CveCliente:=CveCliente, Contabilizable:=False) Then ErrorVentas = True : Exit For
+
+                                    End If
+
+                                    If RetIVA > 0 Then
+
+                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, RetISR, RetISR, 8, Folio.ToString(), String.Format("{0}-{1}", Serie, Folio), CveVenta:=CveVenta, CveCliente:=CveCliente, PorcentajeImpuesto:=PorcentajeRetISR, Contabilizable:=False) Then ErrorVentas = True : Exit For
+                                    End If
+
+                                    If RetISR > 0 Then
+                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, RetISR, RetISR, 9, Folio.ToString(), String.Format("{0}-{1}", Serie, Folio), CveVenta:=CveVenta, CveCliente:=CveCliente, PorcentajeImpuesto:=PorcentajeRetISR, Contabilizable:=False) Then ErrorVentas = True : Exit For
+                                    End If
+
+                                    If ImpuestoLocal > 0 Then
+                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImpuestoLocal, ImpuestoLocal, 27, Folio.ToString(), String.Format("{0}-{1}", Serie, Folio), CveVenta:=CveVenta, CveCliente:=CveCliente, PorcentajeImpuesto:=PorcentajeIVA, Contabilizable:=False) Then ErrorVentas = True : Exit For
+                                    End If
+
+
+                                    If UsaComplementaria Then
+                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total * TipoCambio.ToDecimal - Total, Total * TipoCambio.ToDecimal - Total, 203, Folio.ToString(), String.Format("{0}-{1}", Serie, Folio), CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteME:=Total, TipoCambio:=TipoCambio.ToDecimal, Contabilizable:=False) Then ErrorVentas = True : Exit For
+                                    End If
+
+                                    'Saldo
+                                    If Saldo < Total Then
+                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total - Saldo, Total - Saldo, ConceptoContablePago, Folio.ToString(), Folio.ToString(), CveVenta:=CveVenta, CveCliente:=CveCliente, CveVentaAmortizacion:=CveVenta, Contabilizable:=False) Then ErrorVentas = True : Exit For
+                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total - Saldo, Total - Saldo, 95, Folio.ToString(), Folio.ToString(), CveVenta:=CveVenta, CveCliente:=CveCliente, Contabilizable:=False) Then ErrorVentas = True : Exit For
+                                    End If
+
+                                    If Not ErrorVentas Then
+                                        VentasAgregadas += VentasAgregadas
+                                    End If
+
+                                Else
+
+                                    'ANTICIPOS
+                                    Dim CveIE As Integer = ObjIE.AddBancos_IE(1, 1, Fecha, Folio.ToString(), "", Total, 1, 1, "Anticipo Cliente", "", False, False, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total, Total, 30, Folio.ToString(), String.Format("{0}-{1}", Serie, Folio), CveIE:=CveIE, CveCliente:=CveCliente, Contabilizable:=False) Then ErrorVentas = True : Exit For
+                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total, Total, 66, Folio.ToString(), String.Format("{0}-{1}", Serie, Folio), CveIE:=CveIE, CveCliente:=CveCliente, Contabilizable:=False) Then ErrorVentas = True : Exit For
+
+                                End If
+
+                                '_______________________________________________________________
+
+                            Else
+                                NoEncontrados = NoEncontrados + 1
+                                StrRFCNoencontrados.AppendFormat("{0}<br/>", RFC)
+                                'ErrorVentas = True
+                                'Exit For
+                            End If
+
+
+
+                        End If
+
+
+                    Next
+                Else
                     For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows
+
                         Dim Sucursal As String = dtsubp.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{Row("Sucursal").ToString()}'")
                         Dim TipoDocto As String = Row("Tipo Documento").ToString().Trim
                         Dim RFC As String = Row("RFC").ToString().Trim.Replace("-", "").Replace(" ", "")
@@ -2558,6 +2840,7 @@ Partial Class General_SaldosIniciales
                                 RetISR += item("Ret ISR").ToString().ToDecimal
                                 IEPS += item("IEPS").ToString().ToDecimal
                             Next
+
                         Else
                             SubTotal = Row("SubTotal").ToString().ToDecimal
                             IVA = Row("IVA").ToString().ToDecimal
@@ -2698,6 +2981,8 @@ Partial Class General_SaldosIniciales
                                                   PedidoContrato:=PedidoContrato, CveMetodoPago33:=3) Then
                                         ErrorVentas = True
                                         Exit For
+                                    Else
+                                        VentasAgregadas += 1
                                     End If
                                     CveVenta = ObjVentas.CveVenta
                                 End If
@@ -2721,7 +3006,7 @@ Partial Class General_SaldosIniciales
 
                                     If Math.Abs(TotalDetalles - Total) > 0.01 Then
                                         ErrorVentas = True
-                                    Alert($"Registro {CountRow} El total no councide con el calculo de los detalles, total: {Total.ToString("###,###,###.00")} calculo detatalles: {TotalDetalles.ToString("###,###,###.00")}", TipoMensaje.MsgAdvertencia)
+                                        Alert($"Registro {CountRow} El total no coincide con el acumulado de los detalles, total: {Total.ToString("###,###,###.00")} detatalle: {TotalDetalles.ToString("###,###,###.00")}", TipoMensaje.MsgAdvertencia)
                                         Exit For
                                     End If
 
@@ -2854,8 +3139,24 @@ Partial Class General_SaldosIniciales
 
                         CountRow = CountRow + 1
                     Next
+                End If
+
+
+
+
+                '**********************************************************************************************************************************************************************************
+
+
+
                 If Not ErrorVentas Then
+
+                    If UsuarioActual.CveEmpresa = 189 Then
+                        Alert(String.Format("Se agregaron: <b>{0}</b> Ventas correctamente.  <b>{1} no encontrados</b><br/>{2} ", VentasAgregadas, NoEncontrados, StrRFCNoencontrados), TipoMensaje.MsgInformacion)
+                    Else
                         Alert(String.Format("Se agregaron: <b>{0}</b> Ventas correctamente.  <b>{1} no encontrados</b><br/>{2} ", Encontrados, NoEncontrados, StrRFCNoencontrados), TipoMensaje.MsgInformacion)
+                    End If
+
+
                     ObjVentas.Commit()
                     TxtExcel.Text = ""
                     UpDatos.Update()

Ventas/RepCancelacionesPorRespuesta.aspx.cs

@@ -629,15 +629,15 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
 
             var CancelacionPagos = Modelos.OpcionesCancelacionPagos.SinPagos;
 
-            if (UsuarioActual.Empresa.Funcionalidad(109) == "1")
+            if (UsuarioActual.Empresa.Funcionalidad(109) == "1" || UsuarioActual.Empresa.Funcionalidad(382) == "1")
             {
                 CancelacionPagos = Modelos.OpcionesCancelacionPagos.ConPagos_CancelarIE;
             }
 
-            if (UsuarioActual.Empresa.Funcionalidad(382) == "1")
+            //if (UsuarioActual.Empresa.Funcionalidad(382) == "1")
-            {
+            //{
-                CancelacionPagos = Modelos.OpcionesCancelacionPagos.ConPagos_GenerarIxC;
+            //    CancelacionPagos = Modelos.OpcionesCancelacionPagos.ConPagos_GenerarIxC;
-            }
+            //}
 
             retorno = factura.EjecutarCancelacionPendiente(CveEstatus, CancelacionFecha, CancelacionAcuse, CancelacionPagos: CancelacionPagos);
            

Ventas/Ventas.aspx

@@ -407,6 +407,10 @@
             <li>
                 <asp:HyperLink ID="HLFAgregarOS" Target="_blank" runat="server" Visible="false"> <i class="fa fa-plus"></i> Agregar Orden de Servicio</asp:HyperLink>
             </li>
+            <li id="LiCalcularPromociones" runat="server" visible="false">
+                <asp:LinkButton ID="LnkCalcularPromociones" runat="server" CausesValidation="False" Text="<i class='fa fa-tag'></i>  Aplicar promociones" OnClick="LnkCalcularPromociones_Click"
+                    data-toggle="confirmation" data-popout="true" data-original-title="¿Aplicar Promociones?" data-btn-ok-label="si" />
+            </li>
         </ContentTemplate>
         <Triggers>
             <asp:AsyncPostBackTrigger ControlID="LnkImprimir" EventName="Click" />

Ventas/Ventas.aspx.vb

@@ -23821,6 +23821,11 @@ Partial Class Ventas
             End If
         End If
 
+
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+            LiCalcularPromociones.Visible = True
+        End If
+
         TxtAtencionA.Enabled = True
 
         UpCliente.Update()
@@ -23828,6 +23833,7 @@ Partial Class Ventas
         UpPS.Update()
         UpCliente.Update()
         UPObservaciones.Update()
+        UpnTools.Update()
 
     End Sub
     Private Sub BtnEditarRemision_Click(sender As Object, e As EventArgs) Handles BtnEditarRemision.Click
@@ -23954,7 +23960,7 @@ Partial Class Ventas
                 For Each Row As DataRow In TmpDT.Rows
                     Dim CveVentaDetalle As Integer = Row("CveVentaDetalle").ToString().ToEntero()
                     If CveVentaDetalle > 0 Then
-                        If Not ObjVentas.UpdateVentaDetalleRemision(Row("CveVentaDetalle").ToString().ToEntero(), Row("CvePS").ToString().ToEntero(), Row("Cantidad").ToString().ToDecimal, Row("PU").ToString().ToDecimal(), Row("ImporteIEPS").ToString().ToDecimal(), Row("PorcentajeIEPS").ToString().ToDecimal(), Row("ImporteIVA").ToString().ToDecimal(), Row("PorcentajeIVA").ToString().ToDecimal(), Row("Descuento").ToString().ToDecimal(), Row("Obs").ToString(), UsuarioActual.CveUsuario) Then
+                        If Not ObjVentas.UpdateVentaDetalleRemision(Row("CveVentaDetalle").ToString().ToEntero(), Row("CvePS").ToString().ToEntero(), Row("Cantidad").ToString().ToDecimal, Row("PU").ToString().ToDecimal(), Row("ImporteIEPS").ToString().ToDecimal(), Row("PorcentajeIEPS").ToString().ToDecimal(), Row("ImporteIVA").ToString().ToDecimal(), Row("PorcentajeIVA").ToString().ToDecimal(), Row("Descuento").ToString().ToDecimal(), Row("Obs").ToString(), UsuarioActual.CveUsuario, CvePromocionDetalle:=Row("CvePromocionDetalle").ToString().ToEntero()) Then
                             OcurrioError = True
                             Exit For
                         End If
@@ -23962,7 +23968,7 @@ Partial Class Ventas
                         If Not ObjVentas.AddVentaDetalle(CveVenta, Row("CvePS").ToString().ToEntero(), Row("Cantidad").ToString().ToDecimal, Row("CveUM").ToString().ToEntero(),
                                              Row("PU").ToString().ToDecimal(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), Row("ImporteIVA").ToString().ToDecimal, Math.Round((Row("Total").ToString().ToDecimal(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)) * (1 + Row("PorcentajeIVA").ToString().ToDecimal(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)))), 6),
                                              Row("Obs").ToString(), Row("Descuento").ToString().ToDecimal(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), Row("TipoDescuento").ToString().ToEntero(), Row("CveSubProyecto").ToString().ToEntero(), Row("CvePresupuestoIngreso").ToString().ToEntero(), PorcentajeIVA:=Row("PorcentajeIVA").ToString().ToDecimal, IEPS:=Row("ImporteIEPS").ToString().ToDecimal(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), PorcentajeIEPS:=Row("PorcentajeIEPS").ToString().ToDouble, TiempoEntrega:=Row("TiempoEntrega").ToString(),
-                                             CveVentaDetallePadre:=Row("CveVentaDetalle").ToString().ToEntero(), CveContratoDetalle:=Row("CveContratoDetalle").ToString().ToEntero(), CvePromocionDetalle:=If(DtPromociones IsNot Nothing, DtPromociones.FiltroPrimeroValor("CvePromocionDetalle", $"CvePS={Row("CvePS").ToString()}").ToEntero(), -1),
+                                             CveVentaDetallePadre:=Row("CveVentaDetalle").ToString().ToEntero(), CveContratoDetalle:=Row("CveContratoDetalle").ToString().ToEntero(), CvePromocionDetalle:=Row("CvePromocionDetalle").ToString().ToEntero(),
                                              ImporteRetIVA:=Row("ImporteRetIVA").ToString().ToDecimal, ImporteRetISR:=Row("ImporteRetISR").ToString().ToDecimal, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString().ToDouble, PorcentajeRetISR:=Row("PorcentajeRetISR").ToString().ToDecimal, CuentaPredial:=Row("CuentaPredial").ToString(), CvePrecioLista:=Row("CvePrecioLista").ToString().ToEntero(), CveActivoFijo:=Row("CveActivoFijo").ToString().ToEntero(), NumTurnos:=Row("NumTurnos").ToString().ToDecimal()) Then
                             OcurrioError = True
                             Exit For
@@ -24897,7 +24903,7 @@ Partial Class Ventas
         If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then EjecutaRecalculaPrecios = True
         If UsuarioActual.CveEmpresa = 189 Then EjecutaRecalculaPrecios = False
 
-        If EjecutaRecalculaPrecios Then RecalculaPrecios()
+        If EjecutaRecalculaPrecios Then RecalculaPrecios(False)
 
     End Sub
     Private Function ValidaPagosContado(Optional MostrarAlertas As Boolean = True, Optional TipoDoctoViejo As String = "") As Boolean
@@ -31899,6 +31905,9 @@ Partial Class Ventas
         BtnCrearApartirDe.Visible = False
         BtnGenerarRemision.Visible = False
         BtnPermisoEditarCotizacion.Visible = False
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+            LiCalcularPromociones.Visible = False
+        End If
         BtnEditarCotizacion.Visible = False
         BtnGenerarOS.Visible = False
 
@@ -32967,12 +32976,16 @@ Partial Class Ventas
             End If
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+            LiCalcularPromociones.Visible = True
+        End If
+
         UpPS.Update()
         UPPDescuento.Update()
         UPObservaciones.Update()
         UPCondicionesPago.Update()
         UpCliente.Update()
-
+        UpnTools.Update()
     End Sub
     Private Sub BtnEditarCotizacion_Click(sender As Object, e As EventArgs) Handles BtnEditarCotizacion.Click
 
@@ -33107,7 +33120,7 @@ Partial Class Ventas
                                          Row("PU").ToString().ToDecimal(), Row("ImporteIVA").ToString().ToDecimal, Math.Round((Row("Total").ToString().ToDecimal() * (1 + Row("PorcentajeIVA").ToString().ToDecimal())), 6),
                                          Row("Obs").ToString(), Row("Descuento").ToString().ToDecimal(), Row("TipoDescuento").ToString().ToEntero(), Row("CveSubProyecto").ToString().ToEntero(), Row("CvePresupuestoIngreso").ToString().ToEntero(),
                                          PorcentajeIVA:=Row("PorcentajeIVA").ToString().ToDecimal, IEPS:=Row("ImporteIEPS").ToString().ToDecimal(), PorcentajeIEPS:=Row("PorcentajeIEPS").ToString().ToDecimal, TiempoEntrega:=Row("TiempoEntrega").ToString(),
-                                         PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString().ToDecimal, ImporteRetIVA:=Row("ImporteRetIVA").ToString().ToDecimal) Then
+                                         PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString().ToDecimal, ImporteRetIVA:=Row("ImporteRetIVA").ToString().ToDecimal, CvePromocionDetalle:=Row("CvePromocionDetalle").ToString().ToEntero()) Then
                     MensajeError = "Ocurrió un error al guardar las partidas de la cotización"
                     OcurrioError = True
                     Exit For
@@ -34591,6 +34604,9 @@ Partial Class Ventas
         'CUANDO ES CREAR APARTIR DE SE LIMPIAN FUNCIONALIDADES DE DOCUMENTOS YA REGISTRADOS
         BtnGenerarRemision.Visible = False
         BtnEditarRemision.Visible = False
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+            LiCalcularPromociones.Visible = False
+        End If
         BtnPermisoEditarRemision.Visible = False
         BtnPermisoEditarCotizacion.Visible = False
         BtnEditarCotizacion.Visible = False
@@ -39807,7 +39823,7 @@ Partial Class Ventas
         RegistraScript("MuestraAnticipos();", "AE")
     End Sub
 
-    Private Sub RecalculaPrecios()
+    Private Sub RecalculaPrecios(ByRef RecalculoPromociones As Boolean, Optional ForzarRecalculo As Boolean = False)
         Dim PuedeRecalcular As Boolean = False
 
         If CveVenta <= 0 OrElse EsCreaApartirDe OrElse (ModalidadEdicion AndAlso Not DdlTipoComprobante.SelectedValue = "Cot") Then
@@ -39819,6 +39835,10 @@ Partial Class Ventas
             PuedeRecalcular = False
         End If
 
+        If ForzarRecalculo Then
+            PuedeRecalcular = True
+        End If
+
         If TmpDT IsNot Nothing AndAlso PuedeRecalcular Then
             For Each Row As DataRow In TmpDT.Rows
                 Dim Cantidad As Decimal = Row("Cantidad").ToString().ToDecimal()
@@ -39846,6 +39866,13 @@ Partial Class Ventas
                     Row("Total") = (Cantidad * PU)
                     Row("TotalImporte") = (Cantidad * PU).RoundSQL(NumeroDecimales)
                     Row("TotalConImpuestos") = (Row("Total").ToString().ToDecimal() - Row("Descuento").ToString().ToDecimal() + Row("ImporteIVA").ToString().ToDecimal()).RoundSQL(2)
+
+                    Row("CvePromocionDetalle") = ObjDescuento.CvePromocionDetalle
+
+                    If ObjDescuento.CvePromocionDetalle > 0 Then
+                        RecalculoPromociones = True
+                    End If
+
                 End If
             Next
 
@@ -39917,7 +39944,9 @@ Partial Class Ventas
 
         BtnsFacturar.Visible = False
         BtnEditarRemision.Visible = False
-
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+            LiCalcularPromociones.Visible = False
+        End If
         LimpiaDocumentoDEV()
         CambiaTipoDocto()
 
@@ -40288,5 +40317,17 @@ Partial Class Ventas
     Protected Sub BtnRegresarBusqueda_Click(sender As Object, e As EventArgs)
         LimpiarAgregarCliente()
     End Sub
+
+    Protected Sub LnkCalcularPromociones_Click(sender As Object, e As EventArgs)
+        Dim Recalculo As Boolean = False
+        RecalculaPrecios(Recalculo, ForzarRecalculo:=True)
+
+        If Recalculo Then
+            Alert("Se han recalculado los precios y promociones en base a las condiciones actuales")
+        Else
+            Alert("No se han encontrado cambios para los precios y promociones")
+        End If
+
+    End Sub
 End Class