BDH.No arroja total o cambio en pago diferido, ejemplo si el pago se va hacer 50% con tarjeta y el otro 50% en efectivó.Usados no se ordenan al momento de registrar una venta.

Ventas/Ventas.aspx.vb

@@ -16743,7 +16743,16 @@ Partial Class Ventas
             Row("SubProyecto") = SubProyecto
             Row("Serie") = Serie
             Row("TiempoEntrega") = TiempoEntrega
-            Row("Orden") = TmpDT.Rows.Count + 1
+            If Modalidad = "U" Then
+                Row("Orden") = Index
+            Else
+                Dim ConsecutivoActual As Integer = TmpDT.MAX("Consec").ToEntero()
+                If ConsecutivoActual < 0 Then
+                    ConsecutivoActual = 0
+                End If
+                Row("Orden") = ConsecutivoActual + 1
+            End If
+
             Row("Cantidad") = Cantidad
             Row("CveUM") = CveUM
             Row("UM") = UM
@@ -16823,7 +16832,11 @@ Partial Class Ventas
             If Modalidad = "U" Then
                 Row("Consec") = Index
             Else
-                Row("Consec") = TmpDT.Rows.Count + 1
+                Dim ConsecutivoActual As Integer = TmpDT.MAX("Consec").ToEntero()
+                If ConsecutivoActual < 0 Then
+                    ConsecutivoActual = 0
+                End If
+                Row("Consec") = ConsecutivoActual + 1
             End If
 
             Row("PS") = DrPS("PS")