merge en ventas.pv

App_Code/ClsContratos.vb

@@ -1629,9 +1629,12 @@ Public Class ClsContratos
 
 
 #Region "T I P O S    C O N T R A T O S"
-    Public Function GetContratosTipos() As Boolean
+    Public Function GetContratosTipos(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Con_ContratosTiposGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True

App_Code/ClsInventarios.vb

@@ -4832,7 +4832,69 @@ Public Class ClsInventarios
 
 #End Region
 
-
+#Region "Camiones"
+    Public Function GetCamiones(CveCamion As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Inv_CamionesGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCamion", SqlDbType.Int).Value = CveCamion
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al momento de obtener el listado de camiones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+    Public Function AddCamiones(Placa As String, Especificacion As String, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Inv_CamionesAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Placa", SqlDbType.VarChar).Value = Placa
+            .Add("@Especificacion", SqlDbType.VarChar).Value = Especificacion
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al momento de insertar el nuevo camion", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+    Public Function RemoveCamiones(CveCamion As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Inv_CamionesRemove")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCamion", SqlDbType.Int).Value = CveCamion
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al momento de eliminar un camion", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+    Public Function UpdateCamiones(CveCamion As Integer, Placa As String, Especificacion As String) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Inv_CamionesUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCamion", SqlDbType.Int).Value = CveCamion
+            .Add("@Placa", SqlDbType.VarChar).Value = Placa
+            .Add("@Especificacion", SqlDbType.VarChar).Value = Especificacion
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al momento de actualizar el camion", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+#End Region
 #Region " IDisposable Support "
     ' IDisposable
     Protected Overridable Sub Dispose(ByVal disposing As Boolean)

App_Code/ClsPaginas.vb

@@ -1673,12 +1673,23 @@ Public Class ClsPaginas
             Application("GlobalDTContratos") = value
         End Set
     End Property
-    Property GlobalDTContratosTipos() As DataTable
+    Property GlobalDTContratosTipos(CveEmpresa As Integer) As DataTable
         Get
-            GlobalDTContratosTipos = DirectCast(Application("GlobalDTContratosTipos"), DataTable)
+            Dim AppNombre As String = String.Format("GlobalDTContratosTipos{0}", CveEmpresa)
+
+            'sino existe, recarga los datos
+            If Application(AppNombre) Is Nothing Then
+                Dim ObjContratos As New ClsContratos
+                If ObjContratos.GetContratosTipos(CveEmpresa) Then Application(AppNombre) = ObjContratos.DtResultados
+                ObjContratos.Dispose()
+            End If
+
+            GlobalDTContratosTipos = DirectCast(Application(AppNombre), DataTable)
+
         End Get
         Set(value As DataTable)
-            Application("GlobalDTContratosTipos") = value
+            Dim AppNombre As String = String.Format("GlobalDTContratosTipos{0}", CveEmpresa)
+            Application(AppNombre) = value
         End Set
     End Property
     Property GlobalDTTipoAlmacen(CveEmpresa As Integer) As DataTable
@@ -1721,10 +1732,15 @@ Public Class ClsPaginas
             Application("GlobalDTSeccionAlmacen") = value
         End Set
     End Property
-    Property GlobalDTAlmacen(CveEmpresa As Integer) As DataTable
+    Property GlobalDTAlmacen(CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = -1) As DataTable
         Get
             If CveEmpresa <> -1 Then
-                Dim Dv As New DataView(DirectCast(Application("GlobalDTAlmacen"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
+
+                Dim Str As New StringBuilder
+                Str.AppendFormat(" CveEmpresa = {0} ", CveEmpresa)
+                If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen)
+
+                Dim Dv As New DataView(DirectCast(Application("GlobalDTAlmacen"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
                 GlobalDTAlmacen = Dv.ToTable
                 Dv.Dispose()
             Else

App_Code/Modelos.vb

@@ -541,7 +541,7 @@ Namespace Modelos
 
         End Class
 
-        Public Function EmitirFactura(Optional Timbrar As Boolean = True, Optional Trasac As SqlClient.SqlTransaction = Nothing, Optional ObjContPaqTransac As ClsContPAQi = Nothing) As MMensajeFactura
+        Public Function EmitirFactura(Optional Timbrar As Boolean = True, Optional Transac As SqlClient.SqlTransaction = Nothing, Optional ObjContPaqTransac As ClsContPAQi = Nothing) As MMensajeFactura
             Dim Retorno As New MMensajeFactura()
 
             If Me.Version = "3.3" AndAlso Not Me.TipoDocto.Contiene("Ped", "PeC") Then
@@ -589,8 +589,8 @@ Namespace Modelos
                 If DtDetalle.Rows.Count > 0 Then
 
                     Dim ObjVentas As ClsVentas = Nothing
-                    If Trasac IsNot Nothing Then
+                    If Transac IsNot Nothing Then
-                        ObjVentas = New ClsVentas(Trasac)
+                        ObjVentas = New ClsVentas(Transac)
                     Else
                         ObjVentas = New ClsVentas()
                         ObjVentas.IniciaTransacSQL()
@@ -801,7 +801,7 @@ Namespace Modelos
 
                             If Me.CveVenta > 0 AndAlso ErrorList.Count = 0 AndAlso (SeGuardoPrePoliza Or Me.TipoDocto.Contiene("Ped", "Cot", "DPe", "PeC", "PA", "Pd2")) Then
 
-                                If Trasac Is Nothing Then
+                                If Transac Is Nothing Then
                                     ObjVentas.Commit()
                                 End If
                                 If ObjContPaqTransac Is Nothing Then
@@ -1004,7 +1004,7 @@ Namespace Modelos
                                     Retorno.Mensajes = ListaMensajes
                                 End Try
                             Else
-                                If Trasac Is Nothing Then
+                                If Transac Is Nothing Then
                                     ObjVentas.RollBack()
                                 End If
                                 If ObjContPaqTransac Is Nothing Then
@@ -1015,7 +1015,7 @@ Namespace Modelos
                             End If
 
                         Else
-                            If Trasac Is Nothing Then
+                            If Transac Is Nothing Then
                                 ObjVentas.RollBack()
                             End If
 
@@ -1030,7 +1030,7 @@ Namespace Modelos
                     Catch ex As Exception
                         Me.ErrorList.Add(ex.ToString())
 
-                        If Trasac Is Nothing Then
+                        If Transac Is Nothing Then
                             ObjVentas.RollBack()
                         End If
                         If ObjContPaqTransac Is Nothing Then
@@ -1040,7 +1040,7 @@ Namespace Modelos
                         Retorno.Mensajes = ErrorList
                         Retorno.TieneError = True
                     Finally
-                        If Trasac Is Nothing Then
+                        If Transac Is Nothing Then
                             ObjVentas.Dispose()
                             ObjConta.Dispose()
                             ObjInventario.Dispose()

Ashx/SIGWeb.ashx

@@ -701,14 +701,14 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         Else
             CveEmpresa = usuario.CveEmpresa
             Dim Name = IfNull(context.Request("Name"), "-1").ToString
-            Dim AppNombre As String = String.Format("GlobalDTCompProveedores{0}", CveEmpresa)
+            Dim AppNombre As String = String.Format("GlobalDTRHPersonal{0}", CveEmpresa)
             'sino existe, recarga los datos
             If context.Application(AppNombre) Is Nothing Then
-                Dim ObjProveedores As New ClsRH
+                Dim ObjPersonal As New ClsRH
-                If ObjProveedores.GetPersonal(-1, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, usuario.CveEmpresa) Then
+                If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, CveEmpresa) Then
-                    context.Application(AppNombre) = ObjProveedores.DtResultados
+                    context.Application(AppNombre) = ObjPersonal.DtResultados
                 End If
-                ObjProveedores.Dispose()
+                ObjPersonal.Dispose()
             End If
 
             'Dim ObjProveedores As New ClsCompProveedores
@@ -718,13 +718,13 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
             'ObjProveedores.Dispose()
             Dim dt As DataTable = DirectCast(context.Application(AppNombre), DataTable).FiltraParametros($"CveEmpresa = {CveEmpresa}")
             If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
-                DtRetorno = dt.FiltraParametros($"Nombre like  '%{Name}%'")
+                DtRetorno = dt.FiltraParametros($"NombreCompleto like '%{Name}%'")
             End If
         End If
 
         If DtRetorno IsNot Nothing AndAlso DtRetorno.Rows.Count > 0 Then
             DtRetorno.Columns("CvePersonal").ColumnName = "id"
-            DtRetorno.Columns("Nombre").ColumnName = "text"
+            DtRetorno.Columns("NombreCompleto").ColumnName = "text"
             retorno = JsonConvert.SerializeObject(DtRetorno).ToString
             context.Response.Write(retorno)
         Else

Compras/Compras.aspx.vb

@@ -6623,32 +6623,35 @@ Partial Class Compras_Compras
                                                                 CveCuenta = 0
                                                             End If
                                                         Case 5 'Proveedores
+                                                            If CveTipoConcepto = 2 Then ConceptoContable = 305 'cuando es acreedor
                                                             If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
 
                                                                 importeMovimiento = importeProv
                                                                 importeMN = importeMovimiento * tipoCambioActual * Multiplicador
 
                                                                 If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
+                                                                Dim CveConceptoComplementario As Integer = 201
+                                                                If CveTipoConcepto = 2 Then CveConceptoComplementario = 310
 
                                                                 If tipoCambioActual = 1 Then
-                                                                    IdCtaContable = CtaProveedor
+                                                                        IdCtaContable = CtaProveedor
-                                                                    CveCuenta = CveCuentaProveedor
+                                                                        CveCuenta = CveCuentaProveedor
-                                                                Else
+                                                                    Else
-                                                                    IdCtaContable = CtaProveedorComplementaria
+                                                                        IdCtaContable = CtaProveedorComplementaria
-                                                                    CveCuenta = CveCuentaProveedorComplementaria
+                                                                        CveCuenta = CveCuentaProveedorComplementaria
-                                                                    If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or CveCuenta > 0 Or UsuarioActual.CveEmpresa = 119) Then 'Cuando tiene complementaria lo dividimos en dos Then
+                                                                        If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or CveCuenta > 0 Or UsuarioActual.CveEmpresa = 119) Then 'Cuando tiene complementaria lo dividimos en dos Then
-                                                                        importeMN = importeMovimiento
+                                                                            importeMN = importeMovimiento
-                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, 201, Concepto, FechaMovimiento, IdCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=importeMovimiento * tipoCambioActual - importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, CveConceptoComplementario, Concepto, FechaMovimiento, IdCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=importeMovimiento * tipoCambioActual - importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
                                                                             ErrorPrepoliza = True
                                                                         End If
                                                                     End If
-                                                                    IdCtaContable = CtaProveedorExtranjera
+                                                                        IdCtaContable = CtaProveedorExtranjera
-                                                                    CveCuenta = CveCuentaProveedorExtranjera
+                                                                        CveCuenta = CveCuentaProveedorExtranjera
+                                                                    End If
                                                                 End If
-                                                            End If
-                                                            If CveTipoConcepto = 2 Then ConceptoContable = 305 'cuando es acreedor
 
-                                                        Case 59 'Documentos
+
+                                                                Case 59 'Documentos
                                                             importeMovimiento = importeCreditos
                                                             importeMN = importeMovimiento * tipoCambioActual * Multiplicador
                                                             If ObjConta.GetRetCuenta(ConceptoContable, CveProveedor) Then
@@ -8431,7 +8434,11 @@ Partial Class Compras_Compras
                                                         If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
                                                             If sumaAmortizacion = CompraSaldo Then
                                                                 ImporteMovimiento = TxtIVA.Text.ToDecimal
-                                                                IVACompleto = True
+
+                                                                If ImporteMovimiento > 0 Then
+                                                                    IVACompleto = True
+                                                                End If
+
                                                             Else
                                                                 ImporteMovimiento = 0
                                                             End If

Compras/PopUpVerFactura.aspx.vb

@@ -2422,10 +2422,15 @@ Partial Class PopUpVerFactura
                 ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Desarmado de Paquete - {0}", Folio.ToString), RDSName:="DsInventarios")
 
 
-            Case 21 'SALIDA POR PRESTAMO
+            Case 21, 22 'SALIDA POR PRESTAMO
                 Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
                 Dim params As New List(Of ReportParameter)
 
+                Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntradaSalida.rdlc"
+                If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
+                    Archivo = "Empresas/Grales/Formatos/EntradaSalida.rdlc"
+                End If
+
                 Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                 If Imagen.Exists Then
                     params.Add(New ReportParameter("LogoPath", logouri))
@@ -2433,7 +2438,7 @@ Partial Class PopUpVerFactura
                     params.Add(New ReportParameter("LogoPath", ""))
                 End If
 
-                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+                'params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                 params.Add(New ReportParameter("Concepto", "Salida por Prestamo"))
                 params.Add(New ReportParameter("Almacen", Almacen))
                 params.Add(New ReportParameter("Fecha", Fecha))
@@ -2447,36 +2452,42 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("FacturadoA", NombreCliente))
                 If (UsuarioActual.CveEmpresa = 72) Then
                     params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
-                End If
-                ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
-
-            Case 22 'ENTRADA POR PRESTAMO
-                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-                Dim params As New List(Of ReportParameter)
-
-                Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-                If Imagen.Exists Then
-                    params.Add(New ReportParameter("LogoPath", logouri))
                 Else
-                    params.Add(New ReportParameter("LogoPath", ""))
+                    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+                End If
+                If CveConcepto = 21 Then
+                    ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Salida por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
+                ElseIf CveConcepto = 22 Then
+                    ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
                 End If
 
-                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+            'Case 22 'ENTRADA POR PRESTAMO
-                params.Add(New ReportParameter("Concepto", "Entrada por Prestamo"))
+            '    Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-                params.Add(New ReportParameter("Almacen", Almacen))
+            '    Dim params As New List(Of ReportParameter)
-                params.Add(New ReportParameter("Fecha", Fecha))
+
-                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+            '    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-                params.Add(New ReportParameter("Folio", Folio))
+            '    If Imagen.Exists Then
-                params.Add(New ReportParameter("Descuentos", ""))
+            '        params.Add(New ReportParameter("LogoPath", logouri))
-                params.Add(New ReportParameter("IVA", ""))
+            '    Else
-                params.Add(New ReportParameter("Total", ""))
+            '        params.Add(New ReportParameter("LogoPath", ""))
-                'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
+            '    End If
-                params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
+
-                params.Add(New ReportParameter("FacturadoA", NombreCliente))
+            '    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
-                If (UsuarioActual.CveEmpresa = 72) Then
+            '    params.Add(New ReportParameter("Concepto", "Entrada por Prestamo"))
-                    params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
+            '    params.Add(New ReportParameter("Almacen", Almacen))
-                End If
+            '    params.Add(New ReportParameter("Fecha", Fecha))
-                ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
+            '    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+            '    params.Add(New ReportParameter("Folio", Folio))
+            '    params.Add(New ReportParameter("Descuentos", ""))
+            '    params.Add(New ReportParameter("IVA", ""))
+            '    params.Add(New ReportParameter("Total", ""))
+            '    'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
+            '    params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
+            '    params.Add(New ReportParameter("FacturadoA", NombreCliente))
+            '    If (UsuarioActual.CveEmpresa = 72) Then
+            '        params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
+            '    End If
+            '    ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
 
             Case 24 'SALIDA POR RESGUARDO
                 If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then

Compras/eFacturas.aspx.vb

@@ -688,9 +688,10 @@ Partial Class Compras_eFacturas
                 GvD.DataSource = Nothing
             End If
         End If
+        ObjDatos.Dispose()
         LblRegistros.Text = String.Format("{0} Registros", ObjDatos.DtResultados.FiltraParametros("TipoComprobante <> 'P'").Rows.Count.ToString("N0"))
         LblTotalPagos.Text = String.Format("{0} Pagos", ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'P'").Rows.Count.ToString("N0"))
-        ObjDatos.Dispose()
+
 
         If DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0 Then
             GvPagos.DataSource = DtPagos
@@ -1252,16 +1253,10 @@ Partial Class Compras_eFacturas
         If txtFechaF.Text = "" Then FechaF = "-1"
         Dim Folio = If(TxtFolio.Text.Trim.Length > 0, String.Format("%{0}%", TxtFolio.Text.Trim.ToUpper), "-1")
         Dim Proveedor = If(TxtProveedor.Text.Trim.Length > 0, String.Format("%{0}%", TxtProveedor.Text.Trim.ToUpper.Replace(" ", "%")), "-1")
+        Dim dt As DataTable = Nothing
 
         If ObjDatos.GetFacturas(-1, Folio, txtFechaI.Text.Trim.ToDate, txtFechaF.Text.Trim.ToDate, "-1", Proveedor, DdlValidado.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlClasificacionProv.SelectedValue.ToEntero, DdlCveTipoProveedor.SelectedValue.ToEntero, DdlTipoComprobante.SelectedValue.ToString, UsuarioActual.CveEmpresa) Then
 
-            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
-            Dim dt As DataTable
-
-
-
             If Tab.ActiveTabIndex = 0 Then
                 dt = ObjDatos.DtResultados.FiltraParametros("TipoComprobante <> 'P'")
             Else
@@ -1269,6 +1264,15 @@ Partial Class Compras_eFacturas
             End If
 
 
+        Else
+            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
+        End If
+        ObjDatos.Dispose()
+
+        If DT IsNot Nothing Then
+
+            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -1283,8 +1287,6 @@ Partial Class Compras_eFacturas
             End If
 
             ImprimirPDF("Empresas/Grales/Formatos/RepFacturas.rdlc", dt, params, $"FacturasBuzon_{Now.ToString("yyyyMMyyddmmss")}", Tipo)
-        Else
-            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
         End If
 
     End Sub

Contabilidad2/Reportes/RepMovimientosAuxiliaresCatalogo.rdlc

@@ -20,6 +20,9 @@
             <TablixColumn>
               <Width>1.99729cm</Width>
             </TablixColumn>
+            <TablixColumn>
+              <Width>2.54cm</Width>
+            </TablixColumn>
             <TablixColumn>
               <Width>2.3148cm</Width>
             </TablixColumn>
@@ -152,12 +155,13 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
-                    <ColSpan>4</ColSpan>
+                    <ColSpan>5</ColSpan>
                   </CellContents>
                 </TablixCell>
                 <TablixCell />
                 <TablixCell />
                 <TablixCell />
+                <TablixCell />
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox22">
@@ -199,7 +203,7 @@
               </TablixCells>
             </TablixRow>
             <TablixRow>
-              <Height>0.6cm</Height>
+              <Height>0.86458cm</Height>
               <TablixCells>
                 <TablixCell>
                   <CellContents>
@@ -391,6 +395,44 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox40">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Referencia Movto</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>8pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox40</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <BottomBorder>
+                          <Color>Black</Color>
+                          <Style>Solid</Style>
+                          <Width>1pt</Width>
+                        </BottomBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox2">
@@ -647,11 +689,12 @@
                         <PaddingBottom>2pt</PaddingBottom>
                       </Style>
                     </Textbox>
-                    <ColSpan>3</ColSpan>
+                    <ColSpan>4</ColSpan>
                   </CellContents>
                 </TablixCell>
                 <TablixCell />
                 <TablixCell />
+                <TablixCell />
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox21">
@@ -887,6 +930,38 @@
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="ReferenciaAdmin">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!ReferenciaAdmin.Value</Value>
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>7pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>ReferenciaAdmin</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="SubProyecto">
@@ -1128,6 +1203,40 @@
                 </TablixCell>
                 <TablixCell />
                 <TablixCell />
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox42">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value />
+                              <Style>
+                                <FontFamily>Verdana</FontFamily>
+                                <FontSize>7pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Right</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox42</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>None</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="Textbox12">
@@ -1282,6 +1391,7 @@
             <TablixMember />
             <TablixMember />
             <TablixMember />
+            <TablixMember />
           </TablixMembers>
         </TablixColumnHierarchy>
         <TablixRowHierarchy>
@@ -1319,8 +1429,8 @@
         <KeepTogether>true</KeepTogether>
         <DataSetName>DataSet1</DataSetName>
         <Top>0.06345cm</Top>
-        <Height>3cm</Height>
+        <Height>3.26458cm</Height>
-        <Width>20.37044cm</Width>
+        <Width>22.91044cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1328,10 +1438,10 @@
         </Style>
       </Tablix>
     </ReportItems>
-    <Height>1.2061in</Height>
+    <Height>1.31025in</Height>
     <Style />
   </Body>
-  <Width>8.01986in</Width>
+  <Width>9.01986in</Width>
   <Page>
     <PageHeader>
       <Height>1.14931in</Height>
@@ -1620,6 +1730,10 @@
           <DataField>SubProyecto</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
+        <Field Name="ReferenciaAdmin">
+          <DataField>ReferenciaAdmin</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
       </Fields>
       <rd:DataSetInfo>
         <rd:DataSetName>DataSet</rd:DataSetName>

Contratos/CatContratosTipos.aspx

@@ -12,110 +12,110 @@
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
-                        <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
+    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
-                            <ContentTemplate>
+        <ContentTemplate>
-                                <table border="0" class="">
+            <table border="0" class="" style="width: 100%">
-                                    <tr>
+                <tr>
-                                        <td>
+                    <td>
-                                                    <table class="table table-striped table-advance table-hover Widthall">
+                        <table class="table table-striped table-advance table-hover Widthall" style="width:100%">
-                                                        <thead>
+                            <thead>
-                                                            <tr class="Titulos">
+                                <tr class="Titulos">
-                                                                 <th width="40px">
+                                    <th width="10%">
-                                                                    <asp:LinkButton ID="LinkButton1" runat="server" CausesValidation="false" Text="" CommandArgument="LimiteMaximo;0">
+                                        <asp:LinkButton ID="LinkButton1" runat="server" CausesValidation="false" Text="" CommandArgument="LimiteMaximo;0">
-                                                                        Clave
+                                            Clave
                                                                     <asp:Literal ID="Literal1" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
-                                                                    </asp:LinkButton>
+                                        </asp:LinkButton>
-                                                                </th>
+                                    </th>
-                                                                <th width="200px">
+                                    <th width="200px">
-                                                                    <asp:LinkButton ID="LbLimite" runat="server" CausesValidation="false" Text="" CommandArgument="LimiteMaximo;0">
+                                        <asp:LinkButton ID="LbLimite" runat="server" CausesValidation="false" Text="" CommandArgument="LimiteMaximo;0">
-                                                                        Tipo Contrato
+                                            Tipo Contrato
                                                                     <asp:Literal ID="ImgLimiteMaximo" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
-                                                                    </asp:LinkButton>
+                                        </asp:LinkButton>
-                                                                </th>
+                                    </th>
-                                                                <th width="200px">
+                                    <th width="200px">
-                                                                    <asp:LinkButton ID="LbComision" runat="server" CausesValidation="false" Text="" CommandArgument="Comision;0">
+                                        <asp:LinkButton ID="LbComision" runat="server" CausesValidation="false" Text="" CommandArgument="Comision;0">
-                                                                        Descripción
+                                            Descripción
                                                                     <asp:Literal ID="ImgComision" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
-                                                                    </asp:LinkButton>
+                                        </asp:LinkButton>
-                                                                </th>
+                                    </th>
-                                                                <th></th>
+                                    <th></th>
-                                                                <th width="165px">Comandos</th>
+                                    <th width="165px">Comandos</th>
-                                                            </tr>
+                                </tr>
-                                                        </thead>
+                            </thead>
-                                                        <tr>
+                            <tr>
-                                                            <td style="width:40px;"></td>
+                                <td style="width: 15%;"></td>
-                                                            <td style="text-align: center">
+                                <td style="text-align: center; width: 200px">
-                                                                <asp:TextBox ID="TxtTipoContrato" runat="server" width="180px"></asp:TextBox>
+                                    <asp:TextBox ID="TxtTipoContrato" runat="server" Width="180px"></asp:TextBox>
-                                                                <asp:RequiredFieldValidator ID="RFVLimite" runat="server" ControlToValidate="TxtTipoContrato" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Contrato''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardarCaracteristicas"></asp:RequiredFieldValidator>
+                                    <asp:RequiredFieldValidator ID="RFVLimite" runat="server" ControlToValidate="TxtTipoContrato" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Contrato''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardarCaracteristicas"></asp:RequiredFieldValidator>
-                                                                <ajax:ValidatorCalloutExtender ID="VCOLimite" runat="server" HighlightCssClass="vco" TargetControlID="RFVLimite" Width="300px"></ajax:ValidatorCalloutExtender>
+                                    <ajax:ValidatorCalloutExtender ID="VCOLimite" runat="server" HighlightCssClass="vco" TargetControlID="RFVLimite" Width="300px"></ajax:ValidatorCalloutExtender>
-                                                            </td>
+                                </td>
-                                                            <td style="text-align: center">
+                                <td style="text-align: left; width: 800px">
-                                                                <asp:TextBox ID="TxtDescripcion" runat="server"  width="180px"></asp:TextBox>
+                                    <asp:TextBox ID="TxtDescripcion" runat="server" Width="100%"></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>''Descripción''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardarCaracteristicas"></asp:RequiredFieldValidator>
+                                    <asp:RequiredFieldValidator ID="RFVDescripcion" runat="server" ControlToValidate="TxtDescripcion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripción''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardarCaracteristicas"></asp:RequiredFieldValidator>
-                                                                <ajax:ValidatorCalloutExtender ID="VCEDescripcion" runat="server" HighlightCssClass="vco" TargetControlID="RFVDescripcion" Width="300px"></ajax:ValidatorCalloutExtender>
+                                    <ajax:ValidatorCalloutExtender ID="VCEDescripcion" runat="server" HighlightCssClass="vco" TargetControlID="RFVDescripcion" Width="300px"></ajax:ValidatorCalloutExtender>
-                                                            </td>
+                                </td>
-                                                            <td></td>
+                                <td style="width:0%"></td>
-                                                            <td style="text-align: center">
+                                <td style="text-align: center">
-                                                                <asp:LinkButton ID="LbAgregarC" runat="server" CausesValidation="true" CssClass="Texto" Text="Agregar" ValidationGroup="GrpGuardarCaracteristicas"></asp:LinkButton></td>
+                                    <asp:LinkButton ID="LbAgregarC" runat="server" CausesValidation="true" CssClass="Texto" Text="Agregar" ValidationGroup="GrpGuardarCaracteristicas"></asp:LinkButton></td>
-                                                        </tr>
+                            </tr>
-                                                    </table>
+                        </table>
 
-                                            <asp:UpdatePanel ID="UpGVContratos" runat="server" UpdateMode="Conditional">
+                        <asp:UpdatePanel ID="UpGVContratos" runat="server" UpdateMode="Conditional">
-                                                <ContentTemplate>
+                            <ContentTemplate>
-                                                    <asp:GridView ID="GvContratos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveContratoTipo" EmptyDataText="No se encontraron Tipos de Contratos." ToolTip="Listado de tipos de Contratos." CssClass="table table-striped table-advance table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
+                                <asp:GridView ID="GvContratos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveContratoTipo" EmptyDataText="No se encontraron Tipos de Contratos." ToolTip="Listado de tipos de Contratos." CssClass="table table-striped table-advance table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
-                                                        <Columns>
+                                    <Columns>
-                                                            <asp:BoundField DataField="CveContratoTipo" ReadOnly="true" />
+                                        <asp:BoundField DataField="CveContratoTipo" ItemStyle-Width="10%" ItemStyle-Wrap="false" />
 
-                                                            <asp:TemplateField ItemStyle-Width="180px" ItemStyle-HorizontalAlign="left">
+                                        <asp:TemplateField ItemStyle-Width="15%" ItemStyle-HorizontalAlign="left">
-                                                                <ItemTemplate>
+                                            <ItemTemplate>
-                                                                    <asp:Literal ID="LtlContrato" runat="server" Text='<%# Eval("ContratoTipo", "&nbsp;{0}") %>'></asp:Literal>
+                                                <asp:Literal ID="LtlContrato" runat="server" Text='<%# Eval("ContratoTipo", "&nbsp;{0}") %>'></asp:Literal>
-                                                                </ItemTemplate>
+                                            </ItemTemplate>
-                                                                <EditItemTemplate>
+                                            <EditItemTemplate>
-                                                                    <asp:TextBox ID="TxtTipoContrato" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("ContratoTipo")%>' Width="180px"></asp:TextBox>
+                                                <asp:TextBox ID="TxtTipoContrato" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("ContratoTipo")%>' Width="180px"></asp:TextBox>
-                                                                    <asp:RequiredFieldValidator ID="RFVCaracteristica" runat="server" ControlToValidate="TxtTipoContrato" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Contrato''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
+                                                <asp:RequiredFieldValidator ID="RFVCaracteristica" runat="server" ControlToValidate="TxtTipoContrato" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Contrato''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
-                                                                    <ajax:ValidatorCalloutExtender ID="VCOCaracteristica" runat="server" HighlightCssClass="vco" TargetControlID="RFVCaracteristica" Width="100px"></ajax:ValidatorCalloutExtender>
+                                                <ajax:ValidatorCalloutExtender ID="VCOCaracteristica" runat="server" HighlightCssClass="vco" TargetControlID="RFVCaracteristica" Width="100px"></ajax:ValidatorCalloutExtender>
-                                                                </EditItemTemplate>
+                                            </EditItemTemplate>
-                                                            </asp:TemplateField>
+                                        </asp:TemplateField>
 
 
-                                                                <asp:TemplateField ItemStyle-Width="200px">
+                                        <asp:TemplateField ItemStyle-Width="200px">
-                                                                <ItemTemplate>
+                                            <ItemTemplate>
-                                                                    <asp:Literal ID="LtlDescripcion" runat="server" Text='<%# Eval("Descripcion", "&nbsp;{0}") %>'></asp:Literal>
+                                                <asp:Literal ID="LtlDescripcion" runat="server" Text='<%# Eval("Descripcion", "&nbsp;{0}") %>'></asp:Literal>
-                                                                </ItemTemplate>
+                                            </ItemTemplate>
-                                                                <EditItemTemplate>
+                                            <EditItemTemplate>
-                                                                   <asp:TextBox ID="TxtDescripcion" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("Descripcion")%>' Width="180px"></asp:TextBox>
+                                                <asp:TextBox ID="TxtDescripcion" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("Descripcion")%>' Width="180px"></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>''Descripción''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
+                                                <asp:RequiredFieldValidator ID="RFVDescripcion" runat="server" ControlToValidate="TxtDescripcion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripción''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
-                                                                    <ajax:ValidatorCalloutExtender ID="VCODescripcion" runat="server" HighlightCssClass="vco" TargetControlID="RFVDescripcion" Width="100px"></ajax:ValidatorCalloutExtender>
+                                                <ajax:ValidatorCalloutExtender ID="VCODescripcion" runat="server" HighlightCssClass="vco" TargetControlID="RFVDescripcion" Width="100px"></ajax:ValidatorCalloutExtender>
-                                                                </EditItemTemplate>
+                                            </EditItemTemplate>
-                                                            </asp:TemplateField>
+                                        </asp:TemplateField>
 
-                                                             <asp:TemplateField HeaderText="Editar" ItemStyle-Width="89px">
+                                        <asp:TemplateField HeaderText="Editar" ItemStyle-Width="1px">
-                                                                <EditItemTemplate>
+                                            <EditItemTemplate>
-                                                                    <center>
+                                                <center>
                                                                             <asp:LinkButton ID="ImageButton1" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>"/>
                                                                             &nbsp;<asp:LinkButton ID="ImageButton2" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
                                                                         </center>
-                                                                </EditItemTemplate>
+                                            </EditItemTemplate>
-                                                                <ItemTemplate>
+                                            <ItemTemplate>
-                                                                    <asp:LinkButton ID="ImageButton3" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                                                <asp:LinkButton ID="ImageButton3" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
-                                                                </ItemTemplate>
+                                            </ItemTemplate>
-                                                            </asp:TemplateField>
+                                        </asp:TemplateField>
 
-                                                            <asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="83px">
+                                        <asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="1px">
-                                                                <ItemTemplate>
+                                            <ItemTemplate>
-                                                                    <asp:LinkButton ID="ImageButton4" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
+                                                <asp:LinkButton ID="ImageButton4" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
-                                                                </ItemTemplate>
+                                            </ItemTemplate>
-                                                            </asp:TemplateField>
+                                        </asp:TemplateField>
-                                                        </Columns>
+                                    </Columns>
-                                                        <AlternatingRowStyle CssClass="TextoAlterno" />
+                                    <AlternatingRowStyle CssClass="TextoAlterno" />
-                                                    </asp:GridView>
+                                </asp:GridView>
-                                                </ContentTemplate>
-                                            </asp:UpdatePanel>
-                                        </td>
-                                    </tr>
-                                </table>
                             </ContentTemplate>
                         </asp:UpdatePanel>
+                    </td>
+                </tr>
+            </table>
+        </ContentTemplate>
+    </asp:UpdatePanel>
 </asp:Content>
 
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">

Contratos/CatContratosTipos.aspx.vb

@@ -15,9 +15,9 @@ Partial Class Contratos_CatContratosTipos
 #Region "      CARGAS      "
     Private Sub CargaDatos()
         Dim Objeto As New ClsContratos
-        If Objeto.GetContratosTipos() Then
+        If Objeto.GetContratosTipos(UsuarioActual.CveEmpresa) Then
             GvContratos.DataSource = Objeto.DtResultados
-            GlobalDTContratosTipos = Objeto.DtResultados
+            GlobalDTContratosTipos(UsuarioActual.CveEmpresa) = Objeto.DtResultados
         End If
         GvContratos.DataBind()
         Objeto.Dispose()

Contratos/Contrato.aspx.vb

@@ -664,10 +664,10 @@ Partial Class Contratos_Default
     Private Sub loadComboTipoContrato(venta As Boolean)
         Try
             If venta Then
-                DdlTipoContrato.DataSource = GlobalDTContratosTipos.FiltraParametros($" CveEmpresa = {UsuarioActual.CveEmpresa} And TipoMovimiento = 1")
+                DdlTipoContrato.DataSource = GlobalDTContratosTipos(UsuarioActual.CveEmpresa).FiltraParametros(" TipoMovimiento = 1")
 
             Else
-                DdlTipoContrato.DataSource = GlobalDTContratosTipos.FiltraParametros($" CveEmpresa = {UsuarioActual.CveEmpresa} And TipoMovimiento = 0")
+                DdlTipoContrato.DataSource = GlobalDTContratosTipos(UsuarioActual.CveEmpresa).FiltraParametros(" TipoMovimiento = 0")
             End If
             dvDetContrato.Visible = True
             ' DdlTipoContrato.Visible = True
@@ -705,7 +705,7 @@ Partial Class Contratos_Default
         End If
 
         TipoContrato = DdlTipoContrato.SelectedValue.ToEntero
-        TxtDescripcionTipoContrato.Text = GlobalDTContratosTipos.FiltraParametros("CveContratoTipo = " & DdlTipoContrato.SelectedValue)(0)("Descripcion").ToString()
+        TxtDescripcionTipoContrato.Text = GlobalDTContratosTipos(UsuarioActual.CveEmpresa).FiltraParametros("CveContratoTipo = " & DdlTipoContrato.SelectedValue)(0)("Descripcion").ToString()
         TxtDescripcionTipoContrato.Visible = True
 
         CargaContratoPadre()

Contratos/Contratos.aspx.vb

@@ -22,7 +22,7 @@ Partial Class Contratos_Contratos
         DdlClientes.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlClientes.DataBind()
 
-        DdlTipo.DataSource = GlobalDTContratosTipos().FiltraParametros($"CveEmpresa={UsuarioActual.CveEmpresa}")
+        DdlTipo.DataSource = GlobalDTContratosTipos(UsuarioActual.CveEmpresa)
         DdlTipo.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlTipo.DataBind()
 

Contratos/PopUpBuscarContrato.aspx.vb

@@ -86,7 +86,7 @@ Partial Class Contratos_PopUpBuscarContrato
         UPDatos.Update()
 
         Try
-            DdlTipoContrato.DataSource = GlobalDTContratosTipos.FiltraParametros($" CveEmpresa = {UsuarioActual.CveEmpresa} AND TipoMovimiento = {DdlTipo.SelectedValue }")
+            DdlTipoContrato.DataSource = GlobalDTContratosTipos(UsuarioActual.CveEmpresa).FiltraParametros($" TipoMovimiento = {DdlTipo.SelectedValue }")
             DdlTipoContrato.DataBind()
             DdlTipoContrato.Items.Insert(0, New ListItem("Seleccione una opción", "-1"))
 

Contratos/RepContratosAvancesCP.aspx.vb

@@ -32,7 +32,7 @@ Partial Class Contratos_RepContratosAvancesCP
         DdlClientes.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlClientes.DataBind()
 
-        DdlTipo.DataSource = GlobalDTContratosTipos().FiltraParametros($"CveEmpresa={UsuarioActual.CveEmpresa}")
+        DdlTipo.DataSource = GlobalDTContratosTipos(UsuarioActual.CveEmpresa)
         DdlTipo.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlTipo.DataBind()
 

Empresas/146/Formatos/Factura.rdlc

@@ -227,10 +227,10 @@
         <Source>External</Source>
         <Value>=Parameters!QR.Value</Value>
         <Sizing>FitProportional</Sizing>
-        <Top>5.87436in</Top>
+        <Top>5.8661in</Top>
         <Left>0.03915in</Left>
-        <Height>0.95455in</Height>
+        <Height>1.10236in</Height>
-        <Width>1.49755in</Width>
+        <Width>1.10236in</Width>
         <ZIndex>5</ZIndex>
         <Style>
           <Border>

Empresas/146/Formatos/NotaCredito.rdlc

@@ -1447,9 +1447,9 @@
         <Source>External</Source>
         <Value>=Parameters!QR.Value</Value>
         <Sizing>FitProportional</Sizing>
-        <Top>3.13693in</Top>
+        <Top>3.09526in</Top>
         <Left>0.15526in</Left>
-        <Height>1.06738in</Height>
+        <Height>1.13682in</Height>
         <Width>1.49755in</Width>
         <ZIndex>6</ZIndex>
         <Style>

Empresas/72/Formatos/EntradaSalida.rdlc

@@ -992,6 +992,9 @@
           <Height>0.6cm</Height>
           <Width>1.57396cm</Width>
           <ZIndex>9</ZIndex>
+          <Visibility>
+            <Hidden>=IIF(Parameters!FacturaProveedor.Value&lt;&gt;"",False,True)</Hidden>
+          </Visibility>
           <Style>
             <Border>
               <Style>None</Style>
@@ -1573,6 +1576,12 @@
       <DataType>String</DataType>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="NombreRecibio">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="compuproveedores">

Empresas/Grales/Formatos/CartaPorte.rdlc

@@ -481,7 +481,7 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>REMITENTE O EXPEDIDOR: </Value>
+                <Value>REMITENTE O EXPEDIDOR:  </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>8pt</FontSize>
@@ -661,7 +661,7 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>DESTINATARIO: </Value>
+                <Value>DESTINATARIO:  </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>8pt</FontSize>
@@ -1214,7 +1214,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox1</rd:DefaultName>
-        <Top>7.61768cm</Top>
+        <Top>8.25268cm</Top>
         <Left>0.20001cm</Left>
         <Height>0.62599cm</Height>
         <Width>19.21855cm</Width>
@@ -1267,7 +1267,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox1</rd:DefaultName>
-        <Top>8.24367cm</Top>
+        <Top>8.87867cm</Top>
         <Left>0.20001cm</Left>
         <Height>1.50794cm</Height>
         <Width>19.21855cm</Width>
@@ -1298,143 +1298,6 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
-      <Rectangle Name="Rectangle1">
-        <ReportItems>
-          <Textbox Name="Textbox36">
-            <CanGrow>true</CanGrow>
-            <KeepTogether>true</KeepTogether>
-            <Paragraphs>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>PLACA: </Value>
-                    <Style>
-                      <FontFamily>Myriad Pro</FontFamily>
-                      <FontSize>8pt</FontSize>
-                    </Style>
-                  </TextRun>
-                  <TextRun>
-                    <Value>=Parameters!Placa.Value</Value>
-                    <Style>
-                      <FontFamily>Myriad Pro</FontFamily>
-                      <FontSize>8pt</FontSize>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style />
-              </Paragraph>
-            </Paragraphs>
-            <rd:DefaultName>Textbox1</rd:DefaultName>
-            <Top>0.07056cm</Top>
-            <Left>6.54349cm</Left>
-            <Height>0.66127cm</Height>
-            <Width>4.52959cm</Width>
-            <Style>
-              <Border>
-                <Style>None</Style>
-              </Border>
-              <PaddingLeft>2pt</PaddingLeft>
-              <PaddingRight>2pt</PaddingRight>
-              <PaddingTop>2pt</PaddingTop>
-              <PaddingBottom>2pt</PaddingBottom>
-            </Style>
-          </Textbox>
-          <Textbox Name="Textbox39">
-            <CanGrow>true</CanGrow>
-            <KeepTogether>true</KeepTogether>
-            <Paragraphs>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>CHOFER: </Value>
-                    <Style>
-                      <FontFamily>Myriad Pro</FontFamily>
-                      <FontSize>8pt</FontSize>
-                    </Style>
-                  </TextRun>
-                  <TextRun>
-                    <Value>=Parameters!ResponsableRecibio.Value</Value>
-                    <Style>
-                      <FontFamily>Myriad Pro</FontFamily>
-                      <FontSize>8pt</FontSize>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style />
-              </Paragraph>
-            </Paragraphs>
-            <rd:DefaultName>Textbox1</rd:DefaultName>
-            <Top>0.07056cm</Top>
-            <Left>0.22015cm</Left>
-            <Height>0.66127cm</Height>
-            <Width>6.32334cm</Width>
-            <ZIndex>1</ZIndex>
-            <Style>
-              <Border>
-                <Style>None</Style>
-              </Border>
-              <PaddingLeft>2pt</PaddingLeft>
-              <PaddingRight>2pt</PaddingRight>
-              <PaddingTop>2pt</PaddingTop>
-              <PaddingBottom>2pt</PaddingBottom>
-            </Style>
-          </Textbox>
-          <Textbox Name="Textbox43">
-            <CanGrow>true</CanGrow>
-            <KeepTogether>true</KeepTogether>
-            <Paragraphs>
-              <Paragraph>
-                <TextRuns>
-                  <TextRun>
-                    <Value>ESPECIFICACIÓN DE LA UNIDAD: </Value>
-                    <Style>
-                      <FontFamily>Myriad Pro</FontFamily>
-                      <FontSize>8pt</FontSize>
-                    </Style>
-                  </TextRun>
-                  <TextRun>
-                    <Value>=Parameters!EspecifUnidad.Value</Value>
-                    <Style>
-                      <FontFamily>Myriad Pro</FontFamily>
-                      <FontSize>8pt</FontSize>
-                    </Style>
-                  </TextRun>
-                </TextRuns>
-                <Style />
-              </Paragraph>
-            </Paragraphs>
-            <rd:DefaultName>Textbox1</rd:DefaultName>
-            <Top>0.07056cm</Top>
-            <Left>11.07308cm</Left>
-            <Height>0.66127cm</Height>
-            <Width>8.35555cm</Width>
-            <ZIndex>2</ZIndex>
-            <Style>
-              <Border>
-                <Style>None</Style>
-              </Border>
-              <PaddingLeft>2pt</PaddingLeft>
-              <PaddingRight>2pt</PaddingRight>
-              <PaddingTop>2pt</PaddingTop>
-              <PaddingBottom>2pt</PaddingBottom>
-            </Style>
-          </Textbox>
-        </ReportItems>
-        <KeepTogether>true</KeepTogether>
-        <Top>9.85744cm</Top>
-        <Left>0cm</Left>
-        <Height>0.91152cm</Height>
-        <Width>19.6022cm</Width>
-        <ZIndex>13</ZIndex>
-        <Visibility>
-          <Hidden>=IIf((Parameters!Chofer.Value = "" or Parameters!Chofer.Value = "-1") And (Parameters!Placa.Value = "" Or Parameters!Placa.Value = "-1"),True,False)</Hidden>
-        </Visibility>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-        </Style>
-      </Rectangle>
       <Textbox Name="Textbox30">
         <CanGrow>true</CanGrow>
         <KeepTogether>true</KeepTogether>
@@ -1468,11 +1331,11 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox21</rd:DefaultName>
-        <Top>13.24837cm</Top>
+        <Top>13.69816cm</Top>
-        <Left>2.21206cm</Left>
+        <Left>2.20199cm</Left>
         <Height>1.2cm</Height>
         <Width>5.78664cm</Width>
-        <ZIndex>14</ZIndex>
+        <ZIndex>13</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1503,11 +1366,11 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox22</rd:DefaultName>
-        <Top>11.58471cm</Top>
+        <Top>12.0345cm</Top>
-        <Left>2.21206cm</Left>
+        <Left>2.20199cm</Left>
         <Height>0.6cm</Height>
         <Width>5.78664cm</Width>
-        <ZIndex>15</ZIndex>
+        <ZIndex>14</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1551,11 +1414,11 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox21</rd:DefaultName>
-        <Top>13.24837cm</Top>
+        <Top>13.69816cm</Top>
-        <Left>11.60471cm</Left>
+        <Left>11.59464cm</Left>
         <Height>1.2cm</Height>
         <Width>5.78664cm</Width>
-        <ZIndex>16</ZIndex>
+        <ZIndex>15</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1586,11 +1449,11 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox22</rd:DefaultName>
-        <Top>11.58471cm</Top>
+        <Top>12.0345cm</Top>
-        <Left>11.60471cm</Left>
+        <Left>11.59464cm</Left>
         <Height>0.6cm</Height>
         <Width>5.78664cm</Width>
-        <ZIndex>17</ZIndex>
+        <ZIndex>16</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1621,11 +1484,11 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox22</rd:DefaultName>
-        <Top>12.88411cm</Top>
+        <Top>13.3339cm</Top>
-        <Left>2.21206cm</Left>
+        <Left>2.20199cm</Left>
         <Height>0.52062cm</Height>
         <Width>5.78664cm</Width>
-        <ZIndex>18</ZIndex>
+        <ZIndex>17</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1656,11 +1519,11 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox22</rd:DefaultName>
-        <Top>12.88411cm</Top>
+        <Top>13.3339cm</Top>
-        <Left>11.60471cm</Left>
+        <Left>11.59464cm</Left>
         <Height>0.52062cm</Height>
         <Width>5.78664cm</Width>
-        <ZIndex>19</ZIndex>
+        <ZIndex>18</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -1776,7 +1639,7 @@
         <Left>0.23022cm</Left>
         <Height>2.22232cm</Height>
         <Width>19.21855cm</Width>
-        <ZIndex>20</ZIndex>
+        <ZIndex>19</ZIndex>
         <Style>
           <Border>
             <Style>Solid</Style>
@@ -1819,7 +1682,7 @@
         <Left>0.23022cm</Left>
         <Height>0.62599cm</Height>
         <Width>19.21855cm</Width>
-        <ZIndex>21</ZIndex>
+        <ZIndex>20</ZIndex>
         <Style>
           <Border>
             <Style>Solid</Style>
@@ -1839,11 +1702,174 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
+      <Tablix Name="Tablix1">
+        <TablixBody>
+          <TablixColumns>
+            <TablixColumn>
+              <Width>5.06862cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>3.10917cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>10.93493cm</Width>
+            </TablixColumn>
+          </TablixColumns>
+          <TablixRows>
+            <TablixRow>
+              <Height>0.6cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox52">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>CHOFER: </Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                              </Style>
+                            </TextRun>
+                            <TextRun>
+                              <Value>=Parameters!ResponsableRecibio.Value</Value>
+                              <Style>
+                                <FontFamily>Myriad Pro</FontFamily>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox52</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox53">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>PLACA: </Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                              </Style>
+                            </TextRun>
+                            <TextRun>
+                              <Value>=Parameters!Placa.Value</Value>
+                              <Style>
+                                <FontFamily>Myriad Pro</FontFamily>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox53</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox54">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>ESPECIFICACION DE LA UNIDAD: </Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                              </Style>
+                            </TextRun>
+                            <TextRun>
+                              <Value>=Parameters!EspecifUnidad.Value</Value>
+                              <Style>
+                                <FontFamily>Myriad Pro</FontFamily>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox54</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+          </TablixRows>
+        </TablixBody>
+        <TablixColumnHierarchy>
+          <TablixMembers>
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+          </TablixMembers>
+        </TablixColumnHierarchy>
+        <TablixRowHierarchy>
+          <TablixMembers>
+            <TablixMember>
+              <Group Name="Details" />
+              <TablixMembers>
+                <TablixMember />
+              </TablixMembers>
+            </TablixMember>
+          </TablixMembers>
+        </TablixRowHierarchy>
+        <Top>7.37959cm</Top>
+        <Left>0.21008cm</Left>
+        <Height>0.6cm</Height>
+        <Width>19.11272cm</Width>
+        <ZIndex>21</ZIndex>
+        <Style>
+          <Border>
+            <Style>Solid</Style>
+          </Border>
+        </Style>
+      </Tablix>
     </ReportItems>
     <Height>8.91698in</Height>
     <Style />
   </Body>
-  <Width>7.7174in</Width>
+  <Width>7.657in</Width>
   <Page>
     <PageHeader>
       <Height>3.39287cm</Height>
@@ -2084,12 +2110,12 @@
       </Style>
     </PageHeader>
     <PageFooter>
-      <Height>1.23527cm</Height>
+      <Height>1.23526cm</Height>
       <PrintOnFirstPage>true</PrintOnFirstPage>
       <PrintOnLastPage>true</PrintOnLastPage>
       <ReportItems>
         <Line Name="Line1">
-          <Top>0.03528cm</Top>
+          <Top>0.03527cm</Top>
           <Left>0.22015cm</Left>
           <Height>0cm</Height>
           <Width>19.22862cm</Width>
@@ -2119,7 +2145,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox13</rd:DefaultName>
-          <Top>0.14111cm</Top>
+          <Top>0.1411cm</Top>
           <Left>0.22015cm</Left>
           <Height>0.54708cm</Height>
           <Width>1.55632cm</Width>
@@ -2153,7 +2179,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox14</rd:DefaultName>
-          <Top>0.14111cm</Top>
+          <Top>0.1411cm</Top>
           <Left>1.77647cm</Left>
           <Height>0.54708cm</Height>
           <Width>4.96223cm</Width>
@@ -2188,7 +2214,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox13</rd:DefaultName>
-          <Top>0.14111cm</Top>
+          <Top>0.1411cm</Top>
           <Left>6.84454cm</Left>
           <Height>0.54708cm</Height>
           <Width>2.84562cm</Width>
@@ -2223,7 +2249,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox14</rd:DefaultName>
-          <Top>0.14111cm</Top>
+          <Top>0.1411cm</Top>
           <Left>9.69015cm</Left>
           <Height>0.54708cm</Height>
           <Width>4.68641cm</Width>
@@ -2257,7 +2283,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox14</rd:DefaultName>
-          <Top>0.17639cm</Top>
+          <Top>0.17638cm</Top>
           <Left>14.62633cm</Left>
           <Height>0.54708cm</Height>
           <Width>4.8023cm</Width>
@@ -2289,7 +2315,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox14</rd:DefaultName>
-          <Top>0.68819cm</Top>
+          <Top>0.68818cm</Top>
           <Left>0.22015cm</Left>
           <Height>0.54708cm</Height>
           <Width>6.21751cm</Width>

Global.asax

@@ -450,7 +450,7 @@
         Dim ObjContratos As New ClsContratos
         If ObjContratos.GetContratos(-1, -1) Then Application("GlobalDTContratos") = ObjContratos.DtResultados Else Application("GlobalDTContratos") = Nothing
         If ObjContratos.GetSecciones() Then Application("GlobalDTContratosSecciones") = ObjContratos.DtResultados Else Application("GlobalDTContratosSecciones") = Nothing
-        If ObjContratos.GetContratosTipos() Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing
+        'If ObjContratos.GetContratosTipos(-1) Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing
         ObjContratos.Dispose()
 
 

Inventarios/RecepcionUsados.aspx

@@ -57,7 +57,7 @@
     Recepción/Entrega de Usados
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-    <asp:UpdatePanel runat="server" ID="UppAcciones" UpdateMode="Conditional" >
+    <asp:UpdatePanel runat="server" ID="UppAcciones" UpdateMode="Conditional">
         <ContentTemplate>
             <li>
                 <asp:HyperLink ID="HplImprimir" runat="server" Visible="false"><i class="fa fa-print"></i> Imprimir</asp:HyperLink>
@@ -969,16 +969,22 @@
                     <div class="modal-body">
 
                         <div class="form-group form-md-line-input ">
-
+                            <div class="row">
-                            <label for='<%= txtCantidad.ClientID %>'>Cantidad:</label>
+                                <div class="col-md-2" style="width:50%">
-                            <asp:TextBox ID="txtCantidad" CssClass="form-control input-sm" Width="55px" MaxLength="15" runat="server" ValidationGroup="GprAgregarUsado"></asp:TextBox>
+                                    <label for='<%= txtCantidad.ClientID %>'>Cantidad:</label>
-                            <ajax:FilteredTextBoxExtender ID="SoloNumerosCantidad" runat="server" TargetControlID="txtCantidad" FilterType="  Numbers" />
+                                    <asp:TextBox ID="txtCantidad" CssClass="form-control input-sm" Width="100%" MaxLength="15" runat="server" ValidationGroup="GprAgregarUsado"></asp:TextBox>
-                            <asp:RequiredFieldValidator ID="RFVCantidad" runat="server" ControlToValidate="txtCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="GprAgregarUsado"></asp:RequiredFieldValidator>
+                                    <ajax:FilteredTextBoxExtender ID="SoloNumerosCantidad" runat="server" TargetControlID="txtCantidad" FilterType="  Numbers" />
-                            <ajax:ValidatorCalloutExtender ID="VCOCantidad1" runat="server" HighlightCssClass="vco" TargetControlID="RFVCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
+                                    <asp:RequiredFieldValidator ID="RFVCantidad" runat="server" ControlToValidate="txtCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="GprAgregarUsado"></asp:RequiredFieldValidator>
-                            <asp:CustomValidator ID="CVCantidad" runat="server" ClientValidationFunction="ValidaDecimal6digits" ControlToValidate="TxtCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> no tiene el formato correcto (6 decimales). Por favor rectifique y vuelva a intentar." ValidateEmptyText="True" ValidationGroup="GprAgregarUsado"></asp:CustomValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCOCantidad1" runat="server" HighlightCssClass="vco" TargetControlID="RFVCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
-                            <ajax:ValidatorCalloutExtender ID="VCECantidad" runat="server" HighlightCssClass="vco" TargetControlID="CVCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
+                                    <asp:CustomValidator ID="CVCantidad" runat="server" ClientValidationFunction="ValidaDecimal6digits" ControlToValidate="TxtCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> no tiene el formato correcto (6 decimales). Por favor rectifique y vuelva a intentar." ValidateEmptyText="True" ValidationGroup="GprAgregarUsado"></asp:CustomValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCECantidad" runat="server" HighlightCssClass="vco" TargetControlID="CVCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
+                                </div>
+                                <div class="col-md-2" style="width:50%">
+                                    <asp:CheckBox runat="server" ID="ChkSeguirAgregando" />
+                                    <label for="ChkSeguirAgregando">Seguir Registrando</label>
+                                </div>
+                            </div>
                             <i></i>
-
                         </div>
                         <%--<div class="form-group form-md-line-input  ">
                             <label for='<%= DdlClasificacion.ClientID %>'>Clasificación:</label>

Inventarios/RecepcionUsados.aspx.vb

@@ -675,6 +675,8 @@ Partial Class Inventarios_RecepcionUsados
         txtCantidad.Text = ""
 
         TxtObservacionesdetalle.Text = ""
+
+        UpModalAgregar.Update()
     End Sub
 
     Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click
@@ -970,7 +972,9 @@ Partial Class Inventarios_RecepcionUsados
             ' RegistraScript("playsonidito('beep-07.wav')")
 
             'asdasdasdasdasdad
-            RegistraScript("$('#DivModalAgregar').modal('hide')", "hidemodal")
+            If Not ChkSeguirAgregando.Checked Then
+                RegistraScript("$('#DivModalAgregar').modal('hide')", "hidemodal")
+            End If
         Else
 
 
@@ -1004,7 +1008,9 @@ Partial Class Inventarios_RecepcionUsados
 
             CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
 
-            RegistraScript("$('#DivModalAgregar').modal('hide')", "hidemodal")
+            If Not ChkSeguirAgregando.Checked Then
+                RegistraScript("$('#DivModalAgregar').modal('hide')", "hidemodal")
+            End If
         End If
 
     End Sub
@@ -1026,7 +1032,7 @@ Partial Class Inventarios_RecepcionUsados
 
         If Me.ObjRemisionNC IsNot Nothing Then
             Dim sb As New StringBuilder()
-            sb.Append($"Se va a generar un documento de tipo 'Remisión de nota de crédito'.<br> Serie-Folio:<b>{Me.ObjRemisionNC.SerieFolio}</b>.<br> ¿Esta seguro que desea guardar?:<br/>")
+            sb.Append($"Se va a generar un documento de tipo 'Remisión de nota de crédito'.<br> ¿Esta seguro que desea guardar?:<br/>")
 
             Alert(sb.ToString(), TipoMensaje.MsgConfirmacion, JSBtnAceptar:="GenerarRNC();", TextoConfirmacion:="&nbsp;&nbsp;&nbsp;&nbsp;Si&nbsp;&nbsp;&nbsp;&nbsp;", TextoCancelacion:="&nbsp;&nbsp;&nbsp;&nbsp;No&nbsp;&nbsp;&nbsp;&nbsp;")
         Else
@@ -1090,10 +1096,11 @@ Partial Class Inventarios_RecepcionUsados
 
                             CargaDTDetalleRNC()
 
-                            Dim Resp = ObjRemisionNC.EmitirFactura(False)
+                            Dim Resp = ObjRemisionNC.EmitirFactura(False, ObjInventario.IniciaTransacSQL)
                             For Each mensaje2 As String In Resp.Mensajes
                                 Msg.AppendFormat("<br>{0}", mensaje2)
                             Next
+                            If Resp.TieneError Then ErrorMovInv = True
                             Alert(Msg.ToString, If(Resp.CveVenta > 0, TipoMensaje.MsgInformacion, TipoMensaje.MsgAdvertencia))
                             CveVenta = Resp.CveVenta
                         End If
@@ -2025,20 +2032,20 @@ Partial Class Inventarios_RecepcionUsados
         Dim Folio As String = ""
         Dim Serie As String = ""
 
-        Dim ObjFolios As New ClsGralFolios()
+        'Dim ObjFolios As New ClsGralFolios()
-        If ObjFolios.GetFolios("RNC", UsuarioActual.CveEmpresa) Then
+        'If ObjFolios.GetFolios("RNC", UsuarioActual.CveEmpresa) Then
-            Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format(" Estado = 'Activo' AND CveSubProyecto = {0}", CveSubProyecto))
+        '    Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format(" Estado = 'Activo' AND CveSubProyecto = {0}", CveSubProyecto))
-            If DT.Rows.Count > 0 Then
+        '    If DT.Rows.Count > 0 Then
-                Serie = DT.Rows(0)("Serie").ToString()
+        '        Serie = DT.Rows(0)("Serie").ToString()
-                Folio = DT.Rows(0)("FActual").ToString()
+        '        Folio = DT.Rows(0)("FActual").ToString()
-            End If
+        '    End If
-            DT.Dispose()
+        '    DT.Dispose()
-        End If
+        'End If
-        ObjFolios.Dispose()
+        'ObjFolios.Dispose()
 
         Me.ObjRemisionNC.TipoMensajeRespuesta = Modelos.TipoMensajeRespuesta.HTML
-        Me.ObjRemisionNC.Serie = Serie
+        Me.ObjRemisionNC.Serie = "-1"
-        Me.ObjRemisionNC.Folio = Folio.ToEntero()
+        Me.ObjRemisionNC.Folio = -1 'Folio.ToEntero()
         Me.ObjRemisionNC.Version = "3.3"
         Me.ObjRemisionNC.FolioFiscal = ""
         Me.ObjRemisionNC.CveUsuario = UsuarioActual.CveUsuario

Inventarios/ResguardoMaterial.aspx

@@ -24,6 +24,9 @@
     Préstamo de Productos
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
+    <li>
+        <asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
+    </li>
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
     <asp:UpdatePanel runat="server">

Inventarios/ResguardoMaterial.aspx.vb

@@ -3,6 +3,7 @@ Option Strict On
 
 Imports System.Data
 Imports Extensiones
+Imports Microsoft.Reporting.WebForms
 Partial Class Inventarios_ResguardoMaterial
     Inherits ClsPaginas
 
@@ -1210,7 +1211,20 @@ Partial Class Inventarios_ResguardoMaterial
 
 #End Region
 
+    Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
+        Imprime("Excel")
+    End Sub
+
+    Private Sub Imprime(Formato As String)
+        If DtMovimientosLiberacion IsNot Nothing Then
 
 
+            Dim params As New List(Of ReportParameter)
+
+            ImprimirPDF("Empresas/Grales/Formatos/ResguardoMaterial.rdlc", DtMovimientosLiberacion, params, String.Format("RepResguardoMaterial-{0}", Now.ToDateTime.ToShortDateString), Formato)
+        Else
+            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
+        End If
+    End Sub
 
 End Class

Inventarios/TraspasoAlmacen.aspx

@@ -60,8 +60,8 @@
     Traspaso de Almacén
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-        <li>
+    <li>
-        <asp:HyperLink ID="LnkCargarExcel" runat="server" NavigateUrl="#" data-toggle="modal" data-target="#DivCargaExcelConceptos" Style="color: #686868;" ><i class="fa fa-file-excel-o" style="color: #686868;"></i> Cargar Conceptos</asp:HyperLink>
+        <asp:HyperLink ID="LnkCargarExcel" runat="server" NavigateUrl="#" data-toggle="modal" data-target="#DivCargaExcelConceptos" Style="color: #686868;"><i class="fa fa-file-excel-o" style="color: #686868;"></i> Cargar Conceptos</asp:HyperLink>
     </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
@@ -173,9 +173,7 @@
                                                     <asp:TextBox runat="server" Text="" ID="TxtGastoIndirecto" Width="100px" />
                                                 </div>
                                                 <label class="col-md-1">Placa:</label>
-                                                <div class="col-md-2">
+
-                                                    <asp:TextBox runat="server" Text="" ID="TxtPlaca" Width="100px" />
-                                                </div>
                                                 <label class="col-md-1">Chofer:</label>
                                                 <div class="col-md-2">
                                                     <asp:DropDownList ID="DldChofer" runat="server" DataTextField="Chofer" DataValueField="CveChofer" OnSelectedIndexChanged="DldChofer_SelectedIndexChanged" AutoPostBack="true" CssClass="form-control input-sm select2me" Style="width: 150px !important;"></asp:DropDownList>
@@ -195,6 +193,17 @@
                                                         <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="CompareValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
                                                     </div>
                                                 </div>
+                                                
+                                            </div>
+                                            <div class="row">
+                                                <asp:HyperLink runat="server" ID="HplNuevaUnidad" NavigateUrl="#" data-toggle="modal" data-target="#DivAgregarNuevoCamion"><label class="col-md-1">Unidad</label></asp:HyperLink>
+                                                <div class="col-md-2">
+                                                    <asp:DropDownList runat="server" ID="DdlUnidadCamion" CssClass="form-control input-sm select2me" DataValueField="CveCamion" DataTextField="Placa"></asp:DropDownList>
+                                                </div>
+                                                <label class="col-md-1">Placa:</label>
+                                                <div class="col-md-2">
+                                                    <asp:TextBox runat="server" Text="" ID="TxtPlaca" Width="100px" />
+                                                </div>
                                                 <label class="col-md-3">Especificación de la Unidad:</label>
                                                 <div class="col-md-2">
                                                     <asp:TextBox runat="server" Text="" ID="TxtEspecifUnidad" Width="100px" />
@@ -363,7 +372,8 @@
                                         <th width="100px">Cantidad</th>
                                         <th width="90px">Unidad</th>
                                         <th width="500px">Clasificación
-                                        <br />
+                                       
+                                            <br />
                                             Producto
                                         </th>
                                         <th width="100px">Observaciones</th>
@@ -491,17 +501,20 @@
                                 <div class="titlefiltros caption ">
                                     <ul class="list-inline" style="font-size: 12px;">
                                         <li>Almacén Recibe:              
+                                           
                                             <asp:DropDownList ID="DdlAlmacenRecepcion" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control input-sm select2me" Style="width: 150px !important;" ValidationGroup="GrpCargaTransitorios"></asp:DropDownList>
                                             <%--<asp:RequiredFieldValidator ID="RFVAlmacenRecepcion" runat="server" ControlToValidate="DdlAlmacenRecepcion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacen Recibe''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpCargaTransitorios"></asp:RequiredFieldValidator>--%>
                                             <%--<ajax:ValidatorCalloutExtender ID="VCEAlmacenRecepcion" runat="server" HighlightCssClass="vco" TargetControlID="RFVAlmacenRecepcion" Width="350px"></ajax:ValidatorCalloutExtender>--%>
                                         </li>
                                         <li>Almacén Transitorio:                
+                                           
                                             <asp:DropDownList ID="DdlAlmacenTransitorioRecepcion" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control input-sm select2me" Style="width: 150px !important;" ValidationGroup="GrpCargaTransitorios"></asp:DropDownList>
                                             <asp:RequiredFieldValidator ID="RFVAlmacenTransitorioRecepcion" runat="server" ControlToValidate="DdlAlmacenTransitorioRecepcion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacen Transitorio''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpCargaTransitorios"></asp:RequiredFieldValidator>
                                             <ajax:ValidatorCalloutExtender ID="VCEAlmacenTransitorioRecepcion" runat="server" HighlightCssClass="vco" TargetControlID="RFVAlmacenTransitorioRecepcion" Width="350px"></ajax:ValidatorCalloutExtender>
                                         </li>
                                         <li>Folio:
-                                             <asp:TextBox ID="TxtFolioRecepcion" runat="server" Width="70px"></asp:TextBox>
+                                            
+                                            <asp:TextBox ID="TxtFolioRecepcion" runat="server" Width="70px"></asp:TextBox>
                                             <ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtFolioRecepcion" FilterType="Numbers" />
                                         </li>
                                         <%--<li>Transportista/Responsable:
@@ -576,6 +589,7 @@
                                                 <asp:UpdatePanel runat="server">
                                                     <ContentTemplate>
                                                         <asp:Button ID="BtnRecibir" runat="server" Text="Recibir Traspaso" OnClick="BtnRecibir_Click" class="btn btn-primary" ValidationGroup="GrpRecibir" />&nbsp;&nbsp;&nbsp;
+                                                       
                                                         <asp:Button ID="BtnCancelarTraspaso" runat="server" Text="Cancelar Traspaso" OnClick="BtnCancelarTraspaso_Click" class="btn btn-danger" Visible="false" ValidationGroup="GrpRecibir" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar el traspaso?" data-btn-ok-label="si" />
                                                     </ContentTemplate>
                                                 </asp:UpdatePanel>
@@ -687,6 +701,7 @@
                                 <div class="col-xs-4">
                                     Con copia para:<br />
                                     (Separar con: ;)
+                               
                                 </div>
                                 <div class="col-xs-8">
                                     <asp:TextBox ID="TxtCC" runat="server" TextMode="MultiLine" Columns="3" Rows="3" CssClass="form-control"></asp:TextBox>
@@ -780,7 +795,7 @@
             </ContentTemplate>
         </asp:UpdatePanel>
     </div>
-        <%--CARGA EXCEL--%>
+    <%--CARGA EXCEL--%>
     <div id="DivCargaExcelConceptos" class="modal ADS fade" role="dialog">
         <div class="modal-dialog">
             <!-- Modal content-->
@@ -826,6 +841,41 @@
             </div>
         </div>
     </div>
+    <%--Modal para agregar camion--%>
+    <div id="DivAgregarNuevoCamion" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+            <div class="modal-content">
+                <div class="modal-header ">
+                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <h4 class="modal-title">Agregar Unidad</h4>
+                </div>
+                <div class="modal-body">
+                    <div class="form-group form-md-line-input input-iconright">
+
+                        <label>Placa: </label>
+                        <asp:TextBox ID="TxtPlacaNuevo" CssClass="form-control" runat="server"></asp:TextBox>
+                        <i></i>
+                        <asp:RequiredFieldValidator runat="server" ID="RfvTxtPlacaNuevo" ControlToValidate="TxtPlacaNuevo" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Placa''</b> es necesario, por favor ingréselo." ValidationGroup="VgNuevoCamion"></asp:RequiredFieldValidator>
+                        <asp:RegularExpressionValidator runat="server" ID="RevTxtPlacaNuevo" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Placa''</b> no contiene los caracteres suficientes." ControlToValidate="TxtPlacaNuevo" ValidationExpression="^.{6,8}$" ValidationGroup="VgNuevoCamion"></asp:RegularExpressionValidator>
+                    </div>
+                    <div class="form-group form-md-line-input input-iconright">
+
+                        <label>Especificacion: </label>
+                        <asp:TextBox ID="TxtEspecificacionNuevo" CssClass="form-control" runat="server"></asp:TextBox>
+
+                    </div>
+                </div>
+                <div class="modal-footer">
+                    <asp:UpdatePanel runat="server">
+                        <ContentTemplate>
+                            <asp:Button ID="BtnAgregarCamion" Text="Agregar" runat="server" ClientIDMode="Static" CssClass="btn btn-primary" />
+                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+            </div>
+        </div>
+    </div>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
 

Inventarios/TraspasoAlmacen.aspx.vb

@@ -422,7 +422,7 @@ Partial Class Inventarios_TraspasoAlmacen
         SiguienteFolio(If(ChkTransitorio.Checked, 9, 8))
 
         'DdlProducto.DataBind()
-
+        CargarCamiones()
     End Sub
     Private Sub CargaAlmacenOrigen()
         DdlAlmacenOrigen.Enabled = True
@@ -2779,4 +2779,22 @@ Partial Class Inventarios_TraspasoAlmacen
         Return dataTable
     End Function
 
+    Public Sub CargarCamiones()
+        Dim ObjInventarios As New ClsInventarios
+        If ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
+            DdlUnidadCamion.DataSource = ObjInventarios.DtResultados
+        End If
+        ObjInventarios.Dispose()
+        DdlUnidadCamion.DataBind()
+    End Sub
+    Public Sub BtnAgregarCamion_Click(sender As Object, e As EventArgs) Handles BtnAgregarCamion.Click
+        Dim ObjInventarios As New ClsInventarios
+        If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, UsuarioActual.CveEmpresa) Then
+            RegistraScript("$('#DivAgregarNuevoCamion').modal('hide');")
+            CargarCamiones()
+            TxtPlacaNuevo.Text = ""
+            TxtEspecificacionNuevo.Text = ""
+        End If
+        ObjInventarios.Dispose()
+    End Sub
 End Class

OC/OC.aspx.vb

@@ -1337,14 +1337,14 @@ Partial Class OC
                         ChkCotizacion.Visible = True
                         DdlProveedores.SelectedValue = objOC.CveProveedor.ToString
                         If DdlProveedores.SelectedValue.ToEntero > 0 Then
-                            DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {objOC.CveProveedor}").Rows(0)("RazonSocial").ToString
+                            DdlProveedores.SelectedText = GlobalDTCompProveedores(CveEmpresaActual).FiltraParametros($"CveProveedor = {objOC.CveProveedor}").Rows(0)("RazonSocial").ToString
                         Else
                             DdlProveedores.SelectedText = "-"
                         End If
 
                         If objOC.CveProveedorSucursal.ToEntero > 0 Then
                             DivProveedorSucursal.Visible = True
-                            DdlProveedorSucursal.DataSource = GlobalDTProveedorSucursales(objOC.CveProveedor, UsuarioActual.CveEmpresa)
+                            DdlProveedorSucursal.DataSource = GlobalDTProveedorSucursales(objOC.CveProveedor, CveEmpresaActual)
                             DdlProveedorSucursal.DataBind()
                             DdlProveedorSucursal.SelectedValueExist(objOC.CveProveedorSucursal.ToString)
                         End If

Ventas/Clientes.aspx.vb

@@ -1894,10 +1894,10 @@ Partial Class Clientes
 
     Protected Sub BtnVerMasBancos_Click(sender As Object, e As EventArgs)
         If BtnVerMasBancos.Text = "Ver Más" Then
-            CargaBancos(-1)
+            CargaBancos(1000000)
             BtnVerMasBancos.Text = "Ver Menos"
         Else
-            CargaBancos(11)
+            CargaBancos(51)
             BtnVerMasBancos.Text = "Ver Más"
         End If
     End Sub
@@ -1906,10 +1906,10 @@ Partial Class Clientes
 
 #Region "B A N C O S"
     'CuentasxCobrar Activas (Pagos Recibidos)
-    Private Sub CargaBancos(Optional SelectTop As Integer = 11, Optional CveClienteSucursal As Integer = -1)
+    Private Sub CargaBancos(Optional SelectTop As Integer = 51, Optional CveClienteSucursal As Integer = -1)
         Dim ObjMovtos As New ClsMovimientos()
         'CxC Activas
-        If ObjMovtos.GetClienteAbonos(CveCliente, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero) AndAlso ObjMovtos.DtResultados.Rows.Count > 0 Then
+        If ObjMovtos.GetClienteAbonos(CveCliente, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero, SelectTop:=SelectTop) AndAlso ObjMovtos.DtResultados.Rows.Count > 0 Then
             GvBancos.DataSource = ObjMovtos.DtResultados
             DTCobrosRealizados = ObjMovtos.DtResultados
             DTCobrosRealizados.Rows.Remove(DTCobrosRealizados.Rows(0))

Ventas/PV.aspx

@@ -2312,7 +2312,7 @@
                             <tr>
                                 <div class="row" style="padding-left: 16px;">
                                     <div class="form-group form-md-line-input input-iconright col-xs-9">
-                                        <asp:TextBox ID="TxtRFCCliente" Style="text-transform: uppercase;" placeholder="Ingrese el RFC para su validación" runat="server" CssClass="form-control" MaxLength="13" CausesValidation="true"></asp:TextBox>
+                                        <asp:TextBox ID="TxtRFCCliente" Text="XAXX010101000" Style="text-transform: uppercase;" placeholder="Ingrese el RFC para su validación" runat="server" CssClass="form-control" MaxLength="13" CausesValidation="true"></asp:TextBox>
                                         <asp:RegularExpressionValidator ID="REVRFCCliente" runat="server" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es incorrecto, por favor ingréselo." ValidationGroup="GrpGuardarCliente" ControlToValidate="TxtRFCCliente" ValidationExpression="^[a-zA-Z.)(/\\&-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$"></asp:RegularExpressionValidator>
                                         <label for="<%= TxtRFCCliente.ClientID.ToString()%>">RFC:</label>
                                     </div>
@@ -2386,6 +2386,7 @@
                                     <div class="form-group form-md-line-input input-iconright  col-xs-6">
                                         <asp:TextBox ID="TxtCorreoCliente" CssClass="form-control" runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
                                         <asp:RegularExpressionValidator ID="RegularExpressionValidator3" runat="server" CssClass="help-block errorimput" ValidationExpression="(([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*" ControlToValidate="TxtCorreoCliente" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Email''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardarCliente"></asp:RegularExpressionValidator>
+                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server" ControlToValidate="TxtCorreoCliente" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Correo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarCliente"></asp:RequiredFieldValidator>
                                         <label for="<%= TxtCorreoCliente.ClientID.ToString()%>">Email: </label>
                                         <i></i>
                                     </div>
@@ -2681,8 +2682,8 @@
                                                                 <label>Tipo Servicio:</label>
                                                                 <br />
                                                                 <asp:DropDownList ID="DdlTipoServicio" CssClass="form-control input-sm select2me" runat="server" CausesValidation="true">
-                                                                    <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                                                    <asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
-                                                                    <asp:ListItem Text="Particular" Value="1"></asp:ListItem>
+                                                                    <asp:ListItem Text="Particular" Value="1" Selected="True"></asp:ListItem>
                                                                     <asp:ListItem Text="Comercial" Value="2"></asp:ListItem>
                                                                     <asp:ListItem Text="Taxi" Value="3"></asp:ListItem>
                                                                 </asp:DropDownList>
@@ -2897,7 +2898,7 @@
                                                         <div class="col-md-8">
                                                             <div class="form-group form-md-line-input input-iconright">
                                                                 <asp:TextBox ID="TxtCodLinea" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
-                                                                <asp:CustomValidator id="CVCodLinea" runat="server"  ControlToValidate="TxtCodEnsamble" ClientValidationFunction="ValidarCodigoLinea" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cod.Linea''</b> es incorrecto, por favor ingréselo correctamente." ValidationGroup="GrpAddVenta" />
+                                                                <asp:CustomValidator id="CVCodLinea" runat="server"  ControlToValidate="TxtCodLinea" ClientValidationFunction="ValidarCodigoLinea" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cod.Linea''</b> es incorrecto, por favor ingréselo correctamente." ValidationGroup="GrpAddVenta" />
                                                                 <label for="<%= TxtCodLinea.ClientID.ToString()%>">Cod.Linea:</label>
                                                             </div>
                                                         </div>
@@ -2983,7 +2984,7 @@
                                                             </div>
                                                         </div>                                                        
                                                         <div class="col-md-4">
-                                                            <asp:Button ID="BtnCalcularImporteAjuste" CssClass="btn green-haze btn-outline btn-circle btn-sm" OnClick="BtnCalcularImporteAjuste_Click" runat="server" Text="Recalcular" ValidationGroup="GrpAddVenta" />
+                                                            <asp:Button ID="BtnCalcularImporteAjuste" CssClass="btn green-haze btn-outline btn-circle btn-sm" OnClick="BtnCalcularImporteAjuste_Click" runat="server" Text="Recalcular" />
                                                         </div>
                                                     </div>
                                                 </div>
@@ -3640,7 +3641,7 @@
         }
 
         function showDivEC() {
-            $('#<%= TxtRFCCliente.ClientID  %>').val('');
+           
             $('#<%= TxtNombreCliente.ClientID  %>').val('');
             $('#<%= TxtDireccionCliente.ClientID  %>').val('');
             $('#<%= TxtNumExtCliente.ClientID  %>').val('');

Ventas/PV.aspx.vb

@@ -4654,6 +4654,7 @@ Partial Class PV
         DivCorreoCuentaCliente.Visible = False
         DivBotonesAgregarCliente.Visible = False
         DivFormaCliente.Visible = False
+        TxtRFCCliente.Text = "XAXX010101000"
         UpAgregarCliente.Update()
 
         RegistraScript("showDivEC();")
@@ -5246,6 +5247,7 @@ Partial Class PV
             DdlTipoUso.DataBind()
 
             HdnPSAjusteMarca.Value = CveMarca.ToString()
+
         End If
 
         If Not DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso DdlFacturas.SelectedValue.ToEntero > 0 Then
@@ -5276,13 +5278,14 @@ Partial Class PV
                 Dim CveMarca As Integer = -1
 
                 CveMarca = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimeroValor("CveMarca", "").ToEntero
-
+                Dim ImportePagarCliente As Decimal = 0
                 Dim ObjAcum As New ClsAcumuladores
                 If ObjAcum.GarantiasMesesGet(-1, UsuarioActual.CveEmpresa, CveMarca, DdlTipoUso.SelectedValue.ToEntero, TxtMesesUso.Text.ToEntero) Then
                     If ObjAcum.DtResultados.Rows.Count > 0 Then
                         TxtPorcentajeAjuste.Text = (ObjAcum.DtResultados.Rows(0)("Valor").ToString.ToDouble / 100).ToString
 
                         TxtImporteAjuste.Text = (TxtPorcentajeAjuste.Text.ToDecimal * TxtPUFactura.Text.ToDecimal).FormatoNumero
+                        ImportePagarCliente = TxtImporteAjuste.Text.ToDecimal
 
                         Dim CargoVendido As Decimal = 0
                         Dim CargoGarantia As Decimal = 0
@@ -5314,10 +5317,13 @@ Partial Class PV
 
                             TxtImporteAjuste.Text = "0.00"
                             CargoGarantia = CargoVendido
+                            ImportePagarCliente = 0
                         End If
+                        ImportePagarCliente = (TxtPrecio.Text.ToDouble - ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia))).ToDecimal
+
                         TxtImporteAjuste.ToolTip = $"La diferencia de ajuste fue: {(TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble).FormatoNumero()}. La diferencia de tamaños fue: {(CargoVendido - CargoGarantia).FormatoNumero}."
                         TxtImporteAjuste.Text = ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia)).FormatoNumero
