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

AF/RepDepreciacion.aspx.vb

@@ -13,7 +13,7 @@ Partial Class AF_RepDepreciacion
 #End Region
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
-            txtFechaI.Text = Now.ToString
+            txtFechaI.Text = New Date(Now.Year, Now.Month + 1, 1).AddDays(-1).ToString("dd/MM/yyyy")
         End If
     End Sub
 
@@ -35,6 +35,7 @@ Partial Class AF_RepDepreciacion
             Dim CvePrePoliza = ObjConta.AddPrePolizas("Depreciacion", 74, 0, 0, 1, txtFechaI.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
 
+
             For Each RowsDt As GridViewRow In GvDatos.Rows
                 CveActivoFijo = RowsDt.DataKey("CveActivoFijo").ToEntero
                 If RowsDt.FCLiteral("LtlDepreciacionMensual").Text.ToDouble > 0 And CveActivoFijo <> 0 Then

App_Code/ClsContabilidad.vb

@@ -193,7 +193,7 @@ Public Class ClsContabilidad
     End Function
 
     Public Function AddPrePolizas(Modulo As String, CvePlantillaPoliza As Integer, Cargos As Double, Abonos As Double, CveMoneda As Integer, Fecha As Date, Concepto As String, CveUsuario As Integer, CveEmpresa As Integer, Optional FolioFijo As Integer = 0, Optional ReglaFolioPoliza As String = "", Optional CveTipoPoliza As Integer = -1,
-                                   Optional AgregarFolio As Boolean = False, Optional TipoContable As Integer = -1) As Integer
+                                   Optional AgregarFolio As Boolean = False, Optional TipoContable As Integer = 1) As Integer
         FolioPoliza = -1
         Dim Retorno As Integer = -1
 

App_Code/ClsOIEventos.vb

@@ -221,9 +221,15 @@ Public Class ClsOIEventos
 
     End Sub
 #End Region
-    Public Sub IniciaTransacSQL()
+    'Public Sub IniciaTransacSQL()
-        SqlTransacc = SqlConexion.BeginTransaction()
+    '    SqlTransacc = SqlConexion.BeginTransaction()
-    End Sub
+
+    'End Sub
+
+    Public Function IniciaTransacSQL() As SqlTransaction
+        If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction()
+        Return SqlTransacc
+    End Function
     Public Sub RollBack()
         SqlTransacc.Rollback()
     End Sub

App_Code/ClsVentas.vb

@@ -2151,7 +2151,7 @@ Public Class ClsVentas
     End Function
     Public Function AddPromociones(Promocion As String, FechaInicio As Date, FechaFin As Date, CveVendedor As Integer, CveCliente As Integer, Estatus As Boolean,
                                    CveMoneda As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, TipoAplicacion As String,
-                                   Optional CveMarca As Integer = -1, Optional EsDistribuidor As Integer = -1) As Integer
+                                   Optional CveMarca As Integer = -1, Optional EsDistribuidor As Integer = -1, Optional CvePromocionPadre As Integer = -1) As Integer
         Dim Retorno = -1
         DataAdapter("PA_Vta_PromocionesAdd")
 
@@ -2169,6 +2169,7 @@ Public Class ClsVentas
             .Add("@TipoAplicacion", SqlDbType.VarChar).Value = TipoAplicacion
             .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
             .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
+            .Add("@CvePromocionPadre", SqlDbType.Int).Value = CvePromocionPadre
             .Add("@CvePromocion", SqlDbType.Int).Direction = ParameterDirection.Output
         End With
 
