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

App_Code/CalendarEvent.vb

@@ -40,6 +40,8 @@ Public Class CalendarEvent
     Public Property CveOSDetalle As Integer
     Public Property CveUsuarioAtendio As Integer
 
+    Public Property CveSubProyectoUsuarioAtendio As Integer
+
 
 
 End Class

App_Code/ClsContabilidad.vb

@@ -5969,7 +5969,8 @@ Public Class ClsContabilidad
     Public Function AddCuentasAsignaciones(Optional CveConceptoContable As Integer = -1, Optional CveEmpresa As Integer = -1, Optional CveCuenta As Integer = -1, Optional IdCtaContable As Integer = -1,
                                            Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1,
                                            Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1, Optional CveBancoCuenta As Integer = -1,
-                                           Optional CveSubProyecto As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveTipoGasto As Integer = -1, Optional RegeneraCuenta As Boolean = False) As Boolean
+                                           Optional CveSubProyecto As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveTipoGasto As Integer = -1, Optional RegeneraCuenta As Boolean = False,
+                                           Optional OpActualizarClasificacion As Boolean = False) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_CuentasAsignacionesAdd")
@@ -5991,6 +5992,7 @@ Public Class ClsContabilidad
             .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
             .Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto
             .Add("@RegeneraCuenta", SqlDbType.Bit).Value = RegeneraCuenta
+            .Add("@OpActualizarClasificacion", SqlDbType.Bit).Value = OpActualizarClasificacion
         End With
 
         Try

App_Code/ClsInventarios.vb

