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

-- nodeslgosaIVA

Browse Source
This commit is contained in:
rrene
2021-09-28 21:54:02 -07:00
parent 9073471684
commit af86d79ae7
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
App_Code/ClsClientes.vb
View File

@@ -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