From 6b6bf81599e3dd035f3dcbb626ff020019335315 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 1 Sep 2022 15:36:17 -0700 Subject: [PATCH] - mejora --- OC/OC.aspx | 30 ++++++++---------------------- OC/OC.aspx.vb | 34 +++++++++++++++++++++++++--------- 2 files changed, 33 insertions(+), 31 deletions(-) diff --git a/OC/OC.aspx b/OC/OC.aspx index 65afc2c17..9071c6e29 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -255,7 +255,7 @@ <%--linea 5--%>
- +
@@ -284,25 +284,19 @@
<%--linea 6--%> - +
- <%-- - - --%> - - <%-- - --%> - +
+
-
@@ -326,10 +320,7 @@
- -
-
@@ -438,16 +429,11 @@ - - - - - - + + - - - + +
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()