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

Compras CveUsuario ala ctualizr fecha vencimiento, ajustes Nom043

Browse Source
This commit is contained in:
rakcsle
2025-04-10 10:01:18 -07:00
parent bf1c2e025f
commit 27c4ffb4e2
9 changed files with 1353 additions and 109 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Compras/Compras.aspx.vb
View File

@@ -15136,11 +15136,6 @@ Partial Class Compras_Compras
End If
Dim DiasCreditoOCActual As Integer = DTOCTemp.FiltroPrimeroValor("DiasCreditoOC").ToEntero
If DiasCreditoOCActual > DiasCredito Then
DiasCredito = DiasCreditoOCActual
End If
IvaAcumulado += ObjOC.DtResultados.Rows(0)("IVA").ToString.ToDouble
@@ -15263,10 +15258,6 @@ Partial Class Compras_Compras
DivOCPromocion.Visible = True
End If
If DiasCredito > 0 Then
TxtFechaPago.Text = Now.AddDays(DiasCredito).ToString("dd/MM/yyyy")
UPCondicionesPago.Update()
End If
'CARGA DATOS DE OC
CargaVinculacionOC(True)
@@ -21048,7 +21039,7 @@ Partial Class Compras_Compras
Exit Sub
End If
If ObjComp.UpdateFechaVencimientoCompra(CveCompra, TxtFechaPago.Text.ToDate, UsuarioActual.CveEmpresa) Then
If ObjComp.UpdateFechaVencimientoCompra(CveCompra, TxtFechaPago.Text.ToDate, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
Alert("Fecha de pago actualizada correctamente.")
End If