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

AF/RepDepreciacion.aspx.vb

@@ -64,7 +64,7 @@ Partial Class AF_RepDepreciacion
 
                 Dim MensajeAlert As New StringBuilder
                 MensajeAlert.Append("Se ha generado la depreciación")
-                MensajeAlert.AppendFormat("<br/><br/><b><a href = ""/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}"" class=""texto"" target=""_blank"" >ver PrePóliza</a></b>", CvePrePoliza)
+                MensajeAlert.AppendFormat("<br/><br/><b><a href = ""/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}"" class=""texto"" target=""_blank"" >ver PrePóliza</a></b>", CvePrePoliza)
 
                 Alert(MensajeAlert.ToString, TipoMensaje.MsgInformacion)
 

App_Code/CFDITimbre.vb

@@ -16,6 +16,7 @@ Public Class CFDITimbre
     Public Property ComplementoPagos As CFDIComplementoPago
     Public Property ComplementoPagos20 As CFDIComplementoPagos20
     Public Property Complementos As CFDIComplementos
+    Public Property InformacionGlobal As CFDIInformacionGlobal
     Public Property Timbrado As Boolean
     Public Property IStimbreFiniquito As Boolean
 
@@ -111,6 +112,7 @@ Public Class CFDITimbre
         StrMsg = New StringBuilder
         Comprobante = New CFDIComprobante
         CFDIRelacionados = New CFDIRelacionados
+        InformacionGlobal = New CFDIInformacionGlobal
         Conceptos = New List(Of CFDIConceptos)
         Emisor = New CFDIEmisor
         Receptor = New CFDIReceptor
@@ -257,6 +259,18 @@ Public Class CFDIComplementos
 
 End Class
 
+<Serializable>
+Public Class CFDIInformacionGlobal
+    Public Property Perioricidad As String = ""
+    Public Property Meses As String = ""
+    Public Property Año As String = ""
+
+    Sub New()
+
+    End Sub
+
+End Class
+
 <Serializable>
 Public Class CFDIRelacionados
     Public Property TipoRelacion As String

App_Code/ClsBancos.vb

@@ -1798,25 +1798,15 @@ Public Class ClsBancos
         End With
 
         Try
+            SqlAdapter.SelectCommand.CommandTimeout = 0
             SqlAdapter.Fill(Data)
-
-
             Retorno = Boolean.Parse(SqlAdapter.SelectCommand.Parameters("@TerminoCorrecto").Value.ToString)
-
-
-            'Catch Ex1 As SqlException
-
-            '    Me.OnError("Ocurrió un error al guardar los cambios en el Banco", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-
         Catch ex As Exception
-
             If ex.Message.Contains("El Movimiento no se puede eliminar porque tiene una cancelación relacionada") Then
                 OnError("El Movimiento no se puede eliminar porque tiene una cancelación relacionada, se tiene que eliminar primero la cancelación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             Else
                 OnError("Ocurrió un error al eliminar el movimiento en bancos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             End If
-
-
         End Try
 
         Return Retorno

App_Code/ClsPaginas.vb

@@ -761,29 +761,29 @@ Public Class ClsPaginas
             Application(AppNombre) = value
         End Set
     End Property
-    Property GlobalDTRegimenesFiscales(Optional TipoPersona As Integer = -1) As DataTable
+    Public Shared Property GlobalDTRegimenesFiscales(Optional TipoPersona As Integer = -1) As DataTable
         Get
             Dim AppNombre As String = "GlobalDTRegimenesFiscales"
-            If Application(AppNombre) Is Nothing Then
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
                 Dim ObjGral As New ClsSisEmpresas
-                If ObjGral.GetRegimenFiscal(-1) Then Application(AppNombre) = ObjGral.DtResultados
+                If ObjGral.GetRegimenFiscal(-1) Then HttpContext.Current.Application(AppNombre) = ObjGral.DtResultados
                 ObjGral.Dispose()
             End If
             If TipoPersona <> -1 Then
                 Dim Str As New StringBuilder
                 If TipoPersona = 0 Then Str.Append("AplicaPersonaFisica = 1") '0 - Fisica
                 If TipoPersona = 1 Then Str.Append("AplicaPersonaMoral = 1") '1 - Moral
-                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows)
+                Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows)
                 GlobalDTRegimenesFiscales = Dv.ToTable
                 Dv.Dispose()
             Else
-                GlobalDTRegimenesFiscales = DirectCast(Application(AppNombre), DataTable)
+                GlobalDTRegimenesFiscales = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
             End If
 
         End Get
         Set(value As DataTable)
             Dim AppNombre As String = String.Format("GlobalDTRegimenesFiscales")
-            Application(AppNombre) = value
+            HttpContext.Current.Application(AppNombre) = value
         End Set
     End Property
     Property GlobalDTNomSatRiesgoPuesto() As DataTable

App_Code/Modelos.vb

@@ -2155,7 +2155,7 @@ Namespace Modelos
                            PedidoContrato:=factura.PedidoContrato, ObservacionesAlmacen:=factura.ObservacionesAlmacen, CveSubProyecto:=factura.CveSubProyecto, CveSubProyectoCobranza:=factura.CveSubProyectoCobranza, CveSubProyectoEjecucion:=factura.CveSubProyectoEjecucion, CveFormaPago33:=factura.CveFormaPago33,
                            CveMetodoPago33:=factura.CveMetodoPago33, CveUsoCFDI:=factura.CveUsoCFDI, OrdenCompra:=factura.OrdenCompra, CveCuentaTerminal:=factura.CveCuentaTerminal, CveTipoRelacion:=factura.CveTipoRelacion, ImpuestoLocal:=TotalImpuestoLocal,
                            CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)),
-                           CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, ServicioDomicilio:=factura.ServicioDomicilio, RFCReceptor:=RFCReceptor, EsGarantia:=factura.EsGarantia, DescripcionVenta:=factura.DescripcionVenta,
+                           CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, ServicioDomicilio:=factura.ServicioDomicilio, RFCReceptor:=RFCReceptor, EsGarantia:=factura.EsGarantia, DescripcionVenta:=factura.DescripcionVenta, CveVentaTerminal:=factura.CveVentaTerminal,
                            CveMedico:=factura.CveMedico, CveProcedimiento:=factura.CveProcedimiento, CveTipoVenta:=factura.CveTipoVenta, FechaParaSurtir:=factura.FechaParaSurtir, Paciente:=factura.Paciente, Episodio:=factura.Episodio) Then
 
                 ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
@@ -7429,6 +7429,7 @@ Namespace Modelos
         Public Property Num3 As Double = 0
         Public Property DiasCredito As Integer
         Public Property EsDiasCreditoFijo As Boolean
+        Public Property CveVentaTerminal As Integer = 0
         Public Property CveCorte As Integer = -1
         'Public Property CveMesa As Integer = -1
         Public Property NumeroPersonas As Integer = 0

App_Code/Timbrado.vb

@@ -2341,6 +2341,9 @@ Public Class Timbrado
                 cfdi.CfdiRelacionado(uid)
             Next
         End If
+        If ObjCFDITimbre.InformacionGlobal IsNot Nothing AndAlso ObjCFDITimbre.InformacionGlobal.Perioricidad <> "" Then
+            cfdi.InformacionGlobal(ObjCFDITimbre.InformacionGlobal.Perioricidad, ObjCFDITimbre.InformacionGlobal.Meses, ObjCFDITimbre.InformacionGlobal.Año)
+        End If
 #Region "Emisor"
         ' cfdi.agregarCfdiRelacionados()
         cfdi.Emisor(EmisorRFC, UsuarioActual.Empresa.Empresa, UsuarioActual.Empresa.CodigoRegimenFiscal, "")
@@ -2613,86 +2616,84 @@ Public Class Timbrado
             End if
 #End Region
 