@@ -2181,6 +2182,30 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
+
+
+    Public Function AddPromociones(CvePromocion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Actualizar As Boolean) As Integer
+        Dim Retorno = -1
+        DataAdapter("PA_Vta_PromocionesAddClonar")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePromocion", SqlDbType.Int).Value = CvePromocion
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Actualizar", SqlDbType.Bit).Value = Actualizar
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = SqlAdapter.SelectCommand.Parameters("@CvePromocion").Value.ToString.ToEntero
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar la Promoción.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
     Public Function UpdatePromociones(Promocion As String, FechaInicio As Date, FechaFin As Date, CveVendedor As Integer, CveCliente As Integer, Estatus As Boolean,
                                       CveMoneda As Integer, CveUsuario As Integer, CvePromocion As Integer, CveSubProyecto As Integer, TipoAplicacion As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1, Optional EsDistribuidor As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
@@ -2278,7 +2303,7 @@ Public Class ClsVentas
     Public Function AddPromocionesDetalle(CvePromocion As Integer, CvePS As Integer, TipoPromocion As Integer, Promocion As Double, PUAnterior As Double, PUPromocion As Double,
                                           AplicaRestriccion As Boolean, AplicaLunes As Boolean, AplicaMartes As Boolean, AplicaMiercoles As Boolean, AplicaJueves As Boolean,
                                           AplicaViernes As Boolean, AplicaSabado As Boolean, AplicaDomingo As Boolean, HoraInicio As DateTime, HoraFin As DateTime, Optional CantidadMinima As Integer = 1,
-                                          Optional CveClasificacion As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional IncluyeImpuestos As Boolean = False) As Boolean
+                                          Optional CveClasificacion As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional IncluyeImpuestos As Boolean = False, Optional Opcion As Integer = 1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_PromocionesDetalleAdd")
 
@@ -2304,6 +2329,7 @@ Public Class ClsVentas
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
             .Add("@CveRinTamaño", SqlDbType.Int).Value = CveRinTamaño
             .Add("@IncluyeImpuestos", SqlDbType.Bit).Value = IncluyeImpuestos
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
         End With
 
         Try
@@ -2357,12 +2383,39 @@ Public Class ClsVentas
         Return Retorno
     End Function
 
-    Public Function RemovePromocionesDetalle(CvePromocionDetalle As Integer) As Boolean
+    Public Function SincronizarPromocionesClonar(CvePromocion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Opcion As Integer) As Boolean
+        'Opcion 1 replicar insert 
+        'Opcion 2 replicar actualización
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_PromocionesClonar")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePromocion", SqlDbType.Int).Value = CvePromocion
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError($"Ocurrió un error  al actualizar las franquicias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
+
+    Public Function RemovePromocionesDetalle(CvePromocionDetalle As Integer, Optional Opcion As Integer = 1, Optional CvePromocion As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_PromocionesDetalleRemove")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePromocionDetalle", SqlDbType.Int).Value = CvePromocionDetalle
+            .Add("@CvePromocion", SqlDbType.Int).Value = CvePromocion
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
         End With
 
         Try
@@ -2374,6 +2427,7 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
+
 #End Region
 
 #Region "Pruebas"
@@ -5474,20 +5528,14 @@ Public Class ClsVentas
     End Function
 
 
-    Public Function GetLineasAdicionales(CveLineaAdicional As Integer, CveCliente As Integer, CveProveedor As Integer, TipoLinea As Integer, CveMoneda As Integer,
+    Public Function GetLineasAdicionales(CveCliente As Integer, TipoLinea As Integer, CveMoneda As Integer, CveLineaAdicionalEstatus As Integer, CveEmpresa As Integer) As Boolean
-                                         FechaI As Date, FechaF As Date, CveLineaAdicionalEstatus As Integer, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_LineasAdicionalesGet")
         With SqlAdapter.SelectCommand.Parameters
-
-            .Add("@CveLineaAdicional", SqlDbType.Int).Value = CveLineaAdicional
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
             .Add("@TipoLinea", SqlDbType.Int).Value = TipoLinea
             .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
-            .Add("@FechaI", SqlDbType.Date).Value = FechaI
-            .Add("@FechaF", SqlDbType.Date).Value = FechaF
             .Add("@CveLineaAdicionalEstatus", SqlDbType.Int).Value = CveLineaAdicionalEstatus
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With

Ashx/CargaEventos.ashx

@@ -101,98 +101,138 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
 
                 Try
                     For Each dr As DataRow In ObjEventos.DtResultados.Rows
-                        Dim cevent As CalendarEvent = New CalendarEvent()
-                        cevent.id = dr("CveEvento").ToString.ToEntero
-                        cevent.title = dr("Asunto").ToString
-                        cevent.description = dr("Descripcion").ToString
-                        cevent.start = String.Format("{0:s}", dr("FechaInicio").ToString.ToDateTime)
-                        cevent.end = String.Format("{0:s}", dr("FechaFin").ToString.ToDateTime)
-                        cevent.allDay = False
-                        cevent.CveEventoEstatus = dr("CveEventoEstatus").ToString.ToEntero
-                        cevent.cveagendatipo = dr("CveAgendaTipo").ToString
-                        cevent.prioridad = dr("CvePrioridad").ToString.ToEntero
-                        cevent.backgroundColor = dr("BackGroundColor").ToString
-                        cevent.recurrenciatipo = dr("RecurrenciaTipo").ToString.ToEntero
-                        cevent.frecuencia = dr("Frecuencia").ToString.ToEntero
-                        cevent.diassemana = dr("DiasSemana").ToString
-                        cevent.dia = dr("Dia").ToString.ToEntero
-                        cevent.mes = dr("Mes").ToString.ToEntero
-                        cevent.recurrenciafin = dr("RecurrenciaFin").ToString
-                        cevent.CveProspecto = dr("CveProspecto").ToString.ToEntero
-                        cevent.Prospecto = dr("Prospecto").ToString
-                        cevent.CveTipoEvento = dr("Prospecto").ToString.ToEntero
-                        cevent.EmpresaCRM = dr("EmpresaCRM").ToString
-                        cevent.SubProyecto = dr("SubProyecto").ToString
-                        cevent.CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero
-                        cevent.Direccion = dr("Direccion").ToString
 
-                        '11/05/2018 - Evento Gasto Recurrente
+                        If dr("CveEventoEstatus").ToString.ToEntero <> 5 Then
-                        cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero
-                        If cevent.CveTipoEvento = 10 Then
-                            cevent.Importe = dr("Importe").ToString.ToDouble
-                        End If
 
-                        If cevent.CveEventoEstatus.ToString.ToEntero = 3 Then
+                            Dim cevent As CalendarEvent = New CalendarEvent()
-                            cevent.backgroundColor = "#1BBC9B"
+                            cevent.id = dr("CveEvento").ToString.ToEntero
-                        End If
+                            cevent.title = dr("Asunto").ToString
+                            cevent.description = dr("Descripcion").ToString
+                            cevent.start = String.Format("{0:s}", dr("FechaInicio").ToString.ToDateTime)
+                            cevent.end = String.Format("{0:s}", dr("FechaFin").ToString.ToDateTime)
+                            cevent.allDay = False
+                            cevent.CveEventoEstatus = dr("CveEventoEstatus").ToString.ToEntero
+                            cevent.cveagendatipo = dr("CveAgendaTipo").ToString
+                            cevent.prioridad = dr("CvePrioridad").ToString.ToEntero
+                            cevent.backgroundColor = dr("BackGroundColor").ToString
+                            cevent.recurrenciatipo = dr("RecurrenciaTipo").ToString.ToEntero
+                            cevent.frecuencia = dr("Frecuencia").ToString.ToEntero
+                            cevent.diassemana = dr("DiasSemana").ToString
+                            cevent.dia = dr("Dia").ToString.ToEntero
+                            cevent.mes = dr("Mes").ToString.ToEntero
+                            cevent.recurrenciafin = dr("RecurrenciaFin").ToString
+                            cevent.CveProspecto = dr("CveProspecto").ToString.ToEntero
+                            cevent.Prospecto = dr("Prospecto").ToString
+                            cevent.CveTipoEvento = dr("Prospecto").ToString.ToEntero
+                            cevent.EmpresaCRM = dr("EmpresaCRM").ToString
+                            cevent.SubProyecto = dr("SubProyecto").ToString
+                            cevent.CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero
+                            cevent.Direccion = dr("Direccion").ToString
 
-                        'VERIFICAMOS SI TIENE O NO RECURRENCIA
+                            '11/05/2018 - Evento Gasto Recurrente
-                        If Not cevent.recurrenciatipo > 0 Then
+                            cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero
-
+                            If cevent.CveTipoEvento = 10 Then
-                            'AGREGAMOS CUANDO NO ES RECURRENTE
+                                cevent.Importe = dr("Importe").ToString.ToDouble
-                            Dim tFecha As DateTime = DateAdd(DateInterval.Month, -6, Date.Now)
-                            'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL NO LO AGREGA
-                            If dr("FechaFin").ToString.ToDateTime > tFecha Or dr("FechaInicio").ToString.ToDateTime > tFecha Then
-                                events.Add(cevent)
                             End If
-                        Else
 
-                            'EMPIEZA METODO PARA AGREGAR CUANDO SI ES RECURRENTE
+                            If cevent.CveEventoEstatus.ToString.ToEntero = 3 Then
+                                cevent.backgroundColor = "#1BBC9B"
+                            End If
 
-                            Dim FinRecurrencia = cevent.recurrenciafin.ToEntero
+                            'VERIFICAMOS SI TIENE O NO RECURRENCIA
-                            Dim FI As DateTime, FF As DateTime, FT As DateTime
+                            If Not cevent.recurrenciatipo > 0 Then
-                            Dim DiasSemana = cevent.diassemana.Split(","c)
-                            FI = cevent.start.ToDateTime
-                            FF = cevent.end.ToDateTime
 
-                            'OBTENEMOS LA FECHA TERMINO (FT) DE LA RECURRENCIA
+                                'AGREGAMOS CUANDO NO ES RECURRENTE
-                            Select Case FinRecurrencia
+                                Dim tFecha As DateTime = DateAdd(DateInterval.Month, -6, Date.Now)
-                                Case -1
+                                'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL NO LO AGREGA
-                                    FT = DateAdd(DateInterval.Year, 2, dr("FechaInicio").ToString.ToDateTime)
+                                If dr("FechaFin").ToString.ToDateTime > tFecha Or dr("FechaInicio").ToString.ToDateTime > tFecha Then
-                                Case 0
+                                    events.Add(cevent)
-                                    FT = dr("RecurrenciaFin").ToString.ToDate
+                                End If
-                                Case Is > 0
+                            Else
-                                    FinRecurrencia -= 1
-                                    Select Case cevent.recurrenciatipo
-                                        Case 1
-                                            FT = DateAdd(DateInterval.Hour, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
-                                        Case 2
-                                            FT = DateAdd(DateInterval.Day, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
-                                        Case 3
-                                            FT = DateAdd(DateInterval.WeekOfYear, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
-                                            FT = DateAdd(DateInterval.Day, (7 - Weekday(FT)).ToString.ToDouble, FT)
-                                        Case 4
-                                            FT = DateAdd(DateInterval.Month, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
-                                        Case 5
-                                            FT = DateAdd(DateInterval.Year, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
-                                    End Select
-                            End Select
 
-                            'SI ES TIPO SEMANAL Y DIASSEMANA TIENE VALORES CHECKEA ESTOS VALORES
+                                'EMPIEZA METODO PARA AGREGAR CUANDO SI ES RECURRENTE
-                            Do
-                                If DiasSemana.Length > 0 AndAlso DiasSemana(0) <> "" Then
-                                    For Each drDias As String In DiasSemana
-                                        Dim FIT = FI, FFT = FF
 
-                                        FIT = DateAdd(DateInterval.Day, (drDias.ToEntero - Weekday(FI)).ToString.ToDouble, FI)
+                                Dim FinRecurrencia = cevent.recurrenciafin.ToEntero
-                                        FFT = DateAdd(DateInterval.Day, (drDias.ToEntero - Weekday(FF)).ToString.ToDouble, FF)
+                                Dim FI As DateTime, FF As DateTime, FT As DateTime
+                                Dim DiasSemana = cevent.diassemana.Split(","c)
+                                FI = cevent.start.ToDateTime
+                                FF = cevent.end.ToDateTime
 
+                                'OBTENEMOS LA FECHA TERMINO (FT) DE LA RECURRENCIA
+                                Select Case FinRecurrencia
+                                    Case -1
+                                        FT = DateAdd(DateInterval.Year, 2, dr("FechaInicio").ToString.ToDateTime)
+                                    Case 0
+                                        FT = dr("RecurrenciaFin").ToString.ToDate
+                                    Case Is > 0
+                                        FinRecurrencia -= 1
+                                        Select Case cevent.recurrenciatipo
+                                            Case 1
+                                                FT = DateAdd(DateInterval.Hour, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
+                                            Case 2
+                                                FT = DateAdd(DateInterval.Day, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
+                                            Case 3
+                                                FT = DateAdd(DateInterval.WeekOfYear, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
+                                                FT = DateAdd(DateInterval.Day, (7 - Weekday(FT)).ToString.ToDouble, FT)
+                                            Case 4
+                                                FT = DateAdd(DateInterval.Month, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
+                                            Case 5
+                                                FT = DateAdd(DateInterval.Year, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
+                                        End Select
+                                End Select
+
+                                'SI ES TIPO SEMANAL Y DIASSEMANA TIENE VALORES CHECKEA ESTOS VALORES
+                                Do
+                                    If DiasSemana.Length > 0 AndAlso DiasSemana(0) <> "" Then
+                                        For Each drDias As String In DiasSemana
+                                            Dim FIT = FI, FFT = FF
+
+                                            FIT = DateAdd(DateInterval.Day, (drDias.ToEntero - Weekday(FI)).ToString.ToDouble, FI)
+                                            FFT = DateAdd(DateInterval.Day, (drDias.ToEntero - Weekday(FF)).ToString.ToDouble, FF)
+
+                                            cevent = New CalendarEvent()
+                                            cevent.id = dr("CveEvento").ToString.ToEntero
+                                            cevent.title = dr("Asunto").ToString
+                                            cevent.description = dr("Descripcion").ToString
+                                            cevent.start = String.Format("{0:s}", FIT)
+                                            cevent.end = String.Format("{0:s}", FFT)
+                                            cevent.allDay = False
+                                            cevent.CveEventoEstatus = dr("CveEventoEstatus").ToString.ToEntero
+                                            cevent.cveagendatipo = dr("CveAgendaTipo").ToString
+                                            cevent.prioridad = dr("CvePrioridad").ToString.ToEntero
+                                            cevent.backgroundColor = dr("BackGroundColor").ToString
+
+                                            cevent.recurrenciatipo = dr("RecurrenciaTipo").ToString.ToEntero
+                                            cevent.frecuencia = dr("Frecuencia").ToString.ToEntero
+                                            cevent.diassemana = dr("DiasSemana").ToString
+                                            cevent.dia = dr("Dia").ToString.ToEntero
+                                            cevent.mes = dr("Mes").ToString.ToEntero
+                                            cevent.recurrenciafin = dr("RecurrenciaFin").ToString
+                                            cevent.CveProspecto = dr("CveProspecto").ToString.ToEntero
+                                            cevent.Prospecto = dr("Prospecto").ToString
+
+                                            '11/05/2018 - Evento Gasto Recurrente
+                                            cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero
+                                            If cevent.CveTipoEvento = 10 Then
+                                                cevent.Importe = dr("Importe").ToString.ToDouble
+                                            End If
+
+                                            If cevent.CveEventoEstatus.ToString.ToEntero = 3 Then
+                                                cevent.backgroundColor = "#1BBC9B"
+                                            End If
+
+                                            'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL Y/0 SI LA FECHA INICIAL DE LA RECURRENCIA ES MENOR A LA FECHA QUE SE CREO EL EVENTO NO LO AGREGA
+                                            If FIT > DateAdd(DateInterval.Month, -6, Date.Now) And FIT >= dr("FechaInicio").ToString.ToDateTime Then
+                                                events.Add(cevent)
+                                            End If
+                                        Next
+                                    Else
                                         cevent = New CalendarEvent()
                                         cevent.id = dr("CveEvento").ToString.ToEntero
                                         cevent.title = dr("Asunto").ToString
                                         cevent.description = dr("Descripcion").ToString
-                                        cevent.start = String.Format("{0:s}", FIT)
+                                        cevent.start = String.Format("{0:s}", FI)
-                                        cevent.end = String.Format("{0:s}", FFT)
+                                        cevent.end = String.Format("{0:s}", FF)
                                         cevent.allDay = False
                                         cevent.CveEventoEstatus = dr("CveEventoEstatus").ToString.ToEntero
                                         cevent.cveagendatipo = dr("CveAgendaTipo").ToString
@@ -218,69 +258,37 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                                             cevent.backgroundColor = "#1BBC9B"
                                         End If
 
-                                        'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL Y/0 SI LA FECHA INICIAL DE LA RECURRENCIA ES MENOR A LA FECHA QUE SE CREO EL EVENTO NO LO AGREGA
+                                        'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL NO LO AGREGA
-                                        If FIT > DateAdd(DateInterval.Month, -6, Date.Now) And FIT >= dr("FechaInicio").ToString.ToDateTime Then
+                                        If FI > DateAdd(DateInterval.Month, -6, Date.Now) Then
                                             events.Add(cevent)
                                         End If
-                                    Next
-                                Else
-                                    cevent = New CalendarEvent()
-                                    cevent.id = dr("CveEvento").ToString.ToEntero
-                                    cevent.title = dr("Asunto").ToString
-                                    cevent.description = dr("Descripcion").ToString
-                                    cevent.start = String.Format("{0:s}", FI)
-                                    cevent.end = String.Format("{0:s}", FF)
-                                    cevent.allDay = False
-                                    cevent.CveEventoEstatus = dr("CveEventoEstatus").ToString.ToEntero
-                                    cevent.cveagendatipo = dr("CveAgendaTipo").ToString
-                                    cevent.prioridad = dr("CvePrioridad").ToString.ToEntero
-                                    cevent.backgroundColor = dr("BackGroundColor").ToString
-
-                                    cevent.recurrenciatipo = dr("RecurrenciaTipo").ToString.ToEntero
-                                    cevent.frecuencia = dr("Frecuencia").ToString.ToEntero
-                                    cevent.diassemana = dr("DiasSemana").ToString
-                                    cevent.dia = dr("Dia").ToString.ToEntero
-                                    cevent.mes = dr("Mes").ToString.ToEntero
-                                    cevent.recurrenciafin = dr("RecurrenciaFin").ToString
-                                    cevent.CveProspecto = dr("CveProspecto").ToString.ToEntero
-                                    cevent.Prospecto = dr("Prospecto").ToString
-
-                                    '11/05/2018 - Evento Gasto Recurrente
-                                    cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero
-                                    If cevent.CveTipoEvento = 10 Then
-                                        cevent.Importe = dr("Importe").ToString.ToDouble
                                     End If
 
-                                    If cevent.CveEventoEstatus.ToString.ToEntero = 3 Then
+                                    Select Case cevent.recurrenciatipo
-                                        cevent.backgroundColor = "#1BBC9B"
+                                        Case 1
-                                    End If
+                                            FI = DateAdd(DateInterval.Hour, cevent.frecuencia, FI)
+                                            FF = DateAdd(DateInterval.Hour, cevent.frecuencia, FF)
+                                        Case 2
+                                            FI = DateAdd(DateInterval.Day, cevent.frecuencia, FI)
+                                            FF = DateAdd(DateInterval.Day, cevent.frecuencia, FF)
+                                        Case 3
+                                            FI = DateAdd(DateInterval.WeekOfYear, cevent.frecuencia, FI)
+                                            FF = DateAdd(DateInterval.WeekOfYear, cevent.frecuencia, FF)
+                                        Case 4
+                                            FI = DateAdd(DateInterval.Month, cevent.frecuencia, FI)
+                                            FF = DateAdd(DateInterval.Month, cevent.frecuencia, FF)
+                                        Case 5
+                                            FI = DateAdd(DateInterval.Year, cevent.frecuencia, FI)
+                                            FF = DateAdd(DateInterval.Year, cevent.frecuencia, FF)
+                                    End Select
 
-                                    'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL NO LO AGREGA
+                                Loop Until FI > FT
-                                    If FI > DateAdd(DateInterval.Month, -6, Date.Now) Then
+                            End If
-                                        events.Add(cevent)
-                                    End If
-                                End If
 
-                                Select Case cevent.recurrenciatipo
-                                    Case 1
-                                        FI = DateAdd(DateInterval.Hour, cevent.frecuencia, FI)
-                                        FF = DateAdd(DateInterval.Hour, cevent.frecuencia, FF)
-                                    Case 2
-                                        FI = DateAdd(DateInterval.Day, cevent.frecuencia, FI)
-                                        FF = DateAdd(DateInterval.Day, cevent.frecuencia, FF)
-                                    Case 3
-                                        FI = DateAdd(DateInterval.WeekOfYear, cevent.frecuencia, FI)
-                                        FF = DateAdd(DateInterval.WeekOfYear, cevent.frecuencia, FF)
-                                    Case 4
-                                        FI = DateAdd(DateInterval.Month, cevent.frecuencia, FI)
-                                        FF = DateAdd(DateInterval.Month, cevent.frecuencia, FF)
-                                    Case 5
-                                        FI = DateAdd(DateInterval.Year, cevent.frecuencia, FI)
-                                        FF = DateAdd(DateInterval.Year, cevent.frecuencia, FF)
-                                End Select
 
-                            Loop Until FI > FT
                         End If
+
+
                     Next
                 Catch ex As Exception
                     GuardaLog(ex.ToString())

Bancos/DepositosCaja.aspx.vb

@@ -43,8 +43,8 @@ Partial Class Bancos_DepositosCaja
 
         DdlCajaChica.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("  CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})
         DdlCajaChica.DataBind()
-        'código temporal, para claudia y toñita, monge, anadelia, alba
+        'código temporal, para claudia y toñita, monge, anadelia, alba,patricia
-        If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897) Then
+        If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897, 2560) Then
             DdlCajaChica.Items.Add(New ListItem("Todas", "-1"))
             divFolio.Visible = True
         End If
@@ -255,8 +255,8 @@ Partial Class Bancos_DepositosCaja
             CveTransaccionBanco = 6
         End If
 
-        'código temporal, para claudia y toñita, monge, anadelia, alba
+        'código temporal, para claudia y toñita, monge, anadelia, alba,patricia
-        If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897) Then
+        If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897, 2560) Then
             FolioIE = TxtFolio.Text.ToEntero
         End If
 

Bancos/FluctuacionCambiaria.aspx.vb

@@ -139,10 +139,8 @@ Partial Class Bancos_FluctuacionCambiaria
             LtIndicador_CPPesosFinal.Text = Final.Abs.ToString.FormatoNumero
             LblComprasPerdidaGanancia.Text = If(Final < 0, "Ganancia", "Pérdida")
 
-            LblTotal = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
+            LblTotal = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
-        Else
+
-            GvProveedores.DataSource = Nothing
-            Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia)
         End If
         ObjBancos.Dispose()
         GvProveedores.DataBind()
@@ -179,10 +177,8 @@ Partial Class Bancos_FluctuacionCambiaria
             LtIndicador_CPPesosFinal.Text = Final.Abs.ToString.FormatoNumero
             LblComprasPerdidaGanancia.Text = If(Final > 0, "Ganancia", "Pérdida")
 
-            LblTotal = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
+            LblTotal = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
-        Else
+
-            GvProveedoresAnt.DataSource = Nothing
-            Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia)
         End If
         ObjBancos.Dispose()
         GvProveedoresAnt.DataBind()
@@ -220,10 +216,8 @@ Partial Class Bancos_FluctuacionCambiaria
 
             LblTotalVentas.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
 
-            UpIndicadoresVentas.Visible = True
+            UpIndicadoresVentas.Visible = True
-        Else
+
-            GvVentas.DataSource = Nothing
-            Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia)
         End If
         ObjBancos.Dispose()
         GvVentas.DataBind()
@@ -257,10 +251,8 @@ Partial Class Bancos_FluctuacionCambiaria
 
             LblTotalVentasAnt.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
 
-            UpIndicadoresVentas.Visible = True
+            UpIndicadoresVentas.Visible = True
-        Else
+
-            GvClientesAnt.DataSource = Nothing
-            Alert("Ocurrio un error al cargar las compras", TipoMensaje.MsgAdvertencia)
         End If
         ObjBancos.Dispose()
         GvClientesAnt.DataBind()
@@ -359,7 +351,7 @@ Partial Class Bancos_FluctuacionCambiaria
     Private Sub CargaDatosDeudores()
         Dim ObjBancos As New ClsBancos
         LblTotalDeudores.Text = "0.00"
-        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 5, UsuarioActual.CveEmpresa) Then
+        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 9, UsuarioActual.CveEmpresa) Then
             GvDeudores.DataSource = ObjBancos.DtResultados
             LblTotalDeudores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
         Else
@@ -374,7 +366,7 @@ Partial Class Bancos_FluctuacionCambiaria
     Private Sub CargaDatosFiliales()
         Dim ObjBancos As New ClsBancos
         LblTotalAcreedores.Text = "0.00"
-        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 7, UsuarioActual.CveEmpresa) Then
+        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 8, UsuarioActual.CveEmpresa) Then
             GvFiliales.DataSource = ObjBancos.DtResultados.FiltraParametros("Saldo > 0")
             LblTotalAcreedores.Text = ObjBancos.DtResultados.SUM("Fluctuacion").FormatoNumero
         Else

Compras/PopUpVerFactura.aspx.vb

@@ -3094,13 +3094,13 @@ Partial Class PopUpVerFactura
                         CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False"))
                     End If
                 Else
-                    If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto = "Egs" Then
+                    If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto.Contiene("Egs", "Ant") Then
                         CartaPorte = New Modelos.MSubReportData()
                         CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False"))
                     End If
                 End If
             Else
-                If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto = "Egs" Then
+                If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto.Contiene("Egs", "Ant") Then
                     CartaPorte = New Modelos.MSubReportData()
                     CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False"))
                 End If

Contabilidad/RegPrePolizaS.aspx.vb

@@ -1811,7 +1811,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                 dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero
                 dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero
                 dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero
-                dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, ""))
+                dr("FolioFactura") = If(DdlComprasE.Visible = True AndAlso DdlComprasE.SelectedItem IsNot Nothing, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True AndAlso DdlVentasE.SelectedItem IsNot Nothing, DdlVentasE.SelectedItem.ToString, ""))
                 dr("Modificado") = True
 
                 dr("ContadoCuenta") = DdlModalConceptoCuenta.SelectedValue.ToEntero