@@ -1755,7 +1755,7 @@ Public Class ClsInventarios
 
 
     Public Function RepMovimientos(CveEmpresa As Integer, CveMoneda As Integer, FechaI As String, FechaF As String, CveConcepto As Integer, CveProveedor As Integer, Almacenes As String,
-                                   CveCategoria As Integer, CveClasificacion As Integer, CvePS As Integer, Tipo As Integer, Optional CveMarca As Integer = -1, Optional CvePersonal As Integer = -1,
+                                   CveCategoria As Integer, CveClasificacion As Integer, CvePS As Integer, Tipo As Integer, Optional CveMarca As String = "-1", Optional CvePersonal As Integer = -1,
                                    Optional CveClasificacion2 As Integer = -1, Optional CveTipoAlmacen As String = "-1", Optional Modalidad As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
@@ -1774,7 +1774,7 @@ Public Class ClsInventarios
             ' .Add("@CveSubFamilia", SqlDbType.Int).Value = CveSubFamilia
             .Add("@CvePS", SqlDbType.Int).Value = CvePS
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
-            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@CveMarca", SqlDbType.VarChar).Value = CveMarca
             .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
             .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
             .Add("@CveTipoAlmacen", SqlDbType.VarChar).Value = CveTipoAlmacen

App_Code/ClsOIEventos.vb

@@ -2448,10 +2448,10 @@ Public Class ClsOIEventos
                                     Optional RecurrenciaTipo As Integer = -1, Optional Frecuencia As Integer = -1, Optional DiasSemana As String = "-1", Optional Dia As Integer = -1, Optional Mes As Integer = -1,
                                     Optional RecurrenciaFin As String = "-1", Optional CveTipoEvento As Integer = 2, Optional Importe As Double = -1,
                                     Optional CveEmpresaCRM As Integer = -1, Optional CveContactoCRM As Integer = -1, Optional CveAcercamientoCRM As Integer = -1, Optional CveTipoProcesoCRM As Integer = -1, Optional CveEtapaProcesoCRM As Integer = -1,
-                                    Optional CveSubProyecto As Integer = -1) As Boolean
+                                    Optional CveSubProyecto As Integer = -1, Optional CveUsuarioPara As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
-        Retorno = AddEvento(CveTipoEvento, CveAgendaTipo, Asunto, Descripcion, Prioridad, -1, CveUsuarioIng, FechaInicio, FechaFin, -1, -1, "-1", CveUsuarioIng, CveEmpresa, CveActivoFijo, CveIE, CveProspecto, CveCliente, CveOS, CveOC,
+        Retorno = AddEvento(CveTipoEvento, CveAgendaTipo, Asunto, Descripcion, Prioridad, CveUsuarioPara, CveUsuarioIng, FechaInicio, FechaFin, -1, -1, "-1", CveUsuarioIng, CveEmpresa, CveActivoFijo, CveIE, CveProspecto, CveCliente, CveOS, CveOC,
                             CvePersonal, CveProveedor, CveEventoPadre:=CveEventoPadre, RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dia, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, Importe:=Importe,
                             CveEmpresaCRM:=CveEmpresaCRM, CveContactoCRM:=CveContactoCRM, CveAcercamientoCRM:=CveAcercamientoCRM, CveTipoProcesoCRM:=CveTipoProcesoCRM, CveEtapaProcesoCRM:=CveEtapaProcesoCRM, CveSubProyecto:=CveSubProyecto)
 

App_Code/ClsOS.vb

@@ -64,6 +64,10 @@ Public Class ClsOS
     Public Property Año As String = ""
     Public Property CorreoOS As String = ""
     Public Property FechaInicio As DateTime
+    Public Property SubProyecto As String
+    Public Property Condiciones As String
+
+
 
     Private Class Especificaciones
         Public CveValor As Integer
@@ -449,7 +453,8 @@ Public Class ClsOS
 
 #Region "ClsOSOrdenesServicios"
     'Reporte de Ventas
-    Public Function GetRepOrdenesServicio(FechaI As String, FechaF As String, FechaTerminado As String, CveCliente As Integer, CveSubProyecto As Integer, CveUsuarioRecibio As Integer, CveTecnico As Integer, CveEstatusOrdenServicio As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetRepOrdenesServicio(FechaI As String, FechaF As String, FechaTerminado As String, CveCliente As Integer, CveSubProyecto As Integer, CveUsuarioRecibio As Integer, CveTecnico As Integer,
+                                          CveEstatusOrdenServicio As Integer, CveEmpresa As Integer, Optional Opcion As Integer = -1, Optional CveUsuarioAsignado As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_OS_OrdenesServiciosGetRep")
@@ -465,6 +470,8 @@ Public Class ClsOS
             .Add("@CveTecnico", SqlDbType.Int).Value = CveTecnico
             .Add("@CveEstatusOrdenServicio", SqlDbType.Int).Value = CveEstatusOrdenServicio
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
+            .Add("@CveUsuarioAsignado", SqlDbType.Int).Value = CveUsuarioAsignado
         End With
 
         Try
@@ -532,6 +539,8 @@ Public Class ClsOS
                 Me.Año = Data.Rows(0)("Año").ToString
                 Me.FechaInicio = Data.Rows(0)("FechaInicio").ToString.ToDateTime
                 Me.CveOSDetalle = Data.Rows(0)("CveOSDetalle").ToString.ToEntero
+                Me.SubProyecto = Data.Rows(0)("SubProyecto").ToString
+                Me.Condiciones = Data.Rows(0)("Condiciones").ToString
 
             End If
             Retorno = True
@@ -586,7 +595,8 @@ Public Class ClsOS
     End Function
     Public Function AddOrdenesServicios(CveCliente As Integer, CveSubProyecto As Integer, PersonaSolicito As String, FechaRecepcion As Date, Descripcion As String, CveUsuarioRecibio As Integer, CveEstatusOrdenServicio As Integer,
                                         CveUsuario As Integer, CveEmpresa As Integer, CveCotizacion As Integer, CveVenta As Integer, CveOSPadre As Integer, CveOSTipo As Integer, Optional CveClienteSucursal As Integer = -1,
-                                         Optional Direccion As String = "-1", Optional Telefono As String = "", Optional CveModeloAuto As Integer = -1, Optional Año As String = "-1", Optional Correo As String = "") As Boolean
+                                         Optional Direccion As String = "-1", Optional Telefono As String = "", Optional CveModeloAuto As Integer = -1, Optional Año As String = "-1", Optional Correo As String = "",
+                                        Optional Condiciones As String = "") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_OS_OrdenesServiciosAdd")
@@ -612,6 +622,7 @@ Public Class ClsOS
             .Add("@CveModeloAuto", SqlDbType.Int).Value = CveModeloAuto
             .Add("@Año", SqlDbType.VarChar).Value = Año
             .Add("@Correo", SqlDbType.VarChar).Value = Correo
+            .Add("@Condiciones", SqlDbType.VarChar).Value = Condiciones
 
             .Add("@CveOS", SqlDbType.Int).Direction = ParameterDirection.Output
             .Add("@vFolio", SqlDbType.Int).Direction = ParameterDirection.Output
@@ -655,8 +666,8 @@ Public Class ClsOS
         Return Retorno
     End Function
     Public Function UpdateOrdenesServicios(PersonaSolicito As String, FechaRecepcion As String, Descripcion As String, CveUsuarioRecibio As Integer, CveEstatusOrdenServicio As Integer, CveOS As Integer, CveUsuarioModifico As Integer,
-                                           CveOSTipo As Integer, Optional CveClienteSucursal As Integer = -1, Optional Direccion As String = "-1",
+                                           CveOSTipo As Integer, Optional CveClienteSucursal As Integer = -1, Optional Direccion As String = "-1", Optional Telefono As String = "", Optional CveModeloAuto As Integer = -1,
-                                           Optional Telefono As String = "", Optional CveModeloAuto As Integer = -1, Optional Año As String = "-1", Optional CveSubProyecto As Integer = -1, Optional Correo As String = "-1") As Boolean
+                                           Optional Año As String = "-1", Optional CveSubProyecto As Integer = -1, Optional Correo As String = "-1", Optional Condiciones As String = "") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_OS_OrdenesServiciosUpdate")
@@ -678,6 +689,7 @@ Public Class ClsOS
             .Add("@CveModeloAuto", SqlDbType.Int).Value = CveModeloAuto
             .Add("@Año", SqlDbType.VarChar).Value = Año
             .Add("@Correo", SqlDbType.VarChar).Value = Correo
+            .Add("@Condiciones", SqlDbType.VarChar).Value = Condiciones
 
         End With
 
@@ -1768,3 +1780,4 @@ Public Class ClsOS
     End Sub
 #End Region
 End Class
+

App_Code/ClsPaginas.vb

@@ -9676,14 +9676,20 @@ Public Class ClsPaginas
             tImporteCompra = (Pago.ImportePago * TCValuacionCompra).RoundSQL
             tImportePago = (Pago.ImportePago * Pago.TCPago).RoundSQL
         End If
+        Dim ImportePagoMN As Decimal = Pago.ImportePago
+        Dim UsaComplementaria As Boolean = True
         If CompraActual.CveMoneda > 1 Then ImporteME = Pago.ImportePago
 
-        'movimiento de pago proveedor
+        If UsuarioActual.CveEmpresa.Contiene(13, 83) Then 'caso excepcional de complementarias
-        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, Pago.CveConceptoPago, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacionCompra, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+            UsaComplementaria = False
+            ImportePagoMN = (Pago.ImportePago * TCValuacionCompra).RoundSQL
+        End If
 
+        'movimiento de pago proveedor
+        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImportePagoMN, Pago.CveConceptoPago, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacionCompra, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
 
         'movimiento de pago proveedor Complementaria
-        If Not ErrorMovtos AndAlso CompraActual.CveMoneda > 1 Then
+        If Not ErrorMovtos AndAlso CompraActual.CveMoneda > 1 AndAlso UsaComplementaria Then
 
             If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, (ImporteME * TCValuacionCompra - ImporteME).RoundSQL, CveConceptoContableComplementaria, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProvComplementaria, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacionCompra, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
 
@@ -9833,7 +9839,7 @@ Public Class ClsPaginas
 
         End If
 
-        If Pago.TipoPago = "DD" AndAlso Not ErrorMovtos Then '  D E U D O R  D I V E R S O  
+        If Pago.TipoPago = "DD" AndAlso Not ErrorMovtos Then '  D E U D O R   D I V E R S O  
             Dim Ret As New ConceptosRetenciones
             If UsuarioActual.Empresa.TipoContabilidad = 2 Then
                 If ObjConta.GetRetCuenta(66, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
@@ -10219,9 +10225,9 @@ Public Class ClsPaginas
 
             Dim Ret As New ConceptosRetenciones
             If UsuarioActual.Empresa.TipoContabilidad = 2 Then
-                If ObjConta.GetRetCuenta(38, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
+                If ObjConta.GetRetCuenta(38, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxTrasladar").ToString.ToEntero
 
-                If ObjConta.GetRetCuenta(39, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
+                If ObjConta.GetRetCuenta(39, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSTrasladado").ToString.ToEntero
 
             End If
 

App_Code/modExtensiones.vb

@@ -240,7 +240,7 @@ Namespace Extensiones
 
             strLineaTMP = String.Format("{0} {0}{3}{2}:{1}{0}", Chr(13), DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString, pTexto)
             Try
-                ArchivoW = New StreamWriter(String.Format("{0}\Log.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
+                ArchivoW = New StreamWriter(String.Format("{0}\Log\Log.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
             Catch ex As Exception
                 Exit Sub
             End Try
@@ -260,7 +260,7 @@ Namespace Extensiones
             Dim strLineaTMP As String
             strLineaTMP = String.Format("{0}  {1}:{2} {3} {0}", Chr(13), DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString, pTexto)
             Try
-                ArchivoW = New StreamWriter(String.Format("{0}\LogMail.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
+                ArchivoW = New StreamWriter(String.Format("{0}\Log\LogMail.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
             Catch ex As Exception
                 Exit Sub
             End Try
@@ -280,7 +280,7 @@ Namespace Extensiones
             '  strLineaTMP = Chr(13) & Chr(10) & Day(Now) & "/" & Month(Now) & "/" & Year(Now) & " " & Hour(Now) & ":" & Minuto & ". " & Str & Chr(13) & Chr(10)
             strLineaTMP = String.Format("{0}{1} .. PAC: {2} -  Modulo: {3} ..{4}:{5}", Chr(13), Chr(10), CvePAC, Modulo, Str, DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString)
             Try
-                ArchivoW = New StreamWriter(String.Format("{0}\LogTimbrado.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
+                ArchivoW = New StreamWriter(String.Format("{0}\Log\LogTimbrado.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
             Catch ex As UnauthorizedAccessException
                 'Alert("No hay permisos para guardar en el Log.", Extensiones.TipoMensaje.MsgError)
                 Exit Sub
@@ -303,7 +303,7 @@ Namespace Extensiones
             strLineaTMP = String.Format("{0}  {1}:{2} {3} {0}", Chr(13), DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString, pTexto)
 
             Try
-                ArchivoW = New StreamWriter(String.Format("{0}\LogCancelacionSAT.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
+                ArchivoW = New StreamWriter(String.Format("{0}\Log\LogCancelacionSAT.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8)
             Catch ex As Exception
                 Exit Sub
             End Try
@@ -1628,6 +1628,66 @@ Namespace Extensiones
         Public Function FCRangeValidator(ByVal Row As GridViewRow, ByVal Control As String) As RangeValidator
             Return DirectCast(Row.FindControl(Control), RangeValidator)
         End Function
+
+        <Runtime.CompilerServices.Extension()>
+        Public Function GetColumn(ByVal gv As GridView, ByVal name As String) As Integer
+            Dim index As Integer = 0
+            Dim found As Boolean = False
+
+            For Each c As DataControlField In gv.Columns
+
+                If TypeOf c Is BoundField Then
+                    Dim field As BoundField = CType(c, BoundField)
+
+                    If name = field.DataField OrElse name = field.SortExpression OrElse name = field.HeaderText Then
+                        found = True
+                        Exit For
+                    End If
+                End If
+
+                index += 1
+            Next
+
+            Return If(found, index, -1)
+        End Function
+
+        <Runtime.CompilerServices.Extension()>
+        Public Function HiddenColumns(gv As GridView) As List(Of Integer)
+            Dim columns As New List(Of Integer)
+
+            For i As Integer = 0 To gv.Columns.Count - 1
+                If gv.Columns(i).Visible = False Then columns.Add(i)
+            Next
+
+            Return columns
+        End Function
+
+        <Runtime.CompilerServices.Extension()>
+        Public Sub ShowAllColumns(gv As GridView)
+            For i As Integer = 0 To gv.Columns.Count - 1
+                gv.Columns(i).Visible = True
+            Next
+        End Sub
+
+        <Runtime.CompilerServices.Extension()>
+        Public Sub HideColumns(gv As GridView, columns As List(Of Integer))
+            For Each i As Integer In columns
+                gv.Columns(i).Visible = False
+            Next
+        End Sub
+
+        <Runtime.CompilerServices.Extension()>
+        Public Sub DataBind(gv As GridView, BindearCamposNoVisibles As Boolean)
+            If BindearCamposNoVisibles Then
+                Dim NoVisibles As List(Of Integer) = gv.HiddenColumns()
+                gv.ShowAllColumns()
+                gv.DataBind()
+                gv.HideColumns(NoVisibles)
+            Else
+                gv.DataBind()
+            End If
+        End Sub
+
 #End Region
 
 #Region "Excel PDF"

Ashx/CargaEventos.ashx

@@ -94,6 +94,49 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
         Dim ObjEventos As New ClsOIEventos
         Dim ErrorEventos = False
         Dim CveEmpresaCRM As Integer = 0
+
+        Dim DT_SubProyectos As New System.Data.DataTable
+
+        DT_SubProyectos.Columns.Add("CveSubProyecto", GetType(Integer))
+        DT_SubProyectos.Columns.Add("backgroundColor")
+
+        'son 26
+        Dim Colores() As String = {"#006699", "#0099cc", "#0066cc", "#0033cc", "#0000ff", "#3333ff", "#3333ff", "#6600ff", "#9933ff", "#cc00ff", "#cc00cc", "#cc0099", "#cc3399", "#cc6699", "#cc0066", "#009933", "#00cc00", "#00cc66", "#009999", "#669900", "#99cc00", "#cccc00", "#cc9900", "#ff9900", "#006666", "#669999"}
+
+
+        If CveOS = -2 Then
+
+            Dim objSub As New ClsSubProyectos
+            Dim DtTempSubproyectos As New DataTable
+
+            If objSub.GetSubProyectos(CveEmpresa) Then
+                DtTempSubproyectos = objSub.DtResultados.FiltraParametros("", "CveSubProyecto")
+            End If
+
+            objSub.Dispose()
+
+            Dim ColorIndex As Integer = 0
+
+            If DtTempSubproyectos.Rows.Count > 0 Then
+                For Each drow As DataRow In DtTempSubproyectos.Rows
+
+
+                    Dim Subrow = DT_SubProyectos.NewRow
+                    Subrow("CveSubProyecto") = drow("CveSubProyecto").ToString.ToEntero
+                    Subrow("backgroundColor") = Colores(ColorIndex)
+
+                    DT_SubProyectos.Rows.Add(Subrow)
+
+                    ColorIndex = ColorIndex + 1
+                    If ColorIndex >= 25 Then
+                        ColorIndex = 0
+                    End If
+
+                Next
+            End If
+
+        End If
+
         If ObjEventos.GetEventos(-1, -1, -1, "-1", "-1", -1, CveUsuario, CveUsuarioPara, -1, -1, -1, "-1", -1, -1, -1, -1, CveOS, -1, -1, -1, -1, -1, CveUsuario, CveUsuario, CveUsuario, CveEmpresa, pFI, pFF, CveSubProyecto:=CveSubProyecto) Then
 
             If ObjEventos.DtResultados.Rows.Count > 0 Then
@@ -144,6 +187,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                             cevent.CveOS = dr("CveOS").ToString.ToEntero
                             cevent.CveOSDetalle = dr("CveOSDetalle").ToString.ToEntero
                             cevent.CveUsuarioAtendio = dr("CveUsuarioAtendio").ToString.ToEntero
+                            cevent.CveSubProyectoUsuarioAtendio = dr("CveSubProyectoUsuarioAtendio").ToString.ToEntero
 
                             cevent.NombreAcercamiento = dr("NombreAcercamiento").ToString
 
@@ -157,6 +201,11 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                                 cevent.backgroundColor = "#1BBC9B"
                             End If
 
+                            If CveOS = -2 Then
+                                cevent.backgroundColor = DT_SubProyectos.FiltroPrimeroValor("backgroundColor", $" CveSubProyecto = {cevent.CveSubProyectoUsuarioAtendio } ")
+                                cevent.backgroundColor = If(cevent.backgroundColor.Trim = "", "#1BBC9B", cevent.backgroundColor.Trim)
+                            End If
+
                             'VERIFICAMOS SI TIENE O NO RECURRENCIA
                             If Not cevent.recurrenciatipo > 0 Then
 

Bancos/IE.aspx.vb

@@ -1422,15 +1422,15 @@ Partial Class Bancos_IE
                 End If
 
 
-                If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
+                'If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
-                    If IDCtaBeneficiario = 0 AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
+                '    If IDCtaBeneficiario = 0 AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
-                        Alert("El Beneficiario no tiene cuenta contable vinculada. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+                '        Alert("El Beneficiario no tiene cuenta contable vinculada. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-                        BtnGuardar.Enabled = False
+                '        BtnGuardar.Enabled = False
-                    Else
+                '    Else
-                        BtnGuardar.Enabled = True
+                '        BtnGuardar.Enabled = True
-                    End If
+                '    End If
-                    UpGuardar.Update()
+                '    UpGuardar.Update()
-                End If
+                'End If
 
                 CargaCuentasDepositos()
             Else

Bancos/ProveedoresAbonar.aspx.vb

@@ -878,7 +878,7 @@ Partial Class Bancos_ProveedoresAbonar
                             End If
                         Next
 
-                        Dim UsaComplementariaBancos As Boolean = Not UsuarioActual.CveEmpresa.Contiene(7, 11, 122, 145)
+                        Dim UsaComplementariaBancos As Boolean = Not UsuarioActual.CveEmpresa.Contiene(7, 11, 122, 145, 13, 83)
                         Dim ConceptoMovimiento As String = $"{TxtPagueseA.Text.Trim} - {TxtObservaciones.Text} {If(Pago.TCPago > 1, $" TC:{Pago.TCPago}", "")}"
                         Dim Referencia As String = $"{HdnTipoTransaccionAbreviatura.Value}: {TxtFolio.Text.Trim}"
                         Dim tImporteMN As Decimal = TxtImporte.Text.ToDecimal
@@ -899,10 +899,13 @@ Partial Class Bancos_ProveedoresAbonar
                             End If
 
                         Else
+                            Dim ImporteME As Decimal = 0
+                            If Not UsaComplementariaBancos And Pago.CveMonedaPago = 2 Then
+                                ImporteME = tImporteMN
+                                tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL
+                            End If
 
-                            If Not UsaComplementariaBancos And Pago.CveMonedaPago = 2 Then tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL
+                            If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, tImporteMN, 30, Referencia, ConceptoMovimiento, IdCuenta, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto, ImporteME:=tImporteMN) Then
-
-                            If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, tImporteMN, 30, Referencia, ConceptoMovimiento, IdCuenta, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto) Then
                                 MsgError = "No se pudo insertar la póliza"
                             End If
 

Compras/Compras.aspx.vb

@@ -6967,6 +6967,8 @@ Partial Class Compras_Compras
                                                         Case 5 'Proveedores
                                                             If CveTipoConcepto = 2 Then ConceptoContable = 305 'cuando es acreedor
                                                             Dim UsaComplementaria As Boolean = True
+
+                                                            If UsuarioActual.CveEmpresa.Contiene(13, 83) Then UsaComplementaria = False
                                                             If tipoCambioActual <> 1 Then
                                                                 Select Case ConceptoContable
                                                                     Case 5
@@ -12406,6 +12408,7 @@ Partial Class Compras_Compras
         GvPS.Columns(15).Visible = True
         GvPS.Columns(16).Visible = True
         GvPS.Columns(17).Visible = True
+        GvPS.Columns(18).Visible = True
 
         'Panel General
         UpPresupuestosAC.Visible = True

Compras/PopUpVerFactura.aspx.vb

@@ -5422,7 +5422,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("Solicito", dr("PersonaSolicito").ToString))
                 params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString))
                 params.Add(New ReportParameter("Recibio", UsuarioActual.Nombre))
-                params.Add(New ReportParameter("FechaRecibido", dr("FechaRecepcion").ToString))
+                params.Add(New ReportParameter("FechaRecibido", dr("FechaRecepcion").ToString.ToDate.ToString("dd/MM/yyyy")))
                 params.Add(New ReportParameter("FolioOS", dr("Folio").ToString))
                 params.Add(New ReportParameter("ClienteTelefono", dr("Telefono").ToString))
                 params.Add(New ReportParameter("ClienteCalle", dr("Direccion").ToString))
@@ -5452,6 +5452,15 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("Año", dr("Año").ToString))
                 params.Add(New ReportParameter("TelefonoContacto", dr("TelefonoContacto").ToString))
 
+                params.Add(New ReportParameter("FechaImpresion", Now.ToString("dd/MM/yyyy")))
+                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
+                params.Add(New ReportParameter("Condiciones", dr("Condiciones").ToString))
+                params.Add(New ReportParameter("FechaAtencion", If(dr("FechaInicio").ToString.Length > 0, dr("FechaInicio").ToString.ToDate.ToString("dd/MM/yyyy"), "")))
+                params.Add(New ReportParameter("TecnicoAsignado", dr("UsuarioAtendio").ToString))
+
+
+
+
                 'End If
 
 

Compras/Proveedores.aspx

@@ -280,7 +280,7 @@
                                                             <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender10" runat="server" HighlightCssClass="vco" TargetControlID="RFVMail" Width="300px"></ajax:ValidatorCalloutExtender>
                                                             <%-- <asp:RegularExpressionValidator ID="CVTelefono" runat="server" Display="None" ValidationExpression="^\(\d{3}\)\s\d{3}-\d{4}$" ControlToValidate="TxtTelefono" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Telefono''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardar"></asp:RegularExpressionValidator>--%>
                                                             <%-- <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender14" runat="server" HighlightCssClass="vco" TargetControlID="CVTelefono" Width="300px"></ajax:ValidatorCalloutExtender>--%>
-                                                            <ajax:MaskedEditExtender ID="mskTelefono" runat="server" TargetControlID="TxtTelefono" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
+                                                            <ajax:MaskedEditExtender ID="mskTelefono" runat="server" TargetControlID="TxtTelefono" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
                                                         </div>
                                                     </td>
                                                 </tr>
@@ -301,7 +301,7 @@
                                                             <ajax:ValidatorCalloutExtender ID="VCETxtContactoTelefono" runat="server" HighlightCssClass="vco" TargetControlID="RFVTxtContactoTelefono" Width="300px"></ajax:ValidatorCalloutExtender>
                                                             <%--<asp:RegularExpressionValidator ID="REVTxtContactoTelefono" runat="server" Display="None" ValidationExpression="^\(\d{3}\)\s\d{3}-\d{4}$" ControlToValidate="TxtContactoTelefono" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Contacto Telefono''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardar"></asp:RegularExpressionValidator>
                                                             <ajax:ValidatorCalloutExtender ID="VCETxtContactoTelefono2" runat="server" HighlightCssClass="vco" TargetControlID="REVTxtContactoTelefono" Width="300px"></ajax:ValidatorCalloutExtender>--%>
-                                                            <ajax:MaskedEditExtender ID="MSKTxtContactoTelefono" runat="server" TargetControlID="TxtContactoTelefono" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
+                                                            <ajax:MaskedEditExtender ID="MSKTxtContactoTelefono" runat="server" TargetControlID="TxtContactoTelefono" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
                                                             <label></label>
                                                         </div>
                                                     </td>

Compras/Proveedores.aspx.vb

@@ -3835,7 +3835,6 @@ Partial Class Compras_Proveedores
     Private Sub ImprimirReporteCxPCrystal(Optional Formato As String = "PDF")
         Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepProveedorCxP.rpt", UsuarioActual.Empresa.Ruta))
         Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
-        'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
         Dim DTCxPTempral As DataTable = Nothing
 
@@ -4217,7 +4216,6 @@ Partial Class Compras_Proveedores
                 params.Add(New ReportParameter("LimiteCredito", TxtLimiteCredito.Text))
                 params.Add(New ReportParameter("SaldoDisponible", (TxtLimiteCredito.Text.ToDouble - dr("Saldo").ToString.ToDouble).ToString.FormatoNumero))
                 params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b>&nbsp;{Proveedor}{FechaIn}{FechaFn}{FechVI}{FechVF}"))
-
                 params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 
                 ImprimirPDF("Empresas/Grales/Formatos/RepProveedorCxP.rdlc", DTCxPTempral, params, "RepCxP")
@@ -4225,7 +4223,6 @@ Partial Class Compras_Proveedores
                 Alert("No se encontraron datos con los filtros especificados", TipoMensaje.MsgAdvertencia)
             End If
 
-
         ElseIf rblreporte.SelectedValue = "anc" Then
 
             'OBTENEMOS LOS DATOS

Compras/ReembolsosComprobaciones.aspx.vb

@@ -618,8 +618,9 @@ Partial Class Compras_ReembolsosComprobaciones
                         IdCuentaBancaria = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
                     End If
                 End If
-                Dim FolioIENew = ObjIE.GetNextFolio(If(CveCajaChica > 0, CveCajaChica, CvePersonal), 8).ToString
+                Dim FolioIENew = ObjIE.GetNextFolio(If(CveCajaChica > 0, CveCajaChica, CvePersonal), 2).ToString
-                CveIECajaChica = ObjIE.AddBancos_IE(CveCajaChica, 8, If(ChkReembolsarSinBancos.Checked, TxtFechaPrePoliza.Text.ToDate, TxtFechaDocumento.Text.Trim.ToDate), FolioIENew, String.Format("Transferencia Cta: {0}", DdlCajaChica.SelectedItem), TxtImporte.Text.ToDecimal, CveMoneda, 0, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePolizaIERegistrado, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked Or CveCajaChica > 0, True, False))
+                CveIECajaChica = ObjIE.AddBancos_IE(CveCajaChica, 2, If(ChkReembolsarSinBancos.Checked, TxtFechaPrePoliza.Text.ToDate, TxtFechaDocumento.Text.Trim.ToDate), FolioIENew, String.Format("Transferencia Cta: {0}", DdlCajaChica.SelectedItem), TxtImporte.Text.ToDecimal, CveMoneda, 0, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePolizaIERegistrado, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked Or CveCajaChica > 0, True, False))
+                '8
                 'AGREGO PREPOLIZA IE BANCOS
                 If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaIERegistrado, True, TxtImporte.Text.ToDecimal, String.Format("Transferencia Cta: {0}", DdlCajaChica.SelectedItem), 30, TxtObservaciones.Text, TxtFechaDocumento.Text.ToDate, IdCuentaBancaria, -1, CveIE:=CveIECajaChica, ImporteME:=If(tipoCambio = 1, 0, TxtImporte.Text.ToDecimal), ImporteMX:=TxtImporte.Text.ToDecimal * tipoCambio) Then
                     MsgError = "Error al registrar detalle de concepto bancario"
@@ -690,7 +691,7 @@ Partial Class Compras_ReembolsosComprobaciones
                         CompraActual.CveTipoConceptoProveedor = gvr.DataKey("CveTipoConcepto").ToEntero
                         CompraActual.CveProveedor = gvr.DataKey("CveProveedor").ToEntero
                         CompraActual.CveMoneda = gvr.DataKey("CveMoneda").ToEntero
-                        CompraActual.Fecha = gvr.DataKey("Fecha").ToDate
+                        CompraActual.Fecha = gvr.DataKey("FechaCompra").ToDate
                         CompraActual.SerieFolio = gvr.DataKey("SerieFolio").ToString
                         CompraActual.ProveedorNombre = gvr.DataKey("Proveedor")
                         CompraActual.TC = gvr.DataKey("TipoCambio").ToDecimal

Compras/RepCxPDetalle.aspx

@@ -15,44 +15,45 @@
         }
     </style>
 </asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
-
+
-    <asp:UpdatePanel runat="server" >
+    <asp:UpdatePanel ID="UPAcciones" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
+        <ContentTemplate>
-            <li>
+            <li>
-                <asp:LinkButton ID="ImgImprimir" runat="server"> <i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
+                <asp:LinkButton ID="ImgImprimir" runat="server"> <i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="ImgExcel" runat="server"> <i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
+            </li>
+            
+            <li>
+                <asp:LinkButton ID="ImgExcelPersonalizado" runat="server" Visible="false"> <i class="fa fa-ad-excel"></i> Excel Personalizado</asp:LinkButton>
+            </li>
+
+            <li>
+                <asp:LinkButton runat="server" ID="LnkPersonalizar" CssClass="" data-toggle="tooltip" Visible="True" OnClick="LnkPersonalizar_Click"
+                    data-placement="left" Text="<i class='fa fa-pencil'></i> Personalizar">
+                </asp:LinkButton>
             </li>
-            <li>
+            <li>
-                <asp:LinkButton ID="ImgExcel" runat="server"> <i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
+                <asp:HyperLink NavigateUrl="javascript:;" data-toggle="modal" data-target="#DivTipoCambio" ID="ImgTipoCambio" runat="server"> <i class="fa fa-money"></i>  Ver Dlls en pesos</asp:HyperLink>
-            </li>
+
-            
+            </li>
-            <li>
+
-                <asp:LinkButton ID="ImgExcelPersonalizado" runat="server" Visible="false"> <i class="fa fa-ad-excel"></i> Excel Personalizado</asp:LinkButton>
+            
-            </li>
+            <li>
-
+                <asp:HyperLink ID="HplProgramar" runat="server">Programar Recursos</asp:HyperLink>
-            <li>
+
-                <asp:LinkButton runat="server" ID="LnkPersonalizar" CssClass="" data-toggle="tooltip" Visible="True" OnClick="LnkPersonalizar_Click"
+            </li>
-                    data-placement="left" title="Enviar Correo de Prueba" Text="<i class='fa fa-pencil'></i>  Personalizar"></asp:LinkButton>            </li>
+
-
+        </ContentTemplate>
-            <li>
+        <Triggers>
-                <asp:HyperLink NavigateUrl="javascript:;" data-toggle="modal" data-target="#DivTipoCambio" ID="ImgTipoCambio" runat="server"> <i class="fa fa-money"></i>  Ver Dlls en pesos</asp:HyperLink>
+            <asp:PostBackTrigger ControlID="ImgImprimir"  />
-
+            <asp:PostBackTrigger ControlID="ImgExcel"  />
-            </li>
+            <asp:PostBackTrigger ControlID="ImgExcelPersonalizado"  />
-
+        </Triggers>
-            
+    </asp:UpdatePanel>
-            <li>
+
-                <asp:HyperLink ID="HplProgramar" runat="server">Programar Recursos</asp:HyperLink>
-
-            </li>
-
-        </ContentTemplate>
-        <Triggers>
-            <asp:PostBackTrigger ControlID="ImgImprimir"  />
-            <asp:PostBackTrigger ControlID="ImgExcel"  />
-            <asp:PostBackTrigger ControlID="ImgExcelPersonalizado"  />
-        </Triggers>
-    </asp:UpdatePanel>
-
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
     Reporte de CxP - Detalle
@@ -216,18 +217,18 @@
                                 <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
-                        <asp:Label runat="server" class="col-md-1" ID="LblProyecto"></asp:Label>
+                        <asp:Label runat="server" class="col-md-1" ID="LblProyecto"></asp:Label>
-                        <div class="col-md-1">
+                        <div class="col-md-1">
-                            <asp:DropDownList ID="DdlProyecto" runat="server" CssClass="select2me" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%" AutoPostBack="true">
+                            <asp:DropDownList ID="DdlProyecto" runat="server" CssClass="select2me" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%" AutoPostBack="true">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            </asp:DropDownList>
-                        </div>
+                        </div>
-
+
-                        <asp:Label runat="server" class="col-md-1" ID="LblSubProyectofiltro"></asp:Label>
+                        <asp:Label runat="server" class="col-md-1" ID="LblSubProyectofiltro"></asp:Label>
-                        <div class="col-md-1">
+                        <div class="col-md-1">
-                            <asp:DropDownList ID="DdlSubProyecto" runat="server" CssClass="select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%">
+                            <asp:DropDownList ID="DdlSubProyecto" runat="server" CssClass="select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            </asp:DropDownList>
                         </div>
                         <div class="col-md-1" style="margin-left:20px"><span>Comprobación:</span></div>
                         <div class="col-md-1">
@@ -241,19 +242,19 @@
                         
 
                     </div>
-                    <div class="row">
+                    <div class="row">
                         <div class="col-md-1"><span>Moneda:</span></div>
-                        <div class="col-md-1">
+                        <div class="col-md-1">
-                           <asp:DropDownList ID="Ddlmoneda" runat="server" AppendDataBoundItems="true"   CssClass="select2me" DataTextField="Moneda" DataValueField="CveMoneda" Width="100%"  ></asp:DropDownList>                                
+                           <asp:DropDownList ID="Ddlmoneda" runat="server" AppendDataBoundItems="true"   CssClass="select2me" DataTextField="Moneda" DataValueField="CveMoneda" Width="100%"  ></asp:DropDownList>                                
-                        </div>
+                        </div>
                         <div class="col-md-1" style="margin-left:20px"><span>Aplica NC:</span></div>
-                        <div class="col-md-1">
+                        <div class="col-md-1">
                             <asp:DropDownList ID="DdlAplicaNC" runat="server" CssClass="select2me" AppendDataBoundItems="true" Width="100%">
                                 <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                                 <asp:ListItem Text="Si" Value="1"></asp:ListItem>
                                 <asp:ListItem Text="No" Value="0"></asp:ListItem>
-                            </asp:DropDownList>
+                            </asp:DropDownList>
-                        </div>
+                        </div>
                     </div>
                 </div>
             </div>
@@ -264,7 +265,7 @@
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
 
-           <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" data-sort="true" Width="99%"   EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas" 
+           <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" data-sort="true" Width="99%"   EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas" 
                 CssClass="table table-striped table-advance table-hover Widthall ScrollAD"  GridLines="None">
                 <Columns>
                     <%--0--%>

Compras/RepCxPDetalle.aspx.vb

@@ -83,18 +83,6 @@ Partial Class RepCxPDetalle
             ViewState("FechaFin") = value
         End Set
     End Property
-
-
-    Private Property Personalizo As Integer
-        Get
-            Return ViewState("Personalizo").ToString.ToEntero
-        End Get
-
-        Set(value As Integer)
-            ViewState("Personalizo") = value
-        End Set
-    End Property
-
 
     Public Property FechaVInicio() As String
         Get
@@ -205,7 +193,6 @@ Partial Class RepCxPDetalle
 
     Private Property TCEspecifico As Double
 
-
     Public Property DTCuentasContables() As DataTable
         Get
             If ViewState("DTCuentasContables") Is Nothing Then
@@ -218,20 +205,14 @@ Partial Class RepCxPDetalle
         Set(value As DataTable)
             ViewState("DTCuentasContables") = value
         End Set
-    End Property
+    End Property
-
-
-
 #End Region
-
-    'pRivate ReadOnly Property ColumnasVisibles As 
-    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-        If Not IsPostBack Then
 
-            Personalizo = 0
+    'Private ReadOnly Property ColumnasVisibles As 
-
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not IsPostBack Then
             ViewState("Opcion") = IfNull(Request("Op"), "S")
-            MostrarOcultarColumnas()
+            MostrarOcultarColumnas(False)
             CargaCombos()
             If Request("Op") IsNot Nothing Then
                 CargaDatos()
@@ -274,7 +255,6 @@ Partial Class RepCxPDetalle
         DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlUsuarioRegistro.SelectedValueExist(UsuarioRegistro)
 
-
         Dim CveSucursal As Integer = IfNull(Request("CveSubProyecto"), -1).ToString.ToEntero
 
         'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
@@ -309,7 +289,6 @@ Partial Class RepCxPDetalle
         FechaCorte = IfNull(Request("FechaCorte"), Now.ToDate.ToString).ToString
         txtCorteA.Text = $"31/12/{Now.Year}"
 
-
         If Request("FechaI") <> "-1" AndAlso IsDate(Request("FechaI")) Then txtFechaI.Text = Request("FechaI")
         If Request("FechaF") <> "-1" AndAlso IsDate(Request("FechaF")) Then txtFechaF.Text = Request("FechaF")
         If Request("FechaVI") <> "-1" AndAlso IsDate(Request("FechaVI")) Then txtFechaVI.Text = Request("FechaVI")
@@ -349,8 +328,6 @@ Partial Class RepCxPDetalle
 
         GvDatos.Columns(11).Visible = (UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0)
 
-
-
         For Each lItem As ListItem In DdlGrupo.Items
 
             If lItem.Value.ToEntero = 9 Then
@@ -358,7 +335,6 @@ Partial Class RepCxPDetalle
             End If
         Next
 
-
     End Sub
 
     Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
@@ -544,11 +520,8 @@ Partial Class RepCxPDetalle
                     End If
 
                 End If
-
-
             End If
 
-
             If e.Row.DBCampo("CveCompra") = "" Then
                 e.Row.FCLabel("LblMoneda").Text = ""
             End If
@@ -595,7 +568,7 @@ Partial Class RepCxPDetalle
 #End Region
 
 #Region "PERSONALIZAR"
-    Protected Sub MostrarOcultarColumnas()
+    Protected Sub MostrarOcultarColumnas(Optional Personalizo As Boolean = True)
 
         If ChkTipoDocto.Checked Then
             GvDatos.Columns(0).Visible = True
@@ -639,15 +612,12 @@ Partial Class RepCxPDetalle
             GvDatos.Columns(7).Visible = False
         End If
 
-
         If ChkMoneda.Checked Then
             GvDatos.Columns(8).Visible = True
         Else
             GvDatos.Columns(8).Visible = False
         End If
 
-
-
         If ChkSaldo.Checked Then
             GvDatos.Columns(9).Visible = True
         Else
@@ -692,12 +662,12 @@ Partial Class RepCxPDetalle
 
         GvDatos.Columns(16).Visible = ChkDescripcion.Checked
 
-        Personalizo = 1
+        If Personalizo Then
-        If Personalizo = 1 Then
             ImgExcelPersonalizado.Visible = True
         Else
             ImgExcelPersonalizado.Visible = False
-        End If
+        End If
+        UPAcciones.Update()
 
         UPDatos.Update()
     End Sub

Contabilidad/PlantillasPolizasDetalle.aspx.vb

@@ -228,6 +228,16 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
             Alert("Error al agregar la Plantilla Póliza y el Detalle.", TipoMensaje.MsgError)
         End If
         ObjPlantillaPoliza.Dispose()
+
+
+        If Not ErrorPlantilla Then
+            Using ObjContabilidad As New ClsContabilidad
+                If ObjContabilidad.GetConta_PlantillasPolizas(-1, -1) Then Application("GlobalDTContaPlantillasPolizas") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizas") = Nothing
+                If ObjContabilidad.GetConta_PlantillasPolizasDetalle(-1, -1) Then Application("GlobalDTContaPlantillasPolizasDetalle") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizasDetalle") = Nothing
+            End Using
+        End If
+
+
     End Sub
     Public Sub updatatos()
 

Contabilidad/RegPrePolizaS.aspx.vb

@@ -575,7 +575,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             Dim CveConceptoContable As Integer = e.Row.DataKey("CveConceptoContable").ToEntero
 
             If CveConceptoContable.Contiene(1, 2, 13, 38, 207, 203, 39, 61, 62, 63, 4, 278, 291, 292, 272) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta"))
-            If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
+            If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312, 201, 206) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
             If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen"))
             If CveConceptoContable.Contiene(30, 204, 66, 92) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
 

Contabilidad2/Reportes/RepSituacionFinanciera.rdlc

@@ -3035,31 +3035,32 @@
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
   </ReportParameters>
+  
   <Variables>
     <Variable Name="TotalActivoActual">
       <Value>=Sum(iif(Fields!Tipo.Value.ToString() = "A" OR  Fields!Tipo.Value.ToString() = "B" OR Fields!Tipo.Value.ToString() = "C" OR Cint(Fields!TipoCuenta.Value) = 9  , Fields!ImporteActual.Value, 0)  , "DataSet1")</Value>
     </Variable>
     <Variable Name="TotalActivoAnterior">
-      <Value>=Sum( iif(Fields!Sup.Value  = "ACTIVO NO CIRCULANTE" OR Fields!Sup.Value="ACTIVO CIRCULANTE" OR Cint(Fields!TipoCuenta.value) = 9  , Fields!ImporteAnterior.Value, 0), "DataSet1")</Value>
+        <Value>=Sum(iif(Fields!Tipo.Value.ToString() = "A" OR  Fields!Tipo.Value.ToString() = "B" OR Fields!Tipo.Value.ToString() = "C" OR Cint(Fields!TipoCuenta.Value) = 9  , Fields!ImporteAnterior.Value, 0)  , "DataSet1")</Value>
     </Variable>
     <Variable Name="TotalPasivoActual">
-      <Value>=Sum( iif(Fields!Sup.Value = "PASIVO CIRCULANTE" OR Fields!Sup.Value = "PASIVO NO CIRCULANTE" , Fields!ImporteActual.Value, 0), "DataSet1")</Value>
+      <Value>=Sum(iif(Fields!Tipo.Value.ToString() = "D" AND Cint(Fields!TipoCuenta.Value) = 3  , Fields!ImporteActual.Value, 0)  , "DataSet1")</Value>
     </Variable>
     <Variable Name="TotalPasivoAnterior">
-      <Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "PASIVO CIRCULANTE" OR Fields!Sup.Value = "PASIVO NO CIRCULANTE" , Fields!ImporteAnterior.Value, 0),"DataSet1")</Value>
+       <Value>=Sum(iif(Fields!Tipo.Value.ToString() = "D" AND Cint(Fields!TipoCuenta.Value) = 3  , Fields!ImporteAnterior.Value, 0)  , "DataSet1")</Value>
       <Writable>true</Writable>
     </Variable>
     <Variable Name="TotalPatrimonioCActual">
       <Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" OR Fields!Sup.Value = "CAPITAL CONTABLE"  , Fields!ImporteActual.Value, 0),"DataSet1")</Value>
     </Variable>
     <Variable Name="TotalPatrimonioHActual">
-      <Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" OR Fields!Sup.Value = "CAPITAL CONTABLE"  , Fields!ImporteActual.Value, 0),"DataSet1")</Value>
+      <Value>=Sum(iif(Fields!Tipo.Value.ToString() = "F" AND (Cint(Fields!TipoCuenta.Value) = 5 OR Cint(Fields!TipoCuenta.Value) = 6 OR Cint(Fields!TipoCuenta.Value) = 7 OR Cint(Fields!TipoCuenta.Value) = 8)  , Fields!ImporteActual.Value, 0)  , "DataSet1")</Value>
     </Variable>
     <Variable Name="TotalPatrimonioCAnterior">
       <Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" OR Fields!Sup.Value = "CAPITAL CONTABLE" , Fields!ImporteAnterior.Value, 0),"DataSet1")</Value>
     </Variable>
     <Variable Name="TotalPatrimonioHAnterior">
-      <Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" OR Fields!Sup.Value = "CAPITAL CONTABLE" , Fields!ImporteActual.Value, 0),"DataSet1")</Value>
+      <Value>=Sum(iif(Fields!Tipo.Value.ToString() = "F" AND (Cint(Fields!TipoCuenta.Value) = 5 OR Cint(Fields!TipoCuenta.Value) = 6 OR Cint(Fields!TipoCuenta.Value) = 7 OR Cint(Fields!TipoCuenta.Value) = 8)  , Fields!ImporteAnterior.Value, 0)  , "DataSet1")</Value>
     </Variable>
     <Variable Name="TotalpasivoYHaciendaActual">
       <Value>=Variables!TotalPasivoActual.Value+Variables!TotalPatrimonioHActual.Value</Value>

Empresas/140/Formatos/OrdenServicio.rdlc

@@ -232,7 +232,7 @@
                           <rd:DefaultName>Cantidad</rd:DefaultName>
                           <Style>
                             <Border>
-                              <Style>Solid</Style>
+                              <Style>None</Style>
                             </Border>
                             <TopBorder>
                               <Color>Black</Color>
@@ -240,7 +240,6 @@
                             </TopBorder>
                             <BottomBorder>
                               <Color>Black</Color>
-                              <Width>1pt</Width>
                             </BottomBorder>
                             <LeftBorder>
                               <Style>None</Style>
@@ -278,7 +277,7 @@
                           <rd:DefaultName>PS</rd:DefaultName>
                           <Style>
                             <Border>
-                              <Style>Solid</Style>
+                              <Style>None</Style>
                             </Border>
                             <TopBorder>
                               <Color>Black</Color>
@@ -286,102 +285,6 @@
                             </TopBorder>
                             <BottomBorder>
                               <Color>Black</Color>
-                              <Width>1pt</Width>
-                            </BottomBorder>
-                            <LeftBorder>
-                              <Style>None</Style>
-                            </LeftBorder>
-                            <RightBorder>
-                              <Style>None</Style>
-                            </RightBorder>
-                            <PaddingLeft>2pt</PaddingLeft>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
-                          </Style>
-                        </Textbox>
-                      </CellContents>
-                    </TablixCell>
-                  </TablixCells>
-                </TablixRow>
-                <TablixRow>
-                  <Height>0.20312cm</Height>
-                  <TablixCells>
-                    <TablixCell>
-                      <CellContents>
-                        <Textbox Name="Textbox29">
-                          <CanGrow>true</CanGrow>
-                          <KeepTogether>true</KeepTogether>
-                          <Paragraphs>
-                            <Paragraph>
-                              <TextRuns>
-                                <TextRun>
-                                  <Value />
-                                  <Style>
-                                    <FontSize>8pt</FontSize>
-                                  </Style>
-                                </TextRun>
-                              </TextRuns>
-                              <Style>
-                                <TextAlign>Center</TextAlign>
-                              </Style>
-                            </Paragraph>
-                          </Paragraphs>
-                          <rd:DefaultName>Textbox29</rd:DefaultName>
-                          <Style>
-                            <Border>
-                              <Color>LightGrey</Color>
-                              <Style>Solid</Style>
-                            </Border>
-                            <TopBorder>
-                              <Color>Black</Color>
-                            </TopBorder>
-                            <BottomBorder>
-                              <Style>None</Style>
-                            </BottomBorder>
-                            <LeftBorder>
-                              <Style>None</Style>
-                            </LeftBorder>
-                            <RightBorder>
-                              <Style>None</Style>
-                            </RightBorder>
-                            <PaddingLeft>2pt</PaddingLeft>
-                            <PaddingRight>2pt</PaddingRight>
-                            <PaddingTop>2pt</PaddingTop>
-                            <PaddingBottom>2pt</PaddingBottom>
-                          </Style>
-                        </Textbox>
-                      </CellContents>
-                    </TablixCell>
-                    <TablixCell>
-                      <CellContents>
-                        <Textbox Name="Textbox32">
-                          <CanGrow>true</CanGrow>
-                          <KeepTogether>true</KeepTogether>
-                          <Paragraphs>
-                            <Paragraph>
-                              <TextRuns>
-                                <TextRun>
-                                  <Value />
-                                  <Style>
-                                    <FontSize>8pt</FontSize>
-                                  </Style>
-                                </TextRun>
-                              </TextRuns>
-                              <Style />
-                            </Paragraph>
-                          </Paragraphs>
-                          <rd:DefaultName>Textbox32</rd:DefaultName>
-                          <Style>
-                            <Border>
-                              <Color>LightGrey</Color>
-                              <Style>Solid</Style>
-                            </Border>
-                            <TopBorder>
-                              <Color>Black</Color>
-                            </TopBorder>
-                            <BottomBorder>
-                              <Style>None</Style>
                             </BottomBorder>
                             <LeftBorder>
                               <Style>None</Style>
@@ -415,15 +318,12 @@
                 <TablixMember>
                   <Group Name="Detalles" />
                 </TablixMember>
-                <TablixMember>
-                  <KeepWithGroup>Before</KeepWithGroup>
-                </TablixMember>
               </TablixMembers>
             </TablixRowHierarchy>
             <DataSetName>DataSet1</DataSetName>
             <Top>2.78954cm</Top>
             <Left>0.06614cm</Left>
-            <Height>1.08562cm</Height>
+            <Height>0.8825cm</Height>
             <Width>16.19696cm</Width>
             <Style>
               <Border>
@@ -1153,9 +1053,6 @@
             <Height>0.50475cm</Height>
             <Width>3.16146cm</Width>
             <ZIndex>9</ZIndex>
-            <Visibility>
-              <Hidden>true</Hidden>
-            </Visibility>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -1263,7 +1160,7 @@
             <Top>0.71688cm</Top>
             <Left>5.3112cm</Left>
             <Height>0.56825cm</Height>
-            <Width>5.22521cm</Width>
+            <Width>4.54835cm</Width>
             <ZIndex>12</ZIndex>
             <Style>
               <Border>
@@ -1330,7 +1227,7 @@
             <Top>1.28513cm</Top>
             <Left>5.3112cm</Left>
             <Height>0.56825cm</Height>
-            <Width>5.22521cm</Width>
+            <Width>4.54835cm</Width>
             <ZIndex>14</ZIndex>
             <Style>
               <Border>
@@ -1349,7 +1246,7 @@
       <Width>7.99085in</Width>
       <Page>
         <PageHeader>
-          <Height>4.83183cm</Height>
+          <Height>5.18108cm</Height>
           <PrintOnFirstPage>true</PrintOnFirstPage>
           <PrintOnLastPage>true</PrintOnLastPage>
           <ReportItems>
@@ -1360,7 +1257,7 @@
                 <Paragraph>
                   <TextRuns>
                     <TextRun>
-                      <Value>=Parameters!NombreEmpresa.Value</Value>
+                      <Value>BDH BATERIAS DISTRIBUCIONES DE HERMOSILLO</Value>
                       <Style>
                         <FontFamily>Myriad Pro</FontFamily>
                         <FontWeight>Bold</FontWeight>
@@ -1439,7 +1336,7 @@
               </Style>
             </Textbox>
             <Line Name="Line1">
-              <Top>4.83183cm</Top>
+              <Top>5.18108cm</Top>
               <Left>0.08599cm</Left>
               <Height>0cm</Height>
               <Width>20.21078cm</Width>
@@ -1537,7 +1434,7 @@
               <rd:DefaultName>Textbox18</rd:DefaultName>
               <Top>1.36809cm</Top>
               <Left>11.46032cm</Left>
-              <Height>1.98807cm</Height>
+              <Height>1.04858cm</Height>
               <Width>8.7798cm</Width>
               <ZIndex>4</ZIndex>
               <Style>
@@ -1683,6 +1580,29 @@
                     <TextAlign>Left</TextAlign>
                   </Style>
                 </Paragraph>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value>Condiciones:  </Value>
+                      <Style>
+                        <FontFamily>Myriad Pro</FontFamily>
+                        <FontSize>9pt</FontSize>
+                        <FontWeight>SemiBold</FontWeight>
+                      </Style>
+                    </TextRun>
+                    <TextRun>
+                      <Value>=Parameters!Condiciones.Value</Value>
+                      <Style>
+                        <FontFamily>Myriad Pro</FontFamily>
+                        <FontSize>9pt</FontSize>
+                        <FontWeight>Normal</FontWeight>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style>
+                    <TextAlign>Left</TextAlign>
+                  </Style>
+                </Paragraph>
                 <Paragraph>
                   <TextRuns>
                     <TextRun>
@@ -1702,8 +1622,8 @@
               <rd:DefaultName>Textbox2</rd:DefaultName>
               <Top>1.007in</Top>
               <Left>0.08599cm</Left>
-              <Height>0.85363in</Height>
+              <Height>0.98905in</Height>
-              <Width>4.40864in</Width>
+              <Width>3.84786in</Width>
               <ZIndex>5</ZIndex>
               <Style>
                 <Border>
@@ -1730,6 +1650,92 @@
                 </Border>
               </Style>
             </Image>
+            <Textbox Name="Textbox21">
+              <CanGrow>true</CanGrow>
+              <KeepTogether>true</KeepTogether>
+              <Paragraphs>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value>Fecha de atención: </Value>
+                      <Style>
+                        <FontFamily>Myriad Pro</FontFamily>
+                        <FontSize>9pt</FontSize>
+                        <FontWeight>SemiBold</FontWeight>
+                      </Style>
+                    </TextRun>
+                    <TextRun>
+                      <Value>=Parameters!FechaAtencion.Value</Value>
+                      <Style>
+                        <FontFamily>Myriad Pro</FontFamily>
+                        <FontSize>9pt</FontSize>
+                        <FontWeight>Normal</FontWeight>
+                        <Format>dd/MM/yyyy</Format>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style>
+                    <TextAlign>Left</TextAlign>
+                  </Style>
+                </Paragraph>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value>Ténico asignado: </Value>
+                      <Style>
+                        <FontFamily>Myriad Pro</FontFamily>
+                        <FontSize>9pt</FontSize>
+                        <FontWeight>Bold</FontWeight>
+                        <Format>dd/MM/yyyy</Format>
+                      </Style>
+                    </TextRun>
+                    <TextRun>
+                      <Value>=Parameters!TecnicoAsignado.Value</Value>
+                      <Style>
+                        <FontFamily>Myriad Pro</FontFamily>
+                        <FontSize>9pt</FontSize>
+                        <FontWeight>Normal</FontWeight>
+                        <Format>dd/MM/yyyy</Format>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style>
+                    <TextAlign>Left</TextAlign>
+                  </Style>
+                </Paragraph>
+                <Paragraph>
+                  <TextRuns>
+                    <TextRun>
+                      <Value />
+                      <Style>
+                        <FontFamily>Myriad Pro</FontFamily>
+                        <FontSize>9pt</FontSize>
+                        <FontWeight>Bold</FontWeight>
+                        <Format>dd/MM/yyyy</Format>
+                      </Style>
+                    </TextRun>
+                  </TextRuns>
+                  <Style>
+                    <TextAlign>Left</TextAlign>
+                  </Style>
+                </Paragraph>
+              </Paragraphs>
+              <rd:DefaultName>Textbox2</rd:DefaultName>
+              <Top>1.007in</Top>
+              <Left>9.93011cm</Left>
+              <Height>0.98905in</Height>
+              <Width>3.84786in</Width>
+              <ZIndex>7</ZIndex>
+              <Style>
+                <Border>
+                  <Style>None</Style>
+                </Border>
+                <PaddingLeft>2pt</PaddingLeft>
+                <PaddingRight>2pt</PaddingRight>
+                <PaddingTop>2pt</PaddingTop>
+                <PaddingBottom>2pt</PaddingBottom>
+              </Style>
+            </Textbox>
           </ReportItems>
           <Style>
             <Border>
@@ -1762,7 +1768,7 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox3</rd:DefaultName>
-              <Top>0.2734cm</Top>
+              <Top>0.27338cm</Top>
               <Left>17.14236cm</Left>
               <Height>0.68085cm</Height>
               <Width>3.13456cm</Width>
@@ -1794,7 +1800,7 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox8</rd:DefaultName>
-              <Top>0.2734cm</Top>
+              <Top>0.27338cm</Top>
               <Left>0.06614cm</Left>
               <Height>0.68085cm</Height>
               <Width>1.60042cm</Width>
@@ -1826,7 +1832,7 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox9</rd:DefaultName>
-              <Top>0.2734cm</Top>
+              <Top>0.27338cm</Top>
               <Left>1.61047cm</Left>
               <Height>0.68085cm</Height>
               <Width>5.14936cm</Width>
@@ -1859,7 +1865,7 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox10</rd:DefaultName>
-              <Top>0.2734cm</Top>
+              <Top>0.27338cm</Top>
               <Left>6.93622cm</Left>
               <Height>0.68085cm</Height>
               <Width>2.92333cm</Width>
@@ -1892,7 +1898,7 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox11</rd:DefaultName>
-              <Top>0.2734cm</Top>
+              <Top>0.27338cm</Top>
               <Left>9.84544cm</Left>
               <Height>0.68085cm</Height>
               <Width>4.32745cm</Width>
@@ -1908,7 +1914,7 @@
               </Style>
             </Textbox>
             <Line Name="Line2">
-              <Top>0.15874cm</Top>
+              <Top>0.15872cm</Top>
               <Left>0.08599cm</Left>
               <Height>0cm</Height>
               <Width>20.21078cm</Width>
@@ -2136,6 +2142,24 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="Condiciones">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaAtencion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="TecnicoAsignado">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="Logo">

Empresas/72/Formatos/OrdenServicio.rdlc

@@ -2864,6 +2864,24 @@ Compuproveeores no se hace responsable por el resguardo de su equipo.</Value>
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="Condiciones">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaAtencion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="TecnicoAsignado">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="Logo1">

Empresas/Grales/Formatos/OrdenServicio.rdlc

@@ -2449,6 +2449,24 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="Condiciones">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaAtencion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="TecnicoAsignado">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <rd:ReportUnitType>Cm</rd:ReportUnitType>
   <rd:ReportID>40c94aad-a12a-44fb-ab0d-ea36a9656792</rd:ReportID>

General/RepIndicadorResumen.aspx

@@ -19,25 +19,27 @@
             background-color: #95A5A6;
             color: white;
         }
-
         .table-scrollable {
             margin-top: 0px !important;
             margin-bottom: 0px !important;
         }
-
         .margenbound {
             margin-left: 15px;
             text-align: right;
         }
-        .amChartsAttribution {
-            margin-top: -2px;
-            margin-bottom: 8px;
-            visibility: hidden;
-        }
         div[id^=chartdiv] {
             width: 100%;
             height: 400px;
         }
+        .portlet-total {
+            float:right!important;
+            display:inline-block!important;
+        }
+        .abbr {
+            overflow: hidden;
+            text-overflow: ellipsis;
+            display:block!important;
+        }
     </style>
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
@@ -96,12 +98,6 @@
                 </div>
             </div>
 
-            <%--<div class="row">
-                <div class="col-md-6"></div>
-                <div class="col-md-6 amChartsAttribution">
-                    <a href="http://www.amcharts.com/" class="amChartsLegend" id="amChartsAttribution">JS charts by amCharts</a>
-                </div>
-            </div>--%>
             <asp:UpdatePanel ID="UPPMov" runat="server" RenderMode="Inline" UpdateMode="Conditional">
                 <ContentTemplate>
                     <div class="row">
@@ -111,15 +107,15 @@
                                     <div class="portlet-title">
                                         <div class="caption font-green">
                                             <i class="icon-pin font-green"></i>
-                                            <span id="SpObs" runat="server" class="caption-subject bold uppercase">Ventas por Productos </span>
+                                            <span id="PLVxP" runat="server" class="caption-subject bold uppercase">Ventas por Productos</span>
-                                        </div>
-                                        <div class="actions">
-                                            <div class="btn-group">
-                                            </div>
                                         </div>
                                         <div class="tools">
                                             <a href="javascript:;" class="collapse"></a>
                                         </div>
+                                        <div class="caption font-green portlet-total">
+                                            <span id="PLVxPTot" class="caption-subject bold uppercase" runat="server" />
+                                            <a href="javascript:;" class="collapse"></a>
+                                        </div>
                                     </div>
                                     <div class="portlet-body formnombottom">
                                         <asp:GridView ID="GvVxP" runat="server" GridLines="None"
@@ -129,7 +125,13 @@
                                                 <asp:BoundField DataField="Gpo" HeaderText="Prod/Serv" ItemStyle-Width="300px" />
                                                 <asp:BoundField DataFormatString="{0:n}" DataField="Cantidad" ItemStyle-CssClass="margenbound" HeaderText="Cantidad" />
                                                 <asp:BoundField DataFormatString="{0:c}" DataField="SubTotal" ItemStyle-CssClass="margenbound" HeaderText="SubTotal" />
-                                               
+                                                <%--TODO: Esto se puede meter en el stored procedured, pero me da cosa moverle :S--%>
+                                                <asp:TemplateField ItemStyle-CssClass="margenbound" HeaderText="P. Promedio">
+                                                    <ItemTemplate>
+                                                        <%--TODO: Esto puede tronar si el valor es DBNull --%>
+                                                        <%# If(Convert.ToDecimal(Eval("Cantidad")) = 0, 0.ToString("C"), (Convert.ToDecimal(Eval("SubTotal")) / Convert.ToInt32(Eval("Cantidad"))).ToString("C")) %>
+                                                    </ItemTemplate>
+                                                </asp:TemplateField>
                                             </Columns>
                                         </asp:GridView>
                                     </div>
@@ -143,11 +145,7 @@
                                     <div class="portlet-title">
                                         <div class="caption font-green">
                                             <i class="icon-pin font-green"></i>
-                                            <span id="Span4" runat="server" class="caption-subject bold uppercase">Ventas por Productos - Gráfica </span>
+                                            <span id="PLGraficaVxP" runat="server" class="caption-subject bold uppercase">Ventas por Productos - Gráfica </span>
-                                        </div>
-                                        <div class="actions">
-                                            <div class="btn-group">
-                                            </div>
                                         </div>
                                         <div class="tools">
                                             <a href="javascript:;" class="collapse"></a>
@@ -168,20 +166,20 @@
                                     <div class="portlet-title">
                                         <div class="caption font-green">
                                             <i class="icon-pin font-green"></i>
-                                            <span id="Span8" runat="server" class="caption-subject bold uppercase">Compras Productores</span>
+                                            <span id="PLCompProductores" runat="server" class="caption-subject bold uppercase">Compras Productores</span>
-                                        </div>
-                                        <div class="actions">
-                                            <div class="btn-group">
-                                            </div>
                                         </div>
                                         <div class="tools">
                                             <a href="javascript:;" class="collapse"></a>
                                         </div>
+                                        <div class="caption font-green portlet-total">
+                                            <span id="PLCompProductoresTot" class="caption-subject bold uppercase" runat="server" />
+                                            <a href="javascript:;" class="collapse"></a>
+                                        </div>
                                     </div>
                                     <div class="portlet-body formnombottom">
                                         <asp:GridView ID="GvCompProductores" runat="server" GridLines="None"
                                             CssClass="table table-striped table-advance table-hover ScrollAD Widthall " ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
-                                            AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
+                                            AutoGenerateColumns="False" AllowPaging="False" ShowFooter="True">
                                              <Columns>
                                                 <asp:BoundField DataField="RazonSocial" HeaderText="Proveedor" />
                                                 <asp:BoundField DataFormatString="{0:n}" DataField="Cantidad" ItemStyle-CssClass="margenbound" HeaderText="Cantidad(kg)" />
@@ -190,6 +188,7 @@
                                                 <asp:BoundField DataFormatString="{0:c}" DataField="Saldo" ItemStyle-CssClass="margenbound" HeaderText="Saldo" />
                                                 <asp:BoundField DataFormatString="{0:c}" DataField="Abonado" ItemStyle-CssClass="margenbound" HeaderText="Abonado" />
                                             </Columns>
+                                            <FooterStyle CssClass="Totales"/>
                                         </asp:GridView>                                       
                                     </div>
                                 </ContentTemplate>
@@ -202,11 +201,7 @@
                                     <div class="portlet-title">
                                         <div class="caption font-green">
                                             <i class="icon-pin font-green"></i>
-                                            <span id="Span9" runat="server" class="caption-subject bold uppercase">Compras Productores - Gráfica por Cantidad(Kg) </span>
+                                            <span id="PLGraficaCompProductores" runat="server" class="caption-subject bold uppercase">Compras Productores - Gráfica por Cantidad(Kg) </span>
-                                        </div>
-                                        <div class="actions">
-                                            <div class="btn-group">
-                                            </div>
                                         </div>
                                         <div class="tools">
                                             <a href="javascript:;" class="collapse"></a>
@@ -227,15 +222,15 @@
                                     <div class="portlet-title">
                                         <div class="caption font-green">
                                             <i class="icon-pin font-green"></i>
-                                            <span id="Span1" runat="server" class="caption-subject bold uppercase">Gastos </span>
+                                            <span id="PLGastos" runat="server" class="caption-subject bold uppercase">Gastos </span>
-                                        </div>
-                                        <div class="actions">
-                                            <div class="btn-group">
-                                            </div>
                                         </div>
                                         <div class="tools">
                                             <a href="javascript:;" class="collapse"></a>
                                         </div>
+                                        <div class="caption font-green portlet-total">
+                                            <span id="PLGastosTot" class="caption-subject bold uppercase" runat="server" />
+                                            <a href="javascript:;" class="collapse"></a>
+                                        </div>
                                     </div>
                                     <div class="portlet-body formnombottom">
                                         <asp:GridView ID="GvCompAcreed" runat="server" GridLines="None"
@@ -258,11 +253,7 @@
                                     <div class="portlet-title">
                                         <div class="caption font-green">
                                             <i class="icon-pin font-green"></i>
-                                            <span id="Span2" runat="server" class="caption-subject bold uppercase">Compras por clasificación - Gráfica </span>
+                                            <span id="PLGraficaGastos" runat="server" class="caption-subject bold uppercase">Compras por clasificación - Gráfica </span>
-                                        </div>
-                                        <div class="actions">
-                                            <div class="btn-group">
-                                            </div>
                                         </div>
                                         <div class="tools">
                                             <a href="javascript:;" class="collapse"></a>
@@ -283,15 +274,15 @@
                                     <div class="portlet-title">
                                         <div class="caption font-green">
                                             <i class="icon-pin font-green"></i>
-                                            <span id="Span3" runat="server" class="caption-subject bold uppercase">Cuentas por cobrar</span>
+                                            <span id="PLCxC" runat="server" class="caption-subject bold uppercase">Cuentas por cobrar</span>
-                                        </div>
-                                        <div class="actions">
-                                            <div class="btn-group">
-                                            </div>
                                         </div>
                                         <div class="tools">
                                             <a href="javascript:;" class="collapse"></a>
                                         </div>
+                                        <div class="caption font-green portlet-total">
+                                            <span id="PLCxCTot" class="caption-subject bold uppercase" runat="server" />
+                                            <a href="javascript:;" class="collapse"></a>
+                                        </div>
                                     </div>
                                     <div class="portlet-body formnombottom">
                                         <asp:GridView ID="GvCxC" runat="server" GridLines="None"
@@ -314,11 +305,7 @@
                                     <div class="portlet-title">
                                         <div class="caption font-green">
                                             <i class="icon-pin font-green"></i>
-                                            <span id="Span5" runat="server" class="caption-subject bold uppercase">Cuentas por cobrar - Gráfica Saldo VS Recuperado</span>
+                                            <span id="PLGraficaCxC" runat="server" class="caption-subject bold uppercase">Cuentas por cobrar - Gráfica Saldo VS Recuperado</span>
-                                        </div>
-                                        <div class="actions">
-                                            <div class="btn-group">
-                                            </div>
                                         </div>
                                         <div class="tools">
                                             <a href="javascript:;" class="collapse"></a>
@@ -330,30 +317,6 @@
                                 </ContentTemplate>
                             </asp:UpdatePanel>
                         </div>
-
-                        <div class="col-md-6">
-                            <asp:UpdatePanel ID="UPGraficaCxCRec" runat="server" class="portlet light xspadding bordered " align="center" style="" UpdateMode="Conditional" Visible="false">
-                                <ContentTemplate>
-                                    <div class="portlet-title">
-                                        <div class="caption font-green">
-                                            <i class="icon-pin font-green"></i>
-                                            <span id="Span10" runat="server" class="caption-subject bold uppercase">Cuentas por cobrar - Gráfica Recuperado</span>
-                                        </div>
-                                        <div class="actions">
-                                            <div class="btn-group">
-                                            </div>
-                                        </div>
-                                        <div class="tools">
-                                            <a href="javascript:;" class="collapse"></a>
-                                        </div>
-                                    </div>
-                                    <div class="portlet-body formnombottom">
-                                        <div id="chartdiv_cxcrec"></div>
-                                    </div>
-                                </ContentTemplate>
-                            </asp:UpdatePanel>
-                        </div>
-
                     </div>
 
                     <div class="row">
@@ -363,15 +326,15 @@
                                     <div class="portlet-title">
                                         <div class="caption font-green">
                                             <i class="icon-pin font-green"></i>
-                                            <span id="Span11" runat="server" class="caption-subject bold uppercase">Cuentas por Pagar productores</span>
+                                            <span id="PLCxP192" runat="server" class="caption-subject bold uppercase">Cuentas por Pagar productores</span>
-                                        </div>
-                                        <div class="actions">
-                                            <div class="btn-group">
-                                            </div>
                                         </div>
                                         <div class="tools">
                                             <a href="javascript:;" class="collapse"></a>
                                         </div>
+                                        <div class="caption font-green portlet-total">
+                                            <span id="PLCxP192Tot" class="caption-subject bold uppercase" runat="server" />
+                                            <a href="javascript:;" class="collapse"></a>
+                                        </div>
                                     </div>
                                     <div class="portlet-body formnombottom">
                                         <asp:GridView ID="GvCxP192" runat="server" GridLines="None"
@@ -393,11 +356,7 @@
                                     <div class="portlet-title">
                                         <div class="caption font-green">
                                             <i class="icon-pin font-green"></i>
-                                            <span id="Span12" runat="server" class="caption-subject bold uppercase">Cuentas por Pagar productores - Gráfica </span>
+                                            <span id="PLGraficaCxP192" runat="server" class="caption-subject bold uppercase">Cuentas por Pagar productores - Gráfica </span>
-                                        </div>
-                                        <div class="actions">
-                                            <div class="btn-group">
-                                            </div>
                                         </div>
                                         <div class="tools">
                                             <a href="javascript:;" class="collapse"></a>
@@ -418,15 +377,15 @@
                                     <div class="portlet-title">
                                         <div class="caption font-green">
                                             <i class="icon-pin font-green"></i>
-                                            <span id="Span6" runat="server" class="caption-subject bold uppercase">Cuentas por Pagar no productores</span>
+                                            <span id="PLCxP" runat="server" class="caption-subject bold uppercase">Cuentas por Pagar no productores</span>
-                                        </div>
-                                        <div class="actions">
-                                            <div class="btn-group">
-                                            </div>
                                         </div>
                                         <div class="tools">
                                             <a href="javascript:;" class="collapse"></a>
                                         </div>
+                                        <div class="caption font-green portlet-total">
+                                            <span id="PLCxPTot" class="caption-subject bold uppercase" runat="server" />
+                                            <a href="javascript:;" class="collapse"></a>
+                                        </div>
                                     </div>
                                     <div class="portlet-body formnombottom">
                                         <asp:GridView ID="GvCxP" runat="server" GridLines="None"
@@ -448,11 +407,7 @@
                                     <div class="portlet-title">
                                         <div class="caption font-green">
                                             <i class="icon-pin font-green"></i>
-                                            <span id="Span7" runat="server" class="caption-subject bold uppercase">Cuentas por Pagar no productores - Gráfica </span>
+                                            <span id="PLGraficaCxP" runat="server" class="caption-subject bold uppercase">Cuentas por Pagar no productores - Gráfica </span>
-                                        </div>
-                                        <div class="actions">
-                                            <div class="btn-group">
-                                            </div>
                                         </div>
                                         <div class="tools">
                                             <a href="javascript:;" class="collapse"></a>
@@ -507,7 +462,17 @@
                     align: 'left'
                 },
                 legend: {
-                    enabled: false
+                    enabled: false,
+                    // esto es para la grafica de pie
+                    layout: 'vertical',
+                    align: 'right',
+                    width: 220,
+                    verticalAlign: 'middle',
+                    borderWidth: 0,
+                    useHTML: true,
+                    labelFormatter: function () {
+                        return '<div style="width:190px"><span class="abbr">' + this.name + '</br>' + '</span><span style="float:left">' + this.y.toLocaleString() + this.unit + '</span><span style="float:right">' + '$' + this.y2.toLocaleString(undefined, { minimumFractionDigits: 2, maximumFractionDigits: 2 }) + '</span></div>';
+                    },
                 },
                 xAxis: {
                     type: 'category'
@@ -547,6 +512,10 @@
                 //    },
                 //    //footerFormat: '{point.key}'
                 //},
+                tooltip: {
+                    //valuePrefix: '$',
+                    valueSuffix: " " + '{point.unit}'
+                },
                 plotOptions: {
                     series: {
                         animation: true,
@@ -577,9 +546,14 @@
                         }
                     },
                     pie: {
+                        allowPointSelect: true,
+                        cursor: 'pointer',
                         dataLabels: {
-                            enabled: true
+                            enabled: true,
-                        }
+                            distance: -30,
+                            format: '{point.percentage:.1f} %'
+                        },
+                        showInLegend: true
                     }
                 },
                 series: [
@@ -594,11 +568,11 @@
             //AmCharts.makeChart("chartdiv_vxp", { ...chartconfig, type: "serial", dataProvider: json["VxP"] });  // Ventas x Producto
 
             $('#' + "chartdiv_vxp").highcharts({ ...chartconfig, series: [{ ...chartconfig.series[0], data: customAccessor(json["VxP"]) }] })
-            $('#' + "chartdiv_compproductores").highcharts({ ...chartconfig, series: [{ ...chartconfig.series[0], type: 'pie', data: customAccessor(json["CompProductores"]) }] })
+            $('#' + "chartdiv_compproductores").highcharts({ ...chartconfig, chart: {}, legend: { ...chartconfig.legend, enabled: true }, series: [{ ...chartconfig.series[0], keys: ['name', 'y', 'y2', 'unit', 'unit2'], type: 'pie', data: customAccessorPie(json["CompProductores"]) }] })
             $('#' + "chartdiv_compacreed").highcharts({ ...chartconfig, series: [{ ...chartconfig.series[0], data: customAccessor(json["CompAcreed"]) }] })
             $('#' + "chartdiv_cxp192").highcharts({ ...chartconfig, series: [{ ...chartconfig.series[0], data: customAccessor(json["CxP192"]) }] })
             $('#' + "chartdiv_cxp").highcharts({ ...chartconfig, series: [{ ...chartconfig.series[0], data: customAccessor(json["CxP"]) }] })
-            $('#' + "chartdiv_cxc").highcharts({ ...chartconfig, series: [{ ...chartconfig.series[0], data: customAccessor(json["CxC"]) }, { type: 'line', data: customAccessor(json["CxCR"]) }] })
+            $('#' + "chartdiv_cxc").highcharts({ ...chartconfig, series: [{ ...chartconfig.series[0], data: customAccessor(json["CxC"]) }, { ...chartconfig.series[0], type: 'line', data: customAccessor(json["CxCR"]) }] })
 
             function customAccessor(data) {
                 const newData = [];
@@ -609,10 +583,18 @@
                         newData.push([point.Texto, point.Valor, point.Unidad]);
                     }
                 });
-                //newData.sort(function (a, b) {
+                return newData;
-                //    return a[0] > b[0] ? 1 : -1;
+            }
-                //});
+
-                //console.log(JSON.stringify(newData))
+            function customAccessorPie(data) {
+                const newData = [];
+                data.forEach(function (point, index) {
+                    if (point.Texto == "Otros") {
+                        newData.push({ name: point.Texto, y: point.Cantidad, y2: point.Importe, unit: point.UnidadC, unit2:point.UnidadI, color: '#000000' });
+                    } else {
+                        newData.push([point.Texto, point.Cantidad, point.Importe, point.UnidadC, point.UnidadI]);
+                    }
+                });
                 return newData;
             }
 

General/RepIndicadorResumen.aspx.vb

@@ -83,38 +83,51 @@ Partial Class General_RepIndicadorResumen
             GvCxC.HeaderRow.Cells(2).Text = "<a href=""/Ventas/RepRecuperacion.aspx"" target=""_blank"">Recuperado</a>"
         End If
 
-        'Mostrar gráficos solo si hay datos en su respectiva tabla
+        'Mostrar gráficos y totales en portlets solo si hay datos en su respectiva tabla
         If GvVxP.Rows.Count > 0 Then
             UPGraficaVxP.Visible = True
+            PLVxPTot.InnerHtml = "<span style=""font-weight:800"">" + "Cantidad: " + "</span>" + String.Format("{0:n} Kg", CType(GvVxP.DataSource, DataTable).SUM("Cantidad", "Orden IS NOT NULL")) _
+                               + "<span style=""font-weight:800; margin-left:1em"">" + "Total: " + "</span>" + String.Format("{0:c} MXN", CType(GvVxP.DataSource, DataTable).SUM("SubTotalMN", "Orden IS NOT NULL"))
         Else
             UPGraficaVxP.Visible = False
+            PLVxPTot.InnerHtml = Nothing
         End If
         If GvCompProductores.Rows.Count > 0 Then
             UPGraficaCompProductores.Visible = True
+            PLCompProductoresTot.InnerHtml = "<span style=""font-weight:800"">" + "Cantidad: " + "</span>" + String.Format("{0:n} Kg", CType(GvCompProductores.DataSource, DataTable).SUM("Cantidad", ""))
         Else
             UPGraficaCompProductores.Visible = False
+            PLCompProductoresTot.InnerHtml = Nothing
         End If
         If GvCompAcreed.Rows.Count > 0 Then
             UPGraficaCompAcreed.Visible = True
+            PLGastosTot.InnerHtml = "<span style=""font-weight:800"">" + "Importe: " + "</span>" + String.Format("{0:c} MXN", CType(GvCompAcreed.DataSource, DataTable).SUM("SubTotalMN", "CveClasificacion IS NOT NULL"))
         Else
             UPGraficaCompAcreed.Visible = False
+            PLGastosTot.InnerHtml = Nothing
         End If
         If GvCxC.Rows.Count > 0 Then
             UPGraficaCxC.Visible = True
-            'UPGraficaCxCRec.Visible = True
+            PLCxCTot.InnerHtml = "<span style=""font-weight:800"">" + "Saldo: " + "</span>" + String.Format("{0:c} MXN", CType(GvCxC.DataSource, DataTable).SUM("SaldoMN", "CveCliente IS NOT NULL"))
+            Dim Recuper As Double = CType(GvCxC.DataSource, DataTable).SUM("RecuperadoMN", "CveCliente IS NOT NULL")
+            If (Recuper > 0) Then PLCxCTot.InnerHtml += "<span style="" font-weight:800; margin-left:1em"">" + "Rec: " + "</span>" + String.Format("{0:c} MXN", CType(GvCxC.DataSource, DataTable).SUM("RecuperadoMN", "CveCliente IS NOT NULL"))
         Else
             UPGraficaCxC.Visible = False
-            'UPGraficaCxCRec.Visible = False
+            PLCxCTot.InnerHtml = Nothing
         End If
         If GvCxP192.Rows.Count > 0 Then
             UPGraficaCxP192.Visible = True
+            PLCxP192Tot.InnerHtml = "<span style=""font-weight:800"">" + "Saldo: " + "</span>" + String.Format("{0:c} MXN", CType(GvCxP192.DataSource, DataTable).SUM("SaldoMN", "CveProveedor IS NOT NULL"))
         Else
             UPGraficaCxP192.Visible = False
+            PLCxP192Tot.InnerHtml = Nothing
         End If
         If GvCxP.Rows.Count > 0 Then
             UPGraficaCxP.Visible = True
+            PLCxPTot.InnerHtml = "<span style=""font-weight:800"">" + "Saldo: " + "</span>" + String.Format("{0:c} MXN", CType(GvCxP.DataSource, DataTable).SUM("SaldoMN", "CveProveedor IS NOT NULL"))
         Else
             UPGraficaCxP.Visible = False
+            PLCxPTot.InnerHtml = Nothing
         End If
 
         'Si no había datos en ninguna tabla no cargar función de gráficos
@@ -149,6 +162,32 @@ Partial Class General_RepIndicadorResumen
             End If
         End If
     End Sub
+    Dim CompProductoresTotales As Decimal() = New Decimal(5 - 1) {}
+    Protected Sub GvCompProductores_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCompProductores.RowDataBound
+        'Esto tambien se podría meter en el Stored Procedure
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            CompProductoresTotales(0) += Convert.ToDecimal(IfNull(DataBinder.Eval(e.Row.DataItem, "Cantidad"), 0))
+            CompProductoresTotales(1) += Convert.ToDecimal(IfNull(DataBinder.Eval(e.Row.DataItem, "SubTotal"), 0))
+            CompProductoresTotales(2) += Convert.ToDecimal(IfNull(DataBinder.Eval(e.Row.DataItem, "PUPromedioKG"), 0))
+            CompProductoresTotales(3) += Convert.ToDecimal(IfNull(DataBinder.Eval(e.Row.DataItem, "Saldo"), 0))
+            CompProductoresTotales(4) += Convert.ToDecimal(IfNull(DataBinder.Eval(e.Row.DataItem, "Abonado"), 0))
+        ElseIf e.Row.RowType = DataControlRowType.Footer Then
+            'Movemos el pie a la primera fila de la tabla
+            Dim footerRow As GridViewRow = e.Row
+            GvCompProductores.Controls(0).Controls.Remove(footerRow)
+            GvCompProductores.Controls(0).Controls.AddAt(1, footerRow)
+            'Ahora se registran los datos
+            e.Row.Cells(0).Text = "Totales"
+            e.Row.Cells(1).Text = CompProductoresTotales(0).ToString("N")
+            e.Row.Cells(2).Text = CompProductoresTotales(1).ToString("C")
+            e.Row.Cells(3).Text = (CompProductoresTotales(2) / GvCompProductores.Rows.Count).ToString("C") 'Promedio
+            e.Row.Cells(4).Text = CompProductoresTotales(3).ToString("C")
+            e.Row.Cells(5).Text = CompProductoresTotales(4).ToString("C")
+            For i As Integer = 1 To e.Row.Cells.Count - 1
+                e.Row.Cells(i).CssClass = "margenbound"
+            Next
+        End If
+    End Sub
     Protected Sub GvComprasAcreed_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCompAcreed.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
             If e.Row.DBCampo("CveClasificacion") = "" Then
@@ -230,32 +269,40 @@ Partial Class General_RepIndicadorResumen
         'Dim group_resto_vxp = From e In resto_vxp Group e By e.Texto Into gpo = Group
         'Dim group_resto_vxp = resto_vxp.GroupBy(Function(e) New With {Key e.Texto, Key e.Valor, Key e.Color, Key e.Unidad}).ToList()
 
-        'Compras ProveedorClasificacion=192
+        'Compras Productores ProveedorClasificacion=192
         DtCompProductores.Reset()
         DtCompProductores.Columns.Add("Texto")
-        DtCompProductores.Columns.Add("Valor")
+        DtCompProductores.Columns.Add("Cantidad")
-        DtCompProductores.Columns.Add("Unidad")
+        DtCompProductores.Columns.Add("Importe")
+        DtCompProductores.Columns.Add("UnidadC")
+        DtCompProductores.Columns.Add("UnidadI")
         For Each Dr As DataRow In GvCompProductores.DataSource.Rows
             Dim Row = DtCompProductores.NewRow()
             Row("Texto") = Dr("RazonSocial").ToString
-            Row("Valor") = Dr("Cantidad").ToString.FormatoNumero
+            Row("Cantidad") = Dr("Cantidad").ToString.FormatoNumero
-            Row("Unidad") = "Kg"
+            Row("Importe") = Dr("SubTotal").ToString.FormatoNumero
+            Row("UnidadC") = "Kg"
+            Row("UnidadI") = "MXN"
             DtCompProductores.Rows.Add(Row)
         Next
-        Dim comp_productores = From s In DtCompProductores.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Unidad = s("Unidad").ToString()}
+        Dim comp_productores = From s In DtCompProductores.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Cantidad = s("Cantidad").ToString().ToDouble(), .Importe = s("Importe").ToString().ToDouble(), .UnidadC = s("UnidadC").ToString(), .UnidadI = s("UnidadI").ToString()}
         Dim group_comp_productores = comp_productores.GroupBy(Function(x) x.Texto).[Select](Function(g) New With {
             .Texto = g.Key,
-            .Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
+            .Cantidad = Math.Round(g.Sum(Function(x) x.Cantidad), 2),
-            .Unidad = "MXN"
+            .Importe = Math.Round(g.Sum(Function(x) x.Importe), 2),
+            .UnidadC = "Kg",
+            .UnidadI = "MXN"
         }).ToDataTable
-        Dim top_comp_productores = From s In group_comp_productores.AsEnumerable().Take(10) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Unidad = s("Unidad").ToString()}
+        Dim top_comp_productores = From s In group_comp_productores.AsEnumerable().Take(10) Select New With {.Texto = s("Texto").ToString(), .Cantidad = s("Cantidad").ToString().ToDouble(), .Importe = s("Importe").ToString().ToDouble(), .UnidadC = s("UnidadC").ToString(), .UnidadI = s("UnidadI").ToString()}
-        Dim resto_comp_productores = From s In group_comp_productores.AsEnumerable().Skip(10) Select New With {.Texto = "Otros", .Valor = s("Valor").ToString().ToDouble(), .Unidad = s("Unidad").ToString()}
+        Dim resto_comp_productores = From s In group_comp_productores.AsEnumerable().Skip(10) Select New With {.Texto = "Otros", .Cantidad = s("Cantidad").ToString().ToDouble(), .Importe = s("Importe").ToString().ToDouble(), .UnidadC = s("UnidadC").ToString(), .UnidadI = s("UnidadI").ToString()}
         Dim group_resto_comp_productores = resto_comp_productores.GroupBy(Function(x) x.Texto).[Select](Function(g) New With {
             .Texto = "Otros",
-            .Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
+            .Cantidad = Math.Round(g.Sum(Function(x) x.Cantidad), 2),
-            .Unidad = "MXN"
+            .Importe = Math.Round(g.Sum(Function(x) x.Importe), 2),
+            .UnidadC = "Kg",
+            .UnidadI = "MXN"
         })
-        Dim query_comp_productores = top_comp_productores.Union(group_resto_comp_productores).OrderByDescending(Function(x) x.Valor)
+        Dim query_comp_productores = top_comp_productores.Union(group_resto_comp_productores).OrderByDescending(Function(x) x.Cantidad)
 
         'Compras TipoProveedor=1 Acreedores (Gastos)
         DtCompAcreed.Reset()
@@ -403,6 +450,7 @@ Partial Class General_RepIndicadorResumen
         })
         Dim query_cxp = top_cxp.Union(group_resto_cxp).OrderByDescending(Function(x) x.Valor)
 
