AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
rrene
2024-09-17 17:15:21 -07:00
parent 701a2173a2
commit 7f9da6400b
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
OS/OrdenesServicios.aspx.vb
View File

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