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

-- se depuró/limpió la variables idctaXXX

Browse Source
This commit is contained in:
rrene
2023-08-17 18:56:22 -07:00
parent 70fce81f48
commit 2765dab757
74 changed files with 1350 additions and 5328 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Compras/Compras.aspx.vb
View File

@@ -4735,13 +4735,6 @@ Partial Class Compras_Compras
'INVENTARIOS EN AC
Dim ContadorInventario As Integer = GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked)
Dim CtaAlmacen As Integer
If ContadorInventario > 0 Then
Dim drr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", GvInv.HeaderRow.FCDropDownList("ddlAlmacen").SelectedValue.ToString.ToEntero))
If drr IsNot Nothing Then
CtaAlmacen = drr("IdCtaContable").ToString.ToEntero
End If
End If
Dim tTotalIVA, tTotalGral, tDiferenciaIVA, tIVA, tRetIVA, tRetISR As Decimal
Dim ipresup As Integer = 0
@@ -5536,7 +5529,6 @@ Partial Class Compras_Compras
Dim DT As DataTable = Nothing
Dim CuentasContablesInvalidas As New StringBuilder
Dim ConceptoPersonal As String = ""
Dim IdCtaIVAXAcreditar As Integer = 0
Dim GuardoConcepto18 As Boolean = False
'Bancos (30)
@@ -9741,7 +9733,6 @@ Partial Class Compras_Compras
TmpDT.Columns.Add("OtrosGastos", GetType(Decimal))
TmpDT.Columns.Add("Total", GetType(Decimal))
TmpDT.Columns.Add("AsientoContableCompras", GetType(Integer))
TmpDT.Columns.Add("IdCtaContCompras", GetType(Integer))
TmpDT.Columns.Add("Proyecto", GetType(String))
TmpDT.Columns.Add("CveProyecto", GetType(Integer))
TmpDT.Columns.Add("CveSubProyecto", GetType(Integer))
@@ -19718,7 +19709,7 @@ Partial Class Compras_Compras
SBEliminacionCompra.Append($"Capturó: {LblUsuarioCaptura.Text}, ")
SBEliminacionCompra.Append($"F Captura: {LitFechCaptura.Text}, ")
SBEliminacionCompra.Append($"Dealles:<br/>")
SBEliminacionCompra.Append($"Detalles:<br/>")
For Each dRow As DataRow In TmpDT.Rows
SBEliminacionCompra.Append($"-Cantidad: {dRow("Cantidad").ToString.ToDecimal().ToString("###,###,###.00") }, PS: {dRow("PS")}, Obs: {dRow("Obs")}, Sub Proyecto: {dRow("SubProyecto")}, Tipo Gasto: {dRow("TipoGasto")}, IVA: {dRow("IVA").ToString.ToDecimal.ToString("###,###,###.00")}, IEPSPS: {dRow("IEPSPS").ToString.ToDecimal.ToString("###,###,###.00") }<br/>")
Next