-- al crear remisión pasar el parámetro de almacendestino

OS/OrdenesServicios.aspx.vb

@@ -318,6 +318,7 @@ Partial Class OS_OrdenesServicios
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
 
         If Not IsPostBack Then
+
             'DATOS CLIENTE
             CveCliente = 0
             NombreCliente = ""
@@ -3535,6 +3536,7 @@ Partial Class OS_OrdenesServicios
             ObjFactura.Paciente = TxtPacienteModal.Text.Trim
             ObjFactura.Episodio = TxtEpisodioModal.Text.Trim
             ObjFactura.Alfa1 = TxtFolioRemisionModal.Text.Trim
+            ObjFactura.CveAlmacenTraspasoDestino = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=10).FiltroPrimeroValor("CveAlmacen").ToEntero
             ObjFactura.CveVendedor = tCveVendedor
 
             Dim TmpDTMat As New DataTable
@@ -3578,7 +3580,7 @@ Partial Class OS_OrdenesServicios
             If ProcesoOK Then
                 ObjFactura.CalculaTotales()
                 Dim Resp As New Modelos.Factura.MMensajeFactura
-                Resp = ObjFactura.EmitirFactura(False, Transac:=TransaccionSQL)
+                Resp = ObjFactura.EmitirFactura(False, Transac:=TransaccionSQL, Modulo:="OS/Remision")
 
                 If Resp.CveVenta > 0 Then
                     Respuesta.CveVenta = Resp.CveVenta