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

Econo Compras error al registrar factura de importación

Browse Source
This commit is contained in:
rakcsle
2022-09-07 08:32:12 -07:00
parent 7c1421dcb8
commit dc6f0d269a
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Compras/Compras.aspx.vb
View File

@@ -4825,6 +4825,7 @@ Partial Class Compras_Compras
CompraActual.CveSubProyecto = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero CompraActual.CveSubProyecto = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero
CompraActual.IdCtaContableProv = CtaProveedor CompraActual.IdCtaContableProv = CtaProveedor
CompraActual.IdCtaContableProvComplementaria = CtaProveedorComplementaria CompraActual.IdCtaContableProvComplementaria = CtaProveedorComplementaria
CompraActual.EsImportacion = chkImportacion.Checked
If CveImportacion > 0 Or CveFlete > 0 Then If CveImportacion > 0 Or CveFlete > 0 Then
@@ -17922,6 +17923,10 @@ Partial Class Compras_Compras
CalculaTotales(True, EsNoDeducible) CalculaTotales(True, EsNoDeducible)
End If End If
If CveCompra <= 0 And CveFactura <= 0 Then
CargaAnticipos(DdlProveedor.SelectedValue.ToEntero)
End If
End Sub End Sub
Private Sub UpdatePS(Optional CveContratoDetalle As Integer = -1) Private Sub UpdatePS(Optional CveContratoDetalle As Integer = -1)
Dim DrPS As DataRow = Nothing Dim DrPS As DataRow = Nothing