diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index d71b07428..b7b8d93d5 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -128,7 +128,8 @@ Public Class ClsClientes Public Property CveFormaPago33 As Integer Public Property CveMetodoPago33 As Integer Public Property CveClienteCorporativo As String - Public Property DesglosaIEPS As Boolean + Public Property DesglosaIEPS As Boolean + Public Property NoDesglosaIVA As Boolean Public Property AplicaComercioExterior As Boolean Public Property CveTipoOperacion As Integer Public Property CvePedimento As Integer @@ -385,6 +386,7 @@ Public Class ClsClientes _CveClienteCorporativo = Data(0)("CveClienteCorporativo").ToString _DesglosaIEPS = CType(Data(0)("DesglosaIEPS"), Boolean) + _NoDesglosaIVA = CType(Data(0)("NoDesglosaIVA"), Boolean) _AplicaComercioExterior = CType(Data(0)("AplicaComercioExterior"), Boolean) _CveTipoOperacion = Data(0)("CveTipoOperacion").ToString.ToEntero @@ -761,7 +763,7 @@ Public Class ClsClientes Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "-1", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False, 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) As Boolean + Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False) As Boolean Dim Retorno As Boolean = False @@ -882,6 +884,7 @@ Public Class ClsClientes .Add("@CveClienteCorporativo", SqlDbType.Int).Value = CveClienteCorporativo .Add("@DesglosaIEPS", SqlDbType.Bit).Value = If(DesglosaIEPS, 1, 0) + .Add("@NoDesglosaIVA", SqlDbType.Bit).Value = If(NoDesglosaIVA, 1, 0) .Add("@AplicaComercioExterior", SqlDbType.Bit).Value = AplicaComercioExterior .Add("@CveTipoOperacion", SqlDbType.Int).Value = CveTipoOperacion