-
-
         End If
 
 
 
 #Region "C O M P L E M E N T O   C A R T A   P O R T E"
 
-        'If UsuarioActual.CveEmpresa = 13 Then
+        If UsuarioActual.CveEmpresa = 13 Then
-        '    If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
 
-        '        Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
+            If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
 
-        '        ''DATOS GENERALES
+                Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
-        '        cfdi.CartaPorte(Carta.TranspInternac, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida)
-        '        'cfdi.CartaPorte30("", Carta.TranspInternac, Carta.RegimenAduanero, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida, Carta.RegistroITSMO, Carta.UbicacionPoloOrigen, Carta.UbicacionPoloDestino)
 
-        '        'UBICACIONES
+                ''DATOS GENERALES
-        '        If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then
+                cfdi.CartaPorte(Carta.TranspInternac, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida)
-        '            For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones
-        '                'origen
-        '                cfdi.CartaPorteUbicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida)
-        '                'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida)
-        '                cfdi.CartaPorteDomicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP)
-        '            Next
 
-        '        End If
+                'UBICACIONES
+                If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then
+                    For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones
+                        'origen
+                        cfdi.CartaPorteUbicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida)
+                        'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida)
+                        cfdi.CartaPorteDomicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP)
+                    Next
 
-        '        'MERCANCIAS
+                End If
-        '        If Carta.Mercancias IsNot Nothing Then
-        '            cfdi.CartaPorteMercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion)
-        '            If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then
-        '                For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias
-        '                    If concep.ValorMercancia <= 0 Then concep.Moneda = ""
-        '                    cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
-        '                    For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta
-        '                        cfdi.CartaPorteCantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes)
-        '                    Next
-        '                Next
-        '            End If
-        '        End If
-        '        '
-        '        If Carta.FiguraTransporte IsNot Nothing Then
 
-        '            If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then
+                'MERCANCIAS
+                If Carta.Mercancias IsNot Nothing Then
+                    cfdi.CartaPorteMercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion)
+                    If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then
+                        For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias
+                            If concep.ValorMercancia <= 0 Then concep.Moneda = ""
+                            cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
+                            For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta
+                                cfdi.CartaPorteCantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes)
+                            Next
+                        Next
+                    End If
+                End If
+                '
+                If Carta.FiguraTransporte IsNot Nothing Then
 
-        '                cfdi.CartaPorteAutotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT)
+                    If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then
 
-        '                cfdi.CartaPorteIdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM)
+                        cfdi.CartaPorteAutotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT)
 
-        '                cfdi.CartaPorteSeguros(Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil,
+                        cfdi.CartaPorteIdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM)
-        '                                        Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente,
-        '                                        Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga,
-        '                                        Carta.FiguraTransporte.AutoTransporte.PrimaSeguro)
 
-        '                If Carta.FiguraTransporte.AutoTransporte.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporte.Remolques.Count > 0 Then
+                        cfdi.CartaPorteSeguros(Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil,
-        '                    For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporte.Remolques
+                                                Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente,
-        '                        cfdi.CartaPorteRemolque(concep.SubTipoRemolque, concep.Placa)
+                                                Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga,
-        '                    Next
+                                                Carta.FiguraTransporte.AutoTransporte.PrimaSeguro)
 
-        '                End If
+                        If Carta.FiguraTransporte.AutoTransporte.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporte.Remolques.Count > 0 Then
-        '            End If
+                            For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporte.Remolques
+                                cfdi.CartaPorteRemolque(concep.SubTipoRemolque, concep.Placa)
+                            Next
 
-        '            If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then
+                        End If
-        '                For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores
+                    End If
-        '                    cfdi.CartaPorteTiposFigura(concep.TipoFigura, concep.RFCFigura, concep.NumLicencia, concep.NombreFigura, concep.NumRegidTribFigura, If(concep.ResidenciaFiscalFigura <> "MEX", concep.ResidenciaFiscalFigura, ""))
-        '                    If concep.TipoFigura.Contiene("02", "03") Then ' “02”- Propietario o “03” -Arrendador
-        '                        cfdi.CartaPortePartesTransporte("PT01")
-        '                        cfdi.CartaPortePartesTransporteDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP)
-        '                    End If
-        '                Next
-        '            End If
 
-        '        End If
+                    If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then
+                        For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores
+                            cfdi.CartaPorteTiposFigura(concep.TipoFigura, concep.RFCFigura, concep.NumLicencia, concep.NombreFigura, concep.NumRegidTribFigura, If(concep.ResidenciaFiscalFigura <> "MEX", concep.ResidenciaFiscalFigura, ""))
+                            If concep.TipoFigura.Contiene("02", "03") Then ' “02”- Propietario o “03” -Arrendador
+                                cfdi.CartaPortePartesTransporte("PT01")
+                                cfdi.CartaPortePartesTransporteDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP)
+                            End If
+                        Next
+                    End If
 
-        '    End If
+                End If
-        'Else
+
+            End If
+        Else
 
 
-        If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
+            If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
 
                 Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
 
@@ -2757,7 +2758,7 @@ Public Class Timbrado
                     End If
                 End If
             End If
-        'End If
+        End If
 
 
 #End Region

Ashx/E119.ashx

@@ -381,6 +381,7 @@ Public Class E119 : Implements IHttpHandler
                     Dim Cantidad, PU, Descuento As Decimal
                     Dim CveDireccionEnvio As Integer = 0
                     Dim Obs As String = ""
+                    Dim IdEcommerce As Integer = 0
                     CveSubProyecto = 12659 ' fijo Ecommerce
                     CveCliente = 0
                     CveMoneda = 1
@@ -388,9 +389,44 @@ Public Class E119 : Implements IHttpHandler
                     MsgLog.AppendLine("1.3 billing")
                     Dim RFC As String = ""
                     Dim NombreCliente As String = ""
-                    If JsonRequest("billing") IsNot Nothing Then
+                    Dim RegimenCliente As String = ""
-                        RFC = JsonRequest("billing")("first_name").ToString()
+                    Dim UsoCFDI As String = ""
+                    Dim CveUsoCFDI As Integer = -1
+                    IdEcommerce = JsonRequest("wp_sale_id").ToEntero
+                    Dim Registrada As Boolean = False
+                    If IdEcommerce > 0 Then
+                        Dim objVenta As New ClsVentas
+                        If objVenta.GetVentaTerminal(IdEcommerce, MinFecha, CveSubProyecto, CveEmpresa) Then
+                            Dim dr As DataRow = objVenta.DtResultados.FiltroPrimero("")
+                            If dr IsNot Nothing Then
+                                MsgLog.AppendLine("0.10 remisión registrada previamente")
+                                Dim data As New JArray
+                                Dim objSucursal As New JObject(
+                                        New JProperty("Cve", dr("CveVenta")),
+                                        New JProperty("SerieFolio", dr("SerieFolio"))
+                                        )
+                                data.Add(objSucursal)
+                                Respuesta.status = "success"
+                                Respuesta.data = data
+                                Registrada = True
+                            End If
+                        End If
+                        objVenta.Dispose()
+                    End If
+
+                    If Registrada Then
+                        context.Response.StatusCode = 200
+                        Return JsonConvert.SerializeObject(Respuesta)
+                    End If
+
+                    If JsonRequest("billing") IsNot Nothing AndAlso JsonRequest("rfc_info") IsNot Nothing Then
+                        RFC = JsonRequest("rfc_info")("rfc_client").ToString()
+                        RegimenCliente = JsonRequest("rfc_info")("regimen_client").ToString()
+                        UsoCFDI = JsonRequest("rfc_info")("cfdi").ToString()
                         NombreCliente = JsonRequest("billing")("first_name").ToString() & " " & JsonRequest("billing")("last_name").ToString()