+
         'Serializar datos agrupándolos por su respectivo DataTable, todos en un solo JSON
         Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.VxP = query_vxp, .CompProductores = query_comp_productores, .CompAcreed = query_comp_acreed, .CxC = query_cxc, .CxCR = query_cxcr, .CxP192 = query_cxp192, .CxP = query_cxp})
         'Alert(json)

General/SaldosIniciales.aspx.vb

@@ -647,7 +647,7 @@ Partial Class General_SaldosIniciales
 
         Dim DTCuentasContables As New DataTable
 
-        If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
+        If UsuarioActual.Empresa.TipoContabilizacion = 1 Or UsuarioActual.CveEmpresa.Contiene(172) Then
 
             Dim ObjConta As New ClsContabilidad
             If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
@@ -2365,14 +2365,14 @@ Partial Class General_SaldosIniciales
 
         DTClasificaiones.CaseSensitive = False
 
-        For Each dRow As DataRow In dt.Rows
+        For Each dRow As DataRow In dt.FiltraParametros(" LEN(Clasificacion) > 0 ").Rows
 
 
-            Dim Clasificacion As String = dRow("Clasificacion").ToString().Trim
+            Dim Clasificacion As String = dRow("Clasificacion").ToString().Trim.Replace("\r\n", "").Replace(vbCrLf, "").Replace(vbCr, "")
-            Dim Categoria As String = dRow("Categoria").ToString().Trim
+            Dim Categoria As String = dRow("Categoria").ToString().Trim.Replace("\r\n", "").Replace(vbCrLf, "").Replace(vbCr, "")
-            Dim UsoClasificacion As String = dRow("UsoClasificacion").ToString().Trim.ToUpper
+            Dim UsoClasificacion As String = dRow("UsoClasificacion").ToString().Trim.ToUpper.Replace("\r\n", "").Replace(vbCrLf, "").Replace(vbCr, "")
-            Dim CuentaContableIngreso As String = dRow("CuentaContableIngreso").ToString().Trim.Replace("-", "")
+            Dim CuentaContableIngreso As String = dRow("CuentaContableIngreso").ToString().Trim.Replace("-", "").Replace("\r\n", "").Replace(vbCrLf, "").Replace(vbCr, "")
-            Dim CuentaContableGasto As String = dRow("CuentaContableGasto").ToString().Trim.Replace("-", "")
+            Dim CuentaContableGasto As String = dRow("CuentaContableGasto").ToString().Trim.Replace("-", "").Replace("\r\n", "").Replace(vbCrLf, "").Replace(vbCr, "")
 
             Dim CveClasificacion As Integer = -1
             Dim CveUsoClasificacion As Integer = -1
