Validacion CvePSSat Cambio

Compras/Compras.aspx

@@ -1589,7 +1589,7 @@
 
                                                                     <asp:GridView runat="server" ID="GvOC1" AutoGenerateColumns="false"
                                                                         GridLines="None" UseAccessibleHeader="true" EmptyDataText="No se encontraron registros." CssClass="table table-striped table-hover Widthall Sortable" RowStyle-HorizontalAlign="Center"
-                                                                        DataKeyNames="CantidadF,FolioREQ,CveProveedorSucursal,CveTipoPS,PS,CantidadPendienteVincular,IEPSPS,IVA,RetIVA,RetISR,Descuento,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,IEPSPSIVAPorcentaje,Cantidad,CveProveedorOC,Importe">
+                                                                        DataKeyNames="CantidadF,FolioREQ,CveProveedorSucursal,CveTipoPS,PS,CantidadPendienteVincular,IEPSPS,IVA,RetIVA,RetISR,Descuento,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,IEPSPSIVAPorcentaje,Cantidad,CveProveedorOC,Importe,CveSATPS">
 
                                                                         <Columns>
                                                                             <asp:TemplateField HeaderText="Folio" ItemStyle-Width="10%" Visible="false">

Compras/Compras.aspx.vb

@@ -1734,7 +1734,7 @@ Partial Class Compras_Compras
                         Xml.Append(Replace(Replace(Replace(nodeconceptos.OuterXml, "<cfdi:", "<"), "</cfdi:", "</"), "xmlns:cfdi=""http://www.sat.gob.mx/cfd/3""", ""))
                         If ObjeFacturas.GetFacturasComparacionXML(Version, Xml.ToString, UsuarioActual.CveEmpresa) Then
                             TmpDT = ObjeFacturas.DtResultados
-                            'TmpDT.Columns.Add("IVAPorcentaje")
+                            TmpDT.Columns.Add("CveSATPSActualizado")
                             'TmpDT.Columns.Add("RetIVAPorcentaje")
                             'TmpDT.Columns.Add("RetISRPorcentaje")
                             'TmpDT.Columns.Add("IEPSPSPorcentaje")
@@ -5143,9 +5143,12 @@ Partial Class Compras_Compras
 
                                         'ACTUALIZAR PRODUCTO/SERVICIO SAT
                                         If Version = "3.3" Then