OC/RepOCxSurtir.aspx

@@ -87,9 +87,9 @@
                             <asp:BoundField DataField="FechaIng" HeaderText="Fecha" DataFormatString="{0:d}" />
                             <asp:BoundField DataField="Descripcion" HeaderText="Descripción" />
                             <asp:BoundField DataField="CodigoPS" HeaderText="Producto/Servicio" />
-                            <asp:BoundField DataField="CantidadOC" HeaderText="CantidadOC" ItemStyle-HorizontalAlign="Right" />
+                            <asp:BoundField DataField="CantidadOC" HeaderText="CantidadOC" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,###.####}" />
-                            <asp:BoundField DataField="CantidadCompra" HeaderText="Cantidad Compra" ItemStyle-HorizontalAlign="Right" />
+                            <asp:BoundField DataField="CantidadCompra" HeaderText="Cantidad Compra" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,###.####}" />
-                            <asp:BoundField DataField="Pendiente" HeaderText="Pendiente" ItemStyle-HorizontalAlign="Right" />
+                            <asp:BoundField DataField="Pendiente" HeaderText="Pendiente" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,###.####}" />
                         </Columns>
                     </asp:GridView>
                 </ContentTemplate>

OC/RepSolicitudesAnticipo.aspx

@@ -86,6 +86,7 @@
                                 <asp:DropDownList ID="DdlEstatus" runat="server" AppendDataBoundItems="true" DataTextField="TipoGasto" DataValueField="CveTipoGasto" Class="table-group-action-input form-control input-inline input-sm select2me" Width="70%">
                                     <asp:ListItem Selected="True" Text="No Aplicadas" Value="1"></asp:ListItem>
                                     <asp:ListItem Text="Aplicadas" Value="3"></asp:ListItem>
+                                    <asp:ListItem Text="Cancelado" Value="5"></asp:ListItem>
                                 </asp:DropDownList>
                             </div>
                         </div>
@@ -120,10 +121,12 @@
                     <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvSolicitudes.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                 </div>
             </div>
-            <asp:GridView ID="GvSolicitudes" runat="server" GridLines="None" DataKeyNames="CveOrdenCompra,Folio, RazonSocial, ImporteSol, FolioMov, Importe, Nombre, CveEvento"
+            <asp:GridView ID="GvSolicitudes" runat="server" GridLines="None" DataKeyNames="CveOrdenCompra,Folio, RazonSocial, ImporteSol, FolioMov, Importe, Nombre, CveEvento,CveEventoEstatus"
                 CssClass="table table-striped table-advance table-hover Widthall mysmallbtn ScrollAD" data-sort="true" data-footer="0" BorderWidth="1" BorderColor="#D3D3D3" CellSpacing="0" Width="100%" AutoGenerateColumns="False"
+                OnRowDataBound="GvSolicitudes_RowDataBound"
                 EmptyDataText="No se encontraron registros">
                 <Columns>
+                    <%--0--%>
                      <asp:TemplateField Visible="false">
                         <HeaderTemplate>
                             <asp:CheckBox ID="ChkAll" runat="server"/>
@@ -132,40 +135,53 @@
                             <asp:CheckBox ID="ChkOrdenCompra"  runat="server" />
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--1--%>
                     <asp:TemplateField HeaderText="Ord. Compra" ItemStyle-Width="10%">
                         <ItemTemplate>
                             <asp:HyperLink ID="HplNumFolio" runat="server" CssClass="Texto"  Target="_blank" NavigateUrl='<%# Eval("CveOrdenCompra", "/OC/OC.aspx?OC={0}")%>' Text='<%# Eval("Folio") %>'></asp:HyperLink>
                         </ItemTemplate>
                     </asp:TemplateField> 
+                    <%--2--%>
                     <asp:BoundField DataField="RazonSocial" HeaderText="Proveedor" ItemStyle-Width="25%" ItemStyle-HorizontalAlign="Left" />
+                    <%--3--%>
                     <asp:BoundField DataField="Descripcion" HeaderText="Descripción" ItemStyle-Width="25%" ItemStyle-HorizontalAlign="Left" />
+                    <%--4--%>
                     <asp:BoundField DataField="SubProyecto" HeaderText="SubProyecto" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left" />
+                    <%--5--%>
                     <asp:BoundField DataField="Nombre" HeaderText="Usuario Solicitó" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Left" />
-                    
+                    <%--6--%>
                     <asp:BoundField DataField="ImporteSol" HeaderText="Importe Solicitud" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Right"  Visible ="true" /> 
-                    
+                    <%--7--%>
                     <asp:TemplateField HeaderText="Folio Mov. Banc." ItemStyle-Width="10%" Visible="false">
                         <ItemTemplate>
                             <asp:HyperLink ID="HplNumFolioMov" runat="server" CssClass="Texto"  Target="_blank" NavigateUrl='<%# Eval("CveIE", "/Bancos/IE.aspx?CveIE={0}") %>' Text='<%# Eval("FolioMov") %>'></asp:HyperLink>
                         </ItemTemplate>
                     </asp:TemplateField> 
-
+                    <%--8--%>
                     <asp:TemplateField HeaderText="Importe" ItemStyle-Width="10%" Visible="false" ItemStyle-HorizontalAlign="Right">
                         <ItemTemplate>
                             <asp:Label runat="server" CssClass="Texto"  Text='<%# Eval("Importe", "${0:N2}") %>'></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
-
+                    <%--9--%>
                      <asp:TemplateField HeaderText="Moneda" ItemStyle-Width="2.5%" ItemStyle-HorizontalAlign="Left">
                         <ItemTemplate>
                             <asp:Label runat="server" CssClass="Texto"  Text='<%# Eval("Abreviatura") %>'></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--10--%>
                     <asp:TemplateField HeaderText="Pagar Anticipo" ItemStyle-Width="20%" Visible="false" ItemStyle-HorizontalAlign="Center">
                         <ItemTemplate>
                             <asp:HyperLink ID="HplNum" runat="server" CssClass="Texto" Target="_blank" NavigateUrl='<%# Eval("CveOrdenCompra", "/Bancos/IE.aspx?Opcion=EGSSINFACT&CveOC={0}") %>' ToolTip="Pagar Anticipo"><i class='fa fa-money font-green'></i></asp:HyperLink>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--11--%>
+                    <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Cancelar" >
+                        <ItemTemplate>
+                            <asp:LinkButton ID="LnkCancelar" runat="server" AlternateText="Eliminar" Visible="false" CausesValidation="False" CommandName="Delete" OnClick="LnkCancelar_Click"
+                                CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
+                        </ItemTemplate>
+                    </asp:TemplateField>
                 </Columns>
             </asp:GridView>
         </ContentTemplate>

OC/RepSolicitudesAnticipo.aspx.cs

@@ -14,6 +14,10 @@ using iTextSharp.text;
 using iTextSharp.text.pdf;
 using System.IO;
 using Ionic.Zip;
+using StackExchange.Redis;
+using static Stimulsoft.Report.Export.DeflaterHuffman;
+
+
 public partial class OC_RepSolicitudesAnticipo : ClsPaginas
 {
     #region "Propiedades"
@@ -286,4 +290,64 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
         
     }
 
+
+    protected void LnkCancelar_Click(object sender, EventArgs e)
+    {
+
+        bool errorProceso = false;
+        GridViewRow GvRow = (GridViewRow)((LinkButton)sender).NamingContainer;
+        int CveEvento = GvRow.DataKey("CveEvento").ToEntero();
+        int CveOrdenCompra = GvRow.DataKey("CveOrdenCompra").ToEntero();
+
+        string ImporteSol = GvRow.DataKey("ImporteSol") ;
+
+        ClsOIEventos objGenral = new ClsOIEventos();
+        ClsOIEventos objEventos = new ClsOIEventos(objGenral.IniciaTransacSQL());
+     
+
+        if (objEventos.UpdateEstatusEvento(5,-1, CveEvento,UsuarioActual.CveUsuario))
+        {
+            if (!objGenral.AddEventoBitacora($"Se cancela solicitud de anticipo con importe {ImporteSol}","",UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,CveOC:CveOrdenCompra)){
+                errorProceso = true;
+            }
+        }
+        else
+        {
+            errorProceso = true;
+        }
+
+
+        if (!errorProceso)
+        {
+            objGenral.Commit();
+            Alert("Solicitud de anticipo cancelado correctamente.");
+        }
+        else
+        {
+            objGenral.RollBack();
+        }
+
+        objGenral.Dispose();
+
+        if (!errorProceso)
+        {
+            CargaDatos();           
+        }
+
+    }
+
+    protected void GvSolicitudes_RowDataBound(object sender, GridViewRowEventArgs e)
+    {
+        if(e.Row.RowType == DataControlRowType.DataRow)
+        {
+            if(e.Row.DataKey("CveEventoEstatus").ToEntero() == 1)
+            {
+                e.Row.FCLinkButton("LnkCancelar").Visible = true;
+            }else if (e.Row.DataKey("CveEventoEstatus").ToEntero() == 5)
+            {
+                e.Row.FCHyperLink("HplNum").Visible = false;
+            }
+        }
+
+    }
 }

