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

iva de importaciones, para E119, que solosea XEXX

Browse Source
This commit is contained in:
rrene
2023-08-26 15:41:52 -07:00
parent b3c80bd8ad
commit 4f1ed65b6d
1 changed files with 18 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
Compras/Compras.aspx.vb
View File

@@ -254,6 +254,7 @@ Partial Class Compras_Compras
Return ViewState("NombreProveedor").ToString Return ViewState("NombreProveedor").ToString
End Get End Get
End Property End Property
Private Property IdPoliza As Integer Private Property IdPoliza As Integer
Get Get
Return ViewState("IdPoliza").ToString.ToEntero Return ViewState("IdPoliza").ToString.ToEntero
@@ -809,12 +810,12 @@ Partial Class Compras_Compras
End Set End Set
End Property End Property
Private Property RFCProv As String Private Property RFCProveedor As String
Get Get
Return IfNull(ViewState("RFCProv"), "").ToString Return IfNull(ViewState("RFCProveedor"), "").ToString
End Get End Get
Set(value As String) Set(value As String)
ViewState("RFCProv") = value ViewState("RFCProveedor") = value
End Set End Set
End Property End Property
@@ -1087,7 +1088,7 @@ Partial Class Compras_Compras
Modalidad = "" Modalidad = ""
Version = "4.0" Version = "4.0"
CveMetodoPago = -1 CveMetodoPago = -1
RFCProv = "" RFCProveedor = ""
CargaDdlTipoGasto() CargaDdlTipoGasto()
CreaTmpAcarreos() CreaTmpAcarreos()
EsContado = False EsContado = False
@@ -1755,7 +1756,7 @@ Partial Class Compras_Compras
CargaPSAlias() CargaPSAlias()
RFC = dr("RFCDe").ToString RFC = dr("RFCDe").ToString
RFCProv = RFC RFCProveedor = RFC
TxtFecha.Text = dr("FechaFactura").ToString.ToDate.ToShortDateString TxtFecha.Text = dr("FechaFactura").ToString.ToDate.ToShortDateString
TxtSerie.Text = dr("Serie").ToString TxtSerie.Text = dr("Serie").ToString
TxtFolio.Text = dr("Folio").ToString TxtFolio.Text = dr("Folio").ToString
@@ -2040,7 +2041,7 @@ Partial Class Compras_Compras
If Cambio Then If Cambio Then
DdlRetIVAConcepto.Items.Clear() DdlRetIVAConcepto.Items.Clear()
If RFCProv.Length = 13 Then ' personal fisica If RFCProveedor.Length = 13 Then ' personal fisica
If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
End If End If
@@ -2067,7 +2068,7 @@ Partial Class Compras_Compras
ElseIf RFCProv.Length = 12 Then ' persona moral ElseIf RFCProveedor.Length = 12 Then ' persona moral
If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
End If End If
@@ -3227,7 +3228,6 @@ Partial Class Compras_Compras
CveTipoConcepto = ObjProveedor.CveTipoProveedor CveTipoConcepto = ObjProveedor.CveTipoProveedor
ViewState("NombreProveedor") = ObjProveedor.RazonSocial ViewState("NombreProveedor") = ObjProveedor.RazonSocial
HdnCveProveedor.Value = ObjProveedor.CveProveedor.ToString HdnCveProveedor.Value = ObjProveedor.CveProveedor.ToString
If ObjProveedor.EditarFolioDuplicado Then If ObjProveedor.EditarFolioDuplicado Then
@@ -3282,7 +3282,7 @@ Partial Class Compras_Compras
ViewState("CveProveedor") = ObjProveedor.CveProveedor ViewState("CveProveedor") = ObjProveedor.CveProveedor
HdnCveProveedor.Value = ObjProveedor.CveProveedor.ToString HdnCveProveedor.Value = ObjProveedor.CveProveedor.ToString
TxtFechaPago.Text = (TxtFecha.Text.ToDate.AddDays(LblDiasCredito.Text.ToEntero)).ToShortDateString TxtFechaPago.Text = (TxtFecha.Text.ToDate.AddDays(LblDiasCredito.Text.ToEntero)).ToShortDateString
RFCProv = ObjProveedor.RFC RFCProveedor = ObjProveedor.RFC
CveRegimenFiscalProveedor = ObjProveedor.CveRegimenFiscal CveRegimenFiscalProveedor = ObjProveedor.CveRegimenFiscal
@@ -3300,7 +3300,7 @@ Partial Class Compras_Compras
If (CalRetIVAPor).RoundSQL(2) = 0.04 Then '4 Fletes If (CalRetIVAPor).RoundSQL(2) = 0.04 Then '4 Fletes
If RFCProv.Length = 13 Then If RFCProveedor.Length = 13 Then
DdlRetIVAConcepto.SelectedValueExist("2") DdlRetIVAConcepto.SelectedValueExist("2")
Else Else
DdlRetIVAConcepto.SelectedValueExist("3") DdlRetIVAConcepto.SelectedValueExist("3")
@@ -5869,7 +5869,14 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
PorcentajeImpuesto = PorcentajeIVA PorcentajeImpuesto = PorcentajeIVA
If chkImportacion.Checked Then If chkImportacion.Checked Then
ConceptoContable = 287 If UsuarioActual.CveEmpresa = 119 Then 'solo si tene rfc Generico extranjero es considerado en importación
If RFCProveedor = "XEXX010101000" Then
ConceptoContable = 287
End If
Else
ConceptoContable = 287
End If
End If End If
'si aplica NC sobre mov de almacen, el impuesto lo toma de la Factura.para la consideracion de mcia en tránsito 'si aplica NC sobre mov de almacen, el impuesto lo toma de la Factura.para la consideracion de mcia en tránsito