+                        If Not String.IsNullOrEmpty(UsoCFDI) Then
+                            CveUsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI().FiltroPrimeroValor("CveUsoCFDI", $"UsoCFDI = '{UsoCFDI.Trim}'").ToEntero()
+                        End If
                     End If
 
                     'BUSCAR SI ESTÁ REGISTRADO EL CLIENTE
@@ -403,11 +439,14 @@ Public Class E119 : Implements IHttpHandler
                     End If
                     MsgLog.AppendLine("1.4 verificar cliente")
 
+
                     If CveCliente = 0 Then
                         '    'DATOS DE BILLING
                         MsgLog.AppendLine("1.5 crear cliente")
                         If JsonRequest("billing") IsNot Nothing Then
                             Dim CveEstado As Integer = -1
+                            Dim CveRegimenFiscal As Integer = -1
+
                             Dim Direccion As String = If(JsonRequest("billing")("address_1") Is Nothing, "", JsonRequest("billing")("address_1").ToString())
                             Dim NumExt As String = ""
                             Dim NumInt As String = ""
@@ -426,7 +465,11 @@ Public Class E119 : Implements IHttpHandler
                             Else
                                 CveEstado = 26
                             End If
-                            If ObjClientes.AgregarClienteNoFrecuente(NombreCliente, Direccion, NumExt, NumInt, Colonia, Localidad, Ciudad, CveEstado, RFC, CP, Telefono, Correo, CveSubProyecto, CveUsuario, CveEmpresa, "", -1, -1) Then
+                            If Not String.IsNullOrEmpty(RegimenCliente) Then
+                                CveRegimenFiscal = ClsPaginas.GlobalDTRegimenesFiscales().FiltroPrimeroValor("CveRegimenFiscal", $"CodigoRegimenFiscal = '{RegimenCliente.Trim}'").ToEntero()
+                            End If
+
+                            If ObjClientes.AgregarClienteNoFrecuente(NombreCliente, Direccion, NumExt, NumInt, Colonia, Localidad, Ciudad, CveEstado, RFC, CP, Telefono, Correo, CveSubProyecto, CveUsuario, CveEmpresa, "", -1, -1, CveRegimenFiscal:=CveRegimenFiscal, CveUsoCFDI:=CveUsoCFDI) Then
                                 If ObjClientes.DtResultados.Rows.Count > 0 Then
                                     CveCliente = ObjClientes.DtResultados(0)("CveCliente").ToString().ToEntero()
                                     MsgLog.AppendLine("1.5.5 cliente creado")
@@ -489,7 +532,9 @@ Public Class E119 : Implements IHttpHandler
                         ObjFactura.Alfa1 = Entrega
                     End If
 
-                    ObjFactura.CveDireccionEnvio = cvedireccionenvio
+                    ObjFactura.CveDireccionEnvio = CveDireccionEnvio
+                    ObjFactura.CveVentaTerminal = IdEcommerce
+                    ObjFactura.CveUsoCFDI = CveUsoCFDI
 
                     If JsonRequest("line_items") IsNot Nothing Then
                         Dim ListaPS As JArray = JArray.Parse(JsonRequest("line_items").ToString())

General/SaldosIniciales.aspx.vb

@@ -1441,15 +1441,15 @@ Partial Class General_SaldosIniciales
                         Dim Folio As String = Row("Folio").ToString()
                         Dim Fecha As Date = Row("Fecha").ToString().ToDate
                         Dim SubTotal As Decimal = Row("SubTotal").ToString().ToDecimal
-                        Dim IVA As Decimal = Row("IVA").ToString().ToDecimal
+                        Dim IVA As Decimal = Row("IVA").ToString().ToDecimal.RoundSQL
-                        Dim Total As Decimal = Row("Total").ToString().ToDecimal
+                        Dim Total As Decimal = Row("Total").ToString().ToDecimal.RoundSQL
-                        Dim Saldo As Decimal = Row("Saldo").ToString().ToDecimal
+                        Dim Saldo As Decimal = Row("Saldo").ToString().ToDecimal.RoundSQL
-                        Dim TipoDocto As String = Row("Tipo Documento").ToString()
+                        Dim TipoDocto As String = Row("Tipo Documento").ToString().Trim.ToUpper
                         Dim CveProveedor As Integer = DtProveedores.FiltroPrimeroValor("CveProveedor", $"RFC = '{RFC}'").ToString().ToEntero()
                         GuardaLog(Sucursal + " - " + Row("Sucursal").ToString())
-                        Dim RetIVA As Decimal = Row("Ret IVA").ToString().ToDecimal
+                        Dim RetIVA As Decimal = Row("Ret IVA").ToString().ToDecimal.RoundSQL
-                        Dim RetISR As Decimal = Row("Ret ISR").ToString().ToDecimal
+                        Dim RetISR As Decimal = Row("Ret ISR").ToString().ToDecimal.RoundSQL
-                        Dim IEPS As Decimal = If(dt.Columns.Contains("IEPS"), Row("IEPS").ToString(), "0").ToDecimal
+                        Dim IEPS As Decimal = If(dt.Columns.Contains("IEPS"), Row("IEPS").ToString(), "0").ToDecimal.RoundSQL
                         Dim Moneda As String = Row("Moneda").ToString()
                         Dim TipoCambio As String = If(dt.Columns.Contains("Tipo Cambio"), Row("Tipo Cambio").ToString(), "1")
                         Dim FechaVencimiento As Date = Row("Fecha Vencimiento").ToString().ToDate
@@ -1466,9 +1466,16 @@ Partial Class General_SaldosIniciales
                         If Not CveUnidadMedida > 0 Then Alert(String.Format("No se encontró la Unidad de Medida."), TipoMensaje.MsgError) : ErrorCompras = True
                         If Not CveProveedor > 0 Then Alert(String.Format("No se encontró el Proveedor con el RFC: {0}", {RFC}), TipoMensaje.MsgError) : ErrorCompras = True : Exit For
                         If Not CveProveedorSucursal > 0 Then CveProveedorSucursal = -1
+                        If PorcentajeIVA > 0 AndAlso IVA = 0 Then PorcentajeIVA = 0
 
-                        TipoDocto = IIf(TipoDocto.ToUpper.Contiene("INGRESOS", "INGRESO", "ING", "FACTURA"), "Fac", "NC").ToString()
+                        Dim RetIVAConcepto As String = If(dt.Columns.Contains("RetIVAConcepto"), Row("RetIVAConcepto").ToString(), "").ToUpper
+                        Dim RetISRConcepto As String = If(dt.Columns.Contains("RetISRConcepto"), Row("RetISRConcepto").ToString(), "").ToUpper
+                        Dim CveRetIVAConcepto As Integer = If(RetIVAConcepto = "HONORARIOS", 1, If(RetIVAConcepto = "FLETES", 2, If(RetIVAConcepto = "ARRENDAMIENTO", 4, -1)))
+                        Dim CveRetISRConcepto As Integer = If(RetISRConcepto = "HONORARIOS", 1, If(RetISRConcepto = "ARRENDAMIENTO", 2, If(RetISRConcepto = "RESICO", 4, -1)))
 
+                        TipoDocto = IIf(TipoDocto.Contiene("INGRESOS", "INGRESO", "ING", "FACTURA", "FACTURAS", ""), "Fac", "NC").ToString()
+
+                        'RMF. falta validación de totales.
                         'Temporalmente SE BORRARA
                         Dim Transaccion As String = "" 'Row("Transaccion2").ToString()
                         Dim Folio2 As String = "" 'Row("Folio2").ToString()
@@ -1497,9 +1504,9 @@ Partial Class General_SaldosIniciales
                         If FechaVencimiento = "".ToDate Or FechaVencimiento < "1900/01/01".ToDate Then
                             FechaVencimiento = Fecha
                         End If