-
+                        TxtPagarCliente.Text = ImportePagarCliente.FormatoNumero
                     Else
                         Alert("El producto no tiene ajuste en ese periodo", TipoMensaje.MsgAdvertencia)
                         'cuando no está registrada, no da ajuste
@@ -5328,6 +5334,10 @@ Partial Class PV
                     Alert("No se tiene especificado tabla de garantía")
                 End If
                 ObjAcum.Dispose()
+            Else
+                If DdlPSAjuste.SelectedValue.ToEntero <= 0 Then
+                    Alert("Especificar el producto a recibir")
+                End If
             End If
         Catch ex As Exception
             OnError("Ocurrió un error al recalcular el costo", ex)

Ventas/Ventas.aspx.vb

@@ -13929,21 +13929,21 @@ Partial Class Ventas
                         Dim PorcentajeProducto2 = RowPorcentaje("PorcentajeProducto2").ToString().ToDecimal() / 100D
                         Dim PorcentajeProducto3 = RowPorcentaje("PorcentajeProducto3").ToString().ToDecimal() / 100D
 
-                        Dim TotalInicial = (Cantidad * (PU)) - Descuento
+                        Dim TotalInicial As Decimal = (Cantidad * (PU)) - Descuento
                         Dim TotalFinal = TotalInicial
                         'SI APLICA EL PRIMER DESCUENTO
                         If PorcentajeProducto > 0 Then
