From 9aa764b829da8a4e75ae861e9d6499f4dbc76970 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Sat, 4 Mar 2023 09:15:23 -0700 Subject: [PATCH] Ventas Tasa 0 , CatProyectos proyectos duplciados, IE improte de Anticipo de OC --- Bancos/IE.aspx.vb | 6 +++--- Planeacion/CatProyectos.aspx.vb | 2 +- Ventas/Ventas.aspx.vb | 15 +++++++++++++++ 3 files changed, 19 insertions(+), 4 deletions(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 52c328df4..15c9ae491 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -2516,7 +2516,7 @@ Partial Class Bancos_IE Dim ObjOC As New ClsOC If ObjOC.GetOCAnticipoSaldo(CveOCSolicitudAnticipo, UsuarioActual.CveEmpresa) Then - SaldoOCAnticipo = ObjOC.DtResultados(0)("Saldo").ToString.ToDecimal + SaldoOCAnticipo = ObjOC.DtResultados(0)("Saldo").ToString.ToDecimal.Round(2) Else SaldoOCAnticipo = 0 End If @@ -5465,7 +5465,7 @@ Partial Class Bancos_IE Dim ObjOC As New ClsOC If ObjOC.GetOCAnticipoSaldo(CveOCSolicitudAnticipo, UsuarioActual.CveEmpresa) Then - SaldoOCAnticipo = ObjOC.DtResultados(0)("Saldo").ToString.ToDecimal + SaldoOCAnticipo = ObjOC.DtResultados(0)("Saldo").ToString.ToDecimal.RoundSQL(2) Else SaldoOCAnticipo = 0 End If @@ -5477,7 +5477,7 @@ Partial Class Bancos_IE If DrOC("TipoTermino").ToString.ToEntero.Contiene(0, 3) Then TxtObservaciones.Text = DrOC("Descripcion").ToString - If DrOC("ImporteAnticipo").ToString.ToDecimal > SaldoOCAnticipo Then + If DrOC("ImporteAnticipo").ToString.ToDecimal.RoundSQL(2) > SaldoOCAnticipo Then 'TxtImporte.Text = SaldoOCAnticipo.ToString().FormatoNumero 'TxtImporteLetra.Text = SaldoOCAnticipo.ToString().FormatoNumero.ToDouble.Texto2Letras(DrOC("CveMoneda").ToString.ToEntero) diff --git a/Planeacion/CatProyectos.aspx.vb b/Planeacion/CatProyectos.aspx.vb index d413d762a..c72d0a265 100644 --- a/Planeacion/CatProyectos.aspx.vb +++ b/Planeacion/CatProyectos.aspx.vb @@ -63,7 +63,7 @@ Partial Class CatProyectos Public Sub CargaDatos() Dim ObjProyectos As New ClsProyectos - If ObjProyectos.GetProyectos(UsuarioActual.CveEmpresa) Then + If ObjProyectos.GetProyectos(UsuarioActual.CveEmpresa, Opcion:=1) Then GvDatos.DataSource = ObjProyectos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) GvDatos.DataBind() End If diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 4e6534939..642a31d7e 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -8389,6 +8389,11 @@ Partial Class Ventas TmpDT.Rows(e.RowIndex)("PorcentajeIVA") = DrPS("IVA") End If + If UsuarioActual.Empresa.Funcionalidad(373) = "1" AndAlso LblRFC.Text = "XEXX010101000" Then + TmpDT.Rows(e.RowIndex)("PorcentajeIVA") = 0 + TmpDT.Rows(e.RowIndex)("ImporteIVA") = 0 + End If + TmpDT.Rows(e.RowIndex)("CveUM") = GvPS.Rows(e.RowIndex).FCDropDownList("DdlUnidadMedida").SelectedValue.ToEntero() TmpDT.Rows(e.RowIndex)("UM") = GvPS.Rows(e.RowIndex).FCDropDownList("DdlUnidadMedida").SelectedItem.Text TmpDT.Rows(e.RowIndex)("Cantidad") = Cantidad @@ -8406,6 +8411,9 @@ Partial Class Ventas TmpDT.Rows(e.RowIndex)("PorcentajeRetISR") = ClienteRetISR TmpDT.Rows(e.RowIndex)("CuentaPredial") = CuentaPredial + + + If ObjDescuento IsNot Nothing Then TmpDT.Rows(e.RowIndex)("CvePromocionDetalle") = ObjDescuento.CvePromocionDetalle End If @@ -19064,6 +19072,11 @@ Partial Class Ventas Row("PorcentajeIVA") = DrPS("IVA") End If + If UsuarioActual.Empresa.Funcionalidad(373) = "1" AndAlso LblRFC.Text = "XEXX010101000" Then + DrPS("IVA") = 0 + Row("PorcentajeIVA") = 0 + End If + If ClienteNODesglosaIVA Then 'If Not RegeneraIEPS AndAlso Not FacturaDesglosoIEPS Then PU = PU * (1 + Row("PorcentajeIVA").ToString().ToDecimal) @@ -19073,6 +19086,8 @@ Partial Class Ventas Row("PorcentajeIVA") = 0 End If + + TotalCalculableImpuestos = ((Cantidad * (PU)) - Descuento) TotalCalculableImpuestosIVA = TotalCalculableImpuestos * (1 + DrPS("IEPSPorcentaje").ToString().ToDecimal)