Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

App_Code/LogicNominas.vb

@@ -330,7 +330,7 @@ Public Class LogicNominas
         cfdi.Emisor.RFC = UsuarioActual.Empresa.RFC
         cfdi.Emisor.RegimenFiscal = UsuarioActual.Empresa.CodigoRegimenFiscal
         'aplica persona fisica debe de tener CURP
-        If cfdi.Emisor.RegimenFiscal.Contiene("605", "606", "608", "611", "612", "614", "616", "621", "622", "629", "630", "615") Then
+        If cfdi.Emisor.RegimenFiscal.Contiene("605", "606", "608", "611", "612", "614", "616", "621", "622", "629", "630", "615", "626") OrElse cfdi.Emisor.RFC.Length = 13 Then
             cfdi.Emisor.CURP = UsuarioActual.Empresa.CURP
         End If
         cfdi.Nomina.CveNomina = CveNomina

Compras/RepCxP.aspx.vb

@@ -1945,7 +1945,7 @@ Partial Class Compras_RepCxP
 
         Dim Filtro As String = $"{Cliente}{Sucursal}{Grupo}{FechaIn}{FechaFn}{TipoDocto}{FVI}{FVF}{ClasificacionProv}{CorteA}"
 
-        GvCxP.ExportToExcelGembox("ReporteCxC", UsuarioActual, "REPORTE DE CUENTAS POR PAGAR", DatoTituloExtra:=$"", DatosFiltros:=Filtro)
+        GvCxP.ExportToExcelGembox("ReporteCxP", UsuarioActual, "REPORTE DE CUENTAS POR PAGAR", DatoTituloExtra:=$"", DatosFiltros:=Filtro)
 
     End Sub
 

Inventarios/TraspasoAlmacen.aspx.vb

@@ -2953,16 +2953,14 @@ Partial Class Inventarios_TraspasoAlmacen
 
                         Dim RowPS As DataRow = DtPS.FiltroPrimero(String.Format("Codigo='{0}'", RowExcel("Codigo").ToString()))
 
-                        Dim CveProducto As Integer = RowPS("CvePS").ToString().ToEntero()
-                        Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString().ToEntero()
-
-                        Dim Cantidad As Decimal = RowExcel("Cantidad").ToString().ToDecimal()
-                        Dim Serie As String = RowExcel("Serie").ToString()
-                        Dim Lote As String = RowExcel("Lote").ToString()
-                        Dim FechaCaducidad As Date = If(RowExcel("FechaCaducidad").ToString = "", MinFecha, RowExcel("FechaCaducidad").ToString.ToDate)
-                        Dim Observaciones As String = RowExcel("Observaciones").ToString()
-
-                        If CveProducto > 0 Then
+                        If RowPS IsNot Nothing Then
+                            Dim CveProducto As Integer = RowPS("CvePS").ToString().ToEntero()
+                            Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString().ToEntero()
+                            Dim Cantidad As Decimal = RowExcel("Cantidad").ToString().ToDecimal()
+                            Dim Serie As String = RowExcel("Serie").ToString()
+                            Dim Lote As String = RowExcel("Lote").ToString()
+                            Dim FechaCaducidad As Date = If(RowExcel("FechaCaducidad").ToString = "", MinFecha, RowExcel("FechaCaducidad").ToString.ToDate)
+                            Dim Observaciones As String = RowExcel("Observaciones").ToString()
 
                             Dim Valido As Boolean = True
                             Dim ValidarLote As Boolean = True
@@ -3001,10 +2999,9 @@ Partial Class Inventarios_TraspasoAlmacen
                                 RowsNoCargados = RowsNoCargados + 1
                                 ProductosNoCargados.AppendFormat("{0},", RowPS("PSCodigo").ToString())
                             End If
-
                         Else
                             RowsNoCargados = RowsNoCargados + 1
-                            ProductosNoCargados.AppendFormat("{0},", RowExcel("Producto").ToString())
+                            ProductosNoCargados.AppendFormat("{0}, ", RowExcel("Producto").ToString())
                         End If
                     End If
                 Next

Ventas/CatPS.aspx