-                        If Not ObjCompras.AddCompra(TipoDocto, "", Serie, Folio, Folio2, CveProveedor.ToEntero(), SubTotal, 0, 0, IVA, RetIVA, RetISR, IEPS, 0, 0, Total, Fecha, CveMoneda, TipoCambio.ToDecimal, FechaVencimiento,
+                        If Not ObjCompras.AddCompra(TipoDocto, "", Serie, Folio, Folio2, CveProveedor.ToEntero(), SubTotal + ImpuestosLocales, 0, 0, IVA, RetIVA, RetISR, IEPS, 0, 0, Total, Fecha, CveMoneda, TipoCambio.ToDecimal, FechaVencimiento,
                                                     False, CodProvee, 1, CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorSucursal:=CveProveedorSucursal,
-                                                    NumeroReembolso:=Transaccion, PorcentajeIVA:=PorcentajeIVA, TotalOriginal:=Total, CveSubProyecto:=CveSubProyecto) Then
+                                                    NumeroReembolso:=Transaccion, PorcentajeIVA:=PorcentajeIVA, TotalOriginal:=Total, CveSubProyecto:=CveSubProyecto, CveRetIVAConcepto:=CveRetIVAConcepto, CveRetISRConcepto:=CveRetISRConcepto) Then
                             ErrorCompras = True
                             Exit For
                         End If
@@ -1510,6 +1517,12 @@ Partial Class General_SaldosIniciales
                             ErrorCompras = True
                             Exit For
                         End If
+                        If ImpuestosLocales > 0 Then 'se agrega como parte de la partida, sin iva.
+                            If Not ObjCompras.AddCompraDetalle(CveCompra, CveUnidadMedida, CvePS, CveSubProyecto, -1, 0, 1, ImpuestosLocales, ImpuestosLocales, ImpuestosLocales, 0, "Carga Inicial", -1, IVAPorcentaje:=0, RetIVAPorcentaje:=0, RetISRPorcentaje:=0) Then
+                                ErrorCompras = True
+                                Exit For
+                            End If
+                        End If
                         Dim ConceptoContablePago As Integer = 17
                         If TipoDocto = "NC" Then ConceptoContablePago = 60
 
@@ -1525,7 +1538,7 @@ Partial Class General_SaldosIniciales
 
                         If RetIVA > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, RetIVA, RetIVA, 15, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For
                         If RetISR > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, RetISR, RetISR, 16, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For
-                        If ImpuestosLocales > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImpuestosLocales, ImpuestosLocales, 27, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For
+                        'If ImpuestosLocales > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImpuestosLocales, ImpuestosLocales, 27, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For
 
                         'Saldo
                         If Saldo < Total Then
@@ -3443,11 +3456,6 @@ Partial Class General_SaldosIniciales
                 '    CveEscolaridad = -1
                 'End If
 
-
-
-
-
-
                 myarraystr = MetodoPago.Split(":"c)
                 If (myarraystr.Length > 1) Then
                     CveMetodoPago = myarraystr(0).ToEntero()
@@ -3497,6 +3505,8 @@ Partial Class General_SaldosIniciales
 
 
 
+
+
                 Dim CvePersonal As Integer = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePersonal", $"NombreCompletoNombre = '{NombreCompleto}'").ToString().ToEntero()
 
                 If Not (CvePersonal > 0) Then
@@ -3948,8 +3958,8 @@ Partial Class General_SaldosIniciales
         libro.Cell(crow, ccol).Value = "CuentaContable" : ccol = ccol + 1
         libro.Cell(crow, ccol).Value = "Saldo" : ccol = ccol + 1
         libro.Cell(crow, ccol).Value = "Tipo Trabajador" : ccol = ccol + 1
+        libro.Cell(crow, ccol).Value = "RegistroPatronal" : ccol = ccol + 1
         '
-
         libro.Range(crow, 1, crow, ccol - 1).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189))
         libro.Range(crow, 1, crow, ccol - 1).Style.Font.FontColor = ClosedXML.Excel.XLColor.White
 

OS/OrdenesServicios.aspx

@@ -1285,27 +1285,37 @@
                     </div>
                     <div class="modal-body">                        
     
-                         <div class="row">
+                        <div class="row">
 
-                             <div class="col-md-6">
+                            <div class="col-md-4">
-                                 <div class="form-group form-md-line-input input-iconright" runat="server" visible="false" id="DvTxtPacienteModal" >
+                                <div class="form-group form-md-line-input input-iconright" runat="server" visible="false" id="DvTxtPacienteModal">
                                     <asp:TextBox ID="TxtPacienteModal" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
-                                    <asp:RequiredFieldValidator ID="RfvTxtPacienteModal" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtPacienteModal" 
+                                    <asp:RequiredFieldValidator ID="RfvTxtPacienteModal" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtPacienteModal"
                                         ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Paciente''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMaterialUtilizado"></asp:RequiredFieldValidator>
                                     <label for="<%= TxtPacienteModal.ClientID.ToString()%>">Paciente:</label>
                                 </div>
                             </div>
 
-                            <div class="col-md-6">
+                            <div class="col-md-4">
-                                   <div class="form-group form-md-line-input input-iconright"  runat="server" visible="false" id="DvTxtEpisodioModal">
+                                <div class="form-group form-md-line-input input-iconright" runat="server" visible="false" id="DvTxtEpisodioModal">
-                                       <asp:TextBox ID="TxtEpisodioModal" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="20"></asp:TextBox>
+                                    <asp:TextBox ID="TxtEpisodioModal" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="20"></asp:TextBox>
-                                       <asp:RequiredFieldValidator ID="RfvTxtEpisodioModal" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtEpisodioModal" 
+                                    <asp:RequiredFieldValidator ID="RfvTxtEpisodioModal" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtEpisodioModal"
-                                           ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Episodio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMaterialUtilizado"></asp:RequiredFieldValidator>
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Episodio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMaterialUtilizado"></asp:RequiredFieldValidator>
-                                       <label for="<%= TxtEpisodioModal.ClientID.ToString()%>">Episodio:</label>
+                                    <label for="<%= TxtEpisodioModal.ClientID.ToString()%>">Episodio:</label>
-                                   </div>
                                 </div>
-                            </div>                      
+                            </div>
 
+
+                            <div class="col-md-4">
+                                <div class="form-group form-md-line-input input-iconright" runat="server" visible="false" id="DvTxtFolioRemisionModal">
+                                    <asp:TextBox ID="TxtFolioRemisionModal" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="20"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RfvTxtFolioRemisionModal" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtFolioRemisionModal"
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMaterialUtilizado"></asp:RequiredFieldValidator>
+                                    <label for="<%= TxtFolioRemisionModal.ClientID.ToString()%>">Folio:</label>
+                                </div>
+                            </div>
+                        </div>                                                       
+                        <br />
                         <div class="row">
                             <div class="col-md-12">
 
@@ -1357,16 +1367,20 @@
 
                             </div>
                         </div>
- 
-
-
                     </div>
+
                     <div class="modal-footer">
 
-                        <asp:LinkButton ID="LnkModalMaterialUtilizado" runat="server" CssClass="btn btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="El material definido es el correcto?" data-btn-ok-label="si" 
+                        <div class="row">
-                            ValidationGroup="GrpMaterialUtilizado" CausesValidation="true"
+                            <div class="col-md-12">
-                            OnClick="LnkModalMaterialUtilizado_Click" >Guardar</asp:LinkButton>
+                                <asp:LinkButton ID="LnkModalMaterialUtilizado" runat="server" CssClass="btn btn-primary" data-toggle="confirmation" data-popout="true" data-original-title="El material definido es el correcto?" data-btn-ok-label="si" 
-                        <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                                    ValidationGroup="GrpMaterialUtilizado" CausesValidation="true"
+                                    OnClick="LnkModalMaterialUtilizado_Click" >Guardar</asp:LinkButton>
+                                <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                            </div>
+                        </div>
+
+                        
 
                     </div>
                 </ContentTemplate>

