Validacion CvePSSat Cambio
This commit is contained in:
Hector
@@ -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">
|
||||
|
||||
@@ -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
|
||||
ErrorSATPS = True
|
||||
If Row("CveSATPSActualizado").ToString().ToEntero() = 1 Then
|
||||
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()
|
||||
|
||||
Reference in New Issue
Block a user