Correcion en punto de venta de recepcion de usados

asmx/WSApp.asmx

@@ -1,5 +1,5 @@
-<%@ WebService Language="VB" Class="WSApp" %>
-
+<%@ WebService Language="VB" Class="WSApp" %>
+
 Option Explicit On
 
 Imports System.Data
@@ -22,9 +22,9 @@ Imports Newtonsoft.Json.Linq
 <WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)>
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Public Class WSApp
-    Inherits System.Web.Services.WebService
+    Inherits System.Web.Services.WebService
 #Region "G L O B A L - D T"
-
+
     Public ReadOnly Property UrlSitio As String
         Get
             Return ConfigurationManager.AppSettings("UrlSitio").ToString
@@ -436,9 +436,9 @@ Public Class WSApp
         Set(value As DataTable)
             Application("GlobalDTMotivosHorasExtras") = value
         End Set
-    End Property
+    End Property
 #End Region
-
+
     Public Property CveEmpresa As Integer = 143
 
     Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario)
@@ -459,7 +459,7 @@ Public Class WSApp
         Else
         End If
         ObjEmpresa.Dispose()
-    End Sub
+    End Sub
 #Region "M E T O D O S - S E R V I C I O"
     Public Function ValidaUsuario(CveUsuario As Integer) As Usuario
         Dim UsuarioActual As Usuario = Nothing
@@ -794,9 +794,9 @@ Public Class WSApp
             Retorno.Mensajes.Add("Ocurrió un error al eliminar el movimiento. Por favor vuelva a intetar.")
         End If
         ObjInv.Dispose()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "P E D I D O S"
     Private Function PreParaTimbre(Obj As Modelos.Factura) As CFDITimbre
         Dim Timbre As New CFDITimbre
@@ -910,9 +910,9 @@ Public Class WSApp
             i += 1
         Next
         Return Timbre
-    End Function
+    End Function
 #End Region
-
+
 #Region "R E M I S I O N E S"
     Private Function CreaFactura(ByRef Retorno As Modelos.Factura.MMensajeFactura, CveCliente As Integer, CveAlmacen As Integer, CveSubProyecto As Integer, CveMoneda As Integer, UsuarioActual As Usuario, Observaciones As String, ListaPS As List(Of MVentaProductos)) As Modelos.Factura
         If CveSubProyecto <= 0 Then
@@ -1073,7 +1073,12 @@ Public Class WSApp
                 ObjFactura.Total = Total
 
                 ObjFactura.Timbre = PreParaTimbre(ObjFactura)
-                ObjFactura.CveContratoSecciones = ""
+                ObjFactura.CveContratoSecciones = ""
+
+                'BORRAR
+                ObjFactura.DtRecepcionUsados = New DataTable
+                ObjFactura.DtRecepcionUsados.Columns.Add("CvePS", GetType(Integer))
+
             Catch ex As Exception
                 Retorno.Mensajes.Add(ex.ToString())
                 Return Nothing
@@ -1165,7 +1170,9 @@ Public Class WSApp
         TmpDT.Columns.Add("ClaveSATFraccionArancelaria", GetType(String))
         TmpDT.Columns.Add("ClaveSATUnidadAduana", GetType(String))
         TmpDT.Columns.Add("ClaveSATFraccionArancelariaDescripcion", GetType(String))
-        TmpDT.Columns.Add("ClaveSATUnidadAduanaDescripcion", GetType(String))
+        TmpDT.Columns.Add("ClaveSATUnidadAduanaDescripcion", GetType(String))
+
+        TmpDT.Columns.Add("CveTamaño", GetType(Double))
 
         Try
             For Each PS As MVentaProductos In ListaPS
@@ -1434,9 +1441,9 @@ Public Class WSApp
         End Try
         ObjVentas.Dispose()
         Return strBody.ToString
-    End Function
+    End Function
 #End Region
-
+
 End Class
 
 Namespace WebServiceAppModels2