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

Compras/Compras.aspx.vb

@@ -1333,9 +1333,9 @@ Partial Class Compras_Compras
                 ViewState("CveFactura") = Request("CveFactura").ToEntero
 
                 Dim RFC As String = CargaFactura(CveFactura)
-                If Not VerificarProductosSATPS() Then
-                    Exit Sub
-                End If
+                'If Not VerificarProductosSATPS() Then
+                '    Exit Sub
+                'End If
                 If RFC.Trim <> String.Empty Then
                     DdlProveedor.Visible = False
                     HplProveedor.Visible = True
@@ -1663,14 +1663,10 @@ Partial Class Compras_Compras
                 If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" Then
                     'verificacion doble, si no la han cancelado, ya tiene una validaci[on para que llegue aqui  
 
-
-
-
                     Dim SWatch As New Stopwatch
                     SWatch.Start()
                     Dim ts As New TimeSpan
 
-
                     Dim Valida As New ClsValidaCFDi(dr("UUID").ToString(), dr("RFCDe").ToString, dr("RFCPara").ToString(), dr("Total").ToString.ToDecimal)
 
                     SWatch.Stop()
@@ -1764,6 +1760,21 @@ Partial Class Compras_Compras
                             SubTotalConceptos = Math.Round(TmpDT.SUM("Total"), 2).ToDecimal
                             AddPS2(False)
 
