MODELO CON ignorar lo que no sea remisi´n

Ventas/Ventas.aspx.vb

@@ -2239,6 +2239,7 @@ Partial Class Ventas
                 ImgFecha.Visible = False
             End If
 
+
             CargarCodigo()
             InicializaImprimirNew()
 
@@ -2469,6 +2470,8 @@ Partial Class Ventas
             TxtFecha.Enabled = True
             ImgFecha.Visible = True
         End If
+        TxtFecha.Enabled = True
+
     End Sub
 
     Private Sub ConfiguraEmpresa()
@@ -9007,7 +9010,7 @@ Partial Class Ventas
                 End If
             End If
 
-            If ErrorList.Count = 0 AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Ant") Then
+            If ErrorList.Count = 0 AndAlso factura.TipoDocto.Contiene("Ing", "Ant") Then
                 'Agregamos las remisiones a la tabla
                 If DtRemisionesPS IsNot Nothing AndAlso DtRemisionesPS.Rows.Count > 0 AndAlso ErrorList.Count = 0 Then
                     Dim CveVentaDetalle As Integer = 0