@@ -2441,13 +2441,19 @@ Partial Class General_SaldosIniciales
                 Else
                     ErrorProceso = True
                 End If
+            Else
+
+                If Not ObjClasificaciones.UpdateClasificacion(Clasificacion, "-1", -1, "-1", -1, "-1", -1, "-1", True, True, CveCategoria, UsuarioActual.CveUsuario, CveClasificacion, UsoClasificacion:=CveUsoClasificacion) Then
+                    ErrorProceso = True
+                End If
+
             End If
 
 
             If Not ErrorProceso Then
 
                 If CveCuentaContableIngreso > 0 Then
-                    If Not AsignacionCuenta(ObjConta, 4, CveCuentaContableIngreso, -1, -1, -1, -1, UsuarioActual.CveEmpresa, CveClasificacion) Then
+                    If Not AsignacionCuenta(ObjConta, 4, CveCuentaContableIngreso, -1, -1, -1, -1, UsuarioActual.CveEmpresa, CveClasificacion, OpActualizarClasificacion:=True) Then
                         ErrorProceso = True
                         Alert("Se presento un error al guardar en asignaciones", TipoMensaje.MsgAdvertencia)
                         Exit For
@@ -2455,7 +2461,7 @@ Partial Class General_SaldosIniciales
                 End If
 
                 If CveCuentaContableGasto > 0 Then
-                    If Not AsignacionCuenta(ObjConta, 6, CveCuentaContableGasto, -1, -1, -1, -1, UsuarioActual.CveEmpresa, CveClasificacion) Then
+                    If Not AsignacionCuenta(ObjConta, 6, CveCuentaContableGasto, -1, -1, -1, -1, UsuarioActual.CveEmpresa, CveClasificacion, OpActualizarClasificacion:=True) Then
                         ErrorProceso = True
                         Alert("Se presento un error al guardar en asignaciones", TipoMensaje.MsgAdvertencia)
                         Exit For
@@ -2890,7 +2896,7 @@ Partial Class General_SaldosIniciales
 
 
     Private Function AsignacionCuenta(ObjContabilidad As ClsContabilidad, CveConceptoContable As Integer, CveCuentaContable As Integer, CveBancoCuenta As Integer, CveProveedor As Integer, CveCliente As Integer,
-                                      CvePersonal As Integer, CveEmpresa As Integer, CveClasificacion As Integer) As Boolean
+                                      CvePersonal As Integer, CveEmpresa As Integer, CveClasificacion As Integer, Optional OpActualizarClasificacion As Boolean = False) As Boolean
 
         Dim Respuesta As Boolean = False
 
@@ -2898,7 +2904,7 @@ Partial Class General_SaldosIniciales
 
         If ObjContabilidad.AddCuentasAsignaciones(CveConceptoContable, CveEmpresa, CveCuentaContable, -1,
                                       CveProveedor, CveCliente, CvePersonal, CveClasificacion, -1, 0, CveBancoCuenta:=CveBancoCuenta, CveConceptoNomina:=-1, CveSubProyecto:=-1, CveActivoFijo:=-1,
-                                      CveTipoGasto:=-1, RegeneraCuenta:=False) Then
+                                      CveTipoGasto:=-1, RegeneraCuenta:=False, OpActualizarClasificacion:=OpActualizarClasificacion) Then
             Respuesta = True
         End If
 

Inventarios/EntradasSalidas.aspx

@@ -706,7 +706,7 @@
                                           <div class="row rowpadding"  >
                                              <label class="col-md-3">Direccón:</label>
                                              <div class="col-md-9">
-                                                  <asp:DropDownList ID="DdlDireccionEnvio" runat="server"   CssClass="form-control input-sm select2me" AppendDataBoundItems="true" DataTextField="SucursalClienteVentaDireccion" DataValueField="CveDireccionEnvio" Width="180px" Visible="false" >
+                                                  <asp:DropDownList ID="DdlDireccionEnvio" runat="server"   CssClass="form-control input-sm select2me" AppendDataBoundItems="true" DataTextField="SucursalClienteVentaDireccion" DataValueField="CveDireccionEnvio" Width="180px" Visible="true" >
                                                 <asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>
                                             </asp:DropDownList>
                                              </div>

Inventarios/EntradasSalidas.aspx.vb

@@ -373,7 +373,7 @@ Partial Class Inventarios_EntradasSalidas
             End If
 
 
-            If IfNull(Request("APOYO"), "").ToString = "1" Then
+            If IfNull(Request("AL"), "").ToString = "1" Then
                 DivEmitirTransitorio.Visible = True
                 EsApoyoLogistico = True
             End If
@@ -643,7 +643,8 @@ Partial Class Inventarios_EntradasSalidas
         End If
 
         If EsApoyoLogistico Then
-            DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (27)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
+            DdlAlmacen.Items.Clear()
+            DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (27)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
         End If
 
         DdlAlmacenInventarioFisico.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
@@ -1435,7 +1436,7 @@ Partial Class Inventarios_EntradasSalidas
     Private Sub AgregarPS()
 
 
-        Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
+        Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlProducto2.SelectedValue.ToEntero).FiltroPrimero("")
         If ChkEmitirTimbrado.Checked AndAlso ChkEmitirCartaPorte.Checked Then
             If Not ValidaPSSAT(DrPS) Then
                 Exit Sub
@@ -2040,14 +2041,21 @@ Partial Class Inventarios_EntradasSalidas
 
                             If Not ErrorAC And Not ErrorMovInv Then
 
-                                If ChkEmitirTimbrado.Checked Then
+
+                                If Not DdlDireccionEnvio.SelectedValue.ToEntero > 0 Then
+                                    ErrorMovInv = True
+                                    Alert("La direccion destino es requerida.", TipoMensaje.MsgAdvertencia)
+                                End If
+
+
+                                If ChkEmitirTimbrado.Checked AndAlso Not ErrorMovInv Then
 
                                     Dim ObjGral As New ClsGenerales(ObjInventario.IniciaTransacSQL)
                                     Dim CveSubProyectoTimbre As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveAlmacen = {DdlAlmacen.SelectedValue}").Rows(0)("CveSubProyecto").ToString.ToEntero
                                     Dim Fechallegada As DateTime = (TxtFechaLlegada.Text & " 23:59:59").ToDateTime
 
-                                    Dim CveEntregaAlmacen As Integer = ObjGral.AddInvEntregaAlmacenRuta(CveSubProyectoTimbre, -1, -1, CveMovimiento, DdlChofer.SelectedValue.ToEntero, DdlUnidadCamion.SelectedValue.ToEntero, TxtFechaEntrega.Text.ToDate, TxtFechaLlegada.Text.ToDate, "T", "", "", MinFecha, 1, 1, TxtDistancia.Text.ToEntero,
+                                    Dim CveEntregaAlmacen As Integer = ObjGral.AddInvEntregaAlmacenRuta(CveSubProyectoTimbre, -1, DdlDireccionEnvio.SelectedValue.ToEntero, CveMovimiento, DdlChofer.SelectedValue.ToEntero, DdlUnidadCamion.SelectedValue.ToEntero, TxtFechaEntrega.Text.ToDate, TxtFechaLlegada.Text.ToDate, "T", "", "", MinFecha, 1, 1, TxtDistancia.Text.ToEntero,
-                                                                                    CveConfigAutoTransporte:=DdlConfigAuto.SelectedValue.ToEntero, CveCamionRemolque1:=DdlRemolque1.SelectedValue.ToEntero, CveCamionRemolque2:=DdlRemolque2.SelectedValue.ToEntero)
+                                                                                        CveConfigAutoTransporte:=DdlConfigAuto.SelectedValue.ToEntero, CveCamionRemolque1:=DdlRemolque1.SelectedValue.ToEntero, CveCamionRemolque2:=DdlRemolque2.SelectedValue.ToEntero)
 
                                     If CveEntregaAlmacen > 0 Then
                                         CveTimbre = ObjGral.AddGralTimbre("Tra", CveSubProyectoTimbre, TxtFechaEntrega.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen:=CveEntregaAlmacen, AplicaCP:=ChkEmitirCartaPorte.Checked)
@@ -2068,7 +2076,7 @@ Partial Class Inventarios_EntradasSalidas
 
 
 
-                            If Not ErrorAC And Not ErrorMovInv Then
+                                If Not ErrorAC And Not ErrorMovInv Then
                                 Dim Msg As New StringBuilder
                                 Msg.AppendFormat("<br/>El Movimiento se registro con el Folio: <b><a href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}'>{0}</a></b>", ObjInventario.Folio, CveMovimiento)
                                 Msg.AppendFormat("<br/><br/> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento)))
@@ -2385,7 +2393,13 @@ Partial Class Inventarios_EntradasSalidas
         If UsuarioActual.CveUsuario.Contiene(2185, 100) Then
             DdlConcepto.Items.Add(New ListItem("Entrada por Ajuste", "32"))
             DdlConcepto.Items.Add(New ListItem("Salida por Ajuste", "34"))
+        End If
 
+
+        If EsApoyoLogistico Then
+            DdlConcepto.Items.Clear()
+            DdlConcepto.Items.Add(New ListItem("Selecione Uno", "-1"))
+            DdlConcepto.Items.Add(New ListItem("Salida de Almacen", "3"))
         End If
 
         DdlConcepto.SelectedValue = "-1"
@@ -3881,7 +3895,7 @@ Partial Class Inventarios_EntradasSalidas
                         Else
                             If ObjInventario.Modulo.Contiene("TA/G1", "Recons") Then
                                 Contabilizable = False
-                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 289, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, ImporteMX:=DtCostos.SUMD("Total").RoundSQL, Contabilizable:=Contabilizable) Then
+                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 68, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, ImporteMX:=DtCostos.SUMD("Total").RoundSQL, Contabilizable:=Contabilizable) Then
                                     ErrorMovInv = True
                                 End If
                             Else

Inventarios/RepEntradasSalidas.aspx

