--FIX Rep traspaso solicitud

--FIX tipo docto en ventas

Ventas/Ventas.aspx.vb

@@ -7962,10 +7962,14 @@ Partial Class Ventas
                                 EsCotizacion = True
                             End If
 
-                            If UsuarioActual.TienePermisoProceso(199) Then DdlTipoComprobante.SelectedValueExistInsert("Rem", "Remisión") ' puede remisionar
-                            If UsuarioActual.TienePermisoProceso(60) Then DdlTipoComprobante.SelectedValueExistInsert("Ing", "Ingresos") 'puede facturar
+                            'NO MODIFIQUE EL TipoComprobante
+                            If CveVenta <= 0 OrElse EsCreaApartirDe Then
+                                If UsuarioActual.TienePermisoProceso(199) Then DdlTipoComprobante.SelectedValueExistInsert("Rem", "Remisión") ' puede remisionar
+                                If UsuarioActual.TienePermisoProceso(60) Then DdlTipoComprobante.SelectedValueExistInsert("Ing", "Ingresos") 'puede facturar
+
+                                DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento)
+                            End If
 
-                            DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento)
                             If EsCotizacion Then
                                 DdlTipoComprobante.SelectedValueExistInsert("Cot", "Cotización")
                             End If