Ventas/Clientes.aspx

@@ -177,10 +177,6 @@
             color: orange;
             background-color: orange;
         }
-
-        .margenChk{
-            margin-left:15px!important;
-        }
     </style>
 </asp:Content>
 <asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
@@ -1652,11 +1648,9 @@
                                             <div class="portlet-title">
                                                 <div class="caption font-green">
                                                     <i class="icon-pin font-green"></i>
-                                                    <span class="caption-subject bold uppercase">Parametros</span>                                                     
+                                                    <span class="caption-subject bold uppercase">Parametros</span>
                                                 </div>
-                                                <asp:CheckBox ID="ChkPermiteCredito" runat="server" AutoPostBack="true" Text="Permite Crédito" CssClass="margenChk" /> 
                                                 <div class="tools">
-                                                    
                                                     <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
                                                 </div>
                                             </div>
@@ -1666,88 +1660,87 @@
                                                         <asp:Button ID="BtnCargaCxC" runat="server" ClientIDMode="Static" Text="CargaCxC" Style="display: none;" OnClick="BtnCargaCxC_Click" />
                                                         <div class="row">
                                                             <div class="col-md-6">
-                                                                <div class="row">
-                                                                    <div class="col-md-6">
-                                                                        <div class="form-group form-md-line-input input-iconright">
-                                                                            <asp:TextBox ID="TxtLimiteCredito" runat="server" CausesValidation="true" CssClass="form-control" MaxLength="13" Text="0" Enabled="true"></asp:TextBox>
-                                                                            <asp:RequiredFieldValidator ID="RequiredFieldValidator1" Display="None" runat="server" ControlToValidate="TxtLimiteCredito" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Límite Crédito''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                                            <ajax:FilteredTextBoxExtender ID="FIETTxtLimiteCredito" TargetControlID="TxtLimiteCredito" FilterType="Numbers,Custom" ValidChars=".," runat="server" />
-                                                                            <label for="<%= TxtLimiteCredito.ClientID.ToString()%>">Límite Crédito  M.N.:</label>
-                                                                        </div>
-                                                                    </div>
-                                                                    <div class="col-md-6">
 
-                                                                        <div class="form-group form-md-line-input input-iconright date date-picker date date-picker" style="width:150px">
+                                                                <div>
-                                                                            <asp:TextBox ID="TxtFechaLimiteCredito" CssClass="form-control" runat="server" Width="150px"></asp:TextBox>
+                                                                    <asp:CheckBox ID="ChkPermiteCredito" runat="server" AutoPostBack="true" Text="Permite Crédito:" />
-                                                                            <span class="input-group-btn " style="position: absolute; right: 41px; top: 9px;">
+                                                                </div>
-                                                                                <asp:LinkButton ID="LnkTxtFechaLimiteCredito" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+
-                                                                            </span>
+                                                                <div class="form-group form-md-line-input input-iconright">
-                                                                            <ajax:MaskedEditExtender ID="METxtFechaLimiteCredito" runat="server" TargetControlID="TxtFechaLimiteCredito" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                                                    <asp:TextBox ID="TxtLimiteCredito" runat="server" CausesValidation="true" CssClass="form-control" MaxLength="13" Text="0" Enabled="true"></asp:TextBox>
-                                                                            <ajax:CalendarExtender runat="server" ID="CETxtFechaLimiteCredito" TargetControlID="TxtFechaLimiteCredito" PopupButtonID="LnkTxtFechaLimiteCredito" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                                                    <asp:RequiredFieldValidator ID="RequiredFieldValidator1" Display="None" runat="server" ControlToValidate="TxtLimiteCredito" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Límite Crédito''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                                            <label for="<%= TxtFechaLimiteCredito.ClientID.ToString()%>">F. Limite Crédito: </label>
+                                                                    <ajax:FilteredTextBoxExtender ID="FIETTxtLimiteCredito" TargetControlID="TxtLimiteCredito" FilterType="Numbers,Custom" ValidChars=".," runat="server" />
-                                                                        </div>
+                                                                    <%--   <asp:CompareValidator CssClass="help-block errorimput" ID="CompareValidator1" runat="server" ControlToValidate="TxtLimiteCredito" ErrorMessage="El campo <b>''Límite Crédito''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Double" ValidationGroup="GrpGuardar"></asp:CompareValidator>--%>
-                                                                    </div>
+                                                                    <label for="<%= TxtLimiteCredito.ClientID.ToString()%>">Límite Crédito  M.N.:</label>
+                                                                </div>
+
+                                                                <div class="form-group form-md-line-input">
+                                                                    <asp:TextBox ID="TxtPlazoCobranza" runat="server" CssClass="form-control" MaxLength="3" Text="0" Enabled="false"></asp:TextBox>
+                                                                    <asp:RequiredFieldValidator CssClass="help-block errorimput" ID="RFVPlazoCobranza" runat="server" ControlToValidate="TxtPlazoCobranza" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Plazo de Cobranza''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                                    <asp:CompareValidator CssClass="help-block errorimput" ID="CVPlazoCobranza" runat="server" ControlToValidate="TxtPlazoCobranza" ErrorMessage="El campo <b>''Plazo de Cobranza''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Integer" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                                                    <label for="<%= TxtPlazoCobranza.ClientID.ToString()%>">Plazo Cobranza: </label>
+                                                                </div>
+
+                                                                <div class="form-group form-md-line-input">
+                                                                    <asp:TextBox ID="TxtPlazoCobranzaRemision" runat="server" CssClass="form-control" MaxLength="4" Text="0" Enabled="false"></asp:TextBox>
+                                                                    <asp:RequiredFieldValidator CssClass="help-block errorimput" ID="RFVPlazoCobranzaRemision" runat="server" ControlToValidate="TxtPlazoCobranzaRemision" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Plazo de Cobranza Remisión''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                                    <asp:CompareValidator CssClass="help-block errorimput" ID="CompareValidator2" runat="server" ControlToValidate="TxtPlazoCobranzaRemision" ErrorMessage="El campo <b>''Plazo de Cobranza Remisión''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Integer" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                                                    <label for="<%= TxtPlazoCobranzaRemision.ClientID.ToString()%>">Plazo Vencimiento Remisión: </label>
                                                                 </div>
 
                                                                 <div class="row">
                                                                     <div class="col-md-6">
-                                                                        <div class="form-group form-md-line-input">
-                                                                            <asp:TextBox ID="TxtPlazoCobranza" runat="server" CssClass="form-control" MaxLength="3" Text="0" Enabled="false"></asp:TextBox>
-                                                                            <asp:RequiredFieldValidator CssClass="help-block errorimput" ID="RFVPlazoCobranza" runat="server" ControlToValidate="TxtPlazoCobranza" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Plazo de Cobranza''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                                            <asp:CompareValidator CssClass="help-block errorimput" ID="CVPlazoCobranza" runat="server" ControlToValidate="TxtPlazoCobranza" ErrorMessage="El campo <b>''Plazo de Cobranza''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Integer" ValidationGroup="GrpGuardar"></asp:CompareValidator>
-                                                                            <label for="<%= TxtPlazoCobranza.ClientID.ToString()%>">Plazo Cobranza: </label>
-                                                                        </div>
-                                                                    </div>
-                                                                    <div class="col-md-6">
-                                                                        <div class="form-group form-md-line-input">
-                                                                            <asp:TextBox ID="TxtPlazoCobranzaRemision" runat="server" CssClass="form-control" MaxLength="4" Text="0" Enabled="false"></asp:TextBox>
-                                                                            <asp:RequiredFieldValidator CssClass="help-block errorimput" ID="RFVPlazoCobranzaRemision" runat="server" ControlToValidate="TxtPlazoCobranzaRemision" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Plazo de Cobranza Remisión''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                                            <asp:CompareValidator CssClass="help-block errorimput" ID="CompareValidator2" runat="server" ControlToValidate="TxtPlazoCobranzaRemision" ErrorMessage="El campo <b>''Plazo de Cobranza Remisión''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Integer" ValidationGroup="GrpGuardar"></asp:CompareValidator>
-                                                                            <label for="<%= TxtPlazoCobranzaRemision.ClientID.ToString()%>">Plazo Remisión: </label>
-                                                                        </div>
-                                                                    </div>
-                                                                </div>
-
-                                                                <div class="row">
-                                                                    <div class="col-md-4">
                                                                         <div class="form-group form-md-line-input">
                                                                             <asp:Label ID="LblDiasPago" runat="server" ForeColor="#888888" Text="Días de pago:"></asp:Label>
                                                                             <br />
-                                                                            <label><b>L</b></label>&nbsp;&nbsp;                                                                           
+                                                                            <label><b>L</b></label>&nbsp;&nbsp;
-                                                                            <label><b>M</b></label>&nbsp;&nbsp;&nbsp;                                                                           
+                                                                           
-                                                                            <label><b>MI</b></label>&nbsp;&nbsp;                                                                           
+                                                                            <label><b>M</b></label>&nbsp;&nbsp;&nbsp;
-                                                                            <label><b>J</b></label>&nbsp;&nbsp;                                                                           
+                                                                           
-                                                                            <label><b>V</b></label>&nbsp;&nbsp;                                                                           
+                                                                            <label><b>MI</b></label>&nbsp;&nbsp;
-                                                                            <label><b>S</b></label>&nbsp;&nbsp;                                                                           
+                                                                           
+                                                                            <label><b>J</b></label>&nbsp;&nbsp;
+                                                                           
+                                                                            <label><b>V</b></label>&nbsp;&nbsp;
+                                                                           
+                                                                            <label><b>S</b></label>&nbsp;&nbsp;
+                                                                           
                                                                             <br />
-                                                                            <asp:CheckBox ID="ChkLunes" runat="server" />&nbsp;                                                                           
+
-                                                                            <asp:CheckBox ID="ChkMartes" runat="server" />&nbsp;                                                                           
+                                                                            <asp:CheckBox ID="ChkLunes" runat="server" />&nbsp;
-                                                                            <asp:CheckBox ID="ChkMiercoles" runat="server" />&nbsp;                                                                           
+                                                                           
-                                                                            <asp:CheckBox ID="ChkJueves" runat="server" />&nbsp;                                                                           
+                                                                            <asp:CheckBox ID="ChkMartes" runat="server" />&nbsp;
-                                                                            <asp:CheckBox ID="ChkViernes" runat="server" />&nbsp;                                                                           
+                                                                           
+                                                                            <asp:CheckBox ID="ChkMiercoles" runat="server" />&nbsp;
+                                                                           
+                                                                            <asp:CheckBox ID="ChkJueves" runat="server" />&nbsp;
+                                                                           
+                                                                            <asp:CheckBox ID="ChkViernes" runat="server" />&nbsp;
+                                                                           
                                                                             <asp:CheckBox ID="ChkSabado" runat="server" />&nbsp;                                                                   
                                                                        
                                                                         </div>
                                                                     </div>
 
-                                                                    <div class="col-md-4" style="margin-top: 10px;">
+                                                                    <div class="col-md-6" style="margin-top: 10px;">
                                                                         <div class="form-group form-md-line-input">
                                                                             <asp:TextBox ID="TxtDiasEspecifico" runat="server" CssClass="form-control" Enabled="false"></asp:TextBox>
                                                                             <label for="<%= TxtDiasEspecifico.ClientID.ToString()%>">Días específicos: </label>
                                                                         </div>
                                                                     </div>
-                                                                    <div class="col-md-4" style="margin-top: 10px;">
-                                                                        <div class="form-group form-md-line-input">
-                                                                            <asp:DropDownList ID="DdlTipoPago" runat="server" CssClass="form-control select2me">
-                                                                                <asp:ListItem Value="Efectivo" Text="Efectivo"></asp:ListItem>
-                                                                                <asp:ListItem Value="Cheque" Text="Cheque"></asp:ListItem>
-                                                                                <asp:ListItem Value="Tranferencia" Text="Transferencia"></asp:ListItem>
-                                                                                <asp:ListItem Value="-1" Text="Seleccione" Selected="True"></asp:ListItem>
-                                                                            </asp:DropDownList>
-                                                                            <label for="<%= DdlTipoPago.ClientID.ToString()%>">Tipo Pago:</label>
-                                                                        </div>
-                                                                    </div>
                                                                 </div>
