From 7f9da6400b8d4a7300b6675d0596f2c0060a6b9c Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 17 Sep 2024 17:15:21 -0700 Subject: [PATCH] =?UTF-8?q?--=20al=20crear=20remisi=C3=B3n=20pasar=20el=20?= =?UTF-8?q?par=C3=A1metro=20de=20almacendestino?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OS/OrdenesServicios.aspx.vb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 88a756aea..d6b582596 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/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