Econo Compras error al registrar factura de importación

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