OS/OrdenesServicios.aspx.vb

@@ -10,6 +10,7 @@ Imports Stimulsoft.Report.StiOptions.Export
 Imports Modelos
 Imports System.Runtime.InteropServices.ComTypes
 Imports APP_Code_CSharp
+Imports System.ComponentModel.Design
 
 Partial Class OS_OrdenesServicios
     Inherits ClsPaginas
@@ -475,6 +476,7 @@ Partial Class OS_OrdenesServicios
 
                 DvTxtPacienteModal.Visible = True
                 DvTxtEpisodioModal.Visible = True
+                DvTxtFolioRemisionModal.Visible = True
 
                 If CveOS > 0 And TipoEstatus >= 3 Then
                     DdlUsuarioAtendio.Enabled = True
@@ -3067,7 +3069,12 @@ Partial Class OS_OrdenesServicios
         If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
             TxtPacienteModal.Text = TxtPaciente.Text
             TxtEpisodioModal.Text = TxtIdentificadorCliente.Text
+        End If
 
+        If DdlTipoVenta.SelectedValue.ToEntero = 5 Then
+            DvTxtFolioRemisionModal.Visible = False
+        Else
+            DvTxtFolioRemisionModal.Visible = True
         End If
 
         UpModalMaterialUtilizado.Update()
@@ -3198,6 +3205,14 @@ Partial Class OS_OrdenesServicios
             Dim ImporteAlmacen As Decimal
             Dim Fecha As DateTime = ClsPaginas.NowADS()
 
+            If GenrarRemisionMovimientos AndAlso ProcesoOK Then
+                If Not TxtFolioRemisionModal.Text.Trim.Length > 0 Then
+                    Alert("El campo Folio es requerido por favor ingreselo.", TipoMensaje.MsgAdvertencia)
+                    ProcesoOK = False
+                    GenrarRemisionMovimientos = False
+                End If
+            End If
+
             If GenrarRemisionMovimientos AndAlso ProcesoOK Then
                 Respuesta = GeneraRemision(CveVentaPedido, ObjV.IniciaTransacSQL())
 
@@ -3378,6 +3393,7 @@ Partial Class OS_OrdenesServicios
             ObjFactura.CveVentaRelacion = CveVentaPedido
             ObjFactura.Paciente = TxtPacienteModal.Text.Trim
             ObjFactura.Episodio = TxtEpisodioModal.Text.Trim
+            ObjFactura.Alfa1 = TxtFolioRemisionModal.Text.Trim
 
             For Each GvRow As GridViewRow In GvMU.Rows
 

Sistemas/CatSesiones.aspx.vb

@@ -131,7 +131,9 @@ Partial Class Sistemas_CatSesiones
         End If
     End Sub
 
-    Private Sub CargaActivoFijos()
+    Private Sub CargaActivoFijos()
+        GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa) = Nothing
         GlobalDTActivoFijos(UsuarioActual.CveEmpresa) = Nothing
         GlobalDTModeloActivoFijo(UsuarioActual.CveEmpresa, -1) = Nothing
     End Sub

Transportes/RepContratos.aspx

@@ -33,13 +33,20 @@
     </style>
 </asp:Content>
 
-<asp:Content ID="Content1" ContentPlaceHolderID="HB" runat="Server">
+<asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
-    <li>
+      <asp:UpdatePanel ID="UPPAcciones" runat="server" UpdateMode="Conditional" RenderMode="Inline">
-        <asp:LinkButton ID="LBAgregarContrato" runat="server"><i class='fa fa-plus'></i>Agregar Contrato</asp:LinkButton>
+         <ContentTemplate>
-    </li>
+            <li>
-    <li>
+                    <asp:LinkButton ID="LBAgregarContrato" runat="server"><i class='fa fa-plus'></i>Agregar Contrato</asp:LinkButton>             
-        <asp:LinkButton ID="LBExcel" runat="server"><i class="fa fa-file-excel-o"></i>Generar Excel</asp:LinkButton>
+            </li>
-    </li>
+            <li>
+                <asp:LinkButton ID="LBExcel" runat="server"><i class="fa fa-file-excel-o"></i>Generar Excel</asp:LinkButton>
+            </li>
+          </ContentTemplate>
+          <Triggers>
+              <asp:PostBackTrigger ControlID="LBExcel" />
+          </Triggers>
+    </asp:UpdatePanel>
 </asp:Content>
 
 <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
@@ -51,253 +58,246 @@
             style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier">
             </i></a>
     </div>
-    <asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
+    
-        <ContentTemplate>
+        <asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
-            <asp:GridView ID="GvContratos" runat="server" AutoGenerateColumns="false" EmptyDataText="No se Encontró Contrato Registrado"
-                CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None"
-                data-sort="true" DataKeyNames="CveContrato, DescripcionContrato, Ubicacion, FechaInicial, FechaFinal, CveCliente, CveTipoAF, Importe, ImporteMin, ImporteMax, CveChofer">
-                <Columns>
-
-                    <asp:TemplateField HeaderText="No. Contrato">
-                        <ItemTemplate>
-                            <asp:Literal ID="LtlCveContrato" runat="server" Text='<%# Eval("CveContrato") %>'></asp:Literal>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-
-                    <asp:TemplateField HeaderText="Descripcion">
-                        <ItemTemplate>
-                            <asp:Literal ID="LtlDescripcionContrato" runat="server" Text='<%# Eval("DescripcionContrato") %>'></asp:Literal>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-
-                    <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Ubicación">
-                        <ItemTemplate>
-                            <asp:Literal ID="LtUbicacion" runat="server" Text='<%# Eval("Ubicacion") %>'></asp:Literal>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-
-                    <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Cliente">
-                        <ItemTemplate>
-                            <asp:Literal ID="LtNombreComercial" runat="server" Text='<%# Eval("NombreComercial") %>'></asp:Literal>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-
-                    <asp:TemplateField HeaderText="Chofer">
-                        <ItemTemplate>
-                            <asp:Literal ID="LtlChofer" runat="server" Text='<%# Eval("NombreCompleto") %>'></asp:Literal>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-
-                    <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100px">
-                        <HeaderTemplate>
-                            Fecha<br />
-                            Salida
-                        </HeaderTemplate>
-                        <ItemTemplate>
-                            <asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaInicial", "{0:d}") %>'></asp:Literal>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-
-                    <asp:TemplateField HeaderText="Fecha Final" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100px">
-                        <HeaderTemplate>
-                            Fecha<br />
-                            Regreso
-                        </HeaderTemplate>
-                        <ItemTemplate>
-                            <asp:Literal ID="LtlFechaFinal" runat="server" Text='<%# Eval("FechaFinal", "{0:d}") %>'></asp:Literal>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-
-                    <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Acciones">
-                        <ItemTemplate>
-                            <asp:LinkButton ID="BtnEditar" runat="server" AlternateText="Editar"
-                                CssClass="btn btn-circle btn-sm green" OnClick="UpdateContrato" Text="<i class='fa fa-pencil'></i>" />
-                            <asp:LinkButton ID="BtnEliminar" runat="server" AlternateText="Eliminar"
-                                CssClass="btn btn-circle btn-sm red" OnClick="RemoveContrato" Text="<i class='fa fa-trash'></i>"
-                                data-toggle="confirmation" data-popout="true" data-original-title="Confirmar"
-                                data-btn-ok-label="si" />
-
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                </Columns>
-            </asp:GridView>
-        </ContentTemplate>
-    </asp:UpdatePanel>
-
-    <div id="ModalAgregar" class="modal ADS fade" role="dialog">
-        <asp:UpdatePanel runat="server" ID="UpModal" UpdateMode="Conditional">
             <ContentTemplate>