+
+                            'VALIDA QUE EL XML SI VIENE CON EL CODIGO SAT 01010101
+                            Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
+                            For Each drr As DataRow In TmpDT.FiltraParametros("ClaveProdServ = '01010101'").Rows
+
+                                ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", drr("PS"))
+
+                            Next
+
+                            If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
+                                Dim mensajeAdvertencia As String = String.Format("El comprobante contiene productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
+                                Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
+
+                            End If
+
                         End If
                     Else
                         CargaConceptosXML(XMLDoc)
@@ -1785,8 +1796,6 @@ Partial Class Compras_Compras
                             DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
                             ChkAplicaNotaCredito.Enabled = False
 
-
-
                             DdlTipoCompra.Items.Clear()
                             DdlTipoCompra.Items.Add(New ListItem("Seleccione", "-1"))
                             DdlTipoCompra.Items.Add(New ListItem("NC Con Productos", "6"))
@@ -4015,7 +4024,7 @@ Partial Class Compras_Compras
         If UsuarioActual.Empresa.Funcionalidad(702) = "1" Then
             If Not EstaAsociadoACajaChica And Not EstaAsociadoAPersonal Then
                 If Not CompraEstaVinculadaOC Then
-                    Alert("Debe de vincular una orden de compra para realizar esta factura")
+                    Alert("Debe de vincular una orden de compra para registrar la factura")
                     Exit Sub
                 End If
             End If
@@ -15469,21 +15478,21 @@ Partial Class Compras_Compras
         Dim DiferenciaPermitida = 1
         Dim Cont = 0
         'Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
-        'For Each gvr As GridViewRow In GvOC1.Rows
-        '    SubTotalGV += gvr.FCTextBox("TxtTotalOC1").Text.ToDecimal
-        '    If Cont = 0 Then DdlProveedorSucursal.SelectedValueExist(gvr.DataKey("CveProveedorSucursal").ToEntero())
-        '    Cont = 1
-        '    If GvOC1.Columns(6).Visible Then
-        '        Dim SatPS As String = gvr.FCDropDownLost("DdlSATPS").SelectedText()
-        '        Dim NombreProducto As String = gvr.FCLabel("LbProductoServicio").Text
-        '        If SatPS.Contains("01010101") Then
-        '            ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", NombreProducto)
-        '            'Dim mensajeAdvertencia As String = String.Format("Al vincular una Orden de Compra no se permiten productos con Producto/Servicio SAT igual a '{0}', revise el producto '{1}' en Orden(es) de Compra Vinculada(s)", SatPS, NombreProducto)
-        '            'Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
+        For Each gvr As GridViewRow In GvOC1.Rows
+            SubTotalGV += gvr.FCTextBox("TxtTotalOC1").Text.ToDecimal
+            If Cont = 0 Then DdlProveedorSucursal.SelectedValueExist(gvr.DataKey("CveProveedorSucursal").ToEntero())
+            Cont = 1
+            '    If GvOC1.Columns(6).Visible Then
+            '        Dim SatPS As String = gvr.FCDropDownLost("DdlSATPS").SelectedText()
+            '        Dim NombreProducto As String = gvr.FCLabel("LbProductoServicio").Text
+            '        If SatPS.Contains("01010101") Then
+            '            ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", NombreProducto)
+            '            'Dim mensajeAdvertencia As String = String.Format("Al vincular una Orden de Compra no se permiten productos con Producto/Servicio SAT igual a '{0}', revise el producto '{1}' en Orden(es) de Compra Vinculada(s)", SatPS, NombreProducto)
+            '            'Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
 
-        '        End If
-        '    End If
-        'Next
+            '        End If
+            '    End If
+        Next
         'If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
         '    Dim mensajeAdvertencia As String = String.Format("No se permite vinculación de productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
         '    Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
@@ -20245,37 +20254,35 @@ Partial Class Compras_Compras
 
     End Sub
 
-    Private Function VerificarProductosSATPS() As Boolean
-        Dim CvePSGRuposAux As New StringBuilder("")
-        For Each gvr As GridViewRow In GvPS.Rows
-            Dim CvePSIndividual As String = gvr.DataKey("CvePS")
-            CvePSGRuposAux.AppendFormat("{0},", CvePSIndividual)
-        Next
+    'Private Function VerificarProductosSATPS() As Boolean
+    '    Dim CvePSGRuposAux As New StringBuilder("")
+    '    For Each gvr As GridViewRow In GvPS.Rows
+    '        Dim CvePSIndividual As String = gvr.DataKey("CvePS")
+    '        CvePSGRuposAux.AppendFormat("{0},", CvePSIndividual)
+    '    Next
 
-        If CvePSGRuposAux.Length > 0 Then
-            Dim CvePSGRupos As String = Left(CvePSGRuposAux.ToString, CvePSGRuposAux.Length - 1)
+    Dim CvePSGRupos As String = Left(CvePSGRuposAux.ToString, CvePSGRuposAux.Length - 1)
 
-            Dim PSSat As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CvePS IN ({0})", CvePSGRuposAux))
+    Dim PSSat As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CvePS IN ({0})", CvePSGRuposAux))
 
-            Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
-            For Each PS As GridViewRow In GvPS.Rows
-                Dim PSIndividual As String = PS.DataKey("PS")
-                Dim ClavePSSAT As String = PSSat.FiltroPrimeroValor("CveSATPS", String.Format("PS = '{0}'", PSIndividual))
-                If ClavePSSAT = "46920" Then
-                    ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", PSIndividual)
-                End If
-            Next
-
-            If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
-                Dim mensajeAdvertencia As String = String.Format("No se permite vinculación de productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
-                Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
-                Return False
+    Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
+    For Each PS As GridViewRow In GvPS.Rows
+    Dim PSIndividual As String = PS.DataKey("PS")
+    Dim ClavePSSAT As String = PSSat.FiltroPrimeroValor("CveSATPS", String.Format("PS = '{0}'", PSIndividual))
+    If ClavePSSAT = "46920" Then
+                ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", PSIndividual)
             End If
-        End If
+    Next
 
-        Return True
+    If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
+    Dim mensajeAdvertencia As String = String.Format("No se permite vinculación de productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
+            Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
+            Return False
+    End If
 
-    End Function
+    '    Return True
+
+    'End Function
 
 End Class
 

Compras/PopUpVerFactura.aspx.vb

@@ -937,7 +937,10 @@ Partial Class PopUpVerFactura
             'se rellena la sucursal
             'Vta.Subproyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SucursalModel)
             Dim CveSubProyecto As Integer = dtVentas(0)("CveSubProyecto").ToString().ToEntero()
-            Vta.SubProyecto = GlobalDTSubProyectos(-1, CveSubProyecto).Rows(0).DataRowToObject(Of Modelos.SubProyectoModel)
+
+            Dim DtSubProyecto = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=dtVentas(0)("CveEmpresa").ToString().ToEntero())
+
+            Vta.SubProyecto = DtSubProyecto.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel)
             'Vta.SubProyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel)
             Vta.Cliente = New Modelos.ClienteModel
             Vta.Cliente.Nombre = dtVentas(0)("ClienteNombre").ToString

Compras/ReembolsosComprobaciones.aspx

@@ -292,7 +292,7 @@
             <asp:HiddenField runat="server" ID="HdnFechasComprasVinculadas" Value="-1" ClientIDMode="Static" />
 
             <asp:GridView ID="GvCxP" GridLines="None" CssClass="table table-hover table-advance Widthall" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Cuentas por Pagar pendientes" 
-                DataKeyNames="CveCompra,FechaCompra,Proveedor,SerieFolio,Original,SubTotal,IVA,RetIVA,RetISR,IdCtaContProveedores,IdCtaContProveedoresSIG,CvePrePoliza,IdPoliza,CveRetIVAConcepto,CveRetISRConcepto,IVAPorcentaje,IVADeducible,IVANoDeducible,CveTipoConcepto,CveSubProyecto">
+                DataKeyNames="CveCompra,FechaCompra,Proveedor,SerieFolio,Original,SubTotal,IVA,RetIVA,RetISR,IdCtaContProveedores,IdCtaContAcreedor,CvePrePoliza,IdPoliza,CveRetIVAConcepto,CveRetISRConcepto,IVAPorcentaje,IVADeducible,IVANoDeducible,CveTipoConcepto,CveSubProyecto">
                 <Columns>
                     <asp:TemplateField>
                         <HeaderTemplate>