iva de importaciones, para E119, que solosea XEXX

Compras/Compras.aspx.vb

@@ -254,6 +254,7 @@ Partial Class Compras_Compras
             Return ViewState("NombreProveedor").ToString
         End Get
     End Property
+
     Private Property IdPoliza As Integer
         Get
             Return ViewState("IdPoliza").ToString.ToEntero
@@ -809,12 +810,12 @@ Partial Class Compras_Compras
         End Set
     End Property
 
-    Private Property RFCProv As String
+    Private Property RFCProveedor As String
         Get
-            Return IfNull(ViewState("RFCProv"), "").ToString
+            Return IfNull(ViewState("RFCProveedor"), "").ToString
         End Get
         Set(value As String)
-            ViewState("RFCProv") = value
+            ViewState("RFCProveedor") = value
         End Set
     End Property
 
@@ -1087,7 +1088,7 @@ Partial Class Compras_Compras
             Modalidad = ""
             Version = "4.0"
             CveMetodoPago = -1
-            RFCProv = ""
+            RFCProveedor = ""
             CargaDdlTipoGasto()
             CreaTmpAcarreos()
             EsContado = False
@@ -1755,7 +1756,7 @@ Partial Class Compras_Compras
                     CargaPSAlias()
 
                     RFC = dr("RFCDe").ToString
-                    RFCProv = RFC
+                    RFCProveedor = RFC
                     TxtFecha.Text = dr("FechaFactura").ToString.ToDate.ToShortDateString
                     TxtSerie.Text = dr("Serie").ToString
                     TxtFolio.Text = dr("Folio").ToString
@@ -2040,7 +2041,7 @@ Partial Class Compras_Compras
 
         If Cambio Then
             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
                     DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
                 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
                     DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
                 End If
@@ -3227,7 +3228,6 @@ Partial Class Compras_Compras
                 CveTipoConcepto = ObjProveedor.CveTipoProveedor
 
                 ViewState("NombreProveedor") = ObjProveedor.RazonSocial
-
                 HdnCveProveedor.Value = ObjProveedor.CveProveedor.ToString
 
                 If ObjProveedor.EditarFolioDuplicado Then
@@ -3282,7 +3282,7 @@ Partial Class Compras_Compras
                 ViewState("CveProveedor") = ObjProveedor.CveProveedor
                 HdnCveProveedor.Value = ObjProveedor.CveProveedor.ToString
                 TxtFechaPago.Text = (TxtFecha.Text.ToDate.AddDays(LblDiasCredito.Text.ToEntero)).ToShortDateString
-                RFCProv = ObjProveedor.RFC
+                RFCProveedor = ObjProveedor.RFC
 
                 CveRegimenFiscalProveedor = ObjProveedor.CveRegimenFiscal
 
@@ -3300,7 +3300,7 @@ Partial Class Compras_Compras
 
                         If (CalRetIVAPor).RoundSQL(2) = 0.04 Then '4 Fletes
 
-                            If RFCProv.Length = 13 Then
+                            If RFCProveedor.Length = 13 Then
                                 DdlRetIVAConcepto.SelectedValueExist("2")
                             Else
                                 DdlRetIVAConcepto.SelectedValueExist("3")
@@ -5869,7 +5869,14 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
                                                         PorcentajeImpuesto = PorcentajeIVA
 
                                                         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
                                                         'si aplica NC sobre mov de almacen, el impuesto lo toma de la Factura.para la consideracion de mcia en tránsito