Soporte mercancia en transito en 0

Compras/Compras.aspx.vb

@@ -6207,6 +6207,7 @@ Partial Class Compras_Compras
 
                                                                     Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
 
+                                                                    If importeMovimiento > 0 Or TxtTotal.Text.ToDecimal = 0 Then
                                                                         'Conta ContPAQ
                                                                         If IdCtaContable = 0 Then
                                                                             CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
@@ -6222,7 +6223,7 @@ Partial Class Compras_Compras
                                                                             ErrorPrepoliza = True
                                                                         End If
 
-
+                                                                    End If
 
                                                                     Dim ContienePSNeteoBonif As Boolean = False
                                                                         For Each Dr As DataRow In TmpDT.Rows