-                            Dim Descuento1 = TotalInicial * PorcentajeProducto
+                            Dim Descuento1 As Decimal = (TotalInicial * PorcentajeProducto).RoundSQL(2)
                             Dim Total2 = (TotalInicial - Descuento1)
 
                             'SI APLICA EL SEGUNDO DESCUENTO
                             If PorcentajeProducto2 > 0 Then
-                                Dim Descuento2 = Total2 * PorcentajeProducto2
+                                Dim Descuento2 As Decimal = (Total2 * PorcentajeProducto2).RoundSQL(2)
                                 Dim Total3 = (Total2 - Descuento2)
 
                                 'SI APLICA EL TERCER DESCUENTO
                                 If PorcentajeProducto3 > 0 Then
-                                    Dim Descuento3 = Total3 * PorcentajeProducto3
+                                    Dim Descuento3 As Decimal = (Total3 * PorcentajeProducto3).RoundSQL(2)
                                     TotalFinal = Total3 - Descuento3
                                 Else
                                     TotalFinal = Total3
@@ -15756,17 +15756,21 @@ Partial Class Ventas
         Try
             Dim CveMovimientoVirtual As Integer = -1
             Dim CveAlmacenVirtual As Integer = -1
-            Dim CveConceptoMovimientoVirtual As Integer = 36
+            Dim CveConceptoMovimientoVirtual As Integer = 37
             Dim DtPSVirtual As DataTable = Nothing
             Dim DtTamanios As DataTable = Nothing
             Dim CveMovimientoEntradaDev As Integer = -1