+
+
+
+                                                                <div class="form-group form-md-line-input">
+                                                                    <asp:DropDownList ID="DdlTipoPago" runat="server" CssClass="form-control select2me">
+                                                                        <asp:ListItem Value="Efectivo" Text="Efectivo"></asp:ListItem>
+                                                                        <asp:ListItem Value="Cheque" Text="Cheque"></asp:ListItem>
+                                                                        <asp:ListItem Value="Tranferencia" Text="Transferencia"></asp:ListItem>
+                                                                        <asp:ListItem Value="-1" Text="Seleccione" Selected="True"></asp:ListItem>
+                                                                    </asp:DropDownList>
+                                                                    <label for="<%= DdlTipoPago.ClientID.ToString()%>">Tipo de Pago:</label>
+                                                                </div>
+
                                                                 <div>
                                                                     <label for="<%= TxtDocumentacion.ClientID.ToString()%>">Documentación:</label>
                                                                     <asp:TextBox ID="TxtDocumentacion" CssClass="form-control" runat="server" Rows="3"></asp:TextBox>
@@ -1757,19 +1750,32 @@
                                                                         <div class="form-group form-md-line-input">
                                                                             <asp:Label ID="LblDiasRevision" runat="server" Text="Días de Revisión:"></asp:Label>
                                                                             <br />
-                                                                            <label><b>L</b></label>&nbsp;&nbsp;                                                                           
+                                                                            <label><b>L</b></label>&nbsp;&nbsp;
-                                                                            <label><b>M</b></label>&nbsp;&nbsp;&nbsp;                                                                           
+                                                                           
-                                                                            <label><b>MI</b></label>&nbsp;&nbsp;                                                                           
+                                                                            <label><b>M</b></label>&nbsp;&nbsp;&nbsp;
-                                                                            <label><b>J</b></label>&nbsp;&nbsp;                                                                           
+                                                                           
-                                                                            <label><b>V</b></label>&nbsp;&nbsp;                                                                           
+                                                                            <label><b>MI</b></label>&nbsp;&nbsp;
-                                                                            <label><b>S</b></label>&nbsp;&nbsp;                                                                           
+                                                                           
+                                                                            <label><b>J</b></label>&nbsp;&nbsp;
+                                                                           
+                                                                            <label><b>V</b></label>&nbsp;&nbsp;
+                                                                           
+                                                                            <label><b>S</b></label>&nbsp;&nbsp;
+                                                                           
                                                                             <br />
-                                                                            <asp:CheckBox ID="ChkRevLunes" runat="server" />&nbsp;                                                                           
+
-                                                                            <asp:CheckBox ID="ChkRevMartes" runat="server" />&nbsp;                                                                           
+                                                                            <asp:CheckBox ID="ChkRevLunes" runat="server" />&nbsp;
-                                                                            <asp:CheckBox ID="ChkRevMiercoles" runat="server" />&nbsp;                                                                           
+                                                                           
-                                                                            <asp:CheckBox ID="ChkRevJueves" runat="server" />&nbsp;                                                                           
+                                                                            <asp:CheckBox ID="ChkRevMartes" runat="server" />&nbsp;
-                                                                            <asp:CheckBox ID="ChkRevViernes" runat="server" />&nbsp;                                                                           
+                                                                           
-                                                                            <asp:CheckBox ID="ChkRevSabado" runat="server" />&nbsp;                                                                       
+                                                                            <asp:CheckBox ID="ChkRevMiercoles" runat="server" />&nbsp;
+                                                                           
+                                                                            <asp:CheckBox ID="ChkRevJueves" runat="server" />&nbsp;
+                                                                           
+                                                                            <asp:CheckBox ID="ChkRevViernes" runat="server" />&nbsp;
+                                                                           
+                                                                            <asp:CheckBox ID="ChkRevSabado" runat="server" />&nbsp;                                                                                                                                                          
+                                                                       
                                                                         </div>
                                                                     </div>
                                                                 </div>
@@ -1778,12 +1784,66 @@
                                                                     <label for="<%= TxtObsDiasRevision.ClientID.ToString()%>">Documentación Revisión: </label>
                                                                 </div>
 
+                                                                <%--    <asp:GridView ID="GvDocs" AutoGenerateColumns="false" runat="server" GridLines="none" DataKeyNames="CveDocumentacion,Documentacion,Orden,CveDocumentacionElectronica,Adjunto,Estatus,Observacion,Fecha,FechaIng,Usuario,FechaLimite" Visible="false">
+                                                                    <Columns>
+                                                                        <asp:TemplateField ItemStyle-HorizontalAlign="center" ItemStyle-Width="60px">
+                                                                            <ItemTemplate>
+                                                                                <asp:Literal ID="ImgRequired" runat="server"></asp:Literal>
+                                                                            </ItemTemplate>
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField ControlStyle-CssClass="template" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="275" HeaderText="Documento">
+                                                                            <ItemTemplate>
+                                                                                <asp:Literal ID="LtlDocumentacion" runat="server" Text='<%# Eval("Documentacion") %>'></asp:Literal>
+                                                                            </ItemTemplate>
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Completo" ItemStyle-Width="40px">
+                                                                            <ItemTemplate>
+                                                                                <asp:CheckBox ID="chkEstatus" runat="server" CssClass="make-switchsd" Checked='<%# Eval("Estatus").ToString = "1" %>'></asp:CheckBox>
+                                                                            </ItemTemplate>
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Observaciones" ItemStyle-Width="100">
+                                                                            <ItemTemplate>
+                                                                                <asp:TextBox ID="TxtObservaciones" Width="300" MaxLength="100" runat="server" Text='<%# Eval("Observacion") %>'></asp:TextBox>
+                                                                            </ItemTemplate>
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Fecha limite" ItemStyle-Width="100">
+                                                                            <ItemTemplate>
+                                                                                <asp:TextBox ID="TxtFechaLimite" Width="100" onKeyPress="return  handleInput(this.value)" MaxLength="100" runat="server" Text='<%# Eval("FechaLimite", "{0:d}") %>'></asp:TextBox>
+                                                                                <ajax:CalendarExtender runat="server" ID="Calendario6" TargetControlID="TxtFechaLimite" Enabled="True"></ajax:CalendarExtender>
+                                                                                <asp:RequiredFieldValidator ID="rfvFechaI6" runat="server" ControlToValidate="TxtFechaLimite" Display="None" ErrorMessage="El campo <b>''Fecha limite''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpRL"></asp:RequiredFieldValidator>
+                                                                                <asp:CompareValidator ID="cvFechaI6" runat="server" ControlToValidate="TxtFechaLimite" Display="None" ErrorMessage="El campo <b>''Fecha Limite''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpRL"></asp:CompareValidator>
+
+                                                                                <ajax:ValidatorCalloutExtender ID="vcoFfvFI4" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI6" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                                                <ajax:ValidatorCalloutExtender ID="vcoCvFI4" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI6" Width="350px"></ajax:ValidatorCalloutExtender>
+
+                                                                            </ItemTemplate>
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="50px">
+                                                                            <ItemTemplate>
+                                                                                <asp:LinkButton ID="ImgUpload" runat="server" AlternateText="Editar" OnClick="Upload_ClickDocumentacion" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-upload' ></i>" />
+                                                                            </ItemTemplate>
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="50px">
+                                                                            <ItemTemplate>
+                                                                                <asp:Literal ID="ImgDownLoad" runat="server"></asp:Literal>
+                                                                            </ItemTemplate>
+                                                                        </asp:TemplateField>
+                                                                        <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="50px">
+                                                                            <ItemTemplate>
+                                                                                <asp:LinkButton ID="ImgE" runat="server" AlternateText="Editar" CausesValidation="False" OnClick="Update_ClickDocumentacion"
+                                                                                    CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-check'></i>" />
+                                                                            </ItemTemplate>
+                                                                        </asp:TemplateField>
+
+                                                                    </Columns>
+                                                                </asp:GridView>--%>
                                                             </div>
 
                                                             <div class="col-md-6">
 
                                                                 <div class="form-group form-md-line-input">
-                                                                    <asp:TextBox ID="TxtCobranzaContacto" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>                                                                    
+                                                                    <asp:TextBox ID="TxtCobranzaContacto" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
+                                                                    <%--<asp:RequiredFieldValidator ID="RFVCobranzaContacto" runat="server" ControlToValidate="TxtCobranzaContacto" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Contacto''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>--%>
                                                                     <label for="<%= TxtCobranzaContacto.ClientID.ToString()%>">Nombre Contacto de Pagos: </label>
                                                                 </div>
 
@@ -1791,8 +1851,10 @@
                                                                     <div class="col-md-6">
                                                                         <div class="form-group form-md-line-input">
                                                                             <asp:TextBox ID="TxtCobranzaTelefono" CssClass="form-control" runat="server" MaxLength="13"></asp:TextBox>
-                                                                            <ajax:MaskedEditExtender ID="MaskedEditExtender2" runat="server" TargetControlID="TxtCobranzaTelefono" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>                                                                            
+                                                                            <ajax:MaskedEditExtender ID="MaskedEditExtender2" runat="server" TargetControlID="TxtCobranzaTelefono" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
-                                                                            <label for="<%= TxtCobranzaTelefono.ClientID.ToString()%>">Tel. Pagos: </label>
+
+                                                                            <%--<asp:RequiredFieldValidator ID="RFVCobranzaTelefono" runat="server" ControlToValidate="TxtCobranzaTelefono" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Teléfono''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>--%>
+                                                                            <label for="<%= TxtCobranzaTelefono.ClientID.ToString()%>">Teléfono de Pagos: </label>
                                                                         </div>
                                                                     </div>
 
@@ -1804,58 +1866,66 @@
                                                                     </div>
                                                                 </div>
 
-                                                                <div class="row">
+
-                                                                    <div class="col-md-6">
+                                                                <div class="form-group form-md-line-input">
-                                                                        <div class="form-group form-md-line-input">
+                                                                    <asp:TextBox ID="TxtCobranzaCorreo" CssClass="form-control" runat="server" MaxLength="2000"></asp:TextBox>
-                                                                            <asp:TextBox ID="TxtCobranzaCorreo" CssClass="form-control" runat="server" MaxLength="2000"></asp:TextBox>
+                                                                    <%--<asp:RequiredFieldValidator ID="RFVCobranzaCorreo" runat="server" ControlToValidate="TxtCobranzaCorreo" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Correo''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>--%>
-                                                                            <label for="<%= TxtCobranzaCorreo.ClientID.ToString()%>">Correo Pagos: </label>
+                                                                    <label for="<%= TxtCobranzaCorreo.ClientID.ToString()%>">Correo de Pagos: </label>
-                                                                        </div>
-                                                                    </div>
-                                                                    <div class="col-md-6">
-                                                                        <div class="form-group form-md-line-input">
-                                                                            <asp:DropDownList ID="DdlResponsable" DataValueField="CveUsuario" DataTextField="Nombre" Width="100%" runat="server" CssClass="form-control  select2me">
-                                                                            </asp:DropDownList>
-                                                                            <label for="<%= DdlResponsable.ClientID.ToString()%>">Responsable Cobranza: </label>
-                                                                        </div>
-                                                                    </div>
                                                                 </div>
 
+                                                                <div class="form-group form-md-line-input">
+                                                                    <asp:TextBox ID="TxtHorario" CssClass="form-control" runat="server" MaxLength="100"></asp:TextBox>
+                                                                    <label for="<%= TxtHorario.ClientID.ToString()%>">Horario: </label>
+                                                                </div>
 
-                                                                
+                                                                <%--  <div class="form-group form-md-line-input">
+                                                                    <label for="<%= TxtHorario1.ClientID.ToString()%>">Horario: </label>
 
+                                                                    <div class="row">
 
-                                                                <div class="row">
+                                                                        <div class="col-md-5">
-                                                                    <div class="col-md-6">
+                                                                            <asp:TextBox ID="TxtHorario1" Text="" runat="server" CssClass="form-control" />
-                                                                        <div class="form-group form-md-line-input">
+                                                                            <ajax:MaskedEditExtender ID="MaskedEditExtender7" runat="server" TargetControlID="TxtHorario1" AcceptAMPM="true" Mask="99:99" MaskType="Time"></ajax:MaskedEditExtender>                                                                      
-                                                                            <asp:TextBox ID="TxtHorario" CssClass="form-control" runat="server" MaxLength="100"></asp:TextBox>
-                                                                            <label for="<%= TxtHorario.ClientID.ToString()%>">Horario: </label>
                                                                         </div>
-                                                                    </div>
-                                                                    <div class="col-md-6">
-                                                                        <div class="form-group form-md-line-input">
-                                                                            <asp:TextBox ID="TxtPortalFacturacion" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
-                                                                            <label for="<%= TxtPortalFacturacion.ClientID.ToString()%>">Portal de Facturas: </label>
-                                                                        </div>
-                                                                    </div>
-                                                                </div>        
-                                                                
 
