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

Transferencias, formatos

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-04-20 16:11:09 -07:00
parent f64024ef52
commit f2957225fc
10 changed files with 3732 additions and 4035 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Compras/Compras.aspx.vb
View File

@@ -1853,6 +1853,7 @@ Partial Class Compras_Compras
'If Prefijo.ToLower <> "cfdi" Then cfdVer = "http://www.sat.gob.mx/cfd/2"
namespaces.AddNamespace(Prefijo, cfdVer)
namespaces.AddNamespace("aerolineas", "http://www.sat.gob.mx/aerolineas")
namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal")
@@ -20680,11 +20681,8 @@ Partial Class Compras_Compras
TxtModalEliminarCompraDescripcion.Text = ""
RegistraScript("$('#DvModalEliminarCompra').modal('show');")
UpModalEliminarcompraCuerpo.Update()
End Sub
Protected Sub BtnModalEliminarCompra_Click(sender As Object, e As EventArgs)
@@ -20787,9 +20785,9 @@ Partial Class Compras_Compras
SBEliminacionCompra.Append($"Capturó: {LblUsuarioCaptura.Text}, ")
SBEliminacionCompra.Append($"F Captura: {LitFechCaptura.Text}, ")
SBEliminacionCompra.Append($"Dealles: ")
SBEliminacionCompra.Append($"Dealles:<br/>")
For Each dRow As DataRow In TmpDT.Rows
SBEliminacionCompra.Append($"Cantidad: {dRow("Cantidad")}, 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") } ")
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
If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, CveCompra, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1,