+            Dim CveSubProyecto As Integer = -1
 
             If ObjInventario.GetInv_Mov(CveRemision, UsuarioActual.CveEmpresa) Then
                 Dim RowMovimiento As DataRow = ObjInventario.DtResultados.FiltroPrimero("CvePS IS NULL AND ((CveTipoAlmacen = 24 AND CveConcepto = 2) OR (CveTipoAlmacen = 1 AND CveConcepto = 8))  AND CveVenta > 0")
 
                 If RowMovimiento IsNot Nothing Then
                     CveMovimientoEntradaDev = RowMovimiento("CveMovimiento").ToString().ToEntero()
-                    CveAlmacenVirtual = RowMovimiento("CveAlmacen").ToString().ToEntero()
+                    Dim tCveAlmacen = RowMovimiento("CveAlmacen").ToString().ToEntero()
+                    CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {tCveAlmacen}").ToEntero()
+                    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen = 24 AND CveSubProyecto={CveSubProyecto}").ToEntero()
+
                 Else
                     OcurrioError = True
                 End If
@@ -15780,16 +15784,9 @@ Partial Class Ventas
                 OcurrioError = True
             End If
 
-            'CARGA CONCEPTOS DEVUELTOS EN LA VENTA
-            'If ObjInventario.GetMovimientosDetalle(CveMovimientoEntradaDev, UsuarioActual.CveEmpresa) Then
-            '    DtPSVirtual = ObjInventario.DtResultados.Copy()
-            'Else
-            '    OcurrioError = True
-            'End If
-
             If Not OcurrioError AndAlso DtPSVirtual.Rows.Count > 0 Then
 