-                                                                 <div class="row" id="DivPortal" runat="server" visible="false" >
+                                                                        <div class="col-md-1" style="text-align: left; margin-top:5px;">
-                                                                     <div class="col-md-6">
+                                                                            <label>A</label>
-                                                                         <div class="form-group form-md-line-input">
+                                                                        </div>
-                                                                             <asp:TextBox ID="TxtUsuarioPortalFacturacion" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>                                                                             
+
-                                                                             <label for="<%= TxtUsuarioPortalFacturacion.ClientID.ToString()%>">Usuario Portal: </label>
+
-                                                                         </div>
+                                                                        <div class="col-md-5"">
-                                                                     </div>
+                                                                             <asp:TextBox ID="TxtHorario2" Text="" runat="server" CssClass="form-control" />
-                                                                    <div class="col-md-6">
+                                                                            <ajax:MaskedEditExtender ID="MaskedEditExtender6" runat="server" TargetControlID="TxtHorario2" AcceptAMPM="true" Mask="99:99" MaskType="Time"></ajax:MaskedEditExtender>
-                                                                         <div class="form-group form-md-line-input">
+                                                                        </div>
-                                                                        <asp:TextBox ID="TxtContraseñaPortalFacturacion" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>                                                                        
+
+                                                                    </div>
+                                                                </div>--%>
+
+                                                                <div class="form-group form-md-line-input">
+                                                                    <asp:TextBox ID="TxtPortalFacturacion" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
+                                                                    <%--<asp:RequiredFieldValidator ID="RFVPortalFacturacion" runat="server" ControlToValidate="TxtPortalFacturacion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Portal Facturacion''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>--%>
+                                                                    <label for="<%= TxtPortalFacturacion.ClientID.ToString()%>">Portal de Facturas: </label>
+                                                                </div>
+
+                                                                <div id="DivPortal" runat="server" visible="false">
+                                                                    <div class="form-group form-md-line-input">
+                                                                        <asp:TextBox ID="TxtUsuarioPortalFacturacion" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
+                                                                        <%--<asp:RequiredFieldValidator ID="RFVPortalFacturacion" runat="server" ControlToValidate="TxtPortalFacturacion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Portal Facturacion''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>--%>
+                                                                        <label for="<%= TxtUsuarioPortalFacturacion.ClientID.ToString()%>">Usuario Portal: </label>
+                                                                    </div>
+
+                                                                    <div class="form-group form-md-line-input">
+                                                                        <asp:TextBox ID="TxtContraseñaPortalFacturacion" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
+                                                                        <%--<asp:RequiredFieldValidator ID="RFVPortalFacturacion" runat="server" ControlToValidate="TxtPortalFacturacion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Portal Facturacion''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>--%>
                                                                         <label for="<%= TxtContraseñaPortalFacturacion.ClientID.ToString()%>">Contraseña Portal: </label>
                                                                     </div>
-                                                                        
-                                                                    </div>
                                                                 </div>
-                                                               
+
+                                                                <div class="form-group form-md-line-input">
+                                                                    <asp:DropDownList ID="DdlResponsable" DataValueField="CveUsuario" DataTextField="Nombre" Width="150px" runat="server" CssClass="form-control  select2me">
+                                                                    </asp:DropDownList>
+                                                                    <label for="<%= DdlResponsable.ClientID.ToString()%>">Responsable Cobranza: </label>
+                                                                </div>
                                                             </div>
 
                                                         </div>
@@ -1878,58 +1948,60 @@
                                                 </div>
                                             </div>
                                             <div class="portlet-body">
-                                                
+                                                <%-- <asp:RadioButtonList ID="rblreporte" runat="server" RepeatDirection="Horizontal">
+                                                    <asp:ListItem Value="cxc" Selected="True">Cuentas por Cobrar</asp:ListItem>
+                                                    <asp:ListItem Value="anc" Selected="False">Anticipos / NC</asp:ListItem>
+                                                </asp:RadioButtonList>--%>
                                                 <asp:CheckBox ID="ChkAntIXCNC" Text="Anticipos / NC / IXC" runat="server" Checked="true" OnCheckedChanged="ChkAntIXCNC_CheckedChanged" AutoPostBack="true" />
                                                 <div class="row">
                                                     <div class="col-md-6">
-                                                        
+                                                        <label>Fecha Inicio</label>
-                                                        <div class="form-group form-md-line-input input-iconright date date-picker date date-picker" style="width:150px">
+                                                        <div class="input-group input-small date date-picker" data-date-format="dd/mm/yyyy">
                                                             <asp:TextBox ID="TxtFechaInicioCxP" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
-                                                            <span class="input-group-btn " style="position: absolute; right: 41px; top: 9px;">
+                                                            <span class="input-group-btn ">
                                                                 <asp:LinkButton ID="ImgCalendarioDel" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
                                                             </span>
                                                             <ajax:MaskedEditExtender ID="MEEFechaDel" runat="server" TargetControlID="TxtFechaInicioCxP" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                                             <ajax:CalendarExtender ID="CalendarioDel" runat="server" TargetControlID="TxtFechaInicioCxP" PopupButtonID="ImgCalendarioDel" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                                            <label for="<%= TxtFechaInicioCxP.ClientID.ToString()%>">Fecha Inicio: </label>
                                                         </div>
                                                     </div>
-                                                    <div class="col-md-6">                                                        
+                                                    <div class="col-md-6">
-                                                        <div class="form-group form-md-line-input input-iconright date date-picker date date-picker" style="width:150px">
+                                                        <label>Fecha Fin</label>
+                                                        <div class="input-group input-small date date-picker" data-date-format="dd/mm/yyyy">
                                                             <asp:TextBox ID="TxtFechaFinCxP" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
-                                                            <span class="input-group-btn " style="position: absolute; right: 41px; top: 9px;">
+                                                            <span class="input-group-btn ">
                                                                 <asp:LinkButton ID="ImgCalendarioAl" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
                                                             </span>
                                                             <ajax:MaskedEditExtender ID="MEEFechaAl" runat="server" TargetControlID="TxtFechaFinCxP" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                                             <ajax:CalendarExtender ID="CalendarioAl" runat="server" TargetControlID="TxtFechaFinCxP" PopupButtonID="ImgCalendarioAl" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                                            <label for="<%= TxtFechaFinCxP.ClientID.ToString()%>">Fecha Fin: </label>
                                                         </div>
                                                     </div>
                                                 </div>
                                                 <div class="row">
-                                                    <div class="col-md-6">                                                        
+                                                    <div class="col-md-6">
-                                                        <div class="form-group form-md-line-input input-iconright date date-picker date date-picker" style="width:150px">
+                                                        <label>Fecha V. Inicio</label>
+                                                        <div class="input-group input-small date date-picker" data-date-format="dd/mm/yyyy">
                                                             <asp:TextBox ID="TxtFechaVICxP" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
-                                                            <span class="input-group-btn " style="position: absolute; right: 41px; top: 9px;">
+                                                            <span class="input-group-btn ">
                                                                 <asp:LinkButton ID="ImgCalendarioFIV" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
                                                             </span>
                                                             <ajax:MaskedEditExtender ID="MEEFIV" runat="server" TargetControlID="TxtFechaVICxP" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                                             <ajax:CalendarExtender ID="CalendarioFIV" runat="server" TargetControlID="TxtFechaVICxP" PopupButtonID="ImgCalendarioFIV" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                                             <label for="<%= TxtFechaVICxP.ClientID.ToString()%>">Fecha V. Inicio: </label>
                                                         </div>
                                                     </div>
-                                                    <div class="col-md-6">                                                        
+                                                    <div class="col-md-6">
-                                                        <div class="form-group form-md-line-input input-iconright date date-picker date date-picker" style="width:150px">
+                                                        <label>Fecha V. Fin</label>
+                                                        <div class="input-group input-small date date-picker" data-date-format="dd/mm/yyyy">
                                                             <asp:TextBox ID="TxtFechaVFCxP" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
-                                                            <span class="input-group-btn " style="position: absolute; right: 41px; top: 9px;">
+                                                            <span class="input-group-btn ">
                                                                 <asp:LinkButton ID="ImgCalendarioFFV" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
                                                             </span>
                                                             <ajax:MaskedEditExtender ID="MEEFFV" runat="server" TargetControlID="TxtFechaVFCxP" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                                             <ajax:CalendarExtender ID="CalendarioFFV" runat="server" TargetControlID="TxtFechaVFCxP" PopupButtonID="ImgCalendarioFFV" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                                            <label for="<%= TxtFechaVFCxP.ClientID.ToString()%>">Fecha V. Fin: </label>
                                                         </div>
                                                     </div>
                                                 </div>
-                                                <br />
+
                                                 <div class="row">
                                                     <div class="col-md-6">
                                                         <label>Movimientos</label>
@@ -2032,10 +2104,11 @@
                                                         <asp:BoundField HeaderText="Fecha Venta" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
                                                         <asp:BoundField HeaderText="Fecha Vencimiento" DataField="FechaVencimiento" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
                                                         <asp:BoundField HeaderText="Días Vencidos" DataField="DiasVencidos" DataFormatString="{0}" ItemStyle-HorizontalAlign="Center" />
-                                                        <asp:BoundField HeaderText="Linea Adicional" DataField="LineaAdicional" ItemStyle-HorizontalAlign="Left" Visible="false" />
+                                                        <asp:BoundField HeaderText="Linea Adicional" DataField="LineaAdicional" DataFormatString="{0}" ItemStyle-HorizontalAlign="Left" />
                                                         <asp:TemplateField HeaderText="Monto Venta" ItemStyle-HorizontalAlign="Right">
                                                             <ItemTemplate>
-                                                                <asp:Literal ID="LtlSaldoOriginal" runat="server" Text='<%# Eval("Original", "{0:N2}") %>'></asp:Literal>&nbsp;                                                   
+                                                                <asp:Literal ID="LtlSaldoOriginal" runat="server" Text='<%# Eval("Original", "{0:N2}") %>'></asp:Literal>&nbsp;
+                                                   
                                                             </ItemTemplate>
                                                         </asp:TemplateField>
                                                         <asp:TemplateField HeaderText="Abonado" ItemStyle-HorizontalAlign="Right">
@@ -2484,6 +2557,7 @@
                                                             <asp:Literal ID="LtlMon" runat="server" Text='<%# Eval("MonedaVenta")%>'></asp:Literal>
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
+                                                    <asp:BoundField DataField="LineaAdicional" HeaderText="Linea Adicional"  />
                                                     <asp:TemplateField>
                                                         <HeaderTemplate>Archivos</HeaderTemplate>
                                                         <ItemStyle HorizontalAlign="Center" />
@@ -4501,7 +4575,7 @@
                                             <ContentTemplate>
 
                                                 <asp:GridView ID="GvLineasAdicionales" Width="100%" runat="server" GridLines="None"
-                                                    DataKeyNames="CveLineaAdicional,LineaAdicional,CveCliente,CveProveedor,TipoLinea,Importe,CveMoneda,FechaVencimiento,CveUsuario,CveCategoria,FechaIng,Proveedor,DiasVencimiento"
+                                                    DataKeyNames="CveLineaAdicional,LineaAdicional,CveCliente,CveProveedor,TipoLinea,Importe,CveMoneda,FechaVencimiento,CveUsuario,CveCategoria,FechaIng,CveLineaAdicionalEstatus,Proveedor,DiasVencimiento"
                                                     CssClass="table table-striped table-advance table-hover ScrollAD " ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
                                                     AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
                                                     <Columns>
@@ -4512,7 +4586,7 @@
                                                         <asp:BoundField DataField="Importe" HeaderText="Importe" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" />
                                                         <asp:BoundField DataField="Abreviatura" HeaderText="Moneda" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" />
                                                         <asp:BoundField DataField="FechaVencimiento" HeaderText="F. Vencimiento"  ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
-                                                        <asp:BoundField DataField="Estatus" HeaderText="Estatus"  ItemStyle-HorizontalAlign="Left" Visible="false" />
+                                                        <asp:BoundField DataField="Estatus" HeaderText="Estatus"  ItemStyle-HorizontalAlign="Left" />
                                                         <asp:BoundField DataField="TipoLineaSTR" HeaderText="Tipo Linea"  ItemStyle-HorizontalAlign="Left" />
                                                         <asp:BoundField DataField="Usuario" HeaderText="Usuario"  ItemStyle-HorizontalAlign="Left" />
 

Ventas/Clientes.aspx.vb

@@ -1881,12 +1881,6 @@ Partial Class Clientes
                 TxtCorreoEntregaCompras.Text = ObjClientes.DtResultados(0)("CorreoEntregaCompras").ToString()
                 TxtCorreoEntregaAlmacen.Text = ObjClientes.DtResultados(0)("CorreoEntregaAlmacen").ToString()
 
-                If ObjClientes.DtResultados.Rows(0)("FechaLimiteCredito").ToString.ToDate > MinFecha Then
-                    TxtFechaLimiteCredito.Text = ObjClientes.DtResultados.Rows(0)("FechaLimiteCredito").ToString.ToDate.ToString("dd/MM/yyyy")
-                Else
-                    TxtFechaLimiteCredito.Text = ""
-                End If
-
                 CargarClientePersonalEntrega()
             Else
                 Existe = False
