AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Actualizacion a saldos iniciales para que corrija diferencias en compras

Browse Source
This commit is contained in:
RPimienta
2024-09-25 21:43:09 -06:00
parent 7f5cf746a5
commit 843c122811
1 changed files with 15 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
General/SaldosIniciales.aspx.vb
View File

@@ -1799,6 +1799,21 @@ Partial Class General_SaldosIniciales
Dim CveClasificacion As Integer = drr("CveClasificacion").ToString().ToEntero() Dim CveClasificacion As Integer = drr("CveClasificacion").ToString().ToEntero()
Dim dtsubp As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) Dim dtsubp As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
If UsuarioActual.CveEmpresa = 189 Then
For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows
Dim SubTotal = Row("SubTotal").ToString().ToDecimal.RoundSQL
Dim IVA = Row("IVA").ToString().ToDecimal.RoundSQL
Dim Total = Row("Total").ToString().ToDecimal.RoundSQL
Dim Cantidad = Row("Cantidad").ToString.ToDecimal
Dim PU = Row("PU").ToString.ToDecimal
If Total - SubTotal - IVA <> 0 Then
Row("PU") = (Total - IVA) / Cantidad
Row("SubTotal") = Row("PU").ToString.ToDecimal * Cantidad
End If
Next
End If
Dim CountRow As Integer = 1 Dim CountRow As Integer = 1
Dim LastSerieFolioTipoDoc As String = String.Empty Dim LastSerieFolioTipoDoc As String = String.Empty
Dim EsDetalle As Boolean = False Dim EsDetalle As Boolean = False