From dc6f0d269a9dd9256d49d90e6a5fc2fe62acf4d5 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 7 Sep 2022 08:32:12 -0700 Subject: [PATCH] =?UTF-8?q?Econo=20Compras=20=20error=20al=20registrar=20f?= =?UTF-8?q?actura=20de=20importaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx.vb | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index a6f617e3a..e64ab4230 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -4825,6 +4825,7 @@ Partial Class Compras_Compras CompraActual.CveSubProyecto = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero CompraActual.IdCtaContableProv = CtaProveedor CompraActual.IdCtaContableProvComplementaria = CtaProveedorComplementaria + CompraActual.EsImportacion = chkImportacion.Checked If CveImportacion > 0 Or CveFlete > 0 Then @@ -17922,6 +17923,10 @@ Partial Class Compras_Compras CalculaTotales(True, EsNoDeducible) End If + If CveCompra <= 0 And CveFactura <= 0 Then + CargaAnticipos(DdlProveedor.SelectedValue.ToEntero) + End If + End Sub Private Sub UpdatePS(Optional CveContratoDetalle As Integer = -1) Dim DrPS As DataRow = Nothing