@@ -1915,9 +1909,6 @@ Partial Class Clientes
 
             TxtRepresentanteLegal.Text = ObjClientes.RepresentanteLegal
 
-
-
-
         End If
         UpActivacionPortal.Update()
         UpModalPersonaFisica.Update()
@@ -1960,10 +1951,6 @@ Partial Class Clientes
             DtCxCActivas = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "Moneda, OrdenVencimiento, FechaVencimiento")
             GvCxC.DataSource = DtCxCActivas
             'solo tomo los 10 ultimos mas el totalizador general
-
-
-            GvCxC.Columns(6).Visible = If(DtCxCActivas.FiltroPrimeroValor("LineaAdicional", "LEN(TRIM(LineaAdicional)) > 0", "LineaAdicional DESC").Trim.Length > 0, True, False)
-
             Dim dt As DataTable = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'")
             DtHistorialCxC = dt
             If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
@@ -2189,6 +2176,7 @@ Partial Class Clientes
             GvBancos.DataSource = ObjMovtos.DtResultados
             DTCobrosRealizados = ObjMovtos.DtResultados
             DTCobrosRealizados.Rows.Remove(DTCobrosRealizados.Rows(0))
+            GvBancos.Columns(5).Visible = ObjMovtos.DtResultados.COUNT("LineaAdicional", "LineaAdicional <>'' ") > 0
         Else
             DTCobrosRealizados = Nothing
         End If
@@ -2206,7 +2194,7 @@ Partial Class Clientes
 
             If e.Row.DBCampo("CveVenta") = "" Then
                 If e.Row.DBCampo("CveIE") <> "" Then
-                    Dim ObjBancos As New ClsBancos
+
 
                     e.Row.Cells(0).Text = String.Format("{0} - {1}", e.Row.DBCampo("Banco"), e.Row.DBCampo("NumCuenta"))
                     e.Row.FCLiteral("LtlFechaVenci").Text = e.Row.DBCampo("FechaDocumento").ToDate().ToShortDateString()
@@ -2214,19 +2202,25 @@ Partial Class Clientes
                     e.Row.FCLiteral("LtlImp").Text = e.Row.DBCampo("ImporteIE").FormatoNumero()
                     e.Row.FCLiteral("LtlMon").Text = e.Row.DBCampo("MonedaIE")
 
+                    If e.Row.DBCampo("CveComplementoPago") <> "" Then
+                        e.Row.FCHyperLink("HplXML").Visible = True : e.Row.FCHyperLink("HplXML").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=xml&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("SerieFolio").ToString(), e.Row.DBCampo("CveIE").ToString())))
+                        e.Row.FCHyperLink("HplPDF").Visible = True : e.Row.FCHyperLink("HplPDF").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=pdf&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("SerieFolio").ToString(), e.Row.DBCampo("CveIE").ToString())))
 
-                    'HLSendMail.HRef = String.Format("javascript:$get('HdnCveIE').value='{0}';$get('HdnSerieFolio').value='{1}';$get('HdnFolioPago').value='{2}';$get('TxtParaMail').value='{3}';$('#ModalDivMail').modal();", e.Row.DBCampo("CveIE"), e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("FolioCobro"), TxtCobranzaCorreo.Text)
+                        e.Row.FCLinkButton("LnkSendMail").Visible = True
-
-                    If ObjBancos.GetComplementoPagos(-1, e.Row.DBCampo("CveIE").ToString().ToEntero(), -1, UsuarioActual.CveEmpresa) Then
-                        If ObjBancos.DtResultados.Rows.Count > 0 Then
-                            e.Row.FCHyperLink("HplXML").Visible = True : e.Row.FCHyperLink("HplXML").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=xml&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", ObjBancos.DtResultados(0)("CveComplementoPago").ToString(), ObjBancos.DtResultados(0)("SerieFolio").ToString(), ObjBancos.DtResultados(0)("CveIE").ToString())))
-                            e.Row.FCHyperLink("HplPDF").Visible = True : e.Row.FCHyperLink("HplPDF").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=pdf&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", ObjBancos.DtResultados(0)("CveComplementoPago").ToString(), ObjBancos.DtResultados(0)("SerieFolio").ToString(), ObjBancos.DtResultados(0)("CveIE").ToString())))
-
-                            e.Row.FCLinkButton("LnkSendMail").Visible = True
-                        End If
                     End If
 
-                    ObjBancos.Dispose()
+
+                    ''HLSendMail.HRef = String.Format("javascript:$get('HdnCveIE').value='{0}';$get('HdnSerieFolio').value='{1}';$get('HdnFolioPago').value='{2}';$get('TxtParaMail').value='{3}';$('#ModalDivMail').modal();", e.Row.DBCampo("CveIE"), e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("FolioCobro"), TxtCobranzaCorreo.Text)
+                    'Dim ObjBancos As New ClsBancos
+                    'If ObjBancos.GetComplementoPagos(-1, e.Row.DBCampo("CveIE").ToString().ToEntero(), -1, UsuarioActual.CveEmpresa) Then
+                    '    If ObjBancos.DtResultados.Rows.Count > 0 Then
+                    '        e.Row.FCHyperLink("HplXML").Visible = True : e.Row.FCHyperLink("HplXML").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=xml&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", ObjBancos.DtResultados(0)("CveComplementoPago").ToString(), ObjBancos.DtResultados(0)("SerieFolio").ToString(), ObjBancos.DtResultados(0)("CveIE").ToString())))
+                    '        e.Row.FCHyperLink("HplPDF").Visible = True : e.Row.FCHyperLink("HplPDF").NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CompP&EXT=pdf&CveComplementoPago={0}&SerieFolio={1}&CveIE={2}", ObjBancos.DtResultados(0)("CveComplementoPago").ToString(), ObjBancos.DtResultados(0)("SerieFolio").ToString(), ObjBancos.DtResultados(0)("CveIE").ToString())))
+
+                    '        e.Row.FCLinkButton("LnkSendMail").Visible = True
+                    '    End If
+                    'End If
+                    'ObjBancos.Dispose()
                 End If
                 e.Row.BackColor = Drawing.Color.LightGray
                 e.Row.Font.Bold = True
@@ -2672,9 +2666,6 @@ Partial Class Clientes
 
         Dim TipoPersona As Boolean = If(RdTipoPersona.SelectedValue.ToEntero = 1, True, False)
 
-
-        Dim FechaLimiteCredito As Date = If(TxtFechaLimiteCredito.Text.ToDate > MinFecha, TxtFechaLimiteCredito.Text.ToDate, MinFecha)
-
         If CveCliente = -1 Then
             Dim ErrorAC As Boolean = False
             Dim CtaCliente As Integer = DdlCtaContableClientes.SelectedValue.ToEntero()
@@ -2738,7 +2729,7 @@ Partial Class Clientes
                                     CvePais:=DdlPais.SelectedValue.ToEntero(), CveEstado:=DdlEstado.SelectedValue.ToEntero(), CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero(), CveColonia:=DdlColonia.SelectedValue.ToEntero(), CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero(), NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
                                     ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked,
                                     TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()),
-                                    CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text, FechaLimiteCredito:=FechaLimiteCredito) Then
+                                    CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text) Then
 
                 ViewState("CveCliente") = ObjClientes.CveCliente
 
@@ -2835,7 +2826,7 @@ Partial Class Clientes
                                         ApellidoPaternoPF:=IIf(TxtApellidoPaterno.Text = "", "-1", TxtApellidoPaterno.Text).ToString(), ApellidoMaternoPF:=IIf(TxtApellidoMaterno.Text = "", "-1", TxtApellidoMaterno.Text).ToString(), NombresPF:=IIf(TxtNombres.Text = "", "-1", TxtNombres.Text).ToString(),
                                         RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(),
                                         CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()),
-                                        NoDesglosaIVA:=ChkNoDesglosaIVA.Checked, CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text, FechaLimiteCredito:=FechaLimiteCredito) Then
+                                        NoDesglosaIVA:=ChkNoDesglosaIVA.Checked, CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text) Then
 
 
                 ObjClientes.LimpiaImpuestosLocales(CveCliente)
@@ -2992,8 +2983,8 @@ Partial Class Clientes
             End If
 
             e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right
+            e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right
             e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Right
-            e.Row.Cells(8).HorizontalAlign = HorizontalAlign.Right
 
             If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(6).ForeColor = Drawing.Color.Red
             If e.Row.DBCampo("DiasVencidos").ToDouble > 0 AndAlso CType(sender, GridView).ID = "GvCxC" Then e.Row.Cells(4).ForeColor = Drawing.Color.Red
@@ -7530,9 +7521,10 @@ Partial Class Clientes
             Dim ciudad As String = ""
             Dim estado As String = ""
             Dim Telefono As String = ""
-            Dim mesArray = New String() {"Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre"}
+            Dim mesArray = New String() {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}
             Dim hoy As DateTime = DateTime.Now
             Dim fechaConFormato As String = String.Format("{0} de {1} del {2}", hoy.Day, mesArray(hoy.Month), hoy.Year)
+            Dim cpCliente As String = ""
 
             If ObjClientes.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
                 monto = ObjClientes.DtResultados.FiltroPrimeroValor("LimiteCredito").ToDouble.ToString("N")
@@ -7544,14 +7536,25 @@ Partial Class Clientes
                 ciudad = ObjClientes.DtResultados.FiltroPrimeroValor("Ciudad")
                 estado = ObjClientes.DtResultados.FiltroPrimeroValor("Estado")
                 Telefono = ObjClientes.DtResultados.FiltroPrimeroValor("Telefono")
+                cpCliente = ObjClientes.CP
             End If
 
+            Dim CveLocalidadSucursal As Integer = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveLocalidad", "").ToEntero
+            Dim CveEstadoSucursal As Integer = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstado", "").ToEntero
+
+
+            Dim LocalidadSucursal As String = GlobalDTLocalidad(-1, -1).FiltroPrimeroValor("NombreLocalidad", $"CveLocalidad = {CveLocalidadSucursal}")
+            Dim EstadoSucursal As String = GlobalDTGralEstados("-1", -1).FiltroPrimeroValor("NombreEstado", $"CveEstado={CveEstadoSucursal}")
+
+            Dim FechaLugar As String = $"{LocalidadSucursal}, {EstadoSucursal} a {fechaConFormato}"
+
+
             Tags.Add(New TagsDocumentos("{Monto}", monto))
             Tags.Add(New TagsDocumentos("{Fecha}", fechaConFormato))
             Tags.Add(New TagsDocumentos("{FechaConFormato}", fechaConFormato))
             Tags.Add(New TagsDocumentos("{CantidadLetra}", monto.ToDouble.Texto2Letras(1)))
             Tags.Add(New TagsDocumentos("{RazonSocial}", razonSocial))
-            Tags.Add(New TagsDocumentos("{Direccion}", String.Format("{0} #{1} {2}, COL.{3}", direccion, noInt, noExt, colonia).ToUpper()))
+            Tags.Add(New TagsDocumentos("{Direccion}", String.Format("{0} #{1} {2}, COL.{3}, CP. {4}", direccion, noInt, noExt, colonia, cpCliente).ToUpper()))
             Tags.Add(New TagsDocumentos("{Ciudad}", String.Format("{0}, {1}", ciudad, estado).ToUpper()))
             Tags.Add(New TagsDocumentos("{Telefono}", Telefono))
             Tags.Add(New TagsDocumentos("{RazonSocialAval}", TxtAval.Text))
@@ -7559,6 +7562,7 @@ Partial Class Clientes
             Tags.Add(New TagsDocumentos("{CiudadAval}", TxtCiudadAval.Text))
             Tags.Add(New TagsDocumentos("{TelefonoAval}", TxtTelefonoAval.Text))
             Tags.Add(New TagsDocumentos("{RepresentanteLegal}", TxtRepresentanteLegal.Text))
+            Tags.Add(New TagsDocumentos("{FechaLugar}", FechaLugar))
 
             If Not ObjClientes.AddClientePagare(CveCliente, UsuarioActual.CveEmpresa, TxtAval.Text, TxtDireccionAval.Text) Then
                 Alert("no se pudo registrar el pagare")
@@ -10387,7 +10391,7 @@ Partial Class Clientes
 
         Dim ObjVentas As New ClsVentas
 
-        If ObjVentas.GetLineasAdicionales(-1, CveCliente, -1, -1, -1, MinFecha, MaxFecha, -1, UsuarioActual.CveEmpresa) Then
+        If ObjVentas.GetLineasAdicionales(CveCliente, -1, -1, -1, UsuarioActual.CveEmpresa) Then
             GvLineasAdicionales.DataSource = ObjVentas.DtResultados
         End If
 

Ventas/Promociones.aspx

@@ -187,7 +187,11 @@
                         </div>
                         <div class="portlet-body form">
 
