- nuevo parametro Gastosenvio

App_Code/ClsClientes.vb

@@ -163,6 +163,7 @@ Public Class ClsClientes
     Public Property UsaProductoAlterno As Boolean = False
     Public Property EnDemanda As Boolean = False
     Public Property EnQuebranto As Boolean = False
+    Public Property GastosEnvio As Decimal = 0
 
 
 #End Region
@@ -417,6 +418,7 @@ Public Class ClsClientes
                 _UsaProductoAlterno = CBool(Data(0)("UsaProductoAlterno"))
                 _EnDemanda = CBool(Data(0)("UsaProductoAlterno"))
                 _EnQuebranto = CBool(Data(0)("EnQuebranto"))
+                _GastosEnvio = Data(0)("GastosEnvio").ToString.ToDecimal
 
             End If
             Retorno = True
@@ -535,7 +537,7 @@ Public Class ClsClientes
                                Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0,
                                Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False,
                                Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenConsignacion As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional UsaProductoAlterno As Boolean = False,
-                               Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False) As Boolean
+                               Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional GastosEnvio As Decimal = 0) As Boolean
         Dim Retorno As Boolean = False
 
 
@@ -669,6 +671,7 @@ Public Class ClsClientes
             .Add("@UsaProductoAlterno", SqlDbType.Bit).Value = UsaProductoAlterno
             .Add("@EnDemanda", SqlDbType.Bit).Value = EnDemanda
             .Add("@EnQuebranto", SqlDbType.Bit).Value = EnQuebranto
+            .Add("@GastosEnvio", SqlDbType.SmallMoney).Value = GastosEnvio
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -715,7 +718,7 @@ Public Class ClsClientes
                                 Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1",
                                 Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False,
                                 Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional CveAlmacenConsignacion As Integer = -1, Optional UsaProductoAlterno As Boolean = False,
-                                Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False) As Boolean
+                                Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False, Optional GastosEnvio As Decimal = 0) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -859,6 +862,7 @@ Public Class ClsClientes
             .Add("@UsaProductoAlterno", SqlDbType.Bit).Value = UsaProductoAlterno
             .Add("@EnDemanda", SqlDbType.Bit).Value = EnDemanda
             .Add("@EnQuebranto", SqlDbType.Bit).Value = EnQuebranto
+            .Add("@GastosEnvio", SqlDbType.SmallMoney).Value = GastosEnvio
         End With
         Try
             SqlAdapter.Fill(Data)