registro de remisiones en entrega directa

Ventas/Ventas.aspx.vb

@@ -9870,16 +9870,23 @@ Partial Class Ventas
 
                 ObjClientes.Dispose()
 
+                BtnEmitirImprimir.Text = "Facturar"
+
                 'REGISTRAR UNA ENTREGA DIRECTA
                 If TmpDT.COUNT("EntregaDirecta", "EntregaDirecta = 1") > 0 Then
                     trPaqueteriaOpciones.Visible = False
                     trPaqueteriOpcionesLabel.Visible = False
                     trPaqueteriaDirectaLabel.Visible = True
-                End If
 
-                BtnEmitirImprimir.Text = "Facturar"
-                DdlTipoComprobante.SelectedValue = "Ing"
-                DdlTipoComprobante.Enabled = False
+                    DdlTipoComprobante.Items.Clear()
+                    DdlTipoComprobante.Items.Insert(0, New ListItem("Ingresos", "Ing"))
+                    DdlTipoComprobante.Items.Insert(1, New ListItem("Remisión", "Rem"))
+                    DdlTipoComprobante.Enabled = True
+
+                Else
+                    DdlTipoComprobante.SelectedValue = "Ing"
+                    DdlTipoComprobante.Enabled = False
+                End If
 
                 Tab.ActiveTab = TabGenerales
                 TabGenerales.Enabled = True