-                            <asp:GridView ID="GvDatos" DataKeyNames="CvePromocionDetalle, CveClasificacion, CvePS, CodigoPS, HoraInicio, HoraFin, CveTipoPromocion, Promocion, PUAnterior, AplicaRestriccion, AplicaLunes, AplicaMartes, AplicaMiercoles, AplicaJueves, AplicaViernes, AplicaSabado, AplicaDomingo, CantidadMinima, CveRinTamaño,IncluyeImpuestos" CssClass="table table-striped table-hover Widthall mysmallbtn" AutoGenerateColumns="false" GridLines="None" EmptyDataText="Aun no se registran detalles" runat="server">
+                            <asp:GridView ID="GvDatos" 
+                                DataKeyNames="CvePromocionDetalle, CveClasificacion, CvePS, CodigoPS, HoraInicio, HoraFin, CveTipoPromocion, Promocion, PUAnterior, AplicaRestriccion, AplicaLunes, AplicaMartes, AplicaMiercoles, AplicaJueves, AplicaViernes, AplicaSabado, AplicaDomingo, CantidadMinima, CveRinTamaño,IncluyeImpuestos" 
+                                CssClass="table table-striped table-hover Widthall mysmallbtn" AutoGenerateColumns="false" GridLines="None" EmptyDataText="Aun no se registran detalles" runat="server"
+                                OnRowDataBound="GvDatos_RowDataBound"
+                                >
                                 <Columns>
                                     <asp:BoundField HeaderText="Producto / Servicio" DataField="CodigoPS" ItemStyle-Width="30%" />
                                     <%--<asp:BoundField HeaderText="Producto / Servicio" DataField="PS" ItemStyle-Width="30%" />--%>
@@ -201,12 +205,12 @@
                                     <asp:BoundField HeaderText="Rin" ItemStyle-HorizontalAlign="Left" DataField="RinTamaño" Visible="false"/>
                                     <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%">
                                         <ItemTemplate>
-                                            <asp:LinkButton ID="ImgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandArgument='<%# Container.DataItemIndex%>' CommandName="Editar" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                                            <asp:LinkButton ID="LnkGvDetalleEditar" runat="server" AlternateText="Editar" CausesValidation="False" CommandArgument='<%# Container.DataItemIndex%>' CommandName="Editar" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
                                         </ItemTemplate>
                                     </asp:TemplateField>
                                     <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%">
                                         <ItemTemplate>
-                                            <asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
+                                            <asp:LinkButton ID="LnkGvDetalleEliminar" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
                                         </ItemTemplate>
                                     </asp:TemplateField>
                                 </Columns>
@@ -265,6 +269,11 @@
                 <asp:UpdatePanel runat="server">
                     <ContentTemplate>
                         <asp:Button ID="BtnGuardar" Text="Guardar" CssClass="btn btn-primary" ValidationGroup="GrpGuardar" OnClick="BtnGuardar_Click" runat="server" />
+
+                        <asp:Button ID="ButBtnEliminar" Text="Eliminar" CssClass="btn btn-danger"   OnClick="BtnEliminar_Click" runat="server" Visible="false"
+                            data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si"
+                            />
+
                     </ContentTemplate>
                 </asp:UpdatePanel>
             </td>

Ventas/Promociones.aspx.vb

@@ -53,6 +53,21 @@ Partial Class Ventas_Promociones
         End Set
     End Property
 
+
+
+    Private Property CvePromocionPadre As Integer
+        Get
+
+            If ViewState("CvePromocionPadre") Is Nothing Then
+                ViewState("CvePromocionPadre") = -1
+            End If
+            Return ViewState("CvePromocionPadre").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CvePromocionPadre") = value
+        End Set
+    End Property
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -64,9 +79,6 @@ Partial Class Ventas_Promociones
             If Request("CvePromocion") IsNot Nothing AndAlso Request("CvePromocion").ToString.ToEntero > 0 Then
                 CvePromocion = Request("CvePromocion").ToString.ToEntero
                 CargaDatos()
-
-
-
             Else
                 ChkEstatus.Enabled = True
                 ChkEstatus.Checked = True
@@ -287,6 +299,8 @@ Partial Class Ventas_Promociones
             DdlMarca.SelectedValueExist(Dr("CveMarca").ToString)
             DdlTipoAplicacion.SelectedValueExist(Dr("TipoAplicacion").ToString)
 
+            CvePromocionPadre = If(Dr("CvePromocionPadre").ToString.ToEntero > 0, Dr("CvePromocionPadre").ToString.ToEntero, -1)
+
             If ObjVentas.GetPromocionesDetalle(CvePromocion, UsuarioActual.CveEmpresa) Then
                 TempDT = ObjVentas.DtResultados.Copy
                 TempDTOrigial = ObjVentas.DtResultados.Copy
@@ -299,6 +313,13 @@ Partial Class Ventas_Promociones
             Alert("Ocurrió un error al consultar la promoción. Por favor vuelva a intentar.", TipoMensaje.MsgError)
         End If
 
+        ButBtnEliminar.Visible = True
+
+        If CvePromocionPadre > 0 Then
+            BtnGuardar.Enabled = False
+            ButBtnEliminar.Enabled = False
+        End If
+
         ObjVentas.Dispose()
     End Sub
     Private Sub CargaGrid()
@@ -537,6 +558,11 @@ Partial Class Ventas_Promociones
             TieneError = True
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(563) <> "" Then
+            TieneError = ObjVentas.SincronizarPromocionesClonar(CvePromocion, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1)
+        End If
+
+
         If Not TieneError Then
             ObjVentas.Commit()
             Alert("La promoción se guardo correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Ventas/CatPromociones.aspx"";")
@@ -547,6 +573,8 @@ Partial Class Ventas_Promociones
 
         ObjVentas.Dispose()
     End Sub
+
+
     Private Sub ActualizaPromocion()
         Dim CveCliente As Integer = If(DdlClientes.SelectedValue = "", -1, DdlClientes.SelectedValue.ToEntero)
 
@@ -559,12 +587,17 @@ Partial Class Ventas_Promociones
 
         If ObjVentas.UpdatePromociones(TxtPromocion.Text.Trim, If(IsDate(TxtFechaI.Text), TxtFechaI.Text.ToDate, MinFecha), If(IsDate(TxtFechaF.Text), TxtFechaF.Text.ToDate, MaxFecha),
                                        DdlVendedor.SelectedValue.ToEntero, CveCliente, ChkEstatus.Checked, DdlMoneda.SelectedValue.ToEntero, UsuarioActual.CveUsuario,
-                                       CvePromocion, DdlSubProyecto.SelectedValue.ToEntero, DdlTipoAplicacion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, CveMarca:=DdlMarca.SelectedValue.ToEntero, DdlDistribuidor.SelectedValue.ToEntero) Then
+                                       CvePromocion, DdlSubProyecto.SelectedValue.ToEntero, DdlTipoAplicacion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, CveMarca:=DdlMarca.SelectedValue.ToEntero, EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero) Then
 
             For Each Dr As DataRow In TempDT.FiltraParametros("Estatus = 0").Rows
+
+
+                Dim OpReplicarDetalleFranquicias As Integer = If(UsuarioActual.Empresa.Funcionalidad(563) <> "", 2, 1) ' op 2 Elimina detalles de franquicias
+
                 If Not ObjVentas.AddPromocionesDetalle(CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble,
                                                        CBool(Dr("AplicaRestriccion")), CBool(Dr("AplicaLunes")), CBool(Dr("AplicaMartes")), CBool(Dr("AplicaMiercoles")), CBool(Dr("AplicaJueves")), CBool(Dr("AplicaViernes")), CBool(Dr("AplicaSabado")), CBool(Dr("AplicaDomingo")),
-                                                       Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero, CveClasificacion:=If(Dr("CvePS").ToString = "-1", Dr("CveClasificacion").ToString.ToEntero, -1), CveRinTamaño:=Dr("CveRinTamaño").ToString.ToEntero, IncluyeImpuestos:=ChkIncluyeImpuesto.Checked) Then
+                                                       Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero, CveClasificacion:=If(Dr("CvePS").ToString = "-1", Dr("CveClasificacion").ToString.ToEntero, -1),
+                                                       CveRinTamaño:=Dr("CveRinTamaño").ToString.ToEntero, IncluyeImpuestos:=ChkIncluyeImpuesto.Checked, Opcion:=OpReplicarDetalleFranquicias) Then
                     TieneError = True
                     Exit For
                 End If
@@ -759,8 +792,14 @@ Partial Class Ventas_Promociones
             End If
 
             If Not TieneError Then
+
                 For Each Dr As DataRow In TempDT.FiltraParametros("Estatus = 2").Rows
-                    If Not ObjVentas.RemovePromocionesDetalle(Dr("CvePromocionDetalle").ToString.ToEntero) Then
+
+                    'RunPromocionesClonar
+
+                    Dim OpEliminacionDetalle As Integer = If(UsuarioActual.Empresa.Funcionalidad(563) <> "", 2, 1) ' op 2 Elimina detalles de franquicias
+
+                    If Not ObjVentas.RemovePromocionesDetalle(Dr("CvePromocionDetalle").ToString.ToEntero, OpEliminacionDetalle) Then
                         TieneError = True
                         Exit For
                     End If
@@ -781,6 +820,14 @@ Partial Class Ventas_Promociones
             TieneError = True
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(563) <> "" Then
+
+            If Not ObjVentas.SincronizarPromocionesClonar(CvePromocion, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 2) Then
+                TieneError = True
+            End If
+
+        End If
+
         If Not TieneError Then
             ObjVentas.Commit()
             Alert("La promoción se guardo correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Ventas/CatPromociones.aspx"";")
@@ -801,12 +848,21 @@ Partial Class Ventas_Promociones
         ObjVentas.IniciaTransacSQL()
         Dim TieneError = False
 
-        If ObjVentas.RemovePromocionesDetalle(CvePromocion) Then
+
-            If Not ObjVentas.RemovePromociones(CvePromocion, UsuarioActual.CveEmpresa) Then
+        If UsuarioActual.Empresa.Funcionalidad(563) <> "" Then
+            If Not ObjVentas.SincronizarPromocionesClonar(CvePromocion, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3) Then
+                TieneError = True
+            End If
+        End If
+
+        If Not TieneError Then
+            If ObjVentas.RemovePromocionesDetalle(-1, 3, CvePromocion) Then
+                If Not ObjVentas.RemovePromociones(CvePromocion, UsuarioActual.CveEmpresa) Then
+                    TieneError = True
+                End If
+            Else
                 TieneError = True
             End If
-        Else
-            TieneError = True
         End If
 
         If Not TieneError Then
@@ -816,6 +872,15 @@ Partial Class Ventas_Promociones
             ObjVentas.RollBack()
             Alert("Ocurrió un error al registrar la promoción. Por favor vuelva a intentar.", TipoMensaje.MsgError)
         End If
+
+
+        If UsuarioActual.Empresa.Funcionalidad(563) <> "" AndAlso TieneError Then
+            If ObjVentas.SincronizarPromocionesClonar(CvePromocion, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 4) Then
+                Alert("Se presento un error al eliminar, se desactivo kla promoción actual y promociones relacionadas", TipoMensaje.MsgAdvertencia, $"document.location.href=""/Ventas/Promociones.aspx?CvePromocion={CvePromocion}"";")
+            End If
+        End If
+
+
         ObjVentas.Dispose()
     End Sub
 #End Region
@@ -836,4 +901,17 @@ Partial Class Ventas_Promociones
 
 
 
+
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            If CvePromocionPadre > 0 Then
+                e.Row.FCLinkButton("LnkGvDetalleEditar").Visible = False
+                e.Row.FCLinkButton("LnkGvDetalleEliminar").Visible = False
+            End If
+
+        End If
+
+    End Sub
 End Class

Ventas/RepCancelacionesPorRespuesta.aspx.cs

@@ -602,11 +602,11 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
 
             if (e.Row.DBCampo("PuedeRefacturar") == "0" && e.Row.DBCampo("CveEstatusFactura") == "23" && e.Row.DBCampo("CveVentaSustitucion").ToEntero() > 0)
             {
-                e.Row.FCLinkButton("LnkCancelar").Visible = true;
+                if (e.Row.FCLinkButton("LnkCancelar")!= null) e.Row.FCLinkButton("LnkCancelar").Visible = true;
                 //SOLO MOSTRAR SI LA FACTURA NUEVA ESTA EMITIDA
                 if (e.Row.DBCampo("CveEstatusRefacturacion") != "4" && e.Row.DBCampo("CveEstatusFacturaSustitucion") == "3")
                 {
-                    e.Row.FCLinkButton("LnkCancelarFolioSustitucion").Visible = true;
+                    if (e.Row.FCLinkButton("LnkCancelarFolioSustitucion") != null) e.Row.FCLinkButton("LnkCancelarFolioSustitucion").Visible = true;
                 }
             }
         }

vwd.webinfo

@@ -574,6 +574,8 @@
     
   
     
+  
+