@@ -1,22 +1,37 @@
 <%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepEntradasSalidas.aspx.vb" Inherits="Inventarios_ReporteEntradasSalidas" %>
 
 <asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
-    <li>
+    <asp:UpdatePanel ID="UPAcciones" runat="server" UpdateMode="Conditional">
-        <asp:LinkButton ID="LnkImprimir" runat="server"><i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
+        <ContentTemplate>
-    </li>
+        <li>
-    <li>
+            <asp:LinkButton ID="LnkImprimir" runat="server"><i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
-        <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
+        </li>
-    </li>
+        <li>
-    <li>
+            <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
-        <asp:LinkButton ID="LnkFormatoInventario" runat="server" Visible="false"><i class="fa fa-ad-excel"></i> Generar Formato Inventario</asp:LinkButton>
+        </li>
-    </li>
 
-    <li>
+        <li>
-        <asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i>  Personalizar Columnas</asp:HyperLink>
+            <asp:LinkButton ID="LnkExcelPersonalizado" runat="server" Visible="false"><i class="fa fa-ad-excel"></i> Excel Personalizado</asp:LinkButton>
-    </li>
+        </li>
- <%--   <li>
+
+        <li>
+            <asp:LinkButton ID="LnkFormatoInventario" runat="server" Visible="false"><i class="fa fa-ad-excel"></i> Generar Formato Inventario</asp:LinkButton>
+        </li>
+
+        <li>
+            <asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i>  Personalizar Columnas</asp:HyperLink>
+        </li>
+        <%--   <li>
         <asp:LinkButton ID="Lnkcompuxlsinventarios" OnClick="Lnkcompuxlsinventarios_Click" runat="server"><i class="fa fa-ad-excel"></i> Generar Inventarios HP</asp:LinkButton>
     </li>--%>
+        </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="LnkImprimir"  />
+            <asp:PostBackTrigger ControlID="LnkExportar"  />
+            <asp:PostBackTrigger ControlID="LnkExcelPersonalizado"  />
+            <asp:PostBackTrigger ControlID="LnkFormatoInventario"  />
+        </Triggers>
+    </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="Css" runat="Server">
         <style>
@@ -119,7 +134,7 @@
                     <div class="row">
                         <div class="col-md-1 truncate">Proveedor</div>
                         <div class="col-md-2">
-                            <ADS:DropDownLost ID="DdlProveedor" runat="server" CssStyle="width: 100%;" data-metodo="getproveedores" CssClassDdl="select2me " Width="100%" DataValueField="CveProveedor" DataTextField="RazonSocial"></ADS:DropDownLost>
+                            <ADS:Dropdownlost ID="DdlProveedor" runat="server" CssStyle="width: 100%;" data-metodo="getproveedores" CssClassDdl="select2me " Width="100%" DataValueField="CveProveedor" DataTextField="RazonSocial"></ADS:Dropdownlost>
                         </div>
                         <div class="col-md-1 truncate">Categoría</div>
                         <div class="col-md-2">
@@ -127,59 +142,59 @@
                         </div>
                         <div class="col-md-1 truncate">Clasificación</div>
                         <div class="col-md-2">
-                            <asp:DropDownList ID="DdlClasificacion" runat="server" AutoPostBack="true"  OnSelectedIndexChanged="DdlClasificacion_SelectedIndexChanged"  CssClass="form-control input-sm select2me" Width="100%" DataValueField="CveClasificacion" DataTextField="Clasificacion"></asp:DropDownList>
+                            <asp:DropDownList ID="DdlClasificacion" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlClasificacion_SelectedIndexChanged" CssClass="form-control input-sm select2me" Width="100%" DataValueField="CveClasificacion" DataTextField="Clasificacion"></asp:DropDownList>
-                        </div>
-                        </div>
-                     <div class="row">
-
-                        <div class="col-md-1 truncate"   >Producto</div>
-                        <div class="col-md-2">
-                             <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width: 100%;" CssClass="DdlPS" CssClassDdl="select2me " DataTextField="PSCodigo" DataValueField="CvePS" />
-                            <%--<asp:DropDownList ID="DdlPS" CssClass="form-control input-sm select2me" runat="server" Width="100%" DataTextField="PS" DataValueField="CvePS"></asp:DropDownList>--%>
-                        </div>
-                        <div runat="Server" id="DivMarca">
-                            <div class="col-md-1 truncate"  >Marca</div>
-                            <div class="col-md-2">
-                                <asp:DropDownList ID="DdlMarca" runat="server" CssClass="form-control input-sm select2me" Width="100%" DataValueField="CveMarca" DataTextField="Marca"></asp:DropDownList>
-                            </div>
                         </div>
                     </div>
-                     <div class="row">
+                    <div class="row">
+
+                        <div class="col-md-1 truncate">Producto</div>
+                        <div class="col-md-2">
+                            <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width: 100%;" CssClass="DdlPS" CssClassDdl="select2me " DataTextField="PSCodigo" DataValueField="CvePS" />
+                            <%--<asp:DropDownList ID="DdlPS" CssClass="form-control input-sm select2me" runat="server" Width="100%" DataTextField="PS" DataValueField="CvePS"></asp:DropDownList>--%>
+                        </div>
 
                         <div class="col-md-1 truncate">Personal</div>
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlPersonal" runat="server" CssClass="form-control input-sm select2me" Width="100%" DataValueField="CvePersonal" DataTextField="CodigoNombreCompleto"></asp:DropDownList>
                         </div>
 
-                          <div class="col-md-1 truncate">Tipo Almacén:</div>
+                    </div>
+                    <div class="row">
+
+                        <div runat="Server" id="DivMarca">
+                            <div class="col-md-1 truncate">Marca</div>
                             <div class="col-md-2">
-                                <asp:ListBox ID="DdlTipoAlmacen"  SelectionMode="Multiple" CssClass="form-control  ddlFiltros input-sm select2me Widthall" DataTextField="TipoAlmacen" DataValueField="CveTipoAlmacen"  Style="width: 100%;" runat="server"></asp:ListBox>
+                                <asp:ListBox ID="DdlMarca" SelectionMode="Multiple" CssClass="form-control  ddlFiltros input-sm select2me Widthall" DataTextField="Marca" DataValueField="CveMarca" Style="width: 100%;" runat="server"></asp:ListBox>
                             </div>
-                          <div class="col-md-1 truncate">Modalidad:</div>
+                        </div>
-                            <div class="col-md-1">
+
-                                <asp:DropDownList ID="DdlModalidadFiltro" runat="server" CssClass="input-small input-sm select2me" Width="100%">
+                        <div class="col-md-1 truncate">Tipo Almacén:</div>
-                                    <asp:ListItem Text="Todas" Value="-1" Selected="True"> </asp:ListItem>
+                        <div class="col-md-2">
-                                    <asp:ListItem Text="Contable" Value="1"></asp:ListItem>
+                            <asp:ListBox ID="DdlTipoAlmacen" SelectionMode="Multiple" CssClass="form-control  ddlFiltros input-sm select2me Widthall" DataTextField="TipoAlmacen" DataValueField="CveTipoAlmacen" Style="width: 100%;" runat="server"></asp:ListBox>
-                                    <asp:ListItem Text="Solo Existencia" Value="0"></asp:ListItem>
+                        </div>
-                                </asp:DropDownList>
+                        <div class="col-md-1 truncate">Modalidad:</div>
-                            </div>
+                        <div class="col-md-1">
-                         <div class="col-md-1" id="DivClaisficacionLabel" runat="server">Clasificación 2:</div>
+                            <asp:DropDownList ID="DdlModalidadFiltro" runat="server" CssClass="input-small input-sm select2me" Width="100%">
-                         <div class="col-md-2 "  >
+                                <asp:ListItem Text="Todas" Value="-1" Selected="True"> </asp:ListItem>
-                                <asp:DropDownList ID="DdlClasificacion2" runat="server"  CssClass="form-control input-sm select2me" DataValueField="CveClasificacion" DataTextField="Clasificacion"  Width="100%">
+                                <asp:ListItem Text="Contable" Value="1"></asp:ListItem>
-                                </asp:DropDownList>
+                                <asp:ListItem Text="Solo Existencia" Value="0"></asp:ListItem>
-                         </div>
+                            </asp:DropDownList>
+                        </div>
+                        <div class="col-md-1" id="DivClaisficacionLabel" runat="server">Clasificación 2:</div>
+                        <div class="col-md-2 ">
+                            <asp:DropDownList ID="DdlClasificacion2" runat="server" CssClass="form-control input-sm select2me" DataValueField="CveClasificacion" DataTextField="Clasificacion" Width="100%">
+                            </asp:DropDownList>
+                        </div>
 
                     </div>
-                    <div id="DivFamiliaSubFamilia" style="display:none" class="row" runat="server" visible="false">
+                    <div id="DivFamiliaSubFamilia" style="display: none" class="row" runat="server" visible="false">
-                        
+
-                        <div class="col-md-1 truncate" >SubFamilia</div>
+                        <div class="col-md-1 truncate">SubFamilia</div>
                         <div class="col-md-2">
-                            <asp:DropDownList ID="DdlSubFamilia" CssClass="form-control input-sm select2me" runat="server"  Width="100%" DataTextField="Clasificacion" DataValueField="CveClasificacion"></asp:DropDownList>
+                            <asp:DropDownList ID="DdlSubFamilia" CssClass="form-control input-sm select2me" runat="server" Width="100%" DataTextField="Clasificacion" DataValueField="CveClasificacion"></asp:DropDownList>
                         </div>
                     </div>
-                     <div class="row">
+                    <div class="row">
-
-                          
                     </div>
                 </div>
             </div>
@@ -212,7 +227,7 @@
                 <Columns>
 
                     <%--0--%>
-                    <asp:HyperLinkField  DataNavigateUrlFields="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal,Tipo" DataNavigateUrlFormatString="~/Inventarios/RepExistenciasCostos.aspx?CvePS={0}&CveMoneda={1}&CveProveedor={2}&CveConcepto={3}&FechaI={4}&FechaF={5}&CveAlmacen={6}&CvePersonal={7}&Tipo={8}" Target="_blank" ItemStyle-Width="10%" HeaderText="Código" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" DataTextField="Codigo" />
+                    <asp:HyperLinkField DataNavigateUrlFields="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal,Tipo" DataNavigateUrlFormatString="~/Inventarios/RepExistenciasCostos.aspx?CvePS={0}&CveMoneda={1}&CveProveedor={2}&CveConcepto={3}&FechaI={4}&FechaF={5}&CveAlmacen={6}&CvePersonal={7}&Tipo={8}" Target="_blank" ItemStyle-Width="10%" HeaderText="Código" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" DataTextField="Codigo" />
                     <%--1--%>
                     <asp:HyperLinkField DataNavigateUrlFields="CvePS,CveMoneda,CveProveedor,CveConcepto,FechaI,FechaF,CveAlmacen,CvePersonal,Tipo" DataNavigateUrlFormatString="~/Inventarios/RepExistenciasCostos.aspx?CvePS={0}&CveMoneda={1}&CveProveedor={2}&CveConcepto={3}&FechaI={4}&FechaF={5}&CveAlmacen={6}&CvePersonal={7}&Tipo={8}" Target="_blank" ItemStyle-Width="10%" HeaderText="Código2" ControlStyle-CssClass="Texto" ItemStyle-HorizontalAlign="Left" Visible="False" DataTextField="Codigo2" />
                     <%--2--%>

Inventarios/RepEntradasSalidas.aspx.vb

@@ -55,8 +55,6 @@ Partial Class Inventarios_ReporteEntradasSalidas
         End Get
     End Property
 
-
-
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -73,7 +71,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
 
             CargaCombos()
 
-            GvM.DataBind()
+            GvM.DataBind(True)
             If Not IsNothing(Request("CveAlmacen")) Then
                 DdlAlmacen.SelectedValue = Request("CveAlmacen").ToString()
                 TxtFechaI.Text = "01/01/2000"
