|
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 224a1c223..d9b4a082b 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -2218,9 +2218,18 @@ Partial Class OC_OC
End If
End If
- 'Si es Proveedor Extranjero el IVA es 0%
- If GlobalDTCompProveedores(CveEmpresaActual).FiltraParametros($"CveProveedor = {DdlProveedores.SelectedValue} AND RFC = 'XEXX010101000'").Rows.Count = 1 Then
- IvaPS = 0
+ If DdlProveedores.SelectedValue.ToEntero > 0 Then
+ 'Si es Proveedor Extranjero el IVA es 0%
+ Dim drProv As DataRow = GlobalDTCompProveedores(CveEmpresaActual, CveProveedor:=DdlProveedores.SelectedValue.ToEntero).FiltroPrimero("")
+
+ If drProv IsNot Nothing Then
+ If drProv("RFC").ToString = "XEXX010101000" Then
+ IvaPS = 0
+ End If
+ If drProv("CodigoRegimenFiscal").ToString = "626" Then 'simplificado lleva retencion de 1.25 de isr
+ RetISR = 0.0125
+ End If
+ End If
End If
AddPS(TxtCant.Text, DdlP2.SelectedValue.ToEntero, DdlP2.SelectedText, TxtObsPS.Text, ImportePS, TxtDescuentoAdd.Text.ToDecimal, TotalPS,
@@ -4026,7 +4035,19 @@ Partial Class OC_OC
' IEPSPSIVA = If(DrPS("IEPSGrabaIVA").ToString = "True", DrPS("IEPSPorcentaje").ToString.ToDecimal, 0)
End If
+ If DdlProveedores.SelectedValue.ToEntero > 0 Then
+ 'Si es Proveedor Extranjero el IVA es 0%
+ Dim drProv As DataRow = GlobalDTCompProveedores(CveEmpresaActual, CveProveedor:=DdlProveedores.SelectedValue.ToEntero).FiltroPrimero("")
+ If drProv IsNot Nothing Then
+ If drProv("RFC").ToString = "XEXX010101000" Then
+ IvaPS = 0
+ End If
+ If drProv("CodigoRegimenFiscal").ToString = "626" Then 'simplificado lleva retencion de 1.25 de isr
+ RetISR = 0.0125
+ End If
+ End If
+ End If
CveSubProyecto = gvr.FCDropDownList("DdlSubProyectoEdit").SelectedValue.ToEntero
SubProyecto = gvr.FCDropDownList("DdlSubProyectoEdit").SelectedItem.Text
@@ -4038,8 +4059,6 @@ Partial Class OC_OC
Cuadro = gvr.FCDropDownList("DdlCultivosCuadroEdit").SelectedItem.Text
End If
-
-
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Or UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
CveProyecto = -1
Proyecto = "Seleccione"
@@ -4082,9 +4101,6 @@ Partial Class OC_OC
End If
End If
-
-
-
'Agarra el nuevo AF si se modifico o deja el pasado
CveActivoFijo = If(gvr.FCHiddenField("HdnCveActivoFijo").Value.ToEntero > 0, gvr.FCHiddenField("HdnCveActivoFijo").Value.ToEntero, HdnEditCveActivoFijo.Value.ToEntero)
Codigo = If(gvr.FCHiddenField("HdnCodigoAF").Value <> "-1", gvr.FCHiddenField("HdnCodigoAF").Value, HdnEditCodigo.Value)
@@ -6959,7 +6975,7 @@ Partial Class OC_OC
#End Region
#Region " ACTUALIZA OC "
- Protected Sub ImgCambiaProv_Click(sender As Object, e As ImageClickEventArgs) Handles ImgCambiaProv.Click
+ Private Sub ImgCambiaProv_Click(sender As Object, e As EventArgs) Handles ImgCambiaProv.Click
Dim OC As New ClsOC
If OC.UpdateProveedorOrdenCompra(DdlProveedores.SelectedValue.ToEntero, CveOrdenCompra, UsuarioActual.CveUsuario, CveEmpresaActual) Then
CargaHistorial()
|