-                CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, ObjFactura.CveVenta, -1, -1, Modulo:="Vta/V", CveMovimientoRelacionado:=CveMovimientoEntradaDev)
+                CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, CveConceptoMovimientoVirtual, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, ObjFactura.CveVenta, -1, -1, Modulo:="Vta/VV", CveMovimientoRelacionado:=CveMovimientoEntradaDev)
 
                 If CveMovimientoVirtual > 0 Then
                     For Each RowUsado As DataRow In DtPSVirtual.Rows
@@ -21247,20 +21244,24 @@ Partial Class Ventas
         Dim ImporteReferencia As Decimal = If(DdlNCNivelImporte.SelectedValue.ToEntero = 1, Total, SubTotal)
         Dim Porcentaje As Decimal = ((Importe * 100) / ImporteReferencia) / 100
         Dim FiltroStr As String = ""
+        Dim importePuTemp As Decimal = 0
         For Each Dr As DataRow In DtImpuestosLocal.Rows
             FiltroStr = String.Format("ISNULL(PorcentajeIVA,0) = {0} AND ISNULL(PorcentajeRetIVA,0) = {1} AND ISNULL(PorcentajeRetISR,0) = {2} AND ISNULL(PorcentajeIEPS,0) = {3} AND ISNULL(CveSubProyecto,0) = {4} ", Dr("PorcentajeIVA").ToString.ToDecimal, Dr("PorcentajeRetIVA").ToString.ToDecimal, Dr("PorcentajeRetISR").ToString.ToDecimal, Dr("PorcentajeIEPS").ToString.ToDecimal, Dr("CveSubProyecto"))