@@ -226,6 +224,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
         'Dim fechaF As String = If(TxtFechaF.Text.Trim <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
         FechaInicial = If(TxtFechaI.Text.Trim <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1")
         FechaFinal = If(TxtFechaF.Text.Trim <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
+        Dim Marcas As String = If(DdlMarca.GetSelectedValuesM = "", "-1", DdlMarca.GetSelectedValuesM)
         Dim TipoAlmacen As String = If(DdlTipoAlmacen.GetSelectedValuesM = "", "-1", DdlTipoAlmacen.GetSelectedValuesM)
         Dim Almacenes As String = If(DdlAlmacen.GetSelectedValuesM = "", "-1", DdlAlmacen.GetSelectedValuesM)
 
@@ -235,7 +234,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
 
         If Reporte.RepMovimientos(UsuarioActual.CveEmpresa, DdlMoneda.SelectedValue.ToEntero, FechaInicial, FechaFinal, DdlTipoMovimiento.SelectedValue.ToEntero, DdlProveedor.SelectedValue.ToEntero,
                                   Almacenes, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero,
-                                  DdlMovs.SelectedValue.ToEntero, CveMarca, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero, CveTipoAlmacen:=TipoAlmacen,
+                                  DdlMovs.SelectedValue.ToEntero, CveMarca:=Marcas, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero, CveTipoAlmacen:=TipoAlmacen,
                                   Modalidad:=DdlModalidadFiltro.SelectedValue.ToEntero) Then
             dt = Reporte.DtResultados
 
@@ -245,10 +244,8 @@ Partial Class Inventarios_ReporteEntradasSalidas
             rpt = dt
         End If
 
-
         Reporte.Dispose()
-        GvM.DataBind()
+        GvM.DataBind(True)
-
         UPPMov.Update()
     End Sub
 
@@ -321,7 +318,6 @@ Partial Class Inventarios_ReporteEntradasSalidas
                 e.Row.FCLabel("lbSaldoF2").Text = If(e.Row.DBCampo("SaldoFImp").ToString().ToDecimal = 0, "-", e.Row.DBCampo("SaldoFImp").ToDouble.ToString("N2"))
 
             End If
-
         End If
     End Sub
 
@@ -348,6 +344,9 @@ Partial Class Inventarios_ReporteEntradasSalidas
         ' GvM.ExportToExcel("Reporte de Entradas y Salidas")
         ImprimiReporte("EXCEL")
     End Sub
+    Private Sub LnkExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles LnkExcelPersonalizado.Click
+        GvM.ExportToExcel("EntradasSalidas_" + Now.ToShortDateString + ".xls")
+    End Sub
     Private Sub LnkImprimir_Click(sender As Object, e As EventArgs) Handles LnkImprimir.Click
         ImprimiReporte()
     End Sub
@@ -419,8 +418,14 @@ Partial Class Inventarios_ReporteEntradasSalidas
         ImprimirPDF(RutaPDF, If(FormatoInventario, dt.FiltraParametros("", "RazonSocial, PS  ASC"), dt), params, NombreArchivoDescarga, Formato:=Formato)
 
     End Sub
-    Private Sub BtnPersonalizar_Click(sender As Object, e As EventArgs) Handles BtnPersonalizar.Click
+
-        RegistraScript("$('#DivPersonalizar').modal('hide')")
+    Private Sub LnkFormatoInventario_Click(sender As Object, e As EventArgs) Handles LnkFormatoInventario.Click
+        ImprimiReporte("EXCEL", True)
+    End Sub
+#End Region
+
+#Region "PERSONALIZAR"
+    Private Sub MostrarOcultarColumnas(Optional Personalizo As Boolean = True)
         GvM.Columns(1).Visible = ChkCodigoAlterno.Checked
         GvM.Columns(2).Visible = ChkCodigoBarras.Checked
         GvM.Columns(3).Visible = ChkClasificacion2.Checked
@@ -495,13 +500,23 @@ Partial Class Inventarios_ReporteEntradasSalidas
             dvCan.Style.Add("width", "21%")
         End If
 
-        CargaDatos()
+        If Personalizo Then
+            LnkExcelPersonalizado.Visible = True
+        Else
+            LnkExcelPersonalizado.Visible = False
+        End If
+        UPAcciones.Update()
+
         UpEncabezado.Update()
+        UPPMov.Update()
     End Sub
 
-    Private Sub LnkFormatoInventario_Click(sender As Object, e As EventArgs) Handles LnkFormatoInventario.Click
+    Private Sub BtnPersonalizar_Click(sender As Object, e As EventArgs) Handles BtnPersonalizar.Click
-        ImprimiReporte("EXCEL", True)
+        MostrarOcultarColumnas()
+        RegistraScript("$('#DivPersonalizar').modal('hide')")
+        'CargaDatos()
     End Sub
+
 #End Region
 
 #Region "B I T A C O R A"

Inventarios/RepEntregaAlmacenRuta.aspx.cs

@@ -690,8 +690,8 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
             else
             {
                 //e.Row.Cells[11].Text = "";
-                e.Row.Cells[12].Text = "";
+                e.Row.Cells[14].Text = "";
-                e.Row.Cells[13].Text = "";
+                e.Row.Cells[15].Text = "";
             }
 
             if (e.Row.DataKey("Estatus").ToEntero() == 2)

Inventarios/ResguardoMaterial.aspx.vb

@@ -918,7 +918,7 @@ Partial Class Inventarios_ResguardoMaterial
                                     CveSeccionAlmacen = -1
                                 End If
                                 If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero,
-                                                                          Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=CveSeccionAlmacen,
+                                                                          Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=CveSeccionAlmacen, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate,
                                                                           Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString) Then
                                     TieneError = True
                                     MensajeError = "Ocurrió un error al guardar los movimientos de entrada"

LogIn.aspx.vb

@@ -11,7 +11,7 @@ Partial Class LogIn
 #Region "  PROPIEDADES  "
     Private Property CveUsuario As Integer
         Get
-            Return ViewState("CveUsuario").ToString.ToEntero
+            Return IfNull(ViewState("CveUsuario"), "-1").ToString.ToEntero
         End Get
         Set(value As Integer)
             ViewState("CveUsuario") = value

OC/OC.aspx

@@ -2366,7 +2366,7 @@
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtEnvioTel" runat="server" Width="100%" CssClass="form-control" CausesValidation="true"></asp:TextBox>
                                     <%--<asp:RequiredFieldValidator ID="RequiredFieldValidator17" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtEnvioTel" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Telefono''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>--%>
-                                    <ajax:MaskedEditExtender ID="MaskedEditExtender6" runat="server" TargetControlID="TxtEnvioTel" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
+                                    <ajax:MaskedEditExtender ID="MaskedEditExtender6" runat="server" TargetControlID="TxtEnvioTel" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
                                     <label for="<%= TxtEnvioTel.ClientID.ToString()%>">Telefono:</label>
                                 </div>
                                 <div class="form-group form-md-line-input input-iconright">

OS/OrdenesServicios.aspx

@@ -146,15 +146,17 @@
                                             <div class="col-md-4">
                                                 <asp:TextBox ID="TxtDescripcion" runat="server" MaxLength="500" Rows="3" TextMode="MultiLine" CssClass="form-control" />
                                             </div>
+
                                             <div class="col-md-2">
                                                 <b>Tipo de Orden:</b>
                                             </div>
                                             <div class="col-md-3" style="margin-top: 5px;text-align:left">
                                                 <asp:DropDownList ID="DdlTipoOrdenOS" CssClass="form-control input-sm select2me" runat="server" DataTextField="OrdenServicioTipo" DataValueField="CveOrdenServicioTipo" Width="100%" Height="30px">
                                                 </asp:DropDownList>
-                                                <asp:RequiredFieldValidator ID="RFVTipoOS" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlTipoOrdenOS" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Orden''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                <asp:RequiredFieldValidator ID="RFVTipoOS" runat="server" CssClass="help-block errorimput" Display="Dynamic" ControlToValidate="DdlTipoOrdenOS" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Orden''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                 <ajax:ValidatorCalloutExtender ID="VCETipoOS" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoOS" Width="100px"></ajax:ValidatorCalloutExtender>
                                             </div>
+
                                         </div>
 
                                          <div class="row" >
@@ -172,7 +174,7 @@
                                             </div>
                                             <div class="col-md-4" style="margin-top: 5px"  id="DVDatosAdicionalesAcum3" runat="server" visible="false" >                                                
                                                 <asp:TextBox ID="TxtTelefono" CssClass="form-control" runat="server" MaxLength="10"></asp:TextBox>
-                                                <ajax:MaskedEditExtender ID="MaskedEditExtender4" runat="server" TargetControlID="TxtTelefono" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
+                                                <ajax:MaskedEditExtender ID="MaskedEditExtender4" runat="server" TargetControlID="TxtTelefono" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
                                             </div>
                                           
                                         </div>
@@ -314,10 +316,10 @@
                                         <asp:Panel ID="PnlTitulosPS" runat="server">
                                             <table border="0" class="table table-striped mygvps Widthall">
                                                 <tr class="Titulos TextTab">
-                                                    <th>#</th>
+                                                    <th  style="width:50px">#</th>
-                                                    <th>Cant</th>
+                                                    <th  style="width:50px">Cant</th>
                                                     <th>Servicio</th>
-                                                    <th id="thCuentaEquipo" runat="server">
+                                                    <th id="thCuentaEquipo" runat="server" style="width:200px">
                                                         
                                                         <asp:Label runat="server" ID="LblCuentaEquipoTH"> Cuenta y/o Equipo</asp:Label><br />
                                                         <asp:DropDownList ID="DdlCuentaEquipo" runat="server" AutoPostBack="true" DataTextField="CuentaEquipo" DataValueField="CveCuentaEquipo" CssClass="form-control input-sm select2me" Width="15%">
@@ -326,7 +328,7 @@
                                                     <th>
                                                         <asp:Label ID="LblA" runat="server" ToolTip="Archivo" Text="<i class='fa fa-download'></i>"></asp:Label>
                                                     </th>
-                                                    <th>Comandos</th>
+                                                    <th  style="width:250px">Comandos</th>
                                                 </tr>
                                             </table>
                                         </asp:Panel>

OS/OrdenesServicios.aspx.vb

@@ -6,6 +6,7 @@ Imports System.IO
 Imports System.Data
 Imports Microsoft.Reporting.WebForms
 Imports ADSNetLibrary.SIGAPI.Models.Sistema
+Imports Telerik.Charting.Styles
 
 'Imports msExcel = Microsoft.Office.Interop.Excel
 'Imports VBIDE
@@ -375,19 +376,24 @@ Partial Class OS_OrdenesServicios
                 If CveOS = -1 Then
                     CargaCliente(-1, 1, True)
                 End If
-
-
             Else
-                    LblCuentaEquipoTH.Visible = False
+                LblCuentaEquipoTH.Visible = False
                 DdlCuentaEquipo.Visible = False
             End If
 
 
             If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
 
-                'DivDetalles.Attributes.Add("style", "display:none") 'No se usa .visible = false  pora que la llamada a updatepanel no cause errores de js en el cliente
+                DivMateriales.Attributes.Add("style", "display:none") 'No se usa .visible = false  pora que la llamada a updatepanel no cause errores de js en el cliente
                 TREstatus.Visible = False
 
+                LblCuentaEquipoTH.Visible = False
+                DdlCuentaEquipo.Visible = False
+
+
+
+
+
                 TREstatus2.Visible = If(TipoEstatus.Contiene(4, 5), False, True)
 
                 DdlPsModalFinalizar.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
@@ -1212,38 +1218,54 @@ Partial Class OS_OrdenesServicios
                             Dim Especificaciones As String = Row("Especificaciones").ToString
                             Dim ComentarioTecnico As String = Row("ComentarioTecnico").ToString
                             Dim Cantidad As Integer = Row("Cantidad").ToString.ToEntero
-                            Dim Archivo As New System.IO.FileInfo(Row("Archivo").ToString)
+
+
+
+                            Dim fname As String = ""
+
+                            If File.Exists(Row("Archivo").ToString) Then
+                                Dim Archivo As New System.IO.FileInfo("")
+                                fname = Archivo.Name
+                            End If
+
+
                             Dim CveUsuarioEntrego As Integer = If(Entregar = True, UsuarioActual.CveUsuario, -1)
                             Dim FechaEntrega As String = If(Entregar = True, Now.ToString("dd/MM/yyy"), "-1")
                             Dim Consecutivo As Integer = Row("Consecutivo").ToString.ToEntero
                             CveConsecutivo = Consecutivo
 
                             If CveOSDetalle > 0 Then
-                                If Not ObjOrdenServicio.UpdateOrdenesServiciosDetalle(CvePS, Cantidad, CveUsuarioEntrego, Observaciones, SeSuperviso, SeFacturara, Estatus, ComentarioTecnico, CveCuentaEquipo, Archivo.Name, "-1", FechaEntrega, CveOSDetalle, CveOS) Then
+                                If Not ObjOrdenServicio.UpdateOrdenesServiciosDetalle(CvePS, Cantidad, CveUsuarioEntrego, Observaciones, SeSuperviso, SeFacturara, Estatus, ComentarioTecnico, CveCuentaEquipo, fname, "-1", FechaEntrega, CveOSDetalle, CveOS) Then
                                     Errores = True
                                 End If
                             Else
-                                CveOSDetalle = ObjOrdenServicio.AddOrdenesServiciosDetalle(CveOS, CvePS, Cantidad, -1, CveUsuarioEntrego, Observaciones, SeSuperviso, SeFacturara, Estatus, CveCuentaEquipo, "-1", "-1", FechaEntrega, ComentarioTecnico, UsuarioActual.CveUsuario, Archivo:=Archivo.Name)
+                                CveOSDetalle = ObjOrdenServicio.AddOrdenesServiciosDetalle(CveOS, CvePS, Cantidad, -1, CveUsuarioEntrego, Observaciones, SeSuperviso, SeFacturara, Estatus, CveCuentaEquipo, "-1", "-1", FechaEntrega, ComentarioTecnico, UsuarioActual.CveUsuario, Archivo:=fname)
                                 If Not CveOSDetalle > 0 Then Errores = True
 
                             End If
 
-                            If Archivo.Name <> "-1" Then
-                                'Cambiar el nombre del archivo de CveUsuario-Consecutivo.ext a CveOS-Consecutivo.ext
-                                Dim ArchivoFinal As New System.IO.FileInfo(String.Format("{0}OS\Archivos\OS{1}-{2}{3}", UsuarioActual.Empresa.Ruta, CveOS, Consecutivo, System.IO.Path.GetExtension(Archivo.Extension)))
 
-                                If ArchivoFinal.Exists() Then
-                                    ArchivoFinal.Delete()
-                                End If
 
-                                'Mover el archivo de los temporales a OS
+                            If File.Exists(Row("Archivo").ToString) Then
-                                System.IO.File.Move(UsuarioActual.Empresa.Ruta & "\OS\Temp\" & Archivo.Name, UsuarioActual.Empresa.Ruta & "\OS\Archivos\" & ArchivoFinal.Name)
+                                Dim Archivo As New System.IO.FileInfo("")
+                                If Archivo.Name <> "-1" Then
+                                    'Cambiar el nombre del archivo de CveUsuario-Consecutivo.ext a CveOS-Consecutivo.ext
+                                    Dim ArchivoFinal As New System.IO.FileInfo(String.Format("{0}OS\Archivos\OS{1}-{2}{3}", UsuarioActual.Empresa.Ruta, CveOS, Consecutivo, System.IO.Path.GetExtension(Archivo.Extension)))
 
-                                If Not ObjOrdenServicio.UpdateOrdenesServiciosDetalleArchivo(ArchivoFinal.Name, ObjOrdenServicio.CveOSDetalle) Then
+                                    If ArchivoFinal.Exists() Then
-                                    Errores = True
+                                        ArchivoFinal.Delete()
+                                    End If
+
+                                    'Mover el archivo de los temporales a OS
+                                    System.IO.File.Move(UsuarioActual.Empresa.Ruta & "\OS\Temp\" & Archivo.Name, UsuarioActual.Empresa.Ruta & "\OS\Archivos\" & ArchivoFinal.Name)
+
+                                    If Not ObjOrdenServicio.UpdateOrdenesServiciosDetalleArchivo(ArchivoFinal.Name, ObjOrdenServicio.CveOSDetalle) Then
+                                        Errores = True
+                                    End If
                                 End If
                             End If
 
+
                             If TmpDTCaracteristica.FiltraParametros(String.Format("CveConsecutivoDetalle = {0}", Consecutivo)).Rows.Count > 0 Then
 
                                 For Each RowE As DataRow In TmpDTCaracteristica.FiltraParametros(String.Format("CveConsecutivoDetalle = {0}", Consecutivo)).Rows
@@ -1273,6 +1295,7 @@ Partial Class OS_OrdenesServicios
                                 Next
                             End If
                         End If
+
                     Next
                 Else
                     Errores = True
@@ -1575,10 +1598,10 @@ Partial Class OS_OrdenesServicios
     Protected Sub GVEventoBitacora_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEB.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
             If e.Row.RowIndex = 0 Then
-                e.Row.Cells(0).Width = Unit.Pixel(200)
+                e.Row.Cells(0).Width = 200
-                e.Row.Cells(1).Width = Unit.Pixel(200)
+                e.Row.Cells(1).Width = 200
-                e.Row.Cells(2).Width = Unit.Pixel(100)
+                e.Row.Cells(2).Width = 100
-                e.Row.Cells(3).Width = Unit.Pixel(500)
+                e.Row.Cells(3).Width = 500
             End If
             e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
         End If

OS/RepOrdenesServicios.aspx

@@ -75,12 +75,28 @@
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
-    <asp:ImageButton ID="ImgExcel" runat="server" ImageUrl="/Imagenes/IconoExcel.gif" Width="17px" Height="17px" />
+   <%-- <asp:ImageButton ID="ImgExcel" runat="server" ImageUrl="/Imagenes/IconoExcel.gif" Width="17px" Height="17px" />--%>
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
     Reporte de Ordenes de Servicio
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+
+
+
+  
+    <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <li>                
+                <asp:LinkButton ID="LnkExportar" runat="server" > <i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
+            </li>
+        </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="LnkExportar" />
+        </Triggers>
+    </asp:UpdatePanel>
+      
+
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
@@ -96,8 +112,7 @@
                         <div class="row">
                             <label class="col-md-1">Cliente: </label>
                             <div class="col-md-2">
-                                <asp:DropDownList CssClass="table-group-action-input form-control input-inline input-small input-sm select2me" ID="DdlClientes" DataTextField="Nombre" DataValueField="CveCliente" runat="server" AutoPostBack="true">
+                                <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
-                                </asp:DropDownList>
                             </div>
 
                             <label class="col-md-1 ">Centro de Costo:</label>
@@ -139,7 +154,7 @@
                         </div>
                     </div>
                     <div class="row">
-                        <label class="col-md-1 truncate">F.I.:</label>
+                        <label class="col-md-1 truncate">F.Inicio:</label>
                         <div class="col-md-2">
                             <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 140px !important; padding: 0px;">
                                 <asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
@@ -154,7 +169,7 @@
                                 <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
                         </div>
-                        <label class="col-md-1 truncate">F.F.:</label>
+                        <label class="col-md-1 truncate">F.Fin:</label>
                         <div class="col-md-2">
                             <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 140px !important; padding: 0px;">
                                 <asp:TextBox ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
@@ -226,6 +241,36 @@
                             <asp:Literal ID="LtlSubProyecto" runat="server" Text='<%# Eval("SubProyecto", "{0}")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                     <asp:TemplateField ItemStyle-HorizontalAlign="Left">
+                        <HeaderTemplate>
+                            Estatus                       
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlEstatusOrdenServicio" runat="server" Text='<%# Eval("EstatusOrdenServicio")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+
+                     <asp:TemplateField ItemStyle-HorizontalAlign="Left">
+                        <HeaderTemplate>
+                            Técnico Asignado                       
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:Literal ID="LblUsuarioAsignado" runat="server" Text='<%# Eval("UsuarioAsignado")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+
+                    <asp:TemplateField ItemStyle-HorizontalAlign="Left">
+                        <HeaderTemplate>
+                           Ubicación              
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:Literal ID="LblDireccion" runat="server" Text='<%# Eval("Direccion")%>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>                     
+
+
                     <asp:TemplateField ItemStyle-HorizontalAlign="Center">
                         <HeaderTemplate>
                             Fecha Recepción
@@ -234,15 +279,6 @@
                             <asp:Literal ID="LtlFechaRecepcion" runat="server" Text='<%# Eval("FechaRecepcion", "{0:d}")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
-
-                    <asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-CssClass="Excede truncate">
-                        <HeaderTemplate>
-                            Usuario Recibió                            
-                        </HeaderTemplate>
-                        <ItemTemplate>
-                            <asp:Label ID="LtlUsuarioRecibio" runat="server" data-toggle="tooltip" title='<%# Eval("UsuarioRecibio")%>' Text='<%# Eval("UsuarioRecibio")%>'></asp:Label>
-                        </ItemTemplate>
-                    </asp:TemplateField>
                     <asp:TemplateField ItemStyle-HorizontalAlign="Left">
                         <HeaderTemplate>
                             Estatus                       
@@ -251,6 +287,7 @@
                             <asp:Literal ID="LtlEstatusOrdenServicio" runat="server" Text='<%# Eval("EstatusOrdenServicio")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                   
                     <asp:TemplateField Visible="false" ItemStyle-HorizontalAlign="Center">
                         <HeaderTemplate>Fecha Cita</HeaderTemplate>
                         <ItemTemplate>

OS/RepOrdenesServicios.aspx.vb

@@ -20,6 +20,8 @@ Partial Class OS_RepOrdenesServicios
                 ViewState("CveUsuarioTecnico") = -1
             End If
 
+            txtFechaI.Text = $"01/01/{Now.Year}"
+
             CargaDatos()
             OrdenaDatos()
         End If
@@ -27,9 +29,10 @@ Partial Class OS_RepOrdenesServicios
 
     Private Sub CargaCombos()
         'CargaClientes
-        DdlClientes.DataSource() = GlobalDTCliente(UsuarioActual.CveEmpresa)
+        DdlClientes.setEsWebService(True)
-        DdlClientes.DataBind()
+        'DdlClientes.DataSource() = GlobalDTCliente(UsuarioActual.CveEmpresa)
-        DdlClientes.Items.Insert(0, New ListItem("Todos", "-1"))
+        'DdlClientes.DataBind()
+        'DdlClientes.Items.Insert(0, New ListItem("Todos", "-1"))
 
         'CargaSubProyectos
         DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1)
@@ -59,7 +62,18 @@ Partial Class OS_RepOrdenesServicios
         FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
         FechaTerminado = If(IsDate(TxtFechaTerminado.Text.Trim()), TxtFechaTerminado.Text.Trim(), "-1")
 
-        If ObjOrdenesServicios.GetRepOrdenesServicio(FechaI, FechaF, FechaTerminado, DdlClientes.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlUsuarioRecibio.SelectedValue.ToEntero, DdlTecnico.SelectedValue.ToEntero, DdlEstatusOS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+        Dim Opcion As Integer = 1
+        Dim CveUsuarioAsignado As Integer = UsuarioActual.CveUsuario
+
+        If UsuarioActual.TienePermisoProceso(348) Then
+            Opcion = 2
+            CveUsuarioAsignado = -1
+
+        End If
+
+
+        If ObjOrdenesServicios.GetRepOrdenesServicio(FechaI, FechaF, FechaTerminado, DdlClientes.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlUsuarioRecibio.SelectedValue.ToEntero,
+                                                     DdlTecnico.SelectedValue.ToEntero, DdlEstatusOS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Opcion:=Opcion, CveUsuarioAsignado:=CveUsuarioAsignado) Then
             Dim Filtro As String = ""
             Select Case DdlFacturado.SelectedValue
                 Case "1"
@@ -82,28 +96,28 @@ Partial Class OS_RepOrdenesServicios
 
     Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
-            If e.Row.RowIndex = 0 Then
+            'If e.Row.RowIndex = 0 Then
-                e.Row.Cells(0).Width = Unit.Pixel(50)
+            '    e.Row.Cells(0).Width = Unit.Pixel(50)
-                e.Row.Cells(1).Width = Unit.Pixel(200)
+            '    e.Row.Cells(1).Width = Unit.Pixel(200)
-                e.Row.Cells(2).Width = Unit.Pixel(130)
+            '    e.Row.Cells(2).Width = Unit.Pixel(130)
-                'e.Row.Cells(3).Width = Unit.Pixel(100)
+            '    'e.Row.Cells(3).Width = Unit.Pixel(100)
-                e.Row.Cells(4).Width = Unit.Pixel(100)
+            '    e.Row.Cells(4).Width = Unit.Pixel(100)
-                e.Row.Cells(5).Width = Unit.Pixel(100)
+            '    e.Row.Cells(5).Width = Unit.Pixel(100)
-                'e.Row.Cells(6).Width = Unit.Pixel(100)
+            '    'e.Row.Cells(6).Width = Unit.Pixel(100)
-            End If
+            'End If
             e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
 
             e.Row.FCLiteral("LtlFolio").Text = "<a class=""Texto"" href=""/OS/OrdenesServicios.aspx?CveOS=" & e.Row.DBCampo("CveOS") & """>" & e.Row.FCLiteral("LtlFolio").Text & "</a>"
-            e.Row.FCLabel("LtlCliente").Text = "<a class=""Texto"" href=""/OS/OrdenesServicios.aspx?CveOS=" & e.Row.DBCampo("CveOS") & """>" & e.Row.FCLabel("LtlCliente").Text & "</a>"
+            'e.Row.FCLabel("LtlCliente").Text = "<a class=""Texto"" href=""/OS/OrdenesServicios.aspx?CveOS=" & e.Row.DBCampo("CveOS") & """>" & e.Row.FCLabel("LtlCliente").Text & "</a>"
-            e.Row.FCLiteral("LtlFechaRecepcion").Text = "<a class=""Texto"" href=""/OS/OrdenesServicios.aspx?CveOS=" & e.Row.DBCampo("CveOS") & """>" & e.Row.FCLiteral("LtlFechaRecepcion").Text & "</a>"
+            'e.Row.FCLiteral("LtlFechaRecepcion").Text = "<a class=""Texto"" href=""/OS/OrdenesServicios.aspx?CveOS=" & e.Row.DBCampo("CveOS") & """>" & e.Row.FCLiteral("LtlFechaRecepcion").Text & "</a>"
-            e.Row.FCLabel("LtlDescripcion").Text = "<a class=""Texto"" href=""/OS/OrdenesServicios.aspx?CveOS=" & e.Row.DBCampo("CveOS") & """>" & e.Row.FCLabel("LtlDescripcion").Text & "</a>"
+            'e.Row.FCLabel("LtlDescripcion").Text = "<a class=""Texto"" href=""/OS/OrdenesServicios.aspx?CveOS=" & e.Row.DBCampo("CveOS") & """>" & e.Row.FCLabel("LtlDescripcion").Text & "</a>"
-            e.Row.FCLabel("LtlUsuarioRecibio").Text = "<a class=""Texto"" href=""/OS/OrdenesServicios.aspx?CveOS=" & e.Row.DBCampo("CveOS") & """>" & e.Row.FCLabel("LtlUsuarioRecibio").Text & "</a>"
+            'e.Row.FCLabel("LtlUsuarioRecibio").Text = "<a class=""Texto"" href=""/OS/OrdenesServicios.aspx?CveOS=" & e.Row.DBCampo("CveOS") & """>" & e.Row.FCLabel("LtlUsuarioRecibio").Text & "</a>"
-            e.Row.FCLiteral("LtlEstatusOrdenServicio").Text = "<a class=""Texto"" href=""/OS/OrdenesServicios.aspx?CveOS=" & e.Row.DBCampo("CveOS") & """>" & e.Row.FCLiteral("LtlEstatusOrdenServicio").Text & "</a>"
+            'e.Row.FCLiteral("LtlEstatusOrdenServicio").Text = "<a class=""Texto"" href=""/OS/OrdenesServicios.aspx?CveOS=" & e.Row.DBCampo("CveOS") & """>" & e.Row.FCLiteral("LtlEstatusOrdenServicio").Text & "</a>"
         End If
     End Sub
-    Protected Sub ImgExcel_Click(sender As Object, e As System.Web.UI.ImageClickEventArgs) Handles ImgExcel.Click
+    'Protected Sub ImgExcel_Click(sender As Object, e As System.Web.UI.ImageClickEventArgs) Handles ImgExcel.Click
-        GvDatos.ExportToExcel("RepOrdenesServicio_" & Now.ToShortDateString)
+    '    GvDatos.ExportToExcel("RepOrdenesServicio_" & Now.ToShortDateString)
-    End Sub
+    'End Sub
 
 #Region "O R D E N A M I E N T O"
     Private Sub OrdenaDatos()
@@ -119,4 +133,22 @@ Partial Class OS_RepOrdenesServicios
         CargaDatos()
         UpDatos.Update()
     End Sub
+
+    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
+    End Sub
+
+    Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
+
+        Imprimir("Excel")
+    End Sub
+    Private Sub Imprimir(Optional reporte As String = "PDF")
+        If GvDatos.Rows.Count > 0 Then
+            Dim StrFiltro As New StringBuilder
+            If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(" Fecha Fin: {0}", txtFechaF.Text)
+            ExportToExcelG(GvDatos, "OrdenesServicio .xlsx", "Ordenes de Servicio ", UsuarioActual, StrFiltro.ToString, 100, 150)
+        Else
+            Alert("Debe consultar para generar un excel", TipoMensaje.MsgAdvertencia)
+        End If
+    End Sub
+
 End Class

OS/RepServicioDomicilio.aspx

@@ -111,6 +111,12 @@
         .select2-container--open {
             z-index: 1000 !important;
         }
+
+
+     /*   #C_DVModalAsignacion > div:nth-child(2) > div > div > span{
+            margin-left:200px!important;
+        }*/
+
     </style>
 
   
@@ -180,7 +186,7 @@
                    Orden de Servicio:
                </div>
                <div class="col-md-4">
-                   <asp:DropDownList runat="server" ID="DdlOrdenesSinAsignar" CssClass="select2me" DataValueField="CveOSDetalle"  DataTextField="ConceptoDdl" Width="100%"></asp:DropDownList>
+                   <asp:DropDownList runat="server" ID="DdlOrdenesSinAsignar" CssClass="select2me" DataValueField="CveOSDetalle"  DataTextField="ConceptoAsignacionDdl" Width="100%"></asp:DropDownList>
                </div>
                <div class="col-md-2">
                    <asp:LinkButton runat="server" ID="LnkOrdenesSinAsignarMostarModal" CssClass="Texto" OnClick="LnkOrdenesSinAsignarMostarModal_Click">Asignar</asp:LinkButton>
@@ -469,17 +475,17 @@
                             </div>
                             <div class="col-md-6">
 
-                                <div class="form-group form-md-line-input">
+                                <div class="form-group form-md-line-input"  runat="server"  visible="false" id="DvModalSubProyecto">
 
-                                    <asp:DropDownList ID="DdlSubProyectoOS" AppendDataBoundItems="true" CssClass="form-control  select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%" Height="30px">
+                                    <%--<asp:DropDownList ID="DdlSubProyectoOS" AppendDataBoundItems="true" CssClass="form-control  select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%" Height="30px">
                                         <asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>
                                     </asp:DropDownList>
 
                                     <asp:RequiredFieldValidator ID="RFVDdlSubProyectoOS" InitialValue="-1" runat="server" ControlToValidate="DdlSubProyectoOS" Display="None"
                                         ErrorMessage="El campo <b>''''</b> es requerido por la aplicación" ValidationGroup="GrpAsignar"></asp:RequiredFieldValidator>
-                                    <ajax:ValidatorCalloutExtender ID="VCEDdlSubProyectoOS" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlSubProyectoOS" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <ajax:ValidatorCalloutExtender ID="VCEDdlSubProyectoOS" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlSubProyectoOS" Width="350px"></ajax:ValidatorCalloutExtender>--%>
-
+                                    <asp:Label runat="server" ID="LblModalSubproyecto" CssClass="form-control"></asp:Label>
-                                    <label for="<%= DdlSubProyectoOS.ClientID.ToString()%>">
+                                    <label for="<%= LblModalSubproyecto.ClientID.ToString()%>">
                                         <asp:Label runat="server" ID="LblSubProyectoOS"></asp:Label>
                                     </label>
                                 </div>
@@ -550,6 +556,16 @@
                         <hr style="border: 0; height: 1px; background-image: linear-gradient(to right, rgba(0, 0, 0, 0), rgba(0, 0, 0, 0.75), rgba(0, 0, 0, 0));" />
 
 
+                         <div class="row">
+                            <div class="col-md-12">
+                                <%--CONDICIONES--%>
+                                <div class="form-group form-md-line-input">
+                                    <asp:TextBox ID="TxtCondiciones" runat="server" MaxLength="300" CssClass="form-control" />
+                                    <label for="<%= TxtCondiciones.ClientID.ToString()%>">Condiciones: </label>
+                                </div>
+                            </div>
+                        </div>
+
 
                         <div class="row">
                             <div class="col-md-6">
@@ -575,7 +591,7 @@
 
                         <hr style="border: 0; height: 1px; background-image: linear-gradient(to right, rgba(0, 0, 0, 0), rgba(0, 0, 0, 0.75), rgba(0, 0, 0, 0));" />
 
-                        <div class="row">
+                        <div class="row" runat="server" id="DVModalAsignacion" visible ="false">
 
                             <div class="col-md-6">
                                 <div class="form-group form-md-line-input">
@@ -672,6 +688,7 @@
 
 
       <script>
+          var PrimeraCargaCalendario = true;
 
           function FechaFinSet(RB, TXT) {
               RB = "#" + RB
@@ -1057,16 +1074,42 @@
                 eventDrop: eventDropped,
                 eventResize: eventResized
             });
+            clickSemana();
           }
 
+         
           function InitCalendar() {
               $(document).ready(function () {
+
+                  
                   Calendario();
 
+                  //if (PrimeraCargaCalendario) {
+                      
+                 //}
+                  
+
                   $("#TxtModalFechaOS").val("" + start.format("DD/MM/YYYY 08:00"));
+                  
+                  
               });
           }
 
+          function wait(ms) {
+              var start = new Date().getTime();
+              var end = start;
+              while (end < start + ms) {
+                  end = new Date().getTime();
+              }
+          }
+
+          function clickSemana() {              
+              $('#calendar > div.fc-toolbar > div.fc-right > div > button.fc-agendaDay-button.fc-button.fc-state-default.fc-corner-right').click();
+              PrimeraCargaCalendario = false;
+          }
+
+
+        
 
       </script>
 

OS/RepServicioDomicilio.aspx.vb

@@ -280,6 +280,15 @@ Partial Class OS_RepServicioDomicilio
             cargaDropsModal()
             CargaClientePublicoGeneral()
 
+            If UsuarioActual.TienePermisoProceso(348) Then
+                DVModalAsignacion.Visible = True
+            End If
+
+
+
+            'RegistraScript(" PrimeraCargaCalendario = true;")
+
+
         End If
     End Sub
 
@@ -321,28 +330,28 @@ Partial Class OS_RepServicioDomicilio
     Private Sub CargaTecnicosAsignar()
 
 
-        Dim ObjOS As New ClsOS
+        'Dim ObjOS As New ClsOS
-        Dim TecnicosSubProyectos As New DataTable
+        'Dim TecnicosSubProyectos As New DataTable
-        Dim TecnicosResultado As New DataTable
+        'Dim TecnicosResultado As New DataTable
 
-        If ObjOS.GetSubProyectosEstatusInicial(-1, 3, UsuarioActual.CveEmpresa) Then
+        'If ObjOS.GetSubProyectosEstatusInicial(-1, 3, UsuarioActual.CveEmpresa) Then
-            TecnicosSubProyectos = ObjOS.DtResultados
+        '    TecnicosSubProyectos = ObjOS.DtResultados
-        End If
+        'End If
 
-        For Each SubProyecto As DataRow In DT_OSSubProyectos.Rows
+        'For Each SubProyecto As DataRow In DT_OSSubProyectos.Rows
-            Dim TecnicosSubProyectoAux As DataTable = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}'", SubProyecto.Item("SubProyecto")))
+        '    Dim TecnicosSubProyectoAux As DataTable = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}'", SubProyecto.Item("SubProyecto")))
-            If TecnicosSubProyectoAux.Rows.Count > 0 Then
+        '    If TecnicosSubProyectoAux.Rows.Count > 0 Then
-                Dim EstatusDeTipoProcesoMenor As Integer = TecnicosSubProyectoAux.Rows(0).Item("CveEstatusOrdenServicio").ToString.ToEntero
+        '        Dim EstatusDeTipoProcesoMenor As Integer = TecnicosSubProyectoAux.Rows(0).Item("CveEstatusOrdenServicio").ToString.ToEntero
-                Dim dtAuxiliar As New DataTable
+        '        Dim dtAuxiliar As New DataTable
-                dtAuxiliar = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}' AND CveEstatusOrdenServicio = {1}", SubProyecto.Item("SubProyecto"), EstatusDeTipoProcesoMenor), "", {"CveUsuario", "Nombre"})
+        '        dtAuxiliar = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}' AND CveEstatusOrdenServicio = {1}", SubProyecto.Item("SubProyecto"), EstatusDeTipoProcesoMenor), "", {"CveUsuario", "Nombre"})
-                TecnicosResultado.Merge(dtAuxiliar)
+        '        TecnicosResultado.Merge(dtAuxiliar)
-            End If
+        '    End If
-        Next
+        'Next
-        'DtTecnicosSubProyectos = TecnicosResultado
+        ''DtTecnicosSubProyectos = TecnicosResultado
 
-        ObjOS.Dispose()
+        'ObjOS.Dispose()
 
-        DdlTecnicoAsignar.DataSource = TecnicosResultado
+        DdlTecnicoAsignar.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True'")
         DdlTecnicoAsignar.DataBind()
         DdlTecnicoAsignar.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
 
@@ -595,7 +604,7 @@ Partial Class OS_RepServicioDomicilio
         End If
 
         'DdlSubProyectoOS.Items.Clear()
-        CargarCentrosDeCosto(Nothing, DdlSubProyectoOS, Nothing, LblSubProyectoOS)
+        CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectoOS)
 
         'DdlModeloAuto.Items.Clear()
         Dim ObjGral As New ClsGenerales
@@ -607,6 +616,7 @@ Partial Class OS_RepServicioDomicilio
         DdlModeloAuto.Items.Insert(0, New ListItem("Sin Asignar", "-1"))
 
 
+
     End Sub
 
     Private Sub CargaClientes()
@@ -623,7 +633,7 @@ Partial Class OS_RepServicioDomicilio
         TxtSolicito.Text = ""
         TxtDescripcion.Text = ""
         TxtFechaOS.Text = ""
-        DdlSubProyectoOS.SelectedValueExist("-1")
+        'DdlSubProyectoOS.SelectedValueExist("-1")
         TxtDireccion.Text = ""
         TxtEmail.Text = ""
         TxtTelefono.Text = ""
@@ -645,6 +655,9 @@ Partial Class OS_RepServicioDomicilio
         FechaInicioOriginal = DateTime.Now
 
         DVFolio.Visible = False
+        DvModalSubProyecto.Visible = False
+
+        TxtCondiciones.Text = ""
 
     End Sub
 
@@ -707,7 +720,7 @@ Partial Class OS_RepServicioDomicilio
                 TxtDescripcion.Text = ObjOS.Descripcion
                 TxtSolicito.Text = ObjOS.PersonaSolicito
                 TxtFechaOS.Text = ObjOS.FechaRecepcion.ToString("dd/MM/yyyy")