-                                            If Not ObjProductosServicios.UpdateProductosServiciosSAT(Row("CvePS").ToString().ToEntero(), Row("CveSATPS").ToString().ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                                            If Row("CveSATPSActualizado").ToString().ToEntero() = 1 Then
-                                                ErrorSATPS = True
+                                                If Not ObjProductosServicios.UpdateProductosServiciosSAT(Row("CvePS").ToString().ToEntero(), Row("CveSATPS").ToString().ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                                                    ErrorSATPS = True
+                                                End If
                                             End If
+
                                         End If
 
                                         indiceTR += 1
@@ -11437,6 +11440,8 @@ Partial Class Compras_Compras
         TmpDT.Columns.Add("SATClaveProductoServicio", GetType(String))
         TmpDT.Columns.Add("CveUnidadMedidaSAT", GetType(Integer))
         TmpDT.Columns.Add("SATClaveUnidadMedida", GetType(String))
+        TmpDT.Columns.Add("CveSATPSActualizado", GetType(Integer))
+
 
         'Tipo de Gasto
         TmpDT.Columns.Add("CveTipoGasto", GetType(Integer))
@@ -11549,6 +11554,7 @@ Partial Class Compras_Compras
         TmpDTOriginal.Columns.Add("SATClaveProductoServicio", GetType(String))
         TmpDTOriginal.Columns.Add("CveUnidadMedidaSAT", GetType(Integer))
         TmpDTOriginal.Columns.Add("SATClaveUnidadMedida", GetType(String))
+        TmpDTOriginal.Columns.Add("CveSATPSActualizado", GetType(Integer))
 
         'Tipo de Gasto
         TmpDTOriginal.Columns.Add("CveTipoGasto", GetType(Integer))
@@ -15948,7 +15954,7 @@ Partial Class Compras_Compras
                 Dim TipoGasto As String = dr("TipoGasto").ToString
                 Dim CveContratoDetalle As Integer = dr("CveContratoDetalle").ToString.ToEntero
                 Dim CveCultivoCuadroDetalle As Integer = dr("CveCultivoCuadroDetalle").ToString.ToEntero
-
+                Dim CveSATPSActualizado As Boolean = gvr.FCDropDownLost("DdlSATPS").SelectedValue.ToEntero <> dr("CveSATPS").ToString.ToEntero
                 '[IPP] PROVISIONAL PARA TIPO GASTO
                 If GlobalDTTiposGastos(UsuarioActual.CveEmpresa) IsNot Nothing AndAlso GlobalDTTiposGastos(UsuarioActual.CveEmpresa).Rows.Count = 1 Then
                     Dim DrTipoGasto = GlobalDTTiposGastos(UsuarioActual.CveEmpresa).FiltroPrimero("")
@@ -15959,7 +15965,7 @@ Partial Class Compras_Compras
                 End If
 
                 AddPS(Cantidad, CveUM, UM, CveClasificacion, Clasificacion, CvePS, PS, CveTipoPS, CveSubProyectoContrato, SubProyecto, Proyecto, CveProyecto, Obs, PU, Total, IVA, RetIVA, RetISR, IEPSPS, IEPSPSIVA, Descuento, CveOrdenCompraDetalle, False,
-                      CantidadF:=CantidadF, EntregaDirecta:=EntregaDirecta, CveSATPS:=CveSATPS, CveTipoGasto:=CveTipoGasto, TipoGasto:=TipoGasto, CveContratoDetalle:=CveContratoDetalle, CveCultivoCuadroDetalle:=CveCultivoCuadroDetalle)
+                      CantidadF:=CantidadF, EntregaDirecta:=EntregaDirecta, CveSATPS:=CveSATPS, CveTipoGasto:=CveTipoGasto, TipoGasto:=TipoGasto, CveContratoDetalle:=CveContratoDetalle, CveCultivoCuadroDetalle:=CveCultivoCuadroDetalle, CveSATPSActualizado:=CveSATPSActualizado)
 
                 'CARGA PE
                 Index = TmpDT.Rows.Count - 1
@@ -18277,7 +18283,7 @@ Partial Class Compras_Compras
                       Obs As String, PU As Double, Total As Double, IVA As Double, RetIVA As Double, RetISR As Double, IEPSPS As Double, IEPSPSIVA As Double, Descuento As Double, Optional CveOrdenCompraDetalle As Integer = -1, Optional TCalculaTotales As Boolean = True,
                       Optional PSCodigo As String = "-", Optional PSDescripcion As String = "-", Optional CantidadF As Double = -1, Optional EntregaDirecta As Integer = -1, Optional OtrosGastos As Double = 0,
                       Optional CveSATPS As Integer = -1, Optional CargaXml As Boolean = False, Optional CveTipoGasto As Integer = -1, Optional TipoGasto As String = "", Optional PorcentajeIVA As Double = 0,
-                      Optional PorcentajeIEPS As Double = 0, Optional PorcentajeRetIVA As Double = 0, Optional PorcentajeRetISR As Double = 0, Optional NoDeducible As Boolean = False, Optional CveContratoDetalle As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1) As Integer
+                      Optional PorcentajeIEPS As Double = 0, Optional PorcentajeRetIVA As Double = 0, Optional PorcentajeRetISR As Double = 0, Optional NoDeducible As Boolean = False, Optional CveContratoDetalle As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1, Optional CveSATPSActualizado As Boolean = False) As Integer
 
         Dim Row As DataRow = Nothing
 
@@ -18332,6 +18338,13 @@ Partial Class Compras_Compras
             If DrPSSAT IsNot Nothing Then
                 Row("SATClaveProductoServicio") = DrPSSAT("SATClaveProductoServicio").ToString
                 Row("CveSATPS") = DrPSSAT("CveSATPS").ToString
+                If CveSATPSActualizado Then
+                    Row("CveSATPSActualizado") = 1
+
+                Else
+                    Row("CveSATPSActualizado") = 0
+
+                End If
             End If
         End If
 
@@ -18492,6 +18505,7 @@ Partial Class Compras_Compras
                 DrPS("CveTipoPS") = PSRow("CveTipoPS").ToString.ToEntero
                 DrPS("CveSATPS") = PSRow("CveSATPS").ToString.ToEntero
                 DrPS("SATClaveProductoServicio") = PSRow("SATClaveProductoServicio").ToString
+                DrPS("CveSATPSActualizado") = 0
 
                 'RESPETAR VALORES DE LA PANTALLA
                 'IVA = PSRow("IVA").ToString.ToDouble
@@ -18774,6 +18788,7 @@ Partial Class Compras_Compras
             TmpDT.Rows(HdnAliasInd.Value.ToEntero)("Obs") = TxtPSAlias.Text.Trim
             TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSATPS") = HdnPSAliasCveSATPS.Value.ToEntero
             TmpDT.Rows(HdnAliasInd.Value.ToEntero)("SATClaveProductoServicio") = HdnPSAliasSATClavePS.Value
+            TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSATPSActualizado") = 0
 
             'busco si el producto está en otros renglones QUE NO LO TENGAN ASIGNADO, LO VINCULE
             For Each drt As DataRow In TmpDT.Select($"PS ='{TxtPSAlias.Text.Trim}' and ISNULL(CvePS,0) = 0")
@@ -18786,6 +18801,8 @@ Partial Class Compras_Compras
                 drt("Obs") = TxtPSAlias.Text.Trim
                 drt("CveSATPS") = HdnPSAliasCveSATPS.Value.ToEntero
                 drt("SATClaveProductoServicio") = HdnPSAliasSATClavePS.Value
+                drt("CveSATPSActualizado") = 0
+
 
             Next
             TmpDT.AcceptChanges()