-            Dr("ImporteTotal") = Math.Round(Porcentaje * (TmpDT.SUM("TotalImporte", FiltroStr) - TmpDT.SUM("Descuento", FiltroStr)), 2)
+            importePuTemp = (Porcentaje * (TmpDT.SUM("TotalImporte", FiltroStr) - TmpDT.SUM("Descuento", FiltroStr))).ToDecimal
+            Dr("ImporteTotal") = importePuTemp.RoundSQL()
 
-            'Dr("ImporteIVA") = (Dr("ImporteTotal").ToString().ToDecimal() * Dr("PorcentajeIVA").ToString().ToDecimal()).RoundSQL(2)
-            'Dr("ImporteRetIVA") = (Dr("ImporteTotal").ToString().ToDecimal() * Dr("PorcentajeRetIVA").ToString().ToDecimal()).RoundSQL(2)
-            'Dr("ImporteRetISR") = (Dr("ImporteTotal").ToString().ToDecimal() * Dr("PorcentajeRetISR").ToString().ToDecimal()).RoundSQL(2)
-            'Dr("ImporteIEPS") = (Dr("ImporteTotal").ToString().ToDecimal() * Dr("PorcentajeIEPS").ToString().ToDecimal()).RoundSQL(2)
 
-            Dr("ImporteIVA") = Math.Round(Porcentaje * TmpDT.SUM("ImporteIVA", FiltroStr), 2)
+            Dr("ImporteIEPS") = (importePuTemp * Dr("PorcentajeIEPS").ToString().ToDecimal()).RoundSQL(2)
-            Dr("ImporteRetIVA") = Math.Round(Porcentaje * TmpDT.SUM("ImporteRetIVA", FiltroStr), 2)
+            Dr("ImporteIVA") = ((importePuTemp + Dr("ImporteIEPS").ToString.ToDecimal) * Dr("PorcentajeIVA").ToString.ToDecimal)
-            Dr("ImporteRetISR") = Math.Round(Porcentaje * TmpDT.SUM("ImporteRetISR", FiltroStr), 2)
+            Dr("ImporteRetIVA") = (importePuTemp * Dr("PorcentajeRetIVA").ToString().ToDecimal()).RoundSQL(2)
-            Dr("ImporteIEPS") = Math.Round(Porcentaje * TmpDT.SUM("ImporteIEPS", FiltroStr), 2)
+            Dr("ImporteRetISR") = (importePuTemp * Dr("PorcentajeRetISR").ToString().ToDecimal()).RoundSQL(2)
-            Dr("ImportePU") = Dr("ImporteTotal").ToString.ToDecimal '(Dr("ImporteTotal").ToString.ToDecimal - Dr("ImporteIVA").ToString.ToDecimal - Dr("ImporteRetIVA").ToString.ToDecimal - Dr("ImporteRetISR").ToString.ToDecimal - Dr("ImporteIEPS").ToString.ToDecimal)
+
+
+            'Dr("ImporteIVA") = (Porcentaje * TmpDT.SUM("ImporteIVA", FiltroStr)).RoundSQL(2)
+            'Dr("ImporteRetIVA") = Math.Round(Porcentaje * TmpDT.SUM("ImporteRetIVA", FiltroStr), 2)
+            'Dr("ImporteRetISR") = Math.Round(Porcentaje * TmpDT.SUM("ImporteRetISR", FiltroStr), 2)
+            'Dr("ImporteIEPS") = Math.Round(Porcentaje * TmpDT.SUM("ImporteIEPS", FiltroStr), 2)
+            Dr("ImportePU") = Dr("ImporteTotal").ToString.ToDecimal.RoundSQL(2) '(Dr("ImporteTotal").ToString.ToDecimal - Dr("ImporteIVA").ToString.ToDecimal - Dr("ImporteRetIVA").ToString.ToDecimal - Dr("ImporteRetISR").ToString.ToDecimal - Dr("ImporteIEPS").ToString.ToDecimal)
         Next
         'codigo para ajuste de centavo, si el importe total no cuadra con los totales
         Dim difTmp As Decimal = Importe - (DtImpuestosLocal.SUMD("ImporteTotal") + DtImpuestosLocal.SUMD("ImporteIVA") + DtImpuestosLocal.SUMD("ImporteIEPS") - DtImpuestosLocal.SUMD("ImporteRetIVA") - DtImpuestosLocal.SUMD("ImporteRetISR"))