-                DdlSubProyectoOS.SelectedValueExist(ObjOS.CveSubProyecto)
+                'DdlSubProyectoOS.SelectedValueExist(ObjOS.CveSubProyecto)
                 TxtDireccion.Text = ObjOS.DtResultados.Rows(0)("DireccionOS").ToString
                 TxtEmail.Text = ObjOS.CorreoOS
                 TxtTelefono.Text = ObjOS.Telefono
@@ -718,6 +731,9 @@ Partial Class OS_RepServicioDomicilio
 
                 DdlModeloAuto.SelectedValueExist(ObjOS.CveModeloAuto)
                 TxtAnio.Text = ObjOS.Año
+                LblModalSubproyecto.Text = ObjOS.SubProyecto
+
+                TxtCondiciones.Text = ObjOS.Condiciones
 
 
                 If TipoAccion = OSModalTipoAccion.Actualizacion Then
@@ -725,6 +741,7 @@ Partial Class OS_RepServicioDomicilio
                     CveTecnicoAsignarOrioginal = ObjOS.CveUsuarioAtendio
                     FechaInicioOriginal = ObjOS.FechaInicio
                     TxtModalFechaOS.Text = ObjOS.FechaInicio.ToString.ToDate.ToString("dd/MM/yyyy hh:mm")
+                    DvModalSubProyecto.Visible = True
                     'TSTimeSelector.Hour = If(ObjOS.FechaInicio.Hour > 12, ObjOS.FechaInicio.Hour - 12, ObjOS.FechaInicio.Hour)
                     'TSTimeSelector.Minute = ObjOS.FechaInicio.Minute
                     'TSTimeSelector.AmPm = If(ObjOS.FechaInicio.Hour > 12, MKB.TimePicker.TimeSelector.AmPmSpec.PM, MKB.TimePicker.TimeSelector.AmPmSpec.AM)
@@ -786,6 +803,15 @@ Partial Class OS_RepServicioDomicilio
         Dim CveOS As Integer = HFCveOS.Value.ToEntero
         Dim CveOsDetalle As Integer = HFCveOsDetalle.Value.ToEntero
 
+
+        Dim CveSubProyectoTecnico As Integer = If(DdlTecnicoAsignar.SelectedValue.ToEntero > 0, GlobalDTUsuarios(DdlTecnicoAsignar.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero, -1)
+
+
+        If TipoAccion = OSModalTipoAccion.Asignacion AndAlso Not CveSubProyectoTecnico > 0 Then
+            Alert("No se encontro el subproyecto o centro de costo del tecnico seleccionado.")
+            Exit Sub
+        End If
+
         If Not CvePSDetalle > 0 Then
             Alert("No esta asiganado el producto del detalle a la funcionalidad.")
             Exit Sub
@@ -822,9 +848,10 @@ Partial Class OS_RepServicioDomicilio
                 CveEstatosOrdenNueva = CveEstatusAsiganada
             End If
 
-            If ObjOS.AddOrdenesServicios(CveCliente, DdlSubProyectoOS.SelectedValue.ToEntero, TxtSolicito.Text, TxtFechaOS.Text.ToDateTime, TxtDescripcion.Text, UsuarioActual.CveUsuario, CveEstatosOrdenNueva,
+            If ObjOS.AddOrdenesServicios(CveCliente, CveSubProyectoTecnico, TxtSolicito.Text, TxtFechaOS.Text.ToDateTime, TxtDescripcion.Text, UsuarioActual.CveUsuario, CveEstatosOrdenNueva,
-                                                        UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, CveOrdenServicioTipo, CveClienteSucursal:=-1,
+                                                        UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, CveOrdenServicioTipo, CveClienteSucursal:=-1, Direccion:=TxtDireccion.Text,
-                                                        Direccion:=TxtDireccion.Text, Telefono:=TxtTelefono.Text, CveModeloAuto:=DdlModeloAuto.SelectedValue.ToEntero, Año:=TxtAnio.Text, Correo:=TxtEmail.Text) Then
+                                                        Telefono:=TxtTelefono.Text, CveModeloAuto:=DdlModeloAuto.SelectedValue.ToEntero, Año:=TxtAnio.Text, Correo:=TxtEmail.Text,
+                                                        Condiciones:=TxtCondiciones.Text.Trim) Then
                 CveOS = ObjOS.CveOS
 
                 CveOsDetalle = ObjOS.AddOrdenesServiciosDetalle(CveOS, CvePSDetalle, 1, -1, -1, "", False, True, False, -1, "-1", "-1", "-1", "", UsuarioActual.CveUsuario, "")
@@ -854,8 +881,8 @@ Partial Class OS_RepServicioDomicilio
             If CveOS > 0 Then
 
                 If Not ObjOS.UpdateOrdenesServicios(TxtSolicito.Text, TxtFechaOS.Text, TxtDescripcion.Text, UsuarioActual.CveUsuario, CveEstatusOrden, CveOS, UsuarioActual.CveUsuario,
-                                                          -1, CveClienteSucursal:=-1, Direccion:=TxtDireccion.Text, Telefono:=TxtTelefono.Text,
+                                                          -1, CveClienteSucursal:=-1, Direccion:=TxtDireccion.Text, Telefono:=TxtTelefono.Text, CveModeloAuto:=DdlModeloAuto.SelectedValue.ToEntero, Año:=TxtAnio.Text,
-                                                          CveModeloAuto:=DdlModeloAuto.SelectedValue.ToEntero, Año:=TxtAnio.Text, CveSubProyecto:=DdlSubProyectoOS.SelectedValue.ToEntero, Correo:=TxtEmail.Text) Then
+                                                          CveSubProyecto:=CveSubProyectoTecnico, Correo:=TxtEmail.Text, Condiciones:=TxtCondiciones.Text.Trim) Then
                     TieneError = True
                 End If
 
@@ -876,21 +903,26 @@ Partial Class OS_RepServicioDomicilio
 
 
 
-            If ObjOS.GetSubProyectosEstatusInicial(DdlTecnicoAsignar.SelectedValue.ToEntero, 3, UsuarioActual.CveEmpresa) Then
+            If Not ObjOS.UpdateOrdenesServiciosAsignadas(CveOsDetalle, DdlTecnicoAsignar.SelectedValue.ToEntero, TxtModalFechaOS.Text.ToDate, TxtModalFechaOS.Text.ToDateTime(), UsuarioActual.CveEmpresa) Then
-                Dim subProyectoDelTecnico As DataTable
+                TieneError = True
-                subProyectoDelTecnico = ObjOS.DtResultados.FiltraParametros($"CveSubProyecto = {DdlSubProyectoOS.SelectedValue.ToEntero}")
-
-                If subProyectoDelTecnico.Rows.Count > 0 Then
-                    If Not ObjOS.UpdateOrdenesServiciosAsignadas(CveOsDetalle, DdlTecnicoAsignar.SelectedValue.ToEntero, TxtModalFechaOS.Text.ToDate, TxtModalFechaOS.Text.ToDateTime(), UsuarioActual.CveEmpresa) Then
-                        TieneError = True
-                    End If
-                Else
-                    Alert("El técnico y la Orden de Servicio deben pertenecer al mismo subProyecto", TipoMensaje.MsgAdvertencia)
-                    TieneError = True
-                End If
             End If
 
 
+            'If ObjOS.GetSubProyectosEstatusInicial(DdlTecnicoAsignar.SelectedValue.ToEntero, 3, UsuarioActual.CveEmpresa) Then
+            '    Dim subProyectoDelTecnico As DataTable
+            '    subProyectoDelTecnico = ObjOS.DtResultados.FiltraParametros($"CveSubProyecto = {CveSubProyectoTecnico}")
+
+            '    If subProyectoDelTecnico.Rows.Count > 0 Then
+            '        If Not ObjOS.UpdateOrdenesServiciosAsignadas(CveOsDetalle, DdlTecnicoAsignar.SelectedValue.ToEntero, TxtModalFechaOS.Text.ToDate, TxtModalFechaOS.Text.ToDateTime(), UsuarioActual.CveEmpresa) Then
+            '            TieneError = True
+            '        End If
+            '    Else
+            '        Alert("El técnico y la Orden de Servicio deben pertenecer al mismo subProyecto", TipoMensaje.MsgAdvertencia)
+            '        TieneError = True
+            '    End If
+            'End If
+
+
 
             If Not TieneError Then
 
@@ -916,7 +948,7 @@ Partial Class OS_RepServicioDomicilio
                     Dim OIDescripcion As String = $"{DdlTecnicoAsignar.SelectedItem.Text}   <b><a href='/OS/OrdenesServicios.aspx?CveOS={CveOS}' target='_blank' class='Texto' >Orden de servicio {FolioAsignar} </a></b>"
                     If Not ObjEventos.AddEventoAgenda(2, DdlTecnicoAsignar.SelectedItem.Text, OIDescripcion, 2, TxtModalFechaOS.Text.ToDateTime(), TxtModalFechaOS.Text.ToDateTime().AddHours(1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                                             RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dias, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, CveTipoEvento:=2,
-                                            Importe:=0, CveOS:=CveOS, CveSubProyecto:=DdlSubProyectoOS.SelectedValue.ToEntero) Then
+                                            Importe:=0, CveOS:=CveOS, CveSubProyecto:=CveSubProyectoTecnico, CveUsuarioPara:=DdlTecnicoAsignar.SelectedValue.ToEntero) Then
                         TieneError = True
                     End If
                 End If
@@ -942,6 +974,10 @@ Partial Class OS_RepServicioDomicilio
             MandaCorreOS(CveOSAsignar, CorreoAsignado)
         End If
 
+        If Not TieneError And TxtEmail.Text.Trim.Length > 0 AndAlso DdlTecnicoAsignar.SelectedValue.ToEntero > 0 Then
+            MandaCorreOS(CveOSAsignar, TxtEmail.Text, True)
+        End If
+
         If Not TieneError Then
 
             ConsultaOrdenesServiciosNoAsignadas()
@@ -961,7 +997,7 @@ Partial Class OS_RepServicioDomicilio
 
     End Sub
 
-    Private Sub MandaCorreOS(CveOS As Integer, CorreoUsuarioAsignado As String)
+    Private Sub MandaCorreOS(CveOS As Integer, CorreoUsuarioAsignado As String, Optional EsCliente As Boolean = False)
 
 
 
@@ -1023,9 +1059,8 @@ Partial Class OS_RepServicioDomicilio
                 params.Add(New ReportParameter("Solicito", dr("PersonaSolicito").ToString))
                 params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString))
                 params.Add(New ReportParameter("Recibio", UsuarioActual.Nombre))
-                params.Add(New ReportParameter("FechaRecibido", dr("FechaRecepcion").ToString))
+                params.Add(New ReportParameter("FechaRecibido", dr("FechaRecepcion").ToString.ToDate.ToString("dd/MM/yyyy")))
                 params.Add(New ReportParameter("FolioOS", dr("Folio").ToString))
-                FolioOS = dr("Folio").ToString
                 params.Add(New ReportParameter("ClienteTelefono", dr("Telefono").ToString))
                 params.Add(New ReportParameter("ClienteCalle", dr("Direccion").ToString))
                 params.Add(New ReportParameter("ClienteColonia", dr("Colonia").ToString))
@@ -1033,19 +1068,40 @@ Partial Class OS_RepServicioDomicilio
                 params.Add(New ReportParameter("ClienteEstado", dr("Estado").ToString))
                 CveFolio = dr("Folio").ToString
 
-                If RutaReporte.Exists Then
+                'If RutaReporte.Exists Then
-                    params.Add(New ReportParameter("NoDeCliente", dr("CveCliente").ToString))
+                params.Add(New ReportParameter("NoDeCliente", dr("CveCliente").ToString))
-                    params.Add(New ReportParameter("RFC", dr("RFC").ToString))
+                params.Add(New ReportParameter("RFC", dr("RFC").ToString))
-                    params.Add(New ReportParameter("Vendedor", " "))
+                params.Add(New ReportParameter("Vendedor", " "))
-                    params.Add(New ReportParameter("Correo", dr("Correo").ToString))
+                params.Add(New ReportParameter("Correo", dr("Correo").ToString))
-                    params.Add(New ReportParameter("CodigoDeServicio", dr("CveOS").ToString))
+                params.Add(New ReportParameter("CodigoDeServicio", dr("CveOS").ToString))
-                    params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString))
+                params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString))
-                    params.Add(New ReportParameter("TipoServicio", dr("TipoServicio").ToString))
+                params.Add(New ReportParameter("TipoServicio", dr("TipoServicio").ToString))
-                    params.Add(New ReportParameter("TipoEquipo", dr("TipoEquipo").ToString))
+                params.Add(New ReportParameter("TipoEquipo", dr("TipoEquipo").ToString))
-                    params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString))
+                'params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString))
-                    params.Add(New ReportParameter("Copia", "Copia: Original"))
+                params.Add(New ReportParameter("Copia", "Copia: Original"))
-                    params.Add(New ReportParameter("Equipo", dr("Equipo").ToString))
+                params.Add(New ReportParameter("Equipo", dr("Equipo").ToString))
-                End If
+
+                params.Add(New ReportParameter("DireccionOS", dr("DireccionOS").ToString))
+                params.Add(New ReportParameter("Telefono", dr("Telefono").ToString))
+                params.Add(New ReportParameter("CorreoOS", dr("CorreoOS").ToString))
+
+                params.Add(New ReportParameter("ModeloMarca", dr("ModeloMarca").ToString))
+                params.Add(New ReportParameter("Año", dr("Año").ToString))
+                params.Add(New ReportParameter("TelefonoContacto", dr("TelefonoContacto").ToString))
+
+                params.Add(New ReportParameter("FechaImpresion", Now.ToString("dd/MM/yyyy")))
+                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
+                params.Add(New ReportParameter("Condiciones", dr("Condiciones").ToString))
+                params.Add(New ReportParameter("FechaAtencion", If(dr("FechaInicio").ToString.Length > 0, dr("FechaInicio").ToString.ToDate.ToString("dd/MM/yyyy"), "")))
+                params.Add(New ReportParameter("TecnicoAsignado", dr("UsuarioAtendio").ToString))
+
+
+
+
+                'End If
+
+
+
             End If
         End If
 
@@ -1063,13 +1119,11 @@ Partial Class OS_RepServicioDomicilio
 
         End If
 
-        If ObjOS.GetOrdenesServiciosDetalle(CveOS) Then
-            TmpDTOS = ObjOS.DtResultados
-        End If
 
-        If ObjOS.GetDetalleMateriales(-1, CveOS) Then
+        If ObjOS.GetOrdenesServiciosDetalle(CveOS) Then
             TmpDTMaterialesOS = ObjOS.DtResultados
         End If
+
         Dim lrds As New List(Of ReportDataSource)
         Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = TmpDTMaterialesOS}
         Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = TmpDTOS}

Sistemas/Empresa.aspx

@@ -203,7 +203,7 @@
                                                             </td>
                                                         </tr>
                                                         <tr>
-                                                            <td>Contacto:</td>
+                                                            <td>Representante Legal:</td>
                                                             <td>
                                                                 <asp:TextBox ID="TxtContacto" runat="server" MaxLength="50" Width="200px"></asp:TextBox>
                                                                 <asp:RequiredFieldValidator ID="RFVContacto" runat="server" ControlToValidate="TxtContacto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Contacto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>

Sistemas/Empresa.aspx.vb

@@ -258,7 +258,7 @@ Partial Class Sistemas_Empresa
                     TxtCP.Text = .CP.ToString
                     TxtRFC.Text = .RFC
                     TxtTelefono.Text = .Telefono
-                    TxtContacto.Text = .Contacto
+                    TxtContacto.Text = .Contacto 'Representante legal
                     TxtMail.Text = .Mail
                     DdlTipoFacturacion.SelectedValue = .TipoFacturacion
                     TxtBIUsuario.Text = .BIUsuario

Site.master

@@ -15,8 +15,10 @@
     <!-- BEGIN STYLES -->
     <%: Scripts.Render("~/bundles/modernizr") %>
     <%: Styles.Render("~/Content/AjaxControlToolkit/Styles/Bundle") %>
+    <link rel="preconnect" href="https://fonts.googleapis.com">
+    <link rel="preconnect" href="https://fonts.gstatic.com" crossorigin>
     <link href="https://fonts.googleapis.com/icon?family=Material+Icons" rel="stylesheet" type="text/css" />
-    <link href="https://fonts.googleapis.com/css?family=Open+Sans:400,300,600,700&subset=all" rel="stylesheet" type="text/css" />
+    <link href="https://fonts.googleapis.com/css2?family=Open+Sans:wght@300;400;600;700;800" rel="stylesheet">
     <link href="/Metronic/fontawesome6/css/all.min.css" rel="stylesheet" type="text/css" />
     <%--   <link href="/Metronic/assets/global/plugins/font-awesome/css/font-awesome.min.css" rel="stylesheet" type="text/css" />
     <link href="/Metronic/assets/global/plugins/bootstrap/css/bootstrap.min.css" rel="stylesheet" type="text/css" />

Styles/ReportePDF.html

@@ -1,16 +1,13 @@
 <link href="Metronic/assets/global/css/css?v=uC_Xd4yGLEBrebFllFBJXKRlBE1P1CpqOtQ63B3w90o1" rel="stylesheet">
 <link rel="preconnect" href="https://fonts.googleapis.com">
 <link rel="preconnect" href="https://fonts.gstatic.com" crossorigin>
-<link href="https://fonts.googleapis.com/css2?family=Open+Sans:wght@300;400;600;700" rel="stylesheet">
+<link href="https://fonts.googleapis.com/css2?family=Open+Sans:wght@300;400;600;700;800" rel="stylesheet">
 <link href="Metronic/assets/admin/layout/css/custom.css" rel="stylesheet">
 
 <style>
     .margenbound {
         text-align: right;
     }
-    .amChartsAttribution {
-        display: none!important;
-    }
     div[id*=UPGrafica] {
         display: none;
     }
@@ -29,4 +26,8 @@
 	.portlet.light.bordered {
 		border: none!important;
 	}
+    .portlet-total {
+        float:right!important;
+        display:inline-block!important;
+    }
 </style>

Ventas/CatClasificaciones.aspx.vb

@@ -214,8 +214,8 @@ Partial Class CatClasificaciones
             End If
         End If
 
-        GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
         ObjClasificaciones.Dispose()
+        GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
         CargaDatos()
 
         UpDatos.Update()

Ventas/CatPS.aspx.vb

@@ -254,10 +254,26 @@ Partial Class CatPS
         Dim lista = New List(Of CrystalParametro)
         lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa))
         lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Usuario))