-                <div class="modal-dialog">
+                <asp:GridView ID="GvContratos" runat="server" AutoGenerateColumns="false" EmptyDataText="No se Encontró Contrato Registrado"
-                    <div id="UpAddChofer" class="modal-content rowpadding" tabindex="-1"
+                    CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None"
-                        runat="server">
+                    data-sort="true" DataKeyNames="CveContrato, DescripcionContrato, Ubicacion, FechaInicial, FechaFinal, CveCliente, CveTipoAF, Importe, ImporteMin, ImporteMax ">
+                    <Columns>
 
-                        <div class="modal-header">
+                        <asp:TemplateField HeaderText="No. Contrato">
-                            <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                            <ItemTemplate>
-                                <span aria-hidden="true">&times;</span>
+                                <asp:Literal ID="LtlCveContrato" runat="server" Text='<%# Eval("CveContrato") %>'></asp:Literal>
-                            </button>
+                            </ItemTemplate>
-                            <h4 class="modal-title" id="myModalLabel" runat="server">Agregar Contrato</h4>
+                        </asp:TemplateField>
-                        </div>
-                        <div class="modal-body">
 
-                            <div class="portlet-body">
+                        <asp:TemplateField HeaderText="Descripcion">
-                                <div class="row my-1" id="TrCliente" runat="server">
+                            <ItemTemplate>
-                                    <label class="col-md-4 bold">
+                                <asp:Literal ID="LtlDescripcionContrato" runat="server" Text='<%# Eval("DescripcionContrato") %>'></asp:Literal>
-                                        <asp:Label ID="Label1" runat="server" Text="Cliente:"></asp:Label></label><div class="col-md-8">
+                            </ItemTemplate>
-                                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente"
+                        </asp:TemplateField>
-                                                runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"
-                                                UsaWebService="true"></ADS:Dropdownlost>
-                                        </div>
-                                </div>
 
-                                <div class="row my-1">
+                        <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Ubicación">
-                                    <label class="col-md-4 bold">Servicio:</label>
+                            <ItemTemplate>
-                                    <div class="col-md-8">
+                                <asp:Literal ID="LtUbicacion" runat="server" Text='<%# Eval("Ubicacion") %>'></asp:Literal>
-                                        <asp:TextBox ID="TxtDescripcion" runat="server" MaxLength="70" Width="100%"
+                            </ItemTemplate>
-                                            TextMode="MultiLine"></asp:TextBox>
+                        </asp:TemplateField>
-                                        <asp:RequiredFieldValidator ID="RFVDescripcion" runat="server" ControlToValidate="TxtDescripcion"
-                                            Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripcion''</b> es necesario, por favor ingréselo."
-                                            ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                        <ajax:ValidatorCalloutExtender ID="VCEDescripcion" runat="server" HighlightCssClass="vco"
-                                            TargetControlID="RFVDescripcion" Width="100%" BehaviorID="_content_VCEDescripcion">
-                                        </ajax:ValidatorCalloutExtender>
-                                    </div>
-                                </div>
 
-                                <div class="row">
+                        <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Cliente">
-                                    <label class="col-md-4 bold">Lugar de Salida:</label>
+                            <ItemTemplate>
-                                    <div class="col-md-8">
+                                <asp:Literal ID="LtNombreComercial" runat="server" Text='<%# Eval("NombreComercial") %>'></asp:Literal>
-                                        <asp:TextBox ID="TxtUbicacion" runat="server" MaxLength="70" Width="100%"></asp:TextBox>
+                            </ItemTemplate>
-                                        <asp:RequiredFieldValidator ID="RFVUbicacion" runat="server" ControlToValidate="TxtUbicacion"
+                        </asp:TemplateField>
-                                            Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Ubicación''</b> es necesario, por favor ingréselo."
-                                            ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                        <ajax:ValidatorCalloutExtender ID="VCEUbicacion" runat="server" HighlightCssClass="vco"
-                                            TargetControlID="RFVUbicacion" Width="100%" BehaviorID="_content_VCEUbicacion">
-                                        </ajax:ValidatorCalloutExtender>
-                                    </div>
-                                </div>
 
-                                <div class="row my-1">
+                        <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100px">
-                                    <label class="col-md-4 bold">Fecha Salida:</label>
+                            <HeaderTemplate>
-                                    <div class="col-md-8">
+                                Fecha<br />
-                                        <div class="input-group input-sm input-small date date-picker">
+                                Salida
-                                            <asp:TextBox ID="TxtFechaSalida" runat="server" CssClass="form-control" CausesValidation="True"
+                            </HeaderTemplate>
-                                                type="datetime-local"></asp:TextBox>
+                            <ItemTemplate>
+                                <asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaInicial", "{0:d}") %>'></asp:Literal>
+                            </ItemTemplate>
+                        </asp:TemplateField>
 
-                                            <asp:RequiredFieldValidator ID="RFVTxtFechaSalida" runat="server" ControlToValidate="TxtFechaSalida"
+                        <asp:TemplateField HeaderText="Fecha Final" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100px">
-                                                Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Salida''</b> es necesario, por favor ingréselo."
+                            <HeaderTemplate>
-                                                ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                Fecha<br />
-                                            <ajax:ValidatorCalloutExtender ID="VCETxtFechaSalida" runat="server" HighlightCssClass="vco"
+                                Regreso
-                                                TargetControlID="RFVTxtFechaSalida" Width="100%" BehaviorID="_content_VCETxtFechaSalida">
+                            </HeaderTemplate>
-                                            </ajax:ValidatorCalloutExtender>
+                            <ItemTemplate>
-                                        </div>
+                                <asp:Literal ID="LtlFechaFinal" runat="server" Text='<%# Eval("FechaFinal", "{0:d}") %>'></asp:Literal>
-                                    </div>
+                            </ItemTemplate>
-                                </div>
+                        </asp:TemplateField>
 
-                                <div class="row my-1">
+                        <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Acciones">
-                                    <label class="col-md-4 bold">Fecha Regreso:</label>
+                            <ItemTemplate>
-                                    <div class="col-md-8">
+                                <asp:LinkButton ID="BtnEditar" runat="server" AlternateText="Editar"
-                                        <div class="input-group input-sm input-small date date-picker">
+                                    CssClass="btn btn-circle btn-sm green" OnClick="UpdateContrato" Text="<i class='fa fa-pencil'></i>" />
-                                            <asp:TextBox ID="TxtFechaRegreso" runat="server" CssClass="form-control" CausesValidation="True"
+                                <asp:LinkButton ID="BtnEliminar" runat="server" AlternateText="Eliminar"
-                                                type="datetime-local"></asp:TextBox>
+                                    CssClass="btn btn-circle btn-sm red" OnClick="RemoveContrato" Text="<i class='fa fa-trash'></i>"
+                                    data-toggle="confirmation" data-popout="true" data-original-title="Confirmar"
+                                    data-btn-ok-label="si" />
 