@@ -24122,39 +24123,45 @@ Partial Class Ventas
 #End Region
 
     Protected Sub DdlTipoRetencion_SelectedIndexChanged(sender As Object, e As EventArgs)
-        If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
+
-            If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then
+        If CveVenta <= 0 Then
-                For Each RowServicio As DataRow In TmpDT.Rows
+            If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
-                    Dim tClienteRetIVA = ClienteRetIVA
+                If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then
-                    If tClienteRetIVA <= 0 Then
+                    For Each RowServicio As DataRow In TmpDT.Rows
-                        If DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
+                        Dim tClienteRetIVA = ClienteRetIVA
-                            tClienteRetIVA = 0.106667D
+                        If tClienteRetIVA <= 0 Then
-                        ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then
+                            If DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
-                            tClienteRetIVA = 0.04D
+                                tClienteRetIVA = 0.106667D
-                        ElseIf DdlTipoRetencion.SelectedValue.Contiene("4") AndAlso CBool(RowServicio("EsOutSourcing").ToString()) Then
+                            ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then
-                            tClienteRetIVA = 0.06D
+                                tClienteRetIVA = 0.04D
+                            ElseIf DdlTipoRetencion.SelectedValue.Contiene("4") AndAlso CBool(RowServicio("EsOutSourcing").ToString()) Then
+                                tClienteRetIVA = 0.06D
+                            End If
+                            ViewState("ClienteRetIVA") = tClienteRetIVA
                         End If