-        lista.Add(New CrystalParametro("AplicaVenta", AplicaVenta.ToString))		
+        lista.Add(New CrystalParametro("AplicaVenta", AplicaVenta.ToString))
-		lista.Add(New CrystalParametro("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+        'lista.Add(New CrystalParametro("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+
+
+        If Imagen.Exists Then
+            lista.Add(New CrystalParametro("LogoPath", $"file://{Imagen.FullName}"))
+        Else
+            lista.Add(New CrystalParametro("LogoPath", ""))
+        End If
+
+
+        If Archivo.Exists Then
+            ImprimirbytesPDF(ImprimirPDFCrystal(Archivo.FullName, DtDatos, lista, "Productos y Servicios", Formato), "Productos y Servicios", Formato)
+        Else
+            Dim Ruta As String = ModExtensiones.DirectorioBaseEmpresas + $"Empresas\Grales\Formatos\CatPS.rpt"
+            ImprimirbytesPDF(ImprimirPDFCrystal(Ruta, DtDatos, lista, "Productos y Servicios", Formato), "Productos y Servicios", Formato)
+        End If
+
+
 
-        ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/CatPS.rpt"), DtDatos, lista, "Productos y Servicios", Formato), "Productos y Servicios", Formato)
 
     End Sub
 

Ventas/Clientes.aspx

@@ -565,8 +565,7 @@
                                             <div class="col-md-8">
                                                 <div class="form-group form-md-line-input">
                                                     <asp:TextBox ID="TxtTelefono" CssClass="form-control" runat="server" MaxLength="10" ValidationGroup="GrpGuardar"></asp:TextBox>
-                                                    <ajax:MaskedEditExtender ID="MaskedEditExtender4" runat="server" TargetControlID="TxtTelefono" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
+                                                    <ajax:MaskedEditExtender ID="MEETelefono" runat="server" TargetControlID="TxtTelefono" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
-
                                                     <label for="<%= TxtTelefono.ClientID.ToString()%>">Teléfono: </label>
                                                 </div>
                                             </div>
@@ -583,7 +582,7 @@
                                             <div class="col-md-8">
                                                 <div class="form-group form-md-line-input">
                                                     <asp:TextBox ID="TxtTelefonoOtro" CssClass="form-control" runat="server" MaxLength="150"></asp:TextBox>
-                                                    <ajax:MaskedEditExtender ID="MaskedEditExtender3" runat="server" TargetControlID="TxtTelefonoOtro" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
+                                                    <ajax:MaskedEditExtender ID="MaskedEditExtender3" runat="server" TargetControlID="TxtTelefonoOtro" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
                                                     <label for="<%= TxtTelefonoOtro.ClientID.ToString()%>">Teléfono Otro: </label>
                                                 </div>
                                             </div>
@@ -600,7 +599,7 @@
 
                                         <div class="form-group form-md-line-input">
                                             <asp:TextBox ID="TxtCelular" CssClass="form-control" runat="server" MaxLength="150"></asp:TextBox>
-                                            <ajax:MaskedEditExtender ID="MaskedEditExtender5" runat="server" TargetControlID="TxtCelular" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
+                                            <ajax:MaskedEditExtender ID="MaskedEditExtender5" runat="server" TargetControlID="TxtCelular" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
                                             <asp:Label AssociatedControlID="TxtCelular" runat="server" Text="Celular:"></asp:Label>
                                         </div>
 
@@ -1851,7 +1850,7 @@
                                                                     <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="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
 
                                                                             <%--<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>
@@ -5096,7 +5095,7 @@
                                 <div class="row" style="padding-left: 16px;">
                                     <div class="form-group form-md-line-input input-iconright col-xs-4">
                                         <asp:TextBox ID="TxtTelefonoSucursal" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
-                                        <ajax:MaskedEditExtender ID="mskTelefono" runat="server" TargetControlID="TxtTelefonoSucursal" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
+                                        <ajax:MaskedEditExtender ID="mskTelefono" runat="server" TargetControlID="TxtTelefonoSucursal" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
                                         <label for="<%= TxtTelefonoSucursal.ClientID.ToString()%>">Teléfono:</label>
                                     </div>
                                     <div id="DivRFCSucursal" runat="server" class="form-group form-md-line-input input-iconright col-xs-8">
@@ -5365,7 +5364,7 @@
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtEnvioTel" runat="server" Width="100%" CssClass="form-control" CausesValidation="true"></asp:TextBox>
                                     <%--<asp:RequiredFieldValidator ID="RequiredFieldValidator17" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtEnvioTel" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Telefono''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>--%>
-                                    <ajax:MaskedEditExtender ID="MaskedEditExtender6" runat="server" TargetControlID="TxtEnvioTel" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
+                                    <ajax:MaskedEditExtender ID="MaskedEditExtender6" runat="server" TargetControlID="TxtEnvioTel" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
                                     <label for="<%= TxtEnvioTel.ClientID.ToString()%>">Telefono:</label>
                                 </div>
                                 <div class="form-group form-md-line-input input-iconright">

Ventas/Clientes.aspx.vb

@@ -941,10 +941,10 @@ Partial Class Clientes
                 LnkAgregarLineaAdicional.Visible = True
                 GetLineasAdicionales()
 
-            End If
+            End If
-
+
-
+
-
+
         End If
 
         'EN SERIO SE OCUPA EN CADA POSTBACK ??? IPP 7 SEPTIEMNRE 2017
@@ -4068,10 +4068,10 @@ Partial Class Clientes
 
     Private Sub GenerarPDFCrystal(Optional Formato As String = "PDF")
         Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepClientesCxC.rpt", UsuarioActual.Empresa.Ruta))
-        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
-        'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+        'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-		
+
-        'OBTENEMOS LOS DATOS
+        'OBTENEMOS LOS DATOS
         Dim DtCxCFact As DataTable = Nothing
 
         Dim FI = If(TxtFechaInicioCxP.Text = "" Or TxtFechaInicioCxP.Text = "__/__/____", "-1", TxtFechaInicioCxP.Text)
@@ -4276,7 +4276,17 @@ Partial Class Clientes
                 End Try
             Else
                 If Archivo.Exists Then
-                    ImprimirbytesPDF(ImprimirPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.rpt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
+                    Dim ArchivoSti As New System.IO.FileInfo(String.Format("{0}Formatos/RepClientesCxC.mrt", UsuarioActual.Empresa.Ruta))
+                    If ArchivoSti.Exists Then
+                        Dim listass As New List(Of ReportParameter)
+                        For Each item As CrystalParametro In lista
+                            listass.Add(New ReportParameter(item.Nombre, item.Valor.ToString()))
+                        Next
+                        ImprimirPDFStimulsoft($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.mrt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), listass, "Estado de cuenta", Formato)
+                    Else
+                        ImprimirbytesPDF(ImprimirPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.rpt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
+                    End If
+
                 Else
                     ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/RepClientesCxC.rpt"), DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
                 End If
@@ -4319,7 +4329,16 @@ Partial Class Clientes
             DtCxCFact2.Rows.Add(drr)
 
             If Archivo.Exists Then
-                ImprimirbytesPDF(ImprimirPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.rpt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
+                Dim ArchivoSti As New System.IO.FileInfo(String.Format("{0}Formatos/RepClientesCxC.mrt", UsuarioActual.Empresa.Ruta))
+                If ArchivoSti.Exists Then
+                    Dim listass As New List(Of ReportParameter)
+                    For Each item As CrystalParametro In lista
+                        listass.Add(New ReportParameter(item.Nombre, item.Valor.ToString()))
+                    Next
+                    ImprimirPDFStimulsoft($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.mrt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), listass, "Estado de cuenta", Formato)
+                Else
+                    ImprimirbytesPDF(ImprimirPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.rpt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
+                End If
             Else
                 ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/RepClientesCxC.rpt"), DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
             End If
@@ -4342,9 +4361,9 @@ Partial Class Clientes
             End Using
         End If
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "E N V I O   C O R R E O"
     Private Sub EnviaCorreo(Liga As String, LigaActivar As String)
 
@@ -4412,11 +4431,11 @@ Partial Class Clientes
         a.GuardaLog()
         Dim Mail As New ClsSisMail()
         Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body)
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "  COTIZACIONES  "
-
+
     Protected Sub BtnVerMasCot_Click(sender As Object, e As EventArgs)
         If BtnVerMasCot.Text = "Ver Más" Then
             CargaCotizaciones(-1)
@@ -4486,11 +4505,11 @@ Partial Class Clientes
                 HLFacturar.HRef = $"/Ventas/Ventas.aspx?CveCotizacion={e.Row.DBCampo("CveVenta")}"
             End If
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "D I R E C C I O N   E N V I O "
-
+
     Private Sub CargaCombosDirecionesClientesSAT()
         CargaDirClientePais()
         CargaDirClienteEstado()
@@ -4713,12 +4732,12 @@ Partial Class Clientes
         End If
 
         CargaDireccionesEnvio()
-    End Sub
+    End Sub
-
+
 #End Region
-
+
 #Region "  IMPORTAR SALDOS  "
-
+
     Private Sub HLImportarSaldos_Click(sender As Object, e As EventArgs) Handles HLImportarSaldos.Click
         CargaClientesImportarSaldos()
         RegistraScript(String.Format("$('#{0}').modal();", "DivImportarSaldos"))
@@ -4822,9 +4841,9 @@ Partial Class Clientes
             e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("ChkSaldo(this,{0},{1});", e.Row.FCTextBox("TxtImporte").ClientID, e.Row.DBCampo("Saldo")))
             e.Row.FCTextBox("TxtImporte").Attributes.Add("onKeyUp", String.Format("CambiaSaldo({0},this,{1});", e.Row.FCCheckBox("Chk").ClientID, e.Row.DBCampo("Saldo")))
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "Cuentas/Equipos"
     Public Sub BtnAgregarCtaEquipo_Click(sender As Object, e As EventArgs)
         HdnModalidad.Value = "I"
@@ -5412,9 +5431,9 @@ Partial Class Clientes
         End If
 
         Return Retorno
-    End Function
+    End Function
 #End Region
-
+
 #Region "GPS"
     Protected Sub btnCargaArrayDisp_Click(sender As Object, e As EventArgs) Handles btnCargaArrayDisp.Click
         If hdnArrayDispositivo.Value.Length > 0 Then
@@ -5555,10 +5574,10 @@ Partial Class Clientes
         UpMoverDispositivo.Update()
         RegistraScript($"CargaModalMoverDispositivo({GvRow.DataKey("CveDispositivo")});")
 
-    End Sub
+    End Sub
-
+
 #End Region
-
+
 #Region "Sucursales"
     Public Sub CreaDTSucursales()
 
@@ -5792,14 +5811,14 @@ Partial Class Clientes
                 End If
             End If
         End If
-    End Sub
+    End Sub
-
+
 #End Region
-
+
 #Region "G P S"
-
+
-
+
-
+
     Private Sub EnviaCorreoGPS(Liga As String, LigaActivar As String)
 
         Try
@@ -5870,16 +5889,16 @@ Partial Class Clientes
         End If
 
         ObjClientes.Dispose()
-    End Sub
+    End Sub
-
+
-
+
 #End Region
-
+
 #Region "C O N T R A T O S"
-
+
-
+
-
+
-
+
     Private Sub CargaDatosContrato()
         If CveCliente <= 0 Then
             Exit Sub
@@ -5924,10 +5943,10 @@ Partial Class Clientes
                 e.Row.CssClass = "Totales white"
             End If
         End If
-    End Sub
+    End Sub
-
+
 #End Region
-
+
 #Region "M E T O D O S "
     Protected Sub RblTipo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipo.SelectedIndexChanged
         If DTHistorialVentas IsNot Nothing AndAlso RblTipo.SelectedValue <> "-1" Then
@@ -6337,13 +6356,13 @@ Partial Class Clientes
         End If
 
 
-    End Sub
+    End Sub
-
+
 #End Region
-
+
 #Region "IMPRIMIR GVHistorial"
-
+
-
+
     Protected Sub BtnExcelHistorial_Click(sender As Object, e As EventArgs)
         Dim retorno As Byte() = Nothing
         Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
@@ -6418,18 +6437,18 @@ Partial Class Clientes
         ObjClientes.Dispose()
 
         Return retorno
-    End Function
+    End Function
-
+
-
+
 #End Region
-
+
 #Region "C O B R A N Z A"
     Public Sub Visitas_Click(sender As Object, e As EventArgs)
         RegistraScript(String.Format("$('#{0}').modal();", "DivVisitas"))
-    End Sub
+    End Sub
-
+
 #End Region
-
+
 #Region "Usuarios"
     Protected Sub GvUsuarios_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvUsuarios.RowDeleting
         Dim CveUsuario As Integer = GvUsuarios.Rows(e.RowIndex).DataKey("CveUsuario").ToEntero()
@@ -6464,12 +6483,12 @@ Partial Class Clientes
                 e.Row.Cells(5).Visible = False
             End If
         End If
-    End Sub
+    End Sub
 #End Region
-
+
-
+
 #Region "C U E N T A S - B A N C A R I A S"
-
+
     Private Sub CargaCuentasBancarias(Optional RecargaGlobal As Boolean = False)
 
         If CveCliente <= 0 Then Exit Sub
@@ -6642,8 +6661,8 @@ Partial Class Clientes
         TxtNumeroCuenta2.Text = ""
         TxtConvenioCIE2.Text = ""
         TxtReferencia2.Text = ""
-    End Sub
+    End Sub
-
+
 #Region "GRIDVIEW - CUENTAS BANCARIAS"
     Protected Sub GvBancosCuentas_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvBancosCuentas.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
@@ -6699,10 +6718,10 @@ Partial Class Clientes
             GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, -1, True) = Nothing
 
         End If
-    End Sub
+    End Sub
-
+
 #End Region
-
+
     Private Sub CargaPSGridCuentasBancos()
         If CveCliente > 0 Then
             GvBancosCuentas.DataSource = DTCuentasBancos
@@ -6760,9 +6779,9 @@ Partial Class Clientes
         divestatus.Visible = True
         UpAddBancos.Update()
         RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddCuentasBancarias"))
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "C L I E N T E S   P A G O S  R E A L I Z A D O S   I M P R I M I R   P D F/Excel"
     Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkPagosClientesBancosExcel.Click
         GenerarPDF("Excel")
@@ -6784,11 +6803,11 @@ Partial Class Clientes
         ImprimirPDF("Empresas\Grales\Formatos\RepClientesPagosBancos.rdlc", DTCobrosRealizados, params, "RepClientesPagosBancos_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato)
 
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "VENTAS"
-
+
     Public Function imprimirFacturaVenta(CveVenta As Integer) As Byte()
         Dim ObjVentas As New ClsVentas
         Dim Vta As Modelos.Factura = Nothing
@@ -7019,10 +7038,10 @@ Partial Class Clientes
         ObjVentas.Dispose()
 
         Return PdfFactura(Vta)
-    End Function
+    End Function
-
+
 #End Region
-
+
 #Region "COMERCIO EXTERIOR"
     Public Sub CargaCombosComercioExterior()
 
@@ -7146,12 +7165,12 @@ Partial Class Clientes
     End Sub
     Protected Sub DdlMunicipio_SelectedIndexChanged(sender As Object, e As EventArgs)
         CargaColonia()
-    End Sub
+    End Sub
-
+
 #End Region
-
+
 #Region "D O C U M E N T A C I O N   "
-
+
     Private Sub CargaDocumentacionCliente()
         Dim objRH As New ClsEdocumentacion()
 
@@ -7789,12 +7808,12 @@ Partial Class Clientes
 
         RegistraScript("Download('" & baseUrl & "')")
 
-    End Sub
+    End Sub
-
+
 #End Region
-
+
 #Region "D O C U M E N T O S  V E N T A S"
-
+
     Private Sub CargaDocumentosVenta(tCveCliente As Integer)
         Dim objInv As New ClsEdocumentacion
 
@@ -7965,11 +7984,11 @@ Partial Class Clientes
 
         objRH.Dispose()
 
-    End Sub
+    End Sub
-
+
-
+
 #End Region
-
+
 #Region "PERSONA FISICA"
     Protected Sub LnkPersonaFisica_Click(sender As Object, e As EventArgs)
         RegistraScript("$('#DivModalPersonaFisica').modal();")
@@ -7994,9 +8013,9 @@ Partial Class Clientes
 
         ObjCliente.Dispose()
         UpDatos.Update()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "USUARIOS PLATAFORMA CLIENTE - 6 "
     Protected Sub CargaUsuariosPortalCliente()
         Dim objUsuario As ClsSisUsuarios = New ClsSisUsuarios
@@ -8005,19 +8024,19 @@ Partial Class Clientes
             GvUsuarios.DataBind()
         End If
         objUsuario.Dispose()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "  DEVOLVER DINERO ANT/NC  "
     Private Sub InicializaDevolverDinero()
         If UsuarioActual.TienePermisoProceso(247) Then
             GVAnticipos.Columns(6).Visible = True
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "MODAL GRAFICA/PEDIDOS"
-
+
     Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs)
         If CargaDatatables() Then
             RegistraScript("$('#DivModalGrafica').modal('show')")
@@ -8354,13 +8373,13 @@ Partial Class Clientes
         RegistraScript($"CargaGraficaCompratamientoSaldoMensual({Dt5.ToJson},{Dt6.ToJson.Replace($"{Chr(34)}True{Chr(34)}", "true").Replace($"{Chr(34)}False{Chr(34)}", "false")})", "55")
 
         UPModalProd.Update()
-    End Sub
+    End Sub
-
+
-
+
 #End Region
-
+
 #Region "TAB - COMPORTAMIENTO DE VENTAS"
-
+
     Private Sub CargaGrupo()
         DdlGrupo.Items.Insert(0, New ListItem("Categoria", "3"))
         DdlGrupo.Items.Insert(1, New ListItem("Clasificacion", "4"))
@@ -8544,12 +8563,12 @@ Partial Class Clientes
         ObjVentas.Dispose()
         GvComportamientoVenta.DataBind()
         UpDatosComportamientoVenta.Update()
-    End Sub
+    End Sub
-
+
 #End Region
-
+
 #Region "DISPOSITIVOS"
-
+
     Protected Sub LnkMoverDispositivo_Click(sender As Object, e As EventArgs)
         Dim CveDispositivo As Integer = HdnCveDispositivoMover.Value.ToEntero()
         Dim CveCliente As Integer = DdlClienteDispositivo.SelectedValue.ToEntero()
@@ -8587,10 +8606,10 @@ Partial Class Clientes
         CargaEventoBitacora()
         NombreDispositivo = ""
         RegistraScript("$('#DivMoverDispositivo').modal('hide');")
-    End Sub
+    End Sub
-
+
 #End Region
-
+
 #Region "CRM"
     Protected Sub CargaDatosCRM()
         Dim ObjCRM = New ClsCRM()
@@ -8690,9 +8709,9 @@ Partial Class Clientes
                 Alert("Se Unificó correctamente al Cliente con la Empresa CRM.")
             End If
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "PORCENTAJE PRECIO DE MARCAS"
     Private Sub LnkPorcentajeMarcas_Click(sender As Object, e As EventArgs) Handles LnkPorcentajeMarcas.Click
         RegistraScript(String.Format("$('#{0}').modal();", "DivPorcentajeMarcas"))
@@ -8917,9 +8936,9 @@ Partial Class Clientes
 
         ObjPS.Dispose()
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "PORCENTAJE PRECIO DE PRODUCTOS"
     Private Sub LnkPorcentajePrecios_Click(sender As Object, e As EventArgs) Handles LnkPorcentajePrecios.Click
         RegistraScript(String.Format("$('#{0}').modal();", "DivPorcentajePrecios"))
@@ -9155,12 +9174,12 @@ Partial Class Clientes
 
     Protected Sub BtnCambiaPorcentaje_Click(sender As Object, e As EventArgs)
         DdlProducto2IndexChange(DdlProducto2.SelectedValue.ToEntero(), DdlProducto2)
-    End Sub
+    End Sub
 #End Region
-
+
 #Region " A C U M U L A D O R E S"
-
+
-
+
     Protected Sub LnkFacturaUsadosCargos_Click(sender As Object, e As EventArgs)
         'CveVentaNota = 0
 
@@ -9803,11 +9822,11 @@ Partial Class Clientes
 
         ' ObjFactura.Timbre = PreParaTimbre(ObjFactura)
 
-    End Sub
+    End Sub
-
+
-
+
 #End Region
-
+
 #Region "C L I E N T E S    G R I D S   I M P R I M I R   P D F/Excel"
     Private Sub LnkCotizacionesPDF_Click(sender As Object, e As EventArgs) Handles LnkCotizacionesPDF.Click
         ImprimeGridsProveedores("PDF", DtCotizaciones, "RepClientesCotizaciones")

Ventas/ClientesAbonar.aspx.vb

@@ -1454,7 +1454,7 @@ Partial Class Ventas_ClientesAbonar
 
                                     If ImporteMovimiento <> 0 AndAlso MsgError = "" Then
                                         'Conta ContPAQ
-                                        If (IdCtaContable < 1 Or IdCuentaBancaria < 1) Then
+                                        If (IdCtaContable < 1 Or IdCuentaBancaria < 1) AndAlso UsuarioActual.CveEmpresa <> 119 Then
                                             CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
                                             idCuentaContabilizacion = 0
                                         End If
@@ -3168,7 +3168,7 @@ Partial Class Ventas_ClientesAbonar
 
             DT = ReadExcelFile(Directorio + file.filename, True)
 
-            If Not dt.Columns(0).ColumnName.ToUpper = "FOLIO" Then
+            If Not DT.Columns(0).ColumnName.ToUpper = "FOLIO" Then
                 Alert("El nombre de la primera columna debe ser 'Folio'. Favor de corregirlo", TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If

Ventas/PV.aspx.vb

@@ -3465,6 +3465,11 @@ Partial Class PV
             MandarCorreoSupervisor = False
         End If
 
+        If TmpDT.FiltraParametros("Obs = 'Descuento por garantía'").Rows.Count > 0 AndAlso (TmpDTAjustes Is Nothing OrElse TmpDTAjustes.Rows.Count = 0) Then
+            Alert("No se ha especificado la garantía", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         'If TmpDTAjustes IsNot Nothing AndAlso Not TmpDTAjustes.Rows.Count > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(531).ToString = "1" Then
         '    RegistraScript("$('#DModalRecepcionUsados').modal('show');")
         'Else

Ventas/Ventas.aspx

@@ -5774,7 +5774,7 @@
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtEnvioTel" runat="server" Width="100%" CssClass="form-control" CausesValidation="true"></asp:TextBox>
                                     <%--<asp:RequiredFieldValidator ID="RequiredFieldValidator17" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtEnvioTel" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Telefono''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>--%>
-                                    <ajax:MaskedEditExtender ID="MaskedEditExtender8" runat="server" TargetControlID="TxtEnvioTel" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
+                                    <ajax:MaskedEditExtender ID="MaskedEditExtender8" runat="server" TargetControlID="TxtEnvioTel" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
                                     <label for="<%= TxtEnvioTel.ClientID.ToString()%>">Telefono:</label>
                                 </div>
                                 <div style="display: none">
@@ -8115,7 +8115,7 @@
 
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtTelefonoSucursal" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
-                                    <ajax:MaskedEditExtender ID="mskTelefono" runat="server" TargetControlID="TxtTelefonoSucursal" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
+                                    <ajax:MaskedEditExtender ID="mskTelefono" runat="server" TargetControlID="TxtTelefonoSucursal" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
                                     <label for="<%= TxtTelefonoSucursal.ClientID.ToString()%>">Teléfono:</label>
                                 </div>
 

Ventas/Ventas.aspx.vb

@@ -4467,7 +4467,12 @@ Partial Class Ventas
 
             OS.Dispose()
 
-            TxtTotal.Text = TmpDT.SUM("Total").FormatoNumero()
+
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                CalculaUsados()
+            End If
+
+            CalculaTotalesVenta(False)
 
             GvPS.DataSource = TmpDT
             DtInv = TmpDT.Copy.FiltraParametros("CveTipoPS = 2")
@@ -16357,75 +16362,89 @@ Partial Class Ventas
                                         If importeMovimiento <> 0 Then
 
                                             Dim Pago As New VentaPago
+                                            Pago.ImportePagoVenta = importeMovimiento
                                             Pago.ImportePago = importeMovimiento
                                             Pago.CveIE = CveIEAnticipo
                                             Pago.CveMonedaPago = gvr.DataKey("CveMoneda").ToEntero()
-                                            Pago.TipoPago = "A"
+                                            Pago.TCPago = gvr.DataKey("TipoCambio").ToDecimal
+                                            Pago.TipoPago = "I"
+                                            Pago.FechaDocumentoRelacionado = gvr.DataKey("Fecha").ToDate
                                             Pago.CveVentaAmortizacion = gvr.DataKey("CveVenta").ToEntero()
                                             Pago.AplicaTraslado = gvr.DataKey("RegresarImpuesto") = "1"
                                             Pago.Referencia = gvr.DataKey("Folio")
 
                                             ErrorConta = AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjConta)
 
-                                            ' Agregamos el 2
+                                            'Dim Pago As New VentaPago
-                                            If tipoCambioPago = 1 Then
+                                            'Pago.ImportePagoVenta = importeMovimiento
-                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, Now, IdCtaContClientes, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento, CveSubProyecto:=CveSubProyectoVenta) Then
+                                            'Pago.ImportePago = importeMovimiento
-                                                    ErrorConta = True
+                                            'Pago.CveIE = CveIEAnticipo
-                                                End If
+                                            'Pago.CveMonedaPago = gvr.DataKey("CveMoneda").ToEntero()
-                                            Else 'Cuando son dolares
+                                            'Pago.TCPago = gvr.DataKey("TipoCambio").ToDecimal
-                                                If importeMovimiento <> 0 Then
+                                            'Pago.TipoPago = "I"
-                                                    If IdCtaContComplementaria > 0 Or 0 > 0 Then
+                                            'Pago.FechaDocumentoRelacionado = gvr.DataKey("Fecha").ToDate
-                                                        'Agregamos la Complementaria
+                                            'Pago.CveVentaAmortizacion = gvr.DataKey("CveVenta").ToEntero()
-                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, 0, Concepto, 207, Concepto, Now, IdCtaContComplementaria, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta - importeMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then
+                                            'Pago.Referencia = gvr.DataKey("Folio")
-                                                            ErrorConta = True
-                                                        End If
-                                                        'Agregamos la Extranjera
-                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, Now, IdCtaContMonedaExtranjera, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then
-                                                            ErrorConta = True
-                                                        End If
-                                                    Else
-                                                        'Agregamos la Extranjera
-                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, Now, IdCtaContMonedaExtranjera, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then
-                                                            ErrorConta = True
-                                                        End If
-                                                    End If
-                                                End If
-                                            End If
 
-                                            importeMovimiento = ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / TxtTotal.Text.ToDecimal) * TxtIVA.Text.ToDecimal)
+                                            '' Agregamos el 2
-                                            importeMN = Math.Round(importeMovimiento * tipoCambioPago, 2, MidpointRounding.AwayFromZero)
+                                            'If tipoCambioPago = 1 Then
+                                            '    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, Now, IdCtaContClientes, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento, CveSubProyecto:=CveSubProyectoVenta) Then
+                                            '        ErrorConta = True
+                                            '    End If
+                                            'Else 'Cuando son dolares
+                                            '    If importeMovimiento <> 0 Then
+                                            '        If IdCtaContComplementaria > 0 Or 0 > 0 Then
+                                            '            'Agregamos la Complementaria
+                                            '            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, 0, Concepto, 207, Concepto, Now, IdCtaContComplementaria, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta - importeMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then
+                                            '                ErrorConta = True
+                                            '            End If
+                                            '            'Agregamos la Extranjera
+                                            '            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, Now, IdCtaContMonedaExtranjera, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then
+                                            '                ErrorConta = True
+                                            '            End If
+                                            '        Else
+                                            '            'Agregamos la Extranjera
+                                            '            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Concepto, 2, Concepto, Now, IdCtaContMonedaExtranjera, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=Math.Round(importeMovimiento * tipoCambioVenta, 2, MidpointRounding.AwayFromZero), ImporteME:=importeMovimiento, CveCuenta:=0, TipoCambio:=tipoCambioVenta, CveSubProyecto:=CveSubProyectoVenta) Then
+                                            '                ErrorConta = True
+                                            '            End If
+                                            '        End If
+                                            '    End If
+                                            'End If
+
+                                            'importeMovimiento = ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / TxtTotal.Text.ToDecimal) * TxtIVA.Text.ToDecimal)
+                                            'importeMN = Math.Round(importeMovimiento * tipoCambioPago, 2, MidpointRounding.AwayFromZero)
 
 
-                                            'Agregamos el 92
+                                            ''Agregamos el 92
-                                            importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal 'gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("TotalAnticipo" & gvr.RowIndex).ToDecimal) * gvr.DataKey("IVAAnticipo").ToDecimal)
+                                            'importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal 'gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("TotalAnticipo" & gvr.RowIndex).ToDecimal) * gvr.DataKey("IVAAnticipo").ToDecimal)
-                                            importeMN = Math.Round(importeMovimiento * tipoCambioPago, 2, MidpointRounding.AwayFromZero)
+                                            'importeMN = Math.Round(importeMovimiento * tipoCambioPago, 2, MidpointRounding.AwayFromZero)
-                                            IdCtaContable = IdCtaContAnticipos
+                                            'IdCtaContable = IdCtaContAnticipos
 
-                                            If ObjCliente.GetClientes(gvr.DataKey("CveCliente").ToEntero(), "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+                                            'If ObjCliente.GetClientes(gvr.DataKey("CveCliente").ToEntero(), "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
-                                                If ObjCliente.DtResultados.Rows.Count > 0 Then
+                                            '    If ObjCliente.DtResultados.Rows.Count > 0 Then
-                                                    If Not tipoCambioPago = 1 Then
+                                            '        If Not tipoCambioPago = 1 Then
-                                                        IdCtaContable = ObjCliente.IdCtaMonedaExtranjeraAnticipos
+                                            '            IdCtaContable = ObjCliente.IdCtaMonedaExtranjeraAnticipos
-                                                    Else
+                                            '        Else
-                                                        IdCtaContable = ObjCliente.IdCtaContAnticipos
+                                            '            IdCtaContable = ObjCliente.IdCtaContAnticipos
-                                                    End If
+                                            '        End If
-                                                End If
+                                            '    End If
-                                            End If
+                                            'End If
 
-                                            If UsuarioActual.CveEmpresa.Contiene(119) Then
+                                            'If UsuarioActual.CveEmpresa.Contiene(119) Then
-                                                If gvr.DataKey("Fecha").ToDate.Year <= 2017 AndAlso TxtFechaAnticipoCliente.Text.ToDate.Year >= 2018 Then
+                                            '    If gvr.DataKey("Fecha").ToDate.Year <= 2017 AndAlso TxtFechaAnticipoCliente.Text.ToDate.Year >= 2018 Then
-                                                    If ObjCliente.DtResultados.Rows.Count > 0 Then
+                                            '        If ObjCliente.DtResultados.Rows.Count > 0 Then
-                                                        If Not tipoCambioPago = 1 Then
+                                            '            If Not tipoCambioPago = 1 Then
-                                                            IdCtaContable = ObjCliente.IdCtaContMonedaExtranjera
+                                            '                IdCtaContable = ObjCliente.IdCtaContMonedaExtranjera
-                                                        Else
+                                            '            Else
-                                                            IdCtaContable = ObjCliente.IdCtaContClientes
+                                            '                IdCtaContable = ObjCliente.IdCtaContClientes
-                                                        End If
+                                            '            End If
-                                                    End If
+                                            '        End If
-                                                End If
+                                            '    End If
-                                            End If
+                                            'End If
 
-                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, 555, Concepto, Now, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMN, CveCuenta:=-1, TipoCambio:=tipoCambioPago, CveSubProyecto:=CveSubProyectoVenta) Then
+                                            'If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, 555, Concepto, Now, IdCtaContable, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=importeMN, CveCuenta:=-1, TipoCambio:=tipoCambioPago, CveSubProyecto:=CveSubProyectoVenta) Then
-                                                ErrorConta = True
+                                            '    ErrorConta = True
-                                            End If
+                                            'End If
 
                                         End If
                                     End If
@@ -34130,7 +34149,7 @@ Partial Class Ventas
 
     Private Function DeshabilitarAplicarNotaDeCredito(RFC As String) As Boolean
         Dim Retorno As Boolean = False
-        If UsuarioActual.CveEmpresa = 119 AndAlso RFC.Contiene("XAXX010101000", "XEXX010101000") Then
+        If UsuarioActual.CveEmpresa = 119 AndAlso RFC.Contiene("XAXX010101000", "XEXX010101000") AndAlso UsuarioActual.CveUsuario <> 1719 Then
             LBNotaCredito.Visible = False
             UpnTools.Update()
             Retorno = True