-                                            <asp:RequiredFieldValidator ID="RFVTxtFechaRegreso" runat="server" ControlToValidate="TxtFechaRegreso"
+                            </ItemTemplate>
-                                                Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Regreso''</b> es necesario, por favor ingréselo."
+                        </asp:TemplateField>
-                                                ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                    </Columns>
-                                            <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco"
+                </asp:GridView>
-                                                TargetControlID="RFVTxtFechaRegreso" Width="100%" BehaviorID="_content_VCETxtFechaRegreso">
-                                            </ajax:ValidatorCalloutExtender>
-                                        </div>
-                                    </div>
-                                </div>
-
-                                <div class="row margin-bottom-5" id="TrAF" runat="server">
-                                    <label class="col-md-4 bold">
-                                        <asp:Label runat="server" Text="Transporte:"></asp:Label></label><div
-                                            class="col-md-8">
-
-                                            <asp:DropDownList ID="DdlTransporte" AppendDataBoundItems="true" DataTextField="Descripcion"
-                                                DataValueField="CveTipoActivoFijo" Class="table-group-action-input form-control input-inline text-center"
-                                                Width="200px" runat="server">
-                                            </asp:DropDownList>
-                                            <asp:RequiredFieldValidator ID="RFVTransporte" runat="server" ControlToValidate="DdlTransporte"
-                                                Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Transporte''</b> es necesario, por favor ingréselo."
-                                                ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                            <ajax:ValidatorCalloutExtender ID="VCETransporte" runat="server" HighlightCssClass="vco"
-                                                TargetControlID="RFVTransporte" Width="400px" BehaviorID="_content_VCETransporte">
-                                            </ajax:ValidatorCalloutExtender>
-
-                                        </div>
-                                </div>
-
-                                <div class="row margin-bottom-5" id="TrChofer" runat="server">
-                                    <label class="col-md-4 bold">
-                                        <asp:Label runat="server" Text="Chofer:"></asp:Label></label><div
-                                            class="col-md-8">
-
-                                            <asp:DropDownList ID="DdlChofer" AppendDataBoundItems="true" DataValueField="CvePersonal"
-                                                DataTextField="NombreCompleto" Class="table-group-action-input form-control input-inline text-center"
-                                                Width="200px" runat="server">
-                                            </asp:DropDownList>
-                                            <asp:RequiredFieldValidator ID="RFVChofer" runat="server" ControlToValidate="DdlChofer"
-                                                Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Chofer''</b> es necesario, por favor ingréselo."
-                                                ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                            <ajax:ValidatorCalloutExtender ID="VCEChofer" runat="server" HighlightCssClass="vco"
-                                                TargetControlID="RFVChofer" Width="400px" BehaviorID="_content_VCEChofer">
-                                            </ajax:ValidatorCalloutExtender>
-                                        </div>
-                                </div>
-
-                                <div class="row my-1">
-                                    <label class="col-md-4 bold">Observaciones:</label>
-                                    <div class="col-md-8">
-                                        <asp:TextBox ID="TxtObservaciones" runat="server" MaxLength="70" Width="100%"
-                                            TextMode="MultiLine"></asp:TextBox>
-                                        <asp:RequiredFieldValidator ID="RFVObservaciones" runat="server" ControlToValidate="TxtObservaciones"
-                                            Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripcion''</b> es necesario, por favor ingréselo."
-                                            ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                        <ajax:ValidatorCalloutExtender ID="VCEObservaciones" runat="server" HighlightCssClass="vco"
-                                            TargetControlID="RFVObservaciones" Width="100%" BehaviorID="_content_VCEObservaciones">
-                                        </ajax:ValidatorCalloutExtender>
-                                    </div>
-                                </div>
-
-                                <div class="row my-1">
-                                    <label class="col-md-4 bold">Costo dólares:</label>
-                                    <div class="col-md-8">
-                                        <asp:TextBox ID="TxtDolares" runat="server" type="number"></asp:TextBox>
-                                    </div>
-                                </div>
-
-                                <div class="row my-1">
-                                    <label class="col-md-4 bold">Costo pesos:</label>
-                                    <div class="col-md-8">
-                                        <asp:TextBox ID="TxtPesos" runat="server" type="number"></asp:TextBox>
-                                    </div>
-                                </div>
-
-                                <div class="row my-1">
-                                    <label class="col-md-4 bold">Anticipo:</label>
-                                    <div class="col-md-8">
-                                        <asp:TextBox ID="TxtAnticipo" runat="server" type="decimal"></asp:TextBox>
-                                    </div>
-                                </div>
-
-                            </div>
-
-                            <div class="modal-footer">
-                                <asp:Button ID="BtnGuardar" OnClick="AddContrato" runat="server" CssClass="btn btn-primary"
-                                    Text="Guardar"
-                                    ValidationGroup="GrpGuardar"></asp:Button>
-                                <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
-
-                            </div>
-                        </div>
-                    </div>
-                </div>
             </ContentTemplate>
         </asp:UpdatePanel>
-    </div>
+       
+            <div id="ModalAgregar" class="modal ADS fade" role="dialog">
+                <asp:UpdatePanel runat="server" ID="UpModal" UpdateMode="Conditional">
+                    <ContentTemplate>
+                    <div class="modal-dialog rowpadding">
+                        <div class="modal-content">
+                            
+                                <div class="modal-header">
+                                    <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                                        <span aria-hidden="true">&times;</span>
+                                    </button>
+                                    <h4 class="modal-title" id="myModalLabel" runat="server">Agregar Contrato</h4>
+                                </div>
+                               
+                                <div class="modal-body">
+                                        <div class="row" >
+                                            <div class="col-md-4">
+                                                <label>Cliente</label>
+                                            </div>
+                                            <div class="col-md-8">
+                                                 <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
+                                            </div>
+                                        </div>
+                                        <div class="row">
+                                            <label class="col-md-4">Servicio:</label>
+                                            <div class="col-md-8">
+                                                <asp:TextBox ID="TxtDescripcion" runat="server" MaxLength="70" Width="100%"
+                                                    TextMode="MultiLine"></asp:TextBox>
+                                                <asp:RequiredFieldValidator ID="RFVDescripcion" runat="server" ControlToValidate="TxtDescripcion"
+                                                    Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripcion''</b> es necesario, por favor ingréselo."
+                                                    ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                <ajax:ValidatorCalloutExtender ID="VCEDescripcion" runat="server" HighlightCssClass="vco"
+                                                    TargetControlID="RFVDescripcion" Width="100%">
+                                                </ajax:ValidatorCalloutExtender>
+                                            </div>
+                                        </div>
 