-                        ViewState("ClienteRetIVA") = tClienteRetIVA
+
+                        Dim TotalCalculableImpuestos As Decimal = (RowServicio("Cantidad").ToString().ToDecimal() * RowServicio("PU").ToString().ToDecimal()) - RowServicio("Descuento").ToString().ToDecimal()
+                        RowServicio("ImporteRetIVA") = (TotalCalculableImpuestos * ClienteRetIVA).RoundSQL()
+                        RowServicio("PorcentajeRetIVA") = ClienteRetIVA
+
+                    Next
+                    TxtRetIVA.Text = TmpDT.SUM("ImporteRetIVA").ToDecimal().FormatoNumero(2)
+                    Dim PorcentajeRetIVA = (TmpDT.MAX("PorcentajeRetIVA").ToDecimal() * 100)
+                    LblRetIVA.Text = PorcentajeRetIVA.FormatoNumero(2)
+                    If PorcentajeRetIVA > 0 Then
+                        DdlTipoRetencion.Visible = True
                     End If
 
-                    Dim TotalCalculableImpuestos As Decimal = (RowServicio("Cantidad").ToString().ToDecimal() * RowServicio("PU").ToString().ToDecimal()) - RowServicio("Descuento").ToString().ToDecimal()
+                    GvPS.DataSource = TmpDT
-                    RowServicio("ImporteRetIVA") = (TotalCalculableImpuestos * ClienteRetIVA).RoundSQL()
+                    GvPS.DataBind()
-                    RowServicio("PorcentajeRetIVA") = ClienteRetIVA
 
-                Next
+                    UpPS.Update()
-                TxtRetIVA.Text = TmpDT.SUM("ImporteRetIVA").ToDecimal().FormatoNumero(2)
-                Dim PorcentajeRetIVA = (TmpDT.MAX("PorcentajeRetIVA").ToDecimal() * 100)
-                LblRetIVA.Text = PorcentajeRetIVA.FormatoNumero(2)
-                If PorcentajeRetIVA > 0 Then
-                    DdlTipoRetencion.Visible = True
                 End If
-
-                GvPS.DataSource = TmpDT
-                GvPS.DataBind()
-
-                UpPS.Update()
             End If
+
         End If
+
+
     End Sub
 
 

vwd.webinfo

@@ -0,0 +1,10 @@
+<?xml version="1.0"?>
+<!-- 
+  Visual Studio global web project settings.
+-->
+<VisualWebDeveloper>
+
+  <StartupServices>
+    <Service ID="{C0C07587-41A7-46C8-8FBD-3F9C8EBE2DDC}"/>
+  </StartupServices>
+</VisualWebDeveloper>