@@ -214,10 +214,10 @@
                     <asp:GridView ID="GvDatos" runat="server" ClientIDMode="Static" AutoGenerateColumns="False" EmptyDataText="No se encontraron Productos o Servicios registrados" 
                         ToolTip="Listado de Productos o Servicios" CssClass="table table-striped table-hover Widthall" UseAccessibleHeader="true" GridLines="None">
                         <Columns>
-                            <asp:BoundField DataField="Clasificacion" HeaderText="Clasificación" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="10%" SortExpression="OrdenarGV" />
+                            <asp:BoundField DataField="Clasificacion" HeaderText="Clasificación"   ItemStyle-Width="10%" SortExpression="OrdenarGV" />
                             <asp:BoundField DataField="TipoPS" HeaderText="Tipo" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" />
-                            <asp:BoundField DataField="UnidadMedida" HeaderText="U.M." ItemStyle-HorizontalAlign="Left" ItemStyle-Width="10%" />
-                            <asp:BoundField DataField="Codigo" HeaderText="Código" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="10%" />
+                            <asp:BoundField DataField="UnidadMedida" HeaderText="U.M." ItemStyle-HorizontalAlign="Left" ItemStyle-Width="10%" />                            
+                            <asp:HyperLinkField ItemStyle-CssClass="Izquierda Texto" HeaderText="Código" DataNavigateUrlFormatString="/Ventas/ProductosServicios.aspx?CvePS={0}" DataTextField="Codigo" DataNavigateUrlFields="CvePS" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="10%" />
                             <asp:HyperLinkField ItemStyle-CssClass="Izquierda Texto" HeaderText="Producto o Servicio" DataNavigateUrlFormatString="/Ventas/ProductosServicios.aspx?CvePS={0}" DataTextField="PS" DataNavigateUrlFields="CvePS" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="30%" />
                             <asp:BoundField DataField="Precio" HeaderText="Precio" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%" />
                             <asp:BoundField DataField="AplicaParaVenta" HeaderText="Aplica Para Venta" Visible="false" ItemStyle-Width="20px" />

Ventas/ClientesAbonar.aspx.vb

@@ -1767,13 +1767,21 @@ Partial Class Ventas_ClientesAbonar
 
         DtImpuestos = CargaTotalesImpuestos(DtImpuestos)
 
-        Dim DrSubProyecto As DataRow = GlobalDTSubProyectos(-1, ObjFacturaDevolucion.CveSubProyecto).Rows(0)
-
+        Dim DrSubProyecto As DataRow = GlobalDTSubProyectos(-1, ObjFacturaDevolucion.CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
         Dim Cantidad As Decimal = 1
-        Dim CveProyecto As Integer = DrSubProyecto("CveProyecto").ToString().ToEntero()
-        Dim CveSubProyecto As Integer = DrSubProyecto("CveSubProyecto").ToString.ToEntero
-        Dim SubProyecto As String = DrSubProyecto("SubProyecto").ToString
-        Dim Proyecto As String = DrSubProyecto("Proyecto").ToString
+        Dim CveProyecto As Integer
+        Dim CveSubProyecto As Integer
+        Dim SubProyecto As String
+        Dim Proyecto As String
+        If DrSubProyecto IsNot Nothing Then
+            CveProyecto = DrSubProyecto("CveProyecto").ToString().ToEntero()
+            CveSubProyecto = DrSubProyecto("CveSubProyecto").ToString.ToEntero
+            SubProyecto = DrSubProyecto("SubProyecto").ToString
+            Proyecto = DrSubProyecto("Proyecto").ToString
+        Else
+            Alert("Ocurrió un error al obtener información de la sucursal")
+            Exit Sub
+        End If
 
         Dim CveSATNC As Integer
         Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray())

Ventas/PV.aspx.vb

@@ -3031,7 +3031,7 @@ Partial Class PV
         'If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then DtVendedores = ObjVendedores.DtResultados.Copy
         'ObjVendedores.Dispose()
 
-        DtVendedores = GlobalDTVendedores(UsuarioActual.CveEmpresa)
+        DtVendedores = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).Copy
 
         If DtVendedores IsNot Nothing Then
             If UsuarioActual.Empresa.Funcionalidad(302) = "1" AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero > 0 Then