+                                        <div class="row">
+                                            <label class="col-md-4">Lugar de Salida:</label>
+                                            <div class="col-md-8">
+                                                <asp:TextBox ID="TxtUbicacion" runat="server" MaxLength="70" Width="100%"></asp:TextBox>
+                                                <asp:RequiredFieldValidator ID="RFVUbicacion" runat="server" ControlToValidate="TxtUbicacion"
+                                                    Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Ubicación''</b> es necesario, por favor ingréselo."
+                                                    ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                <ajax:ValidatorCalloutExtender ID="VCEUbicacion" runat="server" HighlightCssClass="vco"
+                                                    TargetControlID="RFVUbicacion" Width="100%" >
+                                                </ajax:ValidatorCalloutExtender>
+                                            </div>
+                                        </div>
+
+                                        <div class="row">
+                                            <label class="col-md-4">Fecha Salida:</label>
+                                            <div class="col-md-8">
+                                                <div class="input-group input-sm input-small date date-picker">
+                                                    <asp:TextBox ID="TxtFechaSalida" runat="server" CssClass="form-control" CausesValidation="True"
+                                                        type="datetime-local"></asp:TextBox>
+
+                                                    <asp:RequiredFieldValidator ID="RFVTxtFechaSalida" runat="server" ControlToValidate="TxtFechaSalida"
+                                                        Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Salida''</b> es necesario, por favor ingréselo."
+                                                        ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                    <ajax:ValidatorCalloutExtender ID="VCETxtFechaSalida" runat="server" HighlightCssClass="vco"
+                                                        TargetControlID="RFVTxtFechaSalida" Width="100%" >
+                                                    </ajax:ValidatorCalloutExtender>
+                                                </div>
+                                            </div>
+                                        </div>
+
+                                        <div class="row">
+                                            <label class="col-md-4">Fecha Regreso:</label>
+                                            <div class="col-md-8">
+                                                <div class="input-group input-sm input-small date date-picker">
+                                                    <asp:TextBox ID="TxtFechaRegreso" runat="server" CssClass="form-control" CausesValidation="True"
+                                                        type="datetime-local"></asp:TextBox>
+
+                                                    <asp:RequiredFieldValidator ID="RFVTxtFechaRegreso" runat="server" ControlToValidate="TxtFechaRegreso"
+                                                        Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Regreso''</b> es necesario, por favor ingréselo."
+                                                        ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                    <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco"
+                                                        TargetControlID="RFVTxtFechaRegreso" Width="100%" >
+                                                    </ajax:ValidatorCalloutExtender>
+                                                </div>
+                                            </div>
+                                        </div>
+
+                                        <div class="row">
+                                            <label class="col-md-4">
+                                                <asp:Label runat="server" Text="Transporte:"></asp:Label></label><div
+                                                    class="col-md-8">
+
+                                                    <asp:DropDownList ID="DdlTransporte" AppendDataBoundItems="true" DataTextField="Descripcion"
+                                                        DataValueField="CveTipoActivoFijo" Class="table-group-action-input form-control input-inline select2me"
+                                                        Width="100%" runat="server">
+                                                    </asp:DropDownList>
+                                                    <asp:RequiredFieldValidator ID="RFVTransporte" runat="server" ControlToValidate="DdlTransporte"
+                                                        Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Transporte''</b> es necesario, por favor ingréselo."
+                                                        ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                    <ajax:ValidatorCalloutExtender ID="VCETransporte" runat="server" HighlightCssClass="vco"
+                                                        TargetControlID="RFVTransporte" Width="400px" >
+                                                    </ajax:ValidatorCalloutExtender>
+
+                                                </div>
+                                        </div>
+
+                                        <div class="row margin-bottom-5">
+                                            <label class="col-md-4">
+                                                <asp:Label runat="server" Text="Chofer:"></asp:Label></label><div
+                                                    class="col-md-8">
+
+                                                    <asp:DropDownList ID="DdlChofer" AppendDataBoundItems="true" DataValueField="CvePersonal"
+                                                        DataTextField="NombreCompleto" Class="table-group-action-input form-control input-inline select2me"
+                                                        Width="100%" runat="server">
+                                                    </asp:DropDownList>
+                                                    <asp:RequiredFieldValidator ID="RFVChofer" runat="server" ControlToValidate="DdlChofer"
+                                                        Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Chofer''</b> es necesario, por favor ingréselo."
+                                                        ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                    <ajax:ValidatorCalloutExtender ID="VCEChofer" runat="server" HighlightCssClass="vco"
+                                                        TargetControlID="RFVChofer" Width="400px" >
+                                                    </ajax:ValidatorCalloutExtender>
+                                                </div>
+                                        </div>
+
+                                        <div class="row">
+                                            <label class="col-md-4">Observaciones:</label>
+                                            <div class="col-md-8">
+                                                <asp:TextBox ID="TxtObservaciones" runat="server" MaxLength="70" Width="100%"
+                                                    TextMode="MultiLine"></asp:TextBox>
+                                                <asp:RequiredFieldValidator ID="RFVObservaciones" runat="server" ControlToValidate="TxtObservaciones"
+                                                    Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripcion''</b> es necesario, por favor ingréselo."
+                                                    ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                <ajax:ValidatorCalloutExtender ID="VCEObservaciones" runat="server" HighlightCssClass="vco"
+                                                    TargetControlID="RFVObservaciones" Width="100%" >
+                                                </ajax:ValidatorCalloutExtender>
+                                            </div>
+                                        </div>
+
+                                        <div class="row">
+                                            <label class="col-md-4">Costo dólares:</label>
+                                            <div class="col-md-8">
+                                                <asp:TextBox ID="TxtDolares" CssStyle=" form-control" runat="server" type="number"></asp:TextBox>
+                                            </div>
+                                        </div>
+
+                                        <div class="row">
+                                            <label class="col-md-4">Costo pesos:</label>
+                                            <div class="col-md-8">
+                                                <asp:TextBox ID="TxtPesos" CssStyle=" form-control" runat="server" type="number"></asp:TextBox>
+                                            </div>
+                                        </div>
+
+                                        <div class="row">
+                                            <label class="col-md-4">Anticipo:</label>
+                                            <div class="col-md-8">
+                                                <asp:TextBox ID="TxtAnticipo" CssStyle=" form-control" runat="server" type="decimal"></asp:TextBox>
+                                            </div>
+                                        </div>
+
+                                    </div>
+
+                                <div class="modal-footer">
+                                        <asp:Button ID="BtnGuardar" OnClick="AddContrato" runat="server" CssClass="btn btn-primary"
+                                            Text="Guardar"
+                                            ValidationGroup="GrpGuardar"></asp:Button>
+                                        <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+
+                                    </div>                                 
+                            
+                        </div>
+                    </div>
+                
+                    </ContentTemplate>
+                </asp:UpdatePanel>
+         </div>           
+     
 </asp:Content>
 
 

Transportes/RepContratos.aspx.vb

@@ -23,7 +23,7 @@ Partial Class ListadoContratos
     Private Sub InicializaCombos()
         'Lista Activos Fijos'
         Dim ObjAF As New ClsAF()
-        If ObjAF.GetActivosFijos(-1, 13, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, 1, "-1", -1, -1, -1) Then
+        If ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, 1, "-1", -1, -1, -1) Then
             If ObjAF.DtResultados.Rows.Count > 0 Then
                 DdlTransporte.DataSource = ObjAF.DtResultados
                 DdlTransporte.Items.Insert(0, New ListItem("Seleccione", ""))

Ventas/RepRemisiones.aspx

@@ -229,6 +229,7 @@
                     <asp:BoundField HeaderText="Contrato" DataField="TieneContrato" Visible="false"  />                    
                     <asp:BoundField HeaderText="Médico" DataField="Medico" Visible="false"  />
                     <asp:BoundField HeaderText="Procedimiento" DataField="Procedimiento" Visible="false"  /> 
+                    <asp:BoundField HeaderText="Folio Rem" DataField="Alfa1" Visible="false"  /> 
                     <asp:BoundField HeaderText="Vendedor" DataField="Vendedor" />
                     <asp:BoundField DataField="PorcentajeAvance" HeaderText="Facturado" DataFormatString="{0:F}%" HtmlEncode="false" />
                     <asp:BoundField DataField="SubTotal" HeaderText="SubTotal" DataFormatString="{0:N2}"  Visible="false" ItemStyle-HorizontalAlign="Right" />

Ventas/RepRemisiones.aspx.vb

@@ -97,10 +97,10 @@ Partial Class RepRemisiones
         End If
 
         If DtVentas IsNot Nothing Then
-            GvDatos.Columns(10).Visible = DtVentas.SUMD("Descuento") > 0
+            GvDatos.Columns(11).Visible = DtVentas.SUMD("Descuento") > 0
         End If
 
-        GvDatos.Columns(13).Visible = chkInv.Checked 'solo se visualiza si está selccionada
+        GvDatos.Columns(14).Visible = chkInv.Checked 'solo se visualiza si está selccionada
         ObjVentas.Dispose()
 
         GvDatos.DataBind()
@@ -143,6 +143,7 @@ Partial Class RepRemisiones
             GvDatos.Columns(3).HeaderText = "Hospital"
             GvDatos.Columns(5).Visible = True
             GvDatos.Columns(6).Visible = True
+            GvDatos.Columns(7).Visible = True
             'columna de fecha
             GvDatos.Columns(1).HeaderText = "Fecha Cirugía"
             CType(GvDatos.Columns(1), HyperLinkField).DataTextFormatString = "{0:dd